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

⟦be70142e0⟧

    Length: 17302 (0x4396)
    Notes: pts_type(SC)
    Names: »RGSUB1.SC«

Derivation

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

PTS(SC)

 IDENT RGSUB1 820924 NJ 
         DDUM    KMD08
         PDIV 
	ENTRY	SLUT 
 ENTRY UPDAKK 
 ENTRY FLDIN
 ENTRY FLDTST 
	EXT	PACKST 
         EXT     WRITFD 
         EXT     WRITVO 
         EXT     WRITJT 
	EXT	FRMTJT 
	EXT	FRMXTA 
	EXT	WTALLY 
	EXT	FRMTVO 
 EXT KTPLAN 
 EXT SPERR
	EXT	SPINF8 
 EXT KFWRIT 
 EXT KFREAD 
	INCLUDE	EQUATE 
 EJECT
SLUT     PROC 
** SLUT - PACKS THE BUFFER
** WRITES TO DISK 
** WRITE JOURNAL
** WRITE VOUCHER
** UPDATE ACCUMULATE=ORS
* 
	TBT	TTINVFLG,SLUT30	IF IN MODPOST
*          FIND CORRECT ARKIV KONTO NR
 MOVE TTDBKRM,=C'K' IF KREDIT 
 CBE TTDKDEX,CBIN1,SLUT10 
 MOVE TTDBKRM,=C'D' IF DEBET
SLUT10
	TBF	GTCYFLG,SLUT30 
	TBT	TTCY2FLG,SLUT30
 CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 
 CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 
	MOVE	GTDUPF(CBIN9),TTARKSAV
	MOVE	GTUSED(CBIN9),CBIN13
	CBNE	TTARKSAV,=D'0',SLUT30	NO ARKIV? 
	MOVE	TTARKSAV,GTDUPF(CBIN1)
	MOVE	GTDUPF(CBIN9),TTARKSAV
SLUT30
* INSET REGNSKABS]R IF
* TRANSTYPES  1,2,5,6,7,8,9,10,18,19,28,29
* INDEX       1,2,5,6,7,8,9,10,12,13,14,15
 CBG GTREGDEX,CBIN15,SLUT50 > TR 29 
 CBE GTREGDEX,CBIN11,SLUT50 = TR 12 
 CBE GTREGDEX,CBIN3,SLUT50 = TR3
 CBE GTREGDEX,CBIN4,SLUT50 = TR 4 
* TYPES 1,2,5-10,18,29
	MOVE	GTDUPF(CBIN6),GTDATO	GET DATE 
 CBE GTREGDEX,CBIN10,SLUT37 TRANS10, ALWAYS SUPL YEAR 
 TBT TTSUPFLG,SLUT35
 MOVE TTSUPMRK,=' ' 
 B SLUT40 
SLUT35
 CBE TTSUPMRK,=C'N',SLUT36
 CBE TTSUPMRK,=C'G',SLUT37
 B SLUT40 
SLUT36
 ADD GTDUPF(CBIN6),=D'1' FORSUPPLEMENT
 B SLUT40 
SLUT37
	SUB	GTDUPF(CBIN6),=D'1'	SUB 1 FROM YEAR
SLUT40
	MOVE	TSWBCD2,GTDUPF(CBIN6)	ISOLATE LAST DIGIT
	MOVE	GTDUPF(CBIN6),TSWBCD2 
	MOVE	GTUSED(CBIN6),CBIN10	 SET FIELD NO
SLUT50
* 
	ADD	TTLBNR,=D'1'	EKSP. LB. NR
         PERF  WRITFD 
	BNOK	SLUTNOK 
	PERF	SUMWRT	WRITE SUM OR RESTSUM 
	TBF	GTKASSE,SLUT60	 ON JOURNAL?
	PERF	FRMTJT
	PERF	WRITJT,=W'0'
SLUT60
	PERF	FRMTVO
         PERF  WRITVO 
* TEST IF IN LISTE
	TBF	TTLSTFLG,SLUT80
	PERF	FRMXTA,CBIN4
	PERF	WTALLY
SLUT80
         PERF  UPDAKK 
 SET GTKORTFL 
 MOVE GSWBIN1,GTKTTYP 
 IB GSWBIN1,		C 
		SLUT90,SLUT95,SLUT95,SLUT95,SLUT90
SLUT90
 CLEAR GTKORTFL 
SLUT95
	SET	TTEORFLG 
 CLEAR SPME READY FOR FUNCTIONS 
	CLEAR	GTREGFLG 
	CMP	CBIN0,CBIN0	OK, SETCR=0
	RET
SLUTNOK 
	SUB	TTLBNR,=D'1'	CHANGE LB. NR. AFTER
			DISK ERROR 
	MOVE	SPBINW4,CBIN17
	CMP	CBIN1,CBIN0
         RET
         PEND 
	EJECT
SUMWRT	PROC 
********************
* 
**          SUMWRT - CALCULATE AND WRITE SUM/RESTSUM
* 
********************
	TBF	TTSUMFLG,SUMRET	ONLY IF SUM
	TBF	GTCYFLG,SUMADD	
	TBT	TTCY2FLG,SUMADD
	SUB	GTSUM,GTDUPF(CBIN4)	CALCULATE NEW RESTSUM
	ADD	TTCYKTOT,GTDUPF(CBIN4) 
	B	SUMOUT 
SUMADD
	ADD	GTSUM,GTDUPF(CBIN4)	CALCULATE NEW SUM
	ADD	TTCYKTOT,GTDUPF(CBIN4) 
SUMOUT
	PERF	SPINF8
SUMRET
	ADD	GTSUMCNT,GTDUPF(CBIN4)	ALWAYS ADD TO SUMFUNCTION 
	RET
	PEND 
         EJECT
UPDAKK   PROC 
********************
* 
*        UPDAKK 
*         ROUTINE FOR UPDATING ACCUMULATORS 
* 
*        TR1-TR10  UPDATES TTACC(IDX1,IDX2) 
*                IDX1 = TRNR
*               IDX2 = DEB/KRE
*        TR12  UPDATES TTACC12(IDX1,IDX2) 
*                IDX1 = TAELLER NR
*                IDX2 = DEB/KRE 
* 
*        ALL TRANSACTIONS UPDATE  TTTOTDK(IDX2) 
*        AND IF INVERT               TTKORDK(IDX2)
* 
********************
         CBNE    GTREGNR,='12',UPD20
         PERF    UPDA12                    TAELLER 12 
         B       UPDRET 
UPD20 
	CBG	GTREGNR,=D'30',UPDRET	NO ACCUMULATION FOR
			CERTAIN TRANSACTIONS 
 CBNE GTUSED(CBIN6),CBIN10,UPD30 REGNSKABSAAR 
 MOVE TSWBCD2,GTDATO GET CURRENT YEAR 
 SUB TSWBCD2,GTDUPF(CBIN6) SUB REGNSKABSAAR 
 BZ UPD30 SAME YEAR 
UPD25 
	ADD	TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) 
			UPDATE SUPL COUNTER
UPD30 
 TBT GTTESTFL,UPD38 
*     ACCUMULATE 'BEHOLDNINGSTAELLERE'
 MOVE GSWBIN1,CBIN1 
UPD35 
 CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? 
 CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? 
UPD350
 ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) 
 ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) 
UPD36 
 ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER 
 CBNG GSWBIN1,=W'60',UPD35
UPD38 
	MOVE	GSWBIN1,CCNTDEX(GTREGDEX)	GET INDEX 
         ADD     TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) 
                                           UPDATE ACCUMULATOR 
 IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT 
UPDDB 
         CBNL    GTDUPF(CBIN4),='0',UPD50  IF NEGATIVE DEBET
	ADD	TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4)	CORRECTION
 B UPD50
UPDKR 
	CBNG	GTDUPF(CBIN4),=D'0',UPD50	IF POSITIVE KREDIT, 
	ADD	TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4)	CORRECTION
UPD50 
	CBG	GSWBIN1,CBIN4,UPDRET	IF COUNTER 5,6
         TBT     GTTFLG,UPDRET             WHEN CLOSE, NO UPDATE
 TBT CWFLAG,UPD56 
 CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE 
 CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE 
 B UPD55
UPD54 
 ADD TTCYKTOT,GTDUPF(CBIN4) 
 B UPD56
UPD55 
 MOVE TTCYKTOT,=D'0'
UPD56 
 SUB TTCASH,GTDUPF(CBIN4) UPDATE CASH 
 TBF GTBDTFLG,UPD60 
* UPDATE FOR TRANS 28,29 VERSUR KONTO 
 MOVE GSWBIN3,CBIN3 
 SUB GSWBIN3,TTDKDEX
 MOVE GSWBIN7,GTLEVBFO
 CBL GSWBIN7,CBIN5,UPD57
 SUB GSWBIN7,CBIN5
UPD57 
 PERF KFREAD,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL
 SUB GTKFVAL,GTDUPF(CBIN4)
 PERF KFWRIT,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL
 B UPDRET 
UPD60 
 TBF GTSTRFLG,UPDRET
* UPDATE FOR TRANS 18/19, PENGE KONTO - ST
 PERF KFREAD,CBIN2,CBIN1,CBIN0,GTKFVAL
 SUB GTKFVAL,GTDUPF(CBIN4)
 PERF KFWRIT,CBIN2,CBIN1,CBIN0,GTKFVAL
 B UPDRET 
UPDRET
	RET
         PEND 
         EJECT
UPDA12   PROC 
********************
* 
*        UPDA12 - UPDATE FOR TR12 
* 
********************
         MOVE    GSWBIN1,TTCNTNR           TAELLER NR 
 SUB GSWBIN1,=W'100' GET INDEX
 ADD GSWBIN1,CTR12(TTASKNR,CBIN1) 
         ADD     C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)
 ADD TTEJEDB,GTDUPF(CBIN4)
 MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT
 MOVE GSWBIN7,GSWBIN1 
 PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED 
 MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX) 
 PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL
         RET
         PEND 
         EJECT
