|
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: 23848 (0x5d28)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/RGSUBS.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦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
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
PERF SLUT
CLEAR TTINVFLG
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,=C' '
CLEAR GTLOKSPG
CMP CBIN0,CBIN0 OK, SET CR =0
RET
KVITNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
ENTER PROC
**********
*
** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN
** ENTERED ON SCREEN
*
** 1 ANY PAGE TWO ?
*
** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?
*
** 3 FIELD DEPENDENCE TEST
*
** AND THEN PERFORM PROCEDURE SLUT, TO
** WRITE TO DISK AND WRITE RELEVANT RECEIPTS
*
**********
MOVE GTRETUR,CBIN0 SET RETURN CODE
TBT GTTYPE3,ENTY3
TBT GTTYPE2,ENTY2
* TYPE 1 - ONE PAGE TRANSACTION
ENTY1
PERF FLDTST TEST FIELD DEPENDENCE
BNOK ENTNOK
PERF SLUT OK
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,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
CBNE GTPAGE,CBIN3,ENT40
* FIRST TIME PAGE 3
PERF FLDTST
BNOK ENTNOK
B ENT40
*
ENT40
* CORRECT PAGE 3
PERF SLUT
BNOK ENTNOK
CLEAR GTKORTFL
CBE GTSUM,=D'0',ENT50
MOVE GTPAGE,CBIN4
MOVE GTRETUR,CBIN1
B ENTWC
*
ENT50
* FINISHED
MOVE GTRETUR,CBIN3
B ENTWC
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 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
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,=C' '
MOVE TTCYM,=C' '
MOVE GTREGF(CBIN9),=D'0'
MOVE GTSUM,=D'0'
CLEAR GTCYFLG
CLEAR TTSUMFLG
CLEAR TTTSTFLG
CLEAR GTCYTRPF
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
RET
PEND
EJECT
LSTINT PROC
********************
*
** LSTINT - INITIATE LISTFUNCTION
*
********************
TBT GTCYFLG,LSTNOK
TBT TTLSTFLG,LSTEND
* FIRST TIME
SET TTSUMFLG
SET TTLSTFLG
MOVE GTSUM,=D'0' INITIATE SUM
PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL
PERF WTALLY WRITE ON TALLY ROLL
MOVE GTTEXT,=C'LISTE '
B LSTOK
* LAST TIME
LSTEND
WAIT KTALLY
MOVE GSWBCD6,GTSUM
MOVE GSWSTR9,=C'TOTAL '
PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY
PERF WTALLY
ERASE 0,CBIN8,CBIN8
CLEAR TTLSTFLG
CLEAR TTSUMFLG
MOVE GTTEXT,=C' '
LSTOK
PERF SPINF1
CMP CBIN0,CBIN0 OK, SET CR=0
RET
LSTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
SUBTOT PROC
*******************
*
** SUBTOT - SUBTOTAL
*
** LISTFUNCTION- WRITE SUBTOTAL ON TALLY
*
** CYCLEFUNCTION- SAVE CYCLE INFORMATION
** WRITE SUBTOTAL
** IN CYCLE-PAUSE-STATE
*
********************
MOVE GSWSTR9,=C'SUBTOTAL '
TBT TTLSTFLG,SUBTLST IN LIST FUNCTION
TBT GTCYFLG,SUBTCYC IN CYCLE
TBF GTSUMKEY,SUBTNOK IN SUM
* SUBTOTAL IN SUM
SET GTSUBFLG
PERF SUM
CLEAR GTSUBFLG
B SUBTOK10
* SET PAUSE IN CYCLE
SUBTCYC
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,=C' '
CLEAR GTSUMKEY
SUM60
PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
TBF GTCYFLG,SUM70 IF IN CYCLE
DSC0 KVOUCH,RLEAS
MOVE GSWBCD5,TTLINNR SAVE LINNR
CLEAR TTTSTFLG
SUM70
PERF GRASPV
CLEAR GTSWFLAG
PERF LINOPT
BNOK SUM60
CBG GSWBIN1,=W'90',SUM75
CBNE GSWBIN1,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=» EXT SETKRE «, t00=0x0000, t01=0x015e}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0000, t01=0x0172}
0x0182…0194 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0000, t01=0x0186}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x0008}
0x01a8…01bc Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x001c}
0x01bc…01d0 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0030}
0x01d0…01e4 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x0044}
0x01e4…01f8 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x0058}
0x01f8…020c Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x006c}
0x020c…022c Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0001, t01=0x0080}
0x022c…0240 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x00a0}
0x0240…0260 Head {h00=0x001c, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x00b4}
0x0260…0280 Head {h00=0x001c, h01=0x0050, text=» EXT WCHECK «, t00=0x0001, t01=0x00d4}
0x0280…0294 Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x00f4}
0x0294…02a6 Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x0108}
0x02a6…02ba Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x011a}
0x02ba…02cc Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0001, t01=0x012e}
0x02cc…02ec Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0001, t01=0x0140}
0x02ec…030a Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0160}
0x030a…031e Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0001, t01=0x017e}
0x031e…0332 (2, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x0004}
0x0332…0346 Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x0018}
0x0346…035a Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x002c}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x0040}
0x036e…0382 Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x0054}
0x0382…0394 Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x0068}
0x0394…03b4 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x007a}
0x03b4…03bc Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x009a}
0x03bc…03c4 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00a2}
0x03c4…03d6 Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x00aa}
0x03d6…03f2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x00bc}
0x03f2…03fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d8}
0x03fc…043a Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x00e2}
0x043a…0444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0120}
0x0444…047e Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0002, t01=0x012a}
0x047e…0498 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0002, t01=0x0164}
0x0498…04c8 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0002, t01=0x017e}
0x04c8…04fe Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x001e}
0x04fe…0538 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x0054}
0x0538…0566 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x008e}
0x0566…0594 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x00bc}
0x0594…05d6 Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x00ea}
0x05d6…0606 Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0003, t01=0x012c}
0x0606…0632 Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0003, t01=0x015c}
0x0632…063c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0188}
0x063c…064a (4, 0, 400) Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x0004}
0x064a…0664 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x0012}
0x0664…067c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x002c}
0x067c…0698 Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x0044}
0x0698…06ae Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x0060}
0x06ae…06bc Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x0076}
0x06bc…06e8 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x0084}
0x06e8…06fe Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x00b0}
0x06fe…0728 Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x00c6}
0x0728…0740 Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0004, t01=0x00f0}
0x0740…0768 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0004, t01=0x0108}
0x0768…0782 Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0004, t01=0x0130}
0x0782…079e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x0004, t01=0x014a}
0x079e…07b2 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0004, t01=0x0166}
0x07b2…07c4 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0004, t01=0x017a}
0x07c4…07e4 Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0004, t01=0x018c}
0x07e4…0808 Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x001c}
0x0808…081e Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x0040}
0x081e…084c Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x0056}
0x084c…0862 Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x0084}
0x0862…0886 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x009a}
0x0886…08aa Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x00be}
0x08aa…08d2 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN5 NOT ALLOWED «, t00=0x0005, t01=0x00e2}
0x08d2…08fa Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,CBIN5 NOT ALLOWED «, t00=0x0005, t01=0x010a}
0x08fa…090c Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x0132}
0x090c…091a Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0005, t01=0x0144}
0x091a…094c Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0005, t01=0x0152}
0x094c…0978 Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0005, t01=0x0184}
0x0978…0996 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x0020}
0x0996…09c2 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x003e}
0x09c2…09e4 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x006a}
0x09e4…0a10 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x008c}
0x0a10…0a3c Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x00b8}
0x0a3c…0a68 Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x00e4}
0x0a68…0a8a Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0006, t01=0x0110}
0x0a8a…0a9e Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0006, t01=0x0132}
0x0a9e…0abc Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0006, t01=0x0146}
0x0abc…0ada Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0006, t01=0x0164}
0x0ada…0af2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0006, t01=0x0182}
0x0af2…0b00 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x000a}
0x0b00…0b18 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0018}
0x0b18…0b3e Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x0030}
0x0b3e…0b4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0056}
0x0b4a…0b5a Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x0062}
0x0b5a…0b72 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0072}
0x0b72…0b9a Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x008a}
0x0b9a…0ba6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00b2}
0x0ba6…0bb4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00be}
0x0bb4…0bc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00cc}
0x0bc2…0bd4 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x00da}
0x0bd4…0bf0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x00ec}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x0bfa…0c34 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0007, t01=0x0112}
0x0c34…0c60 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0007, t01=0x014c}
0x0c60…0c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6a…0c86 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0182}
0x0c86…0cb6 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x000e}
0x0cb6…0cdc Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x003e}
0x0cdc…0cf8 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x0064}
0x0cf8…0d12 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x0080}
0x0d12…0d2a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x009a}
0x0d2a…0d38 Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x00b2}
0x0d38…0d5a Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x00c0}
0x0d5a…0d6e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x00e2}
0x0d6e…0d88 Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x00f6}
0x0d88…0dac Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0008, t01=0x0110}
0x0dac…0dde Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0008, t01=0x0134}
0x0dde…0e0c Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0008, t01=0x0166}
0x0e0c…0e2c (9, 0, 400) Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x0004}
0x0e2c…0e5e Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x0024}
0x0e5e…0e6c Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x0056}
0x0e6c…0e96 Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x0064}
0x0e96…0eaa Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x008e}
0x0eaa…0ec4 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x00a2}
0x0ec4…0ed8 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x00bc}
0x0ed8…0ef8 Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x00d0}
0x0ef8…0f0e Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x00f0}
0x0f0e…0f30 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0009, t01=0x0106}
0x0f30…0f62 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x0009, t01=0x0128}
0x0f62…0f90 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x0009, t01=0x015a}
0x0f90…0fae Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x0009, t01=0x0188}
0x0fae…0fbe Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x0016}
0x0fbe…0fcc Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x0026}
0x0fcc…0fde Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x0034}
0x0fde…1008 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,CBIN18,KON40 SLUT KEY«, t00=0x000a, t01=0x0046}
0x1008…1034 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN4,KON30 ENTER KEY «, t00=0x000a, t01=0x0070}
0x1034…1042 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x009c}
0x1042…1068 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x00aa}
0x1068…1086 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x00d0}
0x1086…10b2 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x00ee}
0x10b2…10d2 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000a, t01=0x011a}
0x10d2…10f8 Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000a, t01=0x013a}
0x10f8…1118 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000a, t01=0x0160}
0x1118…1132 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000a, t01=0x0180}
0x1132…1150 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x000a}
0x1150…116a Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x0028}
0x116a…1178 Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x0042}
0x1178…1184 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0050}
0x1184…1192 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x005c}
0x1192…11a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x006a}
0x11a0…11b2 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x0078}
0x11b2…11ce Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x008a}
0x11ce…11d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11d8…121c Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x00b0}
0x121c…125a Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x00f4}
0x125a…1280 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000b, t01=0x0132}
0x1280…12a6 Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000b, t01=0x0158}
0x12a6…12b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017e}
0x12b0…12c8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x0188}
0x12c8…12ea Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x0010}
0x12ea…1316 Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x0032}
0x1316…1342 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x005e}
0x1342…1350 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x008a}
0x1350…1382 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x0098}
0x1382…13b0 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x00ca}
0x13b0…13d0 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x00f8}
0x13d0…13fa Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000c, t01=0x0118}
0x13fa…141c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000c, t01=0x0142}
0x141c…1440 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000c, t01=0x0164}
0x1440…1464 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000c, t01=0x0188}
0x1464…148a Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x001c}
0x148a…14b2 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x0042}
0x14b2…14d4 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x006a}
0x14d4…1506 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x008c}
0x1506…1514 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x00be}
0x1514…1532 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x00cc}
0x1532…153e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00ea}
0x153e…154c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00f6}
0x154c…155a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0104}
0x155a…1570 Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000d, t01=0x0112}
0x1570…1582 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0128}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013a}
0x158c…15c4 Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000d, t01=0x0144}
0x15c4…15ec Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000d, t01=0x017c}
0x15ec…1622 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x0014}
0x1622…1652 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x004a}
0x1652…167c Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x007a}
0x167c…1686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a4}
0x1686…1698 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00ae}
0x1698…16c8 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x00c0}
0x16c8…16e4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x00f0}
0x16e4…171a Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000e, t01=0x010c}
0x171a…1754 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000e, t01=0x0142}
0x1754…176c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000e, t01=0x017c}
0x176c…1786 (15, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0004}
0x1786…17a6 Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x001e}
0x17a6…17ea Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x003e}
0x17ea…17fc Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x0082}
0x17fc…1814 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x000f, t01=0x0094}
0x1814…1836 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,CBIN3,MODP50«, t00=0x000f, t01=0x00ac}
0x1836…1848 Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x000f, t01=0x00ce}
0x1848…1856 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x000f, t01=0x00e0}
0x1856…187c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000f, t01=0x00ee}
0x187c…1888 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0114}
0x1888…1898 Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x000f, t01=0x0120}
0x1898…18c0 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x000f, t01=0x0130}
0x18c0…18d4 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0158}
0x18d4…18ea Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x016c}
0x18ea…1900 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0182}
0x1900…1916 Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x0008}
0x1916…1928 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x001e}
0x1928…1932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0030}
0x1932…1964 Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x003a}
0x1964…198e Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x006c}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x1998…19aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00a0}
0x19aa…19da Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0010, t01=0x00b2}
0x19da…1a10 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0010, t01=0x00e2}
0x1a10…1a3a Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0010, t01=0x0118}
0x1a3a…1a74 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0010, t01=0x0142}
0x1a74…1a8e Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0010, t01=0x017c}
0x1a8e…1ada Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x0008}
0x1ada…1af4 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0011, t01=0x0054}
0x1af4…1b08 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0011, t01=0x006e}
0x1b08…1b2a Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0011, t01=0x0082}
0x1b2a…1b44 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C' ' «, t00=0x0011, t01=0x00a4}
0x1b44…1b5c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0011, t01=0x00be}
0x1b5c…1b82 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0011, t01=0x00d6}
0x1b82…1b8e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x00fc}
0x1b8e…1b9e Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0011, t01=0x0108}
0x1b9e…1bc6 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0011, t01=0x0118}
0x1bc6…1bda Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0140}
0x1bda…1bf0 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0154}
0x1bf0…1c06 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x016a}
0x1c06…1c1c Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0011, t01=0x0180}
0x1c1c…1c2e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0008}
0x1c2e…1c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001a}
0x1c38…1c80 Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x0024}
0x1c80…1ca2 Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0012, t01=0x006c}
0x1ca2…1cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cac…1cd2 Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0012, t01=0x0098}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00be}
0x1cdc…1d1e Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0012, t01=0x00c8}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d28…1d54 Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0012, t01=0x0114}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0140}
0x1d5e…1d92 Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0012, t01=0x014a}
0x1d92…1dcc Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0012, t01=0x017e}
0x1dcc…1dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0028}
0x1dd6…1de8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0032}
0x1de8…1e14 Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x0044}
0x1e14…1e2e Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0013, t01=0x0070}
0x1e2e…1e48 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0013, t01=0x008a}
0x1e48…1e70 Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0013, t01=0x00a4}
0x1e70…1e7e Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0013, t01=0x00cc}
0x1e7e…1ea8 Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0013, t01=0x00da}
0x1ea8…1ebc Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0013, t01=0x0104}
0x1ebc…1ed2 Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0013, t01=0x0118}
0x1ed2…1ee6 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0013, t01=0x012e}
0x1ee6…1f02 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0013, t01=0x0142}
0x1f02…1f2e Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,CBIN3,ENT01 IF LINE 91 «, t00=0x0013, t01=0x015e}
0x1f2e…1f4a Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN1 «, t00=0x0013, t01=0x018a}
0x1f4a…1f64 Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTWC«, t00=0x0014, t01=0x0016}
0x1f64…1f86 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,CBIN4,ENTWC«, t00=0x0014, t01=0x0030}
0x1f86…1f94 Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0014, t01=0x0052}
0x1f94…1fba Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0014, t01=0x0060}
0x1fba…1fe2 Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,CBIN3 RESET SCREEN«, t00=0x0014, t01=0x0086}
0x1fe2…1ffa Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0014, t01=0x00ae}
0x1ffa…200a Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0014, t01=0x00c6}
0x200a…2032 Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0014, t01=0x00d6}
0x2032…2040 Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0014, t01=0x00fe}
0x2040…2060 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0014, t01=0x010c}
0x2060…2078 Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0014, t01=0x012c}
0x2078…2094 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0014, t01=0x0144}
0x2094…20aa Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0014, t01=0x0160}
0x20aa…20c4 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0014, t01=0x0176}
0x20c4…20e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0014, t01=0x0190}
0x20e0…20f0 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x001c}
0x20f0…20fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20fa…2108 Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x0036}
0x2108…211c Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0015, t01=0x0044}
0x211c…2130 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x0058}
0x2130…2142 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0015, t01=0x006c}
0x2142…2156 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x007e}
0x2156…2172 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0015, t01=0x0092}
0x2172…2192 Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,CBIN3,ENT01«, t00=0x0015, t01=0x00ae}
0x2192…21ae Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0015, t01=0x00ce}
0x21ae…21be Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0015, t01=0x00ea}
0x21be…21e8 Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0015, t01=0x00fa}
0x21e8…21f6 Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0015, t01=0x0124}
0x21f6…2216 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0015, t01=0x0132}
0x2216…2232 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x0152}
0x2232…225c Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0015, t01=0x016e}
0x225c…2276 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x0008}
0x2276…2292 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0016, t01=0x0022}
0x2292…22a2 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x003e}
0x22a2…22ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004e}
0x22ac…22ba Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0016, t01=0x0058}
0x22ba…22da Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0016, t01=0x0066}
0x22da…22f6 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENT30 «, t00=0x0016, t01=0x0086}
0x22f6…2320 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0016, t01=0x00a2}
0x2320…233a Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0016, t01=0x00cc}
0x233a…2356 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0016, t01=0x00e6}
0x2356…2366 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x0102}
0x2366…2370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0112}
0x2370…237e Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0016, t01=0x011c}
0x237e…238e Head {h00=0x000c, h01=0x0050, text=» B ENT10«, t00=0x0016, t01=0x012a}
0x238e…23ae Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN3,ENT40«, t00=0x0016, t01=0x013a}
0x23ae…23ce Head {h00=0x001c, h01=0x0050, text=»* FIRST TIME PAGE 3 «, t00=0x0016, t01=0x015a}
0x23ce…23e2 Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0016, t01=0x017a}
0x23e2…23f6 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0016, t01=0x018e}
0x23f6…2406 Head {h00=0x000c, h01=0x0050, text=» B ENT40«, t00=0x0017, t01=0x0012}
0x2406…2410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0022}
0x2410…241e Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x002c}
0x241e…243a Head {h00=0x0018, h01=0x0050, text=»* CORRECT PAGE 3«, t00=0x0017, t01=0x003a}
0x243a…244c Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0017, t01=0x0056}
0x244c…2460 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x0068}
0x2460…2478 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0017, t01=0x007c}
0x2478…2496 Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0017, t01=0x0094}
0x2496…24b0 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0017, t01=0x00b2}
0x24b0…24cc Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN1 «, t00=0x0017, t01=0x00cc}
0x24cc…24dc Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0017, t01=0x00e8}
0x24dc…24e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24e6…24f4 Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0017, t01=0x0102}
0x24f4…250a Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0017, t01=0x0110}
0x250a…2526 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0017, t01=0x0126}
0x2526…2536 Head {h00=0x000c, h01=0x0050, text=» B ENTWC«, t00=0x0017, t01=0x0142}
0x2536…2544 Head {h00=0x000a, h01=0x0050, text=»ENTWC «, t00=0x0017, t01=0x0152}
0x2544…255e Head {h00=0x0016, h01=0x0050, text=» PERF WCHECK,CBIN1«, t00=0x0017, t01=0x0160}
0x255e…2572 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x017a}
0x2572…257c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018e}
0x257c…258a Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0018, t01=0x0008}
0x258a…25b0 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0018, t01=0x0016}
0x25b0…25bc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x003c}
0x25bc…25ca Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x0048}
0x25ca…25f2 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x0056}
0x25f2…25fe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x007e}
0x25fe…2608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008a}
0x2608…261e Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0094}
0x261e…2634 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00aa}
0x2634…2652 Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0018, t01=0x00c0}
0x2652…266e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0018, t01=0x00de}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fa}
0x2678…26b6 Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0018, t01=0x0104}
0x26b6…26e2 Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0018, t01=0x0142}
0x26e2…2708 Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0018, t01=0x016e}
0x2708…2712 (25, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x2712…272e Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0019, t01=0x000e}
0x272e…2758 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,FORMAL1 WHICH PAGE? «, t00=0x0019, t01=0x002a}
0x2758…277e Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,NXTATT,NXT20,NXT30«, t00=0x0019, t01=0x0054}
0x277e…278c Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x0019, t01=0x007a}
0x278c…27a6 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0019, t01=0x0088}
0x27a6…27c8 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT208«, t00=0x0019, t01=0x00a2}
0x27c8…27ea Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT209«, t00=0x0019, t01=0x00c4}
0x27ea…280e Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT251 «, t00=0x0019, t01=0x00e6}
0x280e…2820 Head {h00=0x000e, h01=0x0050, text=» B NXT253 «, t00=0x0019, t01=0x010a}
0x2820…282e Head {h00=0x000a, h01=0x0050, text=»NXT208«, t00=0x0019, t01=0x011c}
0x282e…2848 Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x0019, t01=0x012a}
0x2848…2864 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0019, t01=0x0144}
0x2864…2876 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x0019, t01=0x0160}
0x2876…2884 Head {h00=0x000a, h01=0x0050, text=»NXT209«, t00=0x0019, t01=0x0172}
0x2884…289e Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x0019, t01=0x0180}
0x289e…28ba Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN8 «, t00=0x001a, t01=0x000a}
0x28ba…28cc Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0026}
0x28cc…28da Head {h00=0x000a, h01=0x0050, text=»NXT251«, t00=0x001a, t01=0x0038}
0x28da…28f6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 «, t00=0x001a, t01=0x0046}
0x28f6…2908 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0062}
0x2908…2916 Head {h00=0x000a, h01=0x0050, text=»NXT253«, t00=0x001a, t01=0x0074}
0x2916…2932 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 «, t00=0x001a, t01=0x0082}
0x2932…2944 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x009e}
0x2944…2952 Head {h00=0x000a, h01=0x0050, text=»NXT30 «, t00=0x001a, t01=0x00b0}
0x2952…296c Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x001a, t01=0x00be}
0x296c…298e Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT308«, t00=0x001a, t01=0x00d8}
0x298e…29b0 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT309«, t00=0x001a, t01=0x00fa}
0x29b0…29d4 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT351 «, t00=0x001a, t01=0x011c}
0x29d4…29e6 Head {h00=0x000e, h01=0x0050, text=» B NXT353 «, t00=0x001a, t01=0x0140}
0x29e6…29f4 Head {h00=0x000a, h01=0x0050, text=»NXT308«, t00=0x001a, t01=0x0152}
0x29f4…2a10 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001a, t01=0x0160}
0x2a10…2a22 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x017c}
0x2a22…2a30 Head {h00=0x000a, h01=0x0050, text=»NXT309«, t00=0x001a, t01=0x018e}
0x2a30…2a4c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 «, t00=0x001b, t01=0x000c}
0x2a4c…2a5e Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001b, t01=0x0028}
0x2a5e…2a6c Head {h00=0x000a, h01=0x0050, text=»NXT351«, t00=0x001b, t01=0x003a}
0x2a6c…2a88 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x001b, t01=0x0048}
0x2a88…2a9a Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001b, t01=0x0064}
0x2a9a…2aa8 Head {h00=0x000a, h01=0x0050, text=»NXT353«, t00=0x001b, t01=0x0076}
0x2aa8…2ac4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 «, t00=0x001b, t01=0x0084}
0x2ac4…2ad2 Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x00a0}
0x2ad2…2aee Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x00ae}
0x2aee…2b02 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00ca}
0x2b02…2b18 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x00de}
0x2b18…2b26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00f4}
0x2b26…2b3e Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001b, t01=0x0102}
0x2b3e…2b5a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x011a}
0x2b5a…2b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0136}
0x2b64…2b98 Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001b, t01=0x0140}
0x2b98…2ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0174}
0x2ba2…2bbe Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x017e}
0x2bbe…2bd4 Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001c, t01=0x000a}
0x2bd4…2bfe Head {h00=0x0026, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C«, t00=0x001c, t01=0x0020}
0x2bfe…2c28 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001c, t01=0x004a}
0x2c28…2c3a Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x0074}
0x2c3a…2c48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0086}
0x2c48…2c54 Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001c, t01=0x0094}
0x2c54…2c70 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x00a0}
0x2c70…2c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00bc}
0x2c7a…2cac Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001c, t01=0x00c6}
0x2cac…2cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f8}
0x2cb6…2cd2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0102}
0x2cd2…2cf8 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001c, t01=0x011e}
0x2cf8…2d20 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001c, t01=0x0144}
0x2d20…2d36 Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001c, t01=0x016c}
0x2d36…2d5c Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001c, t01=0x0182}
0x2d5c…2d86 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001d, t01=0x0018}
0x2d86…2d9a Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x0042}
0x2d9a…2daa Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x0056}
0x2daa…2dba Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001d, t01=0x0066}
0x2dba…2dcc Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x0076}
0x2dcc…2dd4 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0088}
0x2dd4…2ddc Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0090}
0x2ddc…2de8 Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001d, t01=0x0098}
0x2de8…2e04 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x00a4}
0x2e04…2e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c0}
0x2e0e…2e40 Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001d, t01=0x00ca}
0x2e40…2e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fc}
0x2e4a…2e66 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0106}
0x2e66…2e8c Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001d, t01=0x0122}
0x2e8c…2eb4 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001d, t01=0x0148}
0x2eb4…2eca Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001d, t01=0x0170}
0x2eca…2ef0 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001d, t01=0x0186}
0x2ef0…2f1a Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001e, t01=0x001c}
0x2f1a…2f2e Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001e, t01=0x0046}
0x2f2e…2f3e Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001e, t01=0x005a}
0x2f3e…2f4e Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001e, t01=0x006a}
0x2f4e…2f60 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001e, t01=0x007a}
0x2f60…2f68 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x008c}
0x2f68…2f70 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0094}
0x2f70…2f7c Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x009c}
0x2f7c…2f98 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x00a8}
0x2f98…2fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c4}
0x2fa2…2fd4 Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001e, t01=0x00ce}
0x2fd4…2fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0100}
0x2fde…2ffa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x010a}
0x2ffa…3016 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001e, t01=0x0126}
0x3016…3046 Head {h00=0x002c, h01=0x0050, text=» TBT GTBDTFLG,CYK4NOK NOT IF BUNDTCHECK «, t00=0x001e, t01=0x0142}
0x3046…3076 Head {h00=0x002c, h01=0x0050, text=» TBT GTSTRFLG,CYK4NOK NOT IF STRAKSCHECK«, t00=0x001e, t01=0x0172}
0x3076…3092 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001f, t01=0x0012}
0x3092…30c8 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001f, t01=0x002e}
0x30c8…310a Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001f, t01=0x0064}
0x310a…3126 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001f, t01=0x00a6}
0x3126…3144 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001f, t01=0x00c2}
0x3144…3158 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001f, t01=0x00e0}
0x3158…3182 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001f, t01=0x00f4}
0x3182…3196 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x001f, t01=0x011e}
0x3196…31a6 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x0132}
0x31a6…31b6 Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x001f, t01=0x0142}
0x31b6…31c8 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x0152}
0x31c8…31d6 Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x001f, t01=0x0164}
0x31d6…31ea Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x001f, t01=0x0172}
0x31ea…31fa Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x0186}
0x31fa…3202 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0008}
0x3202…320a Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0010}
0x320a…3216 Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x0020, t01=0x0018}
0x3216…3232 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0024}
0x3232…323c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0040}
0x323c…326a Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x0020, t01=0x004a}
0x326a…3274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0078}
0x3274…3290 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0082}
0x3290…32ae Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x0020, t01=0x009e}
0x32ae…32d8 Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x0020, t01=0x00bc}
0x32d8…32e8 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x00e6}
0x32e8…32f8 Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x0020, t01=0x00f6}
0x32f8…330a Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x0106}
0x330a…3318 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0118}
0x3318…3326 Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0020, t01=0x0126}
0x3326…3342 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0134}
0x3342…334c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0150}
0x334c…3374 Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0020, t01=0x015a}
0x3374…337e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0182}
0x337e…33aa Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0020, t01=0x018c}
0x33aa…33b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0028}
0x33b4…33d0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0032}
0x33d0…33fe Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0021, t01=0x004e}
0x33fe…341c Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0021, t01=0x007c}
0x341c…3456 Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0021, t01=0x009a}
0x3456…3466 Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0021, t01=0x00d4}
0x3466…34a4 Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0021, t01=0x00e4}
0x34a4…34c4 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0021, t01=0x0122}
0x34c4…34f6 Head {h00=0x002e, h01=0x0050, text=» TBF TTCYTRFL,CYEND20 F: NO TRANS IN CYKEL«, t00=0x0021, t01=0x0142}
0x34f6…350a Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0021, t01=0x0174}
0x350a…352c Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0021, t01=0x0188}
0x352c…3540 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0022, t01=0x001a}
0x3540…355e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0022, t01=0x002e}
0x355e…3590 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0022, t01=0x004c}
0x3590…35b2 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0022, t01=0x007e}
0x35b2…35de Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0022, t01=0x00a0}
0x35de…360e Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0022, t01=0x00cc}
0x360e…3652 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0022, t01=0x00fc}
0x3652…3682 Head {h00=0x002c, h01=0x0050, text=» TBT C167FLG,CYEND15 T=NO WRITE JOURNAL «, t00=0x0022, t01=0x0140}
0x3682…369e Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0022, t01=0x0170}
0x369e…36ae Head {h00=0x000c, h01=0x0050, text=»CYEND15 «, t00=0x0022, t01=0x018c}
0x36ae…36e8 Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0023, t01=0x000c}
0x36e8…370a Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0023, t01=0x0046}
0x370a…3750 Head {h00=0x0042, h01=0x0050, text=» MOVE GTREGF(CBIN4),TTCYKTOT FIND TOTAL VALUE«, t00=0x0023, t01=0x0068}
0x3750…3776 Head {h00=0x0022, h01=0x0050, text=» PERF WCHECK,CBIN1 WRITE CHECK«, t00=0x0023, t01=0x00ae}
0x3776…3786 Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0023, t01=0x00d4}
0x3786…379e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0023, t01=0x00e4}
0x379e…37b2 Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0023, t01=0x00fc}
0x37b2…37ca Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0023, t01=0x0110}
0x37ca…37ec Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0023, t01=0x0128}
0x37ec…3800 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0023, t01=0x014a}
0x3800…3812 Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0023, t01=0x015e}
0x3812…3822 Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0023, t01=0x0170}
0x3822…383e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN12«, t00=0x0023, t01=0x0180}
0x383e…385c Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0024, t01=0x000c}
0x385c…3880 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0024, t01=0x002a}
0x3880…3890 Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0024, t01=0x004e}
0x3890…38ba Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0024, t01=0x005e}
0x38ba…38ce Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0024, t01=0x0088}
0x38ce…38de Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0024, t01=0x009c}
0x38de…38ee Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0024, t01=0x00ac}
0x38ee…38fe Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0024, t01=0x00bc}
0x38fe…3910 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0024, t01=0x00cc}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00de}
0x391a…3928 Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0024, t01=0x00e8}
0x3928…3944 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0024, t01=0x00f6}
0x3944…3950 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0112}
0x3950…395e Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0024, t01=0x011e}
0x395e…397a Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0024, t01=0x012c}
0x397a…3986 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0148}
0x3986…3994 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0154}
0x3994…39aa Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0162}
0x39aa…39c0 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0024, t01=0x0178}
0x39c0…39dc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x018e}
0x39dc…39e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001a}
0x39e6…3a18 Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0025, t01=0x0024}
0x3a18…3a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0056}
0x3a22…3a5c Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0025, t01=0x0060}
0x3a5c…3a98 Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0025, t01=0x009a}
0x3a98…3aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d6}
0x3aa2…3ad6 Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0025, t01=0x00e0}
0x3ad6…3ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0114}
0x3ae0…3afc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x011e}
0x3afc…3b2c Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0025, t01=0x013a}
0x3b2c…3b72 Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0025, t01=0x016a}
0x3b72…3b8a Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0026, t01=0x0020}
0x3b8a…3b96 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0038}
0x3b96…3ba2 Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0026, t01=0x0044}
0x3ba2…3bb6 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0026, t01=0x0050}
0x3bb6…3bc2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0064}
0x3bc2…3bce Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0026, t01=0x0070}
0x3bce…3bfa Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0026, t01=0x007c}
0x3bfa…3c1e Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0026, t01=0x00a8}
0x3c1e…3c62 Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0026, t01=0x00cc}
0x3c62…3ca2 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0026, t01=0x0110}
0x3ca2…3cec Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0026, t01=0x0150}
0x3cec…3d0c Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0027, t01=0x000a}
0x3d0c…3d3c Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0027, t01=0x002a}
0x3d3c…3d5a Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0027, t01=0x005a}
0x3d5a…3d66 Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0027, t01=0x0078}
0x3d66…3d84 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0027, t01=0x0084}
0x3d84…3dca Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0027, t01=0x00a2}
0x3dca…3dda Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0027, t01=0x00e8}
0x3dda…3de6 Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0027, t01=0x00f8}
0x3de6…3e18 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0027, t01=0x0104}
0x3e18…3e34 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0027, t01=0x0136}
0x3e34…3e58 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0027, t01=0x0152}
0x3e58…3e74 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0027, t01=0x0176}
0x3e74…3ea4 (40, 0, 400) Head {h00=0x002c, h01=0x0050, text=» CLEAR TTCYTRFL BEFORE 1. TRANS IN CYKEL«, t00=0x0028, t01=0x0004}
0x3ea4…3eca Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0028, t01=0x0034}
0x3eca…3f16 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0028, t01=0x005a}
0x3f16…3f34 Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0028, t01=0x00a6}
0x3f34…3f80 Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0028, t01=0x00c4}
0x3f80…3fa0 Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0028, t01=0x0110}
0x3fa0…3fd0 Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0028, t01=0x0130}
0x3fd0…3fec Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x0028, t01=0x0160}
0x3fec…400a Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0028, t01=0x017c}
0x400a…4028 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0029, t01=0x000a}
0x4028…403a Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0029, t01=0x0028}
0x403a…4052 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0029, t01=0x003a}
0x4052…406a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0029, t01=0x0052}
0x406a…407a Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0029, t01=0x006a}
0x407a…4086 Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0029, t01=0x007a}
0x4086…40a6 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0029, t01=0x0086}
0x40a6…40c2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0029, t01=0x00a6}
0x40c2…40ce Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0029, t01=0x00c2}
0x40ce…40ec Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0029, t01=0x00ce}
0x40ec…4100 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0029, t01=0x00ec}
0x4100…4130 Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0029, t01=0x0100}
0x4130…414c Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x0029, t01=0x0130}
0x414c…4170 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x0029, t01=0x014c}
0x4170…418e Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x0029, t01=0x0170}
0x418e…41ac Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0029, t01=0x018e}
0x41ac…41c8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x002a, t01=0x001c}
0x41c8…41e2 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x002a, t01=0x0038}
0x41e2…41fe Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x002a, t01=0x0052}
0x41fe…4218 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x002a, t01=0x006e}
0x4218…4234 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x002a, t01=0x0088}
0x4234…4240 Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x002a, t01=0x00a4}
0x4240…4256 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x002a, t01=0x00b0}
0x4256…4270 Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x002a, t01=0x00c6}
0x4270…4288 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x002a, t01=0x00e0}
0x4288…4294 Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x002a, t01=0x00f8}
0x4294…42a8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0104}
0x42a8…42be Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x0118}
0x42be…42cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x012e}
0x42cc…42de Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002a, t01=0x013c}
0x42de…42fa Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002a, t01=0x014e}
0x42fa…4304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4304…4336 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002a, t01=0x0174}
0x4336…4340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0016}
0x4340…435a Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002b, t01=0x0020}
0x435a…4380 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002b, t01=0x003a}
0x4380…43a4 Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYM,=C' '«, t00=0x002b, t01=0x0060}
0x43a4…43d0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002b, t01=0x0084}
0x43d0…43f4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002b, t01=0x00b0}
0x43f4…4414 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002b, t01=0x00d4}
0x4414…4436 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002b, t01=0x00f4}
0x4436…444e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002b, t01=0x0116}
0x444e…4466 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002b, t01=0x012e}
0x4466…4490 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002b, t01=0x0146}
0x4490…449c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x0170}
0x449c…44b2 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x017c}
0x44b2…44c8 (44, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0004}
0x44c8…44dc Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002c, t01=0x001a}
0x44dc…44f8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x002e}
0x44f8…4502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004a}
0x4502…4532 Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002c, t01=0x0054}
0x4532…453c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0084}
0x453c…4558 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x008e}
0x4558…4574 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002c, t01=0x00aa}
0x4574…459c Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002c, t01=0x00c6}
0x459c…45b0 Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002c, t01=0x00ee}
0x45b0…45d2 Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002c, t01=0x0102}
0x45d2…45f4 Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002c, t01=0x0124}
0x45f4…4634 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002c, t01=0x0146}
0x4634…4680 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002c, t01=0x0186}
0x4680…46c6 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002d, t01=0x0042}
0x46c6…46f0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002d, t01=0x0088}
0x46f0…4700 Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002d, t01=0x00b2}
0x4700…4714 Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002d, t01=0x00c2}
0x4714…4722 Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002d, t01=0x00d6}
0x4722…4736 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002d, t01=0x00e4}
0x4736…4752 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002d, t01=0x00f8}
0x4752…4774 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002d, t01=0x0114}
0x4774…47a6 Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002d, t01=0x0136}
0x47a6…47c6 Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002d, t01=0x0168}
0x47c6…47e2 Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002d, t01=0x0188}
0x47e2…4804 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002e, t01=0x0014}
0x4804…4826 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002e, t01=0x0036}
0x4826…484c Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002e, t01=0x0058}
0x484c…485a Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002e, t01=0x007e}
0x485a…486e Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002e, t01=0x008c}
0x486e…4894 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002e, t01=0x00a0}
0x4894…48a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x00c6}
0x48a0…48ae Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002e, t01=0x00d2}
0x48ae…48d6 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002e, t01=0x00e0}
0x48d6…48ea Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0108}
0x48ea…4900 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x011c}
0x4900…4916 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0132}
0x4916…492c Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002e, t01=0x0148}
0x492c…4948 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002e, t01=0x015e}
0x4948…4952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017a}
0x4952…4974 Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002e, t01=0x0184}
0x4974…497e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0016}
0x497e…49b8 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002f, t01=0x0020}
0x49b8…49c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005a}
0x49c2…49f8 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002f, t01=0x0064}
0x49f8…4a20 Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002f, t01=0x009a}
0x4a20…4a4e Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x002f, t01=0x00c2}
0x4a4e…4a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f0}
0x4a58…4a74 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002f, t01=0x00fa}
0x4a74…4a98 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002f, t01=0x0116}
0x4a98…4adc Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x002f, t01=0x013a}
0x4adc…4b02 Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x002f, t01=0x017e}
0x4b02…4b26 Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x0030, t01=0x0014}
0x4b26…4b40 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x0030, t01=0x0038}
0x4b40…4b56 Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x0030, t01=0x0052}
0x4b56…4b68 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x0030, t01=0x0068}
0x4b68…4b80 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0030, t01=0x007a}
0x4b80…4b94 Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x0030, t01=0x0092}
0x4b94…4bb0 Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x0030, t01=0x00a6}
0x4bb0…4bc0 Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x0030, t01=0x00c2}
0x4bc0…4bf0 Head {h00=0x002c, h01=0x0050, text=» TBT GTBDTFLG,SUBTNOK NOT IF BUNDTCHECK «, t00=0x0030, t01=0x00d2}
0x4bf0…4c20 Head {h00=0x002c, h01=0x0050, text=» TBT GTSTRFLG,SUBTNOK NOT IF STRAKSCHECK«, t00=0x0030, t01=0x0102}
0x4c20…4c34 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0030, t01=0x0132}
0x4c34…4c6a Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x0030, t01=0x0146}
0x4c6a…4cac Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x0030, t01=0x017c}
0x4cac…4cd8 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0031, t01=0x002e}
0x4cd8…4cee Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0031, t01=0x005a}
0x4cee…4d32 Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0031, t01=0x0070}
0x4d32…4d46 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0031, t01=0x00b4}
0x4d46…4d8a Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0031, t01=0x00c8}
0x4d8a…4dc6 Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0031, t01=0x010c}
0x4dc6…4de0 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0031, t01=0x0148}
0x4de0…4e1e Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0031, t01=0x0162}
0x4e1e…4e3c Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0032, t01=0x0010}
0x4e3c…4e68 Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0032, t01=0x002e}
0x4e68…4e82 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0032, t01=0x005a}
0x4e82…4eb0 Head {h00=0x002a, h01=0x0050, text=» MUL GTCYIN,=W'30' SIZE OF CYCLE PAGE «, t00=0x0032, t01=0x0074}
0x4eb0…4eca Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0032, t01=0x00a2}
0x4eca…4ee6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0032, t01=0x00bc}
0x4ee6…4efa Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0032, t01=0x00d8}
0x4efa…4f0c Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0032, t01=0x00ec}
0x4f0c…4f26 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0032, t01=0x00fe}
0x4f26…4f36 Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0032, t01=0x0118}
0x4f36…4f4a Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0032, t01=0x0128}
0x4f4a…4f66 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0032, t01=0x013c}
0x4f66…4f8c Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0032, t01=0x0158}
0x4f8c…4fd2 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0032, t01=0x017e}
0x4fd2…4fe0 Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0033, t01=0x0034}
0x4fe0…500a Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0033, t01=0x0042}
0x500a…501e Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0033, t01=0x006c}
0x501e…502e Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0033, t01=0x0080}
0x502e…5054 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0033, t01=0x0090}
0x5054…5060 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0033, t01=0x00b6}
0x5060…5070 Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0033, t01=0x00c2}
0x5070…5098 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0033, t01=0x00d2}
0x5098…50ac Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0033, t01=0x00fa}
0x50ac…50ba Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0033, t01=0x010e}
0x50ba…50c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x011c}
0x50c8…50d8 Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0033, t01=0x012a}
0x50d8…50f4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x013a}
0x50f4…50fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0156}
0x50fe…5138 Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0033, t01=0x0160}
0x5138…516c Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0034, t01=0x000a}
0x516c…5196 Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0034, t01=0x003e}
0x5196…51c0 Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0034, t01=0x0068}
0x51c0…51f4 Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0034, t01=0x0092}
0x51f4…51fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c6}
0x51fe…521a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0034, t01=0x00d0}
0x521a…5236 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0034, t01=0x00ec}
0x5236…524e Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0034, t01=0x0108}
0x524e…5282 Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0034, t01=0x0120}
0x5282…5290 Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0034, t01=0x0154}
0x5290…52ac Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0034, t01=0x0162}
0x52ac…52c2 Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0034, t01=0x017e}
0x52c2…52de (53, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0035, t01=0x0004}
0x52de…530e Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0035, t01=0x0020}
0x530e…5338 Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0035, t01=0x0050}
0x5338…5348 Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0035, t01=0x007a}
0x5348…5352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x008a}
0x5352…536a Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0035, t01=0x0094}
0x536a…5378 Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0035, t01=0x00ac}
0x5378…53aa Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0035, t01=0x00ba}
0x53aa…53c6 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0035, t01=0x00ec}
0x53c6…53e2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0035, t01=0x0108}
0x53e2…53fa Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0035, t01=0x0124}
0x53fa…5408 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0035, t01=0x013c}
0x5408…5434 Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0035, t01=0x014a}
0x5434…545a Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0035, t01=0x0176}
0x545a…5474 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0036, t01=0x000c}
0x5474…549c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0036, t01=0x0026}
0x549c…54b4 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0036, t01=0x004e}
0x54b4…54c2 Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0036, t01=0x0066}
0x54c2…54d6 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0036, t01=0x0074}
0x54d6…54ee Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0036, t01=0x0088}
0x54ee…5502 Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0036, t01=0x00a0}
0x5502…5516 Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0036, t01=0x00b4}
0x5516…5538 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0036, t01=0x00c8}
0x5538…5568 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,SUM80 DEFAULT LINE? «, t00=0x0036, t01=0x00ea}
0x5568…5576 Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0036, t01=0x011a}
0x5576…559e Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0036, t01=0x0128}
0x559e…55ac Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0036, t01=0x0150}
0x55ac…55ca Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0036, t01=0x015e}
0x55ca…55ea Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0036, t01=0x017c}
0x55ea…5616 Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0037, t01=0x000c}
0x5616…5630 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0037, t01=0x0038}
0x5630…564e Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0037, t01=0x0052}
0x564e…5660 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0037, t01=0x0070}
0x5660…567e Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0037, t01=0x0082}
0x567e…569c Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0037, t01=0x00a0}
0x569c…56b8 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0037, t01=0x00be}
0x56b8…56c6 Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0037, t01=0x00da}
0x56c6…56da Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0037, t01=0x00e8}
0x56da…56ea Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0037, t01=0x00fc}
0x56ea…5710 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0037, t01=0x010c}
0x5710…571c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0037, t01=0x0132}
0x571c…572a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x013e}
0x572a…5738 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x014c}
0x5738…574a Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0037, t01=0x015a}
0x574a…5766 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x016c}
0x5766…5770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0188}
0x5770…57a2 (56, 0, 400) Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0038, t01=0x0004}
0x57a2…57ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0036}
0x57ac…57c8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0038, t01=0x0040}
0x57c8…57e6 Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0038, t01=0x005c}
0x57e6…5802 Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0038, t01=0x007a}
0x5802…5820 Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0038, t01=0x0096}
0x5820…5834 Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0038, t01=0x00b4}
0x5834…5848 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0038, t01=0x00c8}
0x5848…5868 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,CBIN1,DIV10«, t00=0x0038, t01=0x00dc}
0x5868…587c Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0038, t01=0x00fc}
0x587c…588e Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x0110}
0x588e…589c Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0038, t01=0x0122}
0x589c…58b0 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0038, t01=0x0130}
0x58b0…58c2 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x0144}
0x58c2…58dc Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0038, t01=0x0156}
0x58dc…58ea Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0038, t01=0x0170}
0x58ea…5908 Head {h00=0x001a, h01=0x0050, text=» TBT GTCYFLG,DIVTRNOK «, t00=0x0038, t01=0x017e}
0x5908…591e Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0039, t01=0x000c}
0x591e…5936 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTBDTFLG «, t00=0x0039, t01=0x0022}
0x5936…594e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSTRFLG «, t00=0x0039, t01=0x003a}
0x594e…596a Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,CBIN1«, t00=0x0039, t01=0x0052}
0x596a…597c Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x006e}
0x597c…5986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0080}
0x5986…5996 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0039, t01=0x008a}
0x5996…59bc Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0039, t01=0x009a}
0x59bc…59c8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x00c0}
0x59c8…59d8 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0039, t01=0x00cc}
0x59d8…5a00 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0039, t01=0x00dc}
0x5a00…5a0c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x0104}
0x5a0c…5a1a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x0110}
0x5a1a…5a28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x011e}
0x5a28…5a3a Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x0039, t01=0x012c}
0x5a3a…5a56 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0039, t01=0x013e}
0x5a56…5a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x015a}
0x5a60…5a92 Head {h00=0x002e, h01=0x0050, text=»* CLRSW - CLEAR ALL AUTODUP FLAGS«, t00=0x0039, t01=0x0164}
0x5a92…5a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0008}
0x5a9c…5ab8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003a, t01=0x0012}
0x5ab8…5ad4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x003a, t01=0x002e}
0x5ad4…5ae2 Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x003a, t01=0x004a}
0x5ae2…5b08 Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x003a, t01=0x0058}
0x5b08…5b22 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003a, t01=0x007e}
0x5b22…5b46 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x003a, t01=0x0098}
0x5b46…5b52 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x00bc}
0x5b52…5b60 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x00c8}
0x5b60…5b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d6}
0x5b6a…5b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e0}
0x5b74…5b88 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x003a, t01=0x00ea}
0x5b88…5b8c Head {h00=0x4004, h01=0x0000}
0x5b8c…5b90 00 3a 00 fe ┆ : ┆
0x5b90…5b98 (59, 1, 8) 20 04 00 00 00 3b 00 04 ┆ ; ┆
0x5b98…5be8 (60, 0, 400) 4f 44 45 20 00 1a 4e 4f 20 46 49 58 20 42 55 46 46 45 52 20 41 4c 4c 4f 43 41 54 45 44 20 00 18 46 49 58 20 42 55 46 46 45 52 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 00 16 49 4c 4c 45 47 41 4c 20 43 4f 4e 54 52 4f 4c 20 43 4f 44 45 00 16 49 4c ┆ODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE IL┆
0x5be8…5c38 4c 45 47 41 4c 20 49 4e 44 45 58 20 56 41 4c 55 45 20 00 1c 46 4f 52 4d 41 54 20 43 4f 4e 44 49 54 49 4f 4e 53 20 43 48 41 4e 47 45 44 20 00 14 49 4c 4c 45 47 41 4c 20 50 41 52 41 4d 45 54 45 52 20 00 0e 4c 45 4e 47 54 48 20 45 52 52 4f 52 ┆LEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETER LENGTH ERROR┆
0x5c38…5c88 00 0e 44 41 54 41 53 45 54 20 42 55 53 59 00 1c 49 4c 4c 45 47 41 4c 20 44 41 54 41 53 45 54 20 52 45 46 45 52 45 4e 43 45 20 00 20 54 4f 4f 20 4d 41 4e 59 20 4b 49 41 2f 4e 4b 49 41 20 53 54 41 43 4b 20 4c 45 56 45 4c 53 00 1e 44 49 53 43 ┆ DATASET BUSY ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC┆
0x5c88…5cd8 20 45 52 52 4f 52 3b 20 4e 4f 20 52 45 45 4e 54 45 52 20 50 4f 49 4e 54 00 00 03 02 e1 04 57 02 03 04 39 c4 82 04 22 0f ea 20 00 0a 52 02 12 07 12 30 e2 31 14 01 1b 01 59 18 f0 3a 83 12 3b 61 82 56 ff f6 50 0e 84 56 ff f4 14 0e 81 10 91 50 ┆ ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P┆
0x5cd8…5d28 ff f4 57 08 84 20 1f b4 81 20 33 de 3c 61 eb 10 52 0c 39 61 eb 04 56 06 f6 a1 71 08 f0 3a 01 10 8f 20 6d d8 00 01 00 00 83 d6 ff fc 81 40 71 06 50 18 07 00 80 a0 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 04 41 0c ┆ W 3 <a R 9a V q : m @q P A ┆