|
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: 17238 (0x4356)
Notes: pts_type(SC)
Names: »RKSUBS.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RKSUBS.SC«
IDENT RKSUBS R]KONVERTERING 9.2 810218 NJ OPTNS LINES=46 DDUM KMD08 PDIV ENTRY SPORG ENTRY PASS ENTRY COPYDK ENTRY IXWRIT ENTRY LOD1 ENTRY INIT EXT ATTHD1 EXT RKASSG EXT SPCLRA EXT DKIO EXT ASG EXT DKWRIT EXT DKREAD EXT SPERR EXT SPCLRN EJECT SPORG PROC ***************************************** * * SPORG - INQUIRIES ON REGISTRATED TRANSACTIONS * * EXIT UPON COMPLETION: * 0 - RECORD DELIMITER WRONG * 2 - NORMAL * 4 - READ ERROR * 6 - NYVALG * 8 - NO INDEXREG. BUILT * *************************************** SP00 CLEAR OBS PERF ATTHD1 MOVE GSWBCD3,=D'0' MOVE WORK5,=D'0' SET INQ1 PERF CLRTST PERF SPCLRA ASK FOR CPRNR IB SPBINW2,SPER6,SPER6 MOVE GSWBIN4,CBIN0 MOVE SPINPUT,CPRNR MOVE SPBINW4,CBIN0 MOVE SPBINW1,CBIN10 MOVE GTRECNR,STARTIX MOVE GSWBIN5,CBIN5 PERF DKIO READ FIRST RECORD OF INDEX BNOK SPER4 MOVE GSWSTR2,TEDBUF CBE GSWSTR2,=C'IX',SP05B INDEX BUILT, OK RET 8 SP05A MOVE GSWBIN5,CBIN5 PERF DKIO READ INDEX RECORD BNOK SPER4 SP05B MOVE GSWSTR20,=C' ' MOVE GSWBIN1,CBIN1 9 INDEXES PER RECORD MOVE GSWSTR2,TEDBUF SP06 MOVE GSWBIN2,GSWBIN1 SUB GSWBIN2,CBIN1 COMPUTE DISPL. FOR COPY MUL GSWBIN2,CBIN14 ADD GSWBIN2,CBIN2 COPY GSWSTR20,CBIN0,CBIN10,TEDBUF,GSWBIN2 ADD GSWBIN2,CBIN10 DISPL. FOR INDEX MOVE GSWBCD1,GSWSTR20 MOVE GSWSTR20,=C' ' COPY GSWSTR20,CBIN0,CBIN4,TEDBUF,GSWBIN2 MOVE GSWBCD3,GSWSTR20 CBE GSWBCD1,=D'0',SP07 CBE GSWBCD1,CPRNR,SP08 ADD GSWBIN1,CBIN1 TRY NEXT CBNE GSWBIN1,CBIN10,SP06 UNTIL LAST SUB GTRECNR,CBIN1 TRY NEXT RECORD B SP05A SP07 MOVE GSWSTR80,=C'CPRNR IKKE I INDEX ' ATTFMT LISTFRM2 PERF SPCLRA CBE SPBINW2,CBIN2,SP00 MAK ? B SPER6 SP08 MOVE GSWBIN7,CBIN1 MOVE GSWBIN8,CBIN1 MOVE GTRECNR,GSWBCD3 MOVE INITIALVALUE TO GTRECNR MOVE WORK5,GSWBCD3 DISPLAY FMEL SP10 PERF DKREAD BNOK SPER4 MOVE GSWSTR2,=C'&' MOVE GSWBIN4,CBIN0 MATCH TEDBUF,GSWBIN4,CBIN10,GSWSTR2,CBIN0,CBIN1 BOK SP20 FORTS[TTELSESRECORD MOVE GSWSTR20,=' ' XCOPY GSWSTR20,CBIN0,CBIN10,TEDBUF,CBIN0 MOVE WORK7,GSWSTR20 CBNE WORK7,CPRNR,SP70 FINISHED AFTER BREAK SP20 MOVE GSWBIN4,CBIN12 MOVE GSWSTR20,=C'&' MOVE GSWBIN1,CBIN0 MATCH TEDBUF,GSWBIN1,CBIN15,GSWSTR20,CBIN0,CBIN1 FIND 1. & ADD GSWBIN1,CBIN1 SP30 COPY GSWSTR3,CBIN0,CBIN3,TEDBUF,GSWBIN1 EXTRACT FIELDNR ADD GSWBIN1,CBIN3 MOVE GSWSTR20,=C'&' MOVE GSWBIN2,GSWBIN1 MATCH TEDBUF,GSWBIN2,CBIN15,GSWSTR20,CBIN0,CBIN1 SEARCH FOR & BE SP50 FOUND MOVE GSWSTR20,STR25 MOVE GSWBIN2,GSWBIN1 MATCH TEDBUF,GSWBIN2,CBIN15,GSWSTR20,CBIN0,CBIN1 SEARCH FOR % BE SP50 MOVE GSWSTR20,STR7F MOVE GSWBIN2,GSWBIN1 MATCH TEDBUF,GSWBIN2,CBIN15,GSWSTR20,CBIN0,CBIN1 SEARCH EOR BE SP50 MOVE SPBINW4,CBIN1 MOVE GSWBCD4,=D'98' PERF SPERR B SPER NOT FOUND, OVERFLOW/LENGTH SP50 MOVE GSWSTR2,GSWSTR20 SAVE DELIMITER MOVE GSWBIN3,GSWBIN2 POINT AT POS WHERE MATCH SUB GSWBIN3,GSWBIN1 - STARTPOS GIVES LENGTH MOVE SAVEF(GSWBIN7,GSWBIN8),BINULL MOVE GSWSTR20,BINULL XCOPY GSWSTR20,CBIN0,GSWBIN3,TEDBUF,GSWBIN1 MOVE SAVEF(GSWBIN7,GSWBIN8),GSWSTR20 MOVE FIELD(GSWBIN7,GSWBIN8),GSWSTR3 MOVE GSWBIN1,GSWBIN2 SAVE FOR NEW DISPLACEMENT ADD GSWBIN1,CBIN1 BYPASS DELIMITER CBE GSWSTR2,STR7F,SP70 ADD GSWBIN8,CBIN1 NEXT ENTRY CBL GSWBIN8,CBIN5,SP60 NEW LINE? MOVE GSWBIN8,CBIN1 FIRST ON LINE ADD GSWBIN7,CBIN1 NEW LINE SP60 CBE GSWSTR2,STR25,SP10 CBE GSWSTR2,='&&',SP30 SP70 CLEAR INQ1 SET CPRFLAG PERF ATTHD1 PERF SPCLRN MOVE CPRNR,=D'0' PERF CLRINQ TBT CHFLAG,SPRET B SP00 SPER6 CLEAR OBS PERF CLRINQ RET 6 SPER4 PERF CLRINQ RET 4 SPRET SET OBS RET 2 SPER PERF CLRINQ RET PEND EJECT CLRINQ PROC CLEAR INQ1 CLEAR INQ2 CLEAR INQ3 CLEAR CPRFLAG RET PEND * * * ************************************************************ * * CLRTST - CLEARING OF TESTSTRG * ************************************************************* CLRTST PROC MOVE GSWBIN1,CBIN12 MOVE GSWBIN2,CBIN4 CLRT10 MOVE FIELD(GSWBIN1,GSWBIN2),=D'0' MOVE SAVEF(GSWBIN1,GSWBIN2),BINULL SUB GSWBIN2,CBIN1 BNZ CLRT10 MOVE GSWBIN2,CBIN4 SUB GSWBIN1,CBIN1 BNZ CLRT10 RET PEND EJECT PASS PROC ********************************** * * THE PROCEDURE CHECKS THE USERS AUTHORIZATION * ********************************** MOVE GSWBIN1,CBIN10 10 CHARS + EOI-KEY EDWRT SCREEN,PASSHEAD KI .NE,KEYB,GSWSTR20,SPKTAB2,GSWBIN1,GSWBIN2 MOVE GSWBIN1,CBIN6 PASS10 MOVE GSWBIN2,CBIN0 MATCH KEYTAB(GSWBIN1),GSWBIN2,CBIN10,GSWSTR20,CBIN0,CBIN10 BOK PASS90 SUB GSWBIN1,CBIN1 BNZ PASS10 CMP CBIN0,CBIN1 RET PASS90 CMP CBIN0,CBIN0 RET PEND * PASSHEAD FRMT FSL FTEXT 'INDTAST IDENTIFIKATION' FMEND EJECT COPYDK PROC ************************************************ * * COPYDK - THE PROCEDURE COPIES FD01 TO FD02 * UNTIL A SPECIAL EOF-RECORD IS MET. * THE EOF-MARK IS <**> * * EXIT UPON COMPLETION: * 0 - RECORD DELIMITER NOT FOUND * 2 - READ ERROR * 4 - WRITE ERROR * 6 - NORMAL * ************************************************ ATTFMT COPYFRM1 MOVE CPRNR,=C'0' PERF SPCLRA CBE SPBINW2,CBIN3,COPY01C B COPY98A COPY01C MOVE SPLITBIN,BCDWK CLEAR FULL IB SPLITBIN,COPY01B,COPY02,COPY01B MOVE SPLITBIN,CBIN1 COPY01B TBF CRKCOPY,COPY98A CLEAR CRKCOPY PERF ASG,CBIN2 BNOK COPY98BA MOVE GSWBIN5,CBIN13 PERF DKIO BNOK COPY98B COPY02 MOVE RECIX,STARTIX MOVE GSWBIN3,CBIN9 COPY03 MOVE CPRKEY(GSWBIN3),=C'0' MOVE CPRIX(GSWBIN3),=D'0' SUB GSWBIN3,CBIN1 CBNE GSWBIN3,CBIN0,COPY03 MOVE CPRNR,=D'0' MOVE WORK5,=D'0' MOVE GTRECNR,=W'26' COPY06 PERF DKREAD BNOK COPY98B MOVE GSWSTR2,TEDBUF * FURTHER ACTION DEPENDS ON VALUE IN SPLITBIN * 1 - STANDARD, EVERYTHING COPIED, INDEXFILE BUILT * 2 - BUILD INDEXFILE ONLY * 3 - EVERYTHING COPIED, NO INDEXFILE CBL GSWSTR2,=C'00',COPY08 COPY HEADER/END-RECORD CBG GSWSTR2,=C'99',COPY08 CBE SPLITBIN,CBIN3,COPY08 MOVE GSWSTR2,=C'&' MOVE GSWBIN1,CBIN0 MATCH TEDBUF,GSWBIN1,CBIN10,GSWSTR2,CBIN0,CBIN1 BOK COPY08 SAME CPRNR, NO ACTION ADD GSWBIN3,CBIN1 MOVE GSWSTR20,=' ' COPY GSWSTR20,CBIN0,CBIN10,TEDBUF,CBIN0 MOVE CPRKEY(GSWBIN3),GSWSTR20 MOVE GSWBCD3,GTRECNR SUB GSWBCD3,=D'1' MOVE CPRIX(GSWBIN3),GSWBCD3 COPY08 CBE SPLITBIN,CBIN2,COPY15 MOVE GSWBIN5,CBIN11 SEQ. WRITE FD02 PERF DKIO BNOK COPY98C ADD WORK5,=D'1' COPY15 CBL GSWBIN3,CBIN9,COPY17 IB SPLITBIN,COPY16,COPY16,COPY17 COPY16 * WRITE INDEX ON FD01 PERF IXWRIT B COPY98C WRITE ERROR B COPY98B READ ERROR COPY07 MOVE CPRKEY(GSWBIN3),=C'0' MOVE CPRIX(GSWBIN3),=D'0' SUB GSWBIN3,CBIN1 CBNE GSWBIN3,CBIN0,COPY07 COPY17 CBNE GSWSTR2,=C'**',COPY06 * CBE SPLITBIN,CBIN3,COPY98 PERF IXWRIT B COPY98C WRITE ERROR B COPY98B READ ERROR MOVE CPRKEY(CBIN1),=C'0' MOVE CPRIX(CBIN1),=D'0' PERF IXWRIT B COPY98C B COPY98B * LAST INDEX RECORD WRITTEN COPY98 ATTFMT COPYFRM2 PERF SPCLRA CBE SPLITBIN,CBIN2,COPY98A MOVE GSWBIN5,CBIN4 UNLOAD FD02 PERF DKIO BNOK COPY98B SET CRKCOPY COPY98A RET 6 COPY98B CBE SPLITBIN,CBIN2,COPY98BA MOVE GSWBIN5,CBIN4 UNLOAD FD02 PERF DKIO SET CRKCOPY REL FD02 COPY98BA RET 2 COPY98C CBE SPLITBIN,CBIN2,COPY98CA MOVE GSWBIN5,CBIN4 UNLOAD FD02 PERF DKIO SET CRKCOPY COPY98CA RET 4 PEND EJECT IXWRIT PROC *************************************************** * IXWRIT - WRITE INDEXRECORD * RETURN UPON COMPLETION: * 0 - WRITE ERROR * 2 - READ ERROR * 4 - NORMAL **************************************************** IX00 * CHECK AND SEE IF **<KMNR> WAS WRITTEN IN THIS RECORD MOVE GSWBIN7,GTRECNR SAVE GTRECNR EDWRT .NW,SCREEN,COPYFRM4 MOVE GSWBIN4,CBIN1 MOVE GSWBIN5,CBIN2 MOVE TEDBUF,=C'IX ' IX10 EDSUB TEDBUF,GSWBIN5,IXFRMT ADD GSWBIN4,CBIN1 CBNG GSWBIN4,CBIN9,IX10 MOVE GTRECNR,RECIX MOVE GSWBIN5,CBIN15 WAIT SCREEN PERF DKIO BNOK IX50 SUB RECFREE,CBIN1 ADJUST FOR WRITTEN INDEX SUB RECIX,CBIN1 COUNT DOWN MOVE GTRECNR,GSWBIN7 RESTORE POINTER RET 4 NORMAL, + NO INDEX WRITING IX40 RET 2 IX50 RET PEND EJECT LOD1 PROC ************************************ * ASK FOR NORMAL OR CONT. REG. * IF NORMAL, THEN WRITE HDR1,KMDINF AFTER * CHECK FOR EMPTY DISK * ELSE * DELETE INDEXFILE * RETURNPOINTS: * 0 - MAK * 2 - READ/WRITE ERROR * 4 - ASSIGN ERROR * 6 - NORMAL ************************************ LOD110 MOVE GTANTAL,=D'0' MOVE BCDWK,=D'0' ATTFMT HEAD3 PERF SPCLRA IB SPBINW2,LOD110,LOD111,LOD115 B LOD110 LOD115 CBE BCDWK,=D'1',NORM CBE BCDWK,=D'2',CONT B LOD110 NORM * INIT OF FNAME FOR FORSKUDSREGISTRERING MOVE WORK12,YEAR MOVE GSWBIN1,GTANTAL SLUT/FORSKUD/LON IB GSWBIN1,LAB10,LAB20,LAB30 B LOD110 LAB10 SLUTLIGNING MOVE CDSNAME,FRAAK CLEAR FORSKUD CLEAR LONOPL B LAB40 LAB20 TBF OPTION1,LOD111 SET FORSKUD CLEAR SLUTL CLEAR LONOPL MOVE CDSNAME,FFORSK B LAB40 LAB30 TBF OPTION2,LOD111 SET LONOPL CLEAR FORSKUD CLEAR SLUTL MOVE CDSNAME,FLONOPL LAB40 PERF ASG,CBIN1 BNOK LOD113 PERF INIT B LOD113 READ/WRITE ERROR B LOD114 MAK B LODOK CONT PERF RKASSG BNOK LOD112 ERROR B LODOK LOD112 RET 2 LOD113 RET 4 LOD114 MOVE GSWBIN5,CBIN3 PERF DKIO UNLOAD BNOK LOD112 LOD111 RET LODOK SET CRKKLAR RET 6 PEND EJECT INIT PROC ************************************ * * INIT - PREPARE FOR OUTPUT ON FD01. * CALL - PERF INIT * * THE DISC IS POSITIONED TO TRACK 1 * AND VARIOUS WORKFIELDS ARE INITIATED * THE FIRST INDEXRECORD IS DELETED * 0 - READ/WRITE ERROR * 2 - MAK * 4 - OK * ************************************* MOVE GSWBIN5,CBIN5 READ KMDHEADER MOVE GTRECNR,=W'26' PERF DKIO BNOK INI50 MOVE GTSTRFMT,=C' ' COPY GTSTRFMT,CBIN0,CBIN6,TEDBUF,CBIN7 ATTFMT KMDHDR PERF SPCLRA CBE SPBINW2,CBIN2,INI95 INI40 MOVE ENDREC,CBIN0 MOVE RECFREE,MAXREC MOVE RECUSE,ENDREC MOVE TEDBUF,BINULL EDIT TEDBUF,MASTCARD PERF DKWRIT BNOK INI50 ADD GTRECNR,CBIN1 EDIT TEDBUF,ENDCARD MOVE GSWBIN5,CBIN7 PERF DKIO BNOK INI50 EDIT TEDBUF,HDR1REC MOVE GTRECNR,CBIN7 MOVE GSWBIN5,CBIN7 WRITE HDR1 LABEL PERF DKIO BNOK INI50 * DELETE INDEXRECORD MOVE GTRECNR,STARTIX MOVE GSWBIN5,CBIN5 PERF DKIO READ FIRST RECORD OF INDEX BNOK INI50 MOVE TEDBUF,=C' ' MOVE GSWBIN5,CBIN15 PERF DKIO BNOK INI50 RET 4 INI50 RET INI95 RET 2 PEND EJECT * ************************************************************* * * KTABS AND FORMATS * ************************************************************* * SPKTAB2 KTAB X'D1' * HEAD3 FRMT FSL FTEXT 'SLUTLIGNING = 1' FNL FTEXT 'FORSKUDSREG = 2' FNL FTEXT 'LONOPLYSING = 3' FKI 20,ME,NUM,MINL=1,MAXL=1 FMEL 'Z',GTANTAL FNL FNL FTEXT 'ALM.REG. (INCL. SLETNING AF INDEXREG) = 1' FNL FTEXT 'FORTSAT REGISTRERING = 2' FKI 44,ME,NUM,MINL=1,MAXL=1 FMEL 'Z',BCDWK FMEND * * MASTCARD FRMT FORMAT FOR HEADERCARD FILLR '<',2 FMEL '999',RKKMNR FMEL '99',YEAR FMEL '999999',DATE FBF FORSKUD,MAST10 FTEXT C'0050' FB MAST20 MAST10 FTEXT C'0070' MAST20 FILLR X'7F',1 FILLR ' ',62 FMEND * FRMINP FRMT FNL FKI 1,MAXL=2 FMEL 'ZZ',BCDWK FMEND * KMDHDR FRMT FSL FTEXT 'DISKETTEN ER SIDST BRUGT DEN ' FCOPY GTSTRFMT FLINK FRMINP FMEND * HDR1REC FRMT FTEXT C'HDR1 ' FCOPY CDSNAME FILLR ' ',11 FTEXT '080 01001 73026' FILLR ' ',33 FTEXT 'V 01001 ' FMEND * LISTFRM2 FRMT FSL FCOPY GSWSTR80 FLINK FRMINP FMEND * COPYFRM1 FRMT FSL FTEXT '1 - ALM. KOPIERING' FNL FTEXT '2 - OPBYG INDEXREG. (- KOPI)' FNL FTEXT '3 - KOPI UDEN OPBYGNING INDEXREG.' FLINK FRMINP FMEND * COPYFRM4 FRMT FILLR '1',2 FMEL '9999',WORK5 FMEND * ENDCARD FRMT FILLR '*',2 FMEL '999',RKKMNR FILLR ' ',60 FILLR ' ',15 FMEND * COPYFRM2 FRMT FSL FCOPY ='ANTAL RECORDS KOPIERET:' FMEL '9999',WORK5 FLINK FRMINP FMEND * IXFRMT FRMT FCOPY CPRKEY(GSWBIN4) FMEL '9999',CPRIX(GSWBIN4) FMEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT RKSUBS R]KONVERTERING 9.2 810218 NJ«, t00=0x0000, t01=0x0004}
0x0032…004a Head {h00=0x0014, h01=0x0050, text=» OPTNS LINES=46 «, t00=0x0000, t01=0x0036}
0x004a…005e Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x004e}
0x005e…006c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0062}
0x006c…0080 Head {h00=0x0010, h01=0x0050, text=» ENTRY SPORG«, t00=0x0000, t01=0x0070}
0x0080…0094 Head {h00=0x0010, h01=0x0050, text=» ENTRY PASS «, t00=0x0000, t01=0x0084}
0x0094…00aa Head {h00=0x0012, h01=0x0050, text=» ENTRY COPYDK «, t00=0x0000, t01=0x0098}
0x00aa…00c0 Head {h00=0x0012, h01=0x0050, text=» ENTRY IXWRIT «, t00=0x0000, t01=0x00ae}
0x00c0…00d4 Head {h00=0x0010, h01=0x0050, text=» ENTRY LOD1 «, t00=0x0000, t01=0x00c4}
0x00d4…00e8 Head {h00=0x0010, h01=0x0050, text=» ENTRY INIT «, t00=0x0000, t01=0x00d8}
0x00e8…00fc Head {h00=0x0010, h01=0x0050, text=» EXT ATTHD1 «, t00=0x0000, t01=0x00ec}
0x00fc…0110 Head {h00=0x0010, h01=0x0050, text=» EXT RKASSG «, t00=0x0000, t01=0x0100}
0x0110…0124 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0114}
0x0124…0136 Head {h00=0x000e, h01=0x0050, text=» EXT DKIO «, t00=0x0000, t01=0x0128}
0x0136…0146 Head {h00=0x000c, h01=0x0050, text=» EXT ASG«, t00=0x0000, t01=0x013a}
0x0146…015a Head {h00=0x0010, h01=0x0050, text=» EXT DKWRIT «, t00=0x0000, t01=0x014a}
0x015a…016e Head {h00=0x0010, h01=0x0050, text=» EXT DKREAD «, t00=0x0000, t01=0x015e}
0x016e…0180 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0172}
0x0180…0194 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x0184}
0x0194…01a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0008}
0x01a2…01b4 Head {h00=0x000e, h01=0x0050, text=»SPORG PROC«, t00=0x0001, t01=0x0016}
0x01b4…01e6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0028}
0x01e6…01f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005a}
0x01f0…0228 Head {h00=0x0034, h01=0x0050, text=»* SPORG - INQUIRIES ON REGISTRATED TRANSACTIONS «, t00=0x0001, t01=0x0064}
0x0228…0232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009c}
0x0232…0252 Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0001, t01=0x00a6}
0x0252…0278 Head {h00=0x0022, h01=0x0050, text=»* 0 - RECORD DELIMITER WRONG«, t00=0x0001, t01=0x00c6}
0x0278…028e Head {h00=0x0012, h01=0x0050, text=»* 2 - NORMAL«, t00=0x0001, t01=0x00ec}
0x028e…02a8 Head {h00=0x0016, h01=0x0050, text=»* 4 - READ ERROR«, t00=0x0001, t01=0x0102}
0x02a8…02be Head {h00=0x0012, h01=0x0050, text=»* 6 - NYVALG«, t00=0x0001, t01=0x011c}
0x02be…02e0 Head {h00=0x001e, h01=0x0050, text=»* 8 - NO INDEXREG. BUILT«, t00=0x0001, t01=0x0132}
0x02e0…02ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…031a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0001, t01=0x015e}
0x031a…0326 Head {h00=0x0008, h01=0x0050, text=»SP00«, t00=0x0001, t01=0x018e}
0x0326…0338 Head {h00=0x000e, h01=0x0050, text=» CLEAR OBS«, t00=0x0002, t01=0x000a}
0x0338…034c Head {h00=0x0010, h01=0x0050, text=» PERF ATTHD1«, t00=0x0002, t01=0x001c}
0x034c…0368 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'0' «, t00=0x0002, t01=0x0030}
0x0368…0382 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK5,=D'0' «, t00=0x0002, t01=0x004c}
0x0382…0394 Head {h00=0x000e, h01=0x0050, text=» SET INQ1 «, t00=0x0002, t01=0x0066}
0x0394…03a8 Head {h00=0x0010, h01=0x0050, text=» PERF CLRTST«, t00=0x0002, t01=0x0078}
0x03a8…03ca Head {h00=0x001e, h01=0x0050, text=» PERF SPCLRA ASK FOR CPRNR«, t00=0x0002, t01=0x008c}
0x03ca…03ea Head {h00=0x001c, h01=0x0050, text=» IB SPBINW2,SPER6,SPER6 «, t00=0x0002, t01=0x00ae}
0x03ea…0406 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0002, t01=0x00ce}
0x0406…0422 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,CPRNR «, t00=0x0002, t01=0x00ea}
0x0422…043e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN0 «, t00=0x0002, t01=0x0106}
0x043e…045a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN10«, t00=0x0002, t01=0x0122}
0x045a…0478 Head {h00=0x001a, h01=0x0050, text=» MOVE GTRECNR,STARTIX «, t00=0x0002, t01=0x013e}
0x0478…0494 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN5 «, t00=0x0002, t01=0x015c}
0x0494…04c2 Head {h00=0x002a, h01=0x0050, text=» PERF DKIO READ FIRST RECORD OF INDEX «, t00=0x0002, t01=0x0178}
0x04c2…04d6 Head {h00=0x0010, h01=0x0050, text=» BNOK SPER4 «, t00=0x0003, t01=0x0016}
0x04d6…04f2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,TEDBUF«, t00=0x0003, t01=0x002a}
0x04f2…0524 Head {h00=0x002e, h01=0x0050, text=» CBE GSWSTR2,=C'IX',SP05B INDEX BUILT, OK «, t00=0x0003, t01=0x0046}
0x0524…0532 Head {h00=0x000a, h01=0x0050, text=» RET 8«, t00=0x0003, t01=0x0078}
0x0532…0552 Head {h00=0x001c, h01=0x0050, text=»SP05A MOVE GSWBIN5,CBIN5«, t00=0x0003, t01=0x0086}
0x0552…0578 Head {h00=0x0022, h01=0x0050, text=» PERF DKIO READ INDEX RECORD «, t00=0x0003, t01=0x00a6}
0x0578…058c Head {h00=0x0010, h01=0x0050, text=» BNOK SPER4 «, t00=0x0003, t01=0x00cc}
0x058c…059a Head {h00=0x000a, h01=0x0050, text=»SP05B «, t00=0x0003, t01=0x00e0}
0x059a…05b6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C' '«, t00=0x0003, t01=0x00ee}
0x05b6…05e6 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 9 INDEXES PER RECORD«, t00=0x0003, t01=0x010a}
0x05e6…0602 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,TEDBUF«, t00=0x0003, t01=0x013a}
0x0602…060e Head {h00=0x0008, h01=0x0050, text=»SP06«, t00=0x0003, t01=0x0156}
0x060e…062c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0003, t01=0x0162}
0x062c…065e Head {h00=0x002e, h01=0x0050, text=» SUB GSWBIN2,CBIN1 COMPUTE DISPL. FOR COPY«, t00=0x0003, t01=0x0180}
0x065e…067a Head {h00=0x0018, h01=0x0050, text=» MUL GSWBIN2,CBIN14 «, t00=0x0004, t01=0x0022}
0x067a…0694 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN2,CBIN2«, t00=0x0004, t01=0x003e}
0x0694…06c6 Head {h00=0x002e, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN10,TEDBUF,GSWBIN2«, t00=0x0004, t01=0x0058}
0x06c6…06f2 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN2,CBIN10 DISPL. FOR INDEX«, t00=0x0004, t01=0x008a}
0x06f2…0710 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GSWSTR20«, t00=0x0004, t01=0x00b6}
0x0710…072c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C' '«, t00=0x0004, t01=0x00d4}
0x072c…075e Head {h00=0x002e, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN4,TEDBUF,GSWBIN2 «, t00=0x0004, t01=0x00f0}
0x075e…077c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWSTR20«, t00=0x0004, t01=0x0122}
0x077c…079c Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD1,=D'0',SP07 «, t00=0x0004, t01=0x0140}
0x079c…07bc Head {h00=0x001c, h01=0x0050, text=» CBE GSWBCD1,CPRNR,SP08 «, t00=0x0004, t01=0x0160}
0x07bc…07e0 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN1,CBIN1 TRY NEXT «, t00=0x0004, t01=0x0180}
0x07e0…080c Head {h00=0x0028, h01=0x0050, text=» CBNE GSWBIN1,CBIN10,SP06 UNTIL LAST«, t00=0x0005, t01=0x0014}
0x080c…0836 Head {h00=0x0026, h01=0x0050, text=» SUB GTRECNR,CBIN1 TRY NEXT RECORD«, t00=0x0005, t01=0x0040}
0x0836…0846 Head {h00=0x000c, h01=0x0050, text=» B SP05A«, t00=0x0005, t01=0x006a}
0x0846…0852 Head {h00=0x0008, h01=0x0050, text=»SP07«, t00=0x0005, t01=0x007a}
0x0852…0880 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR80,=C'CPRNR IKKE I INDEX '«, t00=0x0005, t01=0x0086}
0x0880…0898 Head {h00=0x0014, h01=0x0050, text=» ATTFMT LISTFRM2«, t00=0x0005, t01=0x00b4}
0x0898…08ac Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0005, t01=0x00cc}
0x08ac…08d2 Head {h00=0x0022, h01=0x0050, text=» CBE SPBINW2,CBIN2,SP00 MAK ? «, t00=0x0005, t01=0x00e0}
0x08d2…08e2 Head {h00=0x000c, h01=0x0050, text=» B SPER6«, t00=0x0005, t01=0x0106}
0x08e2…08ee Head {h00=0x0008, h01=0x0050, text=»SP08«, t00=0x0005, t01=0x0116}
0x08ee…090a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN1 «, t00=0x0005, t01=0x0122}
0x090a…0926 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 «, t00=0x0005, t01=0x013e}
0x0926…0960 Head {h00=0x0036, h01=0x0050, text=» MOVE GTRECNR,GSWBCD3 MOVE INITIALVALUE TO GTRECNR«, t00=0x0005, t01=0x015a}
0x0960…0988 (6, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE WORK5,GSWBCD3 DISPLAY FMEL«, t00=0x0006, t01=0x0004}
0x0988…0994 Head {h00=0x0008, h01=0x0050, text=»SP10«, t00=0x0006, t01=0x002c}
0x0994…09a8 Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0006, t01=0x0038}
0x09a8…09bc Head {h00=0x0010, h01=0x0050, text=» BNOK SPER4 «, t00=0x0006, t01=0x004c}
0x09bc…09d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,=C'&' «, t00=0x0006, t01=0x0060}
0x09d8…09f4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0006, t01=0x007c}
0x09f4…0a2c Head {h00=0x0034, h01=0x0050, text=» MATCH TEDBUF,GSWBIN4,CBIN10,GSWSTR2,CBIN0,CBIN1«, t00=0x0006, t01=0x0098}
0x0a2c…0a52 Head {h00=0x0022, h01=0x0050, text=» BOK SP20 FORTS[TTELSESRECORD «, t00=0x0006, t01=0x00d0}
0x0a52…0a6e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=' ' «, t00=0x0006, t01=0x00f6}
0x0a6e…0aa0 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN10,TEDBUF,CBIN0 «, t00=0x0006, t01=0x0112}
0x0aa0…0abc Head {h00=0x0018, h01=0x0050, text=» MOVE WORK7,GSWSTR20«, t00=0x0006, t01=0x0144}
0x0abc…0af0 Head {h00=0x0030, h01=0x0050, text=» CBNE WORK7,CPRNR,SP70 FINISHED AFTER BREAK «, t00=0x0006, t01=0x0160}
0x0af0…0afc (7, 0, 400) Head {h00=0x0008, h01=0x0050, text=»SP20«, t00=0x0007, t01=0x0004}
0x0afc…0b18 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN12«, t00=0x0007, t01=0x0010}
0x0b18…0b34 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'&'«, t00=0x0007, t01=0x002c}
0x0b34…0b50 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0007, t01=0x0048}
0x0b50…0b94 Head {h00=0x0040, h01=0x0050, text=» MATCH TEDBUF,GSWBIN1,CBIN15,GSWSTR20,CBIN0,CBIN1 FIND 1. & «, t00=0x0007, t01=0x0064}
0x0b94…0bae Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0007, t01=0x00a8}
0x0bae…0bba Head {h00=0x0008, h01=0x0050, text=»SP30«, t00=0x0007, t01=0x00c2}
0x0bba…0bfa Head {h00=0x003c, h01=0x0050, text=» COPY GSWSTR3,CBIN0,CBIN3,TEDBUF,GSWBIN1 EXTRACT FIELDNR«, t00=0x0007, t01=0x00ce}
0x0bfa…0c14 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN3«, t00=0x0007, t01=0x010e}
0x0c14…0c30 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=C'&'«, t00=0x0007, t01=0x0128}
0x0c30…0c4e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0007, t01=0x0144}
0x0c4e…0c94 Head {h00=0x0042, h01=0x0050, text=» MATCH TEDBUF,GSWBIN2,CBIN15,GSWSTR20,CBIN0,CBIN1 SEARCH FOR &«, t00=0x0007, t01=0x0162}
0x0c94…0caa Head {h00=0x0012, h01=0x0050, text=» BE SP50 FOUND«, t00=0x0008, t01=0x0018}
0x0caa…0cc6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,STR25«, t00=0x0008, t01=0x002e}
0x0cc6…0ce4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0008, t01=0x004a}
0x0ce4…0d2a Head {h00=0x0042, h01=0x0050, text=» MATCH TEDBUF,GSWBIN2,CBIN15,GSWSTR20,CBIN0,CBIN1 SEARCH FOR %«, t00=0x0008, t01=0x0068}
0x0d2a…0d3a Head {h00=0x000c, h01=0x0050, text=» BE SP50«, t00=0x0008, t01=0x00ae}
0x0d3a…0d56 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,STR7F«, t00=0x0008, t01=0x00be}
0x0d56…0d74 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0008, t01=0x00da}
0x0d74…0db8 Head {h00=0x0040, h01=0x0050, text=» MATCH TEDBUF,GSWBIN2,CBIN15,GSWSTR20,CBIN0,CBIN1 SEARCH EOR«, t00=0x0008, t01=0x00f8}
0x0db8…0dc8 Head {h00=0x000c, h01=0x0050, text=» BE SP50«, t00=0x0008, t01=0x013c}
0x0dc8…0de4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0008, t01=0x014c}
0x0de4…0e00 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD4,=D'98'«, t00=0x0008, t01=0x0168}
0x0e00…0e14 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0008, t01=0x0184}
0x0e14…0e3e Head {h00=0x0026, h01=0x0050, text=» B SPER NOT FOUND, OVERFLOW/LENGTH«, t00=0x0009, t01=0x0008}
0x0e3e…0e4a Head {h00=0x0008, h01=0x0050, text=»SP50«, t00=0x0009, t01=0x0032}
0x0e4a…0e78 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR2,GSWSTR20 SAVE DELIMITER «, t00=0x0009, t01=0x003e}
0x0e78…0eae Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN3,GSWBIN2 POINT AT POS WHERE MATCH«, t00=0x0009, t01=0x006c}
0x0eae…0ee2 Head {h00=0x0030, h01=0x0050, text=» SUB GSWBIN3,GSWBIN1 - STARTPOS GIVES LENGTH«, t00=0x0009, t01=0x00a2}
0x0ee2…0f0e Head {h00=0x0028, h01=0x0050, text=» MOVE SAVEF(GSWBIN7,GSWBIN8),BINULL «, t00=0x0009, t01=0x00d6}
0x0f0e…0f2c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,BINULL «, t00=0x0009, t01=0x0102}
0x0f2c…0f60 Head {h00=0x0030, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,GSWBIN3,TEDBUF,GSWBIN1«, t00=0x0009, t01=0x0120}
0x0f60…0f8e Head {h00=0x002a, h01=0x0050, text=» MOVE SAVEF(GSWBIN7,GSWBIN8),GSWSTR20 «, t00=0x0009, t01=0x0154}
0x0f8e…0fba Head {h00=0x0028, h01=0x0050, text=» MOVE FIELD(GSWBIN7,GSWBIN8),GSWSTR3«, t00=0x0009, t01=0x0182}
0x0fba…0ff2 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBIN1,GSWBIN2 SAVE FOR NEW DISPLACEMENT «, t00=0x000a, t01=0x001e}
0x0ff2…101e Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN1,CBIN1 BYPASS DELIMITER «, t00=0x000a, t01=0x0056}
0x101e…103e Head {h00=0x001c, h01=0x0050, text=» CBE GSWSTR2,STR7F,SP70 «, t00=0x000a, t01=0x0082}
0x103e…1064 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN8,CBIN1 NEXT ENTRY «, t00=0x000a, t01=0x00a2}
0x1064…108e Head {h00=0x0026, h01=0x0050, text=» CBL GSWBIN8,CBIN5,SP60 NEW LINE? «, t00=0x000a, t01=0x00c8}
0x108e…10b8 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN8,CBIN1 FIRST ON LINE «, t00=0x000a, t01=0x00f2}
0x10b8…10dc Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN7,CBIN1 NEW LINE «, t00=0x000a, t01=0x011c}
0x10dc…10e8 Head {h00=0x0008, h01=0x0050, text=»SP60«, t00=0x000a, t01=0x0140}
0x10e8…1108 Head {h00=0x001c, h01=0x0050, text=» CBE GSWSTR2,STR25,SP10 «, t00=0x000a, t01=0x014c}
0x1108…1128 Head {h00=0x001c, h01=0x0050, text=» CBE GSWSTR2,='&&',SP30 «, t00=0x000a, t01=0x016c}
0x1128…1134 Head {h00=0x0008, h01=0x0050, text=»SP70«, t00=0x000a, t01=0x018c}
0x1134…1148 Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ1 «, t00=0x000b, t01=0x0008}
0x1148…115c Head {h00=0x0010, h01=0x0050, text=» SET CPRFLAG«, t00=0x000b, t01=0x001c}
0x115c…1170 Head {h00=0x0010, h01=0x0050, text=» PERF ATTHD1«, t00=0x000b, t01=0x0030}
0x1170…1184 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x000b, t01=0x0044}
0x1184…119e Head {h00=0x0016, h01=0x0050, text=» MOVE CPRNR,=D'0' «, t00=0x000b, t01=0x0058}
0x119e…11b2 Head {h00=0x0010, h01=0x0050, text=» PERF CLRINQ«, t00=0x000b, t01=0x0072}
0x11b2…11cc Head {h00=0x0016, h01=0x0050, text=» TBT CHFLAG,SPRET «, t00=0x000b, t01=0x0086}
0x11cc…11dc Head {h00=0x000c, h01=0x0050, text=» B SP00 «, t00=0x000b, t01=0x00a0}
0x11dc…11ea Head {h00=0x000a, h01=0x0050, text=»SPER6 «, t00=0x000b, t01=0x00b0}
0x11ea…11fc Head {h00=0x000e, h01=0x0050, text=» CLEAR OBS«, t00=0x000b, t01=0x00be}
0x11fc…1210 Head {h00=0x0010, h01=0x0050, text=» PERF CLRINQ«, t00=0x000b, t01=0x00d0}
0x1210…121e Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x000b, t01=0x00e4}
0x121e…122c Head {h00=0x000a, h01=0x0050, text=»SPER4 «, t00=0x000b, t01=0x00f2}
0x122c…1240 Head {h00=0x0010, h01=0x0050, text=» PERF CLRINQ«, t00=0x000b, t01=0x0100}
0x1240…124e Head {h00=0x000a, h01=0x0050, text=» RET 4«, t00=0x000b, t01=0x0114}
0x124e…125c Head {h00=0x000a, h01=0x0050, text=»SPRET «, t00=0x000b, t01=0x0122}
0x125c…126c Head {h00=0x000c, h01=0x0050, text=» SET OBS«, t00=0x000b, t01=0x0130}
0x126c…127a Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x000b, t01=0x0140}
0x127a…1286 Head {h00=0x0008, h01=0x0050, text=»SPER«, t00=0x000b, t01=0x014e}
0x1286…129a Head {h00=0x0010, h01=0x0050, text=» PERF CLRINQ«, t00=0x000b, t01=0x015a}
0x129a…12a6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x016e}
0x12a6…12b4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x017a}
0x12b4…12c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0188}
0x12c2…12d6 Head {h00=0x0010, h01=0x0050, text=»CLRINQ PROC «, t00=0x000c, t01=0x0008}
0x12d6…12ea Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ1 «, t00=0x000c, t01=0x001c}
0x12ea…12fe Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ2 «, t00=0x000c, t01=0x0030}
0x12fe…1312 Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ3 «, t00=0x000c, t01=0x0044}
0x1312…1328 Head {h00=0x0012, h01=0x0050, text=» CLEAR CPRFLAG«, t00=0x000c, t01=0x0058}
0x1328…1334 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x006e}
0x1334…1342 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x007a}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0088}
0x134c…1356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0092}
0x1356…1360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009c}
0x1360…13a4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000c, t01=0x00a6}
0x13a4…13ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13ae…13dc Head {h00=0x002a, h01=0x0050, text=»* CLRTST - CLEARING OF TESTSTRG «, t00=0x000c, t01=0x00f4}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0122}
0x13e6…142c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x000c, t01=0x012c}
0x142c…1434 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0172}
0x1434…1448 Head {h00=0x0010, h01=0x0050, text=»CLRTST PROC «, t00=0x000c, t01=0x017a}
0x1448…1464 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN12«, t00=0x000c, t01=0x018e}
0x1464…1480 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN4 «, t00=0x000d, t01=0x001a}
0x1480…148e Head {h00=0x000a, h01=0x0050, text=»CLRT10«, t00=0x000d, t01=0x0036}
0x148e…14b8 Head {h00=0x0026, h01=0x0050, text=» MOVE FIELD(GSWBIN1,GSWBIN2),=D'0'«, t00=0x000d, t01=0x0044}
0x14b8…14e4 Head {h00=0x0028, h01=0x0050, text=» MOVE SAVEF(GSWBIN1,GSWBIN2),BINULL «, t00=0x000d, t01=0x006e}
0x14e4…14fe Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN2,CBIN1«, t00=0x000d, t01=0x009a}
0x14fe…1512 Head {h00=0x0010, h01=0x0050, text=» BNZ CLRT10 «, t00=0x000d, t01=0x00b4}
0x1512…152e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN4 «, t00=0x000d, t01=0x00c8}
0x152e…1548 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x000d, t01=0x00e4}
0x1548…155c Head {h00=0x0010, h01=0x0050, text=» BNZ CLRT10 «, t00=0x000d, t01=0x00fe}
0x155c…1568 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0112}
0x1568…1576 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x011e}
0x1576…1584 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x012c}
0x1584…1596 Head {h00=0x000e, h01=0x0050, text=»PASS PROC «, t00=0x000d, t01=0x013a}
0x1596…15c0 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x000d, t01=0x014c}
0x15c0…15ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15ca…1600 Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE CHECKS THE USERS AUTHORIZATION«, t00=0x000d, t01=0x0180}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0026}
0x160a…1634 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x000e, t01=0x0030}
0x1634…1664 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,CBIN10 10 CHARS + EOI-KEY «, t00=0x000e, t01=0x005a}
0x1664…1682 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,PASSHEAD«, t00=0x000e, t01=0x008a}
0x1682…16b8 Head {h00=0x0032, h01=0x0050, text=» KI .NE,KEYB,GSWSTR20,SPKTAB2,GSWBIN1,GSWBIN2 «, t00=0x000e, t01=0x00a8}
0x16b8…16d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 «, t00=0x000e, t01=0x00de}
0x16d4…16e2 Head {h00=0x000a, h01=0x0050, text=»PASS10«, t00=0x000e, t01=0x00fa}
0x16e2…16fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x000e, t01=0x0108}
0x16fe…1742 Head {h00=0x0040, h01=0x0050, text=» MATCH KEYTAB(GSWBIN1),GSWBIN2,CBIN10,GSWSTR20,CBIN0,CBIN10 «, t00=0x000e, t01=0x0124}
0x1742…1756 Head {h00=0x0010, h01=0x0050, text=» BOK PASS90 «, t00=0x000e, t01=0x0168}
0x1756…1770 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x000e, t01=0x017c}
0x1770…1784 Head {h00=0x0010, h01=0x0050, text=» BNZ PASS10 «, t00=0x000f, t01=0x0008}
0x1784…179c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x000f, t01=0x001c}
0x179c…17a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0034}
0x17a8…17b6 Head {h00=0x000a, h01=0x0050, text=»PASS90«, t00=0x000f, t01=0x0040}
0x17b6…17ce Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000f, t01=0x004e}
0x17ce…17da Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0066}
0x17da…17e8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0072}
0x17e8…17f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f2…17fa Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x008a}
0x17fa…1802 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0092}
0x1802…1818 Head {h00=0x0012, h01=0x0050, text=»PASSHEAD FRMT «, t00=0x000f, t01=0x009a}
0x1818…1824 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000f, t01=0x00b0}
0x1824…184c Head {h00=0x0024, h01=0x0050, text=» FTEXT 'INDTAST IDENTIFIKATION' «, t00=0x000f, t01=0x00bc}
0x184c…185a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000f, t01=0x00e4}
0x185a…1868 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00f2}
0x1868…187c Head {h00=0x0010, h01=0x0050, text=»COPYDK PROC «, t00=0x000f, t01=0x0100}
0x187c…18b4 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x0114}
0x18b4…18be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014c}
0x18be…18f2 Head {h00=0x0030, h01=0x0050, text=»* COPYDK - THE PROCEDURE COPIES FD01 TO FD02«, t00=0x000f, t01=0x0156}
0x18f2…191e Head {h00=0x0028, h01=0x0050, text=»* UNTIL A SPECIAL EOF-RECORD IS MET.«, t00=0x000f, t01=0x018a}
0x191e…193c Head {h00=0x001a, h01=0x0050, text=»* THE EOF-MARK IS <**>«, t00=0x0010, t01=0x0026}
0x193c…1946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0044}
0x1946…1966 Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0010, t01=0x004e}
0x1966…1990 Head {h00=0x0026, h01=0x0050, text=»* 0 - RECORD DELIMITER NOT FOUND«, t00=0x0010, t01=0x006e}
0x1990…19aa Head {h00=0x0016, h01=0x0050, text=»* 2 - READ ERROR«, t00=0x0010, t01=0x0098}
0x19aa…19c6 Head {h00=0x0018, h01=0x0050, text=»* 4 - WRITE ERROR «, t00=0x0010, t01=0x00b2}
0x19c6…19dc Head {h00=0x0012, h01=0x0050, text=»* 6 - NORMAL«, t00=0x0010, t01=0x00ce}
0x19dc…19e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e4}
0x19e6…1a1e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0010, t01=0x00ee}
0x1a1e…1a36 Head {h00=0x0014, h01=0x0050, text=» ATTFMT COPYFRM1«, t00=0x0010, t01=0x0126}
0x1a36…1a50 Head {h00=0x0016, h01=0x0050, text=» MOVE CPRNR,=C'0' «, t00=0x0010, t01=0x013e}
0x1a50…1a64 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0010, t01=0x0158}
0x1a64…1a86 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN3,COPY01C«, t00=0x0010, t01=0x016c}
0x1a86…1a98 Head {h00=0x000e, h01=0x0050, text=» B COPY98A«, t00=0x0010, t01=0x018e}
0x1a98…1aa8 Head {h00=0x000c, h01=0x0050, text=»COPY01C «, t00=0x0011, t01=0x0010}
0x1aa8…1ac4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPLITBIN,BCDWK«, t00=0x0011, t01=0x0020}
0x1ac4…1ad8 Head {h00=0x0010, h01=0x0050, text=» CLEAR FULL «, t00=0x0011, t01=0x003c}
0x1ad8…1b04 Head {h00=0x0028, h01=0x0050, text=» IB SPLITBIN,COPY01B,COPY02,COPY01B «, t00=0x0011, t01=0x0050}
0x1b04…1b20 Head {h00=0x0018, h01=0x0050, text=» MOVE SPLITBIN,CBIN1«, t00=0x0011, t01=0x007c}
0x1b20…1b30 Head {h00=0x000c, h01=0x0050, text=»COPY01B «, t00=0x0011, t01=0x0098}
0x1b30…1b4c Head {h00=0x0018, h01=0x0050, text=» TBF CRKCOPY,COPY98A«, t00=0x0011, t01=0x00a8}
0x1b4c…1b62 Head {h00=0x0012, h01=0x0050, text=» CLEAR CRKCOPY«, t00=0x0011, t01=0x00c4}
0x1b62…1b7a Head {h00=0x0014, h01=0x0050, text=» PERF ASG,CBIN2 «, t00=0x0011, t01=0x00da}
0x1b7a…1b90 Head {h00=0x0012, h01=0x0050, text=» BNOK COPY98BA«, t00=0x0011, t01=0x00f2}
0x1b90…1bac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN13«, t00=0x0011, t01=0x0108}
0x1bac…1bbe Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0011, t01=0x0124}
0x1bbe…1bd4 Head {h00=0x0012, h01=0x0050, text=» BNOK COPY98B «, t00=0x0011, t01=0x0136}
0x1bd4…1be2 Head {h00=0x000a, h01=0x0050, text=»COPY02«, t00=0x0011, t01=0x014c}
0x1be2…1bfe Head {h00=0x0018, h01=0x0050, text=» MOVE RECIX,STARTIX «, t00=0x0011, t01=0x015a}
0x1bfe…1c1a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN9 «, t00=0x0011, t01=0x0176}
0x1c1a…1c28 (18, 0, 400) Head {h00=0x000a, h01=0x0050, text=»COPY03«, t00=0x0012, t01=0x0004}
0x1c28…1c4c Head {h00=0x0020, h01=0x0050, text=» MOVE CPRKEY(GSWBIN3),=C'0' «, t00=0x0012, t01=0x0012}
0x1c4c…1c6e Head {h00=0x001e, h01=0x0050, text=» MOVE CPRIX(GSWBIN3),=D'0'«, t00=0x0012, t01=0x0036}
0x1c6e…1c88 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN3,CBIN1«, t00=0x0012, t01=0x0058}
0x1c88…1caa Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN3,CBIN0,COPY03«, t00=0x0012, t01=0x0072}
0x1caa…1cc4 Head {h00=0x0016, h01=0x0050, text=» MOVE CPRNR,=D'0' «, t00=0x0012, t01=0x0094}
0x1cc4…1cde Head {h00=0x0016, h01=0x0050, text=» MOVE WORK5,=D'0' «, t00=0x0012, t01=0x00ae}
0x1cde…1cfa Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,=W'26'«, t00=0x0012, t01=0x00c8}
0x1cfa…1d08 Head {h00=0x000a, h01=0x0050, text=»COPY06«, t00=0x0012, t01=0x00e4}
0x1d08…1d1c Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0012, t01=0x00f2}
0x1d1c…1d32 Head {h00=0x0012, h01=0x0050, text=» BNOK COPY98B «, t00=0x0012, t01=0x0106}
0x1d32…1d4e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,TEDBUF«, t00=0x0012, t01=0x011c}
0x1d4e…1d84 Head {h00=0x0032, h01=0x0050, text=»* FURTHER ACTION DEPENDS ON VALUE IN SPLITBIN «, t00=0x0012, t01=0x0138}
0x1d84…1dbe Head {h00=0x0036, h01=0x0050, text=»* 1 - STANDARD, EVERYTHING COPIED, INDEXFILE BUILT«, t00=0x0012, t01=0x016e}
0x1dbe…1de0 Head {h00=0x001e, h01=0x0050, text=»* 2 - BUILD INDEXFILE ONLY«, t00=0x0013, t01=0x0018}
0x1de0…1e0e Head {h00=0x002a, h01=0x0050, text=»* 3 - EVERYTHING COPIED, NO INDEXFILE «, t00=0x0013, t01=0x003a}
0x1e0e…1e48 Head {h00=0x0036, h01=0x0050, text=» CBL GSWSTR2,=C'00',COPY08 COPY HEADER/END-RECORD «, t00=0x0013, t01=0x0068}
0x1e48…1e6a Head {h00=0x001e, h01=0x0050, text=» CBG GSWSTR2,=C'99',COPY08«, t00=0x0013, t01=0x00a2}
0x1e6a…1e8c Head {h00=0x001e, h01=0x0050, text=» CBE SPLITBIN,CBIN3,COPY08«, t00=0x0013, t01=0x00c4}
0x1e8c…1ea8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,=C'&' «, t00=0x0013, t01=0x00e6}
0x1ea8…1ec4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0013, t01=0x0102}
0x1ec4…1efc Head {h00=0x0034, h01=0x0050, text=» MATCH TEDBUF,GSWBIN1,CBIN10,GSWSTR2,CBIN0,CBIN1«, t00=0x0013, t01=0x011e}
0x1efc…1f26 Head {h00=0x0026, h01=0x0050, text=» BOK COPY08 SAME CPRNR, NO ACTION «, t00=0x0013, t01=0x0156}
0x1f26…1f40 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN1«, t00=0x0013, t01=0x0180}
0x1f40…1f5c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=' ' «, t00=0x0014, t01=0x000a}
0x1f5c…1f8c Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN10,TEDBUF,CBIN0«, t00=0x0014, t01=0x0026}
0x1f8c…1fb2 Head {h00=0x0022, h01=0x0050, text=» MOVE CPRKEY(GSWBIN3),GSWSTR20«, t00=0x0014, t01=0x0056}
0x1fb2…1fd0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTRECNR «, t00=0x0014, t01=0x007c}
0x1fd0…1fea Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD3,=D'1'«, t00=0x0014, t01=0x009a}
0x1fea…200e Head {h00=0x0020, h01=0x0050, text=» MOVE CPRIX(GSWBIN3),GSWBCD3«, t00=0x0014, t01=0x00b4}
0x200e…201c Head {h00=0x000a, h01=0x0050, text=»COPY08«, t00=0x0014, t01=0x00d8}
0x201c…203e Head {h00=0x001e, h01=0x0050, text=» CBE SPLITBIN,CBIN2,COPY15«, t00=0x0014, t01=0x00e6}
0x203e…206a Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,CBIN11 SEQ. WRITE FD02«, t00=0x0014, t01=0x0108}
0x206a…207c Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0014, t01=0x0134}
0x207c…2092 Head {h00=0x0012, h01=0x0050, text=» BNOK COPY98C «, t00=0x0014, t01=0x0146}
0x2092…20aa Head {h00=0x0014, h01=0x0050, text=» ADD WORK5,=D'1'«, t00=0x0014, t01=0x015c}
0x20aa…20b8 Head {h00=0x000a, h01=0x0050, text=»COPY15«, t00=0x0014, t01=0x0174}
0x20b8…20da Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN3,CBIN9,COPY17 «, t00=0x0014, t01=0x0182}
0x20da…2104 Head {h00=0x0026, h01=0x0050, text=» IB SPLITBIN,COPY16,COPY16,COPY17 «, t00=0x0015, t01=0x0014}
0x2104…2112 Head {h00=0x000a, h01=0x0050, text=»COPY16«, t00=0x0015, t01=0x003e}
0x2112…2130 Head {h00=0x001a, h01=0x0050, text=»* WRITE INDEX ON FD01 «, t00=0x0015, t01=0x004c}
0x2130…2144 Head {h00=0x0010, h01=0x0050, text=» PERF IXWRIT«, t00=0x0015, t01=0x006a}
0x2144…2162 Head {h00=0x001a, h01=0x0050, text=» B COPY98C WRITE ERROR«, t00=0x0015, t01=0x007e}
0x2162…2180 Head {h00=0x001a, h01=0x0050, text=» B COPY98B READ ERROR «, t00=0x0015, t01=0x009c}
0x2180…218e Head {h00=0x000a, h01=0x0050, text=»COPY07«, t00=0x0015, t01=0x00ba}
0x218e…21b2 Head {h00=0x0020, h01=0x0050, text=» MOVE CPRKEY(GSWBIN3),=C'0' «, t00=0x0015, t01=0x00c8}
0x21b2…21d4 Head {h00=0x001e, h01=0x0050, text=» MOVE CPRIX(GSWBIN3),=D'0'«, t00=0x0015, t01=0x00ec}
0x21d4…21ee Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN3,CBIN1«, t00=0x0015, t01=0x010e}
0x21ee…2210 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN3,CBIN0,COPY07«, t00=0x0015, t01=0x0128}
0x2210…221e Head {h00=0x000a, h01=0x0050, text=»COPY17«, t00=0x0015, t01=0x014a}
0x221e…2242 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWSTR2,=C'**',COPY06 «, t00=0x0015, t01=0x0158}
0x2242…224c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x224c…226e Head {h00=0x001e, h01=0x0050, text=» CBE SPLITBIN,CBIN3,COPY98«, t00=0x0015, t01=0x0186}
0x226e…2282 Head {h00=0x0010, h01=0x0050, text=» PERF IXWRIT«, t00=0x0016, t01=0x0018}
0x2282…22a0 Head {h00=0x001a, h01=0x0050, text=» B COPY98C WRITE ERROR«, t00=0x0016, t01=0x002c}
0x22a0…22be Head {h00=0x001a, h01=0x0050, text=» B COPY98B READ ERROR «, t00=0x0016, t01=0x004a}
0x22be…22e0 Head {h00=0x001e, h01=0x0050, text=» MOVE CPRKEY(CBIN1),=C'0' «, t00=0x0016, t01=0x0068}
0x22e0…2300 Head {h00=0x001c, h01=0x0050, text=» MOVE CPRIX(CBIN1),=D'0'«, t00=0x0016, t01=0x008a}
0x2300…2314 Head {h00=0x0010, h01=0x0050, text=» PERF IXWRIT«, t00=0x0016, t01=0x00aa}
0x2314…2326 Head {h00=0x000e, h01=0x0050, text=» B COPY98C«, t00=0x0016, t01=0x00be}
0x2326…2338 Head {h00=0x000e, h01=0x0050, text=» B COPY98B«, t00=0x0016, t01=0x00d0}
0x2338…235c Head {h00=0x0020, h01=0x0050, text=»* LAST INDEX RECORD WRITTEN «, t00=0x0016, t01=0x00e2}
0x235c…236a Head {h00=0x000a, h01=0x0050, text=»COPY98«, t00=0x0016, t01=0x0106}
0x236a…2382 Head {h00=0x0014, h01=0x0050, text=» ATTFMT COPYFRM2«, t00=0x0016, t01=0x0114}
0x2382…2396 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0016, t01=0x012c}
0x2396…23ba Head {h00=0x0020, h01=0x0050, text=» CBE SPLITBIN,CBIN2,COPY98A «, t00=0x0016, t01=0x0140}
0x23ba…23e2 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 UNLOAD FD02 «, t00=0x0016, t01=0x0164}
0x23e2…23f4 Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0016, t01=0x018c}
0x23f4…240a Head {h00=0x0012, h01=0x0050, text=» BNOK COPY98B «, t00=0x0017, t01=0x000e}
0x240a…241e Head {h00=0x0010, h01=0x0050, text=» SET CRKCOPY«, t00=0x0017, t01=0x0024}
0x241e…242e Head {h00=0x000c, h01=0x0050, text=»COPY98A «, t00=0x0017, t01=0x0038}
0x242e…243c Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x0017, t01=0x0048}
0x243c…244c Head {h00=0x000c, h01=0x0050, text=»COPY98B «, t00=0x0017, t01=0x0056}
0x244c…2470 Head {h00=0x0020, h01=0x0050, text=» CBE SPLITBIN,CBIN2,COPY98BA«, t00=0x0017, t01=0x0066}
0x2470…2498 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 UNLOAD FD02 «, t00=0x0017, t01=0x008a}
0x2498…24aa Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0017, t01=0x00b2}
0x24aa…24c8 Head {h00=0x001a, h01=0x0050, text=» SET CRKCOPY REL FD02 «, t00=0x0017, t01=0x00c4}
0x24c8…24d8 Head {h00=0x000c, h01=0x0050, text=»COPY98BA«, t00=0x0017, t01=0x00e2}
0x24d8…24e6 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0017, t01=0x00f2}
0x24e6…24f6 Head {h00=0x000c, h01=0x0050, text=»COPY98C «, t00=0x0017, t01=0x0100}
0x24f6…251a Head {h00=0x0020, h01=0x0050, text=» CBE SPLITBIN,CBIN2,COPY98CA«, t00=0x0017, t01=0x0110}
0x251a…2542 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 UNLOAD FD02 «, t00=0x0017, t01=0x0134}
0x2542…2554 Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0017, t01=0x015c}
0x2554…2568 Head {h00=0x0010, h01=0x0050, text=» SET CRKCOPY«, t00=0x0017, t01=0x016e}
0x2568…2578 Head {h00=0x000c, h01=0x0050, text=»COPY98CA«, t00=0x0017, t01=0x0182}
0x2578…2586 (24, 0, 398) Head {h00=0x000a, h01=0x0050, text=» RET 4«, t00=0x0018, t01=0x0004}
0x2586…2594 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0012}
0x2594…25a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0020}
0x25a2…25b6 Head {h00=0x0010, h01=0x0050, text=»IXWRIT PROC «, t00=0x0018, t01=0x002e}
0x25b6…25f2 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0018, t01=0x0042}
0x25f2…2616 Head {h00=0x0020, h01=0x0050, text=»* IXWRIT - WRITE INDEXRECORD«, t00=0x0018, t01=0x007e}
0x2616…2638 Head {h00=0x001e, h01=0x0050, text=»* RETURN UPON COMPLETION: «, t00=0x0018, t01=0x00a2}
0x2638…2654 Head {h00=0x0018, h01=0x0050, text=»* 0 - WRITE ERROR «, t00=0x0018, t01=0x00c4}
0x2654…266e Head {h00=0x0016, h01=0x0050, text=»* 2 - READ ERROR«, t00=0x0018, t01=0x00e0}
0x266e…2684 Head {h00=0x0012, h01=0x0050, text=»* 4 - NORMAL«, t00=0x0018, t01=0x00fa}
0x2684…26c0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0018, t01=0x0110}
0x26c0…26cc Head {h00=0x0008, h01=0x0050, text=»IX00«, t00=0x0018, t01=0x014c}
0x26cc…270a Head {h00=0x003a, h01=0x0050, text=»* CHECK AND SEE IF **<KMNR> WAS WRITTEN IN THIS RECORD«, t00=0x0018, t01=0x0158}
0x270a…2734 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN7,GTRECNR SAVE GTRECNR«, t00=0x0019, t01=0x0008}
0x2734…2756 Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,SCREEN,COPYFRM4«, t00=0x0019, t01=0x0032}
0x2756…2772 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0019, t01=0x0054}
0x2772…278e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN2 «, t00=0x0019, t01=0x0070}
0x278e…27aa Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,=C'IX '«, t00=0x0019, t01=0x008c}
0x27aa…27d2 Head {h00=0x0024, h01=0x0050, text=»IX10 EDSUB TEDBUF,GSWBIN5,IXFRMT«, t00=0x0019, t01=0x00a8}
0x27d2…27ec Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0019, t01=0x00d0}
0x27ec…280c Head {h00=0x001c, h01=0x0050, text=» CBNG GSWBIN4,CBIN9,IX10«, t00=0x0019, t01=0x00ea}
0x280c…2828 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,RECIX «, t00=0x0019, t01=0x010a}
0x2828…2844 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN15«, t00=0x0019, t01=0x0126}
0x2844…2858 Head {h00=0x0010, h01=0x0050, text=» WAIT SCREEN«, t00=0x0019, t01=0x0142}
0x2858…286a Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0019, t01=0x0156}
0x286a…287c Head {h00=0x000e, h01=0x0050, text=» BNOK IX50«, t00=0x0019, t01=0x0168}
0x287c…28b0 Head {h00=0x0030, h01=0x0050, text=» SUB RECFREE,CBIN1 ADJUST FOR WRITTEN INDEX «, t00=0x0019, t01=0x017a}
0x28b0…28d4 Head {h00=0x0020, h01=0x0050, text=» SUB RECIX,CBIN1 COUNT DOWN «, t00=0x001a, t01=0x001e}
0x28d4…2902 Head {h00=0x002a, h01=0x0050, text=» MOVE GTRECNR,GSWBIN7 RESTORE POINTER «, t00=0x001a, t01=0x0042}
0x2902…292c Head {h00=0x0026, h01=0x0050, text=» RET 4 NORMAL, + NO INDEX WRITING «, t00=0x001a, t01=0x0070}
0x292c…293e Head {h00=0x000e, h01=0x0050, text=»IX40 RET 2«, t00=0x001a, t01=0x009a}
0x293e…294e Head {h00=0x000c, h01=0x0050, text=»IX50 RET«, t00=0x001a, t01=0x00ac}
0x294e…295c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x00bc}
0x295c…296a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00ca}
0x296a…297c Head {h00=0x000e, h01=0x0050, text=»LOD1 PROC «, t00=0x001a, t01=0x00d8}
0x297c…2984 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00ea}
0x2984…29b0 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x001a, t01=0x00f2}
0x29b0…29d6 Head {h00=0x0022, h01=0x0050, text=»* ASK FOR NORMAL OR CONT. REG.«, t00=0x001a, t01=0x011e}
0x29d6…2a08 Head {h00=0x002e, h01=0x0050, text=»* IF NORMAL, THEN WRITE HDR1,KMDINF AFTER «, t00=0x001a, t01=0x0144}
0x2a08…2a26 Head {h00=0x001a, h01=0x0050, text=»* CHECK FOR EMPTY DISK«, t00=0x001a, t01=0x0176}
0x2a26…2a38 (27, 0, 400) Head {h00=0x000e, h01=0x0050, text=»* ELSE«, t00=0x001b, t01=0x0004}
0x2a38…2a52 Head {h00=0x0016, h01=0x0050, text=»* DELETE INDEXFILE«, t00=0x001b, t01=0x0016}
0x2a52…2a6a Head {h00=0x0014, h01=0x0050, text=»* RETURNPOINTS: «, t00=0x001b, t01=0x0030}
0x2a6a…2a7c Head {h00=0x000e, h01=0x0050, text=»* 0 - MAK «, t00=0x001b, t01=0x0048}
0x2a7c…2a9a Head {h00=0x001a, h01=0x0050, text=»* 2 - READ/WRITE ERROR«, t00=0x001b, t01=0x005a}
0x2a9a…2ab4 Head {h00=0x0016, h01=0x0050, text=»* 4 - ASSIGN ERROR«, t00=0x001b, t01=0x0078}
0x2ab4…2ac8 Head {h00=0x0010, h01=0x0050, text=»* 6 - NORMAL«, t00=0x001b, t01=0x0092}
0x2ac8…2af4 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x001b, t01=0x00a6}
0x2af4…2b02 Head {h00=0x000a, h01=0x0050, text=»LOD110«, t00=0x001b, t01=0x00d2}
0x2b02…2b1e Head {h00=0x0018, h01=0x0050, text=» MOVE GTANTAL,=D'0' «, t00=0x001b, t01=0x00e0}
0x2b1e…2b38 Head {h00=0x0016, h01=0x0050, text=» MOVE BCDWK,=D'0' «, t00=0x001b, t01=0x00fc}
0x2b38…2b4e Head {h00=0x0012, h01=0x0050, text=» ATTFMT HEAD3 «, t00=0x001b, t01=0x0116}
0x2b4e…2b62 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x001b, t01=0x012c}
0x2b62…2b8a Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,LOD110,LOD111,LOD115«, t00=0x001b, t01=0x0140}
0x2b8a…2b9c Head {h00=0x000e, h01=0x0050, text=» B LOD110 «, t00=0x001b, t01=0x0168}
0x2b9c…2baa Head {h00=0x000a, h01=0x0050, text=»LOD115«, t00=0x001b, t01=0x017a}
0x2baa…2bc8 Head {h00=0x001a, h01=0x0050, text=» CBE BCDWK,=D'1',NORM «, t00=0x001b, t01=0x0188}
0x2bc8…2be6 Head {h00=0x001a, h01=0x0050, text=» CBE BCDWK,=D'2',CONT «, t00=0x001c, t01=0x0016}
0x2be6…2bf8 Head {h00=0x000e, h01=0x0050, text=» B LOD110 «, t00=0x001c, t01=0x0034}
0x2bf8…2c04 Head {h00=0x0008, h01=0x0050, text=»NORM«, t00=0x001c, t01=0x0046}
0x2c04…2c34 Head {h00=0x002c, h01=0x0050, text=»* INIT OF FNAME FOR FORSKUDSREGISTRERING«, t00=0x001c, t01=0x0052}
0x2c34…2c4e Head {h00=0x0016, h01=0x0050, text=» MOVE WORK12,YEAR «, t00=0x001c, t01=0x0082}
0x2c4e…2c7c Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN1,GTANTAL SLUT/FORSKUD/LON«, t00=0x001c, t01=0x009c}
0x2c7c…2ca2 Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,LAB10,LAB20,LAB30 «, t00=0x001c, t01=0x00ca}
0x2ca2…2cb4 Head {h00=0x000e, h01=0x0050, text=» B LOD110 «, t00=0x001c, t01=0x00f0}
0x2cb4…2cd0 Head {h00=0x0018, h01=0x0050, text=»LAB10 SLUTLIGNING «, t00=0x001c, t01=0x0102}
0x2cd0…2cec Head {h00=0x0018, h01=0x0050, text=» MOVE CDSNAME,FRAAK «, t00=0x001c, t01=0x011e}
0x2cec…2d02 Head {h00=0x0012, h01=0x0050, text=» CLEAR FORSKUD«, t00=0x001c, t01=0x013a}
0x2d02…2d18 Head {h00=0x0012, h01=0x0050, text=» CLEAR LONOPL «, t00=0x001c, t01=0x0150}
0x2d18…2d28 Head {h00=0x000c, h01=0x0050, text=» B LAB40«, t00=0x001c, t01=0x0166}
0x2d28…2d36 Head {h00=0x000a, h01=0x0050, text=»LAB20 «, t00=0x001c, t01=0x0176}
0x2d36…2d52 Head {h00=0x0018, h01=0x0050, text=» TBF OPTION1,LOD111 «, t00=0x001c, t01=0x0184}
0x2d52…2d66 Head {h00=0x0010, h01=0x0050, text=» SET FORSKUD«, t00=0x001d, t01=0x0010}
0x2d66…2d7a Head {h00=0x0010, h01=0x0050, text=» CLEAR SLUTL«, t00=0x001d, t01=0x0024}
0x2d7a…2d90 Head {h00=0x0012, h01=0x0050, text=» CLEAR LONOPL «, t00=0x001d, t01=0x0038}
0x2d90…2dac Head {h00=0x0018, h01=0x0050, text=» MOVE CDSNAME,FFORSK«, t00=0x001d, t01=0x004e}
0x2dac…2dbc Head {h00=0x000c, h01=0x0050, text=» B LAB40«, t00=0x001d, t01=0x006a}
0x2dbc…2dca Head {h00=0x000a, h01=0x0050, text=»LAB30 «, t00=0x001d, t01=0x007a}
0x2dca…2de6 Head {h00=0x0018, h01=0x0050, text=» TBF OPTION2,LOD111 «, t00=0x001d, t01=0x0088}
0x2de6…2dfa Head {h00=0x0010, h01=0x0050, text=» SET LONOPL «, t00=0x001d, t01=0x00a4}
0x2dfa…2e10 Head {h00=0x0012, h01=0x0050, text=» CLEAR FORSKUD«, t00=0x001d, t01=0x00b8}
0x2e10…2e24 Head {h00=0x0010, h01=0x0050, text=» CLEAR SLUTL«, t00=0x001d, t01=0x00ce}
0x2e24…2e42 Head {h00=0x001a, h01=0x0050, text=» MOVE CDSNAME,FLONOPL «, t00=0x001d, t01=0x00e2}
0x2e42…2e50 Head {h00=0x000a, h01=0x0050, text=»LAB40 «, t00=0x001d, t01=0x0100}
0x2e50…2e68 Head {h00=0x0014, h01=0x0050, text=» PERF ASG,CBIN1 «, t00=0x001d, t01=0x010e}
0x2e68…2e7c Head {h00=0x0010, h01=0x0050, text=» BNOK LOD113«, t00=0x001d, t01=0x0126}
0x2e7c…2e8e Head {h00=0x000e, h01=0x0050, text=» PERF INIT«, t00=0x001d, t01=0x013a}
0x2e8e…2eb0 Head {h00=0x001e, h01=0x0050, text=» B LOD113 READ/WRITE ERROR«, t00=0x001d, t01=0x014c}
0x2eb0…2ec6 Head {h00=0x0012, h01=0x0050, text=» B LOD114 MAK «, t00=0x001d, t01=0x016e}
0x2ec6…2ed6 Head {h00=0x000c, h01=0x0050, text=» B LODOK«, t00=0x001d, t01=0x0184}
0x2ed6…2ee2 (30, 0, 400) Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x001e, t01=0x0004}
0x2ee2…2ef6 Head {h00=0x0010, h01=0x0050, text=» PERF RKASSG«, t00=0x001e, t01=0x0010}
0x2ef6…2f10 Head {h00=0x0016, h01=0x0050, text=» BNOK LOD112 ERROR«, t00=0x001e, t01=0x0024}
0x2f10…2f20 Head {h00=0x000c, h01=0x0050, text=» B LODOK«, t00=0x001e, t01=0x003e}
0x2f20…2f34 Head {h00=0x0010, h01=0x0050, text=»LOD112 RET 2«, t00=0x001e, t01=0x004e}
0x2f34…2f48 Head {h00=0x0010, h01=0x0050, text=»LOD113 RET 4«, t00=0x001e, t01=0x0062}
0x2f48…2f6a Head {h00=0x001e, h01=0x0050, text=»LOD114 MOVE GSWBIN5,CBIN3 «, t00=0x001e, t01=0x0076}
0x2f6a…2f84 Head {h00=0x0016, h01=0x0050, text=» PERF DKIO UNLOAD «, t00=0x001e, t01=0x0098}
0x2f84…2f98 Head {h00=0x0010, h01=0x0050, text=» BNOK LOD112«, t00=0x001e, t01=0x00b2}
0x2f98…2fa6 Head {h00=0x000a, h01=0x0050, text=»LOD111«, t00=0x001e, t01=0x00c6}
0x2fa6…2fb2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00d4}
0x2fb2…2fc0 Head {h00=0x000a, h01=0x0050, text=»LODOK «, t00=0x001e, t01=0x00e0}
0x2fc0…2fd4 Head {h00=0x0010, h01=0x0050, text=» SET CRKKLAR«, t00=0x001e, t01=0x00ee}
0x2fd4…2fe2 Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x001e, t01=0x0102}
0x2fe2…2ff0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x0110}
0x2ff0…2ffe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x011e}
0x2ffe…3010 Head {h00=0x000e, h01=0x0050, text=»INIT PROC «, t00=0x001e, t01=0x012c}
0x3010…303c Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x001e, t01=0x013e}
0x303c…3046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x016a}
0x3046…3072 Head {h00=0x0028, h01=0x0050, text=»* INIT - PREPARE FOR OUTPUT ON FD01.«, t00=0x001e, t01=0x0174}
0x3072…308c Head {h00=0x0016, h01=0x0050, text=»* CALL - PERF INIT«, t00=0x001f, t01=0x0010}
0x308c…3096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002a}
0x3096…30c2 Head {h00=0x0028, h01=0x0050, text=»* THE DISC IS POSITIONED TO TRACK 1 «, t00=0x001f, t01=0x0034}
0x30c2…30f0 Head {h00=0x002a, h01=0x0050, text=»* AND VARIOUS WORKFIELDS ARE INITIATED«, t00=0x001f, t01=0x0060}
0x30f0…311a Head {h00=0x0026, h01=0x0050, text=»* THE FIRST INDEXRECORD IS DELETED«, t00=0x001f, t01=0x008e}
0x311a…3138 Head {h00=0x001a, h01=0x0050, text=»* 0 - READ/WRITE ERROR«, t00=0x001f, t01=0x00b8}
0x3138…314a Head {h00=0x000e, h01=0x0050, text=»* 2 - MAK «, t00=0x001f, t01=0x00d6}
0x314a…315a Head {h00=0x000c, h01=0x0050, text=»* 4 - OK«, t00=0x001f, t01=0x00e8}
0x315a…3164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f8}
0x3164…3192 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001f, t01=0x0102}
0x3192…31bc Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN5,CBIN5 READ KMDHEADER«, t00=0x001f, t01=0x0130}
0x31bc…31d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,=W'26'«, t00=0x001f, t01=0x015a}
0x31d8…31ea Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x001f, t01=0x0176}
0x31ea…31fe Head {h00=0x0010, h01=0x0050, text=» BNOK INI50 «, t00=0x001f, t01=0x0188}
0x31fe…321a Head {h00=0x0018, h01=0x0050, text=» MOVE GTSTRFMT,=C' '«, t00=0x0020, t01=0x000c}
0x321a…324a Head {h00=0x002c, h01=0x0050, text=» COPY GTSTRFMT,CBIN0,CBIN6,TEDBUF,CBIN7 «, t00=0x0020, t01=0x0028}
0x324a…3260 Head {h00=0x0012, h01=0x0050, text=» ATTFMT KMDHDR«, t00=0x0020, t01=0x0058}
0x3260…3274 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0020, t01=0x006e}
0x3274…3294 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW2,CBIN2,INI95«, t00=0x0020, t01=0x0082}
0x3294…32a2 Head {h00=0x000a, h01=0x0050, text=»INI40 «, t00=0x0020, t01=0x00a2}
0x32a2…32bc Head {h00=0x0016, h01=0x0050, text=» MOVE ENDREC,CBIN0«, t00=0x0020, t01=0x00b0}
0x32bc…32d8 Head {h00=0x0018, h01=0x0050, text=» MOVE RECFREE,MAXREC«, t00=0x0020, t01=0x00ca}
0x32d8…32f4 Head {h00=0x0018, h01=0x0050, text=» MOVE RECUSE,ENDREC «, t00=0x0020, t01=0x00e6}
0x32f4…3310 Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,BINULL «, t00=0x0020, t01=0x0102}
0x3310…332e Head {h00=0x001a, h01=0x0050, text=» EDIT TEDBUF,MASTCARD «, t00=0x0020, t01=0x011e}
0x332e…3342 Head {h00=0x0010, h01=0x0050, text=» PERF DKWRIT«, t00=0x0020, t01=0x013c}
0x3342…3356 Head {h00=0x0010, h01=0x0050, text=» BNOK INI50 «, t00=0x0020, t01=0x0150}
0x3356…3370 Head {h00=0x0016, h01=0x0050, text=» ADD GTRECNR,CBIN1«, t00=0x0020, t01=0x0164}
0x3370…338c Head {h00=0x0018, h01=0x0050, text=» EDIT TEDBUF,ENDCARD«, t00=0x0020, t01=0x017e}
0x338c…33a8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x0021, t01=0x000a}
0x33a8…33ba Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0021, t01=0x0026}
0x33ba…33ce Head {h00=0x0010, h01=0x0050, text=» BNOK INI50 «, t00=0x0021, t01=0x0038}
0x33ce…33ea Head {h00=0x0018, h01=0x0050, text=» EDIT TEDBUF,HDR1REC«, t00=0x0021, t01=0x004c}
0x33ea…3406 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,CBIN7 «, t00=0x0021, t01=0x0068}
0x3406…3432 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 WRITE HDR1 LABEL«, t00=0x0021, t01=0x0084}
0x3432…3444 Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0021, t01=0x00b0}
0x3444…3458 Head {h00=0x0010, h01=0x0050, text=» BNOK INI50 «, t00=0x0021, t01=0x00c2}
0x3458…3474 Head {h00=0x0018, h01=0x0050, text=»* DELETE INDEXRECORD«, t00=0x0021, t01=0x00d6}
0x3474…3492 Head {h00=0x001a, h01=0x0050, text=» MOVE GTRECNR,STARTIX «, t00=0x0021, t01=0x00f2}
0x3492…34ae Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN5 «, t00=0x0021, t01=0x0110}
0x34ae…34dc Head {h00=0x002a, h01=0x0050, text=» PERF DKIO READ FIRST RECORD OF INDEX «, t00=0x0021, t01=0x012c}
0x34dc…34f0 Head {h00=0x0010, h01=0x0050, text=» BNOK INI50 «, t00=0x0021, t01=0x015a}
0x34f0…350a Head {h00=0x0016, h01=0x0050, text=» MOVE TEDBUF,=C' '«, t00=0x0021, t01=0x016e}
0x350a…3526 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN15«, t00=0x0021, t01=0x0188}
0x3526…3538 Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0022, t01=0x0014}
0x3538…354c Head {h00=0x0010, h01=0x0050, text=» BNOK INI50 «, t00=0x0022, t01=0x0026}
0x354c…355a Head {h00=0x000a, h01=0x0050, text=» RET 4«, t00=0x0022, t01=0x003a}
0x355a…356c Head {h00=0x000e, h01=0x0050, text=»INI50 RET «, t00=0x0022, t01=0x0048}
0x356c…3580 Head {h00=0x0010, h01=0x0050, text=»INI95 RET 2 «, t00=0x0022, t01=0x005a}
0x3580…358e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x006e}
0x358e…359c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x007c}
0x359c…35a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008a}
0x35a6…35ec Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0022, t01=0x0094}
0x35ec…35f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00da}
0x35f6…361a Head {h00=0x0020, h01=0x0050, text=»* KTABS AND FORMATS«, t00=0x0022, t01=0x00e4}
0x361a…3624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0108}
0x3624…366a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0022, t01=0x0112}
0x366a…3674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0158}
0x3674…368e Head {h00=0x0016, h01=0x0050, text=»SPKTAB2 KTAB X'D1'«, t00=0x0022, t01=0x0162}
0x368e…3698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017c}
0x3698…36aa Head {h00=0x000e, h01=0x0050, text=»HEAD3 FRMT«, t00=0x0022, t01=0x0186}
0x36aa…36b6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0023, t01=0x0008}
0x36b6…36d6 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'SLUTLIGNING = 1'«, t00=0x0023, t01=0x0014}
0x36d6…36e2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x0034}
0x36e2…3702 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'FORSKUDSREG = 2'«, t00=0x0023, t01=0x0040}
0x3702…370e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x0060}
0x370e…372e Head {h00=0x001c, h01=0x0050, text=» FTEXT 'LONOPLYSING = 3'«, t00=0x0023, t01=0x006c}
0x372e…3752 Head {h00=0x0020, h01=0x0050, text=» FKI 20,ME,NUM,MINL=1,MAXL=1«, t00=0x0023, t01=0x008c}
0x3752…376c Head {h00=0x0016, h01=0x0050, text=» FMEL 'Z',GTANTAL «, t00=0x0023, t01=0x00b0}
0x376c…3778 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x00ca}
0x3778…3784 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x00d6}
0x3784…37be Head {h00=0x0036, h01=0x0050, text=» FTEXT 'ALM.REG. (INCL. SLETNING AF INDEXREG) = 1'«, t00=0x0023, t01=0x00e2}
0x37be…37ca Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x011c}
0x37ca…3804 Head {h00=0x0036, h01=0x0050, text=» FTEXT 'FORTSAT REGISTRERING = 2'«, t00=0x0023, t01=0x0128}
0x3804…3828 Head {h00=0x0020, h01=0x0050, text=» FKI 44,ME,NUM,MINL=1,MAXL=1«, t00=0x0023, t01=0x0162}
0x3828…3840 Head {h00=0x0014, h01=0x0050, text=» FMEL 'Z',BCDWK «, t00=0x0023, t01=0x0186}
0x3840…384e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x000e}
0x384e…3858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001c}
0x3858…3862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0026}
0x3862…388e Head {h00=0x0028, h01=0x0050, text=»MASTCARD FRMT FORMAT FOR HEADERCARD«, t00=0x0024, t01=0x0030}
0x388e…38a2 Head {h00=0x0010, h01=0x0050, text=» FILLR '<',2«, t00=0x0024, t01=0x005c}
0x38a2…38bc Head {h00=0x0016, h01=0x0050, text=» FMEL '999',RKKMNR«, t00=0x0024, t01=0x0070}
0x38bc…38d4 Head {h00=0x0014, h01=0x0050, text=» FMEL '99',YEAR «, t00=0x0024, t01=0x008a}
0x38d4…38f0 Head {h00=0x0018, h01=0x0050, text=» FMEL '999999',DATE «, t00=0x0024, t01=0x00a2}
0x38f0…390c Head {h00=0x0018, h01=0x0050, text=» FBF FORSKUD,MAST10 «, t00=0x0024, t01=0x00be}
0x390c…3922 Head {h00=0x0012, h01=0x0050, text=» FTEXT C'0050'«, t00=0x0024, t01=0x00da}
0x3922…3934 Head {h00=0x000e, h01=0x0050, text=» FB MAST20«, t00=0x0024, t01=0x00f0}
0x3934…3950 Head {h00=0x0018, h01=0x0050, text=»MAST10 FTEXT C'0070'«, t00=0x0024, t01=0x0102}
0x3950…396c Head {h00=0x0018, h01=0x0050, text=»MAST20 FILLR X'7F',1«, t00=0x0024, t01=0x011e}
0x396c…3982 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x0024, t01=0x013a}
0x3982…3990 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0150}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015e}
0x399a…39ae Head {h00=0x0010, h01=0x0050, text=»FRMINP FRMT «, t00=0x0024, t01=0x0168}
0x39ae…39ba Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0024, t01=0x017c}
0x39ba…39d0 Head {h00=0x0012, h01=0x0050, text=» FKI 1,MAXL=2 «, t00=0x0024, t01=0x0188}
0x39d0…39e8 Head {h00=0x0014, h01=0x0050, text=» FMEL 'ZZ',BCDWK«, t00=0x0025, t01=0x000e}
0x39e8…39f6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0026}
0x39f6…3a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0034}
0x3a00…3a14 Head {h00=0x0010, h01=0x0050, text=»KMDHDR FRMT «, t00=0x0025, t01=0x003e}
0x3a14…3a20 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x0052}
0x3a20…3a4e Head {h00=0x002a, h01=0x0050, text=» FTEXT 'DISKETTEN ER SIDST BRUGT DEN '«, t00=0x0025, t01=0x005e}
0x3a4e…3a66 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTSTRFMT «, t00=0x0025, t01=0x008c}
0x3a66…3a7c Head {h00=0x0012, h01=0x0050, text=» FLINK FRMINP «, t00=0x0025, t01=0x00a4}
0x3a7c…3a8a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00ba}
0x3a8a…3a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c8}
0x3a94…3aa8 Head {h00=0x0010, h01=0x0050, text=»HDR1REC FRMT«, t00=0x0025, t01=0x00d2}
0x3aa8…3ac0 Head {h00=0x0014, h01=0x0050, text=» FTEXT C'HDR1 ' «, t00=0x0025, t01=0x00e6}
0x3ac0…3ad6 Head {h00=0x0012, h01=0x0050, text=» FCOPY CDSNAME«, t00=0x0025, t01=0x00fe}
0x3ad6…3aec Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',11 «, t00=0x0025, t01=0x0114}
0x3aec…3b0c Head {h00=0x001c, h01=0x0050, text=» FTEXT '080 01001 73026'«, t00=0x0025, t01=0x012a}
0x3b0c…3b22 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',33 «, t00=0x0025, t01=0x014a}
0x3b22…3b3c Head {h00=0x0016, h01=0x0050, text=» FTEXT 'V 01001 ' «, t00=0x0025, t01=0x0160}
0x3b3c…3b4a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x017a}
0x3b4a…3b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0188}
0x3b54…3b6a (38, 0, 400) Head {h00=0x0012, h01=0x0050, text=»LISTFRM2 FRMT «, t00=0x0026, t01=0x0004}
0x3b6a…3b76 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x001a}
0x3b76…3b8e Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR80 «, t00=0x0026, t01=0x0026}
0x3b8e…3ba4 Head {h00=0x0012, h01=0x0050, text=» FLINK FRMINP «, t00=0x0026, t01=0x003e}
0x3ba4…3bb2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0054}
0x3bb2…3bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bbc…3bd2 Head {h00=0x0012, h01=0x0050, text=»COPYFRM1 FRMT «, t00=0x0026, t01=0x006c}
0x3bd2…3bde Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x0082}
0x3bde…3c02 Head {h00=0x0020, h01=0x0050, text=» FTEXT '1 - ALM. KOPIERING' «, t00=0x0026, t01=0x008e}
0x3c02…3c0e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0026, t01=0x00b2}
0x3c0e…3c3c Head {h00=0x002a, h01=0x0050, text=» FTEXT '2 - OPBYG INDEXREG. (- KOPI)' «, t00=0x0026, t01=0x00be}
0x3c3c…3c48 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0026, t01=0x00ec}
0x3c48…3c7a Head {h00=0x002e, h01=0x0050, text=» FTEXT '3 - KOPI UDEN OPBYGNING INDEXREG.'«, t00=0x0026, t01=0x00f8}
0x3c7a…3c90 Head {h00=0x0012, h01=0x0050, text=» FLINK FRMINP «, t00=0x0026, t01=0x012a}
0x3c90…3c9e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0140}
0x3c9e…3ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014e}
0x3ca8…3cbe Head {h00=0x0012, h01=0x0050, text=»COPYFRM4 FRMT «, t00=0x0026, t01=0x0158}
0x3cbe…3cd2 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0026, t01=0x016e}
0x3cd2…3cda Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0182}
0x3cda…3cf4 Head {h00=0x0016, h01=0x0050, text=» FMEL '9999',WORK5«, t00=0x0026, t01=0x018a}
0x3cf4…3d02 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x0014}
0x3d02…3d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0022}
0x3d0c…3d20 Head {h00=0x0010, h01=0x0050, text=»ENDCARD FRMT«, t00=0x0027, t01=0x002c}
0x3d20…3d34 Head {h00=0x0010, h01=0x0050, text=» FILLR '*',2«, t00=0x0027, t01=0x0040}
0x3d34…3d4e Head {h00=0x0016, h01=0x0050, text=» FMEL '999',RKKMNR«, t00=0x0027, t01=0x0054}
0x3d4e…3d64 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',60 «, t00=0x0027, t01=0x006e}
0x3d64…3d7a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',15 «, t00=0x0027, t01=0x0084}
0x3d7a…3d88 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x009a}
0x3d88…3d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a8}
0x3d92…3da8 Head {h00=0x0012, h01=0x0050, text=»COPYFRM2 FRMT «, t00=0x0027, t01=0x00b2}
0x3da8…3db4 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x00c8}
0x3db4…3dde Head {h00=0x0026, h01=0x0050, text=» FCOPY ='ANTAL RECORDS KOPIERET:' «, t00=0x0027, t01=0x00d4}
0x3dde…3df8 Head {h00=0x0016, h01=0x0050, text=» FMEL '9999',WORK5«, t00=0x0027, t01=0x00fe}
0x3df8…3e0e Head {h00=0x0012, h01=0x0050, text=» FLINK FRMINP «, t00=0x0027, t01=0x0118}
0x3e0e…3e1c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x012e}
0x3e1c…3e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x013c}
0x3e26…3e3a Head {h00=0x0010, h01=0x0050, text=»IXFRMT FRMT «, t00=0x0027, t01=0x0146}
0x3e3a…3e58 Head {h00=0x001a, h01=0x0050, text=» FCOPY CPRKEY(GSWBIN4)«, t00=0x0027, t01=0x015a}
0x3e58…3e7c Head {h00=0x0020, h01=0x0050, text=» FMEL '9999',CPRIX(GSWBIN4) «, t00=0x0027, t01=0x0178}
0x3e7c…3e8a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x000c}
0x3e8a…3e96 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0028, t01=0x001a}
0x3e96…3e9a Head {h00=0x4004, h01=0x0000}
0x3e9a…3e9e 00 28 00 26 ┆ ( &┆
0x3e9e…3ea6 (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3ea6…3ef6 (42, 0, 400) 00 0d 00 04 00 11 00 06 00 15 00 08 00 1b 00 08 00 23 00 09 00 2b 00 09 00 34 00 09 00 3d 00 0f 00 46 00 48 00 55 0e 32 0c fe 0e 72 0d 25 0e 96 0d 94 37 00 89 ef 1d 61 ad b6 57 2e 00 89 ef 1d 00 8a ef 1e 61 ad b7 57 21 00 89 ef 23 61 ad b5 ┆ # + 4 = F H U 2 r % 7 a W. a W! #a ┆
0x3ef6…3f46 57 18 00 89 ef 23 00 8a ef 24 61 ad b8 57 0b 00 89 ef 1d 00 8a ef 23 61 ad b9 61 af b4 06 10 10 34 00 00 08 00 0c 01 75 00 0c 01 6f 00 0c 01 7c 00 0c 00 19 00 0c 02 86 00 0c 02 e9 00 0c 03 5d 00 0c 03 62 00 2a 00 01 04 56 00 0c 0a 51 00 01 ┆W # $a W #a a 4 u o | ] b * V Q ┆
0x3f46…3f96 03 88 00 0b 07 8c 00 01 03 a7 00 0b 03 87 00 0b 01 43 00 0c 05 6a 00 0c 05 46 00 0b 07 c9 00 0c 05 a3 00 0c 05 c5 00 0c 03 67 00 0b 04 1b 00 0c 08 30 00 07 08 3b 00 09 0c 88 00 09 0c ce 00 0c 0b dc 00 0c 08 f2 00 07 08 4b 00 0c 09 7c 00 09 ┆ C j F g 0 ; K | ┆
0x3f96…3fe6 06 8f 00 09 07 16 00 0c 05 88 00 09 0b 00 00 09 02 8f 00 0c 05 f6 00 0c 07 61 00 09 06 05 00 09 05 8a 00 0c 06 54 00 01 00 26 00 0b 07 e3 00 09 02 eb 00 09 04 7d 00 05 0c 43 00 0a 00 20 00 07 07 bb 00 0c 0b 05 00 07 08 03 00 09 0c ab 00 19 ┆ a T & } C ┆
0x3fe6…4036 00 1a 00 1b 00 1f 00 28 00 58 44 49 53 4b 46 45 4a 4c 20 00 d1 b0 18 b0 19 b0 20 b0 50 b0 80 00 00 b0 99 99 99 5a 5a 5a 5a 42 42 2a 2a 2a 2a 39 42 42 39 39 39 39 39 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ ( XDISKFEJL P ZZZZBB****9BB999999 ┆
0x4036…4086 (43, 0, 400) 0c 1c 05 be 05 cc 06 16 0c 10 0c 14 0c 18 43 31 38 01 43 28 3c 01 02 73 11 80 01 3c 02 40 c5 41 90 31 2b c4 80 02 32 91 09 03 02 04 05 02 02 02 02 06 5f 15 80 03 01 a9 ce 00 a0 aa 05 a0 30 32 a0 0a 07 08 09 0a 0a 0b 0c 0d 0e 0f 5f 2a 31 2b ┆ C18 C(< s < @ A 1+ 2 _ 02 _*1+┆
0x4086…40d6 b2 00 ef 1e ef 20 05 ef 1e 72 03 a9 72 80 04 80 02 32 91 02 03 10 80 05 5f 19 31 2b b4 00 ef 1e ef 20 05 ef 1e 72 03 a9 72 80 04 80 02 32 91 02 03 10 80 06 5f 19 31 2b b3 00 ef 1e ef 20 05 ef 1e 72 80 04 03 a9 72 80 02 32 91 02 03 10 80 07 ┆ r r 2 _ 1+ r r 2 _ 1+ r r 2 ┆
0x40d6…4126 5f 19 31 2b b7 03 a9 72 80 04 80 02 32 91 02 03 10 80 08 40 90 5f 12 31 2b bd 03 a9 72 80 04 80 02 32 91 02 03 10 80 09 40 90 5f 12 31 2b bb 03 a9 72 80 04 80 02 32 91 02 03 10 80 0a 40 90 5f 12 31 2b b6 03 a9 72 80 04 80 02 32 91 02 03 10 ┆_ 1+ r 2 @ _ 1+ r 2 @ _ 1+ r 2 @ _ 1+ r 2 ┆
0x4126…4176 80 0b 40 90 5f 12 31 2b b5 03 a9 72 80 04 80 02 32 91 02 03 10 80 0c 40 90 5f 12 00 a0 aa 05 a0 2a 80 0d a0 80 0e 30 0b 8f af 80 0e 5f ff 31 2b c0 41 90 80 02 32 91 03 05 11 12 5f 0f 00 a6 74 04 a6 11 2a a6 11 b7 80 0f 18 73 12 50 02 5f 10 ┆ @ _ 1+ r 2 @ _ * 0 _ 1+ A 2 _ t * s P _ ┆
0x4176…41c6 18 aa 89 14 18 df 11 8a 19 80 03 00 a0 aa 05 a0 30 40 d7 36 a0 0a 00 11 22 33 33 35 48 5b 6e 7f 31 2b b2 80 04 80 10 28 91 13 83 80 05 80 11 57 7d 31 2b b4 80 04 80 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ 0@ 6 "335H[n 1+ ( W}1+ ┆
0x41c6…4216 (44, 0, 400) 28 91 13 72 80 06 80 11 57 6c 31 2b b3 80 04 80 10 28 91 13 61 80 07 80 11 57 5b 57 59 31 2b b7 80 04 80 12 80 10 28 91 13 4c 80 08 80 11 57 46 31 2b bd 80 04 80 12 80 10 28 91 13 39 80 08 80 11 57 33 31 2b bb 80 04 80 12 80 10 28 91 13 26 ┆( r Wl1+ ( a W[WY1+ ( L WF1+ ( 9 W31+ ( &┆
0x4216…4266 80 0a 80 11 57 20 31 2b b6 80 04 80 10 28 91 13 15 80 0b 80 11 57 0f 31 2b b5 80 04 80 10 28 91 13 04 80 0c 80 11 5f d2 30 0b 8f af 80 0e 3f 03 80 13 54 00 56 11 01 83 3b 80 14 28 7d 3d 83 56 54 cd 00 8e 3d 21 8e a7 b1 29 8e a6 05 02 56 11 ┆ W 1+ ( W 1+ ( _ 0 ? T V ; (}= VT =! ) V ┆
0x4266…42b6 5f 1c 80 15 66 3d 10 12 36 c4 0a 00 00 00 40 40 40 40 40 40 40 01 ae a4 00 a0 10 01 a1 3b 68 3d a0 a1 ae 10 11 54 2e 80 13 20 00 61 3d 00 c4 a0 01 a0 3b 04 a0 c4 66 3d c4 a0 80 16 9b 46 00 3d 44 01 a0 3b 04 a0 c4 04 a0 13 62 3d 10 a0 61 c4 ┆_ f= 6 @@@@@@@ ;h= T. a= ; f= F =D ; b= a ┆
0x42b6…4306 40 20 02 d3 12 80 16 9b 46 02 56 11 02 d3 12 40 54 30 09 12 80 13 54 01 83 3b 80 14 28 7d 3d 83 56 54 4c 00 8e 3d 21 8e a7 30 21 8e a6 21 2d d3 a0 0b 00 85 8e 00 c4 85 05 c4 30 5f 89 01 88 72 80 17 21 8e a7 14 19 8e a6 98 02 56 11 5f b9 01 ┆@ F V @T0 T ; (}= VTL =! 0! !- 0_ r ! V _ ┆
0x4306…4356 c4 a0 04 c4 d3 80 18 c4 5f 1d 01 3d b3 80 19 28 7d 3d 11 54 0a 00 56 11 40 54 06 10 10 57 08 00 56 10 40 54 06 10 11 3f 03 04 73 11 80 1a 40 c5 34 00 28 56 10 48 80 13 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ _ = (}= T V @T W V @T ? s @ 4 (V H ┆