DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦ecea7fb2c⟧

    Length: 36772 (0x8fa4)
    Notes: pts_type(SC)
    Names: »RKONV.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/RKONV.SC« 

PTS(SC)

 IDENT RKONV 830215 NJ
 OPTNS LINES=46 
 DDUM KMD08 
 PDIV 
 ENTRY RKGO 
 ENTRY ATTHD1 
 ENTRY DKIO 
 ENTRY DKREAD 
 ENTRY ASG
 ENTRY DKWRIT 
 ENTRY RKASSG 
 EXT SPCLRA 
 EXT SPERR
 EXT SPCLRN 
 EXT MASK 
 EXT RKIO 
 EXT RAEXIT 
 EXT KBTEST 
 EXT RKTEST 
 EXT SPORG
 EXT PASS 
 EXT COPYDK 
 EXT LOD1 
 EXT GENWRF 
 EXT INIT 
* 
* 
* 
* 
 INCLUDE EQUATE 
 EJECT
RKGO
 SET SPPROMPT 
 MOVE SPKEY,CBIN4 INDICATE KEYTABLES TO BE USED 
 PERF PASS CHECK PASSWORD 
 BNOK RAEXIT ERROR, RETURN
 CBNE TTASKNR,CBIN1,RA100 RB, RC, .... ?
 SET GTRKMFLG 
RA020 
 MOVE GTSTRFMT,=C'DIV. INFO ' 
 ATTFMT HEAD
 PERF SPCLRN
 IB SPBINW2,RA020,RA020,RA030 
 B RAEXIT 
RA030 
 MOVE CDSNAME,=' '
RA100			CHOOSE NEW FUNCTION 
RA105 
 MOVE GTSTRFMT,=C'RUTINEVALG '
 ATTFMT HEAD2 
 MOVE GSWBCD3,=D'0' FREE RECORDS
 PERF SPCLRA
 CBE SPBINW2,=W'23',RA110 ONLINE ?
 CBNE SPBINW2,CBIN3,RA105 -, SLUT 
* 
 MOVE GSWBIN1,BCDWK 
 B RA150
RA110 
 B RAEXIT 
 EJECT
* * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 01%- R]KONVERTERING/FORSKUDSREGISTRERING
* 02 - [NDRING
* 03 - LOCAL INQUIRIES
* 04 - COPY FLOPPY DISCS
* 05 - LIST REG. CPRNR
* 06 - CHANGE CONSTANTS 
* 07 - LIST FD01
* 
*   %-CAN BE SELECTED BY NON-MASTER TERMINAL
* 
* * * * * * * * * * * * * * * * * * * * * * * * * 


RA150 
 TBT GTRKMFLG,RA200 MASTER ?
 CBE GSWBIN1,CBIN1,REG000 REG. ONLY 
 B ERR140 
* 
RA200 
 IB GSWBIN1,REG000,AND000,FOR000,COP000,		C 
		LST000,RA020,PRT000 
 B RA105
 EJECT
REG000
* TYPE 1, R]KONVERTERING / FORSKUDSREGISTRERING 
 TBF GTRKMFLG,REG700 NON-MASTER ? 
 PERF LOD1
 B NYVALG 
 B ERR60U READ/WRITE ERROR
 B ERR41 ASSIGN ERROR 
 CLEAR CHFLAG 
 CLEAR FULL INDICATE ROOM ON FD01 
 TBT FORSKUD,REG100 
 TBT LONOPL,REG120
 MOVE GTSTRFMT,=C'SLUTLIGNING ' 
 B REG200 
REG100 MOVE GTSTRFMT,=C'FORSKUDSREG. '
 B REG200 
REG120
 MOVE GTSTRFMT,=C'LONOPL. ' 
 B REG200 
REG200
 SET CRKKLAR
 PERF KONREG
 B REG200 REPEAT
 B REG300 NYVALG
 B REG400 WRITE ERROR 
 B REG500 NO ROOM 
REG300
 MOVE RECFREE,MAXREC
 MOVE RECUSE,CBIN0
 CLEAR CRKKLAR
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 UNLOADERROR 
 B NYVALG 
REG400
 CLEAR CRKKLAR
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 B ERR70
REG500
 CLEAR CRKKLAR
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 B ERR110 
* THIS PORTION ONLY FOR NON-MASTER TASK 
REG700
 TBT CRKKLAR,REG800 
 MOVE GSWSTR80,=C'11IKKE STARTET OP P] HOVEDSK[RM ' 
 WRITE SCREEN,GSWSTR80
 DELAY CBIN20 
 B NYVALG 
REG800
 PERF KONREG
 B RA100 REPEAT 
 B NYVALG NEW SELECT
 B ERR70 WRITE ERROR
 B ERR110 NO ROOM 
 EJECT
AND000
			*** NOT TESTED YET *** 
* TYPE 2, AENDRING
 B NYVALG 
 MOVE GSWBIN5,CBIN2 
 PERF DKIO
 BNOK ERR60U R/W ERROR
 B ERR41 ALREADY LOADED 
 PERF LOD1
 B ERR41
 B ERR41
 B ERR41
 SET CHFLAG 
 CLEAR CPRFLAG
 SET CRKKLAR INDICATE READY FOR REG 
 MOVE GTSTRFMT,=C'[NDRING ' 
AND100
 PERF SPORG RETRIEVE CPR/INFO FROM FD02 
 B ERR90U RECORD DELIMITER WRONG
 B AND200 NORMAL
 B ERR90U READ ERROR
 B ERR130U NO INDEXREG
AND200
 SET CPRFLAG
 PERF KONREG AND CHANGE IT
 B AND100 REPEAT
 B AND300 EXIT FOR NEW SELECT 
 B AND500 WRITE ERROR 
 B AND600 NO MORE ROOM
AND300
 MOVE RECFREE,MAXREC
 MOVE RECUSE,CBIN0
 CLEAR CRKKLAR
AND400
 MOVE RECFREE,MAXREC
 MOVE RECUSE,CBIN0
 CLEAR CRKKLAR
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 MOVE GSWBIN5,CBIN4 
 PERF DKIO
 BNOK ERR50 
 B NYVALG 
AND500
 MOVE GSWBIN5,CBIN4 
 PERF DKIO
 BNOK ERR50 
 B ERR70U 
AND600
 MOVE GSWBIN5,CBIN4 
 PERF DKIO
 BNOK ERR50 
 B ERR110U
 EJECT
FOR000
* TYPE 3, LOCAL INQUIRIES 
 PERF ASG,CBIN1 LOAD FD1
 BNOK ERR41 
 CLEAR CHFLAG 
 MOVE GTSTRFMT,=X'464F524553505C524720' FORESPOERG
 PERF SPORG RETRIEVE CPRINFO FROM FD01
 B ERR60U SLUTTEGN
 B FOR100 NORMAL
 B ERR60U READ ERROR
 B FOR100 FINISHED
 B ERR130U NO INDEXREG
FOR100
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 B NYVALG 
 EJECT
COP000
* TYPE 4, COPY FLOPPY DISCS 
 SET COPYFLG
 MOVE GTSTRFMT,=C'DISKKOPIERING ' 
 PERF ASG,CBIN1 
 BNOK ERR41 IGNORE IF DISK LOADED 
 MOVE GSWBIN5,CBIN12 REWIND FD01
 PERF DKIO
 BNOK COP550
 PERF COPYDK
 B COP400 MAK 
 B COP500 READ ERROR
 B COP600 WRITE ERROR 
COP400
 MOVE GSWBIN1,CBIN1 
 B COP800 
COP500
 MOVE GSWBIN1,CBIN2 
 B COP800 
COP550
 MOVE GSWBIN1,CBIN4 
 B COP800 
COP600
 MOVE GSWBIN1,CBIN3 
 B COP800 
COP800
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 IB GSWBIN1,NYVALG,ERR90U,ERR70U,ERR100U
COP900
 B NYVALG 
 EJECT
LST000
* TYPE 05, LIST REG. CPRNR
 MOVE GSWBCD1,=D'0' 
 MOVE GSWSTR80,=C'INDSTIL PRINTER ' 
 ATTFMT LISTFRM2
 PERF SPCLRA ADJUST GTP 
 CBE SPBINW2,CBIN2,COP900 
 PERF ASG,CBIN1 LOAD FD1
 BNOK ERR41 
 MOVE GTRECNR,CBIN6 
 MOVE GSWBIN5,CBIN5 
 PERF DKREAD READ VOL1
 BNOK ERR60U
 MOVE GSWSTR80,TEDBUF 
 PERF GENWRF,GTHCDEV,LISTFRM1 
 PERF DKREAD
 BNOK ERR60U
 MOVE GSWSTR80,TEDBUF 
 PERF GENWRF,GTHCDEV,LISTFRM1 
 MOVE GTRECNR,=W'26'
 PERF DKREAD
 BNOK ERR60U
 MOVE GSWSTR80,TEDBUF 
 PERF GENWRF,GTHCDEV,LISTFRM1 
 MOVE GSWSTR80,=C' '
 PERF GENWRF,GTHCDEV,LISTFRM1 
 MOVE WORK14,=C'0'
 MOVE GSWBIN1,CBIN0 
 MOVE GSWBIN2,CBIN4 
LST100
 PERF DKREAD
 BNOK ERR60U
 MOVE GSWSTR2,TEDBUF
 CBE GSWSTR2,=C'**',LST200
 MOVE GSWSTR2,=C'&' 
 MOVE GSWBIN8,CBIN0 
 MATCH TEDBUF,GSWBIN8,CBIN10,GSWSTR2,CBIN0,CBIN1
 BOK LST100 FORTS[TTELSESRECORD 
 MOVE WORK13,TEDBUF 
 CBE WORK13,WORK14,LST100 EQUAL CPRNR 
 MOVE WORK14,WORK13 
 ADD GSWBIN1,CBIN1
 MOVE WORK0(GSWBIN1),WORK14 SAVE CPRNR
 CBNE GSWBIN1,CBIN4,LST100
 PERF GENWRF,GTHCDEV,LISTFRMT 
 ADD GSWBIN2,CBIN1
 MOVE GSWBIN1,CBIN0 RE-INITIATE 
 MOVE WORK0(CBIN1),=D'0'
 MOVE WORK0(CBIN2),=D'0'
 MOVE WORK0(CBIN3),=D'0'
 MOVE WORK0(CBIN4),=D'0'
* MAK WILL TERMINATE CPRNRLIST
 PERF KBTEST
 BOK LST300 
 CBL GSWBIN2,=W'45',LST100
 MOVE GSWSTR80,=C' '
 PERF GENWR,LISTFRM1,CBIN6
 MOVE GSWBIN2,CBIN0 
 B LST100 
LST200
 PERF GENWRF,GTHCDEV,LISTFRMT 
 MOVE GSWSTR80,TEDBUF 
 PERF GENWRF,GTHCDEV,LISTFRM1 
 MOVE GSWSTR80,=C' '
 PERF GENWR,LISTFRM1,CBIN3
LST300
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 B NYVALG 
 EJECT
* TYPE 7
* PRINT FD01
PRT000
 MOVE GSWBCD1,=D'0' 
 MOVE GSWSTR80,=C'INDSTIL PRINTER ' 
 ATTFMT LISTFRM2
 PERF SPCLRA ADJUST GTP 
 CBE SPBINW2,CBIN2,NYVALG 
 PERF ASG,CBIN1 
 BNOK ERR41 
 MOVE GSWSTR80,=' ' 
 PERF GENWRF,GTHCDEV,LISTFRM1 
 MOVE GTRECNR,CBIN6 
PRT100
 PERF DKREAD
 BNOK PRT200
 MOVE GSWBCD1,GTRECNR 
 MOVE GSWSTR80,TEDBUF 
 MOVE GSWSTR2,TEDBUF
 MOVE GSWBIN2,=W'80'
 MOVE GSWBIN1,CBIN0 
 MOVE GSWSTR1,=C'!' 
 MATCH GSWSTR80,GSWBIN1,GSWBIN2,STR7F,CBIN0,CBIN1 
 BNOK PRT150
 XCOPY GSWSTR80,GSWBIN1,CBIN1,GSWSTR1,CBIN0 
PRT150
 PERF GENWRF,GTHCDEV,LISTFRM1 
 PERF KBTEST
 BOK PRT400 
 CBNE GSWSTR2,=C'**',PRT100 
 B PRT400 
PRT200
 CBE GTRECNR,CBIN7,PRT100 
 CBE GTRECNR,CBIN8,PRT300 
 B PRT100 
PRT300
 MOVE GTRECNR,=W'26'
 B PRT100 
PRT400
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
 B NYVALG 
 EJECT
* 
* 
* ERROR ROUTINES
* 
ERR41 
 MOVE GSWSTR80,=C'ASSIGNFEJL '
 B ERRDISP
ERR50 
 MOVE GSWSTR80,=C'UNLOADFEJL '
 B ERRDISP
ERR60U
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR50 
ERR60 
 MOVE GSWSTR80,=C'L[SEFEJL '
 B ERRDISP
ERR70U
 MOVE GSWBIN5,CBIN4 
 PERF DKIO
 BNOK ERR70 
ERR70 
 MOVE GSWSTR80,=C'SKRIVEFEJL '
 B ERRDISP
ERR90U
 MOVE GSWBIN5,CBIN4 
 PERF DKIO
 BNOK ERR100U 
 B ERR60
ERR100U 
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR100
ERR100
 MOVE GSWSTR80,=C'REWINDFEJL '
 B ERRDISP
ERR110U 
 MOVE GSWBIN3,CBIN3 
 PERF DKIO
 BNOK ERR110
ERR110
 MOVE GSWSTR80,=C'DISKETTE FYLDT OP ' 
 B ERRDISP
ERR130U 
 MOVE GSWBIN5,CBIN3 
 PERF DKIO
 BNOK ERR130
ERR130
 MOVE GSWSTR80,=C'INTET INDEXREGISTER, HUSK KOPIERING ' 
 B ERRDISP
ERR140
 MOVE GSWSTR80,=C'RUTINE IKKE TILLADT P] DENNE TERMINAL ' 
 B ERRDISP
ERRDISP 
 ATTFMT LISTFRM2
 PERF SPCLRA
************************************************
NYVALG			NEW FUNCTION ? 
 B RA105
 EJECT
ATTHD1 PROC 
 ATTFMT HEAD1 
 RET
 PEND 



KONREG PROC 
***************************************** 
* 
* KONREG - R]KONVERTERING 
* 
* EXIT UPON COMPLETION: 
*   0 - REPEAT ROUTINE
*   2 - EXIT FOR NEW SELECT 
*   4 - WRITE ERROR 
*   6 - NO MORE ROOM ON FD01
* 
***************************************** 
ST0200
 CLEAR SPCHANGE 
 CLEAR INQ1 
 CLEAR INQ2 
 CLEAR INQ3 
ST0210
 PERF ATTHD1
 CLEAR SLUTFLAG 
 TBT CHFLAG,ST0215
 PERF CLRTST
