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

⟦0785f92c1⟧

    Length: 22620 (0x585c)
    Notes: pts_type(SC)
    Names: »RGSUBS.SC«

Derivation

└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/RGSUBS.SC« 

PTS(SC)

	IDENT RGSUBS 	03.01.XXX.1
         DDUM    KMD08
         PDIV 
         ENTRY   ENTER
         ENTRY   MODP 
         ENTRY   KORT 
 ENTRY KKTRP
         ENTRY   KVIT 
         ENTRY   LSTINT 
 ENTRY CYKINT 
 ENTRY CYK
 ENTRY CYCLR
         ENTRY   SUBTOT 
	ENTRY	SUM
 EXT ADM
	ENTRY	DIVTR
	ENTRY	KKCH 
 ENTRY FMTNXT 
	EXT	SETKRE 
	EXT	SETDEB 
	EXT	SLUT 
         EXT     FRMTVO 
 EXT FRMTKV 
	EXT	FRMXJT 
	EXT	FRMXSP 
	EXT	FRMXVO 
	EXT	FRMXTA 
	EXT	FRMTKT 
	EXT	FRMXKT 
         EXT     WRITVO 
	EXT	WRITJT 
         EXT     WTALLY 
         EXT     WCHECK 
	EXT	LINOPT 
 EXT ABORT
 EXT EMPTYT 
	EXT	CRVO 
         EXT     SPCLRA 
         EXT     SPERR
	EXT	SPINF1 
	EXT	SPLIN8 
	EXT	GRASPV 
	EXT	CLEAR8 
	EXT	SPCHK5 
	EXT	FLDTST 
 EXT CYOUT
         INCLUDE EQUATE 
	EJECT
KORT	PROC 
********************
* 
**          KORT - PROCEDURE FOR WRITING ON 'KONTOKORT
* 
**          KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)
******************
 TBF TTEORFLG,KORTNOK NOT CORRECT TRANS 
	TBT	GTREGFLG,KORTNOK	MUST NOT BE FIRST TRANS 
	TBF	GTKASSE,KORTNOK	ONLY IN KASSEFUNCTIONS(1-12) 
	CBE	GTREGNR,=D'5',KORTNOK	NOT TRANS 5
	CBE	GTREGNR,=D'7',KORTNOK	NOT TRANS 7
**          ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT
**          WRITE 'KONTOKORT' ON JOURNAL
**          TRANSPORT LINE IF NEEDED
* 
KORT10
 MOVE SPKEY,CBIN1 
 CLEAR GTSLDFLG 
 TBF CKTFLAG,KORT12 
 SET TTKORTFL 
KORT12
	PERF	FRMXSP,CBIN12	SALDO/LINE/CHECK
	SET	SPPROMPT 
	PERF	SPCLRA	WRITE/READ ON SCREEN 
	CLEAR	SPPROMPT 
	IB	SPBINW2,KORTOK,KORTOK,KORT30
KORT20			ERRORKEY 
	MOVE	SPBINW4,=W'4' 
	PERF	SPERR 
	B	KORT10 
KORT30			CORRECT ENTERED
 TBF CKTFLAG,KORT40 NO SALDO
 SET GTSLDFLG 
 CALL EMPTYT,TTKTSLD GL SALDO PRESENT?
 BE KORT40 YES
 CLEAR GTSLDFLG NOT PRESENT 
 TBF CSLDFLG,KORT40 ALLOWED 
 MOVE SPBINW4,=W'5' NOT ALLOWED 
 PERF SPERR 
 B KORT10 
KORT40
	PERF	WRITJT,=W'2'	'KONTOKORT' ON JOURNAL 
	PERF	KKTRP	TRANSPORT LINE IF NEEDED
	MOVE	SPINPUT,TTKTLIN 
	PERF	SPCHK5	GET THE OLD LINE NUMBER
 CBG GSWBIN1,=W'89',KORT20
	DSC1	KVOUCH,POS,GSWBIN1	POS ON LINE
	ADD	TTKTSLD,GTDUPF(CBIN4)	NEW SALDO
	ADD	TTKTLIN,=D'1'	ADD 1 TO LINE NO 
	PERF	KKCH	NEW CHECKDIGIT 
	PERF	FRMTKT
	EDWRT	KVOUCH,GTSTRFMT
	DSC0	.NW,KVOUCH,RLEAS
 CLEAR GTLOKSPG 
KORTOK
 CLEAR TTKORTFL 
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
KORTNOK 
 CLEAR TTKORTFL 
	CMP	CBIN1,CBIN0	NOK, SET CR <>0
	RET
	PEND 
	EJECT
KKTRP	PROC
********************
* 
**         KKTRP - WRITES KONTOKORT INF ON VOUCHER
**         + TRANSPORT IF NECESSARY 
* 
********************
 PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT
	TBF	GTCYFLG,KON20	IF IN CYCLE
 TBF GTCYWRTF,KON20 
	DSC0	KVOUCH,RLEAS
	CLEAR	TTTSTFLG 
KON20 
	PERF	GRASPV	GRASP VOUCHER
	PERF CLEAR8
	TBF	CKTFLAG,KON90
 TBF GTSLDFLG,KON90 NO SALDO
 CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?
	PERF	FRMXKT,CBIN1	GET TRANSPORT LINE 
	DSC1	KVOUCH,POS,CMINLIN
 EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE
KON30 
 PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'
 WAIT KVOUCH
 DSC0 KVOUCH,RLEAS
 PERF GRASPV
 TESTIO KEYB ANY INPUT? 
 BOK KON35 YES
 CALL ABORT,KEYB NO, ABORT
 DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER
 MOVE GSWBCD3,CKTTOP SET DEFAULT LINE 
 MOVE SPINPUT,GSWBCD3 
 B KON40
KON35 
 WAIT KEYB
 CBE SPBINW2,=W'18',KON40 SLUT KEY
 CBNE SPBINW2,=W'4',KON30 ENTER KEY 
KON40 
 MOVE GSWBCD3,SPINPUT GET LINE
 MOVE TTKTLIN,GSWBCD3 
 CBG TTKTLIN,=D'24',KON30 CHECK LINE
 CBL TTKTLIN,=D'1',KON30
 PERF SPCHK5 CHANGE LINE VALUE
 DSC1 KVOUCH,POS,GSWBIN1
	PERF	FRMXKT,CBIN1
	EDWRT	KVOUCH,GTSTRFMT
 ADD TTKTLIN,=D'1'
KON90 
	RET
	PEND 
	EJECT
KKCH	PROC 
********************
* 
**         KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM
**         AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND 
**         PUTS IT IN TTKTCHK 
**         USED FOR KONTOKORT 
* 
****************
	MOVE	GSWBCD1,TTKTSLD	SAVE
	CBNL	GSWBCD1,=D'0',KKCH10	NEGATIVE?
	MUL	GSWBCD1,=D'-1'	YES, CHANGE SIGN
KKCH10
	MUL	GSWBCD1,TTKTLIN	MULTIPLY WITH LINE NR
	SUB	TTKTLIN,=D'1'	SUB 1 FROM LINE NR 
	ADD GSWBCD1,TTKTLIN	ADD
	ADD	TTKTLIN,=D'1'	RESTORE LINE NR
	MOVE	GSWBCD2,GSWBCD1	SAVE
	DIV	GSWBCD1,=D'7'	CALCULATE
	MUL	GSWBCD1,=D'7'	REMAINDER
	SUB	GSWBCD2,GSWBCD1	MODULUS 7
	ADD	GSWBCD2,=D'1'	ADD 1 ALWAYS 
	CBL	TTKTSLD,=D'0',KKCH20 
	ADD	GSWBCD2,=D'1'	ADD 1 IF POSITIVE SALDO
KKCH20
	MOVE	TTKTCHK,GSWBCD2 
	RET
	PEND 
	EJECT
MODP     PROC 
**********
* 
**       MODP - INVERTS THE PREVIOUS TRANSACTION
**       I.E. REVERSES THE VALUE
**       AND  SETS FLAG TO UPDATE ACCUMULATORS
**          MUST NOT BE IN FIRST TRANBS 
**          ONLY IN KASSEFUNCTIONS
* 
**********
 TBF TTEORFLG,MODPNOK NOT CORRECT TRANS 
 MOVE GTRETUR,CBIN0 
	TBT	GTREGFLG,MODPNOK	MUST NOT BE FIRST TRANS 
	TBF	GTKASSE,MODPNOK	ONLY IN KASSEFUNCTIONS (1-12)
 CLEAR GTLOKSPG 
 MOVE SPKEY,CBIN1 
         SET   TTINVFLG 
         MUL   GTDUPF(CBIN4),='-1'     MULTIPLY BELOB BY -1 
	PERF	SLUT
	CLEAR	TTINVFLG 
 CBNE GTRETUR,=W'3',MODP50
 PERF KORT
MODP50
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
MODPNOK 
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
         RET
         PEND 
         EJECT
KVIT     PROC 
**********
* 
**         KVIT - WRITES AN EXTRA RECEIPT 
**          ONLY IN KASSEFUNCTIONS
* 
**********
 TBF TTEORFLG,KVITNOK NOT CORRECT TRANS 
	TBT	GTREGFLG,KVITNOK	MUST NOT BE FIRST TRANS 
 TBT GTCYFLG,KVITNOK NOT IN CYCLE 
	TBF	GTKASSE,KVITNOK	ONLY IN KASSEFUNCTIONS(1-12) 
 MOVE SPKEY,CBIN1 
         PERF  WRITJT,=W'1'                  WRITE 'KVIT' ON JOURNAL
 MOVE TTCYM,=C'K' 
 PERF FRMTKV
	PERF	WRITVO	WRITE RECEIPT
 MOVE TTCYM,=C' ' 
 CLEAR GTLOKSPG 
	CMP	CBIN0,CBIN0	OK, SET CR =0
	RET
KVITNOK 
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
         RET
         PEND 
         EJECT
ENTER    PROC 
**********
* 
**       ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN
**       ENTERED ON SCREEN
* 
**       1     ANY PAGE TWO ? 
* 
**       2     FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?
* 
**       3     FIELD DEPENDENCE TEST
* 
**       AND THEN PERFORM PROCEDURE SLUT, TO
**       WRITE TO DISK AND WRITE RELEVANT RECEIPTS
* 
**********
	MOVE	GTRETUR,CBIN0	SET RETURN CODE 
	TBT	GTTYPE3,ENTY3
	TBT	GTTYPE2,ENTY2
* TYPE 1 - ONE PAGE TRANSACTION 
ENTY1 
	PERF	FLDTST	TEST FIELD DEPENDENCE
	BNOK	ENTNOK
	PERF	SLUT	OK 
	BNOK	ENTNOK
	TBT	GTKORTFL,ENT01 
	CBE	GTRETUR,=W'3',ENT01	IF LINE 91 
	MOVE	GTRETUR,=W'1' 
 TBF CKTAUTO,ENTOK
	CBNE	GTREGDEX,=W'4',ENTOK