FLDTST   PROC 
********************
* 
*        FLDTST - TEST IF FIELDS ARE ENTERED CORRECT
*        FELT AFHAENGIGHEDS TEST
* 
********************
	PERF	PACKST,CBINMAX	CLEAR UNUSED FIELDS
         IB      GTREGDEX,		C 
		FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK,		C
		FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10,		C
		FLDTOK,FLDT18,FLDT19,FLDT28,FLDT29,		C
		FLDTOK,FLDTOK,FLDTOK,FLDT45,		C 
                 FLDT45,FLDT45,FLDTOK,FLDTOK,FLDT50,		C 
                 FLDT50,FLDT52,FLDT53,FLDT54
FLDT03
 CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? 
*     YES, RTE/GEB, INSERT TEXT IN TT16TXT
 MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD
 CBNE GSWBCD3,=D'0',FLDT031 
 MOVE TT16TXT,=C'RAT' IF = 0
 B FLDT035
FLDT031 
 CBNE GSWBCD3,=D'1',FLDT032 
 MOVE TT16TXT,=C'RTE' IF = 1
 B FLDT035
FLDT032 
 CBNE GSWBCD3,=D'2',FLDT035 
 MOVE TT16TXT,=C'GEB' IF = 2
FLDT035 
 TEST CFLT48
 BZ FLDTOK BRANCH IF FALSE
 CMP GTUSED(CBIN15),=W'0' 
 BNE FLDTOK FIELD 48 USED 
 TBT C221FLG,FLDT036
 TBT C167FLG,FLDT038
 CMP GTDUPF(CBIN3),=D'21' 
 BL FLDT037 
 CMP GTDUPF(CBIN3),=D'26' 
 BL FLDTOK BKO =  21-25 
FLDT037 
 CMP GTDUPF(CBIN3),=D'46' 
 BE FLDTOK BKO=46 
 CMP GTDUPF(CBIN3),=D'56' 
 BE FLDTOK BKO=56 
 B FLDT039 END ODENSE 
FLDT036			HUNDESTED 
 TEST BCPR CPRNR? 
 BZ FLDTOK NO 
 CBE GTDUPF(CBIN3),=D'41',FLDT039 
 CBE GTDUPF(CBIN3),=D'46',FLDT039 BKO 30,41,46? 
 B FLDTOK 
FLDT038			HVIDOVRE
 CMP GTDUPF(CBIN3),=D'46' 
 BNE FLDTOK BKO <> 46 
FLDT039 
 MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED 
 MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 
 B FLDTOK 
* 
FLDT04
         TBT     BCPR,FLDT041              CIR
 CMP GTUSED(CBIN10),=W'0' 
 BE FLDTOK FIELD 17 (INDEX 10)
         B       FLDTNOK
FLDT041                                    CPR
         PERF    FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20
 CMP GSWBIN1,=W'0'
 BNE FLDTNOK
 CMP GTUSED(CBIN10),=W'0' 
 BNE FLDTOK 
         B       FLDTNOK
* 
FLDT08
 TBT C221FLG,FLDT09 
 TEST CFLT46
 BZ FLDTOK
 CMP GTUSED(CBIN17),=W'0' 
 BNE FLDTOK FIELD 46 USED 
 MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED
 MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 
 B FLDTOK 
FLDT09			HUNDESTED
 TBF C221FLG,FLDT09X
 TBF BCPR,FLDT09X 
 CBNE GTUSED(CBIN8),CBIN0,FLDT09X 
 MOVE GTUSED(CBIN8),CBIN12
 MOVE GTDUPF(CBIN8),=D'6' 
FLDT09X 
 B FLDTOK 
* 
FLDT10
 MOVE GSWBIN1,GTKTTYP 
 IB GSWBIN1,		C 
		FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 
FLDT102 
 B FLDTOK 
FLDT105 
 CMP GTUSED(CBIN2),=W'0'
 BNE FLDTOK 
 B FLDTNOK
FLDT108 
 CMP GTUSED(CBIN2),=W'0'
 BNE FLDTOK 
 MOVE SPBINW4,=W'26'
 PERF SPERR 
 CMP SPBINW2,CBIN2
 BE FLDTOK KOR-KEY
 MOVE SPBINW4,=W'0' 
 B FLDTNOK NOT KOR-KEY
FLDT28
FLDT29
 CBNE GTUSED(CBIN7),CBIN0,FLDT18
 MOVE GTDUPF(CBIN7),GTDATO
 MOVE GTUSED(CBIN7),CBIN11
FLDT18
FLDT19
 MOVE GTUSED(CBIN3),CBIN7 SET BKO=91
 MOVE GTDUPF(CBIN3),=D'91'
* FOLLOWING FIELDS ARE ONLY USED LOCALLY (NOT TO KMD) 
 MOVE GTUSED(CBIN13),CBIN0 NR-1 
 MOVE GTUSED(CBIN14),CBIN0 NR-2 
 MOVE GTUSED(CBIN15),CBIN0 TXT
 MOVE GTUSED(CBIN18),CBIN0 DATO-1 
 MOVE GTUSED(CBIN19),CBIN0 DATO-2 
 B FLDTOK 
* 
FLDT45
 MOVE GSWBCD1,CMASKDAT DDMMYY 
 MOVE GSWBCD2,CMASKDAT
 DIV GSWBCD2,=D'100' 	  DDMM
 MUL GSWBCD2,=D'100' DDMM00 
 SUB GSWBCD1,GSWBCD2 	    YY
 MOVE GSWBCD2,GTREGF(CBIN16) (YY-1,YY,YY+1) 
 ADD GSWBCD2,=D'3' ADJUST FOR FLTDEX
 SUB GSWBCD2,GSWBCD1
 MOVE GSWBIN1,GSWBCD2 
 MOVE GTREGF(GSWBIN1),GTREGF(CBIN17) MOVE AMOUNT
 MOVE GTUSED(GSWBIN1),CBIN1 
 MOVE GTUSED(CBIN15),CBIN0
 MOVE GTUSED(CBIN16),CBIN0
 MOVE GTUSED(CBIN17),CBIN0
 MOVE GTUSED(CBIN18),CBIN0
 MOVE GTUSED(CBIN19),CBIN0
 MOVE GTUSED(CBIN20),CBIN0
 MOVE GTUSED(CBIN21),CBIN0
 B FLDTOK 
* 
FLDT50
         PERF    FLDIN,CBIN2,CBIN1,CBIN0,CBIN0  FIELD 6,28
	CBE	GSWBIN1,=W'1',FLDTOK 
         B       FLDTNOK
* 
FLDT52
         PERF    FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 
         CBNE    GSWBIN1,=W'1',FLDTNOK
         PERF    FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 
         CBE     GSWBIN1,=W'2',FLDT525
	PERF	FLDIN,CBIN14,CBIN20,CBIN21,CBIN22	FIELD 42,43,44,45 
         CBNE    GSWBIN1,=W'0',FLDTNOK
FLDT525 
         CBNE    GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46
         CBE     GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43
FLDT527 
         CBE     GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
         CBNE    GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
         B       FLDTOK 
* 
FLDT53
         CBNE    GTUSED(CBIN12),=W'0',FLDT535 FIELD 47
         PERF    FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45
         CBNE    GSWBIN1,=W'0',FLDTNOK
FLDT535 
         CBNE    GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 
         CBNE    GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47
FLDT537 
         CBE     GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
         CBNE    GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
         B       FLDTOK 
* 
FLDT54
         CBE     GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
         CBNE    GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
         B       FLDTOK 
* 
FLDTOK
         CMP     CBIN0,CBIN0               SET CR=0 OK
         RET
* 
FLDTNOK 
         CMP     CBIN0,CBIN1               SET CR <> 0  NOT OK
         RET
         PEND 
         EJECT
FLDIN    PROC    FML1,FML2,FML3,FML4
********************
* 
*        FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS
*        (GIVEN BY INDEX) ARE PRESENT 
*        OUTPUT IN GSWBIN1
* 
********************
         MOVE    GSWBIN1,=W'0'
         CBE     FML1,=W'0',FLD5
	CBE	GTUSED(FML1),=W'0',FLD1
         ADD     GSWBIN1,=W'1'
FLD1
         CBE     FML2,=W'0',FLD5
         CBE     GTUSED(FML2),=W'0',FLD2
         ADD     GSWBIN1,=W'1'
FLD2
         CBE     FML3,=W'0',FLD5
         CBE     GTUSED(FML3),=W'0',FLD3
         ADD     GSWBIN1,=W'1'
FLD3
         CBE     FML4,=W'0',FLD5
         CBE     GTUSED(FML4),=W'0',FLD5
         ADD     GSWBIN1,=W'1'
FLD5
         RET
	PEND 
* 
* 
         END

HexDump