ST0215
* WHEN RUNNING [NDRING, FIELDS
* 91/92/93 ARE TO BE RENAMED TO 26/27/28
 MOVE GSWBCD3,RECFREE 
 SUB GSWBCD3,=D'400'
 MOVE WORK5,RECUSE
 TBT OBS,ST0218 TABLES FILLED AFTER INQUIRY?
 PERF SPCLRA
 B ST0220 
ST0218
 CLEAR SPPROMPT 
 PERF SPCLRN
ST0220
 IB SPBINW2,ST40,ST40,ST03
 B ST0200 
ST03
 SET SPPROMPT 
 CLEAR OBS
 CLEAR COPYFLG
 TBF CRKKLAR,ST030
 PERF UPD 
 B ST0218 
 B ST35 
ST030 
 RET 4
ST35
 TBT FULL,ST45
 TBT CHFLAG,ST50
 B ST0210 
ST40
 TBT SPCHANGE,ST0200
 SET SPPROMPT 
 RET 2
ST45
 RET 6 NO MORE ROOM 
ST50			NORMAL RETURN, NEW CPRNR 
 RET
 PEND 
	EJECT
************************************************************
* 
*       CLRTST - CLEARING OF TESTSTRG 
* 
************************************************************* 

CLRTST PROC 
 MOVE GSWBIN1,CBIN12
 MOVE GSWBIN2,CBIN4 
CLRT10
 MOVE FIELD(GSWBIN1,GSWBIN2),=D'0'
 MOVE SAVEF(GSWBIN1,GSWBIN2),=C' '
 SUB GSWBIN2,CBIN1
 BNZ CLRT10 
 MOVE GSWBIN2,CBIN4 
 SUB GSWBIN1,CBIN1
 BNZ CLRT10 
 RET
 PEND 
* 
* 
* 
MASKDK PROC DK
****************************************
* 
* MASKDK - INSPECT MASK FROM EXTENDED STATUSWORD
* 
* CALL:     PERF   MASKDK,<DISK>
* 
* EXIT UPON COMPLETION: 
*   0 - ERROR 
*   2 - NORMAL
* 
****************************************

 XSTAT DK,SPBINW4 
 CALL MASK,SPBINW4,GSWBIN5
 BZ MASKR2
 MOVE GSWBIN1,CBIN15
 MOVE GSWBIN2,CBIN1 
MASK01
 CALL MASK,SPBINW4,GSWBIN2
 BNZ MASKRET
 SUB GSWBIN1,CBIN1
 CBNE GSWBIN1,CBIN2,MASK02
 MOVE SPBINW4,CBIN0 
 B MASKRET
MASK02
 MOVE GSWBCD5,GSWBIN2 
 ADD GSWBIN2,GSWBIN2
 BOFL MASKRET SHOULD NOT HAPPEN 
 B MASK01 
 MOVE SPBINW4,CBIN1 
 MOVE GSWBCD4,GSWBIN1 
MASKRET 
 CMP CBIN0,CBIN1
 RET
MASKR2
 CMP CBIN0,CBIN0
 RET
 PEND 


GENWR PROC FORMAT,LOOP
 MOVE GSWBIN1,LOOP
GEN10 
 PERF GENWRF,GTHCDEV,FORMAT 
 SUB GSWBIN1,CBIN1
 BP GEN10 
 RET
 PEND 
 EJECT
DKREAD PROC 
****************************************
* 
* DKREAD - DISK READ PROCEDURE
* 
* IF ERROR, A LINE IS DISPLAYED ON VDU, 
* IF OK, THE RECORD IS DELIVERED IN TEDBUF, 
* 
* CALL:    PERF DKREAD
* EXIT UPON COMPLETION: 
*   0 - ERROR 
*   2 - NORMAL
* 
***************************************** 

 MOVE GSWBIN5,CBIN5 
 PERF DKIO
 BNOK READ10
 B READRET
READ10
 MOVE GSWBCD4,SPBINW4 
 ADD GSWBCD4,=D'70' 
 MOVE SPBINW4,CBIN1 
 CMP CBIN0,CBIN1
 RET
READRET 
 ADD GTRECNR,CBIN1
 CMP CBIN0,CBIN0
 RET
 PEND 



DKWRIT PROC 
***************************************** 
* 
* DKWRIT - DISK WRITE PROCEDURE 
* 
* IF ERROR, A LINE IS DISPLAYED ON VDU, 
* 
* CALL:     PERF DKWRIT 
* 
* EXIT UPON COMPLETION: 
*   0 - EROR
*   2 - NORMAL
* 
******************************************

 MOVE GTRECNR,LASTREC 
 SUB GTRECNR,RECFREE
 CBE RECFREE,CBIN0,WRITERR NO MORE SPACE
 MOVE GSWBIN5,CBIN7 
 PERF DKIO
 BNOK WRITERR 
 TBT COPYFLG,WRITRET DONT PROPAGATE SLUTRECORD
 ADD GTRECNR,CBIN1
 EDIT TEDBUF,ENDCARD
 MOVE GSWBIN5,CBIN7 
 PERF DKIO
 BNOK WRITERR 
WRITRET 
 ADD ENDREC,CBIN1 
 MOVE RECUSE,ENDREC 
 SUB RECFREE,CBIN1
 CMP CBIN0,CBIN0
 RET
WRITERR 
 MOVE GSWBCD4,SPBINW4 
 ADD GSWBCD4,=D'90' 
 MOVE SPBINW4,CBIN1 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
DKIO PROC 
********************************************* 
* 
* DKIO - THE PROCEDURES TAKES CARE OF ALL I/O 
* ON DISK. THE FUNCTION IS SPECIFIED IN GSWBIN5.
* AFTER HAVING CALLED RKIO, THE RETURNWORD
* IS INSPECTED IN MASKDK. AND AN EVENTUAL 
* ERRORCODE IS RETURNED IN GSWBCD4, FOR 
* DISPLAYING PURPOSES VIA A SPERR-CALL
* 
* RETURN UPON COMPLETION: 
* 0 - ERROR 
* 2 - NORMAL
**********************************************

 IB GSWBIN5,TOSS1,TOSS2,TOSS3,TOSS4,TOSS5,TOSS6,TOSS7,		C 
		TOSS8,TOSS9,TOSS10,TOSS11,TOSS12,TOSS13,TOSS14,		C
		TOSS15
 CMP CBIN0,CBIN1
 RET
TOSS1 
* LOAD FD01 
 MOVE GTRECNR,CBIN7 
 MOVE LENGTH,=W'80' 
 CALL RKIO,FDRK01,HEXB7,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFDF'
 B TOSS50 
TOSS2 
* LOAD FD02 
 MOVE GTTRKEY,CBIN7 
 MOVE LENGTH,=W'80' 
 CALL RKIO,FDRK02,HEXB7,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFDF'
 B TOSS60 
TOSS3 
* UNLOAD FD01 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK01,HEXB8,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS50 
TOSS4 
* UNLOAD FD02 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK02,HEXB8,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS60 
TOSS5 
* PHYSICAL READ FD01
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK01,HEX91,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS50 
TOSS6 
* PHYSICAL READ FD02
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK02,HEX91,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS60 
TOSS7 
* PHYSICAL WRITE FD01 
 MOVE COPYBUF,TEDBUF
 MOVE TEDBUF,BINULL 
 MOVE LENGTH,=W'80' 
 COPY TEDBUF,CBIN0,LENGTH,COPYBUF,CBIN0 
TOSS7A
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK01,HEX95,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS50 
TOSS8 
* SEQUENTIAL READ, FD01 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK01,HEX82,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS50 
TOSS9 
* SEQUENTIAL READ, FD02 
 MOVE LENGTH,=W'80' 
 CALL RKIO,FDRK02,HEX82,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS60 
TOSS10
* SEQUENTIAL WRITE,FD01 
 MOVE LENGTH,=W'80' 
 MOVE COPYBUF,TEDBUF
 MOVE TEDBUF,BINULL 
 COPY TEDBUF,CBIN0,LENGTH,COPYBUF,CBIN0 
 MOVE LENGTH,=W'80' 
 CALL RKIO,FDRK01,HEX86,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS50 
TOSS11
* SEQUENTIAL WRITE,FD02 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK02,HEX86,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS60 
TOSS12
* REWIND FD01 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK01,HEX31,TEDBUF,LENGTH,GTRECNR 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS50 
TOSS13
* REWIND FD02 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK02,HEX31,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS60 
TOSS14
* PHYSICAL WRITE FD02 
 MOVE LENGTH,=W'128'
 CALL RKIO,FDRK02,HEX95,TEDBUF,LENGTH,GTTRKEY 
 MOVE GSWBIN5,=X'FFFF'
 B TOSS60 
* 
TOSS15
* PHYSICAL WRITE FD01, LENGTH 128 
 B TOSS7A 

* 
TOSS50 PERF MASKDK,FDRK01 
 RET
TOSS60 PERF MASKDK,FDRK02 
 RET
 PEND 
 EJECT
UPD PROC
********************************************* 
* 
* UPD - THE PROCEDURE CREATES DETAILRECORD(S) ON FD01 
*       AFTER TESTING THE FIELDS
* 
* EXIT UPON COMPLETION: 
*   0 - ERROR IN SLUTEST-CALL 
*   2 - NORMAL
*   4 - DISK WRITE ERROR
* 
**********************************************

 PERF RKTEST
 BOK UPD01
 SET SLUTFLAG 
 PERF SPERR 
 CLEAR SLUTFLAG 
 B UPDER
UPD01 
* ONLY ONE TASK IS ALLOWED TO WRITE TO FD01 AT A TIME.
* HENCE FDBUSY WILL BE SET ON ENTERING THIS PROCEDURE,
* AND IT WILL BE CLEARED AGAIN UPON LEAVING IT. 
UPD00 
 TBF FDBUSY,UPD05 
 DELAY CBIN2
 B UPD00 AND TRY AGAIN
UPD05 
 SET FDBUSY 
 CLEAR SLUTFLAG 
 MOVE TEDBUF,BINULL 
 MOVE GSWBIN6,CBIN1 
 MOVE GSWBIN7,CBIN1 
 MOVE GTANTAL,=D'1' 
 MOVE CARDPT,CBIN0
 MOVE CARDBUF,=C' ' 
 B UPD25
UPD20 
 ADD GSWBIN7,CBIN1
 CBNG GSWBIN7,CBIN4,UPD25 
 MOVE GSWBIN7,CBIN1 
 ADD GSWBIN6,CBIN1
 CBG GSWBIN6,CBIN12,UPDRET
UPD25 
 CBE FIELD(GSWBIN6,GSWBIN7),=D'0',UPD20 
 MOVE GSWSTR20,BINULL 
 MOVE BCDWK,FIELD(GSWBIN6,GSWBIN7)
 EDIT GSWSTR20,FLTFRMT
 MOVE GSWBIN1,CBIN4 
 MATCH GSWSTR20,GSWBIN1,CBIN12,BINULL,CBIN0,CBIN1 
 ADD CARDPT,GSWBIN1 
 CBG CARDPT,=W'66',UPD30
 SUB CARDPT,GSWBIN1 
 COPY CARDBUF,CARDPT,GSWBIN1,GSWSTR20,CBIN0 
 ADD CARDPT,GSWBIN1 
 B UPD20
UPD30 
 SUB CARDPT,GSWBIN1 
 MOVE GSWSTR20,STR25
 COPY CARDBUF,CARDPT,CBIN1,GSWSTR20,CBIN0 
 CBE GTANTAL,=D'1',UPD40
 MOVE GSWSTR20,GTANTAL
 INSRT CARDBUF,CBIN0,CBIN1,GSWSTR20,CBIN1 
 MOVE TEDBUF,CARDBUF
 B UPD45
UPD40 
 EDIT TEDBUF,DETCARD
UPD45 
 PERF DKWRIT
 BNOK UPDER4
 ADD GTANTAL,=D'1'
 MOVE CARDPT,CBIN0
 MOVE CARDBUF,=C' ' 
 B UPD25
UPDRET
 MOVE GSWSTR20,STR7F
 COPY CARDBUF,CARDPT,CBIN1,GSWSTR20,CBIN0 
 CBE GTANTAL,=D'1',UPD50
 MOVE GSWSTR20,GTANTAL
 INSRT CARDBUF,CBIN0,CBIN1,GSWSTR20,CBIN1 
 MOVE TEDBUF,CARDBUF
 B UPD52
UPD50 
 EDIT TEDBUF,DETCARD
UPD52 
 PERF DKWRIT
 BNOK UPDER4
 CBG RECFREE,CBIN20,UPD55 CHECK FOR MORE ROOM 
 SET FULL 
UPD55 
 CLEAR FDBUSY 
 RET 2
UPDER4
 CLEAR FDBUSY 
 RET 4
UPDER RET 
 PEND 
 EJECT
ASG PROC PAR

**********************************************
* 
* ASG - LOAD FLOPPY DISC AT FIRST RECORD
* FD01 ::= $PAR = 1 
* FD02 ::= $PAR = 2 
* 
* EXIT UPON COMPLETION: 
*     0 - ERROR 
*     2 - NORMAL
* 
**********************************************

 MOVE GSWBIN5,PAR 
 CBNE GSWBIN5,CBIN1,ASG10 
 MOVE RECFREE,MAXREC
 MOVE ENDREC,CBIN0
ASG10 
 PERF DKIO
 RET
 PEND 
 EJECT
RKASSG PROC 
* 
* LOAD FD01 AND SEARCH END OF DATA
* 
 PERF ASG,CBIN1 
 BNOK AS90 ASSIGNERROR
 MOVE GTRECNR,=W'26'
AS10
 PERF DKREAD
 BNOK AS90
 MOVE GSWSTR2,TEDBUF
 CBNE GSWSTR2,=C'**',AS10 
 CBNE GTRECNR,=W'26',AS16 
 PERF INIT
 B AS90 
 B AS90 
 B AS20 
AS16
 MOVE TEDBUF,=C' '
 SUB GTRECNR,CBIN1 1 TOO FAR (DKREAD ADDS 1)
 MOVE ENDREC,GTRECNR
 SUB ENDREC,=W'26'
 MOVE RECUSE,ENDREC 
 SUB RECFREE,RECUSE 
AS20
 CMP CBIN0,CBIN0
 RET
AS90
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
************************************************************* 
* 
*            FORMATS
* 
************************************************************* 
* 
* 
HEAD FRMT 
 FSL
 FCOPY GTSTRFMT 
 FCOPY =' DATO' 
 FILLR ' ',2
 FKI 28,MINL=6,MAXL=6,SCHK=2,ME,REWRT,NCLR
 FMEL '99E-99E-99',DATE 
 FNL
 FCOPY =C'SKATTE]R' 
 FILLR ' ',2
 FKI 14,MINL=2,MAXL=2,ME,REWRT,NCLR 
 FMEL '99',YEAR 
 FNL
 FTEXT 'INDTAST GR[NSE FOR MEDHJ.HUSTRU ' 
 FKI 34,MINL=5,MAXL=6,ME,REWRT,NCLR 
 FMEL 'ZZZVZZZ',MEDHJ 
 FTAB 49
 FTEXT 'OG FORMUE ' 
 FKI 60,MINL=6,MAXL=7,ME,REWRT,NCLR 
 FMEL 'ZVZZZVZZZ',FORMUE
 FMEND
* 
HEAD1 FRMT
 FSL
 FCOPY GTSTRFMT 
 FCOPY =' DATO' 
 FTAB 28
 FHIGH
 FMEL '99E-99E-99',DATE 
 FLOW 
 FCOPY ='    DATAS[T' 
 FTAB 42
 FCOPY CDSNAME
 FILLR ' ',8
 FCOPY =' RECORDS FRI'
 FTAB 73
 FHIGH
 FMEL '9999',GSWBCD3
 FLOW 
 FNL
 FTEXT 'CPR-NR' 
 FILLR ' ',52 
 FTEXT 'RECORD NR'
 FTAB 73
 FHIGH
 FMEL '9999',WORK5
 FLOW 
 FNL
 FBT CPRFLAG,HEAD101
 FKI 1,MINL=10,MAXL=10,ME,REWRT,SCHK=1
HEAD101 
 FMEL '999999E-9999',CPRNR
 FBF INQ1,HEAD102 
 FEXIT
HEAD102 
 FNL
 FCOPY ='FNR FELTINDHOLD' 
 FILLR ' ',6
 FCOPY ='FNR FELTINDHOLD' 
 FILLR ' ',6
 FCOPY ='FNR FELTINDHOLD' 
 FILLR ' ',6
 FCOPY ='FNR FELTINDHOLD' 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN1,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN1,CBIN1) 
 FKI 22,MINL=1,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN1,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN1,CBIN2) 
 FKI 43,MINL=1,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN1,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN1,CBIN3) 
 FKI 64,MINL=1,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN1,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN1,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN2,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN2,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN2,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN2,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN2,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN2,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN2,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN2,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN3,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN3,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN3,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN3,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN3,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN3,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN3,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN3,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN4,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN4,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN4,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN4,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN4,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN4,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN4,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN4,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN5,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN5,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN5,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN5,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN5,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN5,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN5,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN5,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN6,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN6,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN6,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN6,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN6,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN6,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN6,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN6,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN7,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN7,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN7,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN7,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN7,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN7,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN7,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN7,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN8,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN8,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN8,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN8,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN8,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN8,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN8,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN8,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN9,CBIN1)
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN9,CBIN1) 
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN9,CBIN2)
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN9,CBIN2) 
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN9,CBIN3)
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN9,CBIN3) 
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN9,CBIN4)
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN9,CBIN4) 
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN10,CBIN1) 
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN10,CBIN1)
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN10,CBIN2) 
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN10,CBIN2)
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN10,CBIN3) 
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN10,CBIN3)
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN10,CBIN4) 
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN10,CBIN4)
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN11,CBIN1) 
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN11,CBIN1)
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN11,CBIN2) 
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN11,CBIN2)
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN11,CBIN3) 
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN11,CBIN3)
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN11,CBIN4) 
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN11,CBIN4)
 FNL
 FKI 1,APPL=6,MINL=2,MAXL=3,NUM 
 FMEL 'ZZZ',FIELD(CBIN12,CBIN1) 
 FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA
 FCOPY SAVEF(CBIN12,CBIN1)
 FKI 22,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN12,CBIN2) 
 FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN12,CBIN2)
 FKI 43,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN12,CBIN3) 
 FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN12,CBIN3)
 FKI 64,MINL=2,MAXL=3,APPL=6,NUM
 FMEL 'ZZZ',FIELD(CBIN12,CBIN4) 
 FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA 
 FCOPY SAVEF(CBIN12,CBIN4)
 FNL
 FMEND
* 
HEAD2 FRMT
 FSL
 FCOPY GTSTRFMT 
 FCOPY =' DATO' 
 FILLR ' ',1
 FMEL 'Z99E-99E-99',DATE
 FCOPY ='    DATAS[T' 
 FILLR ' ',1
 FCOPY CDSNAME
 FILLR ' ',10 
 FCOPY =' RECORDS FRI'
 FTAB 73
 FMEL '99999',GSWBCD3 
 FNL
 FCOPY =C'SKATTE]R' 
 FMEL 'Z99',YEAR
 FNL
 FTEXT '01*- SLUTLIGNING/FORSKUDSREG./LONOPL.'
 FNL
 FTEXT '02 - [NDRINGER' 
 FNL
 FTEXT X'3033202D20464F524553505C5247'
 FNL
 FTEXT '04 - DISKKOPIERING' 
 FNL
 FTEXT '05 - LIST CPRNR'
 FNL
 FTEXT '06 - [NDRING AF KONSTANTER' 
 FNL
 FTEXT '07 - UDSKRIVNING AF DISKETTE '
 FNL
 FKI 01,MINL=1,MAXL=2,ME
 FMEL 'ZZZ',BCDWK 
 FMEND
* 
LISTFRM1 FRMT 
 FILLR '+',2
 FMEL 'ZZZZ',GSWBCD1
 FILLR ' ',4
 FCOPY GSWSTR80 
 FEOR 
 FILLR ' ',2
 FMEND
* 
LISTFRM2 FRMT 
 FSL
 FCOPY GSWSTR80 
 FNL
 FKI 1,MINL=0,MAXL=1
 FMEL 'Z',BCDWK 
 FMEND
* 
LISTFRMT FRMT 
 FILLR '+',2
 FILLR ' ',8
 FMEL '99E-99E-99E-9999',WORK0(CBIN1) 
 FILLR ' ',10 
 FMEL '99E-99E-99E-9999',WORK0(CBIN2) 
 FILLR ' ',10 
 FMEL '99E-99E-99E-9999',WORK0(CBIN3) 
 FILLR ' ',10 
 FMEL '99E-99E-99E-9999',WORK0(CBIN4) 
 FEOR 
 FILLR ' ',2
 FMEND
* 
ENDCARD FRMT
 FILLR '*',2
 FMEL '999',RKKMNR
 FILLR ' ',60 
 FILLR ' ',15 
 FMEND
* 
DETCARD FRMT
 FMEL '9999999999',CPRNR
 FCOPY CARDBUF
 FMEND
* 
FLTFRMT FRMT
 FILLR C'&',1 
 FMEL 'T99',BCDWK 
 FCOPY SAVEF(GSWBIN6,GSWBIN7) 
 FMEND
 END

HexDump