ENT01 
	PERF	KORT	TRANS 4: KONTOKORT 
	MOVE	GTRETUR,=W'3'	RESET SCREEN
	CLEAR	GTKORTFL 
	B	ENTOK
* TYPE 2 - TWO PAGE TRANSACTION 
ENTY2 
	CBNE	GTPAGE,CBIN1,ENT10
*     GET PAGE 2
	TBT	GTSLUTFL,ENTY1 
	SET	GTSLUTFL 
	PERF	FMTNXT,CBIN1
	MOVE	GTPAGE,CBIN2
	MOVE	GTRETUR,=W'2' 
	B	ENTOK
* 
ENT10 
	PERF	FLDTST
	BNOK	ENTNOK
	PERF	SLUT
	BNOK	ENTNOK
	TBT	GTKORTFL,ENT01 
 CBE GTRETUR,=W'3',ENT01
	MOVE	GTRETUR,=W'3' 
	B	ENTOK
* TYPE 3 - THREE PAGE TRANSACTION 
ENTY3 
	CBNE	GTPAGE,CBIN1,ENT20
*     AFTER PAGE 1, GET NEXT PAGE 
	PERF	FMTNXT,CBIN2
	MOVE	GTPAGE,CBIN2
	MOVE	GTRETUR,=W'2' 
	B	ENTOK
* 
ENT20 
	CBNE	GTPAGE,CBIN2,ENT30
*     AFTER PAGE 2, GET LAST PAGE 
	PERF	FMTNXT,CBIN3
	MOVE	GTPAGE,CBIN3
	MOVE	GTRETUR,=W'2' 
	B	ENTOK
* 
ENT30 
	CBNE	GTPAGE,CBIN3,ENT40
*     FIRST TIME PAGE 3 
	PERF	FLDTST
	BNOK	ENTNOK
	B	ENT40
* 
ENT40 
*     CORRECT PAGE 3
	PERF	SLUT
	BNOK	ENTNOK
	CLEAR	GTKORTFL 
	CBE	GTSUM,=D'0',ENT50
	MOVE	GTPAGE,CBIN4
	MOVE	GTRETUR,=W'1' 
	B	ENTOK
* 
ENT50 
*     FINISHED
	MOVE	GTRETUR,=W'3' 
* 
ENTOK 
	CMP	CBIN0,CBIN0	OK, SET CR =0
	RET
ENTNOK
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
	RET
* 
         PEND 
         EJECT
FMTNXT  PROC  FORMAL1 
******************* 
* 
**         FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 
**         TRANSTYPES 8,9,51 AND 53 
**       (DEX       8,9,21,23)
* 
****-************** 
         CBNE  FORMAL1,CBIN1,NXT10     INDEX 1: 
         MOVE  GSWBIN1,CBIN1           TYPE 8 
         CBE   GTREGDEX,=W'8',NXT10 
         MOVE  GSWBIN1,CBIN2           TYPE 9 
NXT10 
         CBE   FORMAL1,CBIN1,NXTATT    INDEX 2: 
	CBNE	FORMAL1,CBIN2,NXT20 
         MOVE  GSWBIN1,CBIN3           TYPE 51,PAGE 2 
	CBE	GTREGDEX,=W'21',NXT20
        MOVE  GSWBIN1,CBIN4           TYPE 53,PAGE 2
NXT20 
         CBNE  FORMAL1,CBIN3,NXTATT    INDEX 3: 
         MOVE  GSWBIN1,CBIN5           TYPE 51,PAGE 3 
         CBE   GTREGDEX,=W'21',NXTATT 
         MOVE  GSWBIN1,CBIN6           TYPE 53,PAGE 3 
NXTATT
	PERF	FRMXSP,GSWBIN1
         RET
         PEND 
 EJECT
CYK PROC CYTYPE 
********************
* 
*          HANDLE DIFFERENT TYPES OF CYCLES 
* 
********************
 IB CYTYPE,		C
		CYK1,CYK2,CYKNOK,CYK4,CYKNOK,		C
		CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND 
 B CYKNOK 
	EJECT
CYK1
********************
* 
**          CYK1 - START OF CYCLE FUNCTION
* 
********************
	TBT	TTLSTFLG,CYK1NOK	IN LISTE
	TBT	TTCY2FLG,CYK1NOK	IN CYCLE 2
	SET	TTCY1FLG 
 MOVE TTCYM,=C'C' FOR JOURNAL 
 MOVE GTTEXT,=C'CYKLE ' FOR SCREEN
	PERF	CYKINT
 B CYKOK
CYK1NOK 
 B CYKNOK 
	EJECT
CYK2
********************
* 
**         CYK2 - START OF STABEL FUNCTION
* 
********************
	TBT	TTLSTFLG,CYK2NOK	IN LISTE
	TBT	TTCY1FLG,CYK2NOK	IN CYCLE 1
	SET	TTCY2FLG 
 MOVE TTCYM,=C'S' FOR JOURNAL 
 MOVE GTTEXT,=C'STABEL' FOR SCREEN
	PERF	CYKINT
 B CYKOK
CYK2NOK 
 B CYKNOK 
 EJECT
CYK4
********************
* 
*          CYK4 - PAUSE IN CYCLE / STABEL 
* 
********************
 TBF GTCYFLG,CYK4NOK
 TBT GTCYWRTF,CYKSUB
	MOVE	TTARKSAV,GTDUPF(CBIN9)	SAVE ARKIV KNT NR
         SET     TTPSEFLG                  INDICATE BREAK 
 MOVE GTCYSUM,GTSUM 
 MOVE GTPSELIN,TTLINNR
 PERF CYCLR 
 ERASE 0,CBIN8,CBIN8 ERASE LINE 8 
 PERF SPINF1
 B CYKOK
CYK4NOK 
 B CYKNOK 
CYKSUB
 PERF SUBTOT
 B CYKOK
	EJECT
CYK9
********************
* 
**         CYK9 - CLEAR ARKIV KONTO NR
* 
********************
	TBF	TTCY1FLG,CYK9NOK 
	MOVE	TTARKSAV,=D'0'	CLEAR NUMBER 
 B CYKOK
CYK9NOK 
 B CYKNOK 
 EJECT
CYEND 
********************
* 
**          CYEND - END OF CYCLE
* 
**       WRITE TOTAL LINE ON VOUCHER
* 
********************
	TBF	GTCYFLG,CYENDNOK	ONLY IF IN CYCLE
	TBT	TTCY2FLG,CYEND10 
	CBNE	GTSUM,=D'0',CYEND30	SUM CORRECT? (ONLY CY1) 
CYEND10 
         CLEAR   TTSUMFLG                  CLEAR FLAGS
         CLEAR   GTCYFLG
 PERF CYOUT 
         CLEAR   TTTSTFLG 
	WAIT	KVOUCH
	MOVE	GSWBIN1,TTLINNR 
	DSC1	KVOUCH,POS,GSWBIN1	POSITION VOUCHER 
 MOVE GSWSTR9,=C'TOTAL   '
	PERF	FRMXVO,CBIN2	GET TOTAL FORMAT 
	EDWRT	KVOUCH,GTSTRFMT	EDWRT ON VOUCHER 
         DSC0    KVOUCH,RLEAS                RELEASE VOUCHER
 TBT C167FLG,CYEND15 T=NO WRITE JOURNAL 
 PERF WRITJT,=W'15' 
CYEND15 
         CBL     GTREGNR,=D'18',CYEND20    CHECKS?
         SET     TTTSTFLG 
         MOVE    GTREGF(CBIN4),GTSUM       FIND TOTAL VALUE 
         PERF    WCHECK                    WRITE CHECK
CYEND20 
	CLEAR	TTCY1FLG 
         CLEAR   TTCY2FLG 
	PERF	CYCLR 
	B	CYENDOK
CYEND30 
         MOVE    SPBINW4,=W'12'             SET ERRORCODE 
         PERF    SPERR
	IB	SPBINW2,CYENDCNT,CYEND10
CYENDOK 
	ERASE	0,CBIN8,CBIN8	ERASE LINE 8 
	PERF	SPINF1
CYENDCNT
 B CYKOK
CYENDNOK
 B CYKNOK 
* 
CYKOK 
 CMP CBIN0,CBIN0 OK 
 RET
CYKNOK
 CMP CBIN1,CBIN0 NOK
 RET
 PEND 
         EJECT
CYKINT   PROC 
********************
* 
**          CYKINT - START OR END OF CYCLE
* 
**       START   SET RELEVANT INFORMATION AND READ
**               ARKIV KNT.NR, KONTROLSUM AND LRER-9
* 
**       END     CLEAR RELEVANT INFORMATION 
* 
********************
	TBF	GTCYFLG,CY10	TRUE- ALREADY IN CYCLE
         TBT     TTPSEFLG,CY05            TRUE- IN PAUSE STATE
 PERF CYK,CBIN10
	RET
CY05
	PERF	CYCLR 
	RET
CY10
	SET	TTSUMFLG	INDICATE SUM ON SCREEN
	SET	GTCYFLG	INDICATE CYCLE 
         TBF     TTPSEFLG,CY30             TRUE- PAUSE STATE
         MOVE    GTSUM,GTCYSUM             GET SAVED SUM
         MOVE    GTREGF(CBIN9),TTARKSAV    GET SAVED ARKIV KNT.NR 
 CBG GTPSELIN,CBIN0,CY20
 MOVE GTPSELIN,TTCYKST RESET START LINE 
 MOVE TTCYKPOS,TTCYKST
CY20
	MOVE	TTLINNR,GTPSELIN
         CLEAR   TTPSEFLG                  OUT OF PAUSE STATE 
 B CY90 
CY30
	MOVE	GTREGF(CBIN9),=D'0'	INITIATE VALUES 
	MOVE	GTCYSUM,=D'0' 
         MOVE    GTSUM,=D'0'
	MOVE	TTCYKTOT,=D'0'
         MOVE    TTLINNR,=D'1'
         PERF    FRMXSP,CBIN11              GET FORMAT FOR CYCLE INF
         SET SPPROMPT 
         PERF    SPCLRA                    WRITE AND READ ON SCREEN 
         CLEAR SPPROMPT 
         IB      SPBINW2,CY45,CY45,CY50 
CY40			ERROR KEY
	MOVE	SPBINW4,=W'4' 
         PERF    SPERR
         B       CY30 
CY45			MAK
	CLEAR	TTCY1FLG 
	CLEAR	TTCY2FLG 
	B	CY05 
CY50
	CBL	TTLINNR,=D'25',CY55
	MOVE	TTLINNR,=D'1' 
