|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 23824 (0x5d10)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/RGSUBS.SC«
IDENT RGSUBS 03.02.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
EXT CYTRP
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)
TBT GTSPECTR,MODPNOK NOT TR 50...
PERF CYTRP
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)
TBT GTSPECTR,KVITNOK NOT TR50...
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
CBE GTREGDEX,=W'9',NXT10
MOVE GSWBIN1,CBIN3 TYPE 51
CBE GTREGDEX,=W'21',NXT10
MOVE GSWBIN1,CBIN4 TYPE 53
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
*
********************
TBT GTSPECTR,CYKNOK NOT TR50...
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
PERF WRITJT,=W'15'
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
MOVE GSWSTR9,=C'TOTAL '
TBF GTSUBFLG,SUM55
MOVE GSWSTR9,=C'SUBTOTAL '
SUM55
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 GTSPECTR,DIVTRNOK NOT ALLOWED, TR50...
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
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUBS 03.02.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…043e Head {h00=0x000e, h01=0x0050, text=» EXT CYTRP«, t00=0x0002, t01=0x0110}
0x043e…045e Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x0122}
0x045e…046c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0142}
0x046c…047e Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x0150}
0x047e…049a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0162}
0x049a…04a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017e}
0x04a4…04e2 Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x0188}
0x04e2…04ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0036}
0x04ec…0526 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0003, t01=0x0040}
0x0526…0540 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x007a}
0x0540…0570 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x0094}
0x0570…05a6 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x00c4}
0x05a6…05e0 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x00fa}
0x05e0…060e Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x0134}
0x060e…063c Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x0162}
0x063c…067e Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x0190}
0x067e…06ae Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0004, t01=0x0042}
0x06ae…06da Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0072}
0x06da…06e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…06f2 Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x00a8}
0x06f2…070c Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x00b6}
0x070c…0724 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x00d0}
0x0724…0740 Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x00e8}
0x0740…0756 Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x0104}
0x0756…0764 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x011a}
0x0764…0790 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x0128}
0x0790…07a6 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x0154}
0x07a6…07d0 Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x016a}
0x07d0…07e8 (5, 0, 400) Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0005, t01=0x0004}
0x07e8…0810 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0005, t01=0x001c}
0x0810…082a Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0005, t01=0x0044}
0x082a…0846 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0005, t01=0x005e}
0x0846…085a Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x007a}
0x085a…086c Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x008e}
0x086c…088c Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0005, t01=0x00a0}
0x088c…08b0 Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x00c0}
0x08b0…08c6 Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x00e4}
0x08c6…08f4 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x00fa}
0x08f4…090a Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x0128}
0x090a…092e Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x013e}
0x092e…0952 Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x0162}
0x0952…097a Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'5' NOT ALLOWED «, t00=0x0005, t01=0x0186}
0x097a…098e Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0006, t01=0x001e}
0x098e…09a0 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0006, t01=0x0032}
0x09a0…09ae Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0006, t01=0x0044}
0x09ae…09e0 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0006, t01=0x0052}
0x09e0…0a0c Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x0084}
0x0a0c…0a2a Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x00b0}
0x0a2a…0a56 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x00ce}
0x0a56…0a78 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x00fa}
0x0a78…0aa4 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x011c}
0x0aa4…0ad0 Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x0148}
0x0ad0…0afc Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x0174}
0x0afc…0b1e Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0007, t01=0x0010}
0x0b1e…0b32 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0007, t01=0x0032}
0x0b32…0b50 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0007, t01=0x0046}
0x0b50…0b6e Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0007, t01=0x0064}
0x0b6e…0b86 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x0082}
0x0b86…0b94 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x009a}
0x0b94…0bac Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x00a8}
0x0bac…0bd2 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x00c0}
0x0bd2…0bde Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00e6}
0x0bde…0bee Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x00f2}
0x0bee…0c06 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0102}
0x0c06…0c2e Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x011a}
0x0c2e…0c3a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0142}
0x0c3a…0c48 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x014e}
0x0c48…0c56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x015c}
0x0c56…0c68 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x016a}
0x0c68…0c84 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x017c}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8e…0cc8 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0008, t01=0x0012}
0x0cc8…0cf4 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0008, t01=0x004c}
0x0cf4…0cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0078}
0x0cfe…0d1a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0082}
0x0d1a…0d4a Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x009e}
0x0d4a…0d70 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x00ce}
0x0d70…0d8c Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x00f4}
0x0d8c…0da6 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x0110}
0x0da6…0dbe Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x012a}
0x0dbe…0dcc Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x0142}
0x0dcc…0dee Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x0150}
0x0dee…0e02 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x0172}
0x0e02…0e1c Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x0186}
0x0e1c…0e40 Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0009, t01=0x0010}
0x0e40…0e72 Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0009, t01=0x0034}
0x0e72…0ea0 Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0009, t01=0x0066}
0x0ea0…0ec0 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x0094}
0x0ec0…0ef2 Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x00b4}
0x0ef2…0f00 Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x00e6}
0x0f00…0f2a Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x00f4}
0x0f2a…0f3e Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x011e}
0x0f3e…0f58 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x0132}
0x0f58…0f6c Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x014c}
0x0f6c…0f8c Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x0160}
0x0f8c…0fa2 Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x0180}
0x0fa2…0fc4 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x000a, t01=0x0008}
0x0fc4…0ff6 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x000a, t01=0x002a}
0x0ff6…1024 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x000a, t01=0x005c}
0x1024…1042 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x008a}
0x1042…1052 Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x00a8}
0x1052…1060 Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x00b8}
0x1060…1072 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x00c6}
0x1072…109c Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'18',KON40 SLUT KEY«, t00=0x000a, t01=0x00d8}
0x109c…10c8 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,=W'4',KON30 ENTER KEY «, t00=0x000a, t01=0x0102}
0x10c8…10d6 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x012e}
0x10d6…10fc Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x013c}
0x10fc…111a Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x0162}
0x111a…1146 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x0180}
0x1146…1166 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000b, t01=0x001c}
0x1166…118c Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000b, t01=0x003c}
0x118c…11ac Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x0062}
0x11ac…11c6 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x0082}
0x11c6…11e4 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x009c}
0x11e4…11fe Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x00ba}
0x11fe…120c Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x00d4}
0x120c…1218 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00e2}
0x1218…1226 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x00ee}
0x1226…1234 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00fc}
0x1234…1246 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x010a}
0x1246…1262 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x011c}
0x1262…126c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126c…12b0 Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x0142}
0x12b0…12ee Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x0186}
0x12ee…1314 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000c, t01=0x0034}
0x1314…133a Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000c, t01=0x005a}
0x133a…1344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1344…135c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x008a}
0x135c…137e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x00a2}
0x137e…13aa Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x00c4}
0x13aa…13d6 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x00f0}
0x13d6…13e4 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x011c}
0x13e4…1416 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x012a}
0x1416…1444 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x015c}
0x1444…1464 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x018a}
0x1464…148e Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000d, t01=0x001a}
0x148e…14b0 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000d, t01=0x0044}
0x14b0…14d4 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000d, t01=0x0066}
0x14d4…14f8 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x008a}
0x14f8…151e Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x00ae}
0x151e…1546 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x00d4}
0x1546…1568 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x00fc}
0x1568…159a Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x011e}
0x159a…15a8 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x0150}
0x15a8…15c6 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x015e}
0x15c6…15d2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x017c}
0x15d2…15e0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0188}
0x15e0…15ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0008}
0x15ee…1604 Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000e, t01=0x0016}
0x1604…1616 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x002c}
0x1616…1620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x1620…1658 Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000e, t01=0x0048}
0x1658…1680 Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x0080}
0x1680…16b6 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x00a8}
0x16b6…16e6 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x00de}
0x16e6…1710 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x010e}
0x1710…171a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0138}
0x171a…172c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0142}
0x172c…175c Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x0154}
0x175c…1778 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x0184}
0x1778…17ae Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000f, t01=0x0010}
0x17ae…17e8 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000f, t01=0x0046}
0x17e8…1812 Head {h00=0x0026, h01=0x0050, text=» TBT GTSPECTR,MODPNOK NOT TR 50...«, t00=0x000f, t01=0x0080}
0x1812…1826 Head {h00=0x0010, h01=0x0050, text=» PERF CYTRP «, t00=0x000f, t01=0x00aa}
0x1826…183e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x00be}
0x183e…1858 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x00d6}
0x1858…1878 Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x00f0}
0x1878…18bc Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x0110}
0x18bc…18ce Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x0154}
0x18ce…18e6 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x000f, t01=0x0166}
0x18e6…1908 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,=W'3',MODP50«, t00=0x000f, t01=0x017e}
0x1908…191a Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x0010, t01=0x0010}
0x191a…1928 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x0010, t01=0x0022}
0x1928…194e Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0010, t01=0x0030}
0x194e…195a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0056}
0x195a…196a Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x0062}
0x196a…1992 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x0072}
0x1992…19a6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x009a}
0x19a6…19bc Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00ae}
0x19bc…19d2 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00c4}
0x19d2…19e8 Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x00da}
0x19e8…19fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00f0}
0x19fa…1a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0102}
0x1a04…1a36 Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x010c}
0x1a36…1a60 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x013e}
0x1a60…1a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0168}
0x1a6a…1a7c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0172}
0x1a7c…1aac Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0010, t01=0x0184}
0x1aac…1ae2 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0011, t01=0x0024}
0x1ae2…1b0c Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x005a}
0x1b0c…1b46 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x0084}
0x1b46…1b70 Head {h00=0x0026, h01=0x0050, text=» TBT GTSPECTR,KVITNOK NOT TR50... «, t00=0x0011, t01=0x00be}
0x1b70…1b8a Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x00e8}
0x1b8a…1bd6 Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x0102}
0x1bd6…1bf0 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0011, t01=0x014e}
0x1bf0…1c04 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0011, t01=0x0168}
0x1c04…1c26 Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0011, t01=0x017c}
0x1c26…1c40 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C' ' «, t00=0x0012, t01=0x000e}
0x1c40…1c58 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0012, t01=0x0028}
0x1c58…1c7e Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0012, t01=0x0040}
0x1c7e…1c8a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0066}
0x1c8a…1c9a Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0012, t01=0x0072}
0x1c9a…1cc2 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x0082}
0x1cc2…1cd6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00aa}
0x1cd6…1cec Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x00be}
0x1cec…1d02 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00d4}
0x1d02…1d18 Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0012, t01=0x00ea}
0x1d18…1d2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0100}
0x1d2a…1d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0112}
0x1d34…1d7c Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x011c}
0x1d7c…1d9e Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0012, t01=0x0164}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1da8…1dce Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0012, t01=0x0190}
0x1dce…1dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0026}
0x1dd8…1e1a Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0013, t01=0x0030}
0x1e1a…1e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0072}
0x1e24…1e50 Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x007c}
0x1e50…1e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e5a…1e8e Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x00b2}
0x1e8e…1ec8 Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x00e6}
0x1ec8…1ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0120}
0x1ed2…1ee4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x012a}
0x1ee4…1f10 Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x013c}
0x1f10…1f2a Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0013, t01=0x0168}
0x1f2a…1f44 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0013, t01=0x0182}
0x1f44…1f6c Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0014, t01=0x000c}
0x1f6c…1f7a Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0014, t01=0x0034}
0x1f7a…1fa4 Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0014, t01=0x0042}
0x1fa4…1fb8 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x006c}
0x1fb8…1fce Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x0080}
0x1fce…1fe2 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x0096}
0x1fe2…1ffe Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x00aa}
0x1ffe…202a Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01 IF LINE 91 «, t00=0x0014, t01=0x00c6}
0x202a…2046 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0014, t01=0x00f2}
0x2046…2060 Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTOK«, t00=0x0014, t01=0x010e}
0x2060…2082 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'4',ENTOK«, t00=0x0014, t01=0x0128}
0x2082…2090 Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0014, t01=0x014a}
0x2090…20b6 Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0014, t01=0x0158}
0x20b6…20de Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,=W'3' RESET SCREEN«, t00=0x0014, t01=0x017e}
0x20de…20f6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0015, t01=0x0016}
0x20f6…2106 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x002e}
0x2106…212e Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0015, t01=0x003e}
0x212e…213c Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0015, t01=0x0066}
0x213c…215c Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0015, t01=0x0074}
0x215c…2174 Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0015, t01=0x0094}
0x2174…2190 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x00ac}
0x2190…21a6 Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x00c8}
0x21a6…21c0 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x00de}
0x21c0…21da Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0015, t01=0x00f8}
0x21da…21f6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0015, t01=0x0112}
0x21f6…2206 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x012e}
0x2206…2210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x2210…221e Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x0148}
0x221e…2232 Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0015, t01=0x0156}
0x2232…2246 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x016a}
0x2246…2258 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0015, t01=0x017e}
0x2258…226c Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x0190}
0x226c…2288 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0016, t01=0x0014}
0x2288…22a8 Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01«, t00=0x0016, t01=0x0030}
0x22a8…22c4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0016, t01=0x0050}
0x22c4…22d4 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x006c}
0x22d4…22fe Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0016, t01=0x007c}
0x22fe…230c Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x00a6}
0x230c…232c Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x00b4}
0x232c…2356 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x00d4}
0x2356…2370 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x00fe}
0x2370…238a Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0016, t01=0x0118}
0x238a…23a6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x0132}
0x23a6…23b6 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x014e}
0x23b6…23c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015e}
0x23c0…23ce Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0016, t01=0x0168}
0x23ce…23ee Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0016, t01=0x0176}
0x23ee…2418 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0017, t01=0x0008}
0x2418…2432 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0017, t01=0x0032}
0x2432…244c Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x0017, t01=0x004c}
0x244c…2468 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0017, t01=0x0066}
0x2468…2478 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x0082}
0x2478…2482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0092}
0x2482…2490 Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x009c}
0x2490…24b0 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN3,ENT40«, t00=0x0017, t01=0x00aa}
0x24b0…24d0 Head {h00=0x001c, h01=0x0050, text=»* FIRST TIME PAGE 3 «, t00=0x0017, t01=0x00ca}
0x24d0…24e4 Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0017, t01=0x00ea}
0x24e4…24f8 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x00fe}
0x24f8…2508 Head {h00=0x000c, h01=0x0050, text=» B ENT40«, t00=0x0017, t01=0x0112}
0x2508…2512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0122}
0x2512…2520 Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x012c}
0x2520…253c Head {h00=0x0018, h01=0x0050, text=»* CORRECT PAGE 3«, t00=0x0017, t01=0x013a}
0x253c…254e Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0017, t01=0x0156}
0x254e…2562 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x0168}
0x2562…257a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0017, t01=0x017c}
0x257a…2598 (24, 0, 398) Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0018, t01=0x0004}
0x2598…25b2 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0018, t01=0x0022}
0x25b2…25ce Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0018, t01=0x003c}
0x25ce…25de Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0018, t01=0x0058}
0x25de…25e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0068}
0x25e8…25f6 Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0018, t01=0x0072}
0x25f6…260c Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0018, t01=0x0080}
0x260c…2628 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0018, t01=0x0096}
0x2628…2632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b2}
0x2632…2640 Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0018, t01=0x00bc}
0x2640…2666 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0018, t01=0x00ca}
0x2666…2672 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00f0}
0x2672…2680 Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x00fc}
0x2680…26a8 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x010a}
0x26a8…26b4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0132}
0x26b4…26be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013e}
0x26be…26d4 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0148}
0x26d4…26ea Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x015e}
0x26ea…2708 Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0018, t01=0x0174}
0x2708…2724 (25, 0, 400) Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0019, t01=0x0004}
0x2724…272e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0020}
0x272e…276c Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0019, t01=0x002a}
0x276c…2798 Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0019, t01=0x0068}
0x2798…27be Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0019, t01=0x0094}
0x27be…27c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27c8…27e4 Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0019, t01=0x00c4}
0x27e4…281c Head {h00=0x0034, h01=0x0050, text=» CBNE FORMAL1,CBIN1,NXT10 INDEX 1: «, t00=0x0019, t01=0x00e0}
0x281c…2852 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 TYPE 8 «, t00=0x0019, t01=0x0118}
0x2852…287e Head {h00=0x0028, h01=0x0050, text=» CBE GTREGDEX,=W'8',NXT10 «, t00=0x0019, t01=0x014e}
0x287e…28b4 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 TYPE 9 «, t00=0x0019, t01=0x017a}
0x28b4…28d6 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'9',NXT10 «, t00=0x001a, t01=0x0020}
0x28d6…28fa Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 TYPE 51 «, t00=0x001a, t01=0x0042}
0x28fa…291c Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXT10«, t00=0x001a, t01=0x0066}
0x291c…2940 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 TYPE 53 «, t00=0x001a, t01=0x0088}
0x2940…294e Head {h00=0x000a, h01=0x0050, text=»NXT10 «, t00=0x001a, t01=0x00ac}
0x294e…2986 Head {h00=0x0034, h01=0x0050, text=» CBE FORMAL1,CBIN1,NXTATT INDEX 2: «, t00=0x001a, t01=0x00ba}
0x2986…29a8 Head {h00=0x001e, h01=0x0050, text=» CBNE FORMAL1,CBIN2,NXT20 «, t00=0x001a, t01=0x00f2}
0x29a8…29e6 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 TYPE 51,PAGE 2 «, t00=0x001a, t01=0x0114}
0x29e6…2a08 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXT20«, t00=0x001a, t01=0x0152}
0x2a08…2a44 Head {h00=0x0038, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 TYPE 53,PAGE 2«, t00=0x001a, t01=0x0174}
0x2a44…2a52 Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x001b, t01=0x0020}
0x2a52…2a8a Head {h00=0x0034, h01=0x0050, text=» CBNE FORMAL1,CBIN3,NXTATT INDEX 3: «, t00=0x001b, t01=0x002e}
0x2a8a…2ac8 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 TYPE 51,PAGE 3 «, t00=0x001b, t01=0x0066}
0x2ac8…2af6 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXTATT «, t00=0x001b, t01=0x00a4}
0x2af6…2b34 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 TYPE 53,PAGE 3 «, t00=0x001b, t01=0x00d2}
0x2b34…2b42 Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x0110}
0x2b42…2b5e Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x011e}
0x2b5e…2b72 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x013a}
0x2b72…2b88 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x014e}
0x2b88…2b96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0164}
0x2b96…2bae Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001b, t01=0x0172}
0x2bae…2bca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x018a}
0x2bca…2bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bd4…2c08 Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001c, t01=0x0020}
0x2c08…2c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0054}
0x2c12…2c2e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x005e}
0x2c2e…2c56 Head {h00=0x0024, h01=0x0050, text=» TBT GTSPECTR,CYKNOK NOT TR50...«, t00=0x001c, t01=0x007a}
0x2c56…2c6c Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001c, t01=0x00a2}
0x2c6c…2c96 Head {h00=0x0026, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C«, t00=0x001c, t01=0x00b8}
0x2c96…2cc0 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001c, t01=0x00e2}
0x2cc0…2cd2 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x010c}
0x2cd2…2ce0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x011e}
0x2ce0…2cec Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001c, t01=0x012c}
0x2cec…2d08 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0138}
0x2d08…2d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d12…2d44 Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001c, t01=0x015e}
0x2d44…2d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0190}
0x2d4e…2d6a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x000a}
0x2d6a…2d90 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001d, t01=0x0026}
0x2d90…2db8 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001d, t01=0x004c}
0x2db8…2dce Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001d, t01=0x0074}
0x2dce…2df4 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001d, t01=0x008a}
0x2df4…2e1e Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001d, t01=0x00b0}
0x2e1e…2e32 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x00da}
0x2e32…2e42 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x00ee}
0x2e42…2e52 Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001d, t01=0x00fe}
0x2e52…2e64 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x010e}
0x2e64…2e72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0120}
0x2e72…2e7e Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001d, t01=0x012e}
0x2e7e…2e9a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x013a}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea4…2ed6 Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001d, t01=0x0160}
0x2ed6…2ee0 (30, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2ee0…2efc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x000e}
0x2efc…2f22 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001e, t01=0x002a}
0x2f22…2f4a Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001e, t01=0x0050}
0x2f4a…2f60 Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001e, t01=0x0078}
0x2f60…2f86 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001e, t01=0x008e}
0x2f86…2fb0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001e, t01=0x00b4}
0x2fb0…2fc4 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001e, t01=0x00de}
0x2fc4…2fd4 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001e, t01=0x00f2}
0x2fd4…2fe4 Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001e, t01=0x0102}
0x2fe4…2ff6 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001e, t01=0x0112}
0x2ff6…3004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0124}
0x3004…3010 Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x0132}
0x3010…302c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x013e}
0x302c…3036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015a}
0x3036…3068 Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001e, t01=0x0164}
0x3068…3072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0008}
0x3072…308e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0012}
0x308e…30aa Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001f, t01=0x002e}
0x30aa…30c6 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001f, t01=0x004a}
0x30c6…30fc Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001f, t01=0x0066}
0x30fc…313e Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001f, t01=0x009c}
0x313e…315a Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001f, t01=0x00de}
0x315a…3178 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001f, t01=0x00fa}
0x3178…318c Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001f, t01=0x0118}
0x318c…31b6 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001f, t01=0x012c}
0x31b6…31ca Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x001f, t01=0x0156}
0x31ca…31da Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x016a}
0x31da…31ea Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x001f, t01=0x017a}
0x31ea…31fc Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x018a}
0x31fc…320a Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x0020, t01=0x000c}
0x320a…321e Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x0020, t01=0x001a}
0x321e…322e Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x002e}
0x322e…323c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x003e}
0x323c…3248 Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x0020, t01=0x004c}
0x3248…3264 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0058}
0x3264…326e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0074}
0x326e…329c Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x0020, t01=0x007e}
0x329c…32a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ac}
0x32a6…32c2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00b6}
0x32c2…32e0 Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x0020, t01=0x00d2}
0x32e0…330a Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x0020, t01=0x00f0}
0x330a…331a Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x011a}
0x331a…332a Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x0020, t01=0x012a}
0x332a…333c Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x013a}
0x333c…334a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x014c}
0x334a…3358 Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0020, t01=0x015a}
0x3358…3374 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0168}
0x3374…337e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0184}
0x337e…33a6 Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0020, t01=0x018e}
0x33a6…33b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0026}
0x33b0…33dc Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0021, t01=0x0030}
0x33dc…33e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005c}
0x33e6…3402 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0066}
0x3402…3430 Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0021, t01=0x0082}
0x3430…344e Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0021, t01=0x00b0}
0x344e…3488 Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0021, t01=0x00ce}
0x3488…3498 Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0021, t01=0x0108}
0x3498…34d6 Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0021, t01=0x0118}
0x34d6…34f6 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0021, t01=0x0156}
0x34f6…350a Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0021, t01=0x0176}
0x350a…352c Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0021, t01=0x018a}
0x352c…3540 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0022, t01=0x001c}
0x3540…355e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0022, t01=0x0030}
0x355e…3590 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0022, t01=0x004e}
0x3590…35b2 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0022, t01=0x0080}
0x35b2…35de Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0022, t01=0x00a2}
0x35de…360e Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0022, t01=0x00ce}
0x360e…3652 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0022, t01=0x00fe}
0x3652…366e Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0022, t01=0x0142}
0x366e…36a8 Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0022, t01=0x015e}
0x36a8…36ca Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0023, t01=0x0008}
0x36ca…370e Head {h00=0x0040, h01=0x0050, text=» MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE «, t00=0x0023, t01=0x002a}
0x370e…374c Head {h00=0x003a, h01=0x0050, text=» PERF WCHECK WRITE CHECK«, t00=0x0023, t01=0x006e}
0x374c…375c Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0023, t01=0x00ac}
0x375c…3774 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0023, t01=0x00bc}
0x3774…3796 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0023, t01=0x00d4}
0x3796…37aa Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0023, t01=0x00f6}
0x37aa…37bc Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0023, t01=0x010a}
0x37bc…37cc Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0023, t01=0x011c}
0x37cc…380e Head {h00=0x003e, h01=0x0050, text=» MOVE SPBINW4,=W'12' SET ERRORCODE «, t00=0x0023, t01=0x012c}
0x380e…382c Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0023, t01=0x016e}
0x382c…3850 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0023, t01=0x018c}
0x3850…3860 Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0024, t01=0x0020}
0x3860…388a Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0024, t01=0x0030}
0x388a…389e Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0024, t01=0x005a}
0x389e…38ae Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0024, t01=0x006e}
0x38ae…38be Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0024, t01=0x007e}
0x38be…38ce Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0024, t01=0x008e}
0x38ce…38e0 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0024, t01=0x009e}
0x38e0…38ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b0}
0x38ea…38f8 Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0024, t01=0x00ba}
0x38f8…3914 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0024, t01=0x00c8}
0x3914…3920 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x00e4}
0x3920…392e Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0024, t01=0x00f0}
0x392e…394a Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0024, t01=0x00fe}
0x394a…3956 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x011a}
0x3956…3964 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0126}
0x3964…397a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0134}
0x397a…3990 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0024, t01=0x014a}
0x3990…39ac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x0160}
0x39ac…39b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017c}
0x39b6…39e8 Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0024, t01=0x0186}
0x39e8…39f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0028}
0x39f2…3a2c Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0025, t01=0x0032}
0x3a2c…3a68 Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0025, t01=0x006c}
0x3a68…3a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a8}
0x3a72…3aa6 Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0025, t01=0x00b2}
0x3aa6…3ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e6}
0x3ab0…3acc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x00f0}
0x3acc…3afc Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0025, t01=0x010c}
0x3afc…3b42 Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0025, t01=0x013c}
0x3b42…3b5a Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0025, t01=0x0182}
0x3b5a…3b66 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x000a}
0x3b66…3b72 Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0026, t01=0x0016}
0x3b72…3b86 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0026, t01=0x0022}
0x3b86…3b92 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0036}
0x3b92…3b9e Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0026, t01=0x0042}
0x3b9e…3bca Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0026, t01=0x004e}
0x3bca…3bee Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0026, t01=0x007a}
0x3bee…3c32 Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0026, t01=0x009e}
0x3c32…3c72 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0026, t01=0x00e2}
0x3c72…3cbc Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0026, t01=0x0122}
0x3cbc…3cdc Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0026, t01=0x016c}
0x3cdc…3d0c Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0026, t01=0x018c}
0x3d0c…3d2a Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0027, t01=0x002c}
0x3d2a…3d36 Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0027, t01=0x004a}
0x3d36…3d54 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0027, t01=0x0056}
0x3d54…3d9a Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0027, t01=0x0074}
0x3d9a…3daa Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0027, t01=0x00ba}
0x3daa…3db6 Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0027, t01=0x00ca}
0x3db6…3de8 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0027, t01=0x00d6}
0x3de8…3e04 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0027, t01=0x0108}
0x3e04…3e28 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0027, t01=0x0124}
0x3e28…3e44 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0027, t01=0x0148}
0x3e44…3e6a Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0027, t01=0x0164}
0x3e6a…3eb6 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0027, t01=0x018a}
0x3eb6…3ed4 Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0028, t01=0x0046}
0x3ed4…3f20 Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0028, t01=0x0064}
0x3f20…3f40 Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0028, t01=0x00b0}
0x3f40…3f70 Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0028, t01=0x00d0}
0x3f70…3f88 Head {h00=0x0014, h01=0x0050, text=»CY40 ERROR KEY«, t00=0x0028, t01=0x0100}
0x3f88…3fa4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0028, t01=0x0118}
0x3fa4…3fc2 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0028, t01=0x0134}
0x3fc2…3fe0 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0028, t01=0x0152}
0x3fe0…3ff2 Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0028, t01=0x0170}
0x3ff2…400a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0028, t01=0x0182}
0x400a…4022 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0029, t01=0x000a}
0x4022…4032 Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0029, t01=0x0022}
0x4032…403e Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0029, t01=0x0032}
0x403e…405e Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0029, t01=0x003e}
0x405e…407a Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0029, t01=0x005e}
0x407a…4086 Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0029, t01=0x007a}
0x4086…40a4 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0029, t01=0x0086}
0x40a4…40b8 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0029, t01=0x00a4}
0x40b8…40e8 Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0029, t01=0x00b8}
0x40e8…4104 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x0029, t01=0x00e8}
0x4104…4128 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x0029, t01=0x0104}
0x4128…4146 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x0029, t01=0x0128}
0x4146…4164 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0029, t01=0x0146}
0x4164…4180 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x0029, t01=0x0164}
0x4180…419a Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0029, t01=0x0180}
0x419a…41b6 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x002a, t01=0x000a}
0x41b6…41d0 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x002a, t01=0x0026}
0x41d0…41ec Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x002a, t01=0x0040}
0x41ec…41f8 Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x002a, t01=0x005c}
0x41f8…420e Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x002a, t01=0x0068}
0x420e…4228 Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x002a, t01=0x007e}
0x4228…4240 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x002a, t01=0x0098}
0x4240…424c Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x002a, t01=0x00b0}
0x424c…4260 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002a, t01=0x00bc}
0x4260…4276 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x00d0}
0x4276…4284 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00e6}
0x4284…4296 Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002a, t01=0x00f4}
0x4296…42b2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002a, t01=0x0106}
0x42b2…42bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0122}
0x42bc…42ee Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002a, t01=0x012c}
0x42ee…42f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x015e}
0x42f8…4312 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002a, t01=0x0168}
0x4312…4338 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002a, t01=0x0182}
0x4338…435c Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYM,=C' '«, t00=0x002b, t01=0x0018}
0x435c…4388 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002b, t01=0x003c}
0x4388…43ac Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002b, t01=0x0068}
0x43ac…43cc Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002b, t01=0x008c}
0x43cc…43ee Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002b, t01=0x00ac}
0x43ee…4406 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002b, t01=0x00ce}
0x4406…441e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002b, t01=0x00e6}
0x441e…4448 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002b, t01=0x00fe}
0x4448…4454 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x0128}
0x4454…446a Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0134}
0x446a…4480 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x014a}
0x4480…4494 Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002b, t01=0x0160}
0x4494…44b0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x0174}
0x44b0…44ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0190}
0x44ba…44ea Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002c, t01=0x000a}
0x44ea…44f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x003a}
0x44f4…4510 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x0044}
0x4510…452c Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002c, t01=0x0060}
0x452c…4554 Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002c, t01=0x007c}
0x4554…4568 Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002c, t01=0x00a4}
0x4568…458a Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002c, t01=0x00b8}
0x458a…45ac Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002c, t01=0x00da}
0x45ac…45ec Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002c, t01=0x00fc}
0x45ec…4638 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002c, t01=0x013c}
0x4638…467e Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002c, t01=0x0188}
0x467e…46a8 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002d, t01=0x003e}
0x46a8…46b8 Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002d, t01=0x0068}
0x46b8…46cc Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002d, t01=0x0078}
0x46cc…46da Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002d, t01=0x008c}
0x46da…46ee Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002d, t01=0x009a}
0x46ee…470a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002d, t01=0x00ae}
0x470a…472c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002d, t01=0x00ca}
0x472c…475e Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002d, t01=0x00ec}
0x475e…477e Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002d, t01=0x011e}
0x477e…479a Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002d, t01=0x013e}
0x479a…47bc Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002d, t01=0x015a}
0x47bc…47de Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002d, t01=0x017c}
0x47de…4804 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002e, t01=0x000e}
0x4804…4812 Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002e, t01=0x0034}
0x4812…4826 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002e, t01=0x0042}
0x4826…484c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002e, t01=0x0056}
0x484c…4858 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x007c}
0x4858…4866 Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002e, t01=0x0088}
0x4866…488e Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002e, t01=0x0096}
0x488e…48a2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002e, t01=0x00be}
0x48a2…48b8 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x00d2}
0x48b8…48ce Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00e8}
0x48ce…48e4 Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002e, t01=0x00fe}
0x48e4…4900 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002e, t01=0x0114}
0x4900…490a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0130}
0x490a…492c Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002e, t01=0x013a}
0x492c…4936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x015c}
0x4936…4970 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002e, t01=0x0166}
0x4970…497a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0010}
0x497a…49b0 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002f, t01=0x001a}
0x49b0…49d8 Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002f, t01=0x0050}
0x49d8…4a06 Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x002f, t01=0x0078}
0x4a06…4a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a6}
0x4a10…4a2c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002f, t01=0x00b0}
0x4a2c…4a50 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002f, t01=0x00cc}
0x4a50…4a94 Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x002f, t01=0x00f0}
0x4a94…4aba Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x002f, t01=0x0134}
0x4aba…4ade Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x002f, t01=0x015a}
0x4ade…4af8 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x002f, t01=0x017e}
0x4af8…4b0e Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x0030, t01=0x0008}
0x4b0e…4b20 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x0030, t01=0x001e}
0x4b20…4b38 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0030, t01=0x0030}
0x4b38…4b4c Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x0030, t01=0x0048}
0x4b4c…4b68 Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x0030, t01=0x005c}
0x4b68…4b78 Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x0030, t01=0x0078}
0x4b78…4b8c Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0030, t01=0x0088}
0x4b8c…4bc2 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x0030, t01=0x009c}
0x4bc2…4c04 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x0030, t01=0x00d2}
0x4c04…4c30 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0030, t01=0x0114}
0x4c30…4c46 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0030, t01=0x0140}
0x4c46…4c8a Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0030, t01=0x0156}
0x4c8a…4c9e Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0031, t01=0x000a}
0x4c9e…4ce2 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0031, t01=0x001e}
0x4ce2…4d1e Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0031, t01=0x0062}
0x4d1e…4d38 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0031, t01=0x009e}
0x4d38…4d76 Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0031, t01=0x00b8}
0x4d76…4d94 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0031, t01=0x00f6}
0x4d94…4dc0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0031, t01=0x0114}
0x4dc0…4dda Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0031, t01=0x0140}
0x4dda…4df6 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0031, t01=0x015a}
0x4df6…4e10 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0031, t01=0x0176}
0x4e10…4e2c Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0031, t01=0x0190}
0x4e2c…4e40 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0032, t01=0x001c}
0x4e40…4e52 Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0032, t01=0x0030}
0x4e52…4e6c Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0032, t01=0x0042}
0x4e6c…4e7c Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0032, t01=0x005c}
0x4e7c…4e90 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0032, t01=0x006c}
0x4e90…4eac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0032, t01=0x0080}
0x4eac…4ed2 Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0032, t01=0x009c}
0x4ed2…4f18 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0032, t01=0x00c2}
0x4f18…4f26 Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0032, t01=0x0108}
0x4f26…4f50 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0032, t01=0x0116}
0x4f50…4f64 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0032, t01=0x0140}
0x4f64…4f74 Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0032, t01=0x0154}
0x4f74…4f9a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0032, t01=0x0164}
0x4f9a…4fa6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x018a}
0x4fa6…4fb6 Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0033, t01=0x0008}
0x4fb6…4fde Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0033, t01=0x0018}
0x4fde…4ff2 Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0033, t01=0x0040}
0x4ff2…5000 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0033, t01=0x0054}
0x5000…500e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0062}
0x500e…501e Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0033, t01=0x0070}
0x501e…503a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x0080}
0x503a…5044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009c}
0x5044…507e Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0033, t01=0x00a6}
0x507e…50b2 Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0033, t01=0x00e0}
0x50b2…50dc Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0033, t01=0x0114}
0x50dc…5106 Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0033, t01=0x013e}
0x5106…513a Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0033, t01=0x0168}
0x513a…5144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000c}
0x5144…5160 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0034, t01=0x0016}
0x5160…517c Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0034, t01=0x0032}
0x517c…5194 Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0034, t01=0x004e}
0x5194…51c8 Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0034, t01=0x0066}
0x51c8…51d6 Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0034, t01=0x009a}
0x51d6…51f2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0034, t01=0x00a8}
0x51f2…5208 Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0034, t01=0x00c4}
0x5208…5224 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0034, t01=0x00da}
0x5224…5254 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0034, t01=0x00f6}
0x5254…527e Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0034, t01=0x0126}
0x527e…528e Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0034, t01=0x0150}
0x528e…5298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0160}
0x5298…52b0 Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0034, t01=0x016a}
0x52b0…52be Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0034, t01=0x0182}
0x52be…52e2 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL ' «, t00=0x0034, t01=0x0190}
0x52e2…52fe Head {h00=0x0018, h01=0x0050, text=» TBF GTSUBFLG,SUM55 «, t00=0x0035, t01=0x0024}
0x52fe…5322 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x0035, t01=0x0040}
0x5322…5330 Head {h00=0x000a, h01=0x0050, text=»SUM55 «, t00=0x0035, t01=0x0064}
0x5330…5362 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0035, t01=0x0072}
0x5362…537e Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0035, t01=0x00a4}
0x537e…539a Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0035, t01=0x00c0}
0x539a…53b2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0035, t01=0x00dc}
0x53b2…53c0 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0035, t01=0x00f4}
0x53c0…53ec Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0035, t01=0x0102}
0x53ec…5412 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0035, t01=0x012e}
0x5412…542c Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0035, t01=0x0154}
0x542c…5454 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0035, t01=0x016e}
0x5454…546c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0036, t01=0x0008}
0x546c…547a Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0036, t01=0x0020}
0x547a…548e Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0036, t01=0x002e}
0x548e…54a6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0036, t01=0x0042}
0x54a6…54ba Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0036, t01=0x005a}
0x54ba…54ce Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0036, t01=0x006e}
0x54ce…54f0 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0036, t01=0x0082}
0x54f0…5520 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? «, t00=0x0036, t01=0x00a4}
0x5520…552e Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0036, t01=0x00d4}
0x552e…5556 Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0036, t01=0x00e2}
0x5556…5564 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0036, t01=0x010a}
0x5564…5582 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0036, t01=0x0118}
0x5582…55a2 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0036, t01=0x0136}
0x55a2…55ce Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0036, t01=0x0156}
0x55ce…55e8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0036, t01=0x0182}
0x55e8…5606 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0037, t01=0x000c}
0x5606…5618 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0037, t01=0x002a}
0x5618…5636 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0037, t01=0x003c}
0x5636…5654 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0037, t01=0x005a}
0x5654…5670 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0037, t01=0x0078}
0x5670…567e Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0037, t01=0x0094}
0x567e…5692 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0037, t01=0x00a2}
0x5692…56a2 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0037, t01=0x00b6}
0x56a2…56c8 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0037, t01=0x00c6}
0x56c8…56d4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x00ec}
0x56d4…56e2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x00f8}
0x56e2…56f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0106}
0x56f0…5702 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0037, t01=0x0114}
0x5702…571e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x0126}
0x571e…5728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0142}
0x5728…575a Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0037, t01=0x014c}
0x575a…5764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x017e}
0x5764…5780 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x0188}
0x5780…579e Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0038, t01=0x0014}
0x579e…57d2 Head {h00=0x0030, h01=0x0050, text=» TBT GTSPECTR,DIVTRNOK NOT ALLOWED, TR50... «, t00=0x0038, t01=0x0032}
0x57d2…57ee Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0038, t01=0x0066}
0x57ee…580c Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0038, t01=0x0082}
0x580c…5820 Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0038, t01=0x00a0}
0x5820…5834 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0038, t01=0x00b4}
0x5834…5854 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,=W'1',DIV10«, t00=0x0038, t01=0x00c8}
0x5854…5868 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0038, t01=0x00e8}
0x5868…587a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x00fc}
0x587a…5888 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0038, t01=0x010e}
0x5888…589c Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0038, t01=0x011c}
0x589c…58ae Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x0130}
0x58ae…58c8 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0038, t01=0x0142}
0x58c8…58d6 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0038, t01=0x015c}
0x58d6…58ec Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0038, t01=0x016a}
0x58ec…5908 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0038, t01=0x0180}
0x5908…591a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x000c}
0x591a…5924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x001e}
0x5924…5934 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0039, t01=0x0028}
0x5934…595a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0039, t01=0x0038}
0x595a…5966 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x005e}
0x5966…5976 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0039, t01=0x006a}
0x5976…599e Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0039, t01=0x007a}
0x599e…59aa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x00a2}
0x59aa…59b8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x00ae}
0x59b8…59c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00bc}
0x59c2…59cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c6}
0x59cc…59e0 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0039, t01=0x00d0}
0x59e0…59e4 Head {h00=0x4004, h01=0x0000}
0x59e4…59e8 00 39 00 e4 ┆ 9 ┆
0x59e8…59f0 (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x59f0…5a40 (59, 0, 400) 06 c8 00 00 05 60 00 00 05 a7 00 00 05 a5 00 00 06 bc 00 00 06 b0 00 00 05 a9 00 00 05 78 00 04 03 56 00 00 09 0c 00 00 07 25 00 00 07 38 00 00 07 3c 00 00 07 40 00 00 07 44 00 00 07 50 00 00 07 54 00 00 07 59 00 00 07 6e 00 00 08 28 00 00 ┆ ` x V % 8 < @ D P T Y n ( ┆
0x5a40…5a90 08 34 00 00 08 fa 00 00 09 7f 00 00 09 f4 00 00 0a 0c 00 00 0a 09 00 3f 00 02 00 0e 00 02 00 2a 00 00 02 0f 00 06 03 d0 00 06 04 2a 00 01 06 86 00 05 08 19 00 00 00 bc 00 05 03 ad 00 00 0b 15 00 00 02 45 00 01 00 0e 00 00 02 97 00 00 03 9e ┆ 4 ? * * E ┆
0x5a90…5ae0 00 00 04 64 00 00 0b 36 00 00 0b 50 00 01 06 c7 00 01 05 16 00 01 07 9e 00 01 08 ad 00 00 00 2c 00 00 0c 3a 00 05 04 83 00 01 08 08 00 01 09 42 00 00 0b e2 00 00 0b d8 00 00 0b ec 00 01 09 16 00 05 04 0b 00 00 0c 18 00 05 04 f5 00 01 08 bf ┆ d 6 P , : B ┆
0x5ae0…5b30 00 00 0c 4d 00 03 00 1a 00 02 03 5c 00 04 01 a0 00 05 06 38 00 05 0a 50 00 02 02 f0 00 00 00 33 00 01 06 cd 00 00 0b 5c 00 00 00 10 00 01 04 7a 00 00 00 1e 00 01 06 bb 00 06 03 b4 00 01 01 33 00 01 01 61 00 01 03 d8 00 01 04 15 00 01 02 67 ┆ M 8 P 3 z 3 a g┆
0x5b30…5b80 00 01 04 ec 00 02 0b 7a 00 02 0b 88 00 05 00 0e 00 06 04 7d 00 00 0b fa 00 05 04 b0 00 05 05 0d 00 06 04 1e 00 00 00 01 00 02 00 03 00 04 00 05 00 06 00 07 00 08 00 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ z } ┆
0x5b80…5bd0 (60, 0, 400) 00 0a 00 0b 00 0c 00 0d 00 0e 00 0f 00 10 00 16 00 1e 00 20 00 28 00 32 00 33 00 40 00 80 00 c7 02 00 04 00 07 ff ff cb ff cc ff f8 ff ff 00 20 2a 2d 44 4b 53 54 4e 52 26 30 34 42 45 4c 20 44 45 42 20 4b 52 45 20 53 55 4d 4b 56 49 54 54 52 ┆ ( 2 3 @ *-DKSTNR&04BEL DEB KRE SUMKVITTR┆
0x5bd0…5c20 50 20 41 44 4d 20 20 41 52 4b 49 56 42 49 4c 41 47 44 45 42 45 54 46 45 4a 4c 20 4b 4c 41 52 20 53 41 4c 44 30 53 41 4c 44 4f 53 4c 55 54 44 5a 33 30 30 20 20 20 4b 56 49 54 44 41 47 20 4e 52 45 4a 20 45 44 42 4b 52 45 44 49 54 4c 42 4e 52 ┆P ADM ARKIVBILAGDEBETFEJL KLAR SALD0SALDOSLUTDZ300 KVITDAG NREJ EDBKREDITLBNR┆
0x5c20…5c70 20 20 54 5b 4c 4c 45 52 4b 4f 4e 54 4f 4e 52 4b 4f 52 52 45 4b 54 20 44 49 56 45 52 53 45 54 4f 54 41 4c 20 20 20 20 45 4b 53 2e 4c 42 4e 52 42 45 52 45 47 4e 49 4e 47 44 41 47 53 2d 44 41 54 4f 4b 4f 4e 54 4f 4b 4f 52 54 4d 41 53 4b 49 4e ┆ T[LLERKONTONRKORREKT DIVERSETOTAL EKS.LBNRBEREGNINGDAGS-DATOKONTOKORTMASKIN┆
0x5c70…5cc0 20 4e 52 50 4f 53 54 2d 44 41 54 4f 53 54 41 52 54 20 53 55 4d 53 55 42 54 4f 54 41 4c 20 43 50 52 2f 43 49 52 2f 4e 52 52 45 47 4b 4f 4e 54 4f 4e 52 20 20 53 4c 55 54 20 54 45 53 54 42 45 56 2e 50 45 52 49 4f 44 45 43 48 45 43 4b 43 49 46 ┆ NRPOST-DATOSTART SUMSUBTOTAL CPR/CIR/NRREGKONTONR SLUT TESTBEV.PERIODECHECKCIF┆
0x5cc0…5d10 46 45 52 4b 41 53 53 45 5d 42 4e 49 4e 47 53 4c 45 54 20 53 41 4c 44 4f 20 20 20 53 54 41 52 54 20 54 45 53 54 45 44 42 2d 54 5b 4c 4c 45 52 45 20 4b 41 53 53 45 2d 4b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆FERKASSE]BNINGSLET SALDO START TESTEDB-T[LLERE KASSE-K ┆