|
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: 23838 (0x5d1e)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »NJ-AMT/RGSUBS.SC«
IDENT RGSUBS 02.03.XXX.1
DDUM KMD08
PDIV
ENTRY ENTER
ENTRY MODP
ENTRY KORT
ENTRY KKTRP
ENTRY KVIT
ENTRY LSTINT
ENTRY CYKINT
ENTRY CYK
ENTRY CYCLR
ENTRY SUBTOT
ENTRY SUM
EXT ADM
ENTRY DIVTR
ENTRY KKCH
ENTRY FMTNXT
EXT SETKRE
EXT SETDEB
EXT SLUT
EXT FRMTVO
EXT FRMTKV
EXT FRMXJT
EXT FRMXSP
EXT FRMXVO
EXT FRMXTA
EXT FRMTKT
EXT FRMXKT
EXT WRITVO
EXT WRITJT
EXT WTALLY
EXT WCHECK
EXT LINOPT
EXT ABORT
EXT EMPTYT
EXT CRVO
EXT SPCLRA
EXT SPERR
EXT SPINF1
EXT SPLIN8
EXT GRASPV
EXT CLEAR8
EXT SPCHK5
EXT FLDTST
EXT CYOUT
INCLUDE EQUATE
EJECT
KORT PROC
********************
*
** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT
*
** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)
******************
TBF TTEORFLG,KORTNOK NOT CORRECT TRANS
TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12)
CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5
CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7
** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT
** WRITE 'KONTOKORT' ON JOURNAL
** TRANSPORT LINE IF NEEDED
*
KORT10
MOVE SPKEY,CBIN1
CLEAR GTSLDFLG
TBF CKTFLAG,KORT12
SET TTKORTFL
KORT12
PERF FRMXSP,CBIN12 SALDO/LINE/CHECK
SET SPPROMPT
PERF SPCLRA WRITE/READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,KORTOK,KORTOK,KORT30
KORT20 ERRORKEY
MOVE SPBINW4,=W'4'
PERF SPERR
B KORT10
KORT30 CORRECT ENTERED
TBF CKTFLAG,KORT40 NO SALDO
SET GTSLDFLG
CALL EMPTYT,TTKTSLD GL SALDO PRESENT?
BE KORT40 YES
CLEAR GTSLDFLG NOT PRESENT
TBF CSLDFLG,KORT40 ALLOWED
MOVE SPBINW4,=W'5' NOT ALLOWED
PERF SPERR
B KORT10
KORT40
PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL
PERF KKTRP TRANSPORT LINE IF NEEDED
MOVE SPINPUT,TTKTLIN
PERF SPCHK5 GET THE OLD LINE NUMBER
CBG GSWBIN1,=W'89',KORT20
DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE
ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO
ADD TTKTLIN,=D'1' ADD 1 TO LINE NO
PERF KKCH NEW CHECKDIGIT
PERF FRMTKT
EDWRT KVOUCH,GTSTRFMT
DSC0 .NW,KVOUCH,RLEAS
CLEAR GTLOKSPG
KORTOK
CLEAR TTKORTFL
CMP CBIN0,CBIN0 OK, SET CR=0
RET
KORTNOK
CLEAR TTKORTFL
CMP CBIN1,CBIN0 NOK, SET CR <>0
RET
PEND
EJECT
KKTRP PROC
********************
*
** KKTRP - WRITES KONTOKORT INF ON VOUCHER
** + TRANSPORT IF NECESSARY
*
********************
PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT
TBF GTCYFLG,KON20 IF IN CYCLE
TBF GTCYWRTF,KON20
DSC0 KVOUCH,RLEAS
CLEAR TTTSTFLG
KON20
PERF GRASPV GRASP VOUCHER
PERF CLEAR8
TBF CKTFLAG,KON90
TBF GTSLDFLG,KON90 NO SALDO
CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?
PERF FRMXKT,CBIN1 GET TRANSPORT LINE
DSC1 KVOUCH,POS,CMINLIN
EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE
KON30
PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'
WAIT KVOUCH
DSC0 KVOUCH,RLEAS
PERF GRASPV
TESTIO KEYB ANY INPUT?
BOK KON35 YES
CALL ABORT,KEYB NO, ABORT
DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER
MOVE GSWBCD3,CKTTOP SET DEFAULT LINE
MOVE SPINPUT,GSWBCD3
B KON40
KON35
WAIT KEYB
CBE SPBINW2,=W'18',KON40 SLUT KEY
CBNE SPBINW2,=W'4',KON30 ENTER KEY
KON40
MOVE GSWBCD3,SPINPUT GET LINE
MOVE TTKTLIN,GSWBCD3
CBG TTKTLIN,=D'24',KON30 CHECK LINE
CBL TTKTLIN,=D'1',KON30
PERF SPCHK5 CHANGE LINE VALUE
DSC1 KVOUCH,POS,GSWBIN1
PERF FRMXKT,CBIN1
EDWRT KVOUCH,GTSTRFMT
ADD TTKTLIN,=D'1'
KON90
RET
PEND
EJECT
KKCH PROC
********************
*
** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM
** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND
** PUTS IT IN TTKTCHK
** USED FOR KONTOKORT
*
****************
MOVE GSWBCD1,TTKTSLD SAVE
CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?
MUL GSWBCD1,=D'-1' YES, CHANGE SIGN
KKCH10
MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR
SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR
ADD GSWBCD1,TTKTLIN ADD
ADD TTKTLIN,=D'1' RESTORE LINE NR
MOVE GSWBCD2,GSWBCD1 SAVE
DIV GSWBCD1,=D'7' CALCULATE
MUL GSWBCD1,=D'7' REMAINDER
SUB GSWBCD2,GSWBCD1 MODULUS 7
ADD GSWBCD2,=D'1' ADD 1 ALWAYS
CBL TTKTSLD,=D'0',KKCH20
ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO
KKCH20
MOVE TTKTCHK,GSWBCD2
RET
PEND
EJECT
MODP PROC
**********
*
** MODP - INVERTS THE PREVIOUS TRANSACTION
** I.E. REVERSES THE VALUE
** AND SETS FLAG TO UPDATE ACCUMULATORS
** MUST NOT BE IN FIRST TRANBS
** ONLY IN KASSEFUNCTIONS
*
**********
TBF TTEORFLG,MODPNOK NOT CORRECT TRANS
MOVE GTRETUR,CBIN0
TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)
CLEAR GTLOKSPG
MOVE SPKEY,CBIN1
SET TTINVFLG
MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1
PERF SLUT
CLEAR TTINVFLG
CBNE GTRETUR,=W'3',MODP50
PERF KORT
MODP50
CMP CBIN0,CBIN0 OK, SET CR=0
RET
MODPNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
KVIT PROC
**********
*
** KVIT - WRITES AN EXTRA RECEIPT
** ONLY IN KASSEFUNCTIONS
*
**********
TBF TTEORFLG,KVITNOK NOT CORRECT TRANS
TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS
TBT GTCYFLG,KVITNOK NOT IN CYCLE
TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12)
MOVE SPKEY,CBIN1
PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL
MOVE TTCYM,=C'K'
PERF FRMTKV
PERF WRITVO WRITE RECEIPT
MOVE TTCYM,=C' '
CLEAR GTLOKSPG
CMP CBIN0,CBIN0 OK, SET CR =0
RET
KVITNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
ENTER PROC
**********
*
** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN
** ENTERED ON SCREEN
*
** 1 ANY PAGE TWO ?
*
** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?
*
** 3 FIELD DEPENDENCE TEST
*
** AND THEN PERFORM PROCEDURE SLUT, TO
** WRITE TO DISK AND WRITE RELEVANT RECEIPTS
*
**********
MOVE GTRETUR,CBIN0 SET RETURN CODE
TBT GTTYPE3,ENTY3
TBT GTTYPE2,ENTY2
* TYPE 1 - ONE PAGE TRANSACTION
ENTY1
PERF FLDTST TEST FIELD DEPENDENCE
BNOK ENTNOK
PERF SLUT OK
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,=W'3',ENT01 IF LINE 91
MOVE GTRETUR,=W'1'
TBF CKTAUTO,ENTOK
CBNE GTREGDEX,=W'4',ENTOK
ENT01
PERF KORT TRANS 4: KONTOKORT
MOVE GTRETUR,=W'3' RESET SCREEN
CLEAR GTKORTFL
B ENTOK
* TYPE 2 - TWO PAGE TRANSACTION
ENTY2
CBNE GTPAGE,CBIN1,ENT10
* GET PAGE 2
TBT GTSLUTFL,ENTY1
SET GTSLUTFL
PERF FMTNXT,CBIN1
MOVE 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
TBT GTSLUTFL,ENTY1
* AFTER PAGE 1, GET NEXT PAGE
PERF FMTNXT,CBIN2
MOVE GTRETUR,=W'2'
B ENTOK
*
ENT20
CBNE GTPAGE,CBIN2,ENT30
TBT GTSLUTFL,ENT30
* AFTER PAGE 2, GET LAST PAGE
PERF FMTNXT,CBIN3
MOVE GTRETUR,=W'2'
B ENTOK
*
ENT30
B ENT10
*
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)
*
****-**************
MOVE GSWBIN1,FORMAL1 WHICH PAGE?
IB GSWBIN1,NXTATT,NXT20,NXT30
NXT20
MOVE GTPAGE,CBIN2
CBE GTREGDEX,CBIN8,NXT208
CBE GTREGDEX,CBIN9,NXT209
CBE GTREGDEX,=W'24',NXT251
B NXT253
NXT208
TBF CF9094,NXT30
MOVE GSWBIN1,CBIN7
B NXTATT
NXT209
TBF CF9094,NXT30
MOVE GSWBIN1,CBIN8
B NXTATT
NXT251
MOVE GSWBIN1,CBIN3
B NXTATT
NXT253
MOVE GSWBIN1,CBIN4
B NXTATT
NXT30
MOVE GTPAGE,CBIN3
CBE GTREGDEX,CBIN8,NXT308
CBE GTREGDEX,CBIN9,NXT309
CBE GTREGDEX,=W'24',NXT351
B NXT353
NXT308
MOVE GSWBIN1,CBIN1
B NXTATT
NXT309
MOVE GSWBIN1,CBIN2
B NXTATT
NXT351
MOVE GSWBIN1,CBIN5
B NXTATT
NXT353
MOVE GSWBIN1,CBIN6
NXTATT
PERF FRMXSP,GSWBIN1
RET
PEND
EJECT
CYK PROC CYTYPE
********************
*
* HANDLE DIFFERENT TYPES OF CYCLES
*
********************
IB CYTYPE, C
CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C
CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND
B CYKNOK
EJECT
CYK1
********************
*
** CYK1 - START OF CYCLE FUNCTION
*
********************
TBT TTLSTFLG,CYK1NOK IN LISTE
TBT TTCY2FLG,CYK1NOK IN CYCLE 2
SET TTCY1FLG
MOVE TTCYM,=C'C' FOR JOURNAL
MOVE GTTEXT,=C'CYKLE ' FOR SCREEN
PERF CYKINT
B CYKOK
CYK1NOK
B CYKNOK
EJECT
CYK2
********************
*
** CYK2 - START OF STABEL FUNCTION
*
********************
TBT TTLSTFLG,CYK2NOK IN LISTE
TBT TTCY1FLG,CYK2NOK IN CYCLE 1
SET TTCY2FLG
MOVE TTCYM,=C'S' FOR JOURNAL
MOVE GTTEXT,=C'STABEL' FOR SCREEN
PERF CYKINT
B CYKOK
CYK2NOK
B CYKNOK
EJECT
CYK4
********************
*
* CYK4 - PAUSE IN CYCLE / STABEL
*
********************
TBF GTCYFLG,CYK4NOK
TBT GTCYWRTF,CYKSUB
MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR
SET TTPSEFLG INDICATE BREAK
MOVE GTCYSUM,GTSUM
MOVE GTPSELIN,TTLINNR
PERF CYCLR
ERASE 0,CBIN8,CBIN8 ERASE LINE 8
PERF SPINF1
B CYKOK
CYK4NOK
B CYKNOK
CYKSUB
PERF SUBTOT
B CYKOK
EJECT
CYK9
********************
*
** CYK9 - CLEAR ARKIV KONTO NR
*
********************
TBF TTCY1FLG,CYK9NOK
MOVE TTARKSAV,=D'0' CLEAR NUMBER
B CYKOK
CYK9NOK
B CYKNOK
EJECT
CYEND
********************
*
** CYEND - END OF CYCLE
*
** WRITE TOTAL LINE ON VOUCHER
*
********************
TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE
TBT TTCY2FLG,CYEND10
CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1)
CYEND10
CLEAR TTSUMFLG CLEAR FLAGS
CLEAR GTCYFLG
PERF CYOUT
CLEAR TTTSTFLG
WAIT KVOUCH
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
MOVE GSWSTR9,=C'TOTAL '
PERF FRMXVO,CBIN2 GET TOTAL FORMAT
EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
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,GTUWB
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,GTUWB INITIATE CYSET
SUB GTCYIN,CBIN1
MUL GTCYIN,CCYSIZE
ADD GTCYIN,CBIN1
MOVE GTCYOUT,GTCYIN
PERF CYCLR
B SUBTOK
* SUBTOTAL IN LIST
SUBTLST
WAIT KTALLY
MOVE GSWBCD6,GTSUM
PERF FRMXTA,CBIN3 GET FORMAT
PERF WTALLY WRITE ON TALLY ROLL
SUBTOK
ERASE 0,CBIN8,CBIN8 ERASE LINE 8
PERF SPINF1
SUBTOK10
CMP CBIN0,CBIN0 OK, SET CR=0
RET
SUBTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
SUM PROC
********************
*
** SUM - PROCEDURE FOR SUMMING UP FOR ALL
** TRANSACTIONS FROM THE INITIATING
** POINT TO THE RELEASING.
** FIRST TIME: INITIATING
** LAST TIME: WRITE SUM ON VOUCHER
*
********************
TBT GTSUMKEY,SUM50
* FIRST TIME
PERF WRITJT,=W'3' WRITE START SUM FUNCTION
SUM10
MOVE TTSUMMRK,=C'*'
SET GTSUMKEY
MOVE GTSUMST,TTLBNR
ADD GTSUMST,=D'1' INITIATE FIRST NUMBER
MOVE GTSUMCNT,=D'0' INITIATE SUM
B SUMOK
*
* LAST TIME
SUM50
PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION
TBT GTSUBFLG,SUM60
MOVE TTSUMMRK,=C' '
CLEAR GTSUMKEY
SUM60
PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
TBF GTCYFLG,SUM70 IF IN CYCLE
DSC0 KVOUCH,RLEAS
MOVE GSWBCD5,TTLINNR SAVE LINNR
CLEAR TTTSTFLG
SUM70
PERF GRASPV
CLEAR GTSWFLAG
PERF LINOPT
BNOK SUM60
CBG GSWBIN1,=W'90',SUM75
CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE?
SUM75
MOVE TTLINNR,=D'6' SET LINE 26
SUM80
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1
MOVE TTLINNR,GSWBCD5 RESTORE LINNR
PERF FRMXVO,CBIN7
EDWRT KVOUCH,GTSTRFMT
PERF CRVO
DSC0 .NW,KVOUCH,RLEAS
TBT GTSUBFLG,SUMOK10
TBT GTASUMFL,SUM10
SUMOK
PERF SPINF1
SUMOK10
CMP CBIN0,CBIN0 OK, SET CR=0
RET
PEND
EJECT
DIVTR PROC
********************
*
** DIVTR - SET OR CLEAR DIVTR FLAG
*
********************
TBT CTRVALG,DIVTRNOK
TBT GTDIVTR,DIVEND
* SET DIVTR
SET GTDIVTR
SET GTTRSEL
CBE TTDKDEX,=W'1',DIV10
PERF SETDEB
B DIVTROK
DIV10
PERF SETKRE
B DIVTROK
* CLEAR DIVTR
DIVEND
CLEAR GTDIVTR
MOVE TTSTYRDX,=W'1'
B DIVTROK
*
DIVTROK
CMP CBIN0,CBIN0 OK, SET CR=0
RET
DIVTRNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUBS 02.03.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x0056…0074 Head {h00=0x001a, h01=0x0050, text=» ENTRY ENTER«, t00=0x0000, t01=0x005a}
0x0074…0092 Head {h00=0x001a, h01=0x0050, text=» ENTRY MODP «, t00=0x0000, t01=0x0078}
0x0092…00b0 Head {h00=0x001a, h01=0x0050, text=» ENTRY KORT «, t00=0x0000, t01=0x0096}
0x00b0…00c4 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKTRP«, t00=0x0000, t01=0x00b4}
0x00c4…00e2 Head {h00=0x001a, h01=0x0050, text=» ENTRY KVIT «, t00=0x0000, t01=0x00c8}
0x00e2…0102 Head {h00=0x001c, h01=0x0050, text=» ENTRY LSTINT «, t00=0x0000, t01=0x00e6}
0x0102…0118 Head {h00=0x0012, h01=0x0050, text=» ENTRY CYKINT «, t00=0x0000, t01=0x0106}
0x0118…012a Head {h00=0x000e, h01=0x0050, text=» ENTRY CYK«, t00=0x0000, t01=0x011c}
0x012a…013e Head {h00=0x0010, h01=0x0050, text=» ENTRY CYCLR«, t00=0x0000, t01=0x012e}
0x013e…015e Head {h00=0x001c, h01=0x0050, text=» ENTRY SUBTOT «, t00=0x0000, t01=0x0142}
0x015e…0170 Head {h00=0x000e, h01=0x0050, text=» ENTRY SUM«, t00=0x0000, t01=0x0162}
0x0170…0180 Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0000, t01=0x0174}
0x0180…0194 Head {h00=0x0010, h01=0x0050, text=» ENTRY DIVTR«, t00=0x0000, t01=0x0184}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0001, t01=0x0008}
0x01a8…01be Head {h00=0x0012, h01=0x0050, text=» ENTRY FMTNXT «, t00=0x0001, t01=0x001c}
0x01be…01d2 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0032}
0x01d2…01e6 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0046}
0x01e6…01f8 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x005a}
0x01f8…0218 Head {h00=0x001c, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x006c}
0x0218…022c Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x008c}
0x022c…0240 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x00a0}
0x0240…0254 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x00b4}
0x0254…0268 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00c8}
0x0268…027c Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00dc}
0x027c…0290 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x00f0}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x0104}
0x02a4…02c4 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0001, t01=0x0118}
0x02c4…02d8 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0138}
0x02d8…02f8 Head {h00=0x001c, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x014c}
0x02f8…0318 Head {h00=0x001c, h01=0x0050, text=» EXT WCHECK «, t00=0x0001, t01=0x016c}
0x0318…032c Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x018c}
0x032c…033e Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0002, t01=0x0010}
0x033e…0352 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0022}
0x0352…0364 Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0002, t01=0x0036}
0x0364…0384 Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0002, t01=0x0048}
0x0384…03a2 Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0002, t01=0x0068}
0x03a2…03b6 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0002, t01=0x0086}
0x03b6…03ca Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x009a}
0x03ca…03de Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x00ae}
0x03de…03f2 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x00c2}
0x03f2…0406 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x00d6}
0x0406…041a Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x00ea}
0x041a…042c Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x00fe}
0x042c…044c Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x0110}
0x044c…045a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0130}
0x045a…046c Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x013e}
0x046c…0488 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0150}
0x0488…0492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…04d0 Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x0176}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…0514 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0003, t01=0x002e}
0x0514…052e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x0068}
0x052e…055e Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x0082}
0x055e…0594 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x00b2}
0x0594…05ce Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x00e8}
0x05ce…05fc Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x0122}
0x05fc…062a Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x0150}
0x062a…066c Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x017e}
0x066c…069c Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0004, t01=0x0030}
0x069c…06c8 Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0060}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06e0 Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x0096}
0x06e0…06fa Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x00a4}
0x06fa…0712 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x00be}
0x0712…072e Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x00d6}
0x072e…0744 Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x00f2}
0x0744…0752 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x0108}
0x0752…077e Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x0116}
0x077e…0794 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x0142}
0x0794…07be Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x0158}
0x07be…07d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0004, t01=0x0182}
0x07d6…07fe Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0005, t01=0x000a}
0x07fe…0818 Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0005, t01=0x0032}
0x0818…0834 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0005, t01=0x004c}
0x0834…0848 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x0068}
0x0848…085a Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x007c}
0x085a…087a Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0005, t01=0x008e}
0x087a…089e Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x00ae}
0x089e…08b4 Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x00d2}
0x08b4…08e2 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x00e8}
0x08e2…08f8 Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x0116}
0x08f8…091c Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x012c}
0x091c…0940 Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x0150}
0x0940…0968 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'5' NOT ALLOWED «, t00=0x0005, t01=0x0174}
0x0968…097c Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0006, t01=0x000c}
0x097c…098e Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0006, t01=0x0020}
0x098e…099c Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0006, t01=0x0032}
0x099c…09ce Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0006, t01=0x0040}
0x09ce…09fa Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x0072}
0x09fa…0a18 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x009e}
0x0a18…0a44 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x00bc}
0x0a44…0a66 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x00e8}
0x0a66…0a92 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x010a}
0x0a92…0abe Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x0136}
0x0abe…0aea Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x0162}
0x0aea…0b0c Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0006, t01=0x018e}
0x0b0c…0b20 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0007, t01=0x0020}
0x0b20…0b3e Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0007, t01=0x0034}
0x0b3e…0b5c Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0007, t01=0x0052}
0x0b5c…0b74 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x0070}
0x0b74…0b82 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x0088}
0x0b82…0b9a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0096}
0x0b9a…0bc0 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x00ae}
0x0bc0…0bcc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d4}
0x0bcc…0bdc Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x00e0}
0x0bdc…0bf4 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x00f0}
0x0bf4…0c1c Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x0108}
0x0c1c…0c28 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0130}
0x0c28…0c36 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x013c}
0x0c36…0c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x014a}
0x0c44…0c56 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x0158}
0x0c56…0c72 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x016a}
0x0c72…0c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7c…0cb6 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0007, t01=0x0190}
0x0cb6…0ce2 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0008, t01=0x003a}
0x0ce2…0cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0066}
0x0cec…0d08 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0070}
0x0d08…0d38 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x008c}
0x0d38…0d5e Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x00bc}
0x0d5e…0d7a Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x00e2}
0x0d7a…0d94 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x00fe}
0x0d94…0dac Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x0118}
0x0dac…0dba Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x0130}
0x0dba…0ddc Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x013e}
0x0ddc…0df0 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x0160}
0x0df0…0e0a Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x0174}
0x0e0a…0e2e Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0008, t01=0x018e}
0x0e2e…0e60 Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0009, t01=0x0022}
0x0e60…0e8e Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0009, t01=0x0054}
0x0e8e…0eae Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x0082}
0x0eae…0ee0 Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x00a2}
0x0ee0…0eee Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x00d4}
0x0eee…0f18 Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x00e2}
0x0f18…0f2c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x010c}
0x0f2c…0f46 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x0120}
0x0f46…0f5a Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x013a}
0x0f5a…0f7a Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x014e}
0x0f7a…0f90 Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x016e}
0x0f90…0fb2 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0009, t01=0x0184}
0x0fb2…0fe4 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x000a, t01=0x0016}
0x0fe4…1012 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x000a, t01=0x0048}
0x1012…1030 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x0076}
0x1030…1040 Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x0094}
0x1040…104e Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x00a4}
0x104e…1060 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x00b2}
0x1060…108a Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'18',KON40 SLUT KEY«, t00=0x000a, t01=0x00c4}
0x108a…10b6 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,=W'4',KON30 ENTER KEY «, t00=0x000a, t01=0x00ee}
0x10b6…10c4 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x011a}
0x10c4…10ea Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x0128}
0x10ea…1108 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x014e}
0x1108…1134 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x016c}
0x1134…1154 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000b, t01=0x0008}
0x1154…117a Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000b, t01=0x0028}
0x117a…119a Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x004e}
0x119a…11b4 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x006e}
0x11b4…11d2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x0088}
0x11d2…11ec Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x00a6}
0x11ec…11fa Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x00c0}
0x11fa…1206 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00ce}
0x1206…1214 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x00da}
0x1214…1222 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e8}
0x1222…1234 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x00f6}
0x1234…1250 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x0108}
0x1250…125a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0124}
0x125a…129e Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x012e}
0x129e…12dc Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x0172}
0x12dc…1302 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000c, t01=0x0020}
0x1302…1328 Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000c, t01=0x0046}
0x1328…1332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x1332…134a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x0076}
0x134a…136c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x008e}
0x136c…1398 Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x00b0}
0x1398…13c4 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x00dc}
0x13c4…13d2 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x0108}
0x13d2…1404 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x0116}
0x1404…1432 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x0148}
0x1432…1452 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x0176}
0x1452…147c Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000d, t01=0x0008}
0x147c…149e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000d, t01=0x0032}
0x149e…14c2 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000d, t01=0x0054}
0x14c2…14e6 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x0078}
0x14e6…150c Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x009c}
0x150c…1534 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x00c2}
0x1534…1556 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x00ea}
0x1556…1588 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x010c}
0x1588…1596 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x013e}
0x1596…15b4 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x014c}
0x15b4…15c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x016a}
0x15c0…15ce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0176}
0x15ce…15dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0184}
0x15dc…15f2 (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000e, t01=0x0004}
0x15f2…1604 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x001a}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x160e…1646 Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000e, t01=0x0036}
0x1646…166e Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x006e}
0x166e…16a4 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x0096}
0x16a4…16d4 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x00cc}
0x16d4…16fe Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x00fc}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x1708…171a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0130}
0x171a…174a Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x0142}
0x174a…1766 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x0172}
0x1766…179c Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000e, t01=0x018e}
0x179c…17d6 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000f, t01=0x0034}
0x17d6…17ee Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x006e}
0x17ee…1808 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0086}
0x1808…1828 Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x00a0}
0x1828…186c Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x00c0}
0x186c…187e Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x0104}
0x187e…1896 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x000f, t01=0x0116}
0x1896…18b8 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,=W'3',MODP50«, t00=0x000f, t01=0x012e}
0x18b8…18ca Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x000f, t01=0x0150}
0x18ca…18d8 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x000f, t01=0x0162}
0x18d8…18fe Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000f, t01=0x0170}
0x18fe…190a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0008}
0x190a…191a Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x0014}
0x191a…1942 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x0024}
0x1942…1956 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x004c}
0x1956…196c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0060}
0x196c…1982 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0076}
0x1982…1998 Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x008c}
0x1998…19aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00a2}
0x19aa…19b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b4…19e6 Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x00be}
0x19e6…1a10 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x00f0}
0x1a10…1a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011a}
0x1a1a…1a2c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0124}
0x1a2c…1a5c Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0010, t01=0x0136}
0x1a5c…1a92 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0010, t01=0x0166}
0x1a92…1abc Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x000c}
0x1abc…1af6 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x0036}
0x1af6…1b10 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x0070}
0x1b10…1b5c Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x008a}
0x1b5c…1b76 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0011, t01=0x00d6}
0x1b76…1b8a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0011, t01=0x00f0}
0x1b8a…1bac Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0011, t01=0x0104}
0x1bac…1bc6 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C' ' «, t00=0x0011, t01=0x0126}
0x1bc6…1bde Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0011, t01=0x0140}
0x1bde…1c04 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0011, t01=0x0158}
0x1c04…1c10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x017e}
0x1c10…1c20 Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0011, t01=0x018a}
0x1c20…1c48 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x000a}
0x1c48…1c5c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0032}
0x1c5c…1c72 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0046}
0x1c72…1c88 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x005c}
0x1c88…1c9e Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0012, t01=0x0072}
0x1c9e…1cb0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0088}
0x1cb0…1cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cba…1d02 Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x00a4}
0x1d02…1d24 Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0012, t01=0x00ec}
0x1d24…1d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010e}
0x1d2e…1d54 Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0012, t01=0x0118}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d5e…1da0 Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0012, t01=0x0148}
0x1da0…1daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1daa…1dd6 (19, 0, 400) Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x0004}
0x1dd6…1de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de0…1e14 Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x003a}
0x1e14…1e4e Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x006e}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e58…1e6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00b2}
0x1e6a…1e96 Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x00c4}
0x1e96…1eb0 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0013, t01=0x00f0}
0x1eb0…1eca Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0013, t01=0x010a}
0x1eca…1ef2 Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0013, t01=0x0124}
0x1ef2…1f00 Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0013, t01=0x014c}
0x1f00…1f2a Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0013, t01=0x015a}
0x1f2a…1f3e Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0013, t01=0x0184}
0x1f3e…1f54 Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x0008}
0x1f54…1f68 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x001e}
0x1f68…1f84 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x0032}
0x1f84…1fb0 Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01 IF LINE 91 «, t00=0x0014, t01=0x004e}
0x1fb0…1fcc Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0014, t01=0x007a}
0x1fcc…1fe6 Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTOK«, t00=0x0014, t01=0x0096}
0x1fe6…2008 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'4',ENTOK«, t00=0x0014, t01=0x00b0}
0x2008…2016 Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0014, t01=0x00d2}
0x2016…203c Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0014, t01=0x00e0}
0x203c…2064 Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,=W'3' RESET SCREEN«, t00=0x0014, t01=0x0106}
0x2064…207c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0014, t01=0x012e}
0x207c…208c Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0014, t01=0x0146}
0x208c…20b4 Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0014, t01=0x0156}
0x20b4…20c2 Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0014, t01=0x017e}
0x20c2…20e2 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0014, t01=0x018c}
0x20e2…20fa Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0015, t01=0x001c}
0x20fa…2116 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x0034}
0x2116…212c Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x0050}
0x212c…2146 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x0066}
0x2146…2162 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0015, t01=0x0080}
0x2162…2172 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x009c}
0x2172…217c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ac}
0x217c…218a Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x00b6}
0x218a…219e Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0015, t01=0x00c4}
0x219e…21b2 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x00d8}
0x21b2…21c4 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0015, t01=0x00ec}
0x21c4…21d8 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x00fe}
0x21d8…21f4 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0015, t01=0x0112}
0x21f4…2214 Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01«, t00=0x0015, t01=0x012e}
0x2214…2230 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0015, t01=0x014e}
0x2230…2240 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x016a}
0x2240…226a Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0015, t01=0x017a}
0x226a…2278 Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x0014}
0x2278…2298 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x0022}
0x2298…22b4 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0016, t01=0x0042}
0x22b4…22de Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x005e}
0x22de…22f8 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x0088}
0x22f8…2314 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x00a2}
0x2314…2324 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x00be}
0x2324…232e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ce}
0x232e…233c Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0016, t01=0x00d8}
0x233c…235c Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0016, t01=0x00e6}
0x235c…2378 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENT30 «, t00=0x0016, t01=0x0106}
0x2378…23a2 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0016, t01=0x0122}
0x23a2…23bc Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0016, t01=0x014c}
0x23bc…23d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x0166}
0x23d8…23e8 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x0182}
0x23e8…23f2 (23, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0004}
0x23f2…2400 Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x000e}
0x2400…2412 Head {h00=0x000e, h01=0x0050, text=» B ENT10 «, t00=0x0017, t01=0x001c}
0x2412…241c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002e}
0x241c…242a Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x0038}
0x242a…2446 Head {h00=0x0018, h01=0x0050, text=»* CORRECT PAGE 3«, t00=0x0017, t01=0x0046}
0x2446…2458 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0017, t01=0x0062}
0x2458…246c Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x0074}
0x246c…2484 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0017, t01=0x0088}
0x2484…24a2 Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0017, t01=0x00a0}
0x24a2…24bc Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0017, t01=0x00be}
0x24bc…24d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0017, t01=0x00d8}
0x24d8…24e8 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x00f4}
0x24e8…24f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0104}
0x24f2…2500 Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0017, t01=0x010e}
0x2500…2516 Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0017, t01=0x011c}
0x2516…2532 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0017, t01=0x0132}
0x2532…253c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x253c…254a Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0017, t01=0x0158}
0x254a…2570 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0017, t01=0x0166}
0x2570…257c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x018c}
0x257c…258a Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x0008}
0x258a…25b2 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x0016}
0x25b2…25be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x003e}
0x25be…25c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25c8…25de Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0054}
0x25de…25f4 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x006a}
0x25f4…2612 Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0018, t01=0x0080}
0x2612…262e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0018, t01=0x009e}
0x262e…2638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ba}
0x2638…2676 Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0018, t01=0x00c4}
0x2676…26a2 Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0018, t01=0x0102}
0x26a2…26c8 Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0018, t01=0x012e}
0x26c8…26d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0154}
0x26d2…26ee Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0018, t01=0x015e}
0x26ee…2718 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,FORMAL1 WHICH PAGE? «, t00=0x0018, t01=0x017a}
0x2718…273e Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,NXTATT,NXT20,NXT30«, t00=0x0019, t01=0x0014}
0x273e…274c Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x0019, t01=0x003a}
0x274c…2766 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0019, t01=0x0048}
0x2766…2788 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT208«, t00=0x0019, t01=0x0062}
0x2788…27aa Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT209«, t00=0x0019, t01=0x0084}
0x27aa…27ce Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT251 «, t00=0x0019, t01=0x00a6}
0x27ce…27e0 Head {h00=0x000e, h01=0x0050, text=» B NXT253 «, t00=0x0019, t01=0x00ca}
0x27e0…27ee Head {h00=0x000a, h01=0x0050, text=»NXT208«, t00=0x0019, t01=0x00dc}
0x27ee…2808 Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x0019, t01=0x00ea}
0x2808…2824 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0019, t01=0x0104}
0x2824…2836 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x0019, t01=0x0120}
0x2836…2844 Head {h00=0x000a, h01=0x0050, text=»NXT209«, t00=0x0019, t01=0x0132}
0x2844…285e Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x0019, t01=0x0140}
0x285e…287a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN8 «, t00=0x0019, t01=0x015a}
0x287a…288c Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x0019, t01=0x0176}
0x288c…289a Head {h00=0x000a, h01=0x0050, text=»NXT251«, t00=0x0019, t01=0x0188}
0x289a…28b6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 «, t00=0x001a, t01=0x0008}
0x28b6…28c8 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0024}
0x28c8…28d6 Head {h00=0x000a, h01=0x0050, text=»NXT253«, t00=0x001a, t01=0x0036}
0x28d6…28f2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 «, t00=0x001a, t01=0x0044}
0x28f2…2904 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0060}
0x2904…2912 Head {h00=0x000a, h01=0x0050, text=»NXT30 «, t00=0x001a, t01=0x0072}
0x2912…292c Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x001a, t01=0x0080}
0x292c…294e Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT308«, t00=0x001a, t01=0x009a}
0x294e…2970 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT309«, t00=0x001a, t01=0x00bc}
0x2970…2994 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT351 «, t00=0x001a, t01=0x00de}
0x2994…29a6 Head {h00=0x000e, h01=0x0050, text=» B NXT353 «, t00=0x001a, t01=0x0102}
0x29a6…29b4 Head {h00=0x000a, h01=0x0050, text=»NXT308«, t00=0x001a, t01=0x0114}
0x29b4…29d0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001a, t01=0x0122}
0x29d0…29e2 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x013e}
0x29e2…29f0 Head {h00=0x000a, h01=0x0050, text=»NXT309«, t00=0x001a, t01=0x0150}
0x29f0…2a0c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 «, t00=0x001a, t01=0x015e}
0x2a0c…2a1e Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x017a}
0x2a1e…2a2c Head {h00=0x000a, h01=0x0050, text=»NXT351«, t00=0x001a, t01=0x018c}
0x2a2c…2a48 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x001b, t01=0x000a}
0x2a48…2a5a Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001b, t01=0x0026}
0x2a5a…2a68 Head {h00=0x000a, h01=0x0050, text=»NXT353«, t00=0x001b, t01=0x0038}
0x2a68…2a84 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 «, t00=0x001b, t01=0x0046}
0x2a84…2a92 Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x0062}
0x2a92…2aae Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x0070}
0x2aae…2ac2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x008c}
0x2ac2…2ad8 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x00a0}
0x2ad8…2ae6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00b6}
0x2ae6…2afe Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001b, t01=0x00c4}
0x2afe…2b1a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00dc}
0x2b1a…2b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f8}
0x2b24…2b58 Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001b, t01=0x0102}
0x2b58…2b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0136}
0x2b62…2b7e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0140}
0x2b7e…2b94 Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001b, t01=0x015c}
0x2b94…2bbe Head {h00=0x0026, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C«, t00=0x001b, t01=0x0172}
0x2bbe…2be8 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001c, t01=0x000c}
0x2be8…2bfa Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x0036}
0x2bfa…2c08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0048}
0x2c08…2c14 Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001c, t01=0x0056}
0x2c14…2c30 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0062}
0x2c30…2c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x007e}
0x2c3a…2c6c Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001c, t01=0x0088}
0x2c6c…2c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c76…2c92 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x00c4}
0x2c92…2cb8 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001c, t01=0x00e0}
0x2cb8…2ce0 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001c, t01=0x0106}
0x2ce0…2cf6 Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001c, t01=0x012e}
0x2cf6…2d1c Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001c, t01=0x0144}
0x2d1c…2d46 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001c, t01=0x016a}
0x2d46…2d5a (29, 0, 398) Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x0004}
0x2d5a…2d6a Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x0018}
0x2d6a…2d7a Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001d, t01=0x0028}
0x2d7a…2d8c Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x0038}
0x2d8c…2d9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x004a}
0x2d9a…2da6 Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001d, t01=0x0058}
0x2da6…2dc2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0064}
0x2dc2…2dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0080}
0x2dcc…2dfe Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001d, t01=0x008a}
0x2dfe…2e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00bc}
0x2e08…2e24 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x00c6}
0x2e24…2e4a Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001d, t01=0x00e2}
0x2e4a…2e72 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001d, t01=0x0108}
0x2e72…2e88 Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001d, t01=0x0130}
0x2e88…2eae Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001d, t01=0x0146}
0x2eae…2ed8 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001d, t01=0x016c}
0x2ed8…2eec Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001e, t01=0x0008}
0x2eec…2efc Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001e, t01=0x001c}
0x2efc…2f0c Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001e, t01=0x002c}
0x2f0c…2f1e Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001e, t01=0x003c}
0x2f1e…2f2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x004e}
0x2f2c…2f38 Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x005c}
0x2f38…2f54 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0068}
0x2f54…2f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0084}
0x2f5e…2f90 Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001e, t01=0x008e}
0x2f90…2f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c0}
0x2f9a…2fb6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x00ca}
0x2fb6…2fd2 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001e, t01=0x00e6}
0x2fd2…2fee Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001e, t01=0x0102}
0x2fee…3024 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001e, t01=0x011e}
0x3024…3066 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001e, t01=0x0154}
0x3066…3082 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001f, t01=0x0008}
0x3082…30a0 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001f, t01=0x0024}
0x30a0…30b4 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001f, t01=0x0042}
0x30b4…30de Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001f, t01=0x0056}
0x30de…30f2 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x001f, t01=0x0080}
0x30f2…3102 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x0094}
0x3102…3112 Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x001f, t01=0x00a4}
0x3112…3124 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x00b4}
0x3124…3132 Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x001f, t01=0x00c6}
0x3132…3146 Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x001f, t01=0x00d4}
0x3146…3156 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x00e8}
0x3156…3164 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00f8}
0x3164…3170 Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x001f, t01=0x0106}
0x3170…318c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0112}
0x318c…3196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012e}
0x3196…31c4 Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x001f, t01=0x0138}
0x31c4…31ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0166}
0x31ce…31ea Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0170}
0x31ea…3208 Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x001f, t01=0x018c}
0x3208…3232 Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x0020, t01=0x001a}
0x3232…3242 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x0044}
0x3242…3252 Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x0020, t01=0x0054}
0x3252…3264 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x0064}
0x3264…3272 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0076}
0x3272…3280 Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0020, t01=0x0084}
0x3280…329c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0092}
0x329c…32a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ae}
0x32a6…32ce Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0020, t01=0x00b8}
0x32ce…32d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e0}
0x32d8…3304 Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0020, t01=0x00ea}
0x3304…330e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0116}
0x330e…332a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0120}
0x332a…3358 Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0020, t01=0x013c}
0x3358…3376 Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0020, t01=0x016a}
0x3376…33b0 Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0020, t01=0x0188}
0x33b0…33c0 Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0021, t01=0x0032}
0x33c0…33fe Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0021, t01=0x0042}
0x33fe…341e Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0021, t01=0x0080}
0x341e…3432 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0021, t01=0x00a0}
0x3432…3454 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0021, t01=0x00b4}
0x3454…3468 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0021, t01=0x00d6}
0x3468…3486 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0021, t01=0x00ea}
0x3486…34b8 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0021, t01=0x0108}
0x34b8…34da Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0021, t01=0x013a}
0x34da…3506 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0021, t01=0x015c}
0x3506…3536 Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0021, t01=0x0188}
0x3536…357a Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0022, t01=0x0028}
0x357a…3596 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0022, t01=0x006c}
0x3596…35d0 Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0022, t01=0x0088}
0x35d0…35f2 Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0022, t01=0x00c2}
0x35f2…3636 Head {h00=0x0040, h01=0x0050, text=» MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE «, t00=0x0022, t01=0x00e4}
0x3636…3674 Head {h00=0x003a, h01=0x0050, text=» PERF WCHECK WRITE CHECK«, t00=0x0022, t01=0x0128}
0x3674…3684 Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0022, t01=0x0166}
0x3684…369c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0022, t01=0x0176}
0x369c…36be Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0022, t01=0x018e}
0x36be…36d2 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0023, t01=0x0020}
0x36d2…36e4 Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0023, t01=0x0034}
0x36e4…36f4 Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0023, t01=0x0046}
0x36f4…3736 Head {h00=0x003e, h01=0x0050, text=» MOVE SPBINW4,=W'12' SET ERRORCODE «, t00=0x0023, t01=0x0056}
0x3736…3754 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0023, t01=0x0098}
0x3754…3778 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0023, t01=0x00b6}
0x3778…3788 Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0023, t01=0x00da}
0x3788…37b2 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0023, t01=0x00ea}
0x37b2…37c6 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0023, t01=0x0114}
0x37c6…37d6 Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0023, t01=0x0128}
0x37d6…37e6 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0023, t01=0x0138}
0x37e6…37f6 Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0023, t01=0x0148}
0x37f6…3808 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0023, t01=0x0158}
0x3808…3812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016a}
0x3812…3820 Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0023, t01=0x0174}
0x3820…383c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0023, t01=0x0182}
0x383c…3848 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x000e}
0x3848…3856 Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0024, t01=0x001a}
0x3856…3872 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0024, t01=0x0028}
0x3872…387e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0044}
0x387e…388c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0050}
0x388c…38a2 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x005e}
0x38a2…38b8 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0024, t01=0x0074}
0x38b8…38d4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x008a}
0x38d4…38de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a6}
0x38de…3910 Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0024, t01=0x00b0}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e2}
0x391a…3954 Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0024, t01=0x00ec}
0x3954…3990 Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0024, t01=0x0126}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0162}
0x399a…39ce Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0024, t01=0x016c}
0x39ce…39d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0010}
0x39d8…39f4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x001a}
0x39f4…3a24 Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0025, t01=0x0036}
0x3a24…3a6a Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0025, t01=0x0066}
0x3a6a…3a82 Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0025, t01=0x00ac}
0x3a82…3a8e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00c4}
0x3a8e…3a9a Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0025, t01=0x00d0}
0x3a9a…3aae Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0025, t01=0x00dc}
0x3aae…3aba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00f0}
0x3aba…3ac6 Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0025, t01=0x00fc}
0x3ac6…3af2 Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0025, t01=0x0108}
0x3af2…3b16 Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0025, t01=0x0134}
0x3b16…3b5a Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0025, t01=0x0158}
0x3b5a…3b9a Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0026, t01=0x000c}
0x3b9a…3be4 Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0026, t01=0x004c}
0x3be4…3c04 Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0026, t01=0x0096}
0x3c04…3c34 Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0026, t01=0x00b6}
0x3c34…3c52 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0026, t01=0x00e6}
0x3c52…3c5e Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0026, t01=0x0104}
0x3c5e…3c7c Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0026, t01=0x0110}
0x3c7c…3cc2 Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0026, t01=0x012e}
0x3cc2…3cd2 Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0026, t01=0x0174}
0x3cd2…3cde Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0026, t01=0x0184}
0x3cde…3d10 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0026, t01=0x0190}
0x3d10…3d2c Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0027, t01=0x0032}
0x3d2c…3d50 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0027, t01=0x004e}
0x3d50…3d6c Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0027, t01=0x0072}
0x3d6c…3d92 Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0027, t01=0x008e}
0x3d92…3dde Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0027, t01=0x00b4}
0x3dde…3dfc Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0027, t01=0x0100}
0x3dfc…3e48 Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0027, t01=0x011e}
0x3e48…3e68 Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0027, t01=0x016a}
0x3e68…3e98 Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0027, t01=0x018a}
0x3e98…3eb0 Head {h00=0x0014, h01=0x0050, text=»CY40 ERROR KEY«, t00=0x0028, t01=0x002a}
0x3eb0…3ecc Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0028, t01=0x0042}
0x3ecc…3eea Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0028, t01=0x005e}
0x3eea…3f08 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0028, t01=0x007c}
0x3f08…3f1a Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0028, t01=0x009a}
0x3f1a…3f32 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0028, t01=0x00ac}
0x3f32…3f4a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0028, t01=0x00c4}
0x3f4a…3f5a Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0028, t01=0x00dc}
0x3f5a…3f66 Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0028, t01=0x00ec}
0x3f66…3f86 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0028, t01=0x00f8}
0x3f86…3fa2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0028, t01=0x0118}
0x3fa2…3fae Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0028, t01=0x0134}
0x3fae…3fcc Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0028, t01=0x0140}
0x3fcc…3fe0 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0028, t01=0x015e}
0x3fe0…4010 Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0028, t01=0x0172}
0x4010…402c Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x0029, t01=0x0012}
0x402c…4050 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x0029, t01=0x002e}
0x4050…406e Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x0029, t01=0x0052}
0x406e…408c Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0029, t01=0x0070}
0x408c…40a6 Head {h00=0x0016, h01=0x0050, text=» MOVE GTCYIN,GTUWB«, t00=0x0029, t01=0x008e}
0x40a6…40c0 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0029, t01=0x00a8}
0x40c0…40dc Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0029, t01=0x00c2}
0x40dc…40f6 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0029, t01=0x00de}
0x40f6…4112 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0029, t01=0x00f8}
0x4112…411e Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x0029, t01=0x0114}
0x411e…4134 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0029, t01=0x0120}
0x4134…414e Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x0029, t01=0x0136}
0x414e…4166 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x0029, t01=0x0150}
0x4166…4172 Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x0029, t01=0x0168}
0x4172…4186 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0029, t01=0x0174}
0x4186…419c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0188}
0x419c…41aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x000e}
0x41aa…41bc Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002a, t01=0x001c}
0x41bc…41d8 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002a, t01=0x002e}
0x41d8…41e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004a}
0x41e2…4214 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002a, t01=0x0054}
0x4214…421e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0086}
0x421e…4238 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002a, t01=0x0090}
0x4238…425e Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002a, t01=0x00aa}
0x425e…4282 Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYM,=C' '«, t00=0x002a, t01=0x00d0}
0x4282…42ae Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002a, t01=0x00f4}
0x42ae…42d2 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002a, t01=0x0120}
0x42d2…42f2 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002a, t01=0x0144}
0x42f2…4314 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002a, t01=0x0164}
0x4314…432c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002a, t01=0x0186}
0x432c…4344 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002b, t01=0x000e}
0x4344…436e Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002b, t01=0x0026}
0x436e…437a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x0050}
0x437a…4390 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x005c}
0x4390…43a6 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0072}
0x43a6…43ba Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002b, t01=0x0088}
0x43ba…43d6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x009c}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b8}
0x43e0…4410 Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002b, t01=0x00c2}
0x4410…441a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f2}
0x441a…4436 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x00fc}
0x4436…4452 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002b, t01=0x0118}
0x4452…447a Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002b, t01=0x0134}
0x447a…448e Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002b, t01=0x015c}
0x448e…44b0 Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002b, t01=0x0170}
0x44b0…44d2 (44, 0, 400) Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002c, t01=0x0004}
0x44d2…4512 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002c, t01=0x0026}
0x4512…455e Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002c, t01=0x0066}
0x455e…45a4 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002c, t01=0x00b2}
0x45a4…45ce Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002c, t01=0x00f8}
0x45ce…45de Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002c, t01=0x0122}
0x45de…45f2 Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002c, t01=0x0132}
0x45f2…4600 Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002c, t01=0x0146}
0x4600…4614 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002c, t01=0x0154}
0x4614…4630 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002c, t01=0x0168}
0x4630…4652 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002c, t01=0x0184}
0x4652…4684 Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002d, t01=0x0016}
0x4684…46a4 Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002d, t01=0x0048}
0x46a4…46c0 Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002d, t01=0x0068}
0x46c0…46e2 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002d, t01=0x0084}
0x46e2…4704 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002d, t01=0x00a6}
0x4704…472a Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002d, t01=0x00c8}
0x472a…4738 Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002d, t01=0x00ee}
0x4738…474c Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002d, t01=0x00fc}
0x474c…4772 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002d, t01=0x0110}
0x4772…477e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0136}
0x477e…478c Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002d, t01=0x0142}
0x478c…47b4 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002d, t01=0x0150}
0x47b4…47c8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0178}
0x47c8…47de Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x018c}
0x47de…47f4 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0012}
0x47f4…480a Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002e, t01=0x0028}
0x480a…4826 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002e, t01=0x003e}
0x4826…4830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005a}
0x4830…4852 Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002e, t01=0x0064}
0x4852…485c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0086}
0x485c…4896 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002e, t01=0x0090}
0x4896…48a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ca}
0x48a0…48d6 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002e, t01=0x00d4}
0x48d6…48fe Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002e, t01=0x010a}
0x48fe…492c Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x002e, t01=0x0132}
0x492c…4936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0160}
0x4936…4952 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x016a}
0x4952…4976 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002e, t01=0x0186}
0x4976…49ba Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x002f, t01=0x001a}
0x49ba…49e0 Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x002f, t01=0x005e}
0x49e0…4a04 Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x002f, t01=0x0084}
0x4a04…4a1e Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x002f, t01=0x00a8}
0x4a1e…4a34 Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x002f, t01=0x00c2}
0x4a34…4a46 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x002f, t01=0x00d8}
0x4a46…4a5e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x002f, t01=0x00ea}
0x4a5e…4a72 Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x002f, t01=0x0102}
0x4a72…4a8e Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x002f, t01=0x0116}
0x4a8e…4a9e Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x002f, t01=0x0132}
0x4a9e…4ab2 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x002f, t01=0x0142}
0x4ab2…4ae8 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x002f, t01=0x0156}
0x4ae8…4b2a Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x002f, t01=0x018c}
0x4b2a…4b56 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0030, t01=0x003e}
0x4b56…4b6c Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0030, t01=0x006a}
0x4b6c…4bb0 Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0030, t01=0x0080}
0x4bb0…4bc4 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0030, t01=0x00c4}
0x4bc4…4c08 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0030, t01=0x00d8}
0x4c08…4c44 Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0030, t01=0x011c}
0x4c44…4c5e Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0030, t01=0x0158}
0x4c5e…4c9c Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0030, t01=0x0172}
0x4c9c…4cba Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0031, t01=0x0020}
0x4cba…4ce4 Head {h00=0x0026, h01=0x0050, text=» MOVE GTCYIN,GTUWB INITIATE CYSET «, t00=0x0031, t01=0x003e}
0x4ce4…4cfe Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0031, t01=0x0068}
0x4cfe…4d1a Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0031, t01=0x0082}
0x4d1a…4d34 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0031, t01=0x009e}
0x4d34…4d50 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0031, t01=0x00b8}
0x4d50…4d64 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0031, t01=0x00d4}
0x4d64…4d76 Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0031, t01=0x00e8}
0x4d76…4d90 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0031, t01=0x00fa}
0x4d90…4da0 Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0031, t01=0x0114}
0x4da0…4db4 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0031, t01=0x0124}
0x4db4…4dd0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0031, t01=0x0138}
0x4dd0…4df6 Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0031, t01=0x0154}
0x4df6…4e3c Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0031, t01=0x017a}
0x4e3c…4e4a Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0032, t01=0x0030}
0x4e4a…4e74 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0032, t01=0x003e}
0x4e74…4e88 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0032, t01=0x0068}
0x4e88…4e98 Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0032, t01=0x007c}
0x4e98…4ebe Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0032, t01=0x008c}
0x4ebe…4eca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x00b2}
0x4eca…4eda Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0032, t01=0x00be}
0x4eda…4f02 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0032, t01=0x00ce}
0x4f02…4f16 Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0032, t01=0x00f6}
0x4f16…4f24 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x010a}
0x4f24…4f32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0118}
0x4f32…4f42 Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0032, t01=0x0126}
0x4f42…4f5e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0032, t01=0x0136}
0x4f5e…4f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0152}
0x4f68…4fa2 Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0032, t01=0x015c}
0x4fa2…4fd6 Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0033, t01=0x0008}
0x4fd6…5000 Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0033, t01=0x003c}
0x5000…502a Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0033, t01=0x0066}
0x502a…505e Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0033, t01=0x0090}
0x505e…5068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c4}
0x5068…5084 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x00ce}
0x5084…50a0 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0033, t01=0x00ea}
0x50a0…50b8 Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0033, t01=0x0106}
0x50b8…50ec Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0033, t01=0x011e}
0x50ec…50fa Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0033, t01=0x0152}
0x50fa…5116 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0033, t01=0x0160}
0x5116…512c Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0033, t01=0x017c}
0x512c…5148 (52, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0034, t01=0x0004}
0x5148…5178 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0034, t01=0x0020}
0x5178…51a2 Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0034, t01=0x0050}
0x51a2…51b2 Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0034, t01=0x007a}
0x51b2…51bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x008a}
0x51bc…51d4 Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0034, t01=0x0094}
0x51d4…51e2 Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0034, t01=0x00ac}
0x51e2…5214 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0034, t01=0x00ba}
0x5214…5230 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0034, t01=0x00ec}
0x5230…524c Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0034, t01=0x0108}
0x524c…5264 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0034, t01=0x0124}
0x5264…5272 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0034, t01=0x013c}
0x5272…529e Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0034, t01=0x014a}
0x529e…52c4 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0034, t01=0x0176}
0x52c4…52de Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0035, t01=0x000c}
0x52de…5306 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0035, t01=0x0026}
0x5306…531e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0035, t01=0x004e}
0x531e…532c Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0035, t01=0x0066}
0x532c…5340 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0035, t01=0x0074}
0x5340…5358 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0035, t01=0x0088}
0x5358…536c Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0035, t01=0x00a0}
0x536c…5380 Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0035, t01=0x00b4}
0x5380…53a2 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0035, t01=0x00c8}
0x53a2…53d2 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? «, t00=0x0035, t01=0x00ea}
0x53d2…53e0 Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0035, t01=0x011a}
0x53e0…5408 Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0035, t01=0x0128}
0x5408…5416 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0035, t01=0x0150}
0x5416…5434 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0035, t01=0x015e}
0x5434…5454 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0035, t01=0x017c}
0x5454…5480 Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0036, t01=0x000c}
0x5480…549a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0036, t01=0x0038}
0x549a…54b8 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0036, t01=0x0052}
0x54b8…54ca Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0036, t01=0x0070}
0x54ca…54e8 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0036, t01=0x0082}
0x54e8…5506 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0036, t01=0x00a0}
0x5506…5522 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0036, t01=0x00be}
0x5522…5530 Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0036, t01=0x00da}
0x5530…5544 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0036, t01=0x00e8}
0x5544…5554 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0036, t01=0x00fc}
0x5554…557a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0036, t01=0x010c}
0x557a…5586 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x0132}
0x5586…5594 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x013e}
0x5594…55a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x014c}
0x55a2…55b4 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0036, t01=0x015a}
0x55b4…55d0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x016c}
0x55d0…55da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0188}
0x55da…560c (55, 0, 400) Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0037, t01=0x0004}
0x560c…5616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0036}
0x5616…5632 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x0040}
0x5632…5650 Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0037, t01=0x005c}
0x5650…566c Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0037, t01=0x007a}
0x566c…568a Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0037, t01=0x0096}
0x568a…569e Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0037, t01=0x00b4}
0x569e…56b2 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0037, t01=0x00c8}
0x56b2…56d2 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,=W'1',DIV10«, t00=0x0037, t01=0x00dc}
0x56d2…56e6 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0037, t01=0x00fc}
0x56e6…56f8 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x0110}
0x56f8…5706 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0037, t01=0x0122}
0x5706…571a Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0037, t01=0x0130}
0x571a…572c Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x0144}
0x572c…5746 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0037, t01=0x0156}
0x5746…5754 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0037, t01=0x0170}
0x5754…576a Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0037, t01=0x017e}
0x576a…5786 (56, 2, 252) Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0038, t01=0x0004}
0x5786…5798 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x0020}
0x5798…57a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0032}
0x57a2…57b2 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0038, t01=0x003c}
0x57b2…57d8 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0038, t01=0x004c}
0x57d8…57e4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x0072}
0x57e4…57f4 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0038, t01=0x007e}
0x57f4…581c Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0038, t01=0x008e}
0x581c…5828 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x00b6}
0x5828…5836 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x00c2}
0x5836…5840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d0}
0x5840…584a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00da}
0x584a…585e Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0038, t01=0x00e4}
0x585e…5862 Head {h00=0x4004, h01=0x0000}
0x5862…5866 00 38 00 f8 ┆ 8 ┆
0x5866…586e (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x586e…58be (58, 0, 400) 20 53 55 42 46 30 36 20 00 09 01 82 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0a 00 10 00 0a 00 50 53 46 4d 54 30 31 00 0a 00 24 00 18 00 50 5c 46 42 54 5c 47 54 44 49 56 54 52 2c 53 46 4d 58 30 31 20 00 0a 00 32 00 0c 00 50 5c 46 ┆ SUBF06 P FNL PSFMT01 $ P FBT GTDIVTR,SFMX01 2 P F┆
0x58be…590e 54 41 42 5c 34 20 00 0a 00 4e 00 16 00 50 5c 46 43 4f 50 59 5c 3d 27 48 4f 56 45 44 42 4f 47 27 00 0a 00 5e 00 10 00 50 5c 46 4c 49 4e 4b 5c 46 43 59 53 54 00 0a 00 78 00 08 00 50 5c 46 4e 4c 00 0a 00 8c 00 08 00 50 5c 46 4e 4c 00 0a 00 98 ┆TAB 4 N P FCOPY ='HOVEDBOG' ^ P FLINK FCYST x P FNL P FNL ┆
0x590e…595e 00 08 00 50 5c 46 4e 4c 00 0a 00 a4 00 0a 00 50 53 46 4d 58 30 31 00 0a 00 b0 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 5c 46 42 45 4c 4f 42 20 00 0a 00 be 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0a 00 dc 00 1a 00 50 ┆ P FNL PSFMX01 P FLINK FBELOB P FNL P┆
0x595e…59ae 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 20 53 55 42 46 30 38 20 00 0a 00 f0 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0a 01 0e 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 43 4f 50 59 20 3d 27 42 4b 4f 27 20 00 0a 01 22 00 14 00 50 ┆ FLINK SUBF08 P FNL P FCOPY ='BKO' " P┆
0x59ae…59fe 20 20 20 20 20 20 20 20 20 46 54 41 42 20 20 35 00 0a 01 40 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 5c 46 56 41 4c 4f 52 20 00 0a 01 58 00 16 00 50 20 20 20 20 20 20 20 20 20 46 54 41 42 20 20 31 38 20 00 0a 01 76 00 1a 00 50 ┆ FTAB 5 @ P FLINK FVALOR X P FTAB 18 v P┆
0x59fe…5a4e (59, 0, 400) 20 20 20 20 20 20 20 20 20 46 43 4f 50 59 20 3d 27 42 46 4f 27 20 00 0a 01 90 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0b 00 1e 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 20 53 55 42 56 30 37 20 00 0b 00 32 00 1a 00 50 ┆ FCOPY ='BFO' P FNL P FLINK SUBV07 2 P┆
0x5a4e…5a9e 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 20 53 55 42 46 31 31 20 00 0b 00 50 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 20 53 55 42 46 31 32 20 00 0b 00 6e 00 12 00 50 5c 46 4c 49 4e 4b 5c 46 43 59 45 4e 44 20 00 0b 00 8c 00 12 ┆ FLINK SUBF11 P P FLINK SUBF12 n P FLINK FCYEND ┆
0x5a9e…5aee 00 50 20 20 20 20 20 20 20 20 20 46 4d 45 4e 44 00 0b 00 a2 00 06 00 50 2a 20 00 0b 00 b8 00 06 00 50 2a 20 00 0b 00 c2 00 36 00 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P FMEND P* P* 6 P ┆
0x5aee…5b3e 20 20 20 54 52 41 4e 53 54 59 50 45 20 32 00 0b 00 cc 00 12 00 50 46 52 4d 54 30 32 20 20 20 46 52 4d 54 20 00 0b 01 06 00 08 00 50 5c 46 53 4c 00 0b 01 1c 00 18 00 50 5c 46 42 46 5c 47 54 44 49 56 54 52 2c 53 46 4d 54 30 32 20 00 0b 01 28 ┆ TRANSTYPE 2 PFRMT02 FRMT P FSL P FBF GTDIVTR,SFMT02 (┆
0x5b3e…5b8e 00 16 00 50 5c 46 4d 45 4c 5c 27 39 39 27 2c 47 54 52 45 47 4e 52 00 0b 01 44 00 22 00 50 20 20 20 20 20 20 20 20 20 46 43 4f 50 59 20 3d 27 20 4e 4f 52 4d 41 4c 50 4f 53 54 27 20 00 0b 01 5e 00 10 00 50 5c 46 4c 49 4e 4b 5c 46 43 59 53 54 ┆ P FMEL '99',GTREGNR D " P FCOPY =' NORMALPOST' ^ P FLINK FCYST┆
0x5b8e…5bde (60, 0, 400) 00 0b 01 84 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0c 00 08 00 20 00 50 20 20 20 20 20 20 20 20 20 46 43 4f 50 59 20 3d 27 52 45 47 4b 4f 4e 54 4f 4e 52 27 00 0c 00 1c 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0c 00 40 ┆ P FNL P FCOPY ='REGKONTONR' P FNL @┆
0x5bde…5c2e 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 20 53 55 42 46 30 35 20 00 0c 00 54 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0c 00 72 00 0a 00 50 53 46 4d 54 30 32 00 0c 00 86 00 18 00 50 5c 46 42 54 5c 47 54 44 49 56 54 52 ┆ P FLINK SUBF05 T P FNL r PSFMT02 P FBT GTDIVTR┆
0x5c2e…5c7e 2c 53 46 4d 58 30 32 20 00 0c 00 94 00 0c 00 50 5c 46 54 41 42 5c 34 20 00 0c 00 b0 00 16 00 50 5c 46 43 4f 50 59 5c 3d 27 48 4f 56 45 44 42 4f 47 27 00 0c 00 c0 00 10 00 50 5c 46 4c 49 4e 4b 5c 46 43 59 53 54 00 0c 00 da 00 08 00 50 5c 46 ┆,SFMX02 P FTAB 4 P FCOPY ='HOVEDBOG' P FLINK FCYST P F┆
0x5c7e…5cce 4e 4c 00 0c 00 ee 00 08 00 50 5c 46 4e 4c 00 0c 00 fa 00 08 00 50 5c 46 4e 4c 00 0c 01 06 00 0a 00 50 53 46 4d 58 30 32 00 0c 01 12 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 5c 46 42 45 4c 4f 42 20 00 0c 01 20 00 10 00 50 20 20 ┆NL P FNL P FNL PSFMX02 P FLINK FBELOB P ┆
0x5cce…5d1e 20 20 20 20 20 20 20 46 4e 4c 00 0c 01 3e 00 1a 00 50 20 20 20 20 20 20 20 20 20 46 4c 49 4e 4b 20 53 55 42 46 30 38 20 00 0c 01 52 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c 00 0c 01 70 00 10 00 50 20 20 20 20 20 20 20 20 20 46 4e 4c ┆ FNL > P FLINK SUBF08 R P FNL p P FNL┆