CY55
	MOVE	SPINPUT,TTLINNR 
	PERF	SPCHK5
	MOVE	TTLINNR,GSWBIN1	FIND LINNE NUMBER 
	MOVE	GTSUM,GTCYSUM 
	MOVE	TTARKSAV,GTREGF(CBIN9)
 MOVE TTCYKST,TTLINNR 
 MOVE TTCYKPOS,TTLINNR
 MOVE GTCYIN,TTASKNR
 SUB GTCYIN,CBIN1 
 MUL GTCYIN,CCYSIZE 
 ADD GTCYIN,CBIN1 
 MOVE GTCYOUT,GTCYIN
CY90
 SET GTCYWRTF 
 TBT CCYWRTF,CY95 
 CLEAR GTCYWRTF 
CY95
         RET
         PEND 
	EJECT
CYCLR	PROC
******************* 
* 
**         CYCLR - CLEAR CYCLEINFORMATION 
* 
******************
         MOVE    GTTEXT,=C' ' 
         MOVE    TTCYM,=C' '
         MOVE    GTREGF(CBIN9),=D'0'
         MOVE    GTSUM,=D'0'
         CLEAR   GTCYFLG
         CLEAR   TTSUMFLG 
	CLEAR	TTTSTFLG 
 CLEAR GTCYTRPF 
	DSC0	KVOUCH,RLEAS	RELEASE VOUCHER
	RET
         PEND 
         EJECT
LSTINT	PROC 
********************
* 
**       LSTINT - INITIATE LISTFUNCTION 
* 
********************
	TBT	GTCYFLG,LSTNOK 
         TBT     TTLSTFLG,LSTEND
* FIRST TIME
         SET     TTSUMFLG 
         SET     TTLSTFLG 
         MOVE    GTSUM,=D'0'               INITIATE SUM 
         PERF    FRMXTA,CBIN1              GET HEADER FOR TALLY ROLL
         PERF    WTALLY                    WRITE ON TALLY ROLL
         MOVE    GTTEXT,=C'LISTE '
	B	LSTOK
* LAST TIME 
LSTEND
	WAIT	KTALLY
	MOVE	GSWBCD6,GTSUM 
 MOVE GSWSTR9,=C'TOTAL   '
	PERF	FRMXTA,CBIN2	GET TOTALLINE FOR TALLY
         PERF    WTALLY 
 ERASE 0,CBIN8,CBIN8
         CLEAR   TTLSTFLG 
         CLEAR   TTSUMFLG 
         MOVE    GTTEXT,=C' ' 
LSTOK 
	PERF	SPINF1
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
LSTNOK
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
         RET
         PEND 
         EJECT
SUBTOT   PROC 
******************* 
* 
**       SUBTOT - SUBTOTAL
* 
**         LISTFUNCTION-  WRITE SUBTOTAL ON TALLY 
* 
**       CYCLEFUNCTION- SAVE CYCLE INFORMATION
**               WRITE SUBTOTAL 
**               IN CYCLE-PAUSE-STATE 
* 
********************
 MOVE GSWSTR9,=C'SUBTOTAL ' 
         TBT     TTLSTFLG,SUBTLST          IN LIST FUNCTION 
	TBT	GTCYFLG,SUBTCYC	IN CYCLE 
	TBF	GTSUMKEY,SUBTNOK	IN SUM
* SUBTOTAL IN SUM 
	SET	GTSUBFLG 
	PERF	SUM 
	CLEAR	GTSUBFLG 
	B	SUBTOK10 
* SET PAUSE IN CYCLE
SUBTCYC 
 PERF CYOUT 
	MOVE	TTARKSAV,GTDUPF(CBIN9)	SAVE ARKIV KNT NR
         SET     TTPSEFLG                  INDICATE BREAK 
	PERF	FRMXVO,CBIN3	GET SUBTOT FORMAT
 SET GTCYWRTF 
         PERF    WRITVO                    WRITE SUBTOT LINE
	WAIT	KVOUCH
         DSC0    KVOUCH,RLEAS                RELEASE VOUCHER
         MOVE    GTCYSUM,GTSUM             SAVE SUM 
	SUB	TTLINNR,=D'4'
         MOVE    TTCYKPOS,TTLINNR          SAVE LINNR 
 MOVE GTPSELIN,TTLINNR
 MOVE GTCYIN,TTASKNR INITIATE CYSET 
 SUB GTCYIN,CBIN1 
 MUL GTCYIN,CCYSIZE 
 ADD GTCYIN,CBIN1 
 MOVE GTCYOUT,GTCYIN
	PERF	CYCLR 
	B	SUBTOK 
* SUBTOTAL IN LIST
SUBTLST 
	WAIT	KTALLY
	MOVE	GSWBCD6,GTSUM 
	PERF	FRMXTA,CBIN3	GET FORMAT 
         PERF    WTALLY                    WRITE ON TALLY ROLL
SUBTOK
	ERASE	0,CBIN8,CBIN8	ERASE LINE 8 
	PERF	SPINF1
SUBTOK10
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
SUBTNOK 
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
        RET 
	PEND 
	EJECT
SUM	PROC
********************
* 
**         SUM - PROCEDURE FOR SUMMING UP FOR ALL 
**         TRANSACTIONS FROM THE INITIATING 
**         POINT TO THE RELEASING.
**         FIRST TIME: INITIATING 
**         LAST TIME:  WRITE SUM ON VOUCHER 
* 
********************
	TBT	GTSUMKEY,SUM50 
*     FIRST TIME
	PERF	WRITJT,=W'3'	WRITE START SUM FUNCTION 
SUM10 
	MOVE	TTSUMMRK,=C'*'
	SET	GTSUMKEY 
	MOVE	GTSUMST,TTLBNR
	ADD	GTSUMST,=D'1'	INITIATE FIRST NUMBER
	MOVE	GTSUMCNT,=D'0'	INITIATE SUM 
	B	SUMOK
* 
*     LAST TIME 
SUM50 
	PERF	WRITJT,=W'4'	WRITE SLUT SUM FUNCTION
	TBT	GTSUBFLG,SUM60 
	MOVE	TTSUMMRK,=C' '
	CLEAR	GTSUMKEY 
SUM60 
 PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
	TBF	GTCYFLG,SUM70	IF IN CYCLE
	DSC0	KVOUCH,RLEAS
	MOVE	GSWBCD5,TTLINNR	SAVE LINNR
	CLEAR	TTTSTFLG 
SUM70 
	PERF	GRASPV
 CLEAR GTSWFLAG 
	PERF	LINOPT
	BNOK	SUM60 
	CBG	GSWBIN1,=W'90',SUM75 
	CBNE	GSWBIN1,=W'0',SUM80	DEFAULT LINE? 
SUM75 
	MOVE	TTLINNR,=D'6'	SET LINE 26 
SUM80 
	MOVE	GSWBIN1,TTLINNR 
	DSC1	KVOUCH,POS,GSWBIN1
	MOVE	TTLINNR,GSWBCD5	RESTORE LINNR 
	PERF	FRMXVO,CBIN7
	EDWRT	KVOUCH,GTSTRFMT
	PERF	CRVO
	DSC0	.NW,KVOUCH,RLEAS
	TBT	GTSUBFLG,SUMOK10 
	TBT	GTASUMFL,SUM10 
SUMOK 
	PERF	SPINF1
SUMOK10 
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
	PEND 
	EJECT
DIVTR	PROC
********************
* 
**         DIVTR - SET OR CLEAR DIVTR FLAG
* 
********************
	TBT	CTRVALG,DIVTRNOK 
	TBT	GTDIVTR,DIVEND 
*           SET DIVTR 
	SET	GTDIVTR
	SET	GTTRSEL
	CBE	TTDKDEX,=W'1',DIV10
	PERF	SETDEB
	B	DIVTROK
DIV10 
	PERF	SETKRE
	B	DIVTROK
*     CLEAR DIVTR 
DIVEND
	CLEAR	GTDIVTR
	MOVE	TTSTYRDX,=W'1'
	B	DIVTROK
* 
DIVTROK 
	CMP	CBIN0,CBIN0	OK, SET CR=0 
	RET
DIVTRNOK
	CMP	CBIN1,CBIN0	NOK, SET CR<>0 
	RET
	PEND 