0x0000…0020 (0, 0, 398)  Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUB1 820924 NJ «, t00=0x0000, t01=0x0004}
0x0020…003e              Head {h00=0x001a, h01=0x0050, text=»         DDUM    KMD08«, t00=0x0000, t01=0x0024}
0x003e…0054              Head {h00=0x0012, h01=0x0050, text=»         PDIV «, t00=0x0000, t01=0x0042}
0x0054…0068              Head {h00=0x0010, h01=0x0050, text=» ENTRY SLUT «, t00=0x0000, t01=0x0058}
0x0068…007e              Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDAKK «, t00=0x0000, t01=0x006c}
0x007e…0092              Head {h00=0x0010, h01=0x0050, text=» ENTRY FLDIN«, t00=0x0000, t01=0x0082}
0x0092…00a8              Head {h00=0x0012, h01=0x0050, text=» ENTRY FLDTST «, t00=0x0000, t01=0x0096}
0x00a8…00bc              Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00ac}
0x00bc…00dc              Head {h00=0x001c, h01=0x0050, text=»         EXT     WRITFD «, t00=0x0000, t01=0x00c0}
0x00dc…00fc              Head {h00=0x001c, h01=0x0050, text=»         EXT     WRITVO «, t00=0x0000, t01=0x00e0}
0x00fc…011c              Head {h00=0x001c, h01=0x0050, text=»         EXT     WRITJT «, t00=0x0000, t01=0x0100}
0x011c…0130              Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x0120}
0x0130…0144              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x0134}
0x0144…0158              Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x0148}
0x0158…016c              Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0000, t01=0x015c}
0x016c…0180              Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0000, t01=0x0170}
0x0180…0192              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0184}
0x0192…01a6              Head {h00=0x0010, h01=0x0050, text=» EXT SPINF8 «, t00=0x0001, t01=0x0008}
0x01a6…01ba              Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0001, t01=0x001c}
0x01ba…01ce              Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0001, t01=0x0030}
0x01ce…01e6              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0044}
0x01e6…01f4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x005c}
0x01f4…020a              Head {h00=0x0012, h01=0x0050, text=»SLUT     PROC «, t00=0x0001, t01=0x006a}
0x020a…022c              Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x0080}
0x022c…0246              Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00a2}
0x0246…025e              Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00bc}
0x025e…0276              Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x00d4}
0x0276…0296              Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x00ec}
0x0296…02a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a0…02ca              Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x0116}
0x02ca…02f8              Head {h00=0x002a, h01=0x0050, text=»*          FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0140}
0x02f8…031e              Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0001, t01=0x016e}
0x031e…0340 (2, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x0004}
0x0340…0364              Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x0026}
0x0364…0372              Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x004a}
0x0372…038e              Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x0058}
0x038e…03aa              Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x0074}
0x03aa…03d8              Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x0090}
0x03d8…0406              Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00be}
0x0406…042a              Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x00ec}
0x042a…044c              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0110}
0x044c…047a              Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x0132}
0x047a…049e              Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0002, t01=0x0160}
0x049e…04c2              Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x0184}
0x04c2…04d0              Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x0018}
0x04d0…04ee              Head {h00=0x001a, h01=0x0050, text=»* INSET REGNSKABS]R IF«, t00=0x0003, t01=0x0026}
0x04ee…0520              Head {h00=0x002e, h01=0x0050, text=»* TRANSTYPES  1,2,5,6,7,8,9,10,18,19,28,29«, t00=0x0003, t01=0x0044}
0x0520…0552              Head {h00=0x002e, h01=0x0050, text=»* INDEX       1,2,5,6,7,8,9,10,12,13,14,15«, t00=0x0003, t01=0x0076}
0x0552…057e              Head {h00=0x0028, h01=0x0050, text=» CBG GTREGDEX,CBIN15,SLUT50 > TR 29 «, t00=0x0003, t01=0x00a8}
0x057e…05aa              Head {h00=0x0028, h01=0x0050, text=» CBE GTREGDEX,CBIN11,SLUT50 = TR 12 «, t00=0x0003, t01=0x00d4}
0x05aa…05d2              Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT50 = TR3«, t00=0x0003, t01=0x0100}
0x05d2…05fc              Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT50 = TR 4 «, t00=0x0003, t01=0x0128}
0x05fc…061a              Head {h00=0x001a, h01=0x0050, text=»* TYPES 1,2,5-10,18,29«, t00=0x0003, t01=0x0152}
0x061a…0646              Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO GET DATE «, t00=0x0003, t01=0x0170}
0x0646…0684              Head {h00=0x003a, h01=0x0050, text=» CBE GTREGDEX,CBIN10,SLUT37 TRANS10, ALWAYS SUPL YEAR «, t00=0x0004, t01=0x000c}
0x0684…06a0              Head {h00=0x0018, h01=0x0050, text=» TBT TTSUPFLG,SLUT35«, t00=0x0004, t01=0x004a}
0x06a0…06bc              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUPMRK,=' ' «, t00=0x0004, t01=0x0066}
0x06bc…06ce              Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x0082}
0x06ce…06dc              Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0004, t01=0x0094}
0x06dc…06fe              Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'N',SLUT36«, t00=0x0004, t01=0x00a2}
0x06fe…0720              Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'G',SLUT37«, t00=0x0004, t01=0x00c4}
0x0720…0732              Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x00e6}
0x0732…0740              Head {h00=0x000a, h01=0x0050, text=»SLUT36«, t00=0x0004, t01=0x00f8}
0x0740…076e              Head {h00=0x002a, h01=0x0050, text=» ADD GTDUPF(CBIN6),=D'1' FORSUPPLEMENT«, t00=0x0004, t01=0x0106}
0x076e…0780              Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x0134}
0x0780…078e              Head {h00=0x000a, h01=0x0050, text=»SLUT37«, t00=0x0004, t01=0x0146}
0x078e…07be              Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR«, t00=0x0004, t01=0x0154}
0x07be…07cc              Head {h00=0x000a, h01=0x0050, text=»SLUT40«, t00=0x0004, t01=0x0184}
0x07cc…0802 (5, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0005, t01=0x0004}
0x0802…0826              Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0005, t01=0x003a}
0x0826…0856              Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10  SET FIELD NO«, t00=0x0005, t01=0x005e}
0x0856…0864              Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0005, t01=0x008e}
0x0864…086e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009c}
0x086e…0894              Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0005, t01=0x00a6}
0x0894…08b2              Head {h00=0x001a, h01=0x0050, text=»         PERF  WRITFD «, t00=0x0005, t01=0x00cc}
0x08b2…08c8              Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0005, t01=0x00ea}
0x08c8…08f2              Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0005, t01=0x0100}
0x08f2…091a              Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60  ON JOURNAL?«, t00=0x0005, t01=0x012a}
0x091a…092e              Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0005, t01=0x0152}
0x092e…0948              Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x0166}
0x0948…0956              Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x0180}
0x0956…096a              Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x018e}
0x096a…0988              Head {h00=0x001a, h01=0x0050, text=»         PERF  WRITVO «, t00=0x0006, t01=0x0012}
0x0988…09a2              Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0006, t01=0x0030}
0x09a2…09be              Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0006, t01=0x004a}
0x09be…09d8              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0006, t01=0x0066}
0x09d8…09ec              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0006, t01=0x0080}
0x09ec…09fa              Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0006, t01=0x0094}
0x09fa…0a18              Head {h00=0x001a, h01=0x0050, text=»         PERF  UPDAKK «, t00=0x0006, t01=0x00a2}
0x0a18…0a2e              Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0006, t01=0x00c0}
0x0a2e…0a4c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0006, t01=0x00d6}
0x0a4c…0a64              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x0006, t01=0x00f4}
0x0a64…0a90              Head {h00=0x0028, h01=0x0050, text=»  SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0006, t01=0x010c}
0x0a90…0a9e              Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0006, t01=0x0138}
0x0a9e…0ab6              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0006, t01=0x0146}
0x0ab6…0ac4              Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0006, t01=0x015e}
0x0ac4…0ada              Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0006, t01=0x016c}
0x0ada…0b02              Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0006, t01=0x0182}
0x0b02…0b1a              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0007, t01=0x001a}
0x0b1a…0b3e              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0007, t01=0x0032}
0x0b3e…0b4a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0056}
0x0b4a…0b5a              Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0007, t01=0x0062}
0x0b5a…0b88              Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0007, t01=0x0072}
0x0b88…0b9e              Head {h00=0x0012, h01=0x0050, text=»   DISK ERROR «, t00=0x0007, t01=0x00a0}
0x0b9e…0bba              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN17«, t00=0x0007, t01=0x00b6}
0x0bba…0bd2              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x00d2}
0x0bd2…0be6              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0007, t01=0x00ea}
0x0be6…0bfc              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0007, t01=0x00fe}
0x0bfc…0c0a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0114}
0x0c0a…0c1e              Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x0007, t01=0x0122}
0x0c1e…0c3a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0136}
0x0c3a…0c44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c44…0c80              Head {h00=0x0038, h01=0x0050, text=»**          SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x0007, t01=0x015c}
0x0c80…0c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8a…0ca6              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0012}
0x0ca6…0cce              Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x0008, t01=0x002e}
0x0cce…0cea              Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x0008, t01=0x0056}
0x0cea…0d06              Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x0008, t01=0x0072}
0x0d06…0d3c              Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x0008, t01=0x008e}
0x0d3c…0d60              Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x00c4}
0x0d60…0d72              Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x0008, t01=0x00e8}
0x0d72…0d80              Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x0008, t01=0x00fa}
0x0d80…0db2              Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x0008, t01=0x0108}
0x0db2…0dd6              Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x013a}
0x0dd6…0de4              Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x0008, t01=0x015e}
0x0de4…0df8              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF8«, t00=0x0008, t01=0x016c}
0x0df8…0e06              Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x0008, t01=0x0180}
0x0e06…0e44              Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x0008, t01=0x018e}
0x0e44…0e50              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x003c}
0x0e50…0e5e              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0048}
0x0e5e…0e74              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0009, t01=0x0056}
0x0e74…0e8a              Head {h00=0x0012, h01=0x0050, text=»UPDAKK   PROC «, t00=0x0009, t01=0x006c}
0x0e8a…0ea6              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0082}
0x0ea6…0eb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb0…0ec8              Head {h00=0x0014, h01=0x0050, text=»*        UPDAKK «, t00=0x0009, t01=0x00a8}
0x0ec8…0efc              Head {h00=0x0030, h01=0x0050, text=»*         ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x0009, t01=0x00c0}
0x0efc…0f06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f06…0f3a              Head {h00=0x0030, h01=0x0050, text=»*        TR1-TR10  UPDATES TTACC(IDX1,IDX2) «, t00=0x0009, t01=0x00fe}
0x0f3a…0f5e              Head {h00=0x0020, h01=0x0050, text=»*                IDX1 = TRNR«, t00=0x0009, t01=0x0132}
0x0f5e…0f84              Head {h00=0x0022, h01=0x0050, text=»*               IDX2 = DEB/KRE«, t00=0x0009, t01=0x0156}
0x0f84…0fb6              Head {h00=0x002e, h01=0x0050, text=»*        TR12  UPDATES TTACC12(IDX1,IDX2) «, t00=0x0009, t01=0x017c}
0x0fb6…0fe0              Head {h00=0x0026, h01=0x0050, text=»*                IDX1 = TAELLER NR«, t00=0x000a, t01=0x001e}
0x0fe0…1008              Head {h00=0x0024, h01=0x0050, text=»*                IDX2 = DEB/KRE «, t00=0x000a, t01=0x0048}
0x1008…1012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1012…104a              Head {h00=0x0034, h01=0x0050, text=»*        ALL TRANSACTIONS UPDATE  TTTOTDK(IDX2) «, t00=0x000a, t01=0x007a}
0x104a…1084              Head {h00=0x0036, h01=0x0050, text=»*        AND IF INVERT               TTKORDK(IDX2)«, t00=0x000a, t01=0x00b2}
0x1084…108e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x108e…10aa              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x00f6}
0x10aa…10d6              Head {h00=0x0028, h01=0x0050, text=»         CBNE    GTREGNR,='12',UPD20«, t00=0x000a, t01=0x0112}
0x10d6…1114              Head {h00=0x003a, h01=0x0050, text=»         PERF    UPDA12                    TAELLER 12 «, t00=0x000a, t01=0x013e}
0x1114…1134              Head {h00=0x001c, h01=0x0050, text=»         B       UPDRET «, t00=0x000a, t01=0x017c}
0x1134…1142              Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000b, t01=0x000c}
0x1142…1178              Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000b, t01=0x001a}
0x1178…1198              Head {h00=0x001c, h01=0x0050, text=»   CERTAIN TRANSACTIONS «, t00=0x000b, t01=0x0050}
0x1198…11ce              Head {h00=0x0032, h01=0x0050, text=» CBNE GTUSED(CBIN6),CBIN10,UPD30 REGNSKABSAAR «, t00=0x000b, t01=0x0070}
0x11ce…11fc              Head {h00=0x002a, h01=0x0050, text=» MOVE TSWBCD2,GTDATO GET CURRENT YEAR «, t00=0x000b, t01=0x00a6}
0x11fc…1230              Head {h00=0x0030, h01=0x0050, text=» SUB TSWBCD2,GTDUPF(CBIN6) SUB REGNSKABSAAR «, t00=0x000b, t01=0x00d4}
0x1230…124c              Head {h00=0x0018, h01=0x0050, text=» BZ UPD30 SAME YEAR «, t00=0x000b, t01=0x0108}
0x124c…125a              Head {h00=0x000a, h01=0x0050, text=»UPD25 «, t00=0x000b, t01=0x0124}
0x125a…128a              Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000b, t01=0x0132}
0x128a…12a8              Head {h00=0x001a, h01=0x0050, text=»   UPDATE SUPL COUNTER«, t00=0x000b, t01=0x0162}
0x12a8…12b6              Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000b, t01=0x0180}
0x12b6…12d2              Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000b, t01=0x018e}
0x12d2…1300              Head {h00=0x002a, h01=0x0050, text=»*     ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000c, t01=0x001a}
0x1300…131c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000c, t01=0x0048}
0x131c…132a              Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000c, t01=0x0064}
0x132a…1366              Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000c, t01=0x0072}
0x1366…13a4              Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000c, t01=0x00ae}
0x13a4…13b2              Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000c, t01=0x00ec}
0x13b2…13e2              Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000c, t01=0x00fa}
0x13e2…1412              Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000c, t01=0x012a}
0x1412…1420              Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000c, t01=0x015a}
0x1420…1450              Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000c, t01=0x0168}
0x1450…1472              Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000d, t01=0x0008}
0x1472…1480              Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000d, t01=0x002a}
0x1480…14b2              Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000d, t01=0x0038}
0x14b2…14f0              Head {h00=0x003a, h01=0x0050, text=»         ADD     TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000d, t01=0x006a}
0x14f0…1536              Head {h00=0x0042, h01=0x0050, text=»                                           UPDATE ACCUMULATOR «, t00=0x000d, t01=0x00a8}
0x1536…1564              Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x000d, t01=0x00ee}
0x1564…1572              Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x000d, t01=0x011c}
0x1572…15b6              Head {h00=0x0040, h01=0x0050, text=»         CBNL    GTDUPF(CBIN4),='0',UPD50  IF NEGATIVE DEBET«, t00=0x000d, t01=0x012a}
0x15b6…15f0              Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x016e}
0x15f0…1600              Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x000e, t01=0x0018}
0x1600…160e              Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x000e, t01=0x0028}
0x160e…164a              Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x000e, t01=0x0036}
0x164a…1684              Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000e, t01=0x0072}
0x1684…1692              Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x000e, t01=0x00ac}
0x1692…16c2              Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x000e, t01=0x00ba}
0x16c2…170a              Head {h00=0x0044, h01=0x0050, text=»         TBT     GTTFLG,UPDRET             WHEN CLOSE, NO UPDATE«, t00=0x000e, t01=0x00ea}
0x170a…1724              Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD56 «, t00=0x000e, t01=0x0132}
0x1724…1766              Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE «, t00=0x000e, t01=0x014c}
0x1766…17a4              Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE «, t00=0x000e, t01=0x018e}
0x17a4…17b4              Head {h00=0x000c, h01=0x0050, text=» B UPD55«, t00=0x000f, t01=0x003c}
0x17b4…17c2              Head {h00=0x000a, h01=0x0050, text=»UPD54 «, t00=0x000f, t01=0x004c}
0x17c2…17e6              Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x000f, t01=0x005a}
0x17e6…17f6              Head {h00=0x000c, h01=0x0050, text=» B UPD56«, t00=0x000f, t01=0x007e}
0x17f6…1804              Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x000f, t01=0x008e}
0x1804…1820              Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x000f, t01=0x009c}
0x1820…182e              Head {h00=0x000a, h01=0x0050, text=»UPD56 «, t00=0x000f, t01=0x00b8}
0x182e…185c              Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) UPDATE CASH «, t00=0x000f, t01=0x00c6}
0x185c…1878              Head {h00=0x0018, h01=0x0050, text=» TBF GTBDTFLG,UPD60 «, t00=0x000f, t01=0x00f4}
0x1878…18a6              Head {h00=0x002a, h01=0x0050, text=»* UPDATE FOR TRANS 28,29 VERSUR KONTO «, t00=0x000f, t01=0x0110}
0x18a6…18c2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN3 «, t00=0x000f, t01=0x013e}
0x18c2…18de              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN3,TTDKDEX«, t00=0x000f, t01=0x015a}
0x18de…18fc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GTLEVBFO«, t00=0x000f, t01=0x0176}
0x18fc…191c (16, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN7,CBIN5,UPD57«, t00=0x0010, t01=0x0004}
0x191c…1936              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN7,CBIN5«, t00=0x0010, t01=0x0024}
0x1936…1944              Head {h00=0x000a, h01=0x0050, text=»UPD57 «, t00=0x0010, t01=0x003e}
0x1944…1976              Head {h00=0x002e, h01=0x0050, text=» PERF KFREAD,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL«, t00=0x0010, t01=0x004c}
0x1976…1998              Head {h00=0x001e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4)«, t00=0x0010, t01=0x007e}
0x1998…19ca              Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL«, t00=0x0010, t01=0x00a0}
0x19ca…19dc              Head {h00=0x000e, h01=0x0050, text=» B UPDRET «, t00=0x0010, t01=0x00d2}
0x19dc…19ea              Head {h00=0x000a, h01=0x0050, text=»UPD60 «, t00=0x0010, t01=0x00e4}
0x19ea…1a06              Head {h00=0x0018, h01=0x0050, text=» TBF GTSTRFLG,UPDRET«, t00=0x0010, t01=0x00f2}
0x1a06…1a38              Head {h00=0x002e, h01=0x0050, text=»* UPDATE FOR TRANS 18/19, PENGE KONTO - ST«, t00=0x0010, t01=0x010e}
0x1a38…1a66              Head {h00=0x002a, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,CBIN0,GTKFVAL«, t00=0x0010, t01=0x0140}
0x1a66…1a88              Head {h00=0x001e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4)«, t00=0x0010, t01=0x016e}
0x1a88…1ab6              Head {h00=0x002a, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,CBIN0,GTKFVAL«, t00=0x0010, t01=0x0190}
0x1ab6…1ac8              Head {h00=0x000e, h01=0x0050, text=» B UPDRET «, t00=0x0011, t01=0x002e}
0x1ac8…1ad6              Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x0011, t01=0x0040}
0x1ad6…1ae2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x004e}
0x1ae2…1af8              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0011, t01=0x005a}
0x1af8…1b0e              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0011, t01=0x0070}
0x1b0e…1b24              Head {h00=0x0012, h01=0x0050, text=»UPDA12   PROC «, t00=0x0011, t01=0x0086}
0x1b24…1b40              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x009c}
0x1b40…1b4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b8}
0x1b4a…1b74              Head {h00=0x0026, h01=0x0050, text=»*        UPDA12 - UPDATE FOR TR12 «, t00=0x0011, t01=0x00c2}
0x1b74…1b7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ec}
0x1b7e…1b9a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00f6}
0x1b9a…1bd8              Head {h00=0x003a, h01=0x0050, text=»         MOVE    GSWBIN1,TTCNTNR           TAELLER NR «, t00=0x0011, t01=0x0112}
0x1bd8…1bfe              Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x0011, t01=0x0150}
0x1bfe…1c28              Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0011, t01=0x0176}
0x1c28…1c66              Head {h00=0x003a, h01=0x0050, text=»         ADD     C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x0012, t01=0x0010}
0x1c66…1c88              Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x0012, t01=0x004e}
0x1c88…1cc0              Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x0012, t01=0x0070}
0x1cc0…1cde              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN1 «, t00=0x0012, t01=0x00a8}
0x1cde…1d16              Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x0012, t01=0x00c6}
0x1d16…1d44              Head {h00=0x002a, h01=0x0050, text=» MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX) «, t00=0x0012, t01=0x00fe}
0x1d44…1d76              Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL«, t00=0x0012, t01=0x012c}
0x1d76…1d8a              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0012, t01=0x015e}
0x1d8a…1da0              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0012, t01=0x0172}
0x1da0…1db6              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0012, t01=0x0188}
0x1db6…1dcc              Head {h00=0x0012, h01=0x0050, text=»FLDTST   PROC «, t00=0x0013, t01=0x000e}
0x1dcc…1de8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x0024}
0x1de8…1df2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0040}
0x1df2…1e2e              Head {h00=0x0038, h01=0x0050, text=»*        FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0013, t01=0x004a}
0x1e2e…1e56              Head {h00=0x0024, h01=0x0050, text=»*        FELT AFHAENGIGHEDS TEST«, t00=0x0013, t01=0x0086}
0x1e56…1e60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ae}
0x1e60…1e7c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0013, t01=0x00b8}
0x1e7c…1eac              Head {h00=0x002c, h01=0x0050, text=» PERF PACKST,CBINMAX CLEAR UNUSED FIELDS«, t00=0x0013, t01=0x00d4}
0x1eac…1ed2              Head {h00=0x0022, h01=0x0050, text=»         IB      GTREGDEX,  C «, t00=0x0013, t01=0x0104}
0x1ed2…1f02              Head {h00=0x002c, h01=0x0050, text=»  FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK,  C«, t00=0x0013, t01=0x012a}
0x1f02…1f32              Head {h00=0x002c, h01=0x0050, text=»  FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10,  C«, t00=0x0013, t01=0x015a}
0x1f32…1f62              Head {h00=0x002c, h01=0x0050, text=»  FLDTOK,FLDT18,FLDT19,FLDT28,FLDT29,  C«, t00=0x0013, t01=0x018a}
0x1f62…1f8c              Head {h00=0x0026, h01=0x0050, text=»  FLDTOK,FLDTOK,FLDTOK,FLDT45,  C «, t00=0x0014, t01=0x002a}
0x1f8c…1fcc              Head {h00=0x003c, h01=0x0050, text=»                 FLDT45,FLDT45,FLDTOK,FLDTOK,FLDT50,  C «, t00=0x0014, t01=0x0054}
0x1fcc…2000              Head {h00=0x0030, h01=0x0050, text=»                 FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0014, t01=0x0094}
0x2000…200e              Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0014, t01=0x00c8}
0x200e…2042              Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0014, t01=0x00d6}
0x2042…2074              Head {h00=0x002e, h01=0x0050, text=»*     YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0014, t01=0x010a}
0x2074…20a2              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0014, t01=0x013c}
0x20a2…20c6              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0014, t01=0x016a}
0x20c6…20ea              Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0014, t01=0x018e}
0x20ea…20fc              Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0015, t01=0x0022}
0x20fc…210c              Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0015, t01=0x0034}
0x210c…2130              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0015, t01=0x0044}
0x2130…2154              Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0015, t01=0x0068}
0x2154…2166              Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0015, t01=0x008c}
0x2166…2176              Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0015, t01=0x009e}
0x2176…219a              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0015, t01=0x00ae}
0x219a…21be              Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0015, t01=0x00d2}
0x21be…21ce              Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0015, t01=0x00f6}
0x21ce…21e2              Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0015, t01=0x0106}
0x21e2…2204              Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0015, t01=0x011a}
0x2204…2226              Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0015, t01=0x013c}
0x2226…2248              Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0015, t01=0x015e}
0x2248…2264              Head {h00=0x0018, h01=0x0050, text=» TBT C221FLG,FLDT036«, t00=0x0015, t01=0x0180}
0x2264…2280              Head {h00=0x0018, h01=0x0050, text=» TBT C167FLG,FLDT038«, t00=0x0016, t01=0x000c}
0x2280…22a2              Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0016, t01=0x0028}
0x22a2…22b6              Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0016, t01=0x004a}
0x22b6…22d8              Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0016, t01=0x005e}
0x22d8…22f8              Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO =  21-25 «, t00=0x0016, t01=0x0080}
0x22f8…2308              Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0016, t01=0x00a0}
0x2308…232a              Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0016, t01=0x00b0}
0x232a…2344              Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=46 «, t00=0x0016, t01=0x00d2}
0x2344…2366              Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0016, t01=0x00ec}
0x2366…2380              Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0016, t01=0x010e}
0x2380…239e              Head {h00=0x001a, h01=0x0050, text=» B FLDT039 END ODENSE «, t00=0x0016, t01=0x0128}
0x239e…23ba              Head {h00=0x0018, h01=0x0050, text=»FLDT036   HUNDESTED «, t00=0x0016, t01=0x0146}
0x23ba…23d4              Head {h00=0x0016, h01=0x0050, text=» TEST BCPR CPRNR? «, t00=0x0016, t01=0x0162}
0x23d4…23ea              Head {h00=0x0012, h01=0x0050, text=» BZ FLDTOK NO «, t00=0x0016, t01=0x017c}
0x23ea…2414 (23, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CBE GTDUPF(CBIN3),=D'41',FLDT039 «, t00=0x0017, t01=0x0004}
0x2414…244c              Head {h00=0x0034, h01=0x0050, text=» CBE GTDUPF(CBIN3),=D'46',FLDT039 BKO 30,41,46? «, t00=0x0017, t01=0x002e}
0x244c…245e              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x0066}
0x245e…2478              Head {h00=0x0016, h01=0x0050, text=»FLDT038   HVIDOVRE«, t00=0x0017, t01=0x0078}
0x2478…249a              Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0017, t01=0x0092}
0x249a…24b8              Head {h00=0x001a, h01=0x0050, text=» BNE FLDTOK BKO <> 46 «, t00=0x0017, t01=0x00b4}
0x24b8…24c8              Head {h00=0x000c, h01=0x0050, text=»FLDT039 «, t00=0x0017, t01=0x00d2}
0x24c8…24fe              Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0017, t01=0x00e2}
0x24fe…2532              Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0017, t01=0x0118}
0x2532…2544              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x014c}
0x2544…254e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015e}
0x254e…255c              Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0017, t01=0x0168}
0x255c…2592              Head {h00=0x0032, h01=0x0050, text=»         TBT     BCPR,FLDT041              CIR«, t00=0x0017, t01=0x0176}
0x2592…25b4              Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0018, t01=0x001c}
0x25b4…25da              Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0018, t01=0x003e}
0x25da…25fa              Head {h00=0x001c, h01=0x0050, text=»         B       FLDTNOK«, t00=0x0018, t01=0x0064}
0x25fa…2630              Head {h00=0x0032, h01=0x0050, text=»FLDT041                                    CPR«, t00=0x0018, t01=0x0084}
0x2630…2678              Head {h00=0x0044, h01=0x0050, text=»         PERF    FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0018, t01=0x00ba}
0x2678…2692              Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0018, t01=0x0102}
0x2692…26a6              Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0018, t01=0x011c}
0x26a6…26c8              Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0018, t01=0x0130}
0x26c8…26dc              Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x0152}
0x26dc…26fc              Head {h00=0x001c, h01=0x0050, text=»         B       FLDTNOK«, t00=0x0018, t01=0x0166}
0x26fc…2706              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0186}
0x2706…2714              Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0018, t01=0x0190}
0x2714…2730              Head {h00=0x0018, h01=0x0050, text=» TBT C221FLG,FLDT09 «, t00=0x0019, t01=0x000e}
0x2730…2744              Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0019, t01=0x002a}
0x2744…2756              Head {h00=0x000e, h01=0x0050, text=» BZ FLDTOK«, t00=0x0019, t01=0x003e}
0x2756…2778              Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0019, t01=0x0050}
0x2778…279a              Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 46 USED «, t00=0x0019, t01=0x0072}
0x279a…27d4              Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0019, t01=0x0094}
0x27d4…2808              Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0019, t01=0x00ce}
0x2808…281a              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0019, t01=0x0102}
0x281a…2834              Head {h00=0x0016, h01=0x0050, text=»FLDT09   HUNDESTED«, t00=0x0019, t01=0x0114}
0x2834…2850              Head {h00=0x0018, h01=0x0050, text=» TBF C221FLG,FLDT09X«, t00=0x0019, t01=0x012e}
0x2850…286a              Head {h00=0x0016, h01=0x0050, text=» TBF BCPR,FLDT09X «, t00=0x0019, t01=0x014a}
0x286a…2894              Head {h00=0x0026, h01=0x0050, text=» CBNE GTUSED(CBIN8),CBIN0,FLDT09X «, t00=0x0019, t01=0x0164}
0x2894…28b6              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN8),CBIN12«, t00=0x0019, t01=0x018e}
0x28b6…28d8              Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN8),=D'6' «, t00=0x001a, t01=0x0020}
0x28d8…28e8              Head {h00=0x000c, h01=0x0050, text=»FLDT09X «, t00=0x001a, t01=0x0042}
0x28e8…28fa              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x0052}
0x28fa…2904              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2904…2912              Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x001a, t01=0x006e}
0x2912…2930              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x001a, t01=0x007c}
0x2930…2948              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1,  C «, t00=0x001a, t01=0x009a}
0x2948…297a              Head {h00=0x002e, h01=0x0050, text=»  FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x001a, t01=0x00b2}
0x297a…298a              Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x001a, t01=0x00e4}
0x298a…299c              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x00f4}
0x299c…29ac              Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x001a, t01=0x0106}
0x29ac…29cc              Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x001a, t01=0x0116}
0x29cc…29e0              Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x001a, t01=0x0136}
0x29e0…29f2              Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x001a, t01=0x014a}
0x29f2…2a02              Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x001a, t01=0x015c}
0x2a02…2a22              Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x001a, t01=0x016c}
0x2a22…2a36              Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x001a, t01=0x018c}
0x2a36…2a52              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x001b, t01=0x0010}
0x2a52…2a66              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001b, t01=0x002c}
0x2a66…2a80              Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x001b, t01=0x0040}
0x2a80…2a9a              Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x001b, t01=0x005a}
0x2a9a…2ab6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x001b, t01=0x0074}
0x2ab6…2ad4              Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x001b, t01=0x0090}
0x2ad4…2ae2              Head {h00=0x000a, h01=0x0050, text=»FLDT28«, t00=0x001b, t01=0x00ae}
0x2ae2…2af0              Head {h00=0x000a, h01=0x0050, text=»FLDT29«, t00=0x001b, t01=0x00bc}
0x2af0…2b18              Head {h00=0x0024, h01=0x0050, text=» CBNE GTUSED(CBIN7),CBIN0,FLDT18«, t00=0x001b, t01=0x00ca}
0x2b18…2b3a              Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO«, t00=0x001b, t01=0x00f2}
0x2b3a…2b5c              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN7),CBIN11«, t00=0x001b, t01=0x0114}
0x2b5c…2b6a              Head {h00=0x000a, h01=0x0050, text=»FLDT18«, t00=0x001b, t01=0x0136}
0x2b6a…2b78              Head {h00=0x000a, h01=0x0050, text=»FLDT19«, t00=0x001b, t01=0x0144}
0x2b78…2ba4              Head {h00=0x0028, h01=0x0050, text=» MOVE GTUSED(CBIN3),CBIN7 SET BKO=91«, t00=0x001b, t01=0x0152}
0x2ba4…2bc6              Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN3),=D'91'«, t00=0x001b, t01=0x017e}
0x2bc6…2c04              Head {h00=0x003a, h01=0x0050, text=»* FOLLOWING FIELDS ARE ONLY USED LOCALLY (NOT TO KMD) «, t00=0x001c, t01=0x0010}
0x2c04…2c2c              Head {h00=0x0024, h01=0x0050, text=» MOVE GTUSED(CBIN13),CBIN0 NR-1 «, t00=0x001c, t01=0x004e}
0x2c2c…2c54              Head {h00=0x0024, h01=0x0050, text=» MOVE GTUSED(CBIN14),CBIN0 NR-2 «, t00=0x001c, t01=0x0076}
0x2c54…2c7a              Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(CBIN15),CBIN0 TXT«, t00=0x001c, t01=0x009e}
0x2c7a…2ca4              Head {h00=0x0026, h01=0x0050, text=» MOVE GTUSED(CBIN18),CBIN0 DATO-1 «, t00=0x001c, t01=0x00c4}
0x2ca4…2cce              Head {h00=0x0026, h01=0x0050, text=» MOVE GTUSED(CBIN19),CBIN0 DATO-2 «, t00=0x001c, t01=0x00ee}
0x2cce…2ce0              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001c, t01=0x0118}
0x2ce0…2cea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012a}
0x2cea…2cf8              Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x001c, t01=0x0134}
0x2cf8…2d1e              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD1,CMASKDAT DDMMYY «, t00=0x001c, t01=0x0142}
0x2d1e…2d3c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD2,CMASKDAT«, t00=0x001c, t01=0x0168}
0x2d3c…2d60              Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD2,=D'100'    DDMM«, t00=0x001c, t01=0x0186}
0x2d60…2d84              Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD2,=D'100' DDMM00 «, t00=0x001d, t01=0x001a}
0x2d84…2da8              Head {h00=0x0020, h01=0x0050, text=» SUB GSWBCD1,GSWBCD2      YY«, t00=0x001d, t01=0x003e}
0x2da8…2ddc              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD2,GTREGF(CBIN16) (YY-1,YY,YY+1) «, t00=0x001d, t01=0x0062}
0x2ddc…2e08              Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD2,=D'3' ADJUST FOR FLTDEX«, t00=0x001d, t01=0x0096}
0x2e08…2e24              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1«, t00=0x001d, t01=0x00c2}
0x2e24…2e42              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD2 «, t00=0x001d, t01=0x00de}
0x2e42…2e7a              Head {h00=0x0034, h01=0x0050, text=» MOVE GTREGF(GSWBIN1),GTREGF(CBIN17) MOVE AMOUNT«, t00=0x001d, t01=0x00fc}
0x2e7a…2e9e              Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN1 «, t00=0x001d, t01=0x0134}
0x2e9e…2ec0              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN15),CBIN0«, t00=0x001d, t01=0x0158}
0x2ec0…2ee2              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN16),CBIN0«, t00=0x001d, t01=0x017a}
0x2ee2…2f04              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN17),CBIN0«, t00=0x001e, t01=0x000c}
0x2f04…2f26              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN18),CBIN0«, t00=0x001e, t01=0x002e}
0x2f26…2f48              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN19),CBIN0«, t00=0x001e, t01=0x0050}
0x2f48…2f6a              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN20),CBIN0«, t00=0x001e, t01=0x0072}
0x2f6a…2f8c              Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN21),CBIN0«, t00=0x001e, t01=0x0094}
0x2f8c…2f9e              Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001e, t01=0x00b6}
0x2f9e…2fa8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c8}
0x2fa8…2fb6              Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x001e, t01=0x00d2}
0x2fb6…2ff8              Head {h00=0x003e, h01=0x0050, text=»         PERF    FLDIN,CBIN2,CBIN1,CBIN0,CBIN0  FIELD 6,28«, t00=0x001e, t01=0x00e0}
0x2ff8…301a              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x001e, t01=0x0122}
0x301a…303a              Head {h00=0x001c, h01=0x0050, text=»         B       FLDTNOK«, t00=0x001e, t01=0x0144}
0x303a…3044              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0164}
0x3044…3052              Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x001e, t01=0x016e}
0x3052…3094              Head {h00=0x003e, h01=0x0050, text=»         PERF    FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x001e, t01=0x017c}
0x3094…30c2              Head {h00=0x002a, h01=0x0050, text=»         CBNE    GSWBIN1,=W'1',FLDTNOK«, t00=0x001f, t01=0x002e}
0x30c2…3106              Head {h00=0x0040, h01=0x0050, text=»         PERF    FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x001f, t01=0x005c}
0x3106…3134              Head {h00=0x002a, h01=0x0050, text=»         CBE     GSWBIN1,=W'2',FLDT525«, t00=0x001f, t01=0x00a0}
0x3134…3176              Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x001f, t01=0x00ce}
0x3176…31a4              Head {h00=0x002a, h01=0x0050, text=»         CBNE    GSWBIN1,=W'0',FLDTNOK«, t00=0x001f, t01=0x0110}
0x31a4…31b4              Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x001f, t01=0x013e}
0x31b4…31f2              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x001f, t01=0x014e}
0x31f2…3230              Head {h00=0x003a, h01=0x0050, text=»         CBE     GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x001f, t01=0x018c}
0x3230…3240              Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x0020, t01=0x003a}
0x3240…327c              Head {h00=0x0038, h01=0x0050, text=»         CBE     GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0020, t01=0x004a}
0x327c…32ba              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0020, t01=0x0086}
0x32ba…32da              Head {h00=0x001c, h01=0x0050, text=»         B       FLDTOK «, t00=0x0020, t01=0x00c4}
0x32da…32e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e4}
0x32e4…32f2              Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x0020, t01=0x00ee}
0x32f2…3330              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTUSED(CBIN12),=W'0',FLDT535 FIELD 47«, t00=0x0020, t01=0x00fc}
0x3330…3378              Head {h00=0x0044, h01=0x0050, text=»         PERF    FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x0020, t01=0x013a}
0x3378…33a6              Head {h00=0x002a, h01=0x0050, text=»         CBNE    GSWBIN1,=W'0',FLDTNOK«, t00=0x0020, t01=0x0182}
0x33a6…33b6              Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x0021, t01=0x0020}
0x33b6…33f4              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 «, t00=0x0021, t01=0x0030}
0x33f4…3432              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47«, t00=0x0021, t01=0x006e}
0x3432…3442              Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x0021, t01=0x00ac}
0x3442…347e              Head {h00=0x0038, h01=0x0050, text=»         CBE     GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0021, t01=0x00bc}
0x347e…34bc              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0021, t01=0x00f8}
0x34bc…34dc              Head {h00=0x001c, h01=0x0050, text=»         B       FLDTOK «, t00=0x0021, t01=0x0136}
0x34dc…34e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0156}
0x34e6…34f4              Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x0021, t01=0x0160}
0x34f4…3530              Head {h00=0x0038, h01=0x0050, text=»         CBE     GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0021, t01=0x016e}
0x3530…356e              Head {h00=0x003a, h01=0x0050, text=»         CBNE    GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0022, t01=0x001a}
0x356e…358e              Head {h00=0x001c, h01=0x0050, text=»         B       FLDTOK «, t00=0x0022, t01=0x0058}
0x358e…3598              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0078}
0x3598…35a6              Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x0022, t01=0x0082}
0x35a6…35e4              Head {h00=0x003a, h01=0x0050, text=»         CMP     CBIN0,CBIN0               SET CR=0 OK«, t00=0x0022, t01=0x0090}
0x35e4…35f8              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0022, t01=0x00ce}
0x35f8…3602              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e2}
0x3602…3612              Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x0022, t01=0x00ec}
0x3612…3658              Head {h00=0x0042, h01=0x0050, text=»         CMP     CBIN0,CBIN1               SET CR <> 0  NOT OK«, t00=0x0022, t01=0x00fc}
0x3658…366c              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0022, t01=0x0142}
0x366c…3682              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0022, t01=0x0156}
0x3682…3698              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0022, t01=0x016c}
0x3698…36c4              Head {h00=0x0028, h01=0x0050, text=»FLDIN    PROC    FML1,FML2,FML3,FML4«, t00=0x0022, t01=0x0182}
0x36c4…36e0              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0023, t01=0x001e}
0x36e0…36ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003a}
0x36ea…3724              Head {h00=0x0036, h01=0x0050, text=»*        FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x0023, t01=0x0044}
0x3724…3752              Head {h00=0x002a, h01=0x0050, text=»*        (GIVEN BY INDEX) ARE PRESENT «, t00=0x0023, t01=0x007e}
0x3752…3774              Head {h00=0x001e, h01=0x0050, text=»*        OUTPUT IN GSWBIN1«, t00=0x0023, t01=0x00ac}
0x3774…377e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ce}
0x377e…379a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0023, t01=0x00d8}
0x379a…37c0              Head {h00=0x0022, h01=0x0050, text=»         MOVE    GSWBIN1,=W'0'«, t00=0x0023, t01=0x00f4}
0x37c0…37e8              Head {h00=0x0024, h01=0x0050, text=»         CBE     FML1,=W'0',FLD5«, t00=0x0023, t01=0x011a}
0x37e8…380c              Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x0023, t01=0x0142}
0x380c…3832              Head {h00=0x0022, h01=0x0050, text=»         ADD     GSWBIN1,=W'1'«, t00=0x0023, t01=0x0166}
0x3832…383e              Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x0023, t01=0x018c}
0x383e…3866              Head {h00=0x0024, h01=0x0050, text=»         CBE     FML2,=W'0',FLD5«, t00=0x0024, t01=0x0008}
0x3866…3896              Head {h00=0x002c, h01=0x0050, text=»         CBE     GTUSED(FML2),=W'0',FLD2«, t00=0x0024, t01=0x0030}
0x3896…38bc              Head {h00=0x0022, h01=0x0050, text=»         ADD     GSWBIN1,=W'1'«, t00=0x0024, t01=0x0060}
0x38bc…38c8              Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x0024, t01=0x0086}
0x38c8…38f0              Head {h00=0x0024, h01=0x0050, text=»         CBE     FML3,=W'0',FLD5«, t00=0x0024, t01=0x0092}
0x38f0…3920              Head {h00=0x002c, h01=0x0050, text=»         CBE     GTUSED(FML3),=W'0',FLD3«, t00=0x0024, t01=0x00ba}
0x3920…3946              Head {h00=0x0022, h01=0x0050, text=»         ADD     GSWBIN1,=W'1'«, t00=0x0024, t01=0x00ea}
0x3946…3952              Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x0024, t01=0x0110}
0x3952…397a              Head {h00=0x0024, h01=0x0050, text=»         CBE     FML4,=W'0',FLD5«, t00=0x0024, t01=0x011c}
0x397a…39aa              Head {h00=0x002c, h01=0x0050, text=»         CBE     GTUSED(FML4),=W'0',FLD5«, t00=0x0024, t01=0x0144}
0x39aa…39d0              Head {h00=0x0022, h01=0x0050, text=»         ADD     GSWBIN1,=W'1'«, t00=0x0024, t01=0x0174}
0x39d0…39dc              Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x0025, t01=0x000a}
0x39dc…39f0              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0025, t01=0x0016}
0x39f0…39fe              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x002a}
0x39fe…3a08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x3a08…3a12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x3a12…3a26              Head {h00=0x0010, h01=0x0050, text=»         END«, t00=0x0025, t01=0x004c}
0x3a26…3a2a              Head {h00=0x4004, h01=0x0000}
0x3a2a…3a2e              00 25 00 60                                                                                                                                                                                                                                       ┆ % `┆
0x3a2e…3a36 (38, 1, 8)   20 04 00 00 00 26 00 04                                                                                                                                                                                                                           ┆     &  ┆
0x3a36…3a86 (39, 0, 400) 2f 32 0c 25 2f 33 06 23 2f 34 02 57 02 30 03 30 04 20 80 01 5f 07 03 11 11 30 02 20 05 20 2d 01 21 30 30 05 20 01 21 31 01 20 12 30 05 20 30 06 14 00 2f 18 20 21 2f 32 05 30 07 2f 30 03 34 00 00 8e 5f 9c 21 8e 32 09 30 07 8e 30 03 80 02 80   ┆/2 %/3 #/4 W 0 0    _    0    - !00   !1   0  0   /  !/2 0 /0 4   _ ! 2 0  0    ┆
0x3a86…3ad6              03 34 00 01 a1 2c 30 08 9c 00 a1 30 09 1a 01 a1 2c 30 08 9c 01 a1 30 09 1a 5f 18 30 0a 30 0b 8f 9a 99 34 00 30 0b 8f 9d 00 34 01 30 0b 8f 98 99 34 00 30 0b 8f 99 00 34 01 30 0b 8f a0 99 34 00 30 0b 8f 9f 00 34 01 30 0b 8f 9b 99 34 00 30 0b   ┆ 4   ,0    0    ,0    0  _ 0 0    4 0    4 0    4 0    4 0    4 0    4 0    4 0 ┆
0x3ad6…3b26              8f 9c 99 34 00 30 0b 8f 97 00 34 01 30 0b 8f 98 99 34 00 30 0b 8f 98 00 34 01 30 0b 8f 9e 00 34 01 30 0b 8f 67 34 00 00 00 33 8d e0 8a ee 8d 70 70 14 3f 4a 6f d2 8d 4c 8d f2 8c d0 92 ca 78 d4 80 42 7f ca 80 3e 7f 52 81 6a 89 c6 7f 74 7f 16   ┆   4 0    4 0    4 0    4 0    4 0  g4   3     pp ?Jo  L      x  B   > R j   t  ┆
0x3b26…3b76              7b ca 7e 66 7f be 7f c2 7f b2 7f a8 7f ac 7f b6 7f ba 8f 38 80 20 7e b6 79 38 78 fc 8e 40 8d 9e 8c 8e 8a ea 8e 50 8d 86 a4 7a 8a 1c 8c ec 8b 9a 8d 9a 8d a8 8c 48 a7 70 8c 6c 8d cc 8a f2 8b 00 00 01 00 01 04 75 00 03 00 00 00 49 00 06 00 8c   ┆{ ~f               8  ~ y8x  @       P   z           H p l           u     I    ┆
0x3b76…3bc6              00 01 04 4d 00 00 00 01 00 02 00 03 00 04 00 05 00 06 00 07 00 08 00 09 00 0a 00 0b 00 0c 00 0d 00 0e 00 0f 00 10 00 18 00 20 00 27 00 31 00 40 00 80 00 c7 01 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 07 ff ff ff ff ff ff 00 00 00 00 05   ┆   M                                       ' 1 @                                ┆
0x3bc6…3c16 (40, 0, 400) 04 00 05 c8 07 ff 47 40 4b 40 2d 00 01 00 10 20 20 52 41 52 46 20 53 55 4d 54 52 50 20 41 44 4d 20 20 41 52 4b 49 56 44 45 42 45 54 53 41 4c 44 4f 54 4f 54 41 4c 20 20 4b 56 49 54 20 43 48 45 43 4b 4b 52 45 44 49 54 54 5b 4c 4c 45 52 4b 4f   ┆      G@K@-      RARF SUMTRP ADM  ARKIVDEBETSALDOTOTAL  KVIT CHECKKREDITT[LLERKO┆
0x3c16…3c66              4e 54 4f 4e 52 54 4f 54 41 4c 20 20 20 20 45 4b 53 2e 4c 42 4e 52 44 41 47 53 2d 44 41 54 4f 4b 4f 4e 54 4f 4b 4f 52 54 4d 41 53 4b 49 4e 20 4e 52 50 4f 53 54 2d 44 41 54 4f 53 54 41 52 54 20 53 55 4d 20 20 53 4c 55 54 20 54 45 53 54 42 45   ┆NTONRTOTAL    EKS.LBNRDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUM  SLUT TESTBE┆
0x3c66…3cb6              56 2e 50 45 52 49 4f 44 45 20 20 53 54 41 52 54 20 54 45 53 54 4b 41 53 53 45 4c 55 4b 4e 49 4e 47 44 49 53 4b 45 54 54 45 20 53 4b 49 46 54 20 42 45 48 4f 4c 44 4e 49 4e 47 53 54 5b 4c 4c 45 52 45 56 45 52 53 55 52 4b 4f 4e 54 4f 4e 52 20   ┆V.PERIODE  START TESTKASSELUKNINGDISKETTE SKIFT BEHOLDNINGST[LLEREVERSURKONTONR ┆
0x3cb6…3d06              20 4b 41 53 53 45 4b 4f 4e 54 4f 4e 52 20 20 20 50 52 49 4d 4f 20 4b 41 53 53 45 20 b1 b2 b3 b4 b5 b6 b7 b8 b9 b0 10 b0 11 b0 12 b0 17 39 58 39 39 42 5a 58 58 5a 5a 39 39 39 39 39 42 42 2a 2a 42 42 58 42 42 5a 42 58 42 42 58 58 42 5a 5a 58   ┆ KASSEKONTONR   PRIMO KASSE                  9X99BZXXZZ99999BB**BBXBBZBXBBXXBZZX┆
0x3d06…3d56              58 58 5a 5a 5a 39 39 39 39 39 39 39 42 42 2a 2a 42 42 39 39 2e 42 39 39 39 42 39 39 42 42 42 5a 42 42 42 5a 5a 42 58 58 2e 42 5a 5a 5a 5a 5a 5a 39 2a 2a 2a 2a 39 2a 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆XXZZZ9999999BB**BB99.B999B99BBBZBBBZZBXX.BZZZZZZ9****9**                        ┆
0x3d56…3da6 (41, 0, 400) 2a 39 39 42 39 39 39 42 42 42 42 5a 5a 42 5a 5a 5a 5a 42 42 42 2a 2a 42 42 42 5a 39 39 39 42 42 2a 2a 2a 2a 39 58 58 2e 58 58 50 50 39 39 56 39 39 56 39 39 58 58 56 58 58 56 58 58 5a 5a 2e 5a 5a 2e 5a 5a 5a 5a 39 39 39 39 39 39 39 39 2e 39   ┆*99B999BBBBZZBZZZZBBB**BBBZ999BB****9XX.XXPP99V99V99XXVXXVXXZZ.ZZ.ZZZZ99999999.9┆
0x3da6…3df6              39 2e 39 39 42 42 39 39 2e 39 39 2e 39 39 42 58 58 2e 58 58 2e 58 58 42 5a 5a 2e 5a 5a 2e 5a 5a 42 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 2e 5a 5a 2e 5a 5a 42 39 39 45 2d 39 39 45 2d 39 39 42 39 39 2e 39 39 2e 39 39 42 42 42 39 39 2e 39 39 2e 39 39   ┆9.99BB99.99.99BXX.XX.XXBZZ.ZZ.ZZBZZZZZZZZZZ.ZZ.ZZB99E-99E-99B99.99.99BBB99.99.99┆
0x3df6…3e46              39 39 2e 39 39 2e 39 39 39 2e 39 42 58 58 58 58 58 58 58 58 58 58 42 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 39 2d 5a 5a 5a 5a 5a 5a 5a 5a 5a 58 2d 5a 5a 5a 5a 5a 5a 5a 5a 5a 5a 42 2a 2a 2a 2a 2a 2a 45 2d 2a 2a 2a 2a 58 58   ┆99.99.999.9BXXXXXXXXXXBZZZZZZZZZZZZZZZZZZZ9-ZZZZZZZZZX-ZZZZZZZZZZB******E-****XX┆
0x3e46…3e96              58 58 58 58 45 2d 58 58 58 58 58 58 58 58 58 58 58 58 45 2d 58 58 5a 5a 5a 5a 39 39 39 39 2e 39 39 42 39 42 39 39 39 39 42 39 39 39 42 39 39 42 42 5a 5a 2e 5a 5a 2e 5a 5a 42 42 42 45 2d 39 39 39 39 39 39 39 39 39 39 42 58 58 58 2e 58 58 58   ┆XXXXE-XXXXXXXXXXXXE-XXZZZZ9999.99B9B9999B999B99BBZZ.ZZ.ZZBBBE-9999999999BXXX.XXX┆
0x3e96…3ee6              58 58 2e 58 58 42 58 58 58 56 58 58 56 58 58 58 2e 58 58 39 39 39 45 2d 39 39 39 39 39 45 2d 39 39 42 5a 5a 5a 5a 56 5a 5a 5a 56 5a 5a 39 2d 42 5a 5a 5a 5a 56 5a 5a 5a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆XX.XXBXXXVXXVXXX.XX999E-99999E-99BZZZZVZZZVZZ9-BZZZZVZZZ                        ┆
0x3ee6…3f36 (42, 0, 400) 56 5a 5a 58 2d 42 5a 5a 5a 5a 56 5a 5a 5a 56 5a 5a 5a 2d 58 45 2d 58 58 45 2d 58 58 45 2d 58 58 42 58 58 58 45 2d 58 58 58 58 58 45 2d 58 58 39 39 39 56 39 39 56 39 39 39 45 2d 39 39 42 42 39 39 39 2e 39 39 2e 39 39 39 2e 39 39 42 5a 5a 5a   ┆VZZX-BZZZZVZZZVZZZ-XE-XXE-XXE-XXBXXXE-XXXXXE-XX999V99V999E-99BB999.99.999.99BZZZ┆
0x3f36…3f86              2e 5a 5a 5a 2e 5a 5a 39 2e 5a 5a 2d 39 39 39 45 2d 39 39 45 2d 39 39 39 45 2d 39 39 42 39 39 39 56 39 39 56 39 39 39 45 2d 39 39 42 42 42 5a 5a 5a 56 5a 5a 56 5a 5a 5a 45 2d 5a 5a 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2c 39 39 2b 2a 2e 2a   ┆.ZZZ.ZZ9.ZZ-999E-99E-999E-99B999V99V999E-99BBBZZZVZZVZZZE-ZZ*.***.***.**9,99+*.*┆
0x3f86…3fd6              2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 42 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39   ┆**.***.**9.99+*.***.***.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9┆
0x3fd6…4026              2e 39 39 2d 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 45 2c 39 39 42 39 39 39 45 2d 39 39 45 2d 39 39 39 45 2d 39 39 42 42 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2c 39 39 2d 42 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39   ┆.99-B*.***.***.**9E,99B999E-99E-999E-99BBBZZZ.ZZZ.ZZZ.ZZ9,99-BBZZZ.ZZZ.ZZZ.ZZ9.9┆
0x4026…4076              39 2d 01 90 01 ff 08 83 87 81 82 89 8a 8b a0 19 c7 d1 ff d0 ff d5 cb c3 ff ff ff ff ff ff c5 e2 ff e3 d2 e1 e0 ff ff c6 d9 19 c7 d1 ff d0 ff d5 cb c3 ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆9-                                                                              ┆
0x4076…40c6 (43, 0, 400) ff e2 ff e3 d2 e1 e0 ff ff c6 d9 1c 87 ff 91 ff ff 95 ff ff ff ff ff ff ff ff ff ff ff a3 ff ff ff ff ff ff ff ff 85 86 1f 87 ff 91 ff ff 95 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff a0 26 87 91 ff 90 ff 95 8b   ┆                                                                        &       ┆
0x40c6…4116              83 ff ff ff ff ff ff ff a2 ff a3 92 e1 88 8a ff ff ff ff 85 86 82 81 a0 89 84 80 93 94 ff 99 e1 12 aa c1 4a c1 48 df 6c df 8f df 5f df 7a df 92 df 93 df 94 df 73 df 7e df 7f df 6b df 87 df 96 df 5e df 83 df 95 df 80 df 78 df 8c df 8d df 79   ┆                                   J H l   _ z       s ~   k     ^       x     y┆
0x4116…4166              df 8e df 76 df 85 df 82 df 66 df 90 df 91 df 86 df 69 49 ef 12 5a ef 11 5b ef 19 82 20 c1 4c 82 20 c1 47 82 32 c0 af 82 20 df 84 df 12 df 8a 82 20 df 74 82 20 df 68 df 12 df 61 82 2b df 5b df 51 df 5b df 25 c1 35 df 27 df 81 df 2b df 81 df   ┆   v     f       iI  Z  [     L   G 2             t   h   a + [ Q [ % 5 '   +   ┆
0x4166…41b6              2c df 81 61 ef 14 c0 ec 34 df 1b 83 20 df 5c e8 df 77 10 df 1c 63 df 11 82 20 2b 44 c1 3d 82 2b 5f 89 81 20 df 12 df 45 df 6d 82 20 df 60 c1 3c df 12 df 47 df 8b df 12 df 56 df 6f 82 2b df 7b df 63 df 34 df 7d df 44 df 71 df 7c df 54 df 71   ┆,  a    4        w   c    +D = +_      E m   ` <   G     V o + { c 4 } D q | T q┆
0x41b6…4206              df 6a df 54 82 2b 5f ef 14 c0 ec e0 e1 e1 81 2a 81 20 5e ef 14 c0 ec 81 20 e0 17 8c c0 ae 12 8b df 45 12 df 1e 82 20 df 12 96 20 51 df 23 df 12 98 20 51 df 23 df 12 ac 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆ j T +_        *  ^              E         Q #    Q #                           ┆
0x4206…4256 (44, 0, 400) 20 51 df 23 df 12 a3 20 53 df 23 df 7b e8 82 30 df 63 df 65 df 4f e8 df 88 e1 e1 e1 e1 e1 e1 e1 82 30 c0 ae 60 89 df 5d 82 32 91 20 65 89 65 8a db ab 04 2b fc d8 02 2b a7 df 47 4b df 12 81 20 df 8b df 12 12 df 1e 82 20 df 6f df 60 61 ef 14   ┆ Q #    S # {  0 c e O           0  `  ] 2  e e    +   +  GK              o `a  ┆
0x4256…42a6              c0 ec 81 20 57 ef 11 5e ef 14 c0 ec 81 20 82 20 c0 e2 c0 de 17 aa df 60 df 65 df 4f e8 df 88 e8 df 89 82 2b c0 af 85 20 35 7e e1 e1 e1 df 60 82 20 c1 44 da ac 02 61 e9 df 51 e8 82 30 e8 82 30 e8 df 4e 14 ef 1b 4d ef 12 33 ef 17 1b ef 1c 82   ┆    W  ^               ` e O       +    5~    `   D   a  Q  0  0  N   M  3      ┆
0x42a6…42f6              20 15 8b 65 fd 80 12 65 fd 80 11 82 2b 40 dc ab 20 5e e9 82 20 c1 36 81 2a 83 20 20 df 11 83 20 52 df 14 e8 25 ef 13 db db 07 c0 ee 81 20 3d ef 17 81 2a 83 20 59 df 11 83 20 52 df 22 e8 81 20 df 7d 61 ef 14 c0 ec 81 20 df 81 82 2b c0 e2 38   ┆   e   e    +@   ^    6 *       R   %         =   *  Y    R "    }a         +  8┆
0x42f6…4346              dc 21 db df 60 28 ef 13 df 12 df 56 83 20 2a df 1d 82 20 df 6f 82 32 15 8b 65 ef 14 65 fd 80 12 65 fd 80 11 df 34 29 ef 12 61 ef 14 82 20 c1 37 1d ef 15 82 2b c0 e2 c0 de 38 dc 21 db df 60 c0 e3 12 aa df 75 81 20 47 ef 12 83 2a db db 02 8d   ┆ !  `(     V  *     o 2  e  e   e    4)  a     7    +    8 !  `     u  G   *    ┆
0x4346…4396              2a df 64 82 20 1e ef 20 42 ef 1d 42 ef 1e 3a ef 23 3a ef 24 82 2b da d0 04 c1 38 df 35 84 20 c0 ae 5d d6 82 20 df 75 df 6e da db 03 33 ef 17 1c ef 1b c0 ed df 70 82 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆* d     B  B  : #: $ +    8 5    ]    u n   3        p 2                        ┆

Reduced view