0x0000…001e (0, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» IDENT RKONV 830215 NJ«, t00=0x0000, t01=0x0004}
0x001e…0036              Head {h00=0x0014, h01=0x0050, text=» OPTNS LINES=46 «, t00=0x0000, t01=0x0022}
0x0036…004a              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x003a}
0x004a…0058              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x004e}
0x0058…006c              Head {h00=0x0010, h01=0x0050, text=» ENTRY RKGO «, t00=0x0000, t01=0x005c}
0x006c…0082              Head {h00=0x0012, h01=0x0050, text=» ENTRY ATTHD1 «, t00=0x0000, t01=0x0070}
0x0082…0096              Head {h00=0x0010, h01=0x0050, text=» ENTRY DKIO «, t00=0x0000, t01=0x0086}
0x0096…00ac              Head {h00=0x0012, h01=0x0050, text=» ENTRY DKREAD «, t00=0x0000, t01=0x009a}
0x00ac…00be              Head {h00=0x000e, h01=0x0050, text=» ENTRY ASG«, t00=0x0000, t01=0x00b0}
0x00be…00d4              Head {h00=0x0012, h01=0x0050, text=» ENTRY DKWRIT «, t00=0x0000, t01=0x00c2}
0x00d4…00ea              Head {h00=0x0012, h01=0x0050, text=» ENTRY RKASSG «, t00=0x0000, t01=0x00d8}
0x00ea…00fe              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x00ee}
0x00fe…0110              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0102}
0x0110…0124              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x0114}
0x0124…0136              Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0128}
0x0136…0148              Head {h00=0x000e, h01=0x0050, text=» EXT RKIO «, t00=0x0000, t01=0x013a}
0x0148…015c              Head {h00=0x0010, h01=0x0050, text=» EXT RAEXIT «, t00=0x0000, t01=0x014c}
0x015c…0170              Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0000, t01=0x0160}
0x0170…0184              Head {h00=0x0010, h01=0x0050, text=» EXT RKTEST «, t00=0x0000, t01=0x0174}
0x0184…0196              Head {h00=0x000e, h01=0x0050, text=» EXT SPORG«, t00=0x0000, t01=0x0188}
0x0196…01a8              Head {h00=0x000e, h01=0x0050, text=» EXT PASS «, t00=0x0001, t01=0x000a}
0x01a8…01bc              Head {h00=0x0010, h01=0x0050, text=» EXT COPYDK «, t00=0x0001, t01=0x001c}
0x01bc…01ce              Head {h00=0x000e, h01=0x0050, text=» EXT LOD1 «, t00=0x0001, t01=0x0030}
0x01ce…01e2              Head {h00=0x0010, h01=0x0050, text=» EXT GENWRF «, t00=0x0001, t01=0x0042}
0x01e2…01f4              Head {h00=0x000e, h01=0x0050, text=» EXT INIT «, t00=0x0001, t01=0x0056}
0x01f4…01fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0208              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…0212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0212…021c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…0234              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0090}
0x0234…0242              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00a8}
0x0242…024e              Head {h00=0x0008, h01=0x0050, text=»RKGO«, t00=0x0001, t01=0x00b6}
0x024e…0264              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x00c2}
0x0264…029c              Head {h00=0x0034, h01=0x0050, text=» MOVE SPKEY,CBIN4 INDICATE KEYTABLES TO BE USED «, t00=0x0001, t01=0x00d8}
0x029c…02be              Head {h00=0x001e, h01=0x0050, text=» PERF PASS CHECK PASSWORD «, t00=0x0001, t01=0x0110}
0x02be…02e0              Head {h00=0x001e, h01=0x0050, text=» BNOK RAEXIT ERROR, RETURN«, t00=0x0001, t01=0x0132}
0x02e0…0310              Head {h00=0x002c, h01=0x0050, text=» CBNE TTASKNR,CBIN1,RA100 RB, RC, .... ?«, t00=0x0001, t01=0x0154}
0x0310…0326              Head {h00=0x0012, h01=0x0050, text=» SET GTRKMFLG «, t00=0x0001, t01=0x0184}
0x0326…0334              Head {h00=0x000a, h01=0x0050, text=»RA020 «, t00=0x0002, t01=0x000a}
0x0334…035a              Head {h00=0x0022, h01=0x0050, text=» MOVE GTSTRFMT,=C'DIV. INFO ' «, t00=0x0002, t01=0x0018}
0x035a…036e              Head {h00=0x0010, h01=0x0050, text=» ATTFMT HEAD«, t00=0x0002, t01=0x003e}
0x036e…0382              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0002, t01=0x0052}
0x0382…03a8              Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,RA020,RA020,RA030 «, t00=0x0002, t01=0x0066}
0x03a8…03ba              Head {h00=0x000e, h01=0x0050, text=» B RAEXIT «, t00=0x0002, t01=0x008c}
0x03ba…03c8              Head {h00=0x000a, h01=0x0050, text=»RA030 «, t00=0x0002, t01=0x009e}
0x03c8…03e2              Head {h00=0x0016, h01=0x0050, text=» MOVE CDSNAME,=' '«, t00=0x0002, t01=0x00ac}
0x03e2…0406              Head {h00=0x0020, h01=0x0050, text=»RA100   CHOOSE NEW FUNCTION «, t00=0x0002, t01=0x00c6}
0x0406…0414              Head {h00=0x000a, h01=0x0050, text=»RA105 «, t00=0x0002, t01=0x00ea}
0x0414…043a              Head {h00=0x0022, h01=0x0050, text=» MOVE GTSTRFMT,=C'RUTINEVALG '«, t00=0x0002, t01=0x00f8}
0x043a…0450              Head {h00=0x0012, h01=0x0050, text=» ATTFMT HEAD2 «, t00=0x0002, t01=0x011e}
0x0450…0478              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD3,=D'0' FREE RECORDS«, t00=0x0002, t01=0x0134}
0x0478…048c              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x015c}
0x048c…04b6              Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'23',RA110 ONLINE ?«, t00=0x0002, t01=0x0170}
0x04b6…04e0              Head {h00=0x0026, h01=0x0050, text=» CBNE SPBINW2,CBIN3,RA105 -, SLUT «, t00=0x0003, t01=0x000a}
0x04e0…04ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04ea…0506              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,BCDWK «, t00=0x0003, t01=0x003e}
0x0506…0516              Head {h00=0x000c, h01=0x0050, text=» B RA150«, t00=0x0003, t01=0x005a}
0x0516…0524              Head {h00=0x000a, h01=0x0050, text=»RA110 «, t00=0x0003, t01=0x006a}
0x0524…0536              Head {h00=0x000e, h01=0x0050, text=» B RAEXIT «, t00=0x0003, t01=0x0078}
0x0536…0544              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x008a}
0x0544…057e              Head {h00=0x0036, h01=0x0050, text=»* * * * * * * * * * * * * * * * * * * * * * * * * «, t00=0x0003, t01=0x0098}
0x057e…0588              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…05ba              Head {h00=0x002e, h01=0x0050, text=»* 01%- R]KONVERTERING/FORSKUDSREGISTRERING«, t00=0x0003, t01=0x00dc}
0x05ba…05d0              Head {h00=0x0012, h01=0x0050, text=»* 02 - [NDRING«, t00=0x0003, t01=0x010e}
0x05d0…05ee              Head {h00=0x001a, h01=0x0050, text=»* 03 - LOCAL INQUIRIES«, t00=0x0003, t01=0x0124}
0x05ee…060e              Head {h00=0x001c, h01=0x0050, text=»* 04 - COPY FLOPPY DISCS«, t00=0x0003, t01=0x0142}
0x060e…062c              Head {h00=0x001a, h01=0x0050, text=»* 05 - LIST REG. CPRNR«, t00=0x0003, t01=0x0162}
0x062c…064c              Head {h00=0x001c, h01=0x0050, text=»* 06 - CHANGE CONSTANTS «, t00=0x0003, t01=0x0180}
0x064c…0664              Head {h00=0x0014, h01=0x0050, text=»* 07 - LIST FD01«, t00=0x0004, t01=0x0010}
0x0664…066e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…06a2              Head {h00=0x0030, h01=0x0050, text=»*   %-CAN BE SELECTED BY NON-MASTER TERMINAL«, t00=0x0004, t01=0x0032}
0x06a2…06ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06ac…06e6              Head {h00=0x0036, h01=0x0050, text=»* * * * * * * * * * * * * * * * * * * * * * * * * «, t00=0x0004, t01=0x0070}
0x06e6…06ee              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00aa}
0x06ee…06f6              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00b2}
0x06f6…0704              Head {h00=0x000a, h01=0x0050, text=»RA150 «, t00=0x0004, t01=0x00ba}
0x0704…0728              Head {h00=0x0020, h01=0x0050, text=» TBT GTRKMFLG,RA200 MASTER ?«, t00=0x0004, t01=0x00c8}
0x0728…0754              Head {h00=0x0028, h01=0x0050, text=» CBE GSWBIN1,CBIN1,REG000 REG. ONLY «, t00=0x0004, t01=0x00ec}
0x0754…0766              Head {h00=0x000e, h01=0x0050, text=» B ERR140 «, t00=0x0004, t01=0x0118}
0x0766…0770              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012a}
0x0770…077e              Head {h00=0x000a, h01=0x0050, text=»RA200 «, t00=0x0004, t01=0x0134}
0x077e…07b2              Head {h00=0x0030, h01=0x0050, text=» IB GSWBIN1,REG000,AND000,FOR000,COP000,  C «, t00=0x0004, t01=0x0142}
0x07b2…07d0              Head {h00=0x001a, h01=0x0050, text=»  LST000,RA020,PRT000 «, t00=0x0004, t01=0x0176}
0x07d0…07e0 (5, 0, 400)  Head {h00=0x000c, h01=0x0050, text=» B RA105«, t00=0x0005, t01=0x0004}
0x07e0…07ee              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0014}
0x07ee…07fc              Head {h00=0x000a, h01=0x0050, text=»REG000«, t00=0x0005, t01=0x0022}
0x07fc…0834              Head {h00=0x0034, h01=0x0050, text=»* TYPE 1, R]KONVERTERING / FORSKUDSREGISTRERING «, t00=0x0005, t01=0x0030}
0x0834…085e              Head {h00=0x0026, h01=0x0050, text=» TBF GTRKMFLG,REG700 NON-MASTER ? «, t00=0x0005, t01=0x0068}
0x085e…0870              Head {h00=0x000e, h01=0x0050, text=» PERF LOD1«, t00=0x0005, t01=0x0092}
0x0870…0882              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x0005, t01=0x00a4}
0x0882…08a4              Head {h00=0x001e, h01=0x0050, text=» B ERR60U READ/WRITE ERROR«, t00=0x0005, t01=0x00b6}
0x08a4…08c2              Head {h00=0x001a, h01=0x0050, text=» B ERR41 ASSIGN ERROR «, t00=0x0005, t01=0x00d8}
0x08c2…08d8              Head {h00=0x0012, h01=0x0050, text=» CLEAR CHFLAG «, t00=0x0005, t01=0x00f6}
0x08d8…0902              Head {h00=0x0026, h01=0x0050, text=» CLEAR FULL INDICATE ROOM ON FD01 «, t00=0x0005, t01=0x010c}
0x0902…091e              Head {h00=0x0018, h01=0x0050, text=» TBT FORSKUD,REG100 «, t00=0x0005, t01=0x0136}
0x091e…0938              Head {h00=0x0016, h01=0x0050, text=» TBT LONOPL,REG120«, t00=0x0005, t01=0x0152}
0x0938…0960              Head {h00=0x0024, h01=0x0050, text=» MOVE GTSTRFMT,=C'SLUTLIGNING ' «, t00=0x0005, t01=0x016c}
0x0960…0972 (6, 0, 398)  Head {h00=0x000e, h01=0x0050, text=» B REG200 «, t00=0x0006, t01=0x0004}
0x0972…09a0              Head {h00=0x002a, h01=0x0050, text=»REG100 MOVE GTSTRFMT,=C'FORSKUDSREG. '«, t00=0x0006, t01=0x0016}
0x09a0…09b2              Head {h00=0x000e, h01=0x0050, text=» B REG200 «, t00=0x0006, t01=0x0044}
0x09b2…09c0              Head {h00=0x000a, h01=0x0050, text=»REG120«, t00=0x0006, t01=0x0056}
0x09c0…09e4              Head {h00=0x0020, h01=0x0050, text=» MOVE GTSTRFMT,=C'LONOPL. ' «, t00=0x0006, t01=0x0064}
0x09e4…09f6              Head {h00=0x000e, h01=0x0050, text=» B REG200 «, t00=0x0006, t01=0x0088}
0x09f6…0a04              Head {h00=0x000a, h01=0x0050, text=»REG200«, t00=0x0006, t01=0x009a}
0x0a04…0a18              Head {h00=0x0010, h01=0x0050, text=» SET CRKKLAR«, t00=0x0006, t01=0x00a8}
0x0a18…0a2c              Head {h00=0x0010, h01=0x0050, text=» PERF KONREG«, t00=0x0006, t01=0x00bc}
0x0a2c…0a44              Head {h00=0x0014, h01=0x0050, text=» B REG200 REPEAT«, t00=0x0006, t01=0x00d0}
0x0a44…0a5c              Head {h00=0x0014, h01=0x0050, text=» B REG300 NYVALG«, t00=0x0006, t01=0x00e8}
0x0a5c…0a7a              Head {h00=0x001a, h01=0x0050, text=» B REG400 WRITE ERROR «, t00=0x0006, t01=0x0100}
0x0a7a…0a94              Head {h00=0x0016, h01=0x0050, text=» B REG500 NO ROOM «, t00=0x0006, t01=0x011e}
0x0a94…0aa2              Head {h00=0x000a, h01=0x0050, text=»REG300«, t00=0x0006, t01=0x0138}
0x0aa2…0abe              Head {h00=0x0018, h01=0x0050, text=» MOVE RECFREE,MAXREC«, t00=0x0006, t01=0x0146}
0x0abe…0ad8              Head {h00=0x0016, h01=0x0050, text=» MOVE RECUSE,CBIN0«, t00=0x0006, t01=0x0162}
0x0ad8…0aee              Head {h00=0x0012, h01=0x0050, text=» CLEAR CRKKLAR«, t00=0x0006, t01=0x017c}
0x0aee…0b0a (7, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0007, t01=0x0004}
0x0b0a…0b1c              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0007, t01=0x0020}
0x0b1c…0b3c              Head {h00=0x001c, h01=0x0050, text=» BNOK ERR50 UNLOADERROR «, t00=0x0007, t01=0x0032}
0x0b3c…0b4e              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x0007, t01=0x0052}
0x0b4e…0b5c              Head {h00=0x000a, h01=0x0050, text=»REG400«, t00=0x0007, t01=0x0064}
0x0b5c…0b72              Head {h00=0x0012, h01=0x0050, text=» CLEAR CRKKLAR«, t00=0x0007, t01=0x0072}
0x0b72…0b8e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0007, t01=0x0088}
0x0b8e…0ba0              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0007, t01=0x00a4}
0x0ba0…0bb4              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x0007, t01=0x00b6}
0x0bb4…0bc4              Head {h00=0x000c, h01=0x0050, text=» B ERR70«, t00=0x0007, t01=0x00ca}
0x0bc4…0bd2              Head {h00=0x000a, h01=0x0050, text=»REG500«, t00=0x0007, t01=0x00da}
0x0bd2…0be8              Head {h00=0x0012, h01=0x0050, text=» CLEAR CRKKLAR«, t00=0x0007, t01=0x00e8}
0x0be8…0c04              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0007, t01=0x00fe}
0x0c04…0c16              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0007, t01=0x011a}
0x0c16…0c2a              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x0007, t01=0x012c}
0x0c2a…0c3c              Head {h00=0x000e, h01=0x0050, text=» B ERR110 «, t00=0x0007, t01=0x0140}
0x0c3c…0c6c              Head {h00=0x002c, h01=0x0050, text=»* THIS PORTION ONLY FOR NON-MASTER TASK «, t00=0x0007, t01=0x0152}
0x0c6c…0c7a              Head {h00=0x000a, h01=0x0050, text=»REG700«, t00=0x0007, t01=0x0182}
0x0c7a…0c96              Head {h00=0x0018, h01=0x0050, text=» TBT CRKKLAR,REG800 «, t00=0x0007, t01=0x0190}
0x0c96…0cd2              Head {h00=0x0038, h01=0x0050, text=» MOVE GSWSTR80,=C'11IKKE STARTET OP P] HOVEDSK[RM ' «, t00=0x0008, t01=0x001c}
0x0cd2…0cf0              Head {h00=0x001a, h01=0x0050, text=» WRITE SCREEN,GSWSTR80«, t00=0x0008, t01=0x0058}
0x0cf0…0d06              Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN20 «, t00=0x0008, t01=0x0076}
0x0d06…0d18              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x0008, t01=0x008c}
0x0d18…0d26              Head {h00=0x000a, h01=0x0050, text=»REG800«, t00=0x0008, t01=0x009e}
0x0d26…0d3a              Head {h00=0x0010, h01=0x0050, text=» PERF KONREG«, t00=0x0008, t01=0x00ac}
0x0d3a…0d52              Head {h00=0x0014, h01=0x0050, text=» B RA100 REPEAT «, t00=0x0008, t01=0x00c0}
0x0d52…0d6e              Head {h00=0x0018, h01=0x0050, text=» B NYVALG NEW SELECT«, t00=0x0008, t01=0x00d8}
0x0d6e…0d8a              Head {h00=0x0018, h01=0x0050, text=» B ERR70 WRITE ERROR«, t00=0x0008, t01=0x00f4}
0x0d8a…0da4              Head {h00=0x0016, h01=0x0050, text=» B ERR110 NO ROOM «, t00=0x0008, t01=0x0110}
0x0da4…0db2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x012a}
0x0db2…0dc0              Head {h00=0x000a, h01=0x0050, text=»AND000«, t00=0x0008, t01=0x0138}
0x0dc0…0de2              Head {h00=0x001e, h01=0x0050, text=»   *** NOT TESTED YET *** «, t00=0x0008, t01=0x0146}
0x0de2…0dfc              Head {h00=0x0016, h01=0x0050, text=»* TYPE 2, AENDRING«, t00=0x0008, t01=0x0168}
0x0dfc…0e0e              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x0008, t01=0x0182}
0x0e0e…0e2a (9, 0, 398)  Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN2 «, t00=0x0009, t01=0x0004}
0x0e2a…0e3c              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0009, t01=0x0020}
0x0e3c…0e5a              Head {h00=0x001a, h01=0x0050, text=» BNOK ERR60U R/W ERROR«, t00=0x0009, t01=0x0032}
0x0e5a…0e7a              Head {h00=0x001c, h01=0x0050, text=» B ERR41 ALREADY LOADED «, t00=0x0009, t01=0x0050}
0x0e7a…0e8c              Head {h00=0x000e, h01=0x0050, text=» PERF LOD1«, t00=0x0009, t01=0x0070}
0x0e8c…0e9c              Head {h00=0x000c, h01=0x0050, text=» B ERR41«, t00=0x0009, t01=0x0082}
0x0e9c…0eac              Head {h00=0x000c, h01=0x0050, text=» B ERR41«, t00=0x0009, t01=0x0092}
0x0eac…0ebc              Head {h00=0x000c, h01=0x0050, text=» B ERR41«, t00=0x0009, t01=0x00a2}
0x0ebc…0ed0              Head {h00=0x0010, h01=0x0050, text=» SET CHFLAG «, t00=0x0009, t01=0x00b2}
0x0ed0…0ee6              Head {h00=0x0012, h01=0x0050, text=» CLEAR CPRFLAG«, t00=0x0009, t01=0x00c6}
0x0ee6…0f12              Head {h00=0x0028, h01=0x0050, text=» SET CRKKLAR INDICATE READY FOR REG «, t00=0x0009, t01=0x00dc}
0x0f12…0f36              Head {h00=0x0020, h01=0x0050, text=» MOVE GTSTRFMT,=C'[NDRING ' «, t00=0x0009, t01=0x0108}
0x0f36…0f44              Head {h00=0x000a, h01=0x0050, text=»AND100«, t00=0x0009, t01=0x012c}
0x0f44…0f74              Head {h00=0x002c, h01=0x0050, text=» PERF SPORG RETRIEVE CPR/INFO FROM FD02 «, t00=0x0009, t01=0x013a}
0x0f74…0f9c              Head {h00=0x0024, h01=0x0050, text=» B ERR90U RECORD DELIMITER WRONG«, t00=0x0009, t01=0x016a}
0x0f9c…0fb4 (10, 0, 400) Head {h00=0x0014, h01=0x0050, text=» B AND200 NORMAL«, t00=0x000a, t01=0x0004}
0x0fb4…0fd0              Head {h00=0x0018, h01=0x0050, text=» B ERR90U READ ERROR«, t00=0x000a, t01=0x001c}
0x0fd0…0fee              Head {h00=0x001a, h01=0x0050, text=» B ERR130U NO INDEXREG«, t00=0x000a, t01=0x0038}
0x0fee…0ffc              Head {h00=0x000a, h01=0x0050, text=»AND200«, t00=0x000a, t01=0x0056}
0x0ffc…1010              Head {h00=0x0010, h01=0x0050, text=» SET CPRFLAG«, t00=0x000a, t01=0x0064}
0x1010…1032              Head {h00=0x001e, h01=0x0050, text=» PERF KONREG AND CHANGE IT«, t00=0x000a, t01=0x0078}
0x1032…104a              Head {h00=0x0014, h01=0x0050, text=» B AND100 REPEAT«, t00=0x000a, t01=0x009a}
0x104a…1070              Head {h00=0x0022, h01=0x0050, text=» B AND300 EXIT FOR NEW SELECT «, t00=0x000a, t01=0x00b2}
0x1070…108e              Head {h00=0x001a, h01=0x0050, text=» B AND500 WRITE ERROR «, t00=0x000a, t01=0x00d8}
0x108e…10ac              Head {h00=0x001a, h01=0x0050, text=» B AND600 NO MORE ROOM«, t00=0x000a, t01=0x00f6}
0x10ac…10ba              Head {h00=0x000a, h01=0x0050, text=»AND300«, t00=0x000a, t01=0x0114}
0x10ba…10d6              Head {h00=0x0018, h01=0x0050, text=» MOVE RECFREE,MAXREC«, t00=0x000a, t01=0x0122}
0x10d6…10f0              Head {h00=0x0016, h01=0x0050, text=» MOVE RECUSE,CBIN0«, t00=0x000a, t01=0x013e}
0x10f0…1106              Head {h00=0x0012, h01=0x0050, text=» CLEAR CRKKLAR«, t00=0x000a, t01=0x0158}
0x1106…1114              Head {h00=0x000a, h01=0x0050, text=»AND400«, t00=0x000a, t01=0x016e}
0x1114…1130              Head {h00=0x0018, h01=0x0050, text=» MOVE RECFREE,MAXREC«, t00=0x000a, t01=0x017c}
0x1130…114a              Head {h00=0x0016, h01=0x0050, text=» MOVE RECUSE,CBIN0«, t00=0x000b, t01=0x0008}
0x114a…1160              Head {h00=0x0012, h01=0x0050, text=» CLEAR CRKKLAR«, t00=0x000b, t01=0x0022}
0x1160…117c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x000b, t01=0x0038}
0x117c…118e              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000b, t01=0x0054}
0x118e…11a2              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x000b, t01=0x0066}
0x11a2…11be              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 «, t00=0x000b, t01=0x007a}
0x11be…11d0              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000b, t01=0x0096}
0x11d0…11e4              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x000b, t01=0x00a8}
0x11e4…11f6              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x000b, t01=0x00bc}
0x11f6…1204              Head {h00=0x000a, h01=0x0050, text=»AND500«, t00=0x000b, t01=0x00ce}
0x1204…1220              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 «, t00=0x000b, t01=0x00dc}
0x1220…1232              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000b, t01=0x00f8}
0x1232…1246              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x000b, t01=0x010a}
0x1246…1258              Head {h00=0x000e, h01=0x0050, text=» B ERR70U «, t00=0x000b, t01=0x011e}
0x1258…1266              Head {h00=0x000a, h01=0x0050, text=»AND600«, t00=0x000b, t01=0x0130}
0x1266…1282              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 «, t00=0x000b, t01=0x013e}
0x1282…1294              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000b, t01=0x015a}
0x1294…12a8              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x000b, t01=0x016c}
0x12a8…12ba              Head {h00=0x000e, h01=0x0050, text=» B ERR110U«, t00=0x000b, t01=0x0180}
0x12ba…12c8 (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0004}
0x12c8…12d6              Head {h00=0x000a, h01=0x0050, text=»FOR000«, t00=0x000c, t01=0x0012}
0x12d6…12f8              Head {h00=0x001e, h01=0x0050, text=»* TYPE 3, LOCAL INQUIRIES «, t00=0x000c, t01=0x0020}
0x12f8…1318              Head {h00=0x001c, h01=0x0050, text=» PERF ASG,CBIN1 LOAD FD1«, t00=0x000c, t01=0x0042}
0x1318…132c              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR41 «, t00=0x000c, t01=0x0062}
0x132c…1342              Head {h00=0x0012, h01=0x0050, text=» CLEAR CHFLAG «, t00=0x000c, t01=0x0076}
0x1342…137c              Head {h00=0x0036, h01=0x0050, text=» MOVE GTSTRFMT,=X'464F524553505C524720' FORESPOERG«, t00=0x000c, t01=0x008c}
0x137c…13aa              Head {h00=0x002a, h01=0x0050, text=» PERF SPORG RETRIEVE CPRINFO FROM FD01«, t00=0x000c, t01=0x00c6}
0x13aa…13c4              Head {h00=0x0016, h01=0x0050, text=» B ERR60U SLUTTEGN«, t00=0x000c, t01=0x00f4}
0x13c4…13dc              Head {h00=0x0014, h01=0x0050, text=» B FOR100 NORMAL«, t00=0x000c, t01=0x010e}
0x13dc…13f8              Head {h00=0x0018, h01=0x0050, text=» B ERR60U READ ERROR«, t00=0x000c, t01=0x0126}
0x13f8…1412              Head {h00=0x0016, h01=0x0050, text=» B FOR100 FINISHED«, t00=0x000c, t01=0x0142}
0x1412…1430              Head {h00=0x001a, h01=0x0050, text=» B ERR130U NO INDEXREG«, t00=0x000c, t01=0x015c}
0x1430…143e              Head {h00=0x000a, h01=0x0050, text=»FOR100«, t00=0x000c, t01=0x017a}
0x143e…145a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x000c, t01=0x0188}
0x145a…146c              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000d, t01=0x0014}
0x146c…1480              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x000d, t01=0x0026}
0x1480…1492              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x000d, t01=0x003a}
0x1492…14a0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x004c}
0x14a0…14ae              Head {h00=0x000a, h01=0x0050, text=»COP000«, t00=0x000d, t01=0x005a}
0x14ae…14d2              Head {h00=0x0020, h01=0x0050, text=»* TYPE 4, COPY FLOPPY DISCS «, t00=0x000d, t01=0x0068}
0x14d2…14e6              Head {h00=0x0010, h01=0x0050, text=» SET COPYFLG«, t00=0x000d, t01=0x008c}
0x14e6…1510              Head {h00=0x0026, h01=0x0050, text=» MOVE GTSTRFMT,=C'DISKKOPIERING ' «, t00=0x000d, t01=0x00a0}
0x1510…1528              Head {h00=0x0014, h01=0x0050, text=» PERF ASG,CBIN1 «, t00=0x000d, t01=0x00ca}
0x1528…1552              Head {h00=0x0026, h01=0x0050, text=» BNOK ERR41 IGNORE IF DISK LOADED «, t00=0x000d, t01=0x00e2}
0x1552…157a              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN5,CBIN12 REWIND FD01«, t00=0x000d, t01=0x010c}
0x157a…158c              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000d, t01=0x0134}
0x158c…15a0              Head {h00=0x0010, h01=0x0050, text=» BNOK COP550«, t00=0x000d, t01=0x0146}
0x15a0…15b4              Head {h00=0x0010, h01=0x0050, text=» PERF COPYDK«, t00=0x000d, t01=0x015a}
0x15b4…15ca              Head {h00=0x0012, h01=0x0050, text=» B COP400 MAK «, t00=0x000d, t01=0x016e}
0x15ca…15e6              Head {h00=0x0018, h01=0x0050, text=» B COP500 READ ERROR«, t00=0x000d, t01=0x0184}
0x15e6…1604              Head {h00=0x001a, h01=0x0050, text=» B COP600 WRITE ERROR «, t00=0x000e, t01=0x0010}
0x1604…1612              Head {h00=0x000a, h01=0x0050, text=»COP400«, t00=0x000e, t01=0x002e}
0x1612…162e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000e, t01=0x003c}
0x162e…1640              Head {h00=0x000e, h01=0x0050, text=» B COP800 «, t00=0x000e, t01=0x0058}
0x1640…164e              Head {h00=0x000a, h01=0x0050, text=»COP500«, t00=0x000e, t01=0x006a}
0x164e…166a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 «, t00=0x000e, t01=0x0078}
0x166a…167c              Head {h00=0x000e, h01=0x0050, text=» B COP800 «, t00=0x000e, t01=0x0094}
0x167c…168a              Head {h00=0x000a, h01=0x0050, text=»COP550«, t00=0x000e, t01=0x00a6}
0x168a…16a6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 «, t00=0x000e, t01=0x00b4}
0x16a6…16b8              Head {h00=0x000e, h01=0x0050, text=» B COP800 «, t00=0x000e, t01=0x00d0}
0x16b8…16c6              Head {h00=0x000a, h01=0x0050, text=»COP600«, t00=0x000e, t01=0x00e2}
0x16c6…16e2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 «, t00=0x000e, t01=0x00f0}
0x16e2…16f4              Head {h00=0x000e, h01=0x0050, text=» B COP800 «, t00=0x000e, t01=0x010c}
0x16f4…1702              Head {h00=0x000a, h01=0x0050, text=»COP800«, t00=0x000e, t01=0x011e}
0x1702…171e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x000e, t01=0x012c}
0x171e…1730              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x000e, t01=0x0148}
0x1730…1744              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x000e, t01=0x015a}
0x1744…1774              Head {h00=0x002c, h01=0x0050, text=» IB GSWBIN1,NYVALG,ERR90U,ERR70U,ERR100U«, t00=0x000e, t01=0x016e}
0x1774…1782              Head {h00=0x000a, h01=0x0050, text=»COP900«, t00=0x000f, t01=0x000e}
0x1782…1794              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x000f, t01=0x001c}
0x1794…17a2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x002e}
0x17a2…17b0              Head {h00=0x000a, h01=0x0050, text=»LST000«, t00=0x000f, t01=0x003c}
0x17b0…17d2              Head {h00=0x001e, h01=0x0050, text=»* TYPE 05, LIST REG. CPRNR«, t00=0x000f, t01=0x004a}
0x17d2…17ee              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,=D'0' «, t00=0x000f, t01=0x006c}
0x17ee…181a              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR80,=C'INDSTIL PRINTER ' «, t00=0x000f, t01=0x0088}
0x181a…1832              Head {h00=0x0014, h01=0x0050, text=» ATTFMT LISTFRM2«, t00=0x000f, t01=0x00b4}
0x1832…1852              Head {h00=0x001c, h01=0x0050, text=» PERF SPCLRA ADJUST GTP «, t00=0x000f, t01=0x00cc}
0x1852…1874              Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN2,COP900 «, t00=0x000f, t01=0x00ec}
0x1874…1894              Head {h00=0x001c, h01=0x0050, text=» PERF ASG,CBIN1 LOAD FD1«, t00=0x000f, t01=0x010e}
0x1894…18a8              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR41 «, t00=0x000f, t01=0x012e}
0x18a8…18c4              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,CBIN6 «, t00=0x000f, t01=0x0142}
0x18c4…18e0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN5 «, t00=0x000f, t01=0x015e}
0x18e0…18fe              Head {h00=0x001a, h01=0x0050, text=» PERF DKREAD READ VOL1«, t00=0x000f, t01=0x017a}
0x18fe…1912              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR60U«, t00=0x0010, t01=0x0008}
0x1912…1930              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR80,TEDBUF «, t00=0x0010, t01=0x001c}
0x1930…1956              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0010, t01=0x003a}
0x1956…196a              Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0010, t01=0x0060}
0x196a…197e              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR60U«, t00=0x0010, t01=0x0074}
0x197e…199c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR80,TEDBUF «, t00=0x0010, t01=0x0088}
0x199c…19c2              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0010, t01=0x00a6}
0x19c2…19de              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,=W'26'«, t00=0x0010, t01=0x00cc}
0x19de…19f2              Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0010, t01=0x00e8}
0x19f2…1a06              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR60U«, t00=0x0010, t01=0x00fc}
0x1a06…1a24              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR80,TEDBUF «, t00=0x0010, t01=0x0110}
0x1a24…1a4a              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0010, t01=0x012e}
0x1a4a…1a66              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR80,=C' '«, t00=0x0010, t01=0x0154}
0x1a66…1a8c              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0010, t01=0x0170}
0x1a8c…1aa6              Head {h00=0x0016, h01=0x0050, text=» MOVE WORK14,=C'0'«, t00=0x0011, t01=0x0008}
0x1aa6…1ac2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0011, t01=0x0022}
0x1ac2…1ade              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN4 «, t00=0x0011, t01=0x003e}
0x1ade…1aec              Head {h00=0x000a, h01=0x0050, text=»LST100«, t00=0x0011, t01=0x005a}
0x1aec…1b00              Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0011, t01=0x0068}
0x1b00…1b14              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR60U«, t00=0x0011, t01=0x007c}
0x1b14…1b30              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,TEDBUF«, t00=0x0011, t01=0x0090}
0x1b30…1b52              Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR2,=C'**',LST200«, t00=0x0011, t01=0x00ac}
0x1b52…1b6e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,=C'&' «, t00=0x0011, t01=0x00ce}
0x1b6e…1b8a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN0 «, t00=0x0011, t01=0x00ea}
0x1b8a…1bc2              Head {h00=0x0034, h01=0x0050, text=» MATCH TEDBUF,GSWBIN8,CBIN10,GSWSTR2,CBIN0,CBIN1«, t00=0x0011, t01=0x0106}
0x1bc2…1bea              Head {h00=0x0024, h01=0x0050, text=» BOK LST100 FORTS[TTELSESRECORD «, t00=0x0011, t01=0x013e}
0x1bea…1c06              Head {h00=0x0018, h01=0x0050, text=» MOVE WORK13,TEDBUF «, t00=0x0011, t01=0x0166}
0x1c06…1c34              Head {h00=0x002a, h01=0x0050, text=» CBE WORK13,WORK14,LST100 EQUAL CPRNR «, t00=0x0011, t01=0x0182}
0x1c34…1c50              Head {h00=0x0018, h01=0x0050, text=» MOVE WORK14,WORK13 «, t00=0x0012, t01=0x0020}
0x1c50…1c6a              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0012, t01=0x003c}
0x1c6a…1c98              Head {h00=0x002a, h01=0x0050, text=» MOVE WORK0(GSWBIN1),WORK14 SAVE CPRNR«, t00=0x0012, t01=0x0056}
0x1c98…1cba              Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN1,CBIN4,LST100«, t00=0x0012, t01=0x0084}
0x1cba…1ce0              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRMT «, t00=0x0012, t01=0x00a6}
0x1ce0…1cfa              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN2,CBIN1«, t00=0x0012, t01=0x00cc}
0x1cfa…1d22              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 RE-INITIATE «, t00=0x0012, t01=0x00e6}
0x1d22…1d42              Head {h00=0x001c, h01=0x0050, text=» MOVE WORK0(CBIN1),=D'0'«, t00=0x0012, t01=0x010e}
0x1d42…1d62              Head {h00=0x001c, h01=0x0050, text=» MOVE WORK0(CBIN2),=D'0'«, t00=0x0012, t01=0x012e}
0x1d62…1d82              Head {h00=0x001c, h01=0x0050, text=» MOVE WORK0(CBIN3),=D'0'«, t00=0x0012, t01=0x014e}
0x1d82…1da2              Head {h00=0x001c, h01=0x0050, text=» MOVE WORK0(CBIN4),=D'0'«, t00=0x0012, t01=0x016e}
0x1da2…1dc8              Head {h00=0x0022, h01=0x0050, text=»* MAK WILL TERMINATE CPRNRLIST«, t00=0x0012, t01=0x018e}
0x1dc8…1ddc              Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x0013, t01=0x0024}
0x1ddc…1df0              Head {h00=0x0010, h01=0x0050, text=» BOK LST300 «, t00=0x0013, t01=0x0038}
0x1df0…1e12              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,=W'45',LST100«, t00=0x0013, t01=0x004c}
0x1e12…1e2e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR80,=C' '«, t00=0x0013, t01=0x006e}
0x1e2e…1e50              Head {h00=0x001e, h01=0x0050, text=» PERF GENWR,LISTFRM1,CBIN6«, t00=0x0013, t01=0x008a}
0x1e50…1e6c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x0013, t01=0x00ac}
0x1e6c…1e7e              Head {h00=0x000e, h01=0x0050, text=» B LST100 «, t00=0x0013, t01=0x00c8}
0x1e7e…1e8c              Head {h00=0x000a, h01=0x0050, text=»LST200«, t00=0x0013, t01=0x00da}
0x1e8c…1eb2              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRMT «, t00=0x0013, t01=0x00e8}
0x1eb2…1ed0              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR80,TEDBUF «, t00=0x0013, t01=0x010e}
0x1ed0…1ef6              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0013, t01=0x012c}
0x1ef6…1f12              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR80,=C' '«, t00=0x0013, t01=0x0152}
0x1f12…1f34              Head {h00=0x001e, h01=0x0050, text=» PERF GENWR,LISTFRM1,CBIN3«, t00=0x0013, t01=0x016e}
0x1f34…1f42              Head {h00=0x000a, h01=0x0050, text=»LST300«, t00=0x0013, t01=0x0190}
0x1f42…1f5e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0014, t01=0x000e}
0x1f5e…1f70              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0014, t01=0x002a}
0x1f70…1f84              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x0014, t01=0x003c}
0x1f84…1f96              Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x0014, t01=0x0050}
0x1f96…1fa4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0062}
0x1fa4…1fb4              Head {h00=0x000c, h01=0x0050, text=»* TYPE 7«, t00=0x0014, t01=0x0070}
0x1fb4…1fc8              Head {h00=0x0010, h01=0x0050, text=»* PRINT FD01«, t00=0x0014, t01=0x0080}
0x1fc8…1fd6              Head {h00=0x000a, h01=0x0050, text=»PRT000«, t00=0x0014, t01=0x0094}
0x1fd6…1ff2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD1,=D'0' «, t00=0x0014, t01=0x00a2}
0x1ff2…201e              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR80,=C'INDSTIL PRINTER ' «, t00=0x0014, t01=0x00be}
0x201e…2036              Head {h00=0x0014, h01=0x0050, text=» ATTFMT LISTFRM2«, t00=0x0014, t01=0x00ea}
0x2036…2056              Head {h00=0x001c, h01=0x0050, text=» PERF SPCLRA ADJUST GTP «, t00=0x0014, t01=0x0102}
0x2056…2078              Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN2,NYVALG «, t00=0x0014, t01=0x0122}
0x2078…2090              Head {h00=0x0014, h01=0x0050, text=» PERF ASG,CBIN1 «, t00=0x0014, t01=0x0144}
0x2090…20a4              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR41 «, t00=0x0014, t01=0x015c}
0x20a4…20c0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR80,=' ' «, t00=0x0014, t01=0x0170}
0x20c0…20e6              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0014, t01=0x018c}
0x20e6…2102              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,CBIN6 «, t00=0x0015, t01=0x0022}
0x2102…2110              Head {h00=0x000a, h01=0x0050, text=»PRT100«, t00=0x0015, t01=0x003e}
0x2110…2124              Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0015, t01=0x004c}
0x2124…2138              Head {h00=0x0010, h01=0x0050, text=» BNOK PRT200«, t00=0x0015, t01=0x0060}
0x2138…2156              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,GTRECNR «, t00=0x0015, t01=0x0074}
0x2156…2174              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR80,TEDBUF «, t00=0x0015, t01=0x0092}
0x2174…2190              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,TEDBUF«, t00=0x0015, t01=0x00b0}
0x2190…21ac              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'80'«, t00=0x0015, t01=0x00cc}
0x21ac…21c8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0015, t01=0x00e8}
0x21c8…21e4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=C'!' «, t00=0x0015, t01=0x0104}
0x21e4…221e              Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR80,GSWBIN1,GSWBIN2,STR7F,CBIN0,CBIN1 «, t00=0x0015, t01=0x0120}
0x221e…2232              Head {h00=0x0010, h01=0x0050, text=» BNOK PRT150«, t00=0x0015, t01=0x015a}
0x2232…2266              Head {h00=0x0030, h01=0x0050, text=» XCOPY GSWSTR80,GSWBIN1,CBIN1,GSWSTR1,CBIN0 «, t00=0x0015, t01=0x016e}
0x2266…2274              Head {h00=0x000a, h01=0x0050, text=»PRT150«, t00=0x0016, t01=0x0012}
0x2274…229a              Head {h00=0x0022, h01=0x0050, text=» PERF GENWRF,GTHCDEV,LISTFRM1 «, t00=0x0016, t01=0x0020}
0x229a…22ae              Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x0016, t01=0x0046}
0x22ae…22c2              Head {h00=0x0010, h01=0x0050, text=» BOK PRT400 «, t00=0x0016, t01=0x005a}
0x22c2…22e6              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWSTR2,=C'**',PRT100 «, t00=0x0016, t01=0x006e}
0x22e6…22f8              Head {h00=0x000e, h01=0x0050, text=» B PRT400 «, t00=0x0016, t01=0x0092}
0x22f8…2306              Head {h00=0x000a, h01=0x0050, text=»PRT200«, t00=0x0016, t01=0x00a4}
0x2306…2328              Head {h00=0x001e, h01=0x0050, text=» CBE GTRECNR,CBIN7,PRT100 «, t00=0x0016, t01=0x00b2}
0x2328…234a              Head {h00=0x001e, h01=0x0050, text=» CBE GTRECNR,CBIN8,PRT300 «, t00=0x0016, t01=0x00d4}
0x234a…235c              Head {h00=0x000e, h01=0x0050, text=» B PRT100 «, t00=0x0016, t01=0x00f6}
0x235c…236a              Head {h00=0x000a, h01=0x0050, text=»PRT300«, t00=0x0016, t01=0x0108}
0x236a…2386              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,=W'26'«, t00=0x0016, t01=0x0116}
0x2386…2398              Head {h00=0x000e, h01=0x0050, text=» B PRT100 «, t00=0x0016, t01=0x0132}
0x2398…23a6              Head {h00=0x000a, h01=0x0050, text=»PRT400«, t00=0x0016, t01=0x0144}
0x23a6…23c2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0016, t01=0x0152}
0x23c2…23d4              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0016, t01=0x016e}
0x23d4…23e8              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x0016, t01=0x0180}
0x23e8…23fa (23, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B NYVALG «, t00=0x0017, t01=0x0004}
0x23fa…2408              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0016}
0x2408…2412              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0024}
0x2412…241c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002e}
0x241c…2434              Head {h00=0x0014, h01=0x0050, text=»* ERROR ROUTINES«, t00=0x0017, t01=0x0038}
0x2434…243e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0050}
0x243e…244c              Head {h00=0x000a, h01=0x0050, text=»ERR41 «, t00=0x0017, t01=0x005a}
0x244c…2472              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR80,=C'ASSIGNFEJL '«, t00=0x0017, t01=0x0068}
0x2472…2484              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0017, t01=0x008e}
0x2484…2492              Head {h00=0x000a, h01=0x0050, text=»ERR50 «, t00=0x0017, t01=0x00a0}
0x2492…24b8              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR80,=C'UNLOADFEJL '«, t00=0x0017, t01=0x00ae}
0x24b8…24ca              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0017, t01=0x00d4}
0x24ca…24d8              Head {h00=0x000a, h01=0x0050, text=»ERR60U«, t00=0x0017, t01=0x00e6}
0x24d8…24f4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0017, t01=0x00f4}
0x24f4…2506              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0017, t01=0x0110}
0x2506…251a              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR50 «, t00=0x0017, t01=0x0122}
0x251a…2528              Head {h00=0x000a, h01=0x0050, text=»ERR60 «, t00=0x0017, t01=0x0136}
0x2528…254c              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR80,=C'L[SEFEJL '«, t00=0x0017, t01=0x0144}
0x254c…255e              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0017, t01=0x0168}
0x255e…256c              Head {h00=0x000a, h01=0x0050, text=»ERR70U«, t00=0x0017, t01=0x017a}
0x256c…2588              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 «, t00=0x0017, t01=0x0188}
0x2588…259a              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0018, t01=0x0014}
0x259a…25ae              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR70 «, t00=0x0018, t01=0x0026}
0x25ae…25bc              Head {h00=0x000a, h01=0x0050, text=»ERR70 «, t00=0x0018, t01=0x003a}
0x25bc…25e2              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR80,=C'SKRIVEFEJL '«, t00=0x0018, t01=0x0048}
0x25e2…25f4              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0018, t01=0x006e}
0x25f4…2602              Head {h00=0x000a, h01=0x0050, text=»ERR90U«, t00=0x0018, t01=0x0080}
0x2602…261e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN4 «, t00=0x0018, t01=0x008e}
0x261e…2630              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0018, t01=0x00aa}
0x2630…2646              Head {h00=0x0012, h01=0x0050, text=» BNOK ERR100U «, t00=0x0018, t01=0x00bc}
0x2646…2656              Head {h00=0x000c, h01=0x0050, text=» B ERR60«, t00=0x0018, t01=0x00d2}
0x2656…2666              Head {h00=0x000c, h01=0x0050, text=»ERR100U «, t00=0x0018, t01=0x00e2}
0x2666…2682              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0018, t01=0x00f2}
0x2682…2694              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0018, t01=0x010e}
0x2694…26a8              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR100«, t00=0x0018, t01=0x0120}
0x26a8…26b6              Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x0018, t01=0x0134}
0x26b6…26dc              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR80,=C'REWINDFEJL '«, t00=0x0018, t01=0x0142}
0x26dc…26ee              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0018, t01=0x0168}
0x26ee…26fe              Head {h00=0x000c, h01=0x0050, text=»ERR110U «, t00=0x0018, t01=0x017a}
0x26fe…271a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN3 «, t00=0x0018, t01=0x018a}
0x271a…272c              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0019, t01=0x0016}
0x272c…2740              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR110«, t00=0x0019, t01=0x0028}
0x2740…274e              Head {h00=0x000a, h01=0x0050, text=»ERR110«, t00=0x0019, t01=0x003c}
0x274e…277c              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR80,=C'DISKETTE FYLDT OP ' «, t00=0x0019, t01=0x004a}
0x277c…278e              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0019, t01=0x0078}
0x278e…279e              Head {h00=0x000c, h01=0x0050, text=»ERR130U «, t00=0x0019, t01=0x008a}
0x279e…27ba              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN3 «, t00=0x0019, t01=0x009a}
0x27ba…27cc              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0019, t01=0x00b6}
0x27cc…27e0              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR130«, t00=0x0019, t01=0x00c8}
0x27e0…27ee              Head {h00=0x000a, h01=0x0050, text=»ERR130«, t00=0x0019, t01=0x00dc}
0x27ee…282e              Head {h00=0x003c, h01=0x0050, text=» MOVE GSWSTR80,=C'INTET INDEXREGISTER, HUSK KOPIERING ' «, t00=0x0019, t01=0x00ea}
0x282e…2840              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0019, t01=0x012a}
0x2840…284e              Head {h00=0x000a, h01=0x0050, text=»ERR140«, t00=0x0019, t01=0x013c}
0x284e…2890              Head {h00=0x003e, h01=0x0050, text=» MOVE GSWSTR80,=C'RUTINE IKKE TILLADT P] DENNE TERMINAL ' «, t00=0x0019, t01=0x014a}
0x2890…28a2              Head {h00=0x000e, h01=0x0050, text=» B ERRDISP«, t00=0x0019, t01=0x018c}
0x28a2…28b2              Head {h00=0x000c, h01=0x0050, text=»ERRDISP «, t00=0x001a, t01=0x000e}
0x28b2…28ca              Head {h00=0x0014, h01=0x0050, text=» ATTFMT LISTFRM2«, t00=0x001a, t01=0x001e}
0x28ca…28de              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x001a, t01=0x0036}
0x28de…2916              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x001a, t01=0x004a}
0x2916…2936              Head {h00=0x001c, h01=0x0050, text=»NYVALG   NEW FUNCTION ? «, t00=0x001a, t01=0x0082}
0x2936…2946              Head {h00=0x000c, h01=0x0050, text=» B RA105«, t00=0x001a, t01=0x00a2}
0x2946…2954              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00b2}
0x2954…2968              Head {h00=0x0010, h01=0x0050, text=»ATTHD1 PROC «, t00=0x001a, t01=0x00c0}
0x2968…297e              Head {h00=0x0012, h01=0x0050, text=» ATTFMT HEAD1 «, t00=0x001a, t01=0x00d4}
0x297e…298a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x00ea}
0x298a…2998              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x00f6}
0x2998…29a0              Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0104}
0x29a0…29a8              Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x010c}
0x29a8…29b0              Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0114}
0x29b0…29c4              Head {h00=0x0010, h01=0x0050, text=»KONREG PROC «, t00=0x001a, t01=0x011c}
0x29c4…29f6              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x001a, t01=0x0130}
0x29f6…2a00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0162}
0x2a00…2a22              Head {h00=0x001e, h01=0x0050, text=»* KONREG - R]KONVERTERING «, t00=0x001a, t01=0x016c}
0x2a22…2a2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018e}
0x2a2c…2a4c              Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x001b, t01=0x0008}
0x2a4c…2a6a              Head {h00=0x001a, h01=0x0050, text=»*   0 - REPEAT ROUTINE«, t00=0x001b, t01=0x0028}
0x2a6a…2a8e              Head {h00=0x0020, h01=0x0050, text=»*   2 - EXIT FOR NEW SELECT «, t00=0x001b, t01=0x0046}
0x2a8e…2aaa              Head {h00=0x0018, h01=0x0050, text=»*   4 - WRITE ERROR «, t00=0x001b, t01=0x006a}
0x2aaa…2ace              Head {h00=0x0020, h01=0x0050, text=»*   6 - NO MORE ROOM ON FD01«, t00=0x001b, t01=0x0086}
0x2ace…2ad8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00aa}
0x2ad8…2b0a              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x001b, t01=0x00b4}
0x2b0a…2b18              Head {h00=0x000a, h01=0x0050, text=»ST0200«, t00=0x001b, t01=0x00e6}
0x2b18…2b30              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPCHANGE «, t00=0x001b, t01=0x00f4}
0x2b30…2b44              Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ1 «, t00=0x001b, t01=0x010c}
0x2b44…2b58              Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ2 «, t00=0x001b, t01=0x0120}
0x2b58…2b6c              Head {h00=0x0010, h01=0x0050, text=» CLEAR INQ3 «, t00=0x001b, t01=0x0134}
0x2b6c…2b7a              Head {h00=0x000a, h01=0x0050, text=»ST0210«, t00=0x001b, t01=0x0148}
0x2b7a…2b8e              Head {h00=0x0010, h01=0x0050, text=» PERF ATTHD1«, t00=0x001b, t01=0x0156}
0x2b8e…2ba6              Head {h00=0x0014, h01=0x0050, text=» CLEAR SLUTFLAG «, t00=0x001b, t01=0x016a}
0x2ba6…2bc0              Head {h00=0x0016, h01=0x0050, text=» TBT CHFLAG,ST0215«, t00=0x001b, t01=0x0182}
0x2bc0…2bd4              Head {h00=0x0010, h01=0x0050, text=» PERF CLRTST«, t00=0x001c, t01=0x000c}
0x2bd4…2be2              Head {h00=0x000a, h01=0x0050, text=»ST0215«, t00=0x001c, t01=0x0020}
0x2be2…2c08              Head {h00=0x0022, h01=0x0050, text=»* WHEN RUNNING [NDRING, FIELDS«, t00=0x001c, t01=0x002e}
0x2c08…2c38              Head {h00=0x002c, h01=0x0050, text=»* 91/92/93 ARE TO BE RENAMED TO 26/27/28«, t00=0x001c, t01=0x0054}
0x2c38…2c56              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,RECFREE «, t00=0x001c, t01=0x0084}
0x2c56…2c72              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD3,=D'400'«, t00=0x001c, t01=0x00a2}
0x2c72…2c8c              Head {h00=0x0016, h01=0x0050, text=» MOVE WORK5,RECUSE«, t00=0x001c, t01=0x00be}
0x2c8c…2cc0              Head {h00=0x0030, h01=0x0050, text=» TBT OBS,ST0218 TABLES FILLED AFTER INQUIRY?«, t00=0x001c, t01=0x00d8}
0x2cc0…2cd4              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x001c, t01=0x010c}
0x2cd4…2ce6              Head {h00=0x000e, h01=0x0050, text=» B ST0220 «, t00=0x001c, t01=0x0120}
0x2ce6…2cf4              Head {h00=0x000a, h01=0x0050, text=»ST0218«, t00=0x001c, t01=0x0132}
0x2cf4…2d0c              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x001c, t01=0x0140}
0x2d0c…2d20              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x001c, t01=0x0158}
0x2d20…2d2e              Head {h00=0x000a, h01=0x0050, text=»ST0220«, t00=0x001c, t01=0x016c}
0x2d2e…2d50              Head {h00=0x001e, h01=0x0050, text=» IB SPBINW2,ST40,ST40,ST03«, t00=0x001c, t01=0x017a}
0x2d50…2d62              Head {h00=0x000e, h01=0x0050, text=» B ST0200 «, t00=0x001d, t01=0x000c}
0x2d62…2d6e              Head {h00=0x0008, h01=0x0050, text=»ST03«, t00=0x001d, t01=0x001e}
0x2d6e…2d84              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x001d, t01=0x002a}
0x2d84…2d96              Head {h00=0x000e, h01=0x0050, text=» CLEAR OBS«, t00=0x001d, t01=0x0040}
0x2d96…2dac              Head {h00=0x0012, h01=0x0050, text=» CLEAR COPYFLG«, t00=0x001d, t01=0x0052}
0x2dac…2dc6              Head {h00=0x0016, h01=0x0050, text=» TBF CRKKLAR,ST030«, t00=0x001d, t01=0x0068}
0x2dc6…2dd8              Head {h00=0x000e, h01=0x0050, text=» PERF UPD «, t00=0x001d, t01=0x0082}
0x2dd8…2dea              Head {h00=0x000e, h01=0x0050, text=» B ST0218 «, t00=0x001d, t01=0x0094}
0x2dea…2dfa              Head {h00=0x000c, h01=0x0050, text=» B ST35 «, t00=0x001d, t01=0x00a6}
0x2dfa…2e08              Head {h00=0x000a, h01=0x0050, text=»ST030 «, t00=0x001d, t01=0x00b6}
0x2e08…2e16              Head {h00=0x000a, h01=0x0050, text=» RET 4«, t00=0x001d, t01=0x00c4}
0x2e16…2e22              Head {h00=0x0008, h01=0x0050, text=»ST35«, t00=0x001d, t01=0x00d2}
0x2e22…2e38              Head {h00=0x0012, h01=0x0050, text=» TBT FULL,ST45«, t00=0x001d, t01=0x00de}
0x2e38…2e50              Head {h00=0x0014, h01=0x0050, text=» TBT CHFLAG,ST50«, t00=0x001d, t01=0x00f4}
0x2e50…2e62              Head {h00=0x000e, h01=0x0050, text=» B ST0210 «, t00=0x001d, t01=0x010c}
0x2e62…2e6e              Head {h00=0x0008, h01=0x0050, text=»ST40«, t00=0x001d, t01=0x011e}
0x2e6e…2e8a              Head {h00=0x0018, h01=0x0050, text=» TBT SPCHANGE,ST0200«, t00=0x001d, t01=0x012a}
0x2e8a…2ea0              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x001d, t01=0x0146}
0x2ea0…2eae              Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x001d, t01=0x015c}
0x2eae…2eba              Head {h00=0x0008, h01=0x0050, text=»ST45«, t00=0x001d, t01=0x016a}
0x2eba…2ed6              Head {h00=0x0018, h01=0x0050, text=» RET 6 NO MORE ROOM «, t00=0x001d, t01=0x0176}
0x2ed6…2efe (30, 0, 400) Head {h00=0x0024, h01=0x0050, text=»ST50   NORMAL RETURN, NEW CPRNR «, t00=0x001e, t01=0x0004}
0x2efe…2f0a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x002c}
0x2f0a…2f18              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x0038}
0x2f18…2f26              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0046}
0x2f26…2f6a              Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001e, t01=0x0054}
0x2f6a…2f74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0098}
0x2f74…2fa2              Head {h00=0x002a, h01=0x0050, text=»*       CLRTST - CLEARING OF TESTSTRG «, t00=0x001e, t01=0x00a2}
0x2fa2…2fac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d0}
0x2fac…2ff2              Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x001e, t01=0x00da}
0x2ff2…2ffa              Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0120}
0x2ffa…300e              Head {h00=0x0010, h01=0x0050, text=»CLRTST PROC «, t00=0x001e, t01=0x0128}
0x300e…302a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN12«, t00=0x001e, t01=0x013c}
0x302a…3046              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN4 «, t00=0x001e, t01=0x0158}
0x3046…3054              Head {h00=0x000a, h01=0x0050, text=»CLRT10«, t00=0x001e, t01=0x0174}
0x3054…307e              Head {h00=0x0026, h01=0x0050, text=» MOVE FIELD(GSWBIN1,GSWBIN2),=D'0'«, t00=0x001e, t01=0x0182}
0x307e…30a8              Head {h00=0x0026, h01=0x0050, text=» MOVE SAVEF(GSWBIN1,GSWBIN2),=C' '«, t00=0x001f, t01=0x001c}
0x30a8…30c2              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN2,CBIN1«, t00=0x001f, t01=0x0046}
0x30c2…30d6              Head {h00=0x0010, h01=0x0050, text=» BNZ CLRT10 «, t00=0x001f, t01=0x0060}
0x30d6…30f2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN4 «, t00=0x001f, t01=0x0074}
0x30f2…310c              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x001f, t01=0x0090}
0x310c…3120              Head {h00=0x0010, h01=0x0050, text=» BNZ CLRT10 «, t00=0x001f, t01=0x00aa}
0x3120…312c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x00be}
0x312c…313a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x00ca}
0x313a…3144              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d8}
0x3144…314e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e2}
0x314e…3158              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ec}
0x3158…316e              Head {h00=0x0012, h01=0x0050, text=»MASKDK PROC DK«, t00=0x001f, t01=0x00f6}
0x316e…319e              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001f, t01=0x010c}
0x319e…31a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31a8…31e0              Head {h00=0x0034, h01=0x0050, text=»* MASKDK - INSPECT MASK FROM EXTENDED STATUSWORD«, t00=0x001f, t01=0x0146}
0x31e0…31ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31ea…3212              Head {h00=0x0024, h01=0x0050, text=»* CALL:     PERF   MASKDK,<DISK>«, t00=0x001f, t01=0x0188}
0x3212…321c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0020}
0x321c…323c              Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0020, t01=0x002a}
0x323c…3252              Head {h00=0x0012, h01=0x0050, text=»*   0 - ERROR «, t00=0x0020, t01=0x004a}
0x3252…3268              Head {h00=0x0012, h01=0x0050, text=»*   2 - NORMAL«, t00=0x0020, t01=0x0060}
0x3268…3272              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0076}
0x3272…32a2              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0020, t01=0x0080}
0x32a2…32aa              Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00b0}
0x32aa…32c4              Head {h00=0x0016, h01=0x0050, text=» XSTAT DK,SPBINW4 «, t00=0x0020, t01=0x00b8}
0x32c4…32e6              Head {h00=0x001e, h01=0x0050, text=» CALL MASK,SPBINW4,GSWBIN5«, t00=0x0020, t01=0x00d2}
0x32e6…32f8              Head {h00=0x000e, h01=0x0050, text=» BZ MASKR2«, t00=0x0020, t01=0x00f4}
0x32f8…3314              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN15«, t00=0x0020, t01=0x0106}
0x3314…3330              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN1 «, t00=0x0020, t01=0x0122}
0x3330…333e              Head {h00=0x000a, h01=0x0050, text=»MASK01«, t00=0x0020, t01=0x013e}
0x333e…3360              Head {h00=0x001e, h01=0x0050, text=» CALL MASK,SPBINW4,GSWBIN2«, t00=0x0020, t01=0x014c}
0x3360…3374              Head {h00=0x0010, h01=0x0050, text=» BNZ MASKRET«, t00=0x0020, t01=0x016e}
0x3374…338e              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0020, t01=0x0182}
0x338e…33b0              Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN1,CBIN2,MASK02«, t00=0x0021, t01=0x000c}
0x33b0…33cc              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN0 «, t00=0x0021, t01=0x002e}
0x33cc…33de              Head {h00=0x000e, h01=0x0050, text=» B MASKRET«, t00=0x0021, t01=0x004a}
0x33de…33ec              Head {h00=0x000a, h01=0x0050, text=»MASK02«, t00=0x0021, t01=0x005c}
0x33ec…340a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD5,GSWBIN2 «, t00=0x0021, t01=0x006a}
0x340a…3426              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN2,GSWBIN2«, t00=0x0021, t01=0x0088}
0x3426…344e              Head {h00=0x0024, h01=0x0050, text=» BOFL MASKRET SHOULD NOT HAPPEN «, t00=0x0021, t01=0x00a4}
0x344e…3460              Head {h00=0x000e, h01=0x0050, text=» B MASK01 «, t00=0x0021, t01=0x00cc}
0x3460…347c              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0021, t01=0x00de}
0x347c…349a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,GSWBIN1 «, t00=0x0021, t01=0x00fa}
0x349a…34aa              Head {h00=0x000c, h01=0x0050, text=»MASKRET «, t00=0x0021, t01=0x0118}
0x34aa…34c2              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0021, t01=0x0128}
0x34c2…34ce              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0140}
0x34ce…34dc              Head {h00=0x000a, h01=0x0050, text=»MASKR2«, t00=0x0021, t01=0x014c}
0x34dc…34f4              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0021, t01=0x015a}
0x34f4…3500              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0172}
0x3500…350e              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x017e}
0x350e…3516              Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x018c}
0x3516…351e (34, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0004}
0x351e…353c              Head {h00=0x001a, h01=0x0050, text=»GENWR PROC FORMAT,LOOP«, t00=0x0022, t01=0x000c}
0x353c…3556              Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN1,LOOP«, t00=0x0022, t01=0x002a}
0x3556…3564              Head {h00=0x000a, h01=0x0050, text=»GEN10 «, t00=0x0022, t01=0x0044}
0x3564…3588              Head {h00=0x0020, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FORMAT «, t00=0x0022, t01=0x0052}
0x3588…35a2              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN1,CBIN1«, t00=0x0022, t01=0x0076}
0x35a2…35b4              Head {h00=0x000e, h01=0x0050, text=» BP GEN10 «, t00=0x0022, t01=0x0090}
0x35b4…35c0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00a2}
0x35c0…35ce              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x00ae}
0x35ce…35dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00bc}
0x35dc…35f0              Head {h00=0x0010, h01=0x0050, text=»DKREAD PROC «, t00=0x0022, t01=0x00ca}
0x35f0…3620              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0022, t01=0x00de}
0x3620…362a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010e}
0x362a…3650              Head {h00=0x0022, h01=0x0050, text=»* DKREAD - DISK READ PROCEDURE«, t00=0x0022, t01=0x0118}
0x3650…365a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x013e}
0x365a…368a              Head {h00=0x002c, h01=0x0050, text=»* IF ERROR, A LINE IS DISPLAYED ON VDU, «, t00=0x0022, t01=0x0148}
0x368a…36be              Head {h00=0x0030, h01=0x0050, text=»* IF OK, THE RECORD IS DELIVERED IN TEDBUF, «, t00=0x0022, t01=0x0178}
0x36be…36c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x001c}
0x36c8…36e6              Head {h00=0x001a, h01=0x0050, text=»* CALL:    PERF DKREAD«, t00=0x0023, t01=0x0026}
0x36e6…3706              Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0023, t01=0x0044}
0x3706…371c              Head {h00=0x0012, h01=0x0050, text=»*   0 - ERROR «, t00=0x0023, t01=0x0064}
0x371c…3732              Head {h00=0x0012, h01=0x0050, text=»*   2 - NORMAL«, t00=0x0023, t01=0x007a}
0x3732…373c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0090}
0x373c…376e              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0023, t01=0x009a}
0x376e…3776              Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00cc}
0x3776…3792              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN5 «, t00=0x0023, t01=0x00d4}
0x3792…37a4              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0023, t01=0x00f0}
0x37a4…37b8              Head {h00=0x0010, h01=0x0050, text=» BNOK READ10«, t00=0x0023, t01=0x0102}
0x37b8…37ca              Head {h00=0x000e, h01=0x0050, text=» B READRET«, t00=0x0023, t01=0x0116}
0x37ca…37d8              Head {h00=0x000a, h01=0x0050, text=»READ10«, t00=0x0023, t01=0x0128}
0x37d8…37f6              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPBINW4 «, t00=0x0023, t01=0x0136}
0x37f6…3812              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD4,=D'70' «, t00=0x0023, t01=0x0154}
0x3812…382e              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0023, t01=0x0170}
0x382e…3846              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0023, t01=0x018c}
0x3846…3852              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0014}
0x3852…3862              Head {h00=0x000c, h01=0x0050, text=»READRET «, t00=0x0024, t01=0x0020}
0x3862…387c              Head {h00=0x0016, h01=0x0050, text=» ADD GTRECNR,CBIN1«, t00=0x0024, t01=0x0030}
0x387c…3894              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0024, t01=0x004a}
0x3894…38a0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0062}
0x38a0…38ae              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x006e}
0x38ae…38b6              Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x007c}
0x38b6…38be              Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0084}
0x38be…38c6              Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x008c}
0x38c6…38da              Head {h00=0x0010, h01=0x0050, text=»DKWRIT PROC «, t00=0x0024, t01=0x0094}
0x38da…390c              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0024, t01=0x00a8}
0x390c…3916              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00da}
0x3916…393e              Head {h00=0x0024, h01=0x0050, text=»* DKWRIT - DISK WRITE PROCEDURE «, t00=0x0024, t01=0x00e4}
0x393e…3948              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010c}
0x3948…3978              Head {h00=0x002c, h01=0x0050, text=»* IF ERROR, A LINE IS DISPLAYED ON VDU, «, t00=0x0024, t01=0x0116}
0x3978…3982              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0146}
0x3982…39a2              Head {h00=0x001c, h01=0x0050, text=»* CALL:     PERF DKWRIT «, t00=0x0024, t01=0x0150}
0x39a2…39ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0170}
0x39ac…39cc              Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0024, t01=0x017a}
0x39cc…39e0              Head {h00=0x0010, h01=0x0050, text=»*   0 - EROR«, t00=0x0025, t01=0x000a}
0x39e0…39f6              Head {h00=0x0012, h01=0x0050, text=»*   2 - NORMAL«, t00=0x0025, t01=0x001e}
0x39f6…3a00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0034}
0x3a00…3a32              Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0025, t01=0x003e}
0x3a32…3a3a              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0070}
0x3a3a…3a58              Head {h00=0x001a, h01=0x0050, text=» MOVE GTRECNR,LASTREC «, t00=0x0025, t01=0x0078}
0x3a58…3a74              Head {h00=0x0018, h01=0x0050, text=» SUB GTRECNR,RECFREE«, t00=0x0025, t01=0x0096}
0x3a74…3aa4              Head {h00=0x002c, h01=0x0050, text=» CBE RECFREE,CBIN0,WRITERR NO MORE SPACE«, t00=0x0025, t01=0x00b2}
0x3aa4…3ac0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x0025, t01=0x00e2}
0x3ac0…3ad2              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0025, t01=0x00fe}
0x3ad2…3ae8              Head {h00=0x0012, h01=0x0050, text=» BNOK WRITERR «, t00=0x0025, t01=0x0110}
0x3ae8…3b1e              Head {h00=0x0032, h01=0x0050, text=» TBT COPYFLG,WRITRET DONT PROPAGATE SLUTRECORD«, t00=0x0025, t01=0x0126}
0x3b1e…3b38              Head {h00=0x0016, h01=0x0050, text=» ADD GTRECNR,CBIN1«, t00=0x0025, t01=0x015c}
0x3b38…3b54              Head {h00=0x0018, h01=0x0050, text=» EDIT TEDBUF,ENDCARD«, t00=0x0025, t01=0x0176}
0x3b54…3b70 (38, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x0026, t01=0x0004}
0x3b70…3b82              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0026, t01=0x0020}
0x3b82…3b98              Head {h00=0x0012, h01=0x0050, text=» BNOK WRITERR «, t00=0x0026, t01=0x0032}
0x3b98…3ba8              Head {h00=0x000c, h01=0x0050, text=»WRITRET «, t00=0x0026, t01=0x0048}
0x3ba8…3bc2              Head {h00=0x0016, h01=0x0050, text=» ADD ENDREC,CBIN1 «, t00=0x0026, t01=0x0058}
0x3bc2…3bde              Head {h00=0x0018, h01=0x0050, text=» MOVE RECUSE,ENDREC «, t00=0x0026, t01=0x0072}
0x3bde…3bf8              Head {h00=0x0016, h01=0x0050, text=» SUB RECFREE,CBIN1«, t00=0x0026, t01=0x008e}
0x3bf8…3c10              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0026, t01=0x00a8}
0x3c10…3c1c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x00c0}
0x3c1c…3c2c              Head {h00=0x000c, h01=0x0050, text=»WRITERR «, t00=0x0026, t01=0x00cc}
0x3c2c…3c4a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD4,SPBINW4 «, t00=0x0026, t01=0x00dc}
0x3c4a…3c66              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBCD4,=D'90' «, t00=0x0026, t01=0x00fa}
0x3c66…3c82              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN1 «, t00=0x0026, t01=0x0116}
0x3c82…3c9a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0026, t01=0x0132}
0x3c9a…3ca6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x014a}
0x3ca6…3cb4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0156}
0x3cb4…3cc2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0164}
0x3cc2…3cd4              Head {h00=0x000e, h01=0x0050, text=»DKIO PROC «, t00=0x0026, t01=0x0172}
0x3cd4…3d0a              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0026, t01=0x0184}
0x3d0a…3d14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002a}
0x3d14…3d4a              Head {h00=0x0032, h01=0x0050, text=»* DKIO - THE PROCEDURES TAKES CARE OF ALL I/O «, t00=0x0027, t01=0x0034}
0x3d4a…3d82              Head {h00=0x0034, h01=0x0050, text=»* ON DISK. THE FUNCTION IS SPECIFIED IN GSWBIN5.«, t00=0x0027, t01=0x006a}
0x3d82…3db4              Head {h00=0x002e, h01=0x0050, text=»* AFTER HAVING CALLED RKIO, THE RETURNWORD«, t00=0x0027, t01=0x00a2}
0x3db4…3de6              Head {h00=0x002e, h01=0x0050, text=»* IS INSPECTED IN MASKDK. AND AN EVENTUAL «, t00=0x0027, t01=0x00d4}
0x3de6…3e16              Head {h00=0x002c, h01=0x0050, text=»* ERRORCODE IS RETURNED IN GSWBCD4, FOR «, t00=0x0027, t01=0x0106}
0x3e16…3e44              Head {h00=0x002a, h01=0x0050, text=»* DISPLAYING PURPOSES VIA A SPERR-CALL«, t00=0x0027, t01=0x0136}
0x3e44…3e4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0164}
0x3e4e…3e70              Head {h00=0x001e, h01=0x0050, text=»* RETURN UPON COMPLETION: «, t00=0x0027, t01=0x016e}
0x3e70…3e84              Head {h00=0x0010, h01=0x0050, text=»* 0 - ERROR «, t00=0x0027, t01=0x0190}
0x3e84…3e98              Head {h00=0x0010, h01=0x0050, text=»* 2 - NORMAL«, t00=0x0028, t01=0x0014}
0x3e98…3ece              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0028, t01=0x0028}
0x3ece…3ed6              Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x005e}
0x3ed6…3f18              Head {h00=0x003e, h01=0x0050, text=» IB GSWBIN5,TOSS1,TOSS2,TOSS3,TOSS4,TOSS5,TOSS6,TOSS7,  C «, t00=0x0028, t01=0x0066}
0x3f18…3f54              Head {h00=0x0038, h01=0x0050, text=»  TOSS8,TOSS9,TOSS10,TOSS11,TOSS12,TOSS13,TOSS14,  C«, t00=0x0028, t01=0x00a8}
0x3f54…3f64              Head {h00=0x000c, h01=0x0050, text=»  TOSS15«, t00=0x0028, t01=0x00e4}
0x3f64…3f7c              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0028, t01=0x00f4}
0x3f7c…3f88              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x010c}
0x3f88…3f96              Head {h00=0x000a, h01=0x0050, text=»TOSS1 «, t00=0x0028, t01=0x0118}
0x3f96…3faa              Head {h00=0x0010, h01=0x0050, text=»* LOAD FD01 «, t00=0x0028, t01=0x0126}
0x3faa…3fc6              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,CBIN7 «, t00=0x0028, t01=0x013a}
0x3fc6…3fe2              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'80' «, t00=0x0028, t01=0x0156}
0x3fe2…4018              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEXB7,TEDBUF,LENGTH,GTRECNR «, t00=0x0028, t01=0x0172}
0x4018…4036              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFDF'«, t00=0x0029, t01=0x0018}
0x4036…4048              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x0029, t01=0x0036}
0x4048…4056              Head {h00=0x000a, h01=0x0050, text=»TOSS2 «, t00=0x0029, t01=0x0048}
0x4056…406a              Head {h00=0x0010, h01=0x0050, text=»* LOAD FD02 «, t00=0x0029, t01=0x0056}
0x406a…4086              Head {h00=0x0018, h01=0x0050, text=» MOVE GTTRKEY,CBIN7 «, t00=0x0029, t01=0x006a}
0x4086…40a2              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'80' «, t00=0x0029, t01=0x0086}
0x40a2…40d8              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEXB7,TEDBUF,LENGTH,GTTRKEY «, t00=0x0029, t01=0x00a2}
0x40d8…40f6              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFDF'«, t00=0x0029, t01=0x00d8}
0x40f6…4108              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x0029, t01=0x00f6}
0x4108…4116              Head {h00=0x000a, h01=0x0050, text=»TOSS3 «, t00=0x0029, t01=0x0108}
0x4116…412c              Head {h00=0x0012, h01=0x0050, text=»* UNLOAD FD01 «, t00=0x0029, t01=0x0116}
0x412c…4148              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x0029, t01=0x012c}
0x4148…417e              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEXB8,TEDBUF,LENGTH,GTRECNR «, t00=0x0029, t01=0x0148}
0x417e…419c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x0029, t01=0x017e}
0x419c…41ae              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x002a, t01=0x000c}
0x41ae…41bc              Head {h00=0x000a, h01=0x0050, text=»TOSS4 «, t00=0x002a, t01=0x001e}
0x41bc…41d2              Head {h00=0x0012, h01=0x0050, text=»* UNLOAD FD02 «, t00=0x002a, t01=0x002c}
0x41d2…41ee              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002a, t01=0x0042}
0x41ee…4224              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEXB8,TEDBUF,LENGTH,GTTRKEY «, t00=0x002a, t01=0x005e}
0x4224…4242              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002a, t01=0x0094}
0x4242…4254              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x002a, t01=0x00b2}
0x4254…4262              Head {h00=0x000a, h01=0x0050, text=»TOSS5 «, t00=0x002a, t01=0x00c4}
0x4262…427e              Head {h00=0x0018, h01=0x0050, text=»* PHYSICAL READ FD01«, t00=0x002a, t01=0x00d2}
0x427e…429a              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002a, t01=0x00ee}
0x429a…42d0              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEX91,TEDBUF,LENGTH,GTRECNR «, t00=0x002a, t01=0x010a}
0x42d0…42ee              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002a, t01=0x0140}
0x42ee…4300              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x002a, t01=0x015e}
0x4300…430e              Head {h00=0x000a, h01=0x0050, text=»TOSS6 «, t00=0x002a, t01=0x0170}
0x430e…432a              Head {h00=0x0018, h01=0x0050, text=»* PHYSICAL READ FD02«, t00=0x002a, t01=0x017e}
0x432a…4346              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002b, t01=0x000a}
0x4346…437c              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEX91,TEDBUF,LENGTH,GTTRKEY «, t00=0x002b, t01=0x0026}
0x437c…439a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002b, t01=0x005c}
0x439a…43ac              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x002b, t01=0x007a}
0x43ac…43ba              Head {h00=0x000a, h01=0x0050, text=»TOSS7 «, t00=0x002b, t01=0x008c}
0x43ba…43d8              Head {h00=0x001a, h01=0x0050, text=»* PHYSICAL WRITE FD01 «, t00=0x002b, t01=0x009a}
0x43d8…43f4              Head {h00=0x0018, h01=0x0050, text=» MOVE COPYBUF,TEDBUF«, t00=0x002b, t01=0x00b8}
0x43f4…4410              Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,BINULL «, t00=0x002b, t01=0x00d4}
0x4410…442c              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'80' «, t00=0x002b, t01=0x00f0}
0x442c…445c              Head {h00=0x002c, h01=0x0050, text=» COPY TEDBUF,CBIN0,LENGTH,COPYBUF,CBIN0 «, t00=0x002b, t01=0x010c}
0x445c…446a              Head {h00=0x000a, h01=0x0050, text=»TOSS7A«, t00=0x002b, t01=0x013c}
0x446a…4486              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002b, t01=0x014a}
0x4486…44bc              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEX95,TEDBUF,LENGTH,GTRECNR «, t00=0x002b, t01=0x0166}
0x44bc…44da              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002c, t01=0x000c}
0x44da…44ec              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x002c, t01=0x002a}
0x44ec…44fa              Head {h00=0x000a, h01=0x0050, text=»TOSS8 «, t00=0x002c, t01=0x003c}
0x44fa…451a              Head {h00=0x001c, h01=0x0050, text=»* SEQUENTIAL READ, FD01 «, t00=0x002c, t01=0x004a}
0x451a…4536              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002c, t01=0x006a}
0x4536…456c              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEX82,TEDBUF,LENGTH,GTRECNR «, t00=0x002c, t01=0x0086}
0x456c…458a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002c, t01=0x00bc}
0x458a…459c              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x002c, t01=0x00da}
0x459c…45aa              Head {h00=0x000a, h01=0x0050, text=»TOSS9 «, t00=0x002c, t01=0x00ec}
0x45aa…45ca              Head {h00=0x001c, h01=0x0050, text=»* SEQUENTIAL READ, FD02 «, t00=0x002c, t01=0x00fa}
0x45ca…45e6              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'80' «, t00=0x002c, t01=0x011a}
0x45e6…461c              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEX82,TEDBUF,LENGTH,GTTRKEY «, t00=0x002c, t01=0x0136}
0x461c…463a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002c, t01=0x016c}
0x463a…464c              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x002c, t01=0x018a}
0x464c…465a              Head {h00=0x000a, h01=0x0050, text=»TOSS10«, t00=0x002d, t01=0x000c}
0x465a…467a              Head {h00=0x001c, h01=0x0050, text=»* SEQUENTIAL WRITE,FD01 «, t00=0x002d, t01=0x001a}
0x467a…4696              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'80' «, t00=0x002d, t01=0x003a}
0x4696…46b2              Head {h00=0x0018, h01=0x0050, text=» MOVE COPYBUF,TEDBUF«, t00=0x002d, t01=0x0056}
0x46b2…46ce              Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,BINULL «, t00=0x002d, t01=0x0072}
0x46ce…46fe              Head {h00=0x002c, h01=0x0050, text=» COPY TEDBUF,CBIN0,LENGTH,COPYBUF,CBIN0 «, t00=0x002d, t01=0x008e}
0x46fe…471a              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'80' «, t00=0x002d, t01=0x00be}
0x471a…4750              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEX86,TEDBUF,LENGTH,GTRECNR «, t00=0x002d, t01=0x00da}
0x4750…476e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002d, t01=0x0110}
0x476e…4780              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x002d, t01=0x012e}
0x4780…478e              Head {h00=0x000a, h01=0x0050, text=»TOSS11«, t00=0x002d, t01=0x0140}
0x478e…47ae              Head {h00=0x001c, h01=0x0050, text=»* SEQUENTIAL WRITE,FD02 «, t00=0x002d, t01=0x014e}
0x47ae…47ca              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002d, t01=0x016e}
0x47ca…4800              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEX86,TEDBUF,LENGTH,GTTRKEY «, t00=0x002d, t01=0x018a}
0x4800…481e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002e, t01=0x0030}
0x481e…4830              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x002e, t01=0x004e}
0x4830…483e              Head {h00=0x000a, h01=0x0050, text=»TOSS12«, t00=0x002e, t01=0x0060}
0x483e…4854              Head {h00=0x0012, h01=0x0050, text=»* REWIND FD01 «, t00=0x002e, t01=0x006e}
0x4854…4870              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002e, t01=0x0084}
0x4870…48a6              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK01,HEX31,TEDBUF,LENGTH,GTRECNR «, t00=0x002e, t01=0x00a0}
0x48a6…48c4              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002e, t01=0x00d6}
0x48c4…48d6              Head {h00=0x000e, h01=0x0050, text=» B TOSS50 «, t00=0x002e, t01=0x00f4}
0x48d6…48e4              Head {h00=0x000a, h01=0x0050, text=»TOSS13«, t00=0x002e, t01=0x0106}
0x48e4…48fa              Head {h00=0x0012, h01=0x0050, text=»* REWIND FD02 «, t00=0x002e, t01=0x0114}
0x48fa…4916              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002e, t01=0x012a}
0x4916…494c              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEX31,TEDBUF,LENGTH,GTTRKEY «, t00=0x002e, t01=0x0146}
0x494c…496a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002e, t01=0x017c}
0x496a…497c              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x002f, t01=0x000a}
0x497c…498a              Head {h00=0x000a, h01=0x0050, text=»TOSS14«, t00=0x002f, t01=0x001c}
0x498a…49a8              Head {h00=0x001a, h01=0x0050, text=»* PHYSICAL WRITE FD02 «, t00=0x002f, t01=0x002a}
0x49a8…49c4              Head {h00=0x0018, h01=0x0050, text=» MOVE LENGTH,=W'128'«, t00=0x002f, t01=0x0048}
0x49c4…49fa              Head {h00=0x0032, h01=0x0050, text=» CALL RKIO,FDRK02,HEX95,TEDBUF,LENGTH,GTTRKEY «, t00=0x002f, t01=0x0064}
0x49fa…4a18              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=X'FFFF'«, t00=0x002f, t01=0x009a}
0x4a18…4a2a              Head {h00=0x000e, h01=0x0050, text=» B TOSS60 «, t00=0x002f, t01=0x00b8}
0x4a2a…4a34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ca}
0x4a34…4a42              Head {h00=0x000a, h01=0x0050, text=»TOSS15«, t00=0x002f, t01=0x00d4}
0x4a42…4a6c              Head {h00=0x0026, h01=0x0050, text=»* PHYSICAL WRITE FD01, LENGTH 128 «, t00=0x002f, t01=0x00e2}
0x4a6c…4a7e              Head {h00=0x000e, h01=0x0050, text=» B TOSS7A «, t00=0x002f, t01=0x010c}
0x4a7e…4a86              Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x011e}
0x4a86…4a90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0126}
0x4a90…4ab2              Head {h00=0x001e, h01=0x0050, text=»TOSS50 PERF MASKDK,FDRK01 «, t00=0x002f, t01=0x0130}
0x4ab2…4abe              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0152}
0x4abe…4ae0              Head {h00=0x001e, h01=0x0050, text=»TOSS60 PERF MASKDK,FDRK02 «, t00=0x002f, t01=0x015e}
0x4ae0…4aec              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0180}
0x4aec…4afa              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x018c}
0x4afa…4b08              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x000a}
0x4b08…4b18              Head {h00=0x000c, h01=0x0050, text=»UPD PROC«, t00=0x0030, t01=0x0018}
0x4b18…4b4e              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0030, t01=0x0028}
0x4b4e…4b58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005e}
0x4b58…4b96              Head {h00=0x003a, h01=0x0050, text=»* UPD - THE PROCEDURE CREATES DETAILRECORD(S) ON FD01 «, t00=0x0030, t01=0x0068}
0x4b96…4bbe              Head {h00=0x0024, h01=0x0050, text=»*       AFTER TESTING THE FIELDS«, t00=0x0030, t01=0x00a6}
0x4bbe…4bc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ce}
0x4bc8…4be8              Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0030, t01=0x00d8}
0x4be8…4c0e              Head {h00=0x0022, h01=0x0050, text=»*   0 - ERROR IN SLUTEST-CALL «, t00=0x0030, t01=0x00f8}
0x4c0e…4c24              Head {h00=0x0012, h01=0x0050, text=»*   2 - NORMAL«, t00=0x0030, t01=0x011e}
0x4c24…4c44              Head {h00=0x001c, h01=0x0050, text=»*   4 - DISK WRITE ERROR«, t00=0x0030, t01=0x0134}
0x4c44…4c4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0154}
0x4c4e…4c84              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0030, t01=0x015e}
0x4c84…4c8c (49, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0004}
0x4c8c…4ca0              Head {h00=0x0010, h01=0x0050, text=» PERF RKTEST«, t00=0x0031, t01=0x000c}
0x4ca0…4cb2              Head {h00=0x000e, h01=0x0050, text=» BOK UPD01«, t00=0x0031, t01=0x0020}
0x4cb2…4cc8              Head {h00=0x0012, h01=0x0050, text=» SET SLUTFLAG «, t00=0x0031, t01=0x0032}
0x4cc8…4cdc              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0031, t01=0x0048}
0x4cdc…4cf4              Head {h00=0x0014, h01=0x0050, text=» CLEAR SLUTFLAG «, t00=0x0031, t01=0x005c}
0x4cf4…4d04              Head {h00=0x000c, h01=0x0050, text=» B UPDER«, t00=0x0031, t01=0x0074}
0x4d04…4d12              Head {h00=0x000a, h01=0x0050, text=»UPD01 «, t00=0x0031, t01=0x0084}
0x4d12…4d50              Head {h00=0x003a, h01=0x0050, text=»* ONLY ONE TASK IS ALLOWED TO WRITE TO FD01 AT A TIME.«, t00=0x0031, t01=0x0092}
0x4d50…4d8e              Head {h00=0x003a, h01=0x0050, text=»* HENCE FDBUSY WILL BE SET ON ENTERING THIS PROCEDURE,«, t00=0x0031, t01=0x00d0}
0x4d8e…4dc6              Head {h00=0x0034, h01=0x0050, text=»* AND IT WILL BE CLEARED AGAIN UPON LEAVING IT. «, t00=0x0031, t01=0x010e}
0x4dc6…4dd4              Head {h00=0x000a, h01=0x0050, text=»UPD00 «, t00=0x0031, t01=0x0146}
0x4dd4…4dee              Head {h00=0x0016, h01=0x0050, text=» TBF FDBUSY,UPD05 «, t00=0x0031, t01=0x0154}
0x4dee…4e02              Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN2«, t00=0x0031, t01=0x016e}
0x4e02…4e20              Head {h00=0x001a, h01=0x0050, text=» B UPD00 AND TRY AGAIN«, t00=0x0031, t01=0x0182}
0x4e20…4e2e              Head {h00=0x000a, h01=0x0050, text=»UPD05 «, t00=0x0032, t01=0x0010}
0x4e2e…4e42              Head {h00=0x0010, h01=0x0050, text=» SET FDBUSY «, t00=0x0032, t01=0x001e}
0x4e42…4e5a              Head {h00=0x0014, h01=0x0050, text=» CLEAR SLUTFLAG «, t00=0x0032, t01=0x0032}
0x4e5a…4e76              Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,BINULL «, t00=0x0032, t01=0x004a}
0x4e76…4e92              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x0032, t01=0x0066}
0x4e92…4eae              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN1 «, t00=0x0032, t01=0x0082}
0x4eae…4eca              Head {h00=0x0018, h01=0x0050, text=» MOVE GTANTAL,=D'1' «, t00=0x0032, t01=0x009e}
0x4eca…4ee4              Head {h00=0x0016, h01=0x0050, text=» MOVE CARDPT,CBIN0«, t00=0x0032, t01=0x00ba}
0x4ee4…4f00              Head {h00=0x0018, h01=0x0050, text=» MOVE CARDBUF,=C' ' «, t00=0x0032, t01=0x00d4}
0x4f00…4f10              Head {h00=0x000c, h01=0x0050, text=» B UPD25«, t00=0x0032, t01=0x00f0}
0x4f10…4f1e              Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x0032, t01=0x0100}
0x4f1e…4f38              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN7,CBIN1«, t00=0x0032, t01=0x010e}
0x4f38…4f5a              Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN7,CBIN4,UPD25 «, t00=0x0032, t01=0x0128}
0x4f5a…4f76              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN1 «, t00=0x0032, t01=0x014a}
0x4f76…4f90              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN6,CBIN1«, t00=0x0032, t01=0x0166}
0x4f90…4fb2              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN6,CBIN12,UPDRET«, t00=0x0032, t01=0x0180}
0x4fb2…4fc0              Head {h00=0x000a, h01=0x0050, text=»UPD25 «, t00=0x0033, t01=0x0012}
0x4fc0…4ff0              Head {h00=0x002c, h01=0x0050, text=» CBE FIELD(GSWBIN6,GSWBIN7),=D'0',UPD20 «, t00=0x0033, t01=0x0020}
0x4ff0…500e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,BINULL «, t00=0x0033, t01=0x0050}
0x500e…5038              Head {h00=0x0026, h01=0x0050, text=» MOVE BCDWK,FIELD(GSWBIN6,GSWBIN7)«, t00=0x0033, t01=0x006e}
0x5038…5056              Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FLTFRMT«, t00=0x0033, t01=0x0098}
0x5056…5072              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 «, t00=0x0033, t01=0x00b6}
0x5072…50ac              Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN1,CBIN12,BINULL,CBIN0,CBIN1 «, t00=0x0033, t01=0x00d2}
0x50ac…50c8              Head {h00=0x0018, h01=0x0050, text=» ADD CARDPT,GSWBIN1 «, t00=0x0033, t01=0x010c}
0x50c8…50e8              Head {h00=0x001c, h01=0x0050, text=» CBG CARDPT,=W'66',UPD30«, t00=0x0033, t01=0x0128}
0x50e8…5104              Head {h00=0x0018, h01=0x0050, text=» SUB CARDPT,GSWBIN1 «, t00=0x0033, t01=0x0148}
0x5104…5138              Head {h00=0x0030, h01=0x0050, text=» COPY CARDBUF,CARDPT,GSWBIN1,GSWSTR20,CBIN0 «, t00=0x0033, t01=0x0164}
0x5138…5154              Head {h00=0x0018, h01=0x0050, text=» ADD CARDPT,GSWBIN1 «, t00=0x0034, t01=0x0008}
0x5154…5164              Head {h00=0x000c, h01=0x0050, text=» B UPD20«, t00=0x0034, t01=0x0024}
0x5164…5172              Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x0034, t01=0x0034}
0x5172…518e              Head {h00=0x0018, h01=0x0050, text=» SUB CARDPT,GSWBIN1 «, t00=0x0034, t01=0x0042}
0x518e…51aa              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,STR25«, t00=0x0034, t01=0x005e}
0x51aa…51dc              Head {h00=0x002e, h01=0x0050, text=» COPY CARDBUF,CARDPT,CBIN1,GSWSTR20,CBIN0 «, t00=0x0034, t01=0x007a}
0x51dc…51fc              Head {h00=0x001c, h01=0x0050, text=» CBE GTANTAL,=D'1',UPD40«, t00=0x0034, t01=0x00ac}
0x51fc…521a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,GTANTAL«, t00=0x0034, t01=0x00cc}
0x521a…524c              Head {h00=0x002e, h01=0x0050, text=» INSRT CARDBUF,CBIN0,CBIN1,GSWSTR20,CBIN1 «, t00=0x0034, t01=0x00ea}
0x524c…5268              Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,CARDBUF«, t00=0x0034, t01=0x011c}
0x5268…5278              Head {h00=0x000c, h01=0x0050, text=» B UPD45«, t00=0x0034, t01=0x0138}
0x5278…5286              Head {h00=0x000a, h01=0x0050, text=»UPD40 «, t00=0x0034, t01=0x0148}
0x5286…52a2              Head {h00=0x0018, h01=0x0050, text=» EDIT TEDBUF,DETCARD«, t00=0x0034, t01=0x0156}
0x52a2…52b0              Head {h00=0x000a, h01=0x0050, text=»UPD45 «, t00=0x0034, t01=0x0172}
0x52b0…52c4              Head {h00=0x0010, h01=0x0050, text=» PERF DKWRIT«, t00=0x0034, t01=0x0180}
0x52c4…52d8 (53, 0, 400) Head {h00=0x0010, h01=0x0050, text=» BNOK UPDER4«, t00=0x0035, t01=0x0004}
0x52d8…52f2              Head {h00=0x0016, h01=0x0050, text=» ADD GTANTAL,=D'1'«, t00=0x0035, t01=0x0018}
0x52f2…530c              Head {h00=0x0016, h01=0x0050, text=» MOVE CARDPT,CBIN0«, t00=0x0035, t01=0x0032}
0x530c…5328              Head {h00=0x0018, h01=0x0050, text=» MOVE CARDBUF,=C' ' «, t00=0x0035, t01=0x004c}
0x5328…5338              Head {h00=0x000c, h01=0x0050, text=» B UPD25«, t00=0x0035, t01=0x0068}
0x5338…5346              Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x0035, t01=0x0078}
0x5346…5362              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,STR7F«, t00=0x0035, t01=0x0086}
0x5362…5394              Head {h00=0x002e, h01=0x0050, text=» COPY CARDBUF,CARDPT,CBIN1,GSWSTR20,CBIN0 «, t00=0x0035, t01=0x00a2}
0x5394…53b4              Head {h00=0x001c, h01=0x0050, text=» CBE GTANTAL,=D'1',UPD50«, t00=0x0035, t01=0x00d4}
0x53b4…53d2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,GTANTAL«, t00=0x0035, t01=0x00f4}
0x53d2…5404              Head {h00=0x002e, h01=0x0050, text=» INSRT CARDBUF,CBIN0,CBIN1,GSWSTR20,CBIN1 «, t00=0x0035, t01=0x0112}
0x5404…5420              Head {h00=0x0018, h01=0x0050, text=» MOVE TEDBUF,CARDBUF«, t00=0x0035, t01=0x0144}
0x5420…5430              Head {h00=0x000c, h01=0x0050, text=» B UPD52«, t00=0x0035, t01=0x0160}
0x5430…543e              Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x0035, t01=0x0170}
0x543e…545a              Head {h00=0x0018, h01=0x0050, text=» EDIT TEDBUF,DETCARD«, t00=0x0035, t01=0x017e}
0x545a…5468              Head {h00=0x000a, h01=0x0050, text=»UPD52 «, t00=0x0036, t01=0x000a}
0x5468…547c              Head {h00=0x0010, h01=0x0050, text=» PERF DKWRIT«, t00=0x0036, t01=0x0018}
0x547c…5490              Head {h00=0x0010, h01=0x0050, text=» BNOK UPDER4«, t00=0x0036, t01=0x002c}
0x5490…54c6              Head {h00=0x0032, h01=0x0050, text=» CBG RECFREE,CBIN20,UPD55 CHECK FOR MORE ROOM «, t00=0x0036, t01=0x0040}
0x54c6…54d8              Head {h00=0x000e, h01=0x0050, text=» SET FULL «, t00=0x0036, t01=0x0076}
0x54d8…54e6              Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x0036, t01=0x0088}
0x54e6…54fc              Head {h00=0x0012, h01=0x0050, text=» CLEAR FDBUSY «, t00=0x0036, t01=0x0096}
0x54fc…550a              Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0036, t01=0x00ac}
0x550a…5518              Head {h00=0x000a, h01=0x0050, text=»UPDER4«, t00=0x0036, t01=0x00ba}
0x5518…552e              Head {h00=0x0012, h01=0x0050, text=» CLEAR FDBUSY «, t00=0x0036, t01=0x00c8}
0x552e…553c              Head {h00=0x000a, h01=0x0050, text=» RET 4«, t00=0x0036, t01=0x00de}
0x553c…554e              Head {h00=0x000e, h01=0x0050, text=»UPDER RET «, t00=0x0036, t01=0x00ec}
0x554e…555c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x00fe}
0x555c…556a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x010c}
0x556a…557e              Head {h00=0x0010, h01=0x0050, text=»ASG PROC PAR«, t00=0x0036, t01=0x011a}
0x557e…5586              Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x012e}
0x5586…55bc              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0036, t01=0x0136}
0x55bc…55c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016c}
0x55c6…55f6              Head {h00=0x002c, h01=0x0050, text=»* ASG - LOAD FLOPPY DISC AT FIRST RECORD«, t00=0x0036, t01=0x0176}
0x55f6…5612              Head {h00=0x0018, h01=0x0050, text=»* FD01 ::= $PAR = 1 «, t00=0x0037, t01=0x0016}
0x5612…562e              Head {h00=0x0018, h01=0x0050, text=»* FD02 ::= $PAR = 2 «, t00=0x0037, t01=0x0032}
0x562e…5638              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x004e}
0x5638…5658              Head {h00=0x001c, h01=0x0050, text=»* EXIT UPON COMPLETION: «, t00=0x0037, t01=0x0058}
0x5658…5670              Head {h00=0x0014, h01=0x0050, text=»*     0 - ERROR «, t00=0x0037, t01=0x0078}
0x5670…5688              Head {h00=0x0014, h01=0x0050, text=»*     2 - NORMAL«, t00=0x0037, t01=0x0090}
0x5688…5692              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a8}
0x5692…56c8              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0037, t01=0x00b2}
0x56c8…56d0              Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x00e8}
0x56d0…56ea              Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN5,PAR «, t00=0x0037, t01=0x00f0}
0x56ea…570c              Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN5,CBIN1,ASG10 «, t00=0x0037, t01=0x010a}
0x570c…5728              Head {h00=0x0018, h01=0x0050, text=» MOVE RECFREE,MAXREC«, t00=0x0037, t01=0x012c}
0x5728…5742              Head {h00=0x0016, h01=0x0050, text=» MOVE ENDREC,CBIN0«, t00=0x0037, t01=0x0148}
0x5742…5750              Head {h00=0x000a, h01=0x0050, text=»ASG10 «, t00=0x0037, t01=0x0162}
0x5750…5762              Head {h00=0x000e, h01=0x0050, text=» PERF DKIO«, t00=0x0037, t01=0x0170}
0x5762…576e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x0182}
0x576e…577c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x018e}
0x577c…578a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x000c}
0x578a…579e              Head {h00=0x0010, h01=0x0050, text=»RKASSG PROC «, t00=0x0038, t01=0x001a}
0x579e…57a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002e}
0x57a8…57d2              Head {h00=0x0026, h01=0x0050, text=»* LOAD FD01 AND SEARCH END OF DATA«, t00=0x0038, t01=0x0038}
0x57d2…57dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0062}
0x57dc…57f4              Head {h00=0x0014, h01=0x0050, text=» PERF ASG,CBIN1 «, t00=0x0038, t01=0x006c}
0x57f4…5812              Head {h00=0x001a, h01=0x0050, text=» BNOK AS90 ASSIGNERROR«, t00=0x0038, t01=0x0084}
0x5812…582e              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRECNR,=W'26'«, t00=0x0038, t01=0x00a2}
0x582e…583a              Head {h00=0x0008, h01=0x0050, text=»AS10«, t00=0x0038, t01=0x00be}
0x583a…584e              Head {h00=0x0010, h01=0x0050, text=» PERF DKREAD«, t00=0x0038, t01=0x00ca}
0x584e…5860              Head {h00=0x000e, h01=0x0050, text=» BNOK AS90«, t00=0x0038, t01=0x00de}
0x5860…587c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR2,TEDBUF«, t00=0x0038, t01=0x00f0}
0x587c…589e              Head {h00=0x001e, h01=0x0050, text=» CBNE GSWSTR2,=C'**',AS10 «, t00=0x0038, t01=0x010c}
0x589e…58c0              Head {h00=0x001e, h01=0x0050, text=» CBNE GTRECNR,=W'26',AS16 «, t00=0x0038, t01=0x012e}
0x58c0…58d2              Head {h00=0x000e, h01=0x0050, text=» PERF INIT«, t00=0x0038, t01=0x0150}
0x58d2…58e2              Head {h00=0x000c, h01=0x0050, text=» B AS90 «, t00=0x0038, t01=0x0162}
0x58e2…58f2              Head {h00=0x000c, h01=0x0050, text=» B AS90 «, t00=0x0038, t01=0x0172}
0x58f2…5902              Head {h00=0x000c, h01=0x0050, text=» B AS20 «, t00=0x0038, t01=0x0182}
0x5902…590e (57, 0, 400) Head {h00=0x0008, h01=0x0050, text=»AS16«, t00=0x0039, t01=0x0004}
0x590e…5928              Head {h00=0x0016, h01=0x0050, text=» MOVE TEDBUF,=C' '«, t00=0x0039, t01=0x0010}
0x5928…595c              Head {h00=0x0030, h01=0x0050, text=» SUB GTRECNR,CBIN1 1 TOO FAR (DKREAD ADDS 1)«, t00=0x0039, t01=0x002a}
0x595c…5978              Head {h00=0x0018, h01=0x0050, text=» MOVE ENDREC,GTRECNR«, t00=0x0039, t01=0x005e}
0x5978…5992              Head {h00=0x0016, h01=0x0050, text=» SUB ENDREC,=W'26'«, t00=0x0039, t01=0x007a}
0x5992…59ae              Head {h00=0x0018, h01=0x0050, text=» MOVE RECUSE,ENDREC «, t00=0x0039, t01=0x0094}
0x59ae…59ca              Head {h00=0x0018, h01=0x0050, text=» SUB RECFREE,RECUSE «, t00=0x0039, t01=0x00b0}
0x59ca…59d6              Head {h00=0x0008, h01=0x0050, text=»AS20«, t00=0x0039, t01=0x00cc}
0x59d6…59ee              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0039, t01=0x00d8}
0x59ee…59fa              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x00f0}
0x59fa…5a06              Head {h00=0x0008, h01=0x0050, text=»AS90«, t00=0x0039, t01=0x00fc}
0x5a06…5a1e              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0039, t01=0x0108}
0x5a1e…5a2a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x0120}
0x5a2a…5a38              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x012c}
0x5a38…5a46              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x013a}
0x5a46…5a8c              Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0039, t01=0x0148}
0x5a8c…5a96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x018e}
0x5a96…5ab2              Head {h00=0x0018, h01=0x0050, text=»*            FORMATS«, t00=0x003a, t01=0x0008}
0x5ab2…5abc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0024}
0x5abc…5b02              Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x003a, t01=0x002e}
0x5b02…5b0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0074}
0x5b0c…5b16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007e}
0x5b16…5b28              Head {h00=0x000e, h01=0x0050, text=»HEAD FRMT «, t00=0x003a, t01=0x0088}
0x5b28…5b34              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x003a, t01=0x009a}
0x5b34…5b4c              Head {h00=0x0014, h01=0x0050, text=» FCOPY GTSTRFMT «, t00=0x003a, t01=0x00a6}
0x5b4c…5b64              Head {h00=0x0014, h01=0x0050, text=» FCOPY =' DATO' «, t00=0x003a, t01=0x00be}
0x5b64…5b78              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x003a, t01=0x00d6}
0x5b78…5baa              Head {h00=0x002e, h01=0x0050, text=» FKI 28,MINL=6,MAXL=6,SCHK=2,ME,REWRT,NCLR«, t00=0x003a, t01=0x00ea}
0x5baa…5bca              Head {h00=0x001c, h01=0x0050, text=» FMEL '99E-99E-99',DATE «, t00=0x003a, t01=0x011c}
0x5bca…5bd6              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003a, t01=0x013c}
0x5bd6…5bf2              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SKATTE]R' «, t00=0x003a, t01=0x0148}
0x5bf2…5c06              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x003a, t01=0x0164}
0x5c06…5c32              Head {h00=0x0028, h01=0x0050, text=» FKI 14,MINL=2,MAXL=2,ME,REWRT,NCLR «, t00=0x003a, t01=0x0178}
0x5c32…5c4a              Head {h00=0x0014, h01=0x0050, text=» FMEL '99',YEAR «, t00=0x003b, t01=0x0014}
0x5c4a…5c56              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003b, t01=0x002c}
0x5c56…5c88              Head {h00=0x002e, h01=0x0050, text=» FTEXT 'INDTAST GR[NSE FOR MEDHJ.HUSTRU ' «, t00=0x003b, t01=0x0038}
0x5c88…5cb4              Head {h00=0x0028, h01=0x0050, text=» FKI 34,MINL=5,MAXL=6,ME,REWRT,NCLR «, t00=0x003b, t01=0x006a}
0x5cb4…5cd2              Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZZVZZZ',MEDHJ «, t00=0x003b, t01=0x0096}
0x5cd2…5ce2              Head {h00=0x000c, h01=0x0050, text=» FTAB 49«, t00=0x003b, t01=0x00b4}
0x5ce2…5cfe              Head {h00=0x0018, h01=0x0050, text=» FTEXT 'OG FORMUE ' «, t00=0x003b, t01=0x00c4}
0x5cfe…5d2a              Head {h00=0x0028, h01=0x0050, text=» FKI 60,MINL=6,MAXL=7,ME,REWRT,NCLR «, t00=0x003b, t01=0x00e0}
0x5d2a…5d4a              Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZVZZZVZZZ',FORMUE«, t00=0x003b, t01=0x010c}
0x5d4a…5d58              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x003b, t01=0x012c}
0x5d58…5d62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x013a}
0x5d62…5d74              Head {h00=0x000e, h01=0x0050, text=»HEAD1 FRMT«, t00=0x003b, t01=0x0144}
0x5d74…5d80              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x003b, t01=0x0156}
0x5d80…5d98              Head {h00=0x0014, h01=0x0050, text=» FCOPY GTSTRFMT «, t00=0x003b, t01=0x0162}
0x5d98…5db0              Head {h00=0x0014, h01=0x0050, text=» FCOPY =' DATO' «, t00=0x003b, t01=0x017a}
0x5db0…5dc0 (60, 0, 400) Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x003c, t01=0x0004}
0x5dc0…5dce              Head {h00=0x000a, h01=0x0050, text=» FHIGH«, t00=0x003c, t01=0x0014}
0x5dce…5dee              Head {h00=0x001c, h01=0x0050, text=» FMEL '99E-99E-99',DATE «, t00=0x003c, t01=0x0022}
0x5dee…5dfc              Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x003c, t01=0x0042}
0x5dfc…5e1a              Head {h00=0x001a, h01=0x0050, text=» FCOPY ='    DATAS[T' «, t00=0x003c, t01=0x0050}
0x5e1a…5e2a              Head {h00=0x000c, h01=0x0050, text=» FTAB 42«, t00=0x003c, t01=0x006e}
0x5e2a…5e40              Head {h00=0x0012, h01=0x0050, text=» FCOPY CDSNAME«, t00=0x003c, t01=0x007e}
0x5e40…5e54              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',8«, t00=0x003c, t01=0x0094}
0x5e54…5e72              Head {h00=0x001a, h01=0x0050, text=» FCOPY =' RECORDS FRI'«, t00=0x003c, t01=0x00a8}
0x5e72…5e82              Head {h00=0x000c, h01=0x0050, text=» FTAB 73«, t00=0x003c, t01=0x00c6}
0x5e82…5e90              Head {h00=0x000a, h01=0x0050, text=» FHIGH«, t00=0x003c, t01=0x00d6}
0x5e90…5eac              Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',GSWBCD3«, t00=0x003c, t01=0x00e4}
0x5eac…5eba              Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x003c, t01=0x0100}
0x5eba…5ec6              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003c, t01=0x010e}
0x5ec6…5ede              Head {h00=0x0014, h01=0x0050, text=» FTEXT 'CPR-NR' «, t00=0x003c, t01=0x011a}
0x5ede…5ef4              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',52 «, t00=0x003c, t01=0x0132}
0x5ef4…5f0e              Head {h00=0x0016, h01=0x0050, text=» FTEXT 'RECORD NR'«, t00=0x003c, t01=0x0148}
0x5f0e…5f1e              Head {h00=0x000c, h01=0x0050, text=» FTAB 73«, t00=0x003c, t01=0x0162}
0x5f1e…5f2c              Head {h00=0x000a, h01=0x0050, text=» FHIGH«, t00=0x003c, t01=0x0172}
0x5f2c…5f46              Head {h00=0x0016, h01=0x0050, text=» FMEL '9999',WORK5«, t00=0x003c, t01=0x0180}
0x5f46…5f54              Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x003d, t01=0x000a}
0x5f54…5f60              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003d, t01=0x0018}
0x5f60…5f7c              Head {h00=0x0018, h01=0x0050, text=» FBT CPRFLAG,HEAD101«, t00=0x003d, t01=0x0024}
0x5f7c…5faa              Head {h00=0x002a, h01=0x0050, text=» FKI 1,MINL=10,MAXL=10,ME,REWRT,SCHK=1«, t00=0x003d, t01=0x0040}
0x5faa…5fba              Head {h00=0x000c, h01=0x0050, text=»HEAD101 «, t00=0x003d, t01=0x006e}
0x5fba…5fdc              Head {h00=0x001e, h01=0x0050, text=» FMEL '999999E-9999',CPRNR«, t00=0x003d, t01=0x007e}
0x5fdc…5ff6              Head {h00=0x0016, h01=0x0050, text=» FBF INQ1,HEAD102 «, t00=0x003d, t01=0x00a0}
0x5ff6…6004              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x003d, t01=0x00ba}
0x6004…6014              Head {h00=0x000c, h01=0x0050, text=»HEAD102 «, t00=0x003d, t01=0x00c8}
0x6014…6020              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003d, t01=0x00d8}
0x6020…6042              Head {h00=0x001e, h01=0x0050, text=» FCOPY ='FNR FELTINDHOLD' «, t00=0x003d, t01=0x00e4}
0x6042…6056              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x003d, t01=0x0106}
0x6056…6078              Head {h00=0x001e, h01=0x0050, text=» FCOPY ='FNR FELTINDHOLD' «, t00=0x003d, t01=0x011a}
0x6078…608c              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x003d, t01=0x013c}
0x608c…60ae              Head {h00=0x001e, h01=0x0050, text=» FCOPY ='FNR FELTINDHOLD' «, t00=0x003d, t01=0x0150}
0x60ae…60c2              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',6«, t00=0x003d, t01=0x0172}
0x60c2…60e4              Head {h00=0x001e, h01=0x0050, text=» FCOPY ='FNR FELTINDHOLD' «, t00=0x003d, t01=0x0186}
0x60e4…60f0              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003e, t01=0x0018}
0x60f0…6118              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x003e, t01=0x0024}
0x6118…613e              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN1,CBIN1)«, t00=0x003e, t01=0x004c}
0x613e…6168              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x003e, t01=0x0072}
0x6168…618a              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN1,CBIN1) «, t00=0x003e, t01=0x009c}
0x618a…61b2              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=1,MAXL=3,APPL=6,NUM«, t00=0x003e, t01=0x00be}
0x61b2…61d8              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN1,CBIN2)«, t00=0x003e, t01=0x00e6}
0x61d8…6204              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x003e, t01=0x010c}
0x6204…6226              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN1,CBIN2) «, t00=0x003e, t01=0x0138}
0x6226…624e              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=1,MAXL=3,APPL=6,NUM«, t00=0x003e, t01=0x015a}
0x624e…6274              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN1,CBIN3)«, t00=0x003e, t01=0x0182}
0x6274…62a0              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x003f, t01=0x0018}
0x62a0…62c2              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN1,CBIN3) «, t00=0x003f, t01=0x0044}
0x62c2…62ea              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=1,MAXL=3,APPL=6,NUM«, t00=0x003f, t01=0x0066}
0x62ea…6310              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN1,CBIN4)«, t00=0x003f, t01=0x008e}
0x6310…633c              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x003f, t01=0x00b4}
0x633c…635e              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN1,CBIN4) «, t00=0x003f, t01=0x00e0}
0x635e…636a              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x003f, t01=0x0102}
0x636a…6392              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x003f, t01=0x010e}
0x6392…63b8              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN2,CBIN1)«, t00=0x003f, t01=0x0136}
0x63b8…63e2              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x003f, t01=0x015c}
0x63e2…6404              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN2,CBIN1) «, t00=0x003f, t01=0x0186}
0x6404…642c              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0040, t01=0x0018}
0x642c…6452              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN2,CBIN2)«, t00=0x0040, t01=0x0040}
0x6452…647e              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0040, t01=0x0066}
0x647e…64a0              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN2,CBIN2) «, t00=0x0040, t01=0x0092}
0x64a0…64c8              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0040, t01=0x00b4}
0x64c8…64ee              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN2,CBIN3)«, t00=0x0040, t01=0x00dc}
0x64ee…651a              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0040, t01=0x0102}
0x651a…653c              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN2,CBIN3) «, t00=0x0040, t01=0x012e}
0x653c…6564              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0040, t01=0x0150}
0x6564…658a              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN2,CBIN4)«, t00=0x0040, t01=0x0178}
0x658a…65b6              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0041, t01=0x000e}
0x65b6…65d8              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN2,CBIN4) «, t00=0x0041, t01=0x003a}
0x65d8…65e4              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0041, t01=0x005c}
0x65e4…660c              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x0041, t01=0x0068}
0x660c…6632              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN3,CBIN1)«, t00=0x0041, t01=0x0090}
0x6632…665c              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x0041, t01=0x00b6}
0x665c…667e              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN3,CBIN1) «, t00=0x0041, t01=0x00e0}
0x667e…66a6              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0041, t01=0x0102}
0x66a6…66cc              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN3,CBIN2)«, t00=0x0041, t01=0x012a}
0x66cc…66f8              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0041, t01=0x0150}
0x66f8…671a              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN3,CBIN2) «, t00=0x0041, t01=0x017c}
0x671a…6742              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0042, t01=0x000e}
0x6742…6768              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN3,CBIN3)«, t00=0x0042, t01=0x0036}
0x6768…6794              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0042, t01=0x005c}
0x6794…67b6              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN3,CBIN3) «, t00=0x0042, t01=0x0088}
0x67b6…67de              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0042, t01=0x00aa}
0x67de…6804              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN3,CBIN4)«, t00=0x0042, t01=0x00d2}
0x6804…6830              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0042, t01=0x00f8}
0x6830…6852              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN3,CBIN4) «, t00=0x0042, t01=0x0124}
0x6852…685e              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0042, t01=0x0146}
0x685e…6886              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x0042, t01=0x0152}
0x6886…68ac              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN4,CBIN1)«, t00=0x0042, t01=0x017a}
0x68ac…68d6              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x0043, t01=0x0010}
0x68d6…68f8              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN4,CBIN1) «, t00=0x0043, t01=0x003a}
0x68f8…6920              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0043, t01=0x005c}
0x6920…6946              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN4,CBIN2)«, t00=0x0043, t01=0x0084}
0x6946…6972              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0043, t01=0x00aa}
0x6972…6994              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN4,CBIN2) «, t00=0x0043, t01=0x00d6}
0x6994…69bc              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0043, t01=0x00f8}
0x69bc…69e2              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN4,CBIN3)«, t00=0x0043, t01=0x0120}
0x69e2…6a0e              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0043, t01=0x0146}
0x6a0e…6a30              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN4,CBIN3) «, t00=0x0043, t01=0x0172}
0x6a30…6a58 (68, 0, 400) Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0044, t01=0x0004}
0x6a58…6a7e              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN4,CBIN4)«, t00=0x0044, t01=0x002c}
0x6a7e…6aaa              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0044, t01=0x0052}
0x6aaa…6acc              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN4,CBIN4) «, t00=0x0044, t01=0x007e}
0x6acc…6ad8              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x00a0}
0x6ad8…6b00              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x0044, t01=0x00ac}
0x6b00…6b26              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN5,CBIN1)«, t00=0x0044, t01=0x00d4}
0x6b26…6b50              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x0044, t01=0x00fa}
0x6b50…6b72              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN5,CBIN1) «, t00=0x0044, t01=0x0124}
0x6b72…6b9a              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0044, t01=0x0146}
0x6b9a…6bc0              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN5,CBIN2)«, t00=0x0044, t01=0x016e}
0x6bc0…6bec (69, 0, 398) Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0045, t01=0x0004}
0x6bec…6c0e              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN5,CBIN2) «, t00=0x0045, t01=0x0030}
0x6c0e…6c36              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0045, t01=0x0052}
0x6c36…6c5c              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN5,CBIN3)«, t00=0x0045, t01=0x007a}
0x6c5c…6c88              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0045, t01=0x00a0}
0x6c88…6caa              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN5,CBIN3) «, t00=0x0045, t01=0x00cc}
0x6caa…6cd2              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0045, t01=0x00ee}
0x6cd2…6cf8              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN5,CBIN4)«, t00=0x0045, t01=0x0116}
0x6cf8…6d24              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0045, t01=0x013c}
0x6d24…6d46              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN5,CBIN4) «, t00=0x0045, t01=0x0168}
0x6d46…6d52              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x018a}
0x6d52…6d7a              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x0046, t01=0x0008}
0x6d7a…6da0              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN6,CBIN1)«, t00=0x0046, t01=0x0030}
0x6da0…6dca              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x0046, t01=0x0056}
0x6dca…6dec              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN6,CBIN1) «, t00=0x0046, t01=0x0080}
0x6dec…6e14              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0046, t01=0x00a2}
0x6e14…6e3a              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN6,CBIN2)«, t00=0x0046, t01=0x00ca}
0x6e3a…6e66              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0046, t01=0x00f0}
0x6e66…6e88              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN6,CBIN2) «, t00=0x0046, t01=0x011c}
0x6e88…6eb0              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0046, t01=0x013e}
0x6eb0…6ed6              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN6,CBIN3)«, t00=0x0046, t01=0x0166}
0x6ed6…6f02              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0046, t01=0x018c}
0x6f02…6f24              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN6,CBIN3) «, t00=0x0047, t01=0x0028}
0x6f24…6f4c              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0047, t01=0x004a}
0x6f4c…6f72              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN6,CBIN4)«, t00=0x0047, t01=0x0072}
0x6f72…6f9e              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0047, t01=0x0098}
0x6f9e…6fc0              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN6,CBIN4) «, t00=0x0047, t01=0x00c4}
0x6fc0…6fcc              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x00e6}
0x6fcc…6ff4              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x0047, t01=0x00f2}
0x6ff4…701a              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN7,CBIN1)«, t00=0x0047, t01=0x011a}
0x701a…7044              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x0047, t01=0x0140}
0x7044…7066              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN7,CBIN1) «, t00=0x0047, t01=0x016a}
0x7066…708e              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0047, t01=0x018c}
0x708e…70b4              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN7,CBIN2)«, t00=0x0048, t01=0x0024}
0x70b4…70e0              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0048, t01=0x004a}
0x70e0…7102              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN7,CBIN2) «, t00=0x0048, t01=0x0076}
0x7102…712a              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0048, t01=0x0098}
0x712a…7150              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN7,CBIN3)«, t00=0x0048, t01=0x00c0}
0x7150…717c              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0048, t01=0x00e6}
0x717c…719e              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN7,CBIN3) «, t00=0x0048, t01=0x0112}
0x719e…71c6              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0048, t01=0x0134}
0x71c6…71ec              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN7,CBIN4)«, t00=0x0048, t01=0x015c}
0x71ec…7218              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0048, t01=0x0182}
0x7218…723a              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN7,CBIN4) «, t00=0x0049, t01=0x001e}
0x723a…7246              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0049, t01=0x0040}
0x7246…726e              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x0049, t01=0x004c}
0x726e…7294              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN8,CBIN1)«, t00=0x0049, t01=0x0074}
0x7294…72be              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x0049, t01=0x009a}
0x72be…72e0              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN8,CBIN1) «, t00=0x0049, t01=0x00c4}
0x72e0…7308              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0049, t01=0x00e6}
0x7308…732e              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN8,CBIN2)«, t00=0x0049, t01=0x010e}
0x732e…735a              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0049, t01=0x0134}
0x735a…737c              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN8,CBIN2) «, t00=0x0049, t01=0x0160}
0x737c…73a4              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0049, t01=0x0182}
0x73a4…73ca              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN8,CBIN3)«, t00=0x004a, t01=0x001a}
0x73ca…73f6              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004a, t01=0x0040}
0x73f6…7418              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN8,CBIN3) «, t00=0x004a, t01=0x006c}
0x7418…7440              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004a, t01=0x008e}
0x7440…7466              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN8,CBIN4)«, t00=0x004a, t01=0x00b6}
0x7466…7492              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004a, t01=0x00dc}
0x7492…74b4              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN8,CBIN4) «, t00=0x004a, t01=0x0108}
0x74b4…74c0              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x012a}
0x74c0…74e8              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x004a, t01=0x0136}
0x74e8…750e              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN9,CBIN1)«, t00=0x004a, t01=0x015e}
0x750e…7538              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x004a, t01=0x0184}
0x7538…755a              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN9,CBIN1) «, t00=0x004b, t01=0x001e}
0x755a…7582              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004b, t01=0x0040}
0x7582…75a8              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN9,CBIN2)«, t00=0x004b, t01=0x0068}
0x75a8…75d4              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004b, t01=0x008e}
0x75d4…75f6              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN9,CBIN2) «, t00=0x004b, t01=0x00ba}
0x75f6…761e              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004b, t01=0x00dc}
0x761e…7644              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN9,CBIN3)«, t00=0x004b, t01=0x0104}
0x7644…7670              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004b, t01=0x012a}
0x7670…7692              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN9,CBIN3) «, t00=0x004b, t01=0x0156}
0x7692…76ba              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004b, t01=0x0178}
0x76ba…76e0              Head {h00=0x0022, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN9,CBIN4)«, t00=0x004c, t01=0x0010}
0x76e0…770c              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004c, t01=0x0036}
0x770c…772e              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN9,CBIN4) «, t00=0x004c, t01=0x0062}
0x772e…773a              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004c, t01=0x0084}
0x773a…7762              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x004c, t01=0x0090}
0x7762…778a              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN10,CBIN1) «, t00=0x004c, t01=0x00b8}
0x778a…77b4              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x004c, t01=0x00e0}
0x77b4…77d6              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN10,CBIN1)«, t00=0x004c, t01=0x010a}
0x77d6…77fe              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004c, t01=0x012c}
0x77fe…7826              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN10,CBIN2) «, t00=0x004c, t01=0x0154}
0x7826…7852              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004c, t01=0x017c}
0x7852…7874              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN10,CBIN2)«, t00=0x004d, t01=0x0018}
0x7874…789c              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004d, t01=0x003a}
0x789c…78c4              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN10,CBIN3) «, t00=0x004d, t01=0x0062}
0x78c4…78f0              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004d, t01=0x008a}
0x78f0…7912              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN10,CBIN3)«, t00=0x004d, t01=0x00b6}
0x7912…793a              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004d, t01=0x00d8}
0x793a…7962              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN10,CBIN4) «, t00=0x004d, t01=0x0100}
0x7962…798e              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004d, t01=0x0128}
0x798e…79b0              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN10,CBIN4)«, t00=0x004d, t01=0x0154}
0x79b0…79bc              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0176}
0x79bc…79e4              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x004d, t01=0x0182}
0x79e4…7a0c              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN11,CBIN1) «, t00=0x004e, t01=0x001a}
0x7a0c…7a36              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x004e, t01=0x0042}
0x7a36…7a58              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN11,CBIN1)«, t00=0x004e, t01=0x006c}
0x7a58…7a80              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004e, t01=0x008e}
0x7a80…7aa8              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN11,CBIN2) «, t00=0x004e, t01=0x00b6}
0x7aa8…7ad4              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004e, t01=0x00de}
0x7ad4…7af6              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN11,CBIN2)«, t00=0x004e, t01=0x010a}
0x7af6…7b1e              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004e, t01=0x012c}
0x7b1e…7b46              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN11,CBIN3) «, t00=0x004e, t01=0x0154}
0x7b46…7b72              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004e, t01=0x017c}
0x7b72…7b94              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN11,CBIN3)«, t00=0x004f, t01=0x0018}
0x7b94…7bbc              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004f, t01=0x003a}
0x7bbc…7be4              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN11,CBIN4) «, t00=0x004f, t01=0x0062}
0x7be4…7c10              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x004f, t01=0x008a}
0x7c10…7c32              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN11,CBIN4)«, t00=0x004f, t01=0x00b6}
0x7c32…7c3e              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x00d8}
0x7c3e…7c66              Head {h00=0x0024, h01=0x0050, text=» FKI 1,APPL=6,MINL=2,MAXL=3,NUM «, t00=0x004f, t01=0x00e4}
0x7c66…7c8e              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN12,CBIN1) «, t00=0x004f, t01=0x010c}
0x7c8e…7cb8              Head {h00=0x0026, h01=0x0050, text=» FKI 5,MINL=1,MAXL=12,APPL=3,ALPHA«, t00=0x004f, t01=0x0134}
0x7cb8…7cda              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN12,CBIN1)«, t00=0x004f, t01=0x015e}
0x7cda…7d02              Head {h00=0x0024, h01=0x0050, text=» FKI 22,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x004f, t01=0x0180}
0x7d02…7d2a              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN12,CBIN2) «, t00=0x0050, t01=0x0018}
0x7d2a…7d56              Head {h00=0x0028, h01=0x0050, text=» FKI 26,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0050, t01=0x0040}
0x7d56…7d78              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN12,CBIN2)«, t00=0x0050, t01=0x006c}
0x7d78…7da0              Head {h00=0x0024, h01=0x0050, text=» FKI 43,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0050, t01=0x008e}
0x7da0…7dc8              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN12,CBIN3) «, t00=0x0050, t01=0x00b6}
0x7dc8…7df4              Head {h00=0x0028, h01=0x0050, text=» FKI 47,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0050, t01=0x00de}
0x7df4…7e16              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN12,CBIN3)«, t00=0x0050, t01=0x010a}
0x7e16…7e3e              Head {h00=0x0024, h01=0x0050, text=» FKI 64,MINL=2,MAXL=3,APPL=6,NUM«, t00=0x0050, t01=0x012c}
0x7e3e…7e66              Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZ',FIELD(CBIN12,CBIN4) «, t00=0x0050, t01=0x0154}
0x7e66…7e92              Head {h00=0x0028, h01=0x0050, text=» FKI 68,MINL=1,MAXL=12,APPL=3,ALPHA «, t00=0x0050, t01=0x017c}
0x7e92…7eb4              Head {h00=0x001e, h01=0x0050, text=» FCOPY SAVEF(CBIN12,CBIN4)«, t00=0x0051, t01=0x0018}
0x7eb4…7ec0              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0051, t01=0x003a}
0x7ec0…7ece              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0051, t01=0x0046}
0x7ece…7ed8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0054}
0x7ed8…7eea              Head {h00=0x000e, h01=0x0050, text=»HEAD2 FRMT«, t00=0x0051, t01=0x005e}
0x7eea…7ef6              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0051, t01=0x0070}
0x7ef6…7f0e              Head {h00=0x0014, h01=0x0050, text=» FCOPY GTSTRFMT «, t00=0x0051, t01=0x007c}
0x7f0e…7f26              Head {h00=0x0014, h01=0x0050, text=» FCOPY =' DATO' «, t00=0x0051, t01=0x0094}
0x7f26…7f3a              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0051, t01=0x00ac}
0x7f3a…7f5a              Head {h00=0x001c, h01=0x0050, text=» FMEL 'Z99E-99E-99',DATE«, t00=0x0051, t01=0x00c0}
0x7f5a…7f78              Head {h00=0x001a, h01=0x0050, text=» FCOPY ='    DATAS[T' «, t00=0x0051, t01=0x00e0}
0x7f78…7f8c              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0051, t01=0x00fe}
0x7f8c…7fa2              Head {h00=0x0012, h01=0x0050, text=» FCOPY CDSNAME«, t00=0x0051, t01=0x0112}
0x7fa2…7fb8              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',10 «, t00=0x0051, t01=0x0128}
0x7fb8…7fd6              Head {h00=0x001a, h01=0x0050, text=» FCOPY =' RECORDS FRI'«, t00=0x0051, t01=0x013e}
0x7fd6…7fe6              Head {h00=0x000c, h01=0x0050, text=» FTAB 73«, t00=0x0051, t01=0x015c}
0x7fe6…8004              Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',GSWBCD3 «, t00=0x0051, t01=0x016c}
0x8004…8010              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0051, t01=0x018a}
0x8010…802c              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SKATTE]R' «, t00=0x0052, t01=0x0008}
0x802c…8044              Head {h00=0x0014, h01=0x0050, text=» FMEL 'Z99',YEAR«, t00=0x0052, t01=0x0024}
0x8044…8050              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x003c}
0x8050…8086              Head {h00=0x0032, h01=0x0050, text=» FTEXT '01*- SLUTLIGNING/FORSKUDSREG./LONOPL.'«, t00=0x0052, t01=0x0048}
0x8086…8092              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x007e}
0x8092…80b2              Head {h00=0x001c, h01=0x0050, text=» FTEXT '02 - [NDRINGER' «, t00=0x0052, t01=0x008a}
0x80b2…80be              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x00aa}
0x80be…80ec              Head {h00=0x002a, h01=0x0050, text=» FTEXT X'3033202D20464F524553505C5247'«, t00=0x0052, t01=0x00b6}
0x80ec…80f8              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x00e4}
0x80f8…811c              Head {h00=0x0020, h01=0x0050, text=» FTEXT '04 - DISKKOPIERING' «, t00=0x0052, t01=0x00f0}
0x811c…8128              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x0114}
0x8128…8148              Head {h00=0x001c, h01=0x0050, text=» FTEXT '05 - LIST CPRNR'«, t00=0x0052, t01=0x0120}
0x8148…8154              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x0140}
0x8154…8180              Head {h00=0x0028, h01=0x0050, text=» FTEXT '06 - [NDRING AF KONSTANTER' «, t00=0x0052, t01=0x014c}
0x8180…818c              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0052, t01=0x0178}
0x818c…81ba              Head {h00=0x002a, h01=0x0050, text=» FTEXT '07 - UDSKRIVNING AF DISKETTE '«, t00=0x0052, t01=0x0184}
0x81ba…81c6              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0053, t01=0x0022}
0x81c6…81e6              Head {h00=0x001c, h01=0x0050, text=» FKI 01,MINL=1,MAXL=2,ME«, t00=0x0053, t01=0x002e}
0x81e6…8200              Head {h00=0x0016, h01=0x0050, text=» FMEL 'ZZZ',BCDWK «, t00=0x0053, t01=0x004e}
0x8200…820e              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x0068}
0x820e…8218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0076}
0x8218…822e              Head {h00=0x0012, h01=0x0050, text=»LISTFRM1 FRMT «, t00=0x0053, t01=0x0080}
0x822e…8242              Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0053, t01=0x0096}
0x8242…825e              Head {h00=0x0018, h01=0x0050, text=» FMEL 'ZZZZ',GSWBCD1«, t00=0x0053, t01=0x00aa}
0x825e…8272              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0053, t01=0x00c6}
0x8272…828a              Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR80 «, t00=0x0053, t01=0x00da}
0x828a…8298              Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0053, t01=0x00f2}
0x8298…82ac              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0053, t01=0x0100}
0x82ac…82ba              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x0114}
0x82ba…82c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0122}
0x82c4…82da              Head {h00=0x0012, h01=0x0050, text=»LISTFRM2 FRMT «, t00=0x0053, t01=0x012c}
0x82da…82e6              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0053, t01=0x0142}
0x82e6…82fe              Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR80 «, t00=0x0053, t01=0x014e}
0x82fe…830a              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0053, t01=0x0166}
0x830a…8326              Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=1«, t00=0x0053, t01=0x0172}
0x8326…833e              Head {h00=0x0014, h01=0x0050, text=» FMEL 'Z',BCDWK «, t00=0x0053, t01=0x018e}
0x833e…834c              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x0016}
0x834c…8356              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0024}
0x8356…836c              Head {h00=0x0012, h01=0x0050, text=»LISTFRMT FRMT «, t00=0x0054, t01=0x002e}
0x836c…8380              Head {h00=0x0010, h01=0x0050, text=» FILLR '+',2«, t00=0x0054, t01=0x0044}
0x8380…8394              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',8«, t00=0x0054, t01=0x0058}
0x8394…83c2              Head {h00=0x002a, h01=0x0050, text=» FMEL '99E-99E-99E-9999',WORK0(CBIN1) «, t00=0x0054, t01=0x006c}
0x83c2…83d8              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',10 «, t00=0x0054, t01=0x009a}
0x83d8…8406              Head {h00=0x002a, h01=0x0050, text=» FMEL '99E-99E-99E-9999',WORK0(CBIN2) «, t00=0x0054, t01=0x00b0}
0x8406…841c              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',10 «, t00=0x0054, t01=0x00de}
0x841c…844a              Head {h00=0x002a, h01=0x0050, text=» FMEL '99E-99E-99E-9999',WORK0(CBIN3) «, t00=0x0054, t01=0x00f4}
0x844a…8460              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',10 «, t00=0x0054, t01=0x0122}
0x8460…848e              Head {h00=0x002a, h01=0x0050, text=» FMEL '99E-99E-99E-9999',WORK0(CBIN4) «, t00=0x0054, t01=0x0138}
0x848e…849c              Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0054, t01=0x0166}
0x849c…84b0              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0054, t01=0x0174}
0x84b0…84be              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x0188}
0x84be…84c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0008}
0x84c8…84dc              Head {h00=0x0010, h01=0x0050, text=»ENDCARD FRMT«, t00=0x0055, t01=0x0012}
0x84dc…84f0              Head {h00=0x0010, h01=0x0050, text=» FILLR '*',2«, t00=0x0055, t01=0x0026}
0x84f0…850a              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',RKKMNR«, t00=0x0055, t01=0x003a}
0x850a…8520              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',60 «, t00=0x0055, t01=0x0054}
0x8520…8536              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',15 «, t00=0x0055, t01=0x006a}
0x8536…8544              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x0080}
0x8544…854e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x008e}
0x854e…8562              Head {h00=0x0010, h01=0x0050, text=»DETCARD FRMT«, t00=0x0055, t01=0x0098}
0x8562…8582              Head {h00=0x001c, h01=0x0050, text=» FMEL '9999999999',CPRNR«, t00=0x0055, t01=0x00ac}
0x8582…8598              Head {h00=0x0012, h01=0x0050, text=» FCOPY CARDBUF«, t00=0x0055, t01=0x00cc}
0x8598…85a6              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x00e2}
0x85a6…85b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00f0}
0x85b0…85c4              Head {h00=0x0010, h01=0x0050, text=»FLTFRMT FRMT«, t00=0x0055, t01=0x00fa}
0x85c4…85da              Head {h00=0x0012, h01=0x0050, text=» FILLR C'&',1 «, t00=0x0055, t01=0x010e}
0x85da…85f4              Head {h00=0x0016, h01=0x0050, text=» FMEL 'T99',BCDWK «, t00=0x0055, t01=0x0124}
0x85f4…861a              Head {h00=0x0022, h01=0x0050, text=» FCOPY SAVEF(GSWBIN6,GSWBIN7) «, t00=0x0055, t01=0x013e}
0x861a…8628              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x0164}
0x8628…8634              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0055, t01=0x0172}
0x8634…8638              Head {h00=0x4004, h01=0x0000}
0x8638…863c              00 55 01 7e                                                                                                                                                                                                                                       ┆ U ~┆
0x863c…8644 (86, 1, 8)   20 04 00 00 00 56 00 04                                                                                                                                                                                                                           ┆     V  ┆
0x8644…8694 (87, 0, 400) 07 8c 22 0e 82 4f 07 8c 82 4e 07 8a 22 02 50 00 f6 a1 5e 1e 82 4e 07 8c 22 04 82 4f 07 8c 57 00 80 ce 07 a2 84 42 00 02 f6 a1 00 00 f6 a1 61 e6 f0 3a 01 00 f6 a1 58 fa 07 82 a0 43 00 0a 81 20 08 fc 81 43 00 04 84 43 00 02 28 04 00 01 f0 3a   ┆  "  O   N  " P   ^  N  "  O  W      B        a  :    X    C       C   C  (    :┆
0x8694…86e4              62 ba 6b b8 07 a2 f6 a1 00 00 a0 4f 07 a8 81 42 00 06 81 4f 07 90 f6 a1 00 00 81 4e 07 92 54 00 81 4e 07 8a 81 4f 07 9a f6 a1 00 00 f6 a1 00 00 00 00 07 00 a0 4f 07 a6 80 a0 ff ca 90 96 28 04 00 0a f0 3a a0 4f 07 a6 01 38 81 4f 07 9a f6 a1   ┆b k        O   B   O       N  T  N   O               O        (    : O   8 O    ┆
0x86e4…8734              00 00 81 4e 07 92 5c 5a 5f c8 00 28 40 50 74 b8 7d b6 90 96 87 42 00 02 9b 0c e3 5d 00 00 e3 5d 00 01 17 02 99 86 84 20 00 04 94 0e 82 4e 07 9a 22 08 54 00 f0 3a 82 4e 07 9a 22 30 88 20 00 00 3a 64 06 00 e6 48 60 22 e9 98 52 00 f6 a1 00 00   ┆   N   Z_  (@Pt }    B     ]   ]             N  " T  : N  "0    :d   H`"  R     ┆
0x8734…8784              5f 0a eb 20 07 80 8e 20 00 00 e2 30 22 7f e2 31 ea 20 00 20 56 00 22 06 32 06 50 00 02 20 57 00 ea 20 00 7f 58 0a ea 20 00 7d 54 00 02 39 ea 20 00 7e 54 00 02 35 f6 a1 00 00 ea 20 00 61 52 00 1a 20 e2 3d 13 01 14 01 17 01 91 a0 00 01 5f 58   ┆_          0"  1    V " 2 P   W     X    }T  9   ~T  5       aR    =          _X┆
0x8784…87d4              02 20 e2 3d 13 01 14 01 17 01 91 a0 00 01 e9 98 52 00 f6 a1 00 00 e2 30 22 7f ea 20 00 20 5a 5a 5f 22 e9 a0 00 84 52 00 f6 a1 00 00 8f 20 60 da eb 20 07 80 56 00 e2 30 00 40 01 10 00 c0 00 00 00 00 01 80 00 00 10 00 00 00 00 00 00 00 01 05   ┆   =            R      0"     ZZ_"    R       `     V  0 @                      ┆
0x87d4…8824 (88, 0, 400) 22 7f e2 31 ea 20 00 20 56 0a 22 06 32 06 50 34 02 20 57 06 ea 20 00 7f 58 0a ea 20 00 7b 54 02 02 2a e2 3d 13 01 14 01 17 01 ea 20 00 7e 58 40 ea 20 00 7c 58 46 ea 20 00 7d 50 2a 91 a0 00 01 8f 20 60 da 02 20 e2 3d 13 01 14 01 17 01 91 a0   ┆"  1    V " 2 P4  W     X    {T  * =         ~X@   |XF   }P*      `    =        ┆
0x8824…8874              00 01 e9 98 52 04 f6 a1 61 64 e2 30 22 7f ea 20 00 20 5a 5a 5f 22 81 86 88 20 60 4c f6 a1 61 64 8f 20 60 4c 90 4f 07 8e 52 08 07 30 9f 1d 87 4f 07 8e 87 42 00 02 e2 5c 00 02 22 7f ea 20 00 7c 54 20 02 31 e2 5d 00 01 07 02 87 43 00 04 f6 a1   ┆    R   ad 0"     ZZ_"    `L  ad  `L O  R  0   O   B      "    |T  1 ]     C    ┆
0x8874…88c4              61 f6 07 30 9f 1d 87 4f 07 8e 57 38 e2 5c 00 02 22 7f ea 20 00 7c 54 20 02 20 e2 5d 00 02 81 4e 07 8e 07 02 87 43 00 04 f6 a1 61 f6 11 01 5a 08 07 30 9f 1d 87 4f 07 8e 91 a0 00 02 81 c3 00 04 f6 a1 61 f6 07 00 87 42 00 02 99 86 e1 bd e1 dd   ┆a  0   O  W8    "    |T    ]   N     C    a   Z  0   O            a    B        ┆
0x88c4…8914              00 01 17 02 f0 3a 80 ce 07 a2 a0 43 00 0a 07 b8 28 04 00 01 f0 3a 07 86 28 04 00 01 87 42 00 08 27 01 5c 0e f0 3a 80 ce 07 a2 81 42 00 08 a1 20 40 00 50 00 81 4f 07 b2 f6 a1 5c 9c f0 3a f6 a1 00 00 80 ce 07 a2 f6 a1 00 00 a0 4f 07 a8 81 4e   ┆     :     C    (    :  (    B  '    :     B    @ P  O       :             O   N┆
0x8914…8964              07 96 54 00 81 42 00 06 81 4f 07 90 85 4e 07 8c 2d 03 85 4f 07 8c f6 a1 5e 1a f6 a1 5e 2a f6 a1 00 00 f6 a1 00 00 82 4e 07 84 f6 a1 5e 4a 82 4e 07 8c 22 01 50 00 82 4e 00 00 00 00 40 08 05 40 00 00 80 00 04 00 40 00 00 00 04 00 00 0a 02 0c   ┆  T  B   O   N  -  O    ^   ^*         N    ^J N  " P  N    @  @      @         ┆
0x8964…89b4 (89, 0, 400) 07 8c 22 0e 82 4f 07 8c 82 4e 07 8a 22 02 50 00 f6 a1 5e 1e 82 4e 07 8c 22 04 82 4f 07 8c 57 00 80 ce 07 a2 84 42 00 02 f6 a1 00 00 f6 a1 61 e6 f0 3a 01 00 f6 a1 58 fa 07 82 a0 43 00 0a 81 20 08 fc 81 43 00 04 84 43 00 02 28 04 00 01 f0 3a   ┆  "  O   N  " P   ^  N  "  O  W      B        a  :    X    C       C   C  (    :┆
0x89b4…8a04              62 ba 6b b8 07 a2 f6 a1 00 00 a0 4f 07 a8 81 42 00 06 81 4f 07 90 f6 a1 00 00 81 4e 07 92 54 00 81 4e 07 8a 81 4f 07 9a f6 a1 00 00 f6 a1 00 00 00 00 07 00 a0 4f 07 a6 80 a0 ff ca 90 96 28 04 00 0a f0 3a a0 4f 07 a6 01 38 81 4f 07 9a f6 a1   ┆b k        O   B   O       N  T  N   O               O        (    : O   8 O    ┆
0x8a04…8a54              00 00 81 4e 07 92 5c 5a 5f c8 00 28 40 50 74 b8 7d b6 90 96 87 42 00 02 9b 0c e3 5d 00 00 e3 5d 00 01 17 02 99 86 84 20 00 04 94 0e 82 4e 07 9a 22 08 54 00 f0 3a 82 4e 07 9a 22 30 88 20 00 00 3a 64 06 00 e6 48 60 22 e9 98 52 00 f6 a1 00 00   ┆   N   Z_  (@Pt }    B     ]   ]             N  " T  : N  "0    :d   H`"  R     ┆
0x8a54…8aa4              5f 0a eb 20 07 80 8e 20 00 00 e2 30 22 7f e2 31 ea 20 00 20 56 00 22 06 32 06 50 00 02 20 57 00 ea 20 00 7f 58 0a ea 20 00 7d 54 00 02 39 ea 20 00 7e 54 00 02 35 f6 a1 00 00 ea 20 00 61 52 00 1a 20 e2 3d 13 01 14 01 17 01 91 a0 00 01 5f 58   ┆_          0"  1    V " 2 P   W     X    }T  9   ~T  5       aR    =          _X┆
0x8aa4…8af4              02 20 e2 3d 13 01 14 01 17 01 91 a0 00 01 e9 98 52 00 f6 a1 00 00 e2 30 22 7f ea 20 00 20 5a 5a 5f 22 e9 a0 00 84 52 00 f6 a1 00 00 8f 20 60 da eb 20 07 80 56 00 e2 30 00 40 01 10 00 c0 00 00 00 00 01 80 00 00 10 00 00 00 00 00 00 00 01 05   ┆   =            R      0"     ZZ_"    R       `     V  0 @                      ┆
0x8af4…8b44 (90, 0, 400) 22 7f e2 31 ea 20 00 20 56 0a 22 06 32 06 50 34 02 20 57 06 ea 20 00 7f 58 0a ea 20 00 7b 54 02 02 2a e2 3d 13 01 14 01 17 01 ea 20 00 7e 58 40 ea 20 00 7c 58 46 ea 20 00 7d 50 2a 91 a0 00 01 8f 20 60 da 02 20 e2 3d 13 01 14 01 17 01 91 a0   ┆"  1    V " 2 P4  W     X    {T  * =         ~X@   |XF   }P*      `    =        ┆
0x8b44…8b94              00 01 e9 98 52 04 f6 a1 61 64 e2 30 22 7f ea 20 00 20 5a 5a 5f 22 81 86 88 20 60 4c f6 a1 61 64 8f 20 60 4c 90 4f 07 8e 52 08 07 30 9f 1d 87 4f 07 8e 87 42 00 02 e2 5c 00 02 22 7f ea 20 00 7c 54 20 02 31 e2 5d 00 01 07 02 87 43 00 04 f6 a1   ┆    R   ad 0"     ZZ_"    `L  ad  `L O  R  0   O   B      "    |T  1 ]     C    ┆
0x8b94…8be4              61 f6 07 30 9f 1d 87 4f 07 8e 57 38 e2 5c 00 02 22 7f ea 20 00 7c 54 20 02 20 e2 5d 00 02 81 4e 07 8e 07 02 87 43 00 04 f6 a1 61 f6 11 01 5a 08 07 30 9f 1d 87 4f 07 8e 91 a0 00 02 81 c3 00 04 f6 a1 61 f6 07 00 87 42 00 02 99 86 e1 bd e1 dd   ┆a  0   O  W8    "    |T    ]   N     C    a   Z  0   O            a    B        ┆
0x8be4…8c34              00 01 17 02 f0 3a 80 ce 07 a2 a0 43 00 0a 07 b8 28 04 00 01 f0 3a 07 86 28 04 00 01 87 42 00 08 27 01 5c 0e f0 3a 80 ce 07 a2 81 42 00 08 a1 20 40 00 50 00 81 4f 07 b2 f6 a1 5c 9c f0 3a f6 a1 00 00 80 ce 07 a2 f6 a1 00 00 a0 4f 07 a8 81 4e   ┆     :     C    (    :  (    B  '    :     B    @ P  O       :             O   N┆
0x8c34…8c84              07 96 54 00 81 42 00 06 81 4f 07 90 85 4e 07 8c 2d 03 85 4f 07 8c f6 a1 5e 1a f6 a1 5e 2a f6 a1 00 00 f6 a1 00 00 82 4e 07 84 f6 a1 5e 4a 82 4e 07 8c 22 01 50 00 82 4e 00 00 00 00 40 08 05 40 00 00 80 00 04 00 40 00 00 00 04 00 00 0a 02 0c   ┆  T  B   O   N  -  O    ^   ^*         N    ^J N  " P  N    @  @      @         ┆
0x8c84…8cd4 (91, 0, 400) 07 8c 22 0e 82 4f 07 8c 82 4e 07 8a 22 02 50 00 f6 a1 5e 1e 82 4e 07 8c 22 04 82 4f 07 8c 57 00 80 ce 07 a2 84 42 00 02 f6 a1 00 00 f6 a1 61 e6 f0 3a 01 00 f6 a1 58 fa 07 82 a0 43 00 0a 81 20 08 fc 81 43 00 04 84 43 00 02 28 04 00 01 f0 3a   ┆  "  O   N  " P   ^  N  "  O  W      B        a  :    X    C       C   C  (    :┆
0x8cd4…8d24              62 ba 6b b8 07 a2 f6 a1 00 00 a0 4f 07 a8 81 42 00 06 81 4f 07 90 f6 a1 00 00 81 4e 07 92 54 00 81 4e 07 8a 81 4f 07 9a f6 a1 00 00 f6 a1 00 00 00 00 07 00 a0 4f 07 a6 80 a0 ff ca 90 96 28 04 00 0a f0 3a a0 4f 07 a6 01 38 81 4f 07 9a f6 a1   ┆b k        O   B   O       N  T  N   O               O        (    : O   8 O    ┆
0x8d24…8d74              00 00 81 4e 07 92 5c 5a 5f c8 00 28 40 50 74 b8 7d b6 90 96 87 42 00 02 9b 0c e3 5d 00 00 e3 5d 00 01 17 02 99 86 84 20 00 04 94 0e 82 4e 07 9a 22 08 54 00 f0 3a 82 4e 07 9a 22 30 88 20 00 00 3a 64 06 00 e6 48 60 22 e9 98 52 00 f6 a1 00 00   ┆   N   Z_  (@Pt }    B     ]   ]             N  " T  : N  "0    :d   H`"  R     ┆
0x8d74…8dc4              5f 0a eb 20 07 80 8e 20 00 00 e2 30 22 7f e2 31 ea 20 00 20 56 00 22 06 32 06 50 00 02 20 57 00 ea 20 00 7f 58 0a ea 20 00 7d 54 00 02 39 ea 20 00 7e 54 00 02 35 f6 a1 00 00 ea 20 00 61 52 00 1a 20 e2 3d 13 01 14 01 17 01 91 a0 00 01 5f 58   ┆_          0"  1    V " 2 P   W     X    }T  9   ~T  5       aR    =          _X┆
0x8dc4…8e14              02 20 e2 3d 13 01 14 01 17 01 91 a0 00 01 e9 98 52 00 f6 a1 00 00 e2 30 22 7f ea 20 00 20 5a 5a 5f 22 e9 a0 00 84 52 00 f6 a1 00 00 8f 20 60 da eb 20 07 80 56 00 e2 30 00 40 01 10 00 c0 00 00 00 00 01 80 00 00 10 00 00 00 00 00 00 00 01 05   ┆   =            R      0"     ZZ_"    R       `     V  0 @                      ┆
0x8e14…8e64 (92, 0, 400) 22 7f e2 31 ea 20 00 20 56 0a 22 06 32 06 50 34 02 20 57 06 ea 20 00 7f 58 0a ea 20 00 7b 54 02 02 2a e2 3d 13 01 14 01 17 01 ea 20 00 7e 58 40 ea 20 00 7c 58 46 ea 20 00 7d 50 2a 91 a0 00 01 8f 20 60 da 02 20 e2 3d 13 01 14 01 17 01 91 a0   ┆"  1    V " 2 P4  W     X    {T  * =         ~X@   |XF   }P*      `    =        ┆
0x8e64…8eb4              00 01 e9 98 52 04 f6 a1 61 64 e2 30 22 7f ea 20 00 20 5a 5a 5f 22 81 86 88 20 60 4c f6 a1 61 64 8f 20 60 4c 90 4f 07 8e 52 08 07 30 9f 1d 87 4f 07 8e 87 42 00 02 e2 5c 00 02 22 7f ea 20 00 7c 54 20 02 31 e2 5d 00 01 07 02 87 43 00 04 f6 a1   ┆    R   ad 0"     ZZ_"    `L  ad  `L O  R  0   O   B      "    |T  1 ]     C    ┆
0x8eb4…8f04              61 f6 07 30 9f 1d 87 4f 07 8e 57 38 e2 5c 00 02 22 7f ea 20 00 7c 54 20 02 20 e2 5d 00 02 81 4e 07 8e 07 02 87 43 00 04 f6 a1 61 f6 11 01 5a 08 07 30 9f 1d 87 4f 07 8e 91 a0 00 02 81 c3 00 04 f6 a1 61 f6 07 00 87 42 00 02 99 86 e1 bd e1 dd   ┆a  0   O  W8    "    |T    ]   N     C    a   Z  0   O            a    B        ┆
0x8f04…8f54              00 01 17 02 f0 3a 80 ce 07 a2 a0 43 00 0a 07 b8 28 04 00 01 f0 3a 07 86 28 04 00 01 87 42 00 08 27 01 5c 0e f0 3a 80 ce 07 a2 81 42 00 08 a1 20 40 00 50 00 81 4f 07 b2 f6 a1 5c 9c f0 3a f6 a1 00 00 80 ce 07 a2 f6 a1 00 00 a0 4f 07 a8 81 4e   ┆     :     C    (    :  (    B  '    :     B    @ P  O       :             O   N┆
0x8f54…8fa4              07 96 54 00 81 42 00 06 81 4f 07 90 85 4e 07 8c 2d 03 85 4f 07 8c f6 a1 5e 1a f6 a1 5e 2a f6 a1 00 00 f6 a1 00 00 82 4e 07 84 f6 a1 5e 4a 82 4e 07 8c 22 01 50 00 82 4e 00 00 00 00 40 08 05 40 00 00 80 00 04 00 40 00 00 00 04 00 00 0a 02 0c   ┆  T  B   O   N  -  O    ^   ^*         N    ^J N  " P  N    @  @      @         ┆

Reduced view