* 
* 
         END

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUBS  03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040              Head {h00=0x001a, h01=0x0050, text=»         DDUM    KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056              Head {h00=0x0012, h01=0x0050, text=»         PDIV «, t00=0x0000, t01=0x0044}
0x0056…0074              Head {h00=0x001a, h01=0x0050, text=»         ENTRY   ENTER«, t00=0x0000, t01=0x005a}
0x0074…0092              Head {h00=0x001a, h01=0x0050, text=»         ENTRY   MODP «, t00=0x0000, t01=0x0078}
0x0092…00b0              Head {h00=0x001a, h01=0x0050, text=»         ENTRY   KORT «, t00=0x0000, t01=0x0096}
0x00b0…00c4              Head {h00=0x0010, h01=0x0050, text=» ENTRY KKTRP«, t00=0x0000, t01=0x00b4}
0x00c4…00e2              Head {h00=0x001a, h01=0x0050, text=»         ENTRY   KVIT «, t00=0x0000, t01=0x00c8}
0x00e2…0102              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   LSTINT «, t00=0x0000, t01=0x00e6}
0x0102…0118              Head {h00=0x0012, h01=0x0050, text=» ENTRY CYKINT «, t00=0x0000, t01=0x0106}
0x0118…012a              Head {h00=0x000e, h01=0x0050, text=» ENTRY CYK«, t00=0x0000, t01=0x011c}
0x012a…013e              Head {h00=0x0010, h01=0x0050, text=» ENTRY CYCLR«, t00=0x0000, t01=0x012e}
0x013e…015e              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   SUBTOT «, t00=0x0000, t01=0x0142}
0x015e…0170              Head {h00=0x000e, h01=0x0050, text=» ENTRY SUM«, t00=0x0000, t01=0x0162}
0x0170…0180              Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0000, t01=0x0174}
0x0180…0194              Head {h00=0x0010, h01=0x0050, text=» ENTRY DIVTR«, t00=0x0000, t01=0x0184}
0x0194…01a8              Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0001, t01=0x0008}
0x01a8…01be              Head {h00=0x0012, h01=0x0050, text=» ENTRY FMTNXT «, t00=0x0001, t01=0x001c}
0x01be…01d2              Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0032}
0x01d2…01e6              Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0046}
0x01e6…01f8              Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x005a}
0x01f8…0218              Head {h00=0x001c, h01=0x0050, text=»         EXT     FRMTVO «, t00=0x0001, t01=0x006c}
0x0218…022c              Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x008c}
0x022c…0240              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x00a0}
0x0240…0254              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x00b4}
0x0254…0268              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00c8}
0x0268…027c              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00dc}
0x027c…0290              Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x00f0}
0x0290…02a4              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x0104}
0x02a4…02c4              Head {h00=0x001c, h01=0x0050, text=»         EXT     WRITVO «, t00=0x0001, t01=0x0118}
0x02c4…02d8              Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0138}
0x02d8…02f8              Head {h00=0x001c, h01=0x0050, text=»         EXT     WTALLY «, t00=0x0001, t01=0x014c}
0x02f8…0318              Head {h00=0x001c, h01=0x0050, text=»         EXT     WCHECK «, t00=0x0001, t01=0x016c}
0x0318…032c              Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x018c}
0x032c…033e              Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0002, t01=0x0010}
0x033e…0352              Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0022}
0x0352…0364              Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0002, t01=0x0036}
0x0364…0384              Head {h00=0x001c, h01=0x0050, text=»         EXT     SPCLRA «, t00=0x0002, t01=0x0048}
0x0384…03a2              Head {h00=0x001a, h01=0x0050, text=»         EXT     SPERR«, t00=0x0002, t01=0x0068}
0x03a2…03b6              Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0002, t01=0x0086}
0x03b6…03ca              Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x009a}
0x03ca…03de              Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x00ae}
0x03de…03f2              Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x00c2}
0x03f2…0406              Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x00d6}
0x0406…041a              Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x00ea}
0x041a…042c              Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x00fe}
0x042c…044c              Head {h00=0x001c, h01=0x0050, text=»         INCLUDE EQUATE «, t00=0x0002, t01=0x0110}
0x044c…045a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0130}
0x045a…046c              Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x013e}
0x046c…0488              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0150}
0x0488…0492              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…04d0              Head {h00=0x003a, h01=0x0050, text=»**          KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x0176}
0x04d0…04da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…0514              Head {h00=0x0036, h01=0x0050, text=»**          KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0003, t01=0x002e}
0x0514…052e              Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x0068}
0x052e…055e              Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x0082}
0x055e…0594              Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x00b2}
0x0594…05ce              Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x00e8}
0x05ce…05fc              Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x0122}
0x05fc…062a              Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x0150}
0x062a…066c              Head {h00=0x003e, h01=0x0050, text=»**          ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x017e}
0x066c…069c              Head {h00=0x002c, h01=0x0050, text=»**          WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0004, t01=0x0030}
0x069c…06c8              Head {h00=0x0028, h01=0x0050, text=»**          TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0060}
0x06c8…06d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06e0              Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x0096}
0x06e0…06fa              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x00a4}
0x06fa…0712              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x00be}
0x0712…072e              Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x00d6}
0x072e…0744              Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x00f2}
0x0744…0752              Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x0108}
0x0752…077e              Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x0116}
0x077e…0794              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x0142}
0x0794…07be              Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x0158}
0x07be…07d6              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0004, t01=0x0182}
0x07d6…07fe              Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0005, t01=0x000a}
0x07fe…0818              Head {h00=0x0016, h01=0x0050, text=»KORT20   ERRORKEY «, t00=0x0005, t01=0x0032}
0x0818…0834              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0005, t01=0x004c}
0x0834…0848              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x0068}
0x0848…085a              Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x007c}
0x085a…087a              Head {h00=0x001c, h01=0x0050, text=»KORT30   CORRECT ENTERED«, t00=0x0005, t01=0x008e}
0x087a…089e              Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x00ae}
0x089e…08b4              Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x00d2}
0x08b4…08e2              Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x00e8}
0x08e2…08f8              Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x0116}
0x08f8…091c              Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x012c}
0x091c…0940              Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x0150}
0x0940…0968              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'5' NOT ALLOWED «, t00=0x0005, t01=0x0174}
0x0968…097c              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0006, t01=0x000c}
0x097c…098e              Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0006, t01=0x0020}
0x098e…099c              Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0006, t01=0x0032}
0x099c…09ce              Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0006, t01=0x0040}
0x09ce…09fa              Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x0072}
0x09fa…0a18              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x009e}
0x0a18…0a44              Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x00bc}
0x0a44…0a66              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x00e8}
0x0a66…0a92              Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x010a}
0x0a92…0abe              Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x0136}
0x0abe…0aea              Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x0162}
0x0aea…0b0c              Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0006, t01=0x018e}
0x0b0c…0b20              Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0007, t01=0x0020}
0x0b20…0b3e              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0007, t01=0x0034}
0x0b3e…0b5c              Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0007, t01=0x0052}
0x0b5c…0b74              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x0070}
0x0b74…0b82              Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x0088}
0x0b82…0b9a              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0096}
0x0b9a…0bc0              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x00ae}
0x0bc0…0bcc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d4}
0x0bcc…0bdc              Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x00e0}
0x0bdc…0bf4              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x00f0}
0x0bf4…0c1c              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x0108}
0x0c1c…0c28              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0130}
0x0c28…0c36              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x013c}
0x0c36…0c44              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x014a}
0x0c44…0c56              Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x0158}
0x0c56…0c72              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x016a}
0x0c72…0c7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7c…0cb6              Head {h00=0x0036, h01=0x0050, text=»**         KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0007, t01=0x0190}
0x0cb6…0ce2              Head {h00=0x0028, h01=0x0050, text=»**         + TRANSPORT IF NECESSARY «, t00=0x0008, t01=0x003a}
0x0ce2…0cec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0066}
0x0cec…0d08              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0070}
0x0d08…0d38              Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x008c}
0x0d38…0d5e              Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x00bc}
0x0d5e…0d7a              Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x00e2}
0x0d7a…0d94              Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x00fe}
0x0d94…0dac              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x0118}
0x0dac…0dba              Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x0130}
0x0dba…0ddc              Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x013e}
0x0ddc…0df0              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x0160}
0x0df0…0e0a              Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x0174}
0x0e0a…0e2e              Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0008, t01=0x018e}
0x0e2e…0e60              Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0009, t01=0x0022}
0x0e60…0e8e              Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0009, t01=0x0054}
0x0e8e…0eae              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x0082}
0x0eae…0ee0              Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x00a2}
0x0ee0…0eee              Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x00d4}
0x0eee…0f18              Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x00e2}
0x0f18…0f2c              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x010c}
0x0f2c…0f46              Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x0120}
0x0f46…0f5a              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x013a}
0x0f5a…0f7a              Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x014e}
0x0f7a…0f90              Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x016e}
0x0f90…0fb2              Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0009, t01=0x0184}
0x0fb2…0fe4              Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x000a, t01=0x0016}
0x0fe4…1012              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x000a, t01=0x0048}
0x1012…1030              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x0076}
0x1030…1040              Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x0094}
0x1040…104e              Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x00a4}
0x104e…1060              Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x00b2}
0x1060…108a              Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'18',KON40 SLUT KEY«, t00=0x000a, t01=0x00c4}
0x108a…10b6              Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,=W'4',KON30 ENTER KEY «, t00=0x000a, t01=0x00ee}
0x10b6…10c4              Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x011a}
0x10c4…10ea              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x0128}
0x10ea…1108              Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x014e}
0x1108…1134              Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x016c}
0x1134…1154              Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000b, t01=0x0008}
0x1154…117a              Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000b, t01=0x0028}
0x117a…119a              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x004e}
0x119a…11b4              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x006e}
0x11b4…11d2              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x0088}
0x11d2…11ec              Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x00a6}
0x11ec…11fa              Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x00c0}
0x11fa…1206              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00ce}
0x1206…1214              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x00da}
0x1214…1222              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e8}
0x1222…1234              Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x00f6}
0x1234…1250              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x0108}
0x1250…125a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0124}
0x125a…129e              Head {h00=0x0040, h01=0x0050, text=»**         KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x012e}
0x129e…12dc              Head {h00=0x003a, h01=0x0050, text=»**         AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x0172}
0x12dc…1302              Head {h00=0x0022, h01=0x0050, text=»**         PUTS IT IN TTKTCHK «, t00=0x000c, t01=0x0020}
0x1302…1328              Head {h00=0x0022, h01=0x0050, text=»**         USED FOR KONTOKORT «, t00=0x000c, t01=0x0046}
0x1328…1332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x1332…134a              Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x0076}
0x134a…136c              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x008e}
0x136c…1398              Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x00b0}
0x1398…13c4              Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x00dc}
0x13c4…13d2              Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x0108}
0x13d2…1404              Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x0116}
0x1404…1432              Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x0148}
0x1432…1452              Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x0176}
0x1452…147c              Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000d, t01=0x0008}
0x147c…149e              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000d, t01=0x0032}
0x149e…14c2              Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000d, t01=0x0054}
0x14c2…14e6              Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x0078}
0x14e6…150c              Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x009c}
0x150c…1534              Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x00c2}
0x1534…1556              Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x00ea}
0x1556…1588              Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x010c}
0x1588…1596              Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x013e}
0x1596…15b4              Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x014c}
0x15b4…15c0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x016a}
0x15c0…15ce              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0176}
0x15ce…15dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0184}
0x15dc…15f2 (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=»MODP     PROC «, t00=0x000e, t01=0x0004}
0x15f2…1604              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x001a}
0x1604…160e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x160e…1646              Head {h00=0x0034, h01=0x0050, text=»**       MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000e, t01=0x0036}
0x1646…166e              Head {h00=0x0024, h01=0x0050, text=»**       I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x006e}
0x166e…16a4              Head {h00=0x0032, h01=0x0050, text=»**       AND  SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x0096}
0x16a4…16d4              Head {h00=0x002c, h01=0x0050, text=»**          MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x00cc}
0x16d4…16fe              Head {h00=0x0026, h01=0x0050, text=»**          ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x00fc}
0x16fe…1708              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x1708…171a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0130}
0x171a…174a              Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x0142}
0x174a…1766              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x0172}
0x1766…179c              Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000e, t01=0x018e}
0x179c…17d6              Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000f, t01=0x0034}
0x17d6…17ee              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x006e}
0x17ee…1808              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0086}
0x1808…1828              Head {h00=0x001c, h01=0x0050, text=»         SET   TTINVFLG «, t00=0x000f, t01=0x00a0}
0x1828…186c              Head {h00=0x0040, h01=0x0050, text=»         MUL   GTDUPF(CBIN4),='-1'     MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x00c0}
0x186c…187e              Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x0104}
0x187e…1896              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x000f, t01=0x0116}
0x1896…18b8              Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,=W'3',MODP50«, t00=0x000f, t01=0x012e}
0x18b8…18ca              Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x000f, t01=0x0150}
0x18ca…18d8              Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x000f, t01=0x0162}
0x18d8…18fe              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000f, t01=0x0170}
0x18fe…190a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0008}
0x190a…191a              Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x0014}
0x191a…1942              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x0024}
0x1942…1956              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0010, t01=0x004c}
0x1956…196c              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0010, t01=0x0060}
0x196c…1982              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0010, t01=0x0076}
0x1982…1998              Head {h00=0x0012, h01=0x0050, text=»KVIT     PROC «, t00=0x0010, t01=0x008c}
0x1998…19aa              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00a2}
0x19aa…19b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b4…19e6              Head {h00=0x002e, h01=0x0050, text=»**         KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x00be}
0x19e6…1a10              Head {h00=0x0026, h01=0x0050, text=»**          ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x00f0}
0x1a10…1a1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011a}
0x1a1a…1a2c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0124}
0x1a2c…1a5c              Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0010, t01=0x0136}
0x1a5c…1a92              Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0010, t01=0x0166}
0x1a92…1abc              Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x000c}
0x1abc…1af6              Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x0036}
0x1af6…1b10              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x0070}
0x1b10…1b5c              Head {h00=0x0048, h01=0x0050, text=»         PERF  WRITJT,=W'1'                  WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x008a}
0x1b5c…1b76              Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0011, t01=0x00d6}
0x1b76…1b8a              Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0011, t01=0x00f0}
0x1b8a…1bac              Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0011, t01=0x0104}
0x1bac…1bc6              Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C' ' «, t00=0x0011, t01=0x0126}
0x1bc6…1bde              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0011, t01=0x0140}
0x1bde…1c04              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0011, t01=0x0158}
0x1c04…1c10              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x017e}
0x1c10…1c20              Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0011, t01=0x018a}
0x1c20…1c48              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x000a}
0x1c48…1c5c              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0012, t01=0x0032}
0x1c5c…1c72              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0012, t01=0x0046}
0x1c72…1c88              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0012, t01=0x005c}
0x1c88…1c9e              Head {h00=0x0012, h01=0x0050, text=»ENTER    PROC «, t00=0x0012, t01=0x0072}
0x1c9e…1cb0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0088}
0x1cb0…1cba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cba…1d02              Head {h00=0x0044, h01=0x0050, text=»**       ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x00a4}
0x1d02…1d24              Head {h00=0x001e, h01=0x0050, text=»**       ENTERED ON SCREEN«, t00=0x0012, t01=0x00ec}
0x1d24…1d2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010e}
0x1d2e…1d54              Head {h00=0x0022, h01=0x0050, text=»**       1     ANY PAGE TWO ? «, t00=0x0012, t01=0x0118}
0x1d54…1d5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d5e…1da0              Head {h00=0x003e, h01=0x0050, text=»**       2     FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0012, t01=0x0148}
0x1da0…1daa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1daa…1dd6 (19, 0, 400) Head {h00=0x0028, h01=0x0050, text=»**       3     FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x0004}
0x1dd6…1de0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de0…1e14              Head {h00=0x0030, h01=0x0050, text=»**       AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x003a}
0x1e14…1e4e              Head {h00=0x0036, h01=0x0050, text=»**       WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x006e}
0x1e4e…1e58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e58…1e6a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00b2}
0x1e6a…1e96              Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x00c4}
0x1e96…1eb0              Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0013, t01=0x00f0}
0x1eb0…1eca              Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0013, t01=0x010a}
0x1eca…1ef2              Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0013, t01=0x0124}
0x1ef2…1f00              Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0013, t01=0x014c}
0x1f00…1f2a              Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0013, t01=0x015a}
0x1f2a…1f3e              Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0013, t01=0x0184}
0x1f3e…1f54              Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x0008}
0x1f54…1f68              Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x001e}
0x1f68…1f84              Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x0032}
0x1f84…1fb0              Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01 IF LINE 91 «, t00=0x0014, t01=0x004e}
0x1fb0…1fcc              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0014, t01=0x007a}
0x1fcc…1fe6              Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTOK«, t00=0x0014, t01=0x0096}
0x1fe6…2008              Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'4',ENTOK«, t00=0x0014, t01=0x00b0}
0x2008…2016              Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0014, t01=0x00d2}
0x2016…203c              Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0014, t01=0x00e0}
0x203c…2064              Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,=W'3' RESET SCREEN«, t00=0x0014, t01=0x0106}
0x2064…207c              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0014, t01=0x012e}
0x207c…208c              Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0014, t01=0x0146}
0x208c…20b4              Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0014, t01=0x0156}
0x20b4…20c2              Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0014, t01=0x017e}
0x20c2…20e2              Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0014, t01=0x018c}
0x20e2…20fa              Head {h00=0x0014, h01=0x0050, text=»*     GET PAGE 2«, t00=0x0015, t01=0x001c}
0x20fa…2116              Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x0034}
0x2116…212c              Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x0050}
0x212c…2146              Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x0066}
0x2146…2160              Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0015, t01=0x0080}
0x2160…217c              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0015, t01=0x009a}
0x217c…218c              Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x00b6}
0x218c…2196              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c6}
0x2196…21a4              Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x00d0}
0x21a4…21b8              Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0015, t01=0x00de}
0x21b8…21cc              Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x00f2}
0x21cc…21de              Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0015, t01=0x0106}
0x21de…21f2              Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x0118}
0x21f2…220e              Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0015, t01=0x012c}
0x220e…222e              Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01«, t00=0x0015, t01=0x0148}
0x222e…224a              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0015, t01=0x0168}
0x224a…225a              Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x0184}
0x225a…2284 (22, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0016, t01=0x0004}
0x2284…2292              Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x002e}
0x2292…22b2              Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x003c}
0x22b2…22dc              Head {h00=0x0026, h01=0x0050, text=»*     AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x005c}
0x22dc…22f6              Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x0086}
0x22f6…2310              Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0016, t01=0x00a0}
0x2310…232c              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x00ba}
0x232c…233c              Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x00d6}
0x233c…2346              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2346…2354              Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0016, t01=0x00f0}
0x2354…2374              Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0016, t01=0x00fe}
0x2374…239e              Head {h00=0x0026, h01=0x0050, text=»*     AFTER PAGE 2, GET LAST PAGE «, t00=0x0016, t01=0x011e}
0x239e…23b8              Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0016, t01=0x0148}
0x23b8…23d2              Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x0016, t01=0x0162}
0x23d2…23ee              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x017c}
0x23ee…23fe              Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x0008}
0x23fe…2408              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0018}
0x2408…2416              Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x0022}
0x2416…2436              Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN3,ENT40«, t00=0x0017, t01=0x0030}
0x2436…2456              Head {h00=0x001c, h01=0x0050, text=»*     FIRST TIME PAGE 3 «, t00=0x0017, t01=0x0050}
0x2456…246a              Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0017, t01=0x0070}
0x246a…247e              Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x0084}
0x247e…248e              Head {h00=0x000c, h01=0x0050, text=» B ENT40«, t00=0x0017, t01=0x0098}
0x248e…2498              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a8}
0x2498…24a6              Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x00b2}
0x24a6…24c2              Head {h00=0x0018, h01=0x0050, text=»*     CORRECT PAGE 3«, t00=0x0017, t01=0x00c0}
0x24c2…24d4              Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0017, t01=0x00dc}
0x24d4…24e8              Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x00ee}
0x24e8…2500              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0017, t01=0x0102}
0x2500…251e              Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0017, t01=0x011a}
0x251e…2538              Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0017, t01=0x0138}
0x2538…2554              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0017, t01=0x0152}
0x2554…2564              Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x016e}
0x2564…256e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017e}
0x256e…257c              Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0017, t01=0x0188}
0x257c…2592              Head {h00=0x0012, h01=0x0050, text=»*     FINISHED«, t00=0x0018, t01=0x0008}
0x2592…25ae              Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0018, t01=0x001e}
0x25ae…25b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003a}
0x25b8…25c6              Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0018, t01=0x0044}
0x25c6…25ec              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0018, t01=0x0052}
0x25ec…25f8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0078}
0x25f8…2606              Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x0084}
0x2606…262e              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x0092}
0x262e…263a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00ba}
0x263a…2644              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2644…265a              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0018, t01=0x00d0}
0x265a…2670              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0018, t01=0x00e6}
0x2670…268e              Head {h00=0x001a, h01=0x0050, text=»FMTNXT  PROC  FORMAL1 «, t00=0x0018, t01=0x00fc}
0x268e…26aa              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0018, t01=0x011a}
0x26aa…26b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0136}
0x26b4…26f2              Head {h00=0x003a, h01=0x0050, text=»**         FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0018, t01=0x0140}
0x26f2…271e              Head {h00=0x0028, h01=0x0050, text=»**         TRANSTYPES 8,9,51 AND 53 «, t00=0x0018, t01=0x017e}
0x271e…2744              Head {h00=0x0022, h01=0x0050, text=»**       (DEX       8,9,21,23)«, t00=0x0019, t01=0x001a}
0x2744…274e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x274e…276a              Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0019, t01=0x004a}
0x276a…27a2              Head {h00=0x0034, h01=0x0050, text=»         CBNE  FORMAL1,CBIN1,NXT10     INDEX 1: «, t00=0x0019, t01=0x0066}
0x27a2…27d8              Head {h00=0x0032, h01=0x0050, text=»         MOVE  GSWBIN1,CBIN1           TYPE 8 «, t00=0x0019, t01=0x009e}
0x27d8…2804              Head {h00=0x0028, h01=0x0050, text=»         CBE   GTREGDEX,=W'8',NXT10 «, t00=0x0019, t01=0x00d4}
0x2804…283a              Head {h00=0x0032, h01=0x0050, text=»         MOVE  GSWBIN1,CBIN2           TYPE 9 «, t00=0x0019, t01=0x0100}
0x283a…2848              Head {h00=0x000a, h01=0x0050, text=»NXT10 «, t00=0x0019, t01=0x0136}
0x2848…2880              Head {h00=0x0034, h01=0x0050, text=»         CBE   FORMAL1,CBIN1,NXTATT    INDEX 2: «, t00=0x0019, t01=0x0144}
0x2880…28a2              Head {h00=0x001e, h01=0x0050, text=» CBNE FORMAL1,CBIN2,NXT20 «, t00=0x0019, t01=0x017c}
0x28a2…28e0              Head {h00=0x003a, h01=0x0050, text=»         MOVE  GSWBIN1,CBIN3           TYPE 51,PAGE 2 «, t00=0x001a, t01=0x000e}
0x28e0…2902              Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXT20«, t00=0x001a, t01=0x004c}
0x2902…293e              Head {h00=0x0038, h01=0x0050, text=»        MOVE  GSWBIN1,CBIN4           TYPE 53,PAGE 2«, t00=0x001a, t01=0x006e}
0x293e…294c              Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x001a, t01=0x00aa}
0x294c…2984              Head {h00=0x0034, h01=0x0050, text=»         CBNE  FORMAL1,CBIN3,NXTATT    INDEX 3: «, t00=0x001a, t01=0x00b8}
0x2984…29c2              Head {h00=0x003a, h01=0x0050, text=»         MOVE  GSWBIN1,CBIN5           TYPE 51,PAGE 3 «, t00=0x001a, t01=0x00f0}
0x29c2…29f0              Head {h00=0x002a, h01=0x0050, text=»         CBE   GTREGDEX,=W'21',NXTATT «, t00=0x001a, t01=0x012e}
0x29f0…2a2e              Head {h00=0x003a, h01=0x0050, text=»         MOVE  GSWBIN1,CBIN6           TYPE 53,PAGE 3 «, t00=0x001a, t01=0x015c}
0x2a2e…2a3c              Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x000a}
0x2a3c…2a58              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x0018}
0x2a58…2a6c              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x001b, t01=0x0034}
0x2a6c…2a82              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x001b, t01=0x0048}
0x2a82…2a90              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x005e}
0x2a90…2aa8              Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001b, t01=0x006c}
0x2aa8…2ac4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0084}
0x2ac4…2ace              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a0}
0x2ace…2b02              Head {h00=0x0030, h01=0x0050, text=»*          HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001b, t01=0x00aa}
0x2b02…2b0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00de}
0x2b0c…2b28              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00e8}
0x2b28…2b3e              Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE,  C«, t00=0x001b, t01=0x0104}
0x2b3e…2b68              Head {h00=0x0026, h01=0x0050, text=»  CYK1,CYK2,CYKNOK,CYK4,CYKNOK,  C«, t00=0x001b, t01=0x011a}
0x2b68…2b92              Head {h00=0x0026, h01=0x0050, text=»  CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001b, t01=0x0144}
0x2b92…2ba4              Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001b, t01=0x016e}
0x2ba4…2bb2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0180}
0x2bb2…2bbe              Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001b, t01=0x018e}
0x2bbe…2bda              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x000a}
0x2bda…2be4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0026}
0x2be4…2c16              Head {h00=0x002e, h01=0x0050, text=»**          CYK1 - START OF CYCLE FUNCTION«, t00=0x001c, t01=0x0030}
0x2c16…2c20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0062}
0x2c20…2c3c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x006c}
0x2c3c…2c62              Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001c, t01=0x0088}
0x2c62…2c8a              Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001c, t01=0x00ae}
0x2c8a…2ca0              Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001c, t01=0x00d6}
0x2ca0…2cc6              Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001c, t01=0x00ec}
0x2cc6…2cf0              Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001c, t01=0x0112}
0x2cf0…2d04              Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001c, t01=0x013c}
0x2d04…2d14              Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001c, t01=0x0150}
0x2d14…2d24              Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001c, t01=0x0160}
0x2d24…2d36              Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x0170}
0x2d36…2d44              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0182}
0x2d44…2d50              Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001c, t01=0x0190}
0x2d50…2d6c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x000c}
0x2d6c…2d76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0028}
0x2d76…2da8              Head {h00=0x002e, h01=0x0050, text=»**         CYK2 - START OF STABEL FUNCTION«, t00=0x001d, t01=0x0032}
0x2da8…2db2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0064}
0x2db2…2dce              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x006e}
0x2dce…2df4              Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001d, t01=0x008a}
0x2df4…2e1c              Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001d, t01=0x00b0}
0x2e1c…2e32              Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001d, t01=0x00d8}
0x2e32…2e58              Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001d, t01=0x00ee}
0x2e58…2e82              Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001d, t01=0x0114}
0x2e82…2e96              Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x013e}
0x2e96…2ea6              Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x0152}
0x2ea6…2eb6              Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001d, t01=0x0162}
0x2eb6…2ec8              Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x0172}
0x2ec8…2ed6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0184}
0x2ed6…2ee2 (30, 0, 400) Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x0004}
0x2ee2…2efe              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0010}
0x2efe…2f08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002c}
0x2f08…2f3a              Head {h00=0x002e, h01=0x0050, text=»*          CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001e, t01=0x0036}
0x2f3a…2f44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0068}
0x2f44…2f60              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0072}
0x2f60…2f7c              Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001e, t01=0x008e}
0x2f7c…2f98              Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001e, t01=0x00aa}
0x2f98…2fce              Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001e, t01=0x00c6}
0x2fce…3010              Head {h00=0x003e, h01=0x0050, text=»         SET     TTPSEFLG                  INDICATE BREAK «, t00=0x001e, t01=0x00fc}
0x3010…302c              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001e, t01=0x013e}
0x302c…304a              Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001e, t01=0x015a}
0x304a…305e              Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001e, t01=0x0178}
0x305e…3088              Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001e, t01=0x018c}
0x3088…309c              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x001f, t01=0x0026}
0x309c…30ac              Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x003a}
0x30ac…30bc              Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x001f, t01=0x004a}
0x30bc…30ce              Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x005a}
0x30ce…30dc              Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x001f, t01=0x006c}
0x30dc…30f0              Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x001f, t01=0x007a}
0x30f0…3100              Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x008e}
0x3100…310e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x009e}
0x310e…311a              Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x001f, t01=0x00ac}
0x311a…3136              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x00b8}
0x3136…3140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x3140…316e              Head {h00=0x002a, h01=0x0050, text=»**         CYK9 - CLEAR ARKIV KONTO NR«, t00=0x001f, t01=0x00de}
0x316e…3178              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010c}
0x3178…3194              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0116}
0x3194…31b2              Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x001f, t01=0x0132}
0x31b2…31dc              Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x001f, t01=0x0150}
0x31dc…31ec              Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x017a}
0x31ec…31fc              Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x001f, t01=0x018a}
0x31fc…320e              Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x000a}
0x320e…321c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x001c}
0x321c…322a              Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0020, t01=0x002a}
0x322a…3246              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0038}
0x3246…3250              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0054}
0x3250…3278              Head {h00=0x0024, h01=0x0050, text=»**          CYEND - END OF CYCLE«, t00=0x0020, t01=0x005e}
0x3278…3282              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0086}
0x3282…32ae              Head {h00=0x0028, h01=0x0050, text=»**       WRITE TOTAL LINE ON VOUCHER«, t00=0x0020, t01=0x0090}
0x32ae…32b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00bc}
0x32b8…32d4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00c6}
0x32d4…3302              Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0020, t01=0x00e2}
0x3302…3320              Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0020, t01=0x0110}
0x3320…335a              Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0020, t01=0x012e}
0x335a…336a              Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0020, t01=0x0168}
0x336a…33a8              Head {h00=0x003a, h01=0x0050, text=»         CLEAR   TTSUMFLG                  CLEAR FLAGS«, t00=0x0020, t01=0x0178}
0x33a8…33c8              Head {h00=0x001c, h01=0x0050, text=»         CLEAR   GTCYFLG«, t00=0x0021, t01=0x0026}
0x33c8…33dc              Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0021, t01=0x0046}
0x33dc…33fe              Head {h00=0x001e, h01=0x0050, text=»         CLEAR   TTTSTFLG «, t00=0x0021, t01=0x005a}
0x33fe…3412              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0021, t01=0x007c}
0x3412…3430              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0021, t01=0x0090}
0x3430…3462              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0021, t01=0x00ae}
0x3462…3484              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL   '«, t00=0x0021, t01=0x00e0}
0x3484…34b0              Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0021, t01=0x0102}
0x34b0…34e0              Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0021, t01=0x012e}
0x34e0…3524              Head {h00=0x0040, h01=0x0050, text=»         DSC0    KVOUCH,RLEAS                RELEASE VOUCHER«, t00=0x0021, t01=0x015e}
0x3524…3554              Head {h00=0x002c, h01=0x0050, text=» TBT C167FLG,CYEND15 T=NO WRITE JOURNAL «, t00=0x0022, t01=0x0012}
0x3554…3570              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0022, t01=0x0042}
0x3570…3580              Head {h00=0x000c, h01=0x0050, text=»CYEND15 «, t00=0x0022, t01=0x005e}
0x3580…35ba              Head {h00=0x0036, h01=0x0050, text=»         CBL     GTREGNR,=D'18',CYEND20    CHECKS?«, t00=0x0022, t01=0x006e}
0x35ba…35dc              Head {h00=0x001e, h01=0x0050, text=»         SET     TTTSTFLG «, t00=0x0022, t01=0x00a8}
0x35dc…3620              Head {h00=0x0040, h01=0x0050, text=»         MOVE    GTREGF(CBIN4),GTSUM       FIND TOTAL VALUE «, t00=0x0022, t01=0x00ca}
0x3620…365e              Head {h00=0x003a, h01=0x0050, text=»         PERF    WCHECK                    WRITE CHECK«, t00=0x0022, t01=0x010e}
0x365e…366e              Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0022, t01=0x014c}
0x366e…3686              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0022, t01=0x015c}
0x3686…36a8              Head {h00=0x001e, h01=0x0050, text=»         CLEAR   TTCY2FLG «, t00=0x0022, t01=0x0174}
0x36a8…36bc              Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0023, t01=0x0008}
0x36bc…36ce              Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0023, t01=0x001c}
0x36ce…36de              Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0023, t01=0x002e}
0x36de…3720              Head {h00=0x003e, h01=0x0050, text=»         MOVE    SPBINW4,=W'12'             SET ERRORCODE «, t00=0x0023, t01=0x003e}
0x3720…373e              Head {h00=0x001a, h01=0x0050, text=»         PERF    SPERR«, t00=0x0023, t01=0x0080}
0x373e…3762              Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0023, t01=0x009e}
0x3762…3772              Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0023, t01=0x00c2}
0x3772…379c              Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0023, t01=0x00d2}
0x379c…37b0              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0023, t01=0x00fc}
0x37b0…37c0              Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0023, t01=0x0110}
0x37c0…37d0              Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0023, t01=0x0120}
0x37d0…37e0              Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0023, t01=0x0130}
0x37e0…37f2              Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0023, t01=0x0140}
0x37f2…37fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x37fc…380a              Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0023, t01=0x015c}
0x380a…3826              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0023, t01=0x016a}
0x3826…3832              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x0186}
0x3832…3840 (36, 0, 400) Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0024, t01=0x0004}
0x3840…385c              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0024, t01=0x0012}
0x385c…3868              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x002e}
0x3868…3876              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x003a}
0x3876…388c              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0024, t01=0x0048}
0x388c…38a2              Head {h00=0x0012, h01=0x0050, text=»CYKINT   PROC «, t00=0x0024, t01=0x005e}
0x38a2…38be              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x0074}
0x38be…38c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0090}
0x38c8…38fa              Head {h00=0x002e, h01=0x0050, text=»**          CYKINT - START OR END OF CYCLE«, t00=0x0024, t01=0x009a}
0x38fa…3904              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00cc}
0x3904…393e              Head {h00=0x0036, h01=0x0050, text=»**       START   SET RELEVANT INFORMATION AND READ«, t00=0x0024, t01=0x00d6}
0x393e…397a              Head {h00=0x0038, h01=0x0050, text=»**               ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0024, t01=0x0110}
0x397a…3984              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x3984…39b8              Head {h00=0x0030, h01=0x0050, text=»**       END     CLEAR RELEVANT INFORMATION «, t00=0x0024, t01=0x0156}
0x39b8…39c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018a}
0x39c2…39de (37, 0, 400) Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x0004}
0x39de…3a0e              Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0025, t01=0x0020}
0x3a0e…3a54              Head {h00=0x0042, h01=0x0050, text=»         TBT     TTPSEFLG,CY05            TRUE- IN PAUSE STATE«, t00=0x0025, t01=0x0050}
0x3a54…3a6c              Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0025, t01=0x0096}
0x3a6c…3a78              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00ae}
0x3a78…3a84              Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0025, t01=0x00ba}
0x3a84…3a98              Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0025, t01=0x00c6}
0x3a98…3aa4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00da}
0x3aa4…3ab0              Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0025, t01=0x00e6}
0x3ab0…3adc              Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0025, t01=0x00f2}
0x3adc…3b00              Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0025, t01=0x011e}
0x3b00…3b44              Head {h00=0x0040, h01=0x0050, text=»         TBF     TTPSEFLG,CY30             TRUE- PAUSE STATE«, t00=0x0025, t01=0x0142}
0x3b44…3b84              Head {h00=0x003c, h01=0x0050, text=»         MOVE    GTSUM,GTCYSUM             GET SAVED SUM«, t00=0x0025, t01=0x0186}
0x3b84…3bce              Head {h00=0x0046, h01=0x0050, text=»         MOVE    GTREGF(CBIN9),TTARKSAV    GET SAVED ARKIV KNT.NR «, t00=0x0026, t01=0x0036}
0x3bce…3bee              Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0026, t01=0x0080}
0x3bee…3c1e              Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0026, t01=0x00a0}
0x3c1e…3c3c              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0026, t01=0x00d0}
0x3c3c…3c48              Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0026, t01=0x00ee}
0x3c48…3c66              Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0026, t01=0x00fa}
0x3c66…3cac              Head {h00=0x0042, h01=0x0050, text=»         CLEAR   TTPSEFLG                  OUT OF PAUSE STATE «, t00=0x0026, t01=0x0118}
0x3cac…3cbc              Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0026, t01=0x015e}
0x3cbc…3cc8              Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0026, t01=0x016e}
0x3cc8…3cfa              Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0026, t01=0x017a}
0x3cfa…3d16              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0027, t01=0x001c}
0x3d16…3d3a              Head {h00=0x0020, h01=0x0050, text=»         MOVE    GTSUM,=D'0'«, t00=0x0027, t01=0x0038}
0x3d3a…3d56              Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0027, t01=0x005c}
0x3d56…3d7c              Head {h00=0x0022, h01=0x0050, text=»         MOVE    TTLINNR,=D'1'«, t00=0x0027, t01=0x0078}
0x3d7c…3dc8              Head {h00=0x0048, h01=0x0050, text=»         PERF    FRMXSP,CBIN11              GET FORMAT FOR CYCLE INF«, t00=0x0027, t01=0x009e}
0x3dc8…3de6              Head {h00=0x001a, h01=0x0050, text=»         SET SPPROMPT «, t00=0x0027, t01=0x00ea}
0x3de6…3e32              Head {h00=0x0048, h01=0x0050, text=»         PERF    SPCLRA                    WRITE AND READ ON SCREEN «, t00=0x0027, t01=0x0108}
0x3e32…3e52              Head {h00=0x001c, h01=0x0050, text=»         CLEAR SPPROMPT «, t00=0x0027, t01=0x0154}
0x3e52…3e82              Head {h00=0x002c, h01=0x0050, text=»         IB      SPBINW2,CY45,CY45,CY50 «, t00=0x0027, t01=0x0174}
0x3e82…3e9a              Head {h00=0x0014, h01=0x0050, text=»CY40   ERROR KEY«, t00=0x0028, t01=0x0014}
0x3e9a…3eb6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0028, t01=0x002c}
0x3eb6…3ed4              Head {h00=0x001a, h01=0x0050, text=»         PERF    SPERR«, t00=0x0028, t01=0x0048}
0x3ed4…3ef2              Head {h00=0x001a, h01=0x0050, text=»         B       CY30 «, t00=0x0028, t01=0x0066}
0x3ef2…3f04              Head {h00=0x000e, h01=0x0050, text=»CY45   MAK«, t00=0x0028, t01=0x0084}
0x3f04…3f1c              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0028, t01=0x0096}
0x3f1c…3f34              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0028, t01=0x00ae}
0x3f34…3f44              Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0028, t01=0x00c6}
0x3f44…3f50              Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0028, t01=0x00d6}
0x3f50…3f70              Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0028, t01=0x00e2}
0x3f70…3f8c              Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0028, t01=0x0102}
0x3f8c…3f98              Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0028, t01=0x011e}
0x3f98…3fb6              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0028, t01=0x012a}
0x3fb6…3fca              Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0028, t01=0x0148}
0x3fca…3ffa              Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0028, t01=0x015c}
0x3ffa…4016              Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x0028, t01=0x018c}
0x4016…403a              Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x0029, t01=0x0018}
0x403a…4058              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x0029, t01=0x003c}
0x4058…4076              Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0029, t01=0x005a}
0x4076…4092              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x0029, t01=0x0078}
0x4092…40ac              Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0029, t01=0x0094}
0x40ac…40c8              Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0029, t01=0x00ae}
0x40c8…40e2              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0029, t01=0x00ca}
0x40e2…40fe              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0029, t01=0x00e4}
0x40fe…410a              Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x0029, t01=0x0100}
0x410a…4120              Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0029, t01=0x010c}
0x4120…413a              Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x0029, t01=0x0122}
0x413a…4152              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x0029, t01=0x013c}
0x4152…415e              Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x0029, t01=0x0154}
0x415e…4172              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0029, t01=0x0160}
0x4172…4188              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0029, t01=0x0174}
0x4188…4196              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x018a}
0x4196…41a8              Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002a, t01=0x0008}
0x41a8…41c4              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002a, t01=0x001a}
0x41c4…41ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0036}
0x41ce…4200              Head {h00=0x002e, h01=0x0050, text=»**         CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002a, t01=0x0040}
0x4200…420a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0072}
0x420a…4224              Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002a, t01=0x007c}
0x4224…424a              Head {h00=0x0022, h01=0x0050, text=»         MOVE    GTTEXT,=C' ' «, t00=0x002a, t01=0x0096}
0x424a…426e              Head {h00=0x0020, h01=0x0050, text=»         MOVE    TTCYM,=C' '«, t00=0x002a, t01=0x00bc}
0x426e…429a              Head {h00=0x0028, h01=0x0050, text=»         MOVE    GTREGF(CBIN9),=D'0'«, t00=0x002a, t01=0x00e0}
0x429a…42be              Head {h00=0x0020, h01=0x0050, text=»         MOVE    GTSUM,=D'0'«, t00=0x002a, t01=0x010c}
0x42be…42de              Head {h00=0x001c, h01=0x0050, text=»         CLEAR   GTCYFLG«, t00=0x002a, t01=0x0130}
0x42de…4300              Head {h00=0x001e, h01=0x0050, text=»         CLEAR   TTSUMFLG «, t00=0x002a, t01=0x0150}
0x4300…4318              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002a, t01=0x0172}
0x4318…4330              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002a, t01=0x018a}
0x4330…435a              Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002b, t01=0x0012}
0x435a…4366              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x003c}
0x4366…437c              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x002b, t01=0x0048}
0x437c…4392              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x002b, t01=0x005e}
0x4392…43a6              Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002b, t01=0x0074}
0x43a6…43c2              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x0088}
0x43c2…43cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a4}
0x43cc…43fc              Head {h00=0x002c, h01=0x0050, text=»**       LSTINT - INITIATE LISTFUNCTION «, t00=0x002b, t01=0x00ae}
0x43fc…4406              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00de}
0x4406…4422              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x00e8}
0x4422…443e              Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002b, t01=0x0104}
0x443e…4466              Head {h00=0x0024, h01=0x0050, text=»         TBT     TTLSTFLG,LSTEND«, t00=0x002b, t01=0x0120}
0x4466…447a              Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002b, t01=0x0148}
0x447a…449c              Head {h00=0x001e, h01=0x0050, text=»         SET     TTSUMFLG «, t00=0x002b, t01=0x015c}
0x449c…44be              Head {h00=0x001e, h01=0x0050, text=»         SET     TTLSTFLG «, t00=0x002b, t01=0x017e}
0x44be…44fe              Head {h00=0x003c, h01=0x0050, text=»         MOVE    GTSUM,=D'0'               INITIATE SUM «, t00=0x002c, t01=0x0010}
0x44fe…454a              Head {h00=0x0048, h01=0x0050, text=»         PERF    FRMXTA,CBIN1              GET HEADER FOR TALLY ROLL«, t00=0x002c, t01=0x0050}
0x454a…4590              Head {h00=0x0042, h01=0x0050, text=»         PERF    WTALLY                    WRITE ON TALLY ROLL«, t00=0x002c, t01=0x009c}
0x4590…45ba              Head {h00=0x0026, h01=0x0050, text=»         MOVE    GTTEXT,=C'LISTE '«, t00=0x002c, t01=0x00e2}
0x45ba…45ca              Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002c, t01=0x010c}
0x45ca…45de              Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002c, t01=0x011c}
0x45de…45ec              Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002c, t01=0x0130}
0x45ec…4600              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002c, t01=0x013e}
0x4600…461c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002c, t01=0x0152}
0x461c…463e              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL   '«, t00=0x002c, t01=0x016e}
0x463e…4670              Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002c, t01=0x0190}
0x4670…4690              Head {h00=0x001c, h01=0x0050, text=»         PERF    WTALLY «, t00=0x002d, t01=0x0032}
0x4690…46ac              Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002d, t01=0x0052}
0x46ac…46ce              Head {h00=0x001e, h01=0x0050, text=»         CLEAR   TTLSTFLG «, t00=0x002d, t01=0x006e}
0x46ce…46f0              Head {h00=0x001e, h01=0x0050, text=»         CLEAR   TTSUMFLG «, t00=0x002d, t01=0x0090}
0x46f0…4716              Head {h00=0x0022, h01=0x0050, text=»         MOVE    GTTEXT,=C' ' «, t00=0x002d, t01=0x00b2}
0x4716…4724              Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002d, t01=0x00d8}
0x4724…4738              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002d, t01=0x00e6}
0x4738…475e              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002d, t01=0x00fa}
0x475e…476a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0120}
0x476a…4778              Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002d, t01=0x012c}
0x4778…47a0              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002d, t01=0x013a}
0x47a0…47b4              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x002d, t01=0x0162}
0x47b4…47ca              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x002d, t01=0x0176}
0x47ca…47e0              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x002d, t01=0x018c}
0x47e0…47f6              Head {h00=0x0012, h01=0x0050, text=»SUBTOT   PROC «, t00=0x002e, t01=0x0012}
0x47f6…4812              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002e, t01=0x0028}
0x4812…481c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0044}
0x481c…483e              Head {h00=0x001e, h01=0x0050, text=»**       SUBTOT - SUBTOTAL«, t00=0x002e, t01=0x004e}
0x483e…4848              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0070}
0x4848…4882              Head {h00=0x0036, h01=0x0050, text=»**         LISTFUNCTION-  WRITE SUBTOTAL ON TALLY «, t00=0x002e, t01=0x007a}
0x4882…488c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b4}
0x488c…48c2              Head {h00=0x0032, h01=0x0050, text=»**       CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002e, t01=0x00be}
0x48c2…48ea              Head {h00=0x0024, h01=0x0050, text=»**               WRITE SUBTOTAL «, t00=0x002e, t01=0x00f4}
0x48ea…4918              Head {h00=0x002a, h01=0x0050, text=»**               IN CYCLE-PAUSE-STATE «, t00=0x002e, t01=0x011c}
0x4918…4922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4922…493e              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x0154}
0x493e…4962              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002e, t01=0x0170}
0x4962…49a6 (47, 0, 400) Head {h00=0x0040, h01=0x0050, text=»         TBT     TTLSTFLG,SUBTLST          IN LIST FUNCTION «, t00=0x002f, t01=0x0004}
0x49a6…49cc              Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x002f, t01=0x0048}
0x49cc…49f0              Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x002f, t01=0x006e}
0x49f0…4a0a              Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x002f, t01=0x0092}
0x4a0a…4a20              Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x002f, t01=0x00ac}
0x4a20…4a32              Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x002f, t01=0x00c2}
0x4a32…4a4a              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x002f, t01=0x00d4}
0x4a4a…4a5e              Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x002f, t01=0x00ec}
0x4a5e…4a7a              Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x002f, t01=0x0100}
0x4a7a…4a8a              Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x002f, t01=0x011c}
0x4a8a…4a9e              Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x002f, t01=0x012c}
0x4a9e…4ad4              Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x002f, t01=0x0140}
0x4ad4…4b16              Head {h00=0x003e, h01=0x0050, text=»         SET     TTPSEFLG                  INDICATE BREAK «, t00=0x002f, t01=0x0176}
0x4b16…4b42              Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0030, t01=0x0028}
0x4b42…4b58              Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0030, t01=0x0054}
0x4b58…4b9c              Head {h00=0x0040, h01=0x0050, text=»         PERF    WRITVO                    WRITE SUBTOT LINE«, t00=0x0030, t01=0x006a}
0x4b9c…4bb0              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0030, t01=0x00ae}
0x4bb0…4bf4              Head {h00=0x0040, h01=0x0050, text=»         DSC0    KVOUCH,RLEAS                RELEASE VOUCHER«, t00=0x0030, t01=0x00c2}
0x4bf4…4c30              Head {h00=0x0038, h01=0x0050, text=»         MOVE    GTCYSUM,GTSUM             SAVE SUM «, t00=0x0030, t01=0x0106}
0x4c30…4c4a              Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0030, t01=0x0142}
0x4c4a…4c88              Head {h00=0x003a, h01=0x0050, text=»         MOVE    TTCYKPOS,TTLINNR          SAVE LINNR «, t00=0x0030, t01=0x015c}
0x4c88…4ca6              Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0031, t01=0x000a}
0x4ca6…4cd2              Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0031, t01=0x0028}
0x4cd2…4cec              Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0031, t01=0x0054}
0x4cec…4d08              Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0031, t01=0x006e}
0x4d08…4d22              Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0031, t01=0x008a}
0x4d22…4d3e              Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0031, t01=0x00a4}
0x4d3e…4d52              Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0031, t01=0x00c0}
0x4d52…4d64              Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0031, t01=0x00d4}
0x4d64…4d7e              Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0031, t01=0x00e6}
0x4d7e…4d8e              Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0031, t01=0x0100}
0x4d8e…4da2              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0031, t01=0x0110}
0x4da2…4dbe              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0031, t01=0x0124}
0x4dbe…4de4              Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0031, t01=0x0140}
0x4de4…4e2a              Head {h00=0x0042, h01=0x0050, text=»         PERF    WTALLY                    WRITE ON TALLY ROLL«, t00=0x0031, t01=0x0166}
0x4e2a…4e38              Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0032, t01=0x001c}
0x4e38…4e62              Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0032, t01=0x002a}
0x4e62…4e76              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0032, t01=0x0054}
0x4e76…4e86              Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0032, t01=0x0068}
0x4e86…4eac              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0032, t01=0x0078}
0x4eac…4eb8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x009e}
0x4eb8…4ec8              Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0032, t01=0x00aa}
0x4ec8…4ef0              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0032, t01=0x00ba}
0x4ef0…4f04              Head {h00=0x0010, h01=0x0050, text=»        RET «, t00=0x0032, t01=0x00e2}
0x4f04…4f12              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x00f6}
0x4f12…4f20              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0104}
0x4f20…4f30              Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0032, t01=0x0112}
0x4f30…4f4c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0032, t01=0x0122}
0x4f4c…4f56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f56…4f90              Head {h00=0x0036, h01=0x0050, text=»**         SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0032, t01=0x0148}
0x4f90…4fc4              Head {h00=0x0030, h01=0x0050, text=»**         TRANSACTIONS FROM THE INITIATING «, t00=0x0032, t01=0x0182}
0x4fc4…4fee              Head {h00=0x0026, h01=0x0050, text=»**         POINT TO THE RELEASING.«, t00=0x0033, t01=0x0026}
0x4fee…5018              Head {h00=0x0026, h01=0x0050, text=»**         FIRST TIME: INITIATING «, t00=0x0033, t01=0x0050}
0x5018…504c              Head {h00=0x0030, h01=0x0050, text=»**         LAST TIME:  WRITE SUM ON VOUCHER «, t00=0x0033, t01=0x007a}
0x504c…5056              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ae}
0x5056…5072              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x00b8}
0x5072…508e              Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0033, t01=0x00d4}
0x508e…50a6              Head {h00=0x0014, h01=0x0050, text=»*     FIRST TIME«, t00=0x0033, t01=0x00f0}
0x50a6…50da              Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0033, t01=0x0108}
0x50da…50e8              Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0033, t01=0x013c}
0x50e8…5104              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0033, t01=0x014a}
0x5104…511a              Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0033, t01=0x0166}
0x511a…5136              Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0033, t01=0x017c}
0x5136…5166              Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0034, t01=0x0008}
0x5166…5190              Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0034, t01=0x0038}
0x5190…51a0              Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0034, t01=0x0062}
0x51a0…51aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0072}
0x51aa…51c2              Head {h00=0x0014, h01=0x0050, text=»*     LAST TIME «, t00=0x0034, t01=0x007c}
0x51c2…51d0              Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0034, t01=0x0094}
0x51d0…5202              Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0034, t01=0x00a2}
0x5202…521e              Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0034, t01=0x00d4}
0x521e…523a              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0034, t01=0x00f0}
0x523a…5252              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0034, t01=0x010c}
0x5252…5260              Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0034, t01=0x0124}
0x5260…528c              Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0034, t01=0x0132}
0x528c…52b2              Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0034, t01=0x015e}
0x52b2…52cc              Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0034, t01=0x0184}
0x52cc…52f4              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0035, t01=0x000e}
0x52f4…530c              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0035, t01=0x0036}
0x530c…531a              Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0035, t01=0x004e}
0x531a…532e              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0035, t01=0x005c}
0x532e…5346              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0035, t01=0x0070}
0x5346…535a              Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0035, t01=0x0088}
0x535a…536e              Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0035, t01=0x009c}
0x536e…5390              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0035, t01=0x00b0}
0x5390…53c0              Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? «, t00=0x0035, t01=0x00d2}
0x53c0…53ce              Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0035, t01=0x0102}
0x53ce…53f6              Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0035, t01=0x0110}
0x53f6…5404              Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0035, t01=0x0138}
0x5404…5422              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0035, t01=0x0146}
0x5422…5442              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0035, t01=0x0164}
0x5442…546e              Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0035, t01=0x0184}
0x546e…5488              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0036, t01=0x0020}
0x5488…54a6              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0036, t01=0x003a}
0x54a6…54b8              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0036, t01=0x0058}
0x54b8…54d6              Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0036, t01=0x006a}
0x54d6…54f4              Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0036, t01=0x0088}
0x54f4…5510              Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0036, t01=0x00a6}
0x5510…551e              Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0036, t01=0x00c2}
0x551e…5532              Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0036, t01=0x00d0}
0x5532…5542              Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0036, t01=0x00e4}
0x5542…5568              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0036, t01=0x00f4}
0x5568…5574              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x011a}
0x5574…5582              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x0126}
0x5582…5590              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0134}
0x5590…55a2              Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0036, t01=0x0142}
0x55a2…55be              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0154}
0x55be…55c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0170}
0x55c8…55fa              Head {h00=0x002e, h01=0x0050, text=»**         DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0036, t01=0x017a}
0x55fa…5604              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001c}
0x5604…5620              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x0026}
0x5620…563e              Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0037, t01=0x0042}
0x563e…565a              Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0037, t01=0x0060}
0x565a…5678              Head {h00=0x001a, h01=0x0050, text=»*           SET DIVTR «, t00=0x0037, t01=0x007c}
0x5678…568c              Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0037, t01=0x009a}
0x568c…56a0              Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0037, t01=0x00ae}
0x56a0…56c0              Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,=W'1',DIV10«, t00=0x0037, t01=0x00c2}
0x56c0…56d4              Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0037, t01=0x00e2}
0x56d4…56e6              Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x00f6}
0x56e6…56f4              Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0037, t01=0x0108}
0x56f4…5708              Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0037, t01=0x0116}
0x5708…571a              Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x012a}
0x571a…5734              Head {h00=0x0016, h01=0x0050, text=»*     CLEAR DIVTR «, t00=0x0037, t01=0x013c}
0x5734…5742              Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0037, t01=0x0156}
0x5742…5758              Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0037, t01=0x0164}
0x5758…5774              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0037, t01=0x017a}
0x5774…5786              Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x0008}
0x5786…5790              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001a}
0x5790…57a0              Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0038, t01=0x0024}
0x57a0…57c6              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0038, t01=0x0034}
0x57c6…57d2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x005a}
0x57d2…57e2              Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0038, t01=0x0066}
0x57e2…580a              Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0038, t01=0x0076}
0x580a…5816              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x009e}
0x5816…5824              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x00aa}
0x5824…582e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x582e…5838              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c2}
0x5838…584c              Head {h00=0x0010, h01=0x0050, text=»         END«, t00=0x0038, t01=0x00cc}
0x584c…5850              Head {h00=0x4004, h01=0x0000}
0x5850…5854              00 38 00 e0                                                                                                                                                                                                                                       ┆ 8  ┆
0x5854…585c (57, 1, 8)   20 04 00 00 00 39 00 04                                                                                                                                                                                                                           ┆     9  ┆

Reduced view