|
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: 23680 (0x5c80)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/RGSUBS.SC«
IDENT RGSUBS 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY ENTER
ENTRY MODP
ENTRY KORT
ENTRY KVIT
ENTRY LSTINT
ENTRY CYK
ENTRY SUBTOT
ENTRY SUM
ENTRY DIVTR
ENTRY KKCH
ENTRY CLRSW
EXT SETKRE
EXT SETDEB
EXT SLUT
EXT FRMTKV
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
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,CBIN4
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,CBIN5 NOT ALLOWED
MOVE SPBINW4,CBIN5 NOT ALLOWED
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,CBIN18,KON40 SLUT KEY
CBNE SPBINW2,CBIN4,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
* SET BCPR/BLEV ACCORDING TO THE CONTENTS OF GTDUPF(2)
SET BCPR
CBL GTDUPF(CBIN2),=D'10000000',MODP10
SET BLEV
CBG GTDUPF(CBIN2),=D'3900000000',MODP20
CLEAR BLEV
B MODP20
MODP10
CLEAR BCPR
MODP20
PERF SLUT
CLEAR TTINVFLG
CLEAR BCPR
CLEAR BLEV
CBNE GTRETUR,CBIN3,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,=' '
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,CBIN3,ENT01 IF LINE 91
MOVE GTRETUR,CBIN1
TBF CKTAUTO,ENTWC
CBNE GTREGDEX,CBIN4,ENTWC
ENT01
PERF KORT TRANS 4: KONTOKORT
MOVE GTRETUR,CBIN3 RESET SCREEN
CLEAR GTKORTFL
B ENTWC
* TYPE 2 - TWO PAGE TRANSACTION
ENTY2
CBNE GTPAGE,CBIN1,ENT10
* GET PAGE 2
TBT GTSLUTFL,ENTY1
SET GTSLUTFL
PERF FMTNXT,CBIN1
MOVE GTRETUR,CBIN2
B ENTOK
*
ENT10
PERF FLDTST
BNOK ENTNOK
PERF SLUT
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,CBIN3,ENT01
MOVE GTRETUR,CBIN3
B ENTWC
* TYPE 3 - THREE PAGE TRANSACTION
ENTY3
CBNE GTPAGE,CBIN1,ENT20
TBT GTSLUTFL,ENTY1
* AFTER PAGE 1, GET NEXT PAGE
PERF FMTNXT,CBIN2
MOVE GTRETUR,CBIN2
B ENTOK
*
ENT20
CBNE GTPAGE,CBIN2,ENT30
TBT GTSLUTFL,ENT30
* AFTER PAGE 2, GET LAST PAGE
PERF FMTNXT,CBIN3
MOVE GTRETUR,CBIN2
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,CBIN1
B ENTWC
*
ENT50
* FINISHED
MOVE GTRETUR,CBIN3
ENTWC
PERF WCHECK,CBIN1
BNOK ENTNOK
*
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 TTCY0FLG BEFORE 1. SLUT IN CYCLE
SET TTCY1FLG
MOVE TTCYM,=C'C' FOR JOURNAL
MOVE GTTEXT,=C'CYKLE ' FOR SCREEN
PERF CYKINT
B CYKOK
CYK1NOK
B CYKNOK
CYK2
********************
*
** CYK2 - START OF STABEL FUNCTION
*
********************
TBT TTLSTFLG,CYK2NOK IN LISTE
TBT TTCY1FLG,CYK2NOK IN CYCLE 1
SET TTCY2FLG
SET TTCY0FLG
MOVE TTCYM,=C'S' FOR JOURNAL
MOVE GTTEXT,=C'STABEL' FOR SCREEN
PERF CYKINT
B CYKOK
CYK2NOK
B CYKNOK
CYK4
********************
*
* CYK4 - PAUSE IN CYCLE / STABEL
*
********************
TBF GTCYFLG,CYK4NOK
TBT GTBDTFLG,CYK4NOK NOT IF BUNDTCHECK
TBT GTSTRFLG,CYK4NOK NOT IF STRAKSCHECK
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
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
TBF TTCYTRFL,CYEND20 F: NO TRANS IN CYKEL
PERF CYOUT
CLEAR TTTSTFLG
WAIT KVOUCH
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
MOVE GSWSTR9,=C'TOTAL '
PERF FRMXVO,CBIN2 GET TOTAL FORMAT
EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
TBT C167FLG,CYEND15 T=NO WRITE JOURNAL
PERF WRITJT,=W'15'
CYEND15
CBL GTREGNR,=D'18',CYEND20 CHECKS?
SET TTTSTFLG
MOVE GTREGF(CBIN4),TTCYKTOT FIND TOTAL VALUE
PERF WCHECK,CBIN1 WRITE CHECK
CYEND20
CLEAR TTTSTFLG
PERF CLRSW
CLEAR TTCY1FLG
CLEAR TTCY2FLG
PERF CYCLR
B CYENDOK
CYEND30
MOVE SPBINW4,CBIN12
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'
CLEAR TTCYTRFL BEFORE 1. TRANS IN CYKEL
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
MOVE SPBINW4,CBIN4
PERF SPERR
B CY30
CY45 MAK
CLEAR TTCY1FLG
CLEAR TTCY2FLG
B CY05
CY50
CBL TTLINNR,=D'25',CY55
MOVE TTLINNR,=D'1'
CY55
MOVE SPINPUT,TTLINNR
PERF SPCHK5
MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER
MOVE GTSUM,GTCYSUM
MOVE TTARKSAV,GTREGF(CBIN9)
MOVE TTCYKST,TTLINNR
MOVE TTCYKPOS,TTLINNR
MOVE GTCYIN,TTASKNR
SUB GTCYIN,CBIN1
MUL GTCYIN,CCYSIZE
ADD GTCYIN,CBIN1
MOVE GTCYOUT,GTCYIN
CY90
SET GTCYWRTF
TBT CCYWRTF,CY95
CLEAR GTCYWRTF
CY95
RET
PEND
EJECT
CYCLR PROC
*******************
*
** CYCLR - CLEAR CYCLEINFORMATION
*
******************
MOVE GTTEXT,=' '
MOVE TTCYM,=' '
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,=' '
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
TBT GTBDTFLG,SUBTNOK NOT IF BUNDTCHECK
TBT GTSTRFLG,SUBTNOK NOT IF STRAKSCHECK
PERF CYOUT
MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR
SET TTPSEFLG INDICATE BREAK
PERF FRMXVO,CBIN3 GET SUBTOT FORMAT
SET GTCYWRTF
PERF WRITVO WRITE SUBTOT LINE
WAIT KVOUCH
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
MOVE GTCYSUM,GTSUM SAVE SUM
SUB TTLINNR,=D'4'
MOVE TTCYKPOS,TTLINNR SAVE LINNR
MOVE GTPSELIN,TTLINNR
MOVE GTCYIN,TTASKNR INITIATE CYSET
SUB GTCYIN,CBIN1
MUL GTCYIN,=W'30' SIZE OF CYCLE PAGE
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,=' '
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,CBIN0,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,CBIN1,DIV10
PERF SETDEB
B DIVTROK
DIV10
PERF SETKRE
B DIVTROK
* CLEAR DIVTR
DIVEND
TBT GTCYFLG,DIVTRNOK
CLEAR GTDIVTR
CLEAR GTBDTFLG
CLEAR GTSTRFLG
MOVE TTSTYRDX,CBIN1
B DIVTROK
*
DIVTROK
CMP CBIN0,CBIN0 OK, SET CR=0
RET
DIVTRNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
CLRSW PROC
********************
*
* CLRSW - CLEAR ALL AUTODUP FLAGS
*
********************
MOVE GSWBIN1,CBIN1
CLRSW1
MOVE GSSWITCH(GSWBIN1),CBIN0
ADD GSWBIN1,CBIN1
CBL GSWBIN1,CBINMAX,CLRSW1
RET
PEND
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUBS 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x0056…0074 Head {h00=0x001a, h01=0x0050, text=» ENTRY ENTER«, t00=0x0000, t01=0x005a}
0x0074…0092 Head {h00=0x001a, h01=0x0050, text=» ENTRY MODP «, t00=0x0000, t01=0x0078}
0x0092…00b0 Head {h00=0x001a, h01=0x0050, text=» ENTRY KORT «, t00=0x0000, t01=0x0096}
0x00b0…00ce Head {h00=0x001a, h01=0x0050, text=» ENTRY KVIT «, t00=0x0000, t01=0x00b4}
0x00ce…00ee Head {h00=0x001c, h01=0x0050, text=» ENTRY LSTINT «, t00=0x0000, t01=0x00d2}
0x00ee…0100 Head {h00=0x000e, h01=0x0050, text=» ENTRY CYK«, t00=0x0000, t01=0x00f2}
0x0100…0120 Head {h00=0x001c, h01=0x0050, text=» ENTRY SUBTOT «, t00=0x0000, t01=0x0104}
0x0120…0132 Head {h00=0x000e, h01=0x0050, text=» ENTRY SUM«, t00=0x0000, t01=0x0124}
0x0132…0146 Head {h00=0x0010, h01=0x0050, text=» ENTRY DIVTR«, t00=0x0000, t01=0x0136}
0x0146…015a Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0000, t01=0x014a}
0x015a…016e Head {h00=0x0010, h01=0x0050, text=» ENTRY CLRSW«, t00=0x0000, t01=0x015e}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0000, t01=0x0172}
0x0182…0196 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0000, t01=0x0186}
0x0196…01a8 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x000a}
0x01a8…01bc Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x001c}
0x01bc…01d0 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x0030}
0x01d0…01e4 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0044}
0x01e4…01f8 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x0058}
0x01f8…020c Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x006c}
0x020c…0220 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x0080}
0x0220…0240 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0001, t01=0x0094}
0x0240…0254 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x00b4}
0x0254…0274 Head {h00=0x001c, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x00c8}
0x0274…0294 Head {h00=0x001c, h01=0x0050, text=» EXT WCHECK «, t00=0x0001, t01=0x00e8}
0x0294…02a8 Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x0108}
0x02a8…02ba Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x011c}
0x02ba…02ce Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x012e}
0x02ce…02e0 Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0001, t01=0x0142}
0x02e0…0300 Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0001, t01=0x0154}
0x0300…031e Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0174}
0x031e…0332 (2, 0, 398) Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0002, t01=0x0004}
0x0332…0346 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x0018}
0x0346…035a Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x002c}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x0040}
0x036e…0382 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x0054}
0x0382…0396 Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x0068}
0x0396…03a8 Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x007c}
0x03a8…03c8 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x008e}
0x03c8…03d0 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ae}
0x03d0…03d8 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00b6}
0x03d8…03ea Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x00be}
0x03ea…0406 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x00d0}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ec}
0x0410…044e Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x00f6}
0x044e…0458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x0458…0492 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0002, t01=0x013e}
0x0492…04ac Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0002, t01=0x0178}
0x04ac…04dc (3, 0, 400) Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x0004}
0x04dc…0512 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x0034}
0x0512…054c Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x006a}
0x054c…057a Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x00a4}
0x057a…05a8 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x00d2}
0x05a8…05ea Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x0100}
0x05ea…061a Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0003, t01=0x0142}
0x061a…0646 Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0003, t01=0x0172}
0x0646…0650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0650…065e Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x0018}
0x065e…0678 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x0026}
0x0678…0690 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x0040}
0x0690…06ac Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x0058}
0x06ac…06c2 Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x0074}
0x06c2…06d0 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x008a}
0x06d0…06fc Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x0098}
0x06fc…0712 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x00c4}
0x0712…073c Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x00da}
0x073c…0754 Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0004, t01=0x0104}
0x0754…077c Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0004, t01=0x011c}
0x077c…0796 Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0004, t01=0x0144}
0x0796…07b2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x0004, t01=0x015e}
0x07b2…07c6 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0004, t01=0x017a}
0x07c6…07d8 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0004, t01=0x018e}
0x07d8…07f8 Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0005, t01=0x0010}
0x07f8…081c Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x0030}
0x081c…0832 Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x0054}
0x0832…0860 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x006a}
0x0860…0876 Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x0098}
0x0876…089a Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x00ae}
0x089a…08be Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x00d2}
0x08be…08e6 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN5 NOT ALLOWED «, t00=0x0005, t01=0x00f6}
0x08e6…090e Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN5 NOT ALLOWED «, t00=0x0005, t01=0x011e}
0x090e…0920 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x0146}
0x0920…092e Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0005, t01=0x0158}
0x092e…0960 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0005, t01=0x0166}
0x0960…098c Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x0008}
0x098c…09aa Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x0034}
0x09aa…09d6 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x0052}
0x09d6…09f8 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x007e}
0x09f8…0a24 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x00a0}
0x0a24…0a50 Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x00cc}
0x0a50…0a7c Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x00f8}
0x0a7c…0a9e Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0006, t01=0x0124}
0x0a9e…0ab2 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0006, t01=0x0146}
0x0ab2…0ad0 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0006, t01=0x015a}
0x0ad0…0aee Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0006, t01=0x0178}
0x0aee…0b06 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x0008}
0x0b06…0b14 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x0020}
0x0b14…0b2c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x002e}
0x0b2c…0b52 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x0046}
0x0b52…0b5e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x006c}
0x0b5e…0b6e Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x0078}
0x0b6e…0b86 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0088}
0x0b86…0bae Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x00a0}
0x0bae…0bba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00c8}
0x0bba…0bc8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00d4}
0x0bc8…0bd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00e2}
0x0bd6…0be8 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x00f0}
0x0be8…0c04 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0102}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x0c0e…0c48 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0007, t01=0x0128}
0x0c48…0c74 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0007, t01=0x0162}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018e}
0x0c7e…0c9a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0008}
0x0c9a…0cca Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x0024}
0x0cca…0cf0 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x0054}
0x0cf0…0d0c Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x007a}
0x0d0c…0d26 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x0096}
0x0d26…0d3e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x00b0}
0x0d3e…0d4c Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x00c8}
0x0d4c…0d6e Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x00d6}
0x0d6e…0d82 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x00f8}
0x0d82…0d9c Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x010c}
0x0d9c…0dc0 Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0008, t01=0x0126}
0x0dc0…0df2 Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0008, t01=0x014a}
0x0df2…0e20 Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0008, t01=0x017c}
0x0e20…0e40 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x001a}
0x0e40…0e72 Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x003a}
0x0e72…0e80 Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x006c}
0x0e80…0eaa Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x007a}
0x0eaa…0ebe Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x00a4}
0x0ebe…0ed8 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x00b8}
0x0ed8…0eec Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x00d2}
0x0eec…0f0c Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x00e6}
0x0f0c…0f22 Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x0106}
0x0f22…0f44 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0009, t01=0x011c}
0x0f44…0f76 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x0009, t01=0x013e}
0x0f76…0fa4 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x0009, t01=0x0170}
0x0fa4…0fc2 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x000e}
0x0fc2…0fd2 Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x002c}
0x0fd2…0fe0 Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x003c}
0x0fe0…0ff2 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x004a}
0x0ff2…101c Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,CBIN18,KON40 SLUT KEY«, t00=0x000a, t01=0x005c}
0x101c…1048 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN4,KON30 ENTER KEY «, t00=0x000a, t01=0x0086}
0x1048…1056 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x00b2}
0x1056…107c Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x00c0}
0x107c…109a Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x00e6}
0x109a…10c6 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x0104}
0x10c6…10e6 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000a, t01=0x0130}
0x10e6…110c Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000a, t01=0x0150}
0x110c…112c Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000a, t01=0x0176}
0x112c…1146 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x0008}
0x1146…1164 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x0022}
0x1164…117e Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x0040}
0x117e…118c Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x005a}
0x118c…1198 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0068}
0x1198…11a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0074}
0x11a6…11b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0082}
0x11b4…11c6 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x0090}
0x11c6…11e2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x00a2}
0x11e2…11ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00be}
0x11ec…1230 Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x00c8}
0x1230…126e Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x010c}
0x126e…1294 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000b, t01=0x014a}
0x1294…12ba Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000b, t01=0x0170}
0x12ba…12c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12c4…12dc Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x0012}
0x12dc…12fe Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x002a}
0x12fe…132a Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x004c}
0x132a…1356 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x0078}
0x1356…1364 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x00a4}
0x1364…1396 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x00b2}
0x1396…13c4 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x00e4}
0x13c4…13e4 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x0112}
0x13e4…140e Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000c, t01=0x0132}
0x140e…1430 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000c, t01=0x015c}
0x1430…1454 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000c, t01=0x017e}
0x1454…1478 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x0012}
0x1478…149e Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x0036}
0x149e…14c6 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x005c}
0x14c6…14e8 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x0084}
0x14e8…151a Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x00a6}
0x151a…1528 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x00d8}
0x1528…1546 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x00e6}
0x1546…1552 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0104}
0x1552…1560 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0110}
0x1560…156e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x011e}
0x156e…1584 Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000d, t01=0x012c}
0x1584…1596 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0142}
0x1596…15a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15a0…15d8 Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000d, t01=0x015e}
0x15d8…1600 Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x0008}
0x1600…1636 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x0030}
0x1636…1666 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x0066}
0x1666…1690 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x0096}
0x1690…169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c0}
0x169a…16ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00ca}
0x16ac…16dc Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x00dc}
0x16dc…16f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x010c}
0x16f8…172e Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000e, t01=0x0128}
0x172e…1768 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000e, t01=0x015e}
0x1768…1780 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x0008}
0x1780…179a Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0020}
0x179a…17ba Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x003a}
0x17ba…17fe Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x005a}
0x17fe…183c Head {h00=0x003a, h01=0x0050, text=»* SET BCPR/BLEV ACCORDING TO THE CONTENTS OF GTDUPF(2)«, t00=0x000f, t01=0x009e}
0x183c…184e Head {h00=0x000e, h01=0x0050, text=» SET BCPR «, t00=0x000f, t01=0x00dc}
0x184e…187c Head {h00=0x002a, h01=0x0050, text=» CBL GTDUPF(CBIN2),=D'10000000',MODP10«, t00=0x000f, t01=0x00ee}
0x187c…188e Head {h00=0x000e, h01=0x0050, text=» SET BLEV «, t00=0x000f, t01=0x011c}
0x188e…18be Head {h00=0x002c, h01=0x0050, text=» CBG GTDUPF(CBIN2),=D'3900000000',MODP20«, t00=0x000f, t01=0x012e}
0x18be…18d2 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x000f, t01=0x015e}
0x18d2…18e4 Head {h00=0x000e, h01=0x0050, text=» B MODP20 «, t00=0x000f, t01=0x0172}
0x18e4…18f2 Head {h00=0x000a, h01=0x0050, text=»MODP10«, t00=0x000f, t01=0x0184}
0x18f2…1906 (16, 0, 398) Head {h00=0x0010, h01=0x0050, text=» CLEAR BCPR «, t00=0x0010, t01=0x0004}
0x1906…1914 Head {h00=0x000a, h01=0x0050, text=»MODP20«, t00=0x0010, t01=0x0018}
0x1914…1926 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0010, t01=0x0026}
0x1926…193e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x0010, t01=0x0038}
0x193e…1952 Head {h00=0x0010, h01=0x0050, text=» CLEAR BCPR «, t00=0x0010, t01=0x0050}
0x1952…1966 Head {h00=0x0010, h01=0x0050, text=» CLEAR BLEV «, t00=0x0010, t01=0x0064}
0x1966…1988 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,CBIN3,MODP50«, t00=0x0010, t01=0x0078}
0x1988…199a Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x0010, t01=0x009a}
0x199a…19a8 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x0010, t01=0x00ac}
0x19a8…19ce Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0010, t01=0x00ba}
0x19ce…19da Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00e0}
0x19da…19ea Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x00ec}
0x19ea…1a12 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x00fc}
0x1a12…1a26 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0124}
0x1a26…1a3c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0138}
0x1a3c…1a52 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x014e}
0x1a52…1a68 Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x0164}
0x1a68…1a7a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x017a}
0x1a7a…1a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018c}
0x1a84…1ab6 Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0011, t01=0x0008}
0x1ab6…1ae0 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0011, t01=0x003a}
0x1ae0…1aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0064}
0x1aea…1afc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x006e}
0x1afc…1b2c Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0011, t01=0x0080}
0x1b2c…1b62 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0011, t01=0x00b0}
0x1b62…1b8c Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x00e6}
0x1b8c…1bc6 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x0110}
0x1bc6…1be0 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x014a}
0x1be0…1c2c Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x0164}
0x1c2c…1c46 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0012, t01=0x0020}
0x1c46…1c5a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0012, t01=0x003a}
0x1c5a…1c7c Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0012, t01=0x004e}
0x1c7c…1c94 Head {h00=0x0014, h01=0x0050, text=» MOVE TTCYM,=' '«, t00=0x0012, t01=0x0070}
0x1c94…1cac Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0012, t01=0x0088}
0x1cac…1cd2 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0012, t01=0x00a0}
0x1cd2…1cde Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00c6}
0x1cde…1cee Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0012, t01=0x00d2}
0x1cee…1d16 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x00e2}
0x1d16…1d2a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x010a}
0x1d2a…1d40 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x011e}
0x1d40…1d56 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0134}
0x1d56…1d6c Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0012, t01=0x014a}
0x1d6c…1d7e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0160}
0x1d7e…1d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0172}
0x1d88…1dd0 Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x017c}
0x1dd0…1df2 Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0013, t01=0x0034}
0x1df2…1dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0056}
0x1dfc…1e22 Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0013, t01=0x0060}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0086}
0x1e2c…1e6e Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0013, t01=0x0090}
0x1e6e…1e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d2}
0x1e78…1ea4 Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x00dc}
0x1ea4…1eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0108}
0x1eae…1ee2 Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x0112}
0x1ee2…1f1c Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x0146}
0x1f1c…1f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0180}
0x1f26…1f38 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x018a}
0x1f38…1f64 Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0014, t01=0x000c}
0x1f64…1f7e Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0014, t01=0x0038}
0x1f7e…1f98 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0014, t01=0x0052}
0x1f98…1fc0 Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0014, t01=0x006c}
0x1fc0…1fce Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0014, t01=0x0094}
0x1fce…1ff8 Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0014, t01=0x00a2}
0x1ff8…200c Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x00cc}
0x200c…2022 Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x00e0}
0x2022…2036 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x00f6}
0x2036…2052 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x010a}
0x2052…207e Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,CBIN3,ENT01 IF LINE 91 «, t00=0x0014, t01=0x0126}
0x207e…209a Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN1 «, t00=0x0014, t01=0x0152}
0x209a…20b4 Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTWC«, t00=0x0014, t01=0x016e}
0x20b4…20d6 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,CBIN4,ENTWC«, t00=0x0014, t01=0x0188}
0x20d6…20e4 Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0015, t01=0x001a}
0x20e4…210a Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0015, t01=0x0028}
0x210a…2132 Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,CBIN3 RESET SCREEN«, t00=0x0015, t01=0x004e}
0x2132…214a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0015, t01=0x0076}
0x214a…215a Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0015, t01=0x008e}
0x215a…2182 Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0015, t01=0x009e}
0x2182…2190 Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0015, t01=0x00c6}
0x2190…21b0 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0015, t01=0x00d4}
0x21b0…21c8 Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0015, t01=0x00f4}
0x21c8…21e4 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x010c}
0x21e4…21fa Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x0128}
0x21fa…2214 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x013e}
0x2214…2230 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0015, t01=0x0158}
0x2230…2240 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x0174}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x224a…2258 Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x018e}
0x2258…226c Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0016, t01=0x000c}
0x226c…2280 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0016, t01=0x0020}
0x2280…2292 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0016, t01=0x0034}
0x2292…22a6 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0016, t01=0x0046}
0x22a6…22c2 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0016, t01=0x005a}
0x22c2…22e2 Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,CBIN3,ENT01«, t00=0x0016, t01=0x0076}
0x22e2…22fe Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0016, t01=0x0096}
0x22fe…230e Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0016, t01=0x00b2}
0x230e…2338 Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0016, t01=0x00c2}
0x2338…2346 Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x00ec}
0x2346…2366 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x00fa}
0x2366…2382 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0016, t01=0x011a}
0x2382…23ac Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x0136}
0x23ac…23c6 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x0160}
0x23c6…23e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0016, t01=0x017a}
0x23e2…23f2 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x0008}
0x23f2…23fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0018}
0x23fc…240a Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0017, t01=0x0022}
0x240a…242a Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0017, t01=0x0030}
0x242a…2446 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENT30 «, t00=0x0017, t01=0x0050}
0x2446…2470 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0017, t01=0x006c}
0x2470…248a Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0017, t01=0x0096}
0x248a…24a6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0017, t01=0x00b0}
0x24a6…24b6 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x00cc}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24c0…24ce Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x00e6}
0x24ce…24de Head {h00=0x000c, h01=0x0050, text=» B ENT10«, t00=0x0017, t01=0x00f4}
0x24de…24e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0104}
0x24e8…24f6 Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x010e}
0x24f6…2512 Head {h00=0x0018, h01=0x0050, text=»* CORRECT PAGE 3«, t00=0x0017, t01=0x011c}
0x2512…2524 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0017, t01=0x0138}
0x2524…2538 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x014a}
0x2538…2550 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0017, t01=0x015e}
0x2550…256e Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0017, t01=0x0176}
0x256e…2588 (24, 0, 398) Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0018, t01=0x0004}
0x2588…25a4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN1 «, t00=0x0018, t01=0x001e}
0x25a4…25b4 Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0018, t01=0x003a}
0x25b4…25be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25be…25cc Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0018, t01=0x0054}
0x25cc…25e2 Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0018, t01=0x0062}
0x25e2…25fe Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0018, t01=0x0078}
0x25fe…260c Head {h00=0x000a, h01=0x0050, text=»ENTWC «, t00=0x0018, t01=0x0094}
0x260c…2626 Head {h00=0x0016, h01=0x0050, text=» PERF WCHECK,CBIN1«, t00=0x0018, t01=0x00a2}
0x2626…263a Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0018, t01=0x00bc}
0x263a…2644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d0}
0x2644…2652 Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0018, t01=0x00da}
0x2652…2678 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0018, t01=0x00e8}
0x2678…2684 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x010e}
0x2684…2692 Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x011a}
0x2692…26ba Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x0128}
0x26ba…26c6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0150}
0x26c6…26d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26d0…26e6 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0166}
0x26e6…26fc Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x017c}
0x26fc…271a (25, 0, 400) Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0019, t01=0x0004}
0x271a…2736 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0019, t01=0x0022}
0x2736…2740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003e}
0x2740…277e Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0019, t01=0x0048}
0x277e…27aa Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0019, t01=0x0086}
0x27aa…27d0 Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0019, t01=0x00b2}
0x27d0…27da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d8}
0x27da…27f6 Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0019, t01=0x00e2}
0x27f6…2820 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,FORMAL1 WHICH PAGE? «, t00=0x0019, t01=0x00fe}
0x2820…2846 Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,NXTATT,NXT20,NXT30«, t00=0x0019, t01=0x0128}
0x2846…2854 Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x0019, t01=0x014e}
0x2854…286e Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0019, t01=0x015c}
0x286e…2890 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT208«, t00=0x0019, t01=0x0176}
0x2890…28b2 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT209«, t00=0x001a, t01=0x0008}
0x28b2…28d6 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT251 «, t00=0x001a, t01=0x002a}
0x28d6…28e8 Head {h00=0x000e, h01=0x0050, text=» B NXT253 «, t00=0x001a, t01=0x004e}
0x28e8…28f6 Head {h00=0x000a, h01=0x0050, text=»NXT208«, t00=0x001a, t01=0x0060}
0x28f6…2910 Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x001a, t01=0x006e}
0x2910…292c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x001a, t01=0x0088}
0x292c…293e Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x00a4}
0x293e…294c Head {h00=0x000a, h01=0x0050, text=»NXT209«, t00=0x001a, t01=0x00b6}
0x294c…2966 Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x001a, t01=0x00c4}
0x2966…2982 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN8 «, t00=0x001a, t01=0x00de}
0x2982…2994 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x00fa}
0x2994…29a2 Head {h00=0x000a, h01=0x0050, text=»NXT251«, t00=0x001a, t01=0x010c}
0x29a2…29be Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 «, t00=0x001a, t01=0x011a}
0x29be…29d0 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0136}
0x29d0…29de Head {h00=0x000a, h01=0x0050, text=»NXT253«, t00=0x001a, t01=0x0148}
0x29de…29fa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 «, t00=0x001a, t01=0x0156}
0x29fa…2a0c Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0172}
0x2a0c…2a1a Head {h00=0x000a, h01=0x0050, text=»NXT30 «, t00=0x001a, t01=0x0184}
0x2a1a…2a34 (27, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x001b, t01=0x0004}
0x2a34…2a56 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT308«, t00=0x001b, t01=0x001e}
0x2a56…2a78 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT309«, t00=0x001b, t01=0x0040}
0x2a78…2a9c Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT351 «, t00=0x001b, t01=0x0062}
0x2a9c…2aae Head {h00=0x000e, h01=0x0050, text=» B NXT353 «, t00=0x001b, t01=0x0086}
0x2aae…2abc Head {h00=0x000a, h01=0x0050, text=»NXT308«, t00=0x001b, t01=0x0098}
0x2abc…2ad8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001b, t01=0x00a6}
0x2ad8…2aea Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001b, t01=0x00c2}
0x2aea…2af8 Head {h00=0x000a, h01=0x0050, text=»NXT309«, t00=0x001b, t01=0x00d4}
0x2af8…2b14 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 «, t00=0x001b, t01=0x00e2}
0x2b14…2b26 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001b, t01=0x00fe}
0x2b26…2b34 Head {h00=0x000a, h01=0x0050, text=»NXT351«, t00=0x001b, t01=0x0110}
0x2b34…2b50 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x001b, t01=0x011e}
0x2b50…2b62 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001b, t01=0x013a}
0x2b62…2b70 Head {h00=0x000a, h01=0x0050, text=»NXT353«, t00=0x001b, t01=0x014c}
0x2b70…2b8c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 «, t00=0x001b, t01=0x015a}
0x2b8c…2b9a Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x0176}
0x2b9a…2bb6 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x0184}
0x2bb6…2bca Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0010}
0x2bca…2be0 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x0024}
0x2be0…2bee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x003a}
0x2bee…2c06 Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001c, t01=0x0048}
0x2c06…2c22 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0060}
0x2c22…2c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x007c}
0x2c2c…2c60 Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001c, t01=0x0086}
0x2c60…2c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c6a…2c86 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x00c4}
0x2c86…2c9c Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001c, t01=0x00e0}
0x2c9c…2cc6 Head {h00=0x0026, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C«, t00=0x001c, t01=0x00f6}
0x2cc6…2cf0 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001c, t01=0x0120}
0x2cf0…2d02 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x014a}
0x2d02…2d10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x015c}
0x2d10…2d1c Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001c, t01=0x016a}
0x2d1c…2d38 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0176}
0x2d38…2d42 (29, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d42…2d74 Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001d, t01=0x000e}
0x2d74…2d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0040}
0x2d7e…2d9a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x004a}
0x2d9a…2dc0 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001d, t01=0x0066}
0x2dc0…2de8 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001d, t01=0x008c}
0x2de8…2e16 Head {h00=0x002a, h01=0x0050, text=» SET TTCY0FLG BEFORE 1. SLUT IN CYCLE «, t00=0x001d, t01=0x00b4}
0x2e16…2e2c Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001d, t01=0x00e2}
0x2e2c…2e52 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001d, t01=0x00f8}
0x2e52…2e7c Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001d, t01=0x011e}
0x2e7c…2e90 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x0148}
0x2e90…2ea0 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x015c}
0x2ea0…2eb0 Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001d, t01=0x016c}
0x2eb0…2ec2 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x017c}
0x2ec2…2eca Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x018e}
0x2eca…2ed2 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0008}
0x2ed2…2ede Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001e, t01=0x0010}
0x2ede…2efa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x001c}
0x2efa…2f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0038}
0x2f04…2f36 Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001e, t01=0x0042}
0x2f36…2f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0074}
0x2f40…2f5c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x007e}
0x2f5c…2f82 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001e, t01=0x009a}
0x2f82…2faa Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001e, t01=0x00c0}
0x2faa…2fc0 Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001e, t01=0x00e8}
0x2fc0…2fd6 Head {h00=0x0012, h01=0x0050, text=» SET TTCY0FLG «, t00=0x001e, t01=0x00fe}
0x2fd6…2ffc Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001e, t01=0x0114}
0x2ffc…3026 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001e, t01=0x013a}
0x3026…303a Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001e, t01=0x0164}
0x303a…304a Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001e, t01=0x0178}
0x304a…305a Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001e, t01=0x0188}
0x305a…306c Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x0008}
0x306c…3074 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x001a}
0x3074…307c Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0022}
0x307c…3088 Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001f, t01=0x002a}
0x3088…30a4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0036}
0x30a4…30ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30ae…30e0 Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001f, t01=0x005c}
0x30e0…30ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008e}
0x30ea…3106 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0098}
0x3106…3122 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001f, t01=0x00b4}
0x3122…3152 Head {h00=0x002c, h01=0x0050, text=» TBT GTBDTFLG,CYK4NOK NOT IF BUNDTCHECK «, t00=0x001f, t01=0x00d0}
0x3152…3182 Head {h00=0x002c, h01=0x0050, text=» TBT GTSTRFLG,CYK4NOK NOT IF STRAKSCHECK«, t00=0x001f, t01=0x0100}
0x3182…319e Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001f, t01=0x0130}
0x319e…31d4 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001f, t01=0x014c}
0x31d4…3216 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001f, t01=0x0182}
0x3216…3232 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x0020, t01=0x0034}
0x3232…3250 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0020, t01=0x0050}
0x3250…3264 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0020, t01=0x006e}
0x3264…328e Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0020, t01=0x0082}
0x328e…32a2 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0020, t01=0x00ac}
0x32a2…32b2 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x00c0}
0x32b2…32c2 Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x0020, t01=0x00d0}
0x32c2…32d4 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x00e0}
0x32d4…32e2 Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x0020, t01=0x00f2}
0x32e2…32f6 Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x0020, t01=0x0100}
0x32f6…3306 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x0114}
0x3306…330e Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0124}
0x330e…3316 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x012c}
0x3316…3322 Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x0020, t01=0x0134}
0x3322…333e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0140}
0x333e…3348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015c}
0x3348…3376 Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x0020, t01=0x0166}
0x3376…3380 (33, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0004}
0x3380…339c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x000e}
0x339c…33ba Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x0021, t01=0x002a}
0x33ba…33e4 Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x0021, t01=0x0048}
0x33e4…33f4 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0021, t01=0x0072}
0x33f4…3404 Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x0021, t01=0x0082}
0x3404…3416 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0021, t01=0x0092}
0x3416…3424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00a4}
0x3424…3432 Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0021, t01=0x00b2}
0x3432…344e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x00c0}
0x344e…3458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00dc}
0x3458…3480 Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0021, t01=0x00e6}
0x3480…348a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x010e}
0x348a…34b6 Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0021, t01=0x0118}
0x34b6…34c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0144}
0x34c0…34dc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x014e}
0x34dc…350a Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0021, t01=0x016a}
0x350a…3528 Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0022, t01=0x0008}
0x3528…3562 Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0022, t01=0x0026}
0x3562…3572 Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0022, t01=0x0060}
0x3572…35b0 Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0022, t01=0x0070}
0x35b0…35d0 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0022, t01=0x00ae}
0x35d0…3602 Head {h00=0x002e, h01=0x0050, text=» TBF TTCYTRFL,CYEND20 F: NO TRANS IN CYKEL«, t00=0x0022, t01=0x00ce}
0x3602…3616 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0022, t01=0x0100}
0x3616…3638 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0022, t01=0x0114}
0x3638…364c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0022, t01=0x0136}
0x364c…366a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0022, t01=0x014a}
0x366a…369c Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0022, t01=0x0168}
0x369c…36be Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0023, t01=0x000a}
0x36be…36ea Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0023, t01=0x002c}
0x36ea…371a Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0023, t01=0x0058}
0x371a…375e Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0023, t01=0x0088}
0x375e…378e Head {h00=0x002c, h01=0x0050, text=» TBT C167FLG,CYEND15 T=NO WRITE JOURNAL «, t00=0x0023, t01=0x00cc}
0x378e…37aa Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0023, t01=0x00fc}
0x37aa…37ba Head {h00=0x000c, h01=0x0050, text=»CYEND15 «, t00=0x0023, t01=0x0118}
0x37ba…37f4 Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0023, t01=0x0128}
0x37f4…3816 Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0023, t01=0x0162}
0x3816…385c Head {h00=0x0042, h01=0x0050, text=» MOVE GTREGF(CBIN4),TTCYKTOT FIND TOTAL VALUE«, t00=0x0023, t01=0x0184}
0x385c…3882 Head {h00=0x0022, h01=0x0050, text=» PERF WCHECK,CBIN1 WRITE CHECK«, t00=0x0024, t01=0x003a}
0x3882…3892 Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0024, t01=0x0060}
0x3892…38aa Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0024, t01=0x0070}
0x38aa…38be Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0024, t01=0x0088}
0x38be…38d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0024, t01=0x009c}
0x38d6…38f8 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0024, t01=0x00b4}
0x38f8…390c Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0024, t01=0x00d6}
0x390c…391e Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0024, t01=0x00ea}
0x391e…392e Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0024, t01=0x00fc}
0x392e…394a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN12«, t00=0x0024, t01=0x010c}
0x394a…3968 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0024, t01=0x0128}
0x3968…398c Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0024, t01=0x0146}
0x398c…399c Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0024, t01=0x016a}
0x399c…39c6 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0024, t01=0x017a}
0x39c6…39da Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0025, t01=0x0014}
0x39da…39ea Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0025, t01=0x0028}
0x39ea…39fa Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0025, t01=0x0038}
0x39fa…3a0a Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0025, t01=0x0048}
0x3a0a…3a1c Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0025, t01=0x0058}
0x3a1c…3a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006a}
0x3a26…3a34 Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0025, t01=0x0074}
0x3a34…3a50 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0025, t01=0x0082}
0x3a50…3a5c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x009e}
0x3a5c…3a6a Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0025, t01=0x00aa}
0x3a6a…3a86 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0025, t01=0x00b8}
0x3a86…3a92 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00d4}
0x3a92…3aa0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x00e0}
0x3aa0…3ab6 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00ee}
0x3ab6…3acc Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0025, t01=0x0104}
0x3acc…3ae8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x011a}
0x3ae8…3af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0136}
0x3af2…3b24 Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0025, t01=0x0140}
0x3b24…3b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b2e…3b68 Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0025, t01=0x017c}
0x3b68…3ba4 Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0026, t01=0x0026}
0x3ba4…3bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bae…3be2 Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0026, t01=0x006c}
0x3be2…3bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a0}
0x3bec…3c08 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0026, t01=0x00aa}
0x3c08…3c38 Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0026, t01=0x00c6}
0x3c38…3c7e Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0026, t01=0x00f6}
0x3c7e…3c96 Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0026, t01=0x013c}
0x3c96…3ca2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0154}
0x3ca2…3cae Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0026, t01=0x0160}
0x3cae…3cc2 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0026, t01=0x016c}
0x3cc2…3cce Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0180}
0x3cce…3cda Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0026, t01=0x018c}
0x3cda…3d06 Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0027, t01=0x0008}
0x3d06…3d2a Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0027, t01=0x0034}
0x3d2a…3d6e Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0027, t01=0x0058}
0x3d6e…3dae Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0027, t01=0x009c}
0x3dae…3df8 Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0027, t01=0x00dc}
0x3df8…3e18 Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0027, t01=0x0126}
0x3e18…3e48 Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0027, t01=0x0146}
0x3e48…3e66 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0027, t01=0x0176}
0x3e66…3e72 (40, 0, 400) Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0028, t01=0x0004}
0x3e72…3e90 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0028, t01=0x0010}
0x3e90…3ed6 Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0028, t01=0x002e}
0x3ed6…3ee6 Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0028, t01=0x0074}
0x3ee6…3ef2 Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0028, t01=0x0084}
0x3ef2…3f24 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0028, t01=0x0090}
0x3f24…3f40 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0028, t01=0x00c2}
0x3f40…3f64 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0028, t01=0x00de}
0x3f64…3f80 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0028, t01=0x0102}
0x3f80…3fb0 Head {h00=0x002c, h01=0x0050, text=» CLEAR TTCYTRFL BEFORE 1. TRANS IN CYKEL«, t00=0x0028, t01=0x011e}
0x3fb0…3fd6 Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0028, t01=0x014e}
0x3fd6…4022 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0028, t01=0x0174}
0x4022…4040 Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0029, t01=0x0030}
0x4040…408c Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0029, t01=0x004e}
0x408c…40ac Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0029, t01=0x009a}
0x40ac…40dc Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0029, t01=0x00ba}
0x40dc…40f8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x0029, t01=0x00ea}
0x40f8…4116 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0029, t01=0x0106}
0x4116…4134 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0029, t01=0x0124}
0x4134…4146 Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0029, t01=0x0142}
0x4146…415e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0029, t01=0x0154}
0x415e…4176 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0029, t01=0x016c}
0x4176…4186 Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0029, t01=0x0184}
0x4186…4192 (42, 0, 400) Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x002a, t01=0x0004}
0x4192…41b2 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x002a, t01=0x0010}
0x41b2…41ce Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x002a, t01=0x0030}
0x41ce…41da Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x002a, t01=0x004c}
0x41da…41f8 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x002a, t01=0x0058}
0x41f8…420c Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x002a, t01=0x0076}
0x420c…423c Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x002a, t01=0x008a}
0x423c…4258 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x002a, t01=0x00ba}
0x4258…427c Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x002a, t01=0x00d6}
0x427c…429a Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x002a, t01=0x00fa}
0x429a…42b8 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x002a, t01=0x0118}
0x42b8…42d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x002a, t01=0x0136}
0x42d4…42ee Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x002a, t01=0x0152}
0x42ee…430a Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x002a, t01=0x016c}
0x430a…4324 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x002a, t01=0x0188}
0x4324…4340 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x002b, t01=0x0012}
0x4340…434c Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x002b, t01=0x002e}
0x434c…4362 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x002b, t01=0x003a}
0x4362…437c Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x002b, t01=0x0050}
0x437c…4394 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x002b, t01=0x006a}
0x4394…43a0 Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x002b, t01=0x0082}
0x43a0…43b4 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002b, t01=0x008e}
0x43b4…43ca Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x00a2}
0x43ca…43d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00b8}
0x43d8…43ea Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002b, t01=0x00c6}
0x43ea…4406 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002b, t01=0x00d8}
0x4406…4410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x4410…4442 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002b, t01=0x00fe}
0x4442…444c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0130}
0x444c…4466 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002b, t01=0x013a}
0x4466…4480 Head {h00=0x0016, h01=0x0050, text=» MOVE GTTEXT,=' ' «, t00=0x002b, t01=0x0154}
0x4480…4498 Head {h00=0x0014, h01=0x0050, text=» MOVE TTCYM,=' '«, t00=0x002b, t01=0x016e}
0x4498…44c4 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002b, t01=0x0186}
0x44c4…44e8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002c, t01=0x0022}
0x44e8…4508 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002c, t01=0x0046}
0x4508…452a Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002c, t01=0x0066}
0x452a…4542 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002c, t01=0x0088}
0x4542…455a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002c, t01=0x00a0}
0x455a…4584 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002c, t01=0x00b8}
0x4584…4590 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x00e2}
0x4590…45a6 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x00ee}
0x45a6…45bc Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0104}
0x45bc…45d0 Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002c, t01=0x011a}
0x45d0…45ec Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x012e}
0x45ec…45f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014a}
0x45f6…4626 Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002c, t01=0x0154}
0x4626…4630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0184}
0x4630…464c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x018e}
0x464c…4668 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002d, t01=0x001a}
0x4668…4690 Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002d, t01=0x0036}
0x4690…46a4 Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002d, t01=0x005e}
0x46a4…46c6 Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002d, t01=0x0072}
0x46c6…46e8 Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002d, t01=0x0094}
0x46e8…4728 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002d, t01=0x00b6}
0x4728…4774 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002d, t01=0x00f6}
0x4774…47ba Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002d, t01=0x0142}
0x47ba…47e4 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002d, t01=0x0188}
0x47e4…47f4 Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002e, t01=0x0022}
0x47f4…4808 Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002e, t01=0x0032}
0x4808…4816 Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002e, t01=0x0046}
0x4816…482a Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002e, t01=0x0054}
0x482a…4846 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002e, t01=0x0068}
0x4846…4868 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002e, t01=0x0084}
0x4868…489a Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002e, t01=0x00a6}
0x489a…48ba Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002e, t01=0x00d8}
0x48ba…48d6 Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002e, t01=0x00f8}
0x48d6…48f8 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002e, t01=0x0114}
0x48f8…491a Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002e, t01=0x0136}
0x491a…4934 Head {h00=0x0016, h01=0x0050, text=» MOVE GTTEXT,=' ' «, t00=0x002e, t01=0x0158}
0x4934…4942 Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002e, t01=0x0172}
0x4942…4956 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002e, t01=0x0180}
0x4956…497c (47, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002f, t01=0x0004}
0x497c…4988 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x002a}
0x4988…4996 Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002f, t01=0x0036}
0x4996…49be Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002f, t01=0x0044}
0x49be…49d2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002f, t01=0x006c}
0x49d2…49e8 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0080}
0x49e8…49fe Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0096}
0x49fe…4a14 Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002f, t01=0x00ac}
0x4a14…4a30 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002f, t01=0x00c2}
0x4a30…4a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00de}
0x4a3a…4a5c Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002f, t01=0x00e8}
0x4a5c…4a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010a}
0x4a66…4aa0 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002f, t01=0x0114}
0x4aa0…4aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014e}
0x4aaa…4ae0 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002f, t01=0x0158}
0x4ae0…4b08 Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002f, t01=0x018e}
0x4b08…4b36 Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x0030, t01=0x0026}
0x4b36…4b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0054}
0x4b40…4b5c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x005e}
0x4b5c…4b80 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x0030, t01=0x007a}
0x4b80…4bc4 Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x0030, t01=0x009e}
0x4bc4…4bea Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x0030, t01=0x00e2}
0x4bea…4c0e Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x0030, t01=0x0108}
0x4c0e…4c28 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x0030, t01=0x012c}
0x4c28…4c3e Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x0030, t01=0x0146}
0x4c3e…4c50 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x0030, t01=0x015c}
0x4c50…4c68 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0030, t01=0x016e}
0x4c68…4c7c Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x0030, t01=0x0186}
0x4c7c…4c98 Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x0031, t01=0x000a}
0x4c98…4ca8 Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x0031, t01=0x0026}
0x4ca8…4cd8 Head {h00=0x002c, h01=0x0050, text=» TBT GTBDTFLG,SUBTNOK NOT IF BUNDTCHECK «, t00=0x0031, t01=0x0036}
0x4cd8…4d08 Head {h00=0x002c, h01=0x0050, text=» TBT GTSTRFLG,SUBTNOK NOT IF STRAKSCHECK«, t00=0x0031, t01=0x0066}
0x4d08…4d1c Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0031, t01=0x0096}
0x4d1c…4d52 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x0031, t01=0x00aa}
0x4d52…4d94 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x0031, t01=0x00e0}
0x4d94…4dc0 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0031, t01=0x0122}
0x4dc0…4dd6 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0031, t01=0x014e}
0x4dd6…4e1a Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0031, t01=0x0164}
0x4e1a…4e2e Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0032, t01=0x0018}
0x4e2e…4e72 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0032, t01=0x002c}
0x4e72…4eae Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0032, t01=0x0070}
0x4eae…4ec8 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0032, t01=0x00ac}
0x4ec8…4f06 Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0032, t01=0x00c6}
0x4f06…4f24 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0032, t01=0x0104}
0x4f24…4f50 Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0032, t01=0x0122}
0x4f50…4f6a Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0032, t01=0x014e}
0x4f6a…4f98 Head {h00=0x002a, h01=0x0050, text=» MUL GTCYIN,=W'30' SIZE OF CYCLE PAGE «, t00=0x0032, t01=0x0168}
0x4f98…4fb2 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0033, t01=0x0008}
0x4fb2…4fce Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0033, t01=0x0022}
0x4fce…4fe2 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0033, t01=0x003e}
0x4fe2…4ff4 Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0033, t01=0x0052}
0x4ff4…500e Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0033, t01=0x0064}
0x500e…501e Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0033, t01=0x007e}
0x501e…5032 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0033, t01=0x008e}
0x5032…504e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0033, t01=0x00a2}
0x504e…5074 Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0033, t01=0x00be}
0x5074…50ba Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0033, t01=0x00e4}
0x50ba…50c8 Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0033, t01=0x012a}
0x50c8…50f2 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0033, t01=0x0138}
0x50f2…5106 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0033, t01=0x0162}
0x5106…5116 Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0033, t01=0x0176}
0x5116…513c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0033, t01=0x0186}
0x513c…5148 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x001c}
0x5148…5158 Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0034, t01=0x0028}
0x5158…5180 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0034, t01=0x0038}
0x5180…5194 Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0034, t01=0x0060}
0x5194…51a2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x0074}
0x51a2…51b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0082}
0x51b0…51c0 Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0034, t01=0x0090}
0x51c0…51dc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0034, t01=0x00a0}
0x51dc…51e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00bc}
0x51e6…5220 Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0034, t01=0x00c6}
0x5220…5254 Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0034, t01=0x0100}
0x5254…527e Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0034, t01=0x0134}
0x527e…52a8 Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0034, t01=0x015e}
0x52a8…52dc Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0034, t01=0x0188}
0x52dc…52e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002c}
0x52e6…5302 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x0036}
0x5302…531e Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0035, t01=0x0052}
0x531e…5336 Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0035, t01=0x006e}
0x5336…536a Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0035, t01=0x0086}
0x536a…5378 Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0035, t01=0x00ba}
0x5378…5394 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0035, t01=0x00c8}
0x5394…53aa Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0035, t01=0x00e4}
0x53aa…53c6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0035, t01=0x00fa}
0x53c6…53f6 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0035, t01=0x0116}
0x53f6…5420 Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0035, t01=0x0146}
0x5420…5430 Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0035, t01=0x0170}
0x5430…543a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0180}
0x543a…5452 Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0035, t01=0x018a}
0x5452…5460 Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0036, t01=0x0012}
0x5460…5492 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0036, t01=0x0020}
0x5492…54ae Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0036, t01=0x0052}
0x54ae…54ca Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=' ' «, t00=0x0036, t01=0x006e}
0x54ca…54e2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0036, t01=0x008a}
0x54e2…54f0 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0036, t01=0x00a2}
0x54f0…551c Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0036, t01=0x00b0}
0x551c…5542 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0036, t01=0x00dc}
0x5542…555c Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0036, t01=0x0102}
0x555c…5584 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0036, t01=0x011c}
0x5584…559c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0036, t01=0x0144}
0x559c…55aa Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0036, t01=0x015c}
0x55aa…55be Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0036, t01=0x016a}
0x55be…55d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0036, t01=0x017e}
0x55d6…55ea Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0037, t01=0x0008}
0x55ea…55fe Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0037, t01=0x001c}
0x55fe…5620 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0037, t01=0x0030}
0x5620…5650 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,SUM80 DEFAULT LINE? «, t00=0x0037, t01=0x0052}
0x5650…565e Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0037, t01=0x0082}
0x565e…5686 Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0037, t01=0x0090}
0x5686…5694 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0037, t01=0x00b8}
0x5694…56b2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0037, t01=0x00c6}
0x56b2…56d2 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0037, t01=0x00e4}
0x56d2…56fe Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0037, t01=0x0104}
0x56fe…5718 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0037, t01=0x0130}
0x5718…5736 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0037, t01=0x014a}
0x5736…5748 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0037, t01=0x0168}
0x5748…5766 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0037, t01=0x017a}
0x5766…5784 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0038, t01=0x0008}
0x5784…57a0 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0038, t01=0x0026}
0x57a0…57ae Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0038, t01=0x0042}
0x57ae…57c2 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0038, t01=0x0050}
0x57c2…57d2 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0038, t01=0x0064}
0x57d2…57f8 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0038, t01=0x0074}
0x57f8…5804 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x009a}
0x5804…5812 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x00a6}
0x5812…5820 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00b4}
0x5820…5832 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0038, t01=0x00c2}
0x5832…584e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0038, t01=0x00d4}
0x584e…5858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f0}
0x5858…588a Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0038, t01=0x00fa}
0x588a…5894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x012c}
0x5894…58b0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0038, t01=0x0136}
0x58b0…58ce Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0038, t01=0x0152}
0x58ce…58ea Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0038, t01=0x0170}
0x58ea…5908 Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0038, t01=0x018c}
0x5908…591c Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0039, t01=0x001a}
0x591c…5930 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0039, t01=0x002e}
0x5930…5950 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,CBIN1,DIV10«, t00=0x0039, t01=0x0042}
0x5950…5964 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0039, t01=0x0062}
0x5964…5976 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x0076}
0x5976…5984 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0039, t01=0x0088}
0x5984…5998 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0039, t01=0x0096}
0x5998…59aa Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x00aa}
0x59aa…59c4 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0039, t01=0x00bc}
0x59c4…59d2 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0039, t01=0x00d6}
0x59d2…59f0 Head {h00=0x001a, h01=0x0050, text=» TBT GTCYFLG,DIVTRNOK «, t00=0x0039, t01=0x00e4}
0x59f0…5a06 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0039, t01=0x0102}
0x5a06…5a1e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTBDTFLG «, t00=0x0039, t01=0x0118}
0x5a1e…5a36 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0039, t01=0x0130}
0x5a36…5a52 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,CBIN1«, t00=0x0039, t01=0x0148}
0x5a52…5a64 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x0164}
0x5a64…5a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0176}
0x5a6e…5a7e Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0039, t01=0x0180}
0x5a7e…5aa4 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0039, t01=0x0190}
0x5aa4…5ab0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x0026}
0x5ab0…5ac0 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x003a, t01=0x0032}
0x5ac0…5ae8 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x003a, t01=0x0042}
0x5ae8…5af4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x006a}
0x5af4…5b02 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x0076}
0x5b02…5b10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0084}
0x5b10…5b22 Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x003a, t01=0x0092}
0x5b22…5b3e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003a, t01=0x00a4}
0x5b3e…5b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c0}
0x5b48…5b7a Head {h00=0x002e, h01=0x0050, text=»* CLRSW - CLEAR ALL AUTODUP FLAGS«, t00=0x003a, t01=0x00ca}
0x5b7a…5b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00fc}
0x5b84…5ba0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003a, t01=0x0106}
0x5ba0…5bbc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x003a, t01=0x0122}
0x5bbc…5bca Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x003a, t01=0x013e}
0x5bca…5bf0 Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x003a, t01=0x014c}
0x5bf0…5c0a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003a, t01=0x0172}
0x5c0a…5c2e Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x003a, t01=0x018c}
0x5c2e…5c3a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003b, t01=0x0020}
0x5c3a…5c48 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003b, t01=0x002c}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003a}
0x5c52…5c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0044}
0x5c5c…5c70 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x003b, t01=0x004e}
0x5c70…5c74 Head {h00=0x4004, h01=0x0000}
0x5c74…5c78 00 3b 00 62 ┆ ; b┆
0x5c78…5c80 (60, 1, 8) 20 04 00 00 00 3c 00 04 ┆ < ┆