|
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: 23772 (0x5cdc)
Notes: pts_type(SC)
Names: »SOURCE.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/SOURCE.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/SOURCE.SC«
IDENT RGSUBS 830207 NJ
DDUM KMD08
PDIV
ENTRY ENTER
ENTRY MODP
ENTRY KORT
ENTRY KKTRP
ENTRY KVIT
ENTRY LSTINT
ENTRY CYKINT
ENTRY CYK
ENTRY CYCLR
ENTRY SUBTOT
ENTRY SUM
ENTRY DIVTR
ENTRY KKCH
ENTRY FMTNXT
ENTRY CLRSW
EXT SETKRE
EXT SETDEB
EXT SLUT
EXT FRMTKV
EXT FRMXSP
EXT FRMXVO
EXT FRMXTA
EXT FRMTKT
EXT FRMXKT
EXT WRITVO
EXT WRITJT
EXT WTALLY
EXT CYTRP
EXT LINOPT
EXT ABORT
EXT EMPTYT
EXT CRVO
EXT SPCLRA
EXT SPERR
EXT SPINF1
EXT SPLIN8
EXT GRASPV
EXT CLEAR8
EXT SPCHK5
EXT FLDTST
EXT CYOUT
INCLUDE EQUATE
EJECT
KORT PROC
********************
*
** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT
*
** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)
******************
TBF TTEORFLG,KORTNOK NOT CORRECT TRANS
TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12)
CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5
CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7
** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT
** WRITE 'KONTOKORT' ON JOURNAL
** TRANSPORT LINE IF NEEDED
*
KORT10
MOVE SPKEY,CBIN1
CLEAR GTSLDFLG
TBF CKTFLAG,KORT12
SET TTKORTFL
KORT12
PERF FRMXSP,CBIN12 SALDO/LINE/CHECK
SET SPPROMPT
PERF SPCLRA WRITE/READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,KORTOK,KORTOK,KORT30
KORT20 ERRORKEY
MOVE SPBINW4,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
PERF SPERR
B KORT10
KORT40
PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL
PERF KKTRP TRANSPORT LINE IF NEEDED
MOVE SPINPUT,TTKTLIN
PERF SPCHK5 GET THE OLD LINE NUMBER
CBG GSWBIN1,=W'89',KORT20
DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE
ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO
ADD TTKTLIN,=D'1' ADD 1 TO LINE NO
PERF KKCH NEW CHECKDIGIT
PERF FRMTKT
EDWRT KVOUCH,GTSTRFMT
DSC0 .NW,KVOUCH,RLEAS
CLEAR GTLOKSPG
BOK KORTOK
SET TTTSTFLG
SET GTREGFLG
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
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)
PERF CYTRP
MOVE SPKEY,CBIN1
SET TTINVFLG
MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1
PERF SLUT
CLEAR TTINVFLG
CBNE GTRETUR,CBIN3,MODP50
PERF KORT
MODP50
CLEAR GTLOKSPG
BOK MODP10
SET TTTSTFLG
SET GTREGFLG
MODP10
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,CBLANKS
CLEAR GTLOKSPG
BOK KVIT10
SET TTTSTFLG
SET GTREGFLG
KVIT10
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,ENTOK
CBNE GTREGDEX,CBIN4,ENTOK
ENT01
PERF KORT TRANS 4: KONTOKORT
MOVE GTRETUR,CBIN3 RESET SCREEN
CLEAR GTKORTFL
B ENTOK
* TYPE 2 - TWO PAGE TRANSACTION
ENTY2
CBNE GTPAGE,CBIN1,ENT10
* GET PAGE 2
TBT GTSLUTFL,ENTY1
SET GTSLUTFL
PERF FMTNXT,CBIN1
MOVE GTRETUR,CBIN2
B ENTOK
*
ENT10
PERF FLDTST
BNOK ENTNOK
PERF SLUT
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,CBIN3,ENT01
MOVE GTRETUR,CBIN3
B ENTOK
* TYPE 3 - THREE PAGE TRANSACTION
ENTY3
CBNE GTPAGE,CBIN1,ENT20
TBT GTSLUTFL,ENTY1
* AFTER PAGE 1, GET NEXT PAGE
PERF FMTNXT,CBIN2
MOVE GTRETUR,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
*
ENT50
* FINISHED
MOVE GTRETUR,CBIN3
*
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,CYK5, C
CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND
B CYKNOK
CYK1
********************
*
** CYK1 - START OF CYCLE FUNCTION
*
********************
TBT TTLSTFLG,CYK1NOK IN LISTE
TBT TTCY2FLG,CYK1NOK IN CYCLE 2
TBT TTCY5FLG,CYK1NOK
SET TTCY1FLG
SET TTCY0FLG BEFORE 1. SLUT IN CYCLE
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
TBT TTCY5FLG,CYK2NOK
SET TTCY2FLG
SET TTCY0FLG
MOVE TTCYM,=C'S' FOR JOURNAL
MOVE GTTEXT,=C'STABEL' FOR SCREEN
PERF CYKINT
B CYKOK
CYK2NOK
B CYKNOK
CYK4
********************
*
* CYK4 - PAUSE IN CYCLE / STABEL
*
********************
TBF GTCYFLG,CYK4NOK
TBT 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
CYK5
********************
*
* CYK5 - VIBORG ONLY
*
********************
* TRANS 8-9
* MOST FIELDS AUTODUPPED
* NOT DUPPED:
* REGKONTONR
* BELOB
* CPR/CIRNR
*
TBF CCYK5,CYK5NOK
CBL GTREGDEX,CBIN8,CYK5NOK
CBG GTREGDEX,CBIN9,CYK5NOK
TBT TTLSTFLG,CYK5NOK LISTE?
TBT TTCY2FLG,CYK5NOK
TBT TTCY5FLG,CYK510
TBT TTCY1FLG,CYK5NOK
CYK510
SET TTCY0FLG
SET TTCY1FLG
SET TTCY5FLG
PERF CLRSW
MOVE TTCYM,=C'C'
MOVE GTTEXT,=C'CYK 5 '
PERF CYKINT
B CYKOK
CYK5NOK
B CYKNOK
CYK9
********************
*
** CYK9 - CLEAR ARKIV KONTO NR
*
********************
TBT TTCY1FLG,CYK9A
TBT TTCY5FLG,CYK9A
B CYK9NOK
CYK9A
MOVE TTARKSAV,=D'0' CLEAR NUMBER
B CYKOK
CYK9NOK
B CYKNOK
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/CY5)
CYEND10
CLEAR TTSUMFLG CLEAR FLAGS
CLEAR GTCYFLG
PERF CYOUT
CLEAR TTTSTFLG
WAIT KVOUCH
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
MOVE GSWSTR9,=C'TOTAL '
PERF FRMXVO,CBIN2 GET TOTAL FORMAT
EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
TBT C167FLG,CYEND15 T=NO WRITE JOURNAL
PERF WRITJT,=W'15'
CYEND15
CBL GTREGNR,=D'18',CYEND20 CHECKS?
SET TTTSTFLG
MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE
CYEND20
CLEAR TTCY0FLG
CLEAR TTCY1FLG
CLEAR TTCY2FLG
CLEAR TTCY5FLG
PERF CLRSW
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
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
CY10
SET TTSUMFLG INDICATE SUM ON SCREEN
SET GTCYFLG INDICATE CYCLE
TBF TTPSEFLG,CY30 TRUE- PAUSE STATE
MOVE GTSUM,GTCYSUM GET SAVED SUM
MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR
CBG GTPSELIN,CBIN0,CY20
MOVE GTPSELIN,TTCYKST RESET START LINE
MOVE TTCYKPOS,TTCYKST
CY20
MOVE TTLINNR,GTPSELIN
CLEAR TTPSEFLG OUT OF PAUSE STATE
B CY90
CY30
MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES
MOVE GTCYSUM,=D'0'
MOVE GTSUM,=D'0'
MOVE TTCYKTOT,=D'0'
MOVE TTLINNR,=D'1'
PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF
SET SPPROMPT
PERF SPCLRA WRITE AND READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,CY45,CY45,CY50
MOVE SPBINW4,CBIN4
PERF SPERR
B CY30
CY45 MAK
CLEAR TTCY1FLG
CLEAR TTCY2FLG
CLEAR TTCY5FLG
CY05 PERF CYCLR
B CY95
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
CYCLR PROC
*******************
*
** CYCLR - CLEAR CYCLEINFORMATION
*
******************
MOVE GTTEXT,CBLANKS
MOVE TTCYM,CBLANKS
MOVE GTREGF(CBIN9),=D'0'
MOVE GTSUM,=D'0'
CLEAR GTCYFLG
CLEAR TTSUMFLG
CLEAR TTTSTFLG
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
TBT TTPSEFLG,CYCLRRET
CLEAR GTCYTRPF
CYCLRRET
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,CBLANKS
LSTOK
PERF SPINF1
CMP CBIN0,CBIN0 OK, SET CR=0
RET
LSTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
SUBTOT PROC
*******************
*
** SUBTOT - SUBTOTAL
*
** LISTFUNCTION- WRITE SUBTOTAL ON TALLY
*
** CYCLEFUNCTION- SAVE CYCLE INFORMATION
** WRITE SUBTOTAL
** IN CYCLE-PAUSE-STATE
*
********************
MOVE GSWSTR9,=C'SUBTOTAL '
TBT TTLSTFLG,SUBTLST IN LIST FUNCTION
TBT GTCYFLG,SUBTCYC IN CYCLE
TBF GTSUMKEY,SUBTNOK IN SUM
* SUBTOTAL IN SUM
SET GTSUBFLG
PERF SUM
CLEAR GTSUBFLG
B SUBTOK10
* SET PAUSE IN CYCLE
SUBTCYC
PERF CYOUT
MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR
SET TTPSEFLG INDICATE BREAK
PERF FRMXVO,CBIN3 GET SUBTOT FORMAT
SET GTCYWRTF
PERF WRITVO WRITE SUBTOT LINE
WAIT KVOUCH
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
MOVE GTCYSUM,GTSUM SAVE SUM
SUB TTLINNR,=D'4'
MOVE TTCYKPOS,TTLINNR SAVE LINNR
MOVE GTPSELIN,TTLINNR
MOVE GTCYIN,TTASKNR INITIATE CYSET
SUB GTCYIN,CBIN1
MUL GTCYIN,CCYSIZE
ADD GTCYIN,CBIN1
MOVE GTCYOUT,GTCYIN
PERF CYCLR
B SUBTOK
* SUBTOTAL IN LIST
SUBTLST
WAIT KTALLY
MOVE GSWBCD6,GTSUM
PERF FRMXTA,CBIN3 GET FORMAT
PERF WTALLY WRITE ON TALLY ROLL
SUBTOK
ERASE 0,CBIN8,CBIN8 ERASE LINE 8
PERF SPINF1
SUBTOK10
CMP CBIN0,CBIN0 OK, SET CR=0
RET
SUBTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
SUM PROC
********************
*
** SUM - PROCEDURE FOR SUMMING UP FOR ALL
** TRANSACTIONS FROM THE INITIATING
** POINT TO THE RELEASING.
** FIRST TIME: INITIATING
** LAST TIME: WRITE SUM ON VOUCHER
*
********************
TBT GTSUMKEY,SUM50
* FIRST TIME
PERF WRITJT,=W'3' WRITE START SUM FUNCTION
SUM10
MOVE TTSUMMRK,=C'*'
SET GTSUMKEY
MOVE GTSUMST,TTLBNR
ADD GTSUMST,=D'1' INITIATE FIRST NUMBER
MOVE GTSUMCNT,=D'0' INITIATE SUM
B SUMOK
*
* LAST TIME
SUM50
PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION
TBT GTSUBFLG,SUM60
MOVE TTSUMMRK,CBLANKS
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
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
CLEAR GTDIVTR
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
* CLEAR AUTODUP FLAGS
MOVE GSWBIN1,CBIN1
CLRSW1
MOVE GSSWITCH(GSWBIN1),CBIN0
ADD GSWBIN1,CBIN1
CBL GSWBIN1,CBINMAX,CLRSW1
RET
PEND
END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUBS 830207 NJ «, t00=0x0000, t01=0x0004}
0x0020…003e Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0024}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0042}
0x0054…0072 Head {h00=0x001a, h01=0x0050, text=» ENTRY ENTER«, t00=0x0000, t01=0x0058}
0x0072…0090 Head {h00=0x001a, h01=0x0050, text=» ENTRY MODP «, t00=0x0000, t01=0x0076}
0x0090…00ae Head {h00=0x001a, h01=0x0050, text=» ENTRY KORT «, t00=0x0000, t01=0x0094}
0x00ae…00c2 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKTRP«, t00=0x0000, t01=0x00b2}
0x00c2…00e0 Head {h00=0x001a, h01=0x0050, text=» ENTRY KVIT «, t00=0x0000, t01=0x00c6}
0x00e0…0100 Head {h00=0x001c, h01=0x0050, text=» ENTRY LSTINT «, t00=0x0000, t01=0x00e4}
0x0100…0116 Head {h00=0x0012, h01=0x0050, text=» ENTRY CYKINT «, t00=0x0000, t01=0x0104}
0x0116…0128 Head {h00=0x000e, h01=0x0050, text=» ENTRY CYK«, t00=0x0000, t01=0x011a}
0x0128…013c Head {h00=0x0010, h01=0x0050, text=» ENTRY CYCLR«, t00=0x0000, t01=0x012c}
0x013c…015c Head {h00=0x001c, h01=0x0050, text=» ENTRY SUBTOT «, t00=0x0000, t01=0x0140}
0x015c…016e Head {h00=0x000e, h01=0x0050, text=» ENTRY SUM«, t00=0x0000, t01=0x0160}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» ENTRY DIVTR«, t00=0x0000, t01=0x0172}
0x0182…0196 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0000, t01=0x0186}
0x0196…01ac Head {h00=0x0012, h01=0x0050, text=» ENTRY FMTNXT «, t00=0x0001, t01=0x000a}
0x01ac…01c0 Head {h00=0x0010, h01=0x0050, text=» ENTRY CLRSW«, t00=0x0001, t01=0x0020}
0x01c0…01d4 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0034}
0x01d4…01e8 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0048}
0x01e8…01fa Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x005c}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x006e}
0x020e…0222 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x0082}
0x0222…0236 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x0096}
0x0236…024a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00aa}
0x024a…025e Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x00be}
0x025e…0272 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x00d2}
0x0272…0292 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0001, t01=0x00e6}
0x0292…02a6 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0106}
0x02a6…02ba Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x011a}
0x02ba…02cc Head {h00=0x000e, h01=0x0050, text=» EXT CYTRP«, t00=0x0001, t01=0x012e}
0x02cc…02e0 Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x0140}
0x02e0…02f2 Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x0154}
0x02f2…0306 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x0166}
0x0306…0318 Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0001, t01=0x017a}
0x0318…0338 Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0001, t01=0x018c}
0x0338…0356 Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0002, t01=0x001c}
0x0356…036a Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0002, t01=0x003a}
0x036a…037e Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x004e}
0x037e…0392 Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x0062}
0x0392…03a6 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x0076}
0x03a6…03ba Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x008a}
0x03ba…03ce Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x009e}
0x03ce…03e0 Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x00b2}
0x03e0…0400 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x00c4}
0x0400…040e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e4}
0x040e…0420 Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x00f2}
0x0420…043c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0104}
0x043c…0446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0120}
0x0446…0484 Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x012a}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04c8 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0002, t01=0x0172}
0x04c8…04e2 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x001c}
0x04e2…0512 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x0036}
0x0512…0548 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x0066}
0x0548…0582 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x009c}
0x0582…05b0 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x00d6}
0x05b0…05de Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x0104}
0x05de…0620 Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x0132}
0x0620…0650 Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0003, t01=0x0174}
0x0650…067c Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0014}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0686…0694 Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x004a}
0x0694…06ae Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x0058}
0x06ae…06c6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x0072}
0x06c6…06e2 Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x008a}
0x06e2…06f8 Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x00a6}
0x06f8…0706 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x00bc}
0x0706…0732 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x00ca}
0x0732…0748 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x00f6}
0x0748…0772 Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x010c}
0x0772…078a Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0004, t01=0x0136}
0x078a…07b2 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0004, t01=0x014e}
0x07b2…07cc Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0004, t01=0x0176}
0x07cc…07e8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x0004, t01=0x0190}
0x07e8…07fc Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x001c}
0x07fc…080e Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x0030}
0x080e…082e Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0005, t01=0x0042}
0x082e…0852 Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x0062}
0x0852…0868 Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x0086}
0x0868…0896 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x009c}
0x0896…08ac Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x00ca}
0x08ac…08d0 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x00e0}
0x08d0…08f4 Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x0104}
0x08f4…0910 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN5 «, t00=0x0005, t01=0x0128}
0x0910…0924 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x0144}
0x0924…0936 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x0158}
0x0936…0944 Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0005, t01=0x016a}
0x0944…0976 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0005, t01=0x0178}
0x0976…09a2 Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x001a}
0x09a2…09c0 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x0046}
0x09c0…09ec Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x0064}
0x09ec…0a0e Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x0090}
0x0a0e…0a3a Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x00b2}
0x0a3a…0a66 Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x00de}
0x0a66…0a92 Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x010a}
0x0a92…0ab4 Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0006, t01=0x0136}
0x0ab4…0ac8 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0006, t01=0x0158}
0x0ac8…0ae6 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0006, t01=0x016c}
0x0ae6…0b04 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0006, t01=0x018a}
0x0b04…0b1c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x0018}
0x0b1c…0b30 Head {h00=0x0010, h01=0x0050, text=» BOK KORTOK «, t00=0x0007, t01=0x0030}
0x0b30…0b46 Head {h00=0x0012, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0007, t01=0x0044}
0x0b46…0b5c Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x0007, t01=0x005a}
0x0b5c…0b6a Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x0070}
0x0b6a…0b82 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x007e}
0x0b82…0ba8 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x0096}
0x0ba8…0bb4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00bc}
0x0bb4…0bc4 Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x00c8}
0x0bc4…0bdc Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x00d8}
0x0bdc…0c04 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x00f0}
0x0c04…0c10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0118}
0x0c10…0c1e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0124}
0x0c1e…0c2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0132}
0x0c2c…0c3e Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x0140}
0x0c3e…0c5a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0152}
0x0c5a…0c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016e}
0x0c64…0c9e Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0007, t01=0x0178}
0x0c9e…0cca Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0008, t01=0x0022}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd4…0cf0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0058}
0x0cf0…0d20 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x0074}
0x0d20…0d46 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x00a4}
0x0d46…0d62 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x00ca}
0x0d62…0d7c Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x00e6}
0x0d7c…0d94 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x0100}
0x0d94…0da2 Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x0118}
0x0da2…0dc4 Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x0126}
0x0dc4…0dd8 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x0148}
0x0dd8…0df2 Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x015c}
0x0df2…0e16 Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0008, t01=0x0176}
0x0e16…0e48 Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0009, t01=0x000a}
0x0e48…0e76 Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0009, t01=0x003c}
0x0e76…0e96 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x006a}
0x0e96…0ec8 Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x008a}
0x0ec8…0ed6 Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x00bc}
0x0ed6…0f00 Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x00ca}
0x0f00…0f14 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x00f4}
0x0f14…0f2e Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x0108}
0x0f2e…0f42 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x0122}
0x0f42…0f62 Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x0136}
0x0f62…0f78 Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x0156}
0x0f78…0f9a Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0009, t01=0x016c}
0x0f9a…0fcc Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x0009, t01=0x018e}
0x0fcc…0ffa Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x000a, t01=0x0030}
0x0ffa…1018 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x005e}
0x1018…1028 Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x007c}
0x1028…1036 Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x008c}
0x1036…1048 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x009a}
0x1048…106e Head {h00=0x0022, h01=0x0050, text=» CBE SPBINW2,CBIN18,KON40 SLUT«, t00=0x000a, t01=0x00ac}
0x106e…109a Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN4,KON30 ENTER KEY «, t00=0x000a, t01=0x00d2}
0x109a…10a8 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x00fe}
0x10a8…10ce Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x010c}
0x10ce…10ec Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x0132}
0x10ec…1118 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x0150}
0x1118…1138 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000a, t01=0x017c}
0x1138…115e Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000b, t01=0x000c}
0x115e…117e Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x0032}
0x117e…1198 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x0052}
0x1198…11b6 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x006c}
0x11b6…11d0 Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x008a}
0x11d0…11de Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x00a4}
0x11de…11ea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00b2}
0x11ea…11f8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x00be}
0x11f8…1206 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00cc}
0x1206…1218 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x00da}
0x1218…1234 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x00ec}
0x1234…123e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0108}
0x123e…1282 Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x0112}
0x1282…12c0 Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x0156}
0x12c0…12e6 (12, 0, 400) Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000c, t01=0x0004}
0x12e6…130c Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000c, t01=0x002a}
0x130c…1316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0050}
0x1316…132e Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x005a}
0x132e…1350 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x0072}
0x1350…137c Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x0094}
0x137c…13a8 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x00c0}
0x13a8…13b6 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x00ec}
0x13b6…13e8 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x00fa}
0x13e8…1416 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x012c}
0x1416…1436 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x015a}
0x1436…1460 Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000c, t01=0x017a}
0x1460…1482 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000d, t01=0x0014}
0x1482…14a6 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000d, t01=0x0036}
0x14a6…14ca Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x005a}
0x14ca…14f0 Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x007e}
0x14f0…1518 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x00a4}
0x1518…153a Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x00cc}
0x153a…156c Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x00ee}
0x156c…157a Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x0120}
0x157a…1598 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x012e}
0x1598…15a4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x014c}
0x15a4…15b2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0158}
0x15b2…15c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0166}
0x15c0…15d6 Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000d, t01=0x0174}
0x15d6…15e8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x018a}
0x15e8…15f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15f2…162a Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000e, t01=0x0016}
0x162a…1652 Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x004e}
0x1652…1688 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x0076}
0x1688…16b8 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x00ac}
0x16b8…16e2 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x00dc}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x16ec…16fe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0110}
0x16fe…172e Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x0122}
0x172e…174a Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x0152}
0x174a…1780 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000e, t01=0x016e}
0x1780…17ba Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000f, t01=0x0014}
0x17ba…17ce Head {h00=0x0010, h01=0x0050, text=» PERF CYTRP «, t00=0x000f, t01=0x004e}
0x17ce…17e8 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0062}
0x17e8…1808 Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x007c}
0x1808…184c Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x009c}
0x184c…185e Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x00e0}
0x185e…1876 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x000f, t01=0x00f2}
0x1876…1898 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,CBIN3,MODP50«, t00=0x000f, t01=0x010a}
0x1898…18aa Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x000f, t01=0x012c}
0x18aa…18b8 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x000f, t01=0x013e}
0x18b8…18d0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x014c}
0x18d0…18e4 Head {h00=0x0010, h01=0x0050, text=» BOK MODP10 «, t00=0x000f, t01=0x0164}
0x18e4…18fa Head {h00=0x0012, h01=0x0050, text=» SET TTTSTFLG «, t00=0x000f, t01=0x0178}
0x18fa…1910 Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000f, t01=0x018e}
0x1910…191e Head {h00=0x000a, h01=0x0050, text=»MODP10«, t00=0x0010, t01=0x0014}
0x191e…1944 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0010, t01=0x0022}
0x1944…1950 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0048}
0x1950…1960 Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x0054}
0x1960…1988 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x0064}
0x1988…199c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x008c}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00a0}
0x19b2…19c8 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00b6}
0x19c8…19de Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x00cc}
0x19de…19f0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00e2}
0x19f0…19fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19fa…1a2c Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x00fe}
0x1a2c…1a56 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x0130}
0x1a56…1a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015a}
0x1a60…1a72 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0164}
0x1a72…1aa2 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0010, t01=0x0176}
0x1aa2…1ad8 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0011, t01=0x0016}
0x1ad8…1b02 Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x004c}
0x1b02…1b3c Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x0076}
0x1b3c…1b56 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x00b0}
0x1b56…1ba2 Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x00ca}
0x1ba2…1bbc Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0011, t01=0x0116}
0x1bbc…1bd0 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0011, t01=0x0130}
0x1bd0…1bf2 Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0011, t01=0x0144}
0x1bf2…1c0e Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYM,CBLANKS «, t00=0x0011, t01=0x0166}
0x1c0e…1c26 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0011, t01=0x0182}
0x1c26…1c3a Head {h00=0x0010, h01=0x0050, text=» BOK KVIT10 «, t00=0x0012, t01=0x000a}
0x1c3a…1c50 Head {h00=0x0012, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0012, t01=0x001e}
0x1c50…1c66 Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x0012, t01=0x0034}
0x1c66…1c74 Head {h00=0x000a, h01=0x0050, text=»KVIT10«, t00=0x0012, t01=0x004a}
0x1c74…1c9a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0012, t01=0x0058}
0x1c9a…1ca6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x007e}
0x1ca6…1cb6 Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0012, t01=0x008a}
0x1cb6…1cde Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x009a}
0x1cde…1cf2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00c2}
0x1cf2…1d08 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x00d6}
0x1d08…1d1e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ec}
0x1d1e…1d34 Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0012, t01=0x0102}
0x1d34…1d46 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0118}
0x1d46…1d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012a}
0x1d50…1d98 Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x0134}
0x1d98…1dba Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0012, t01=0x017c}
0x1dba…1dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000e}
0x1dc4…1dea Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0013, t01=0x0018}
0x1dea…1df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1df4…1e36 Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0013, t01=0x0048}
0x1e36…1e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x008a}
0x1e40…1e6c Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x0094}
0x1e6c…1e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e76…1eaa Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x00ca}
0x1eaa…1ee4 Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x00fe}
0x1ee4…1eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0138}
0x1eee…1f00 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0142}
0x1f00…1f2c Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x0154}
0x1f2c…1f46 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0013, t01=0x0180}
0x1f46…1f60 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0014, t01=0x000a}
0x1f60…1f88 Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0014, t01=0x0024}
0x1f88…1f96 Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0014, t01=0x004c}
0x1f96…1fc0 Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0014, t01=0x005a}
0x1fc0…1fd4 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x0084}
0x1fd4…1fea Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x0098}
0x1fea…1ffe Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x00ae}
0x1ffe…201a Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x00c2}
0x201a…2046 Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,CBIN3,ENT01 IF LINE 91 «, t00=0x0014, t01=0x00de}
0x2046…2062 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN1 «, t00=0x0014, t01=0x010a}
0x2062…207c Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTOK«, t00=0x0014, t01=0x0126}
0x207c…209e Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,CBIN4,ENTOK«, t00=0x0014, t01=0x0140}
0x209e…20ac Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0014, t01=0x0162}
0x20ac…20d2 Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0014, t01=0x0170}
0x20d2…20fa Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,CBIN3 RESET SCREEN«, t00=0x0015, t01=0x0008}
0x20fa…2112 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0015, t01=0x0030}
0x2112…2122 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x0048}
0x2122…214a Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0015, t01=0x0058}
0x214a…2158 Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0015, t01=0x0080}
0x2158…2178 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0015, t01=0x008e}
0x2178…2190 Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0015, t01=0x00ae}
0x2190…21ac Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x00c6}
0x21ac…21c2 Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x00e2}
0x21c2…21dc Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x00f8}
0x21dc…21f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0015, t01=0x0112}
0x21f8…2208 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x012e}
0x2208…2212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x2212…2220 Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x0148}
0x2220…2234 Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0015, t01=0x0156}
0x2234…2248 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x016a}
0x2248…225a Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0015, t01=0x017e}
0x225a…226e Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x0190}
0x226e…228a Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0016, t01=0x0014}
0x228a…22aa Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,CBIN3,ENT01«, t00=0x0016, t01=0x0030}
0x22aa…22c6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0016, t01=0x0050}
0x22c6…22d6 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x006c}
0x22d6…2300 Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0016, t01=0x007c}
0x2300…230e Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x00a6}
0x230e…232e Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x00b4}
0x232e…234a Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0016, t01=0x00d4}
0x234a…2374 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x00f0}
0x2374…238e Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x011a}
0x238e…23aa Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0016, t01=0x0134}
0x23aa…23ba Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x0150}
0x23ba…23c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0160}
0x23c4…23d2 Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0016, t01=0x016a}
0x23d2…23f2 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0016, t01=0x0178}
0x23f2…240e Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENT30 «, t00=0x0017, t01=0x0008}
0x240e…2438 Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0017, t01=0x0024}
0x2438…2452 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0017, t01=0x004e}
0x2452…246e Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN2 «, t00=0x0017, t01=0x0068}
0x246e…247e Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x0084}
0x247e…2488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0094}
0x2488…2496 Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x009e}
0x2496…24a6 Head {h00=0x000c, h01=0x0050, text=» B ENT10«, t00=0x0017, t01=0x00ac}
0x24a6…24b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24b0…24be Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0017, t01=0x00c6}
0x24be…24d4 Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0017, t01=0x00d4}
0x24d4…24f0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN3 «, t00=0x0017, t01=0x00ea}
0x24f0…24fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24fa…2508 Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0017, t01=0x0110}
0x2508…252e Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0017, t01=0x011e}
0x252e…253a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0144}
0x253a…2548 Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0017, t01=0x0150}
0x2548…2570 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0017, t01=0x015e}
0x2570…257c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0186}
0x257c…2586 (24, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0004}
0x2586…259c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x000e}
0x259c…25b2 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0024}
0x25b2…25d0 Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0018, t01=0x003a}
0x25d0…25ec Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0018, t01=0x0058}
0x25ec…25f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0074}
0x25f6…2634 Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0018, t01=0x007e}
0x2634…2660 Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0018, t01=0x00bc}
0x2660…2686 Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0018, t01=0x00e8}
0x2686…2690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010e}
0x2690…26ac Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0018, t01=0x0118}
0x26ac…26d6 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,FORMAL1 WHICH PAGE ?«, t00=0x0018, t01=0x0134}
0x26d6…26fc Head {h00=0x0022, h01=0x0050, text=» IB GSWBIN1,NXTATT,NXT20,NXT30«, t00=0x0018, t01=0x015e}
0x26fc…270a Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x0018, t01=0x0184}
0x270a…2724 (25, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0019, t01=0x0004}
0x2724…2746 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT208«, t00=0x0019, t01=0x001e}
0x2746…2768 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT209«, t00=0x0019, t01=0x0040}
0x2768…278c Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT251 «, t00=0x0019, t01=0x0062}
0x278c…279e Head {h00=0x000e, h01=0x0050, text=» B NXT253 «, t00=0x0019, t01=0x0086}
0x279e…27ac Head {h00=0x000a, h01=0x0050, text=»NXT208«, t00=0x0019, t01=0x0098}
0x27ac…27c6 Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x0019, t01=0x00a6}
0x27c6…27e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0019, t01=0x00c0}
0x27e2…27f4 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x0019, t01=0x00dc}
0x27f4…2802 Head {h00=0x000a, h01=0x0050, text=»NXT209«, t00=0x0019, t01=0x00ee}
0x2802…281c Head {h00=0x0016, h01=0x0050, text=» TBF CF9094,NXT30 «, t00=0x0019, t01=0x00fc}
0x281c…2838 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN8 «, t00=0x0019, t01=0x0116}
0x2838…284a Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x0019, t01=0x0132}
0x284a…2858 Head {h00=0x000a, h01=0x0050, text=»NXT251«, t00=0x0019, t01=0x0144}
0x2858…2874 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 «, t00=0x0019, t01=0x0152}
0x2874…2886 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x0019, t01=0x016e}
0x2886…2894 Head {h00=0x000a, h01=0x0050, text=»NXT253«, t00=0x0019, t01=0x0180}
0x2894…28b0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 «, t00=0x0019, t01=0x018e}
0x28b0…28c2 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x001a}
0x28c2…28d0 Head {h00=0x000a, h01=0x0050, text=»NXT30 «, t00=0x001a, t01=0x002c}
0x28d0…28ea Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x001a, t01=0x003a}
0x28ea…290c Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN8,NXT308«, t00=0x001a, t01=0x0054}
0x290c…292e Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN9,NXT309«, t00=0x001a, t01=0x0076}
0x292e…2952 Head {h00=0x0020, h01=0x0050, text=» CBE GTREGDEX,=W'24',NXT351 «, t00=0x001a, t01=0x0098}
0x2952…2964 Head {h00=0x000e, h01=0x0050, text=» B NXT353 «, t00=0x001a, t01=0x00bc}
0x2964…2972 Head {h00=0x000a, h01=0x0050, text=»NXT308«, t00=0x001a, t01=0x00ce}
0x2972…298e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x001a, t01=0x00dc}
0x298e…29a0 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x00f8}
0x29a0…29ae Head {h00=0x000a, h01=0x0050, text=»NXT309«, t00=0x001a, t01=0x010a}
0x29ae…29ca Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 «, t00=0x001a, t01=0x0118}
0x29ca…29dc Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0134}
0x29dc…29ea Head {h00=0x000a, h01=0x0050, text=»NXT351«, t00=0x001a, t01=0x0146}
0x29ea…2a06 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x001a, t01=0x0154}
0x2a06…2a18 Head {h00=0x000e, h01=0x0050, text=» B NXTATT «, t00=0x001a, t01=0x0170}
0x2a18…2a26 Head {h00=0x000a, h01=0x0050, text=»NXT353«, t00=0x001a, t01=0x0182}
0x2a26…2a42 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 «, t00=0x001a, t01=0x0190}
0x2a42…2a50 Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x001c}
0x2a50…2a6c Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x002a}
0x2a6c…2a80 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0046}
0x2a80…2a96 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x005a}
0x2a96…2aa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0070}
0x2aa4…2abc Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001b, t01=0x007e}
0x2abc…2ad8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0096}
0x2ad8…2ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b2}
0x2ae2…2b16 Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001b, t01=0x00bc}
0x2b16…2b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f0}
0x2b20…2b3c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00fa}
0x2b3c…2b52 Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001b, t01=0x0116}
0x2b52…2b7a Head {h00=0x0024, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYK5, C«, t00=0x001b, t01=0x012c}
0x2b7a…2ba4 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001b, t01=0x0154}
0x2ba4…2bb6 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001b, t01=0x017e}
0x2bb6…2bbe Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0190}
0x2bbe…2bc6 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0008}
0x2bc6…2bd2 Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001c, t01=0x0010}
0x2bd2…2bee Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x001c}
0x2bee…2bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0038}
0x2bf8…2c2a Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001c, t01=0x0042}
0x2c2a…2c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0074}
0x2c34…2c50 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x007e}
0x2c50…2c76 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001c, t01=0x009a}
0x2c76…2c9e Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001c, t01=0x00c0}
0x2c9e…2cbc Head {h00=0x001a, h01=0x0050, text=» TBT TTCY5FLG,CYK1NOK «, t00=0x001c, t01=0x00e8}
0x2cbc…2cd2 Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001c, t01=0x0106}
0x2cd2…2d00 Head {h00=0x002a, h01=0x0050, text=» SET TTCY0FLG BEFORE 1. SLUT IN CYCLE «, t00=0x001c, t01=0x011c}
0x2d00…2d26 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001c, t01=0x014a}
0x2d26…2d50 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001c, t01=0x0170}
0x2d50…2d64 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x000a}
0x2d64…2d74 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x001e}
0x2d74…2d84 Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001d, t01=0x002e}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x003e}
0x2d96…2d9e Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0050}
0x2d9e…2da6 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0058}
0x2da6…2db2 Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001d, t01=0x0060}
0x2db2…2dce Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x006c}
0x2dce…2dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0088}
0x2dd8…2e0a Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001d, t01=0x0092}
0x2e0a…2e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c4}
0x2e14…2e30 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x00ce}
0x2e30…2e56 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001d, t01=0x00ea}
0x2e56…2e7e Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001d, t01=0x0110}
0x2e7e…2e9c Head {h00=0x001a, h01=0x0050, text=» TBT TTCY5FLG,CYK2NOK «, t00=0x001d, t01=0x0138}
0x2e9c…2eb2 Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001d, t01=0x0156}
0x2eb2…2ec8 Head {h00=0x0012, h01=0x0050, text=» SET TTCY0FLG «, t00=0x001d, t01=0x016c}
0x2ec8…2eee Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001d, t01=0x0182}
0x2eee…2f18 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001e, t01=0x0018}
0x2f18…2f2c Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001e, t01=0x0042}
0x2f2c…2f3c Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001e, t01=0x0056}
0x2f3c…2f4c Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001e, t01=0x0066}
0x2f4c…2f5e Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001e, t01=0x0076}
0x2f5e…2f66 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0088}
0x2f66…2f6e Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0090}
0x2f6e…2f7a Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x0098}
0x2f7a…2f96 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x00a4}
0x2f96…2fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c0}
0x2fa0…2fd2 Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001e, t01=0x00ca}
0x2fd2…2fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fc}
0x2fdc…2ff8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0106}
0x2ff8…3014 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001e, t01=0x0122}
0x3014…3030 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001e, t01=0x013e}
0x3030…3066 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001e, t01=0x015a}
0x3066…30a8 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001e, t01=0x0190}
0x30a8…30c4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001f, t01=0x0042}
0x30c4…30e2 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001f, t01=0x005e}
0x30e2…30f6 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001f, t01=0x007c}
0x30f6…3120 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001f, t01=0x0090}
0x3120…3134 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x001f, t01=0x00ba}
0x3134…3144 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x00ce}
0x3144…3154 Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x001f, t01=0x00de}
0x3154…3166 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x00ee}
0x3166…3174 Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x001f, t01=0x0100}
0x3174…3188 Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x001f, t01=0x010e}
0x3188…3198 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x0122}
0x3198…31a0 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0132}
0x31a0…31a8 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x013a}
0x31a8…31b4 Head {h00=0x0008, h01=0x0050, text=»CYK5«, t00=0x001f, t01=0x0142}
0x31b4…31d0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x014e}
0x31d0…31da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016a}
0x31da…31fe Head {h00=0x0020, h01=0x0050, text=»* CYK5 - VIBORG ONLY «, t00=0x001f, t01=0x0174}
0x31fe…3208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0008}
0x3208…3224 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0012}
0x3224…3238 Head {h00=0x0010, h01=0x0050, text=»* TRANS 8-9 «, t00=0x0020, t01=0x002e}
0x3238…3258 Head {h00=0x001c, h01=0x0050, text=»* MOST FIELDS AUTODUPPED«, t00=0x0020, t01=0x0042}
0x3258…326e Head {h00=0x0012, h01=0x0050, text=»* NOT DUPPED: «, t00=0x0020, t01=0x0062}
0x326e…3286 Head {h00=0x0014, h01=0x0050, text=»* REGKONTONR«, t00=0x0020, t01=0x0078}
0x3286…329a Head {h00=0x0010, h01=0x0050, text=»* BELOB «, t00=0x0020, t01=0x0090}
0x329a…32b2 Head {h00=0x0014, h01=0x0050, text=»* CPR/CIRNR «, t00=0x0020, t01=0x00a4}
0x32b2…32bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00bc}
0x32bc…32d6 Head {h00=0x0016, h01=0x0050, text=» TBF CCYK5,CYK5NOK«, t00=0x0020, t01=0x00c6}
0x32d6…32fa Head {h00=0x0020, h01=0x0050, text=» CBL GTREGDEX,CBIN8,CYK5NOK «, t00=0x0020, t01=0x00e0}
0x32fa…331e Head {h00=0x0020, h01=0x0050, text=» CBG GTREGDEX,CBIN9,CYK5NOK «, t00=0x0020, t01=0x0104}
0x331e…3342 Head {h00=0x0020, h01=0x0050, text=» TBT TTLSTFLG,CYK5NOK LISTE?«, t00=0x0020, t01=0x0128}
0x3342…3360 Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYK5NOK «, t00=0x0020, t01=0x014c}
0x3360…337c Head {h00=0x0018, h01=0x0050, text=» TBT TTCY5FLG,CYK510«, t00=0x0020, t01=0x016a}
0x337c…339a Head {h00=0x001a, h01=0x0050, text=» TBT TTCY1FLG,CYK5NOK «, t00=0x0020, t01=0x0186}
0x339a…33a8 Head {h00=0x000a, h01=0x0050, text=»CYK510«, t00=0x0021, t01=0x0014}
0x33a8…33be Head {h00=0x0012, h01=0x0050, text=» SET TTCY0FLG «, t00=0x0021, t01=0x0022}
0x33be…33d4 Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x0021, t01=0x0038}
0x33d4…33ea Head {h00=0x0012, h01=0x0050, text=» SET TTCY5FLG «, t00=0x0021, t01=0x004e}
0x33ea…33fe Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0021, t01=0x0064}
0x33fe…3418 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'C' «, t00=0x0021, t01=0x0078}
0x3418…3438 Head {h00=0x001c, h01=0x0050, text=» MOVE GTTEXT,=C'CYK 5 ' «, t00=0x0021, t01=0x0092}
0x3438…344c Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x0021, t01=0x00b2}
0x344c…345c Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0021, t01=0x00c6}
0x345c…346c Head {h00=0x000c, h01=0x0050, text=»CYK5NOK «, t00=0x0021, t01=0x00d6}
0x346c…347e Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0021, t01=0x00e6}
0x347e…3486 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00f8}
0x3486…348e Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0100}
0x348e…349a Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x0021, t01=0x0108}
0x349a…34b6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0114}
0x34b6…34c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0130}
0x34c0…34ee Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x0021, t01=0x013a}
0x34ee…34f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0168}
0x34f8…3514 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0172}
0x3514…3530 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY1FLG,CYK9A «, t00=0x0021, t01=0x018e}
0x3530…354c Head {h00=0x0018, h01=0x0050, text=» TBT TTCY5FLG,CYK9A «, t00=0x0022, t01=0x001a}
0x354c…355e Head {h00=0x000e, h01=0x0050, text=» B CYK9NOK«, t00=0x0022, t01=0x0036}
0x355e…356c Head {h00=0x000a, h01=0x0050, text=»CYK9A «, t00=0x0022, t01=0x0048}
0x356c…3596 Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x0022, t01=0x0056}
0x3596…35a6 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0022, t01=0x0080}
0x35a6…35b6 Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x0022, t01=0x0090}
0x35b6…35c8 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0022, t01=0x00a0}
0x35c8…35d0 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00b2}
0x35d0…35d8 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00ba}
0x35d8…35e6 Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0022, t01=0x00c2}
0x35e6…3602 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0022, t01=0x00d0}
0x3602…360c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ec}
0x360c…3634 Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0022, t01=0x00f6}
0x3634…363e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011e}
0x363e…366a Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0022, t01=0x0128}
0x366a…3674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0154}
0x3674…3690 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0022, t01=0x015e}
0x3690…36be Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0022, t01=0x017a}
0x36be…36dc Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0023, t01=0x0018}
0x36dc…371a Head {h00=0x003a, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1/CY5) «, t00=0x0023, t01=0x0036}
0x371a…372a Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0023, t01=0x0074}
0x372a…3768 Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0023, t01=0x0084}
0x3768…3788 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0023, t01=0x00c2}
0x3788…379c Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0023, t01=0x00e2}
0x379c…37be Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0023, t01=0x00f6}
0x37be…37d2 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0023, t01=0x0118}
0x37d2…37f0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0023, t01=0x012c}
0x37f0…3822 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0023, t01=0x014a}
0x3822…3844 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0023, t01=0x017c}
0x3844…3870 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0024, t01=0x000e}
0x3870…38a0 Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0024, t01=0x003a}
0x38a0…38e4 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0024, t01=0x006a}
0x38e4…3914 Head {h00=0x002c, h01=0x0050, text=» TBT C167FLG,CYEND15 T=NO WRITE JOURNAL «, t00=0x0024, t01=0x00ae}
0x3914…3930 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0024, t01=0x00de}
0x3930…3940 Head {h00=0x000c, h01=0x0050, text=»CYEND15 «, t00=0x0024, t01=0x00fa}
0x3940…397a Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0024, t01=0x010a}
0x397a…399c Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0024, t01=0x0144}
0x399c…39e0 Head {h00=0x0040, h01=0x0050, text=» MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE «, t00=0x0024, t01=0x0166}
0x39e0…39e8 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x001a}
0x39e8…39f8 Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0025, t01=0x0022}
0x39f8…3a10 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY0FLG «, t00=0x0025, t01=0x0032}
0x3a10…3a28 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0025, t01=0x004a}
0x3a28…3a4a Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0025, t01=0x0062}
0x3a4a…3a62 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY5FLG «, t00=0x0025, t01=0x0084}
0x3a62…3a76 Head {h00=0x0010, h01=0x0050, text=» PERF CLRSW «, t00=0x0025, t01=0x009c}
0x3a76…3a8a Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0025, t01=0x00b0}
0x3a8a…3a9c Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0025, t01=0x00c4}
0x3a9c…3aac Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0025, t01=0x00d6}
0x3aac…3ac8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN12«, t00=0x0025, t01=0x00e6}
0x3ac8…3ae6 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0025, t01=0x0102}
0x3ae6…3b0a Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0025, t01=0x0120}
0x3b0a…3b1a Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0025, t01=0x0144}
0x3b1a…3b44 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0025, t01=0x0154}
0x3b44…3b58 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0025, t01=0x017e}
0x3b58…3b68 (38, 0, 400) Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0026, t01=0x0004}
0x3b68…3b78 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0026, t01=0x0014}
0x3b78…3b88 Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0026, t01=0x0024}
0x3b88…3b9a Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0026, t01=0x0034}
0x3b9a…3ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0046}
0x3ba4…3bb2 Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0026, t01=0x0050}
0x3bb2…3bce Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0026, t01=0x005e}
0x3bce…3bda Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x007a}
0x3bda…3be8 Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0026, t01=0x0086}
0x3be8…3c04 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0026, t01=0x0094}
0x3c04…3c10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x00b0}
0x3c10…3c1e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x00bc}
0x3c1e…3c26 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00ca}
0x3c26…3c2e Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00d2}
0x3c2e…3c44 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0026, t01=0x00da}
0x3c44…3c60 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0026, t01=0x00f0}
0x3c60…3c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010c}
0x3c6a…3c9c Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0026, t01=0x0116}
0x3c9c…3ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0148}
0x3ca6…3ce0 Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0026, t01=0x0152}
0x3ce0…3d1c Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0026, t01=0x018c}
0x3d1c…3d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0038}
0x3d26…3d5a Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0027, t01=0x0042}
0x3d5a…3d76 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x0076}
0x3d76…3da6 Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0027, t01=0x0092}
0x3da6…3dec Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0027, t01=0x00c2}
0x3dec…3e04 Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0027, t01=0x0108}
0x3e04…3e10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0120}
0x3e10…3e1c Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0027, t01=0x012c}
0x3e1c…3e48 Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0027, t01=0x0138}
0x3e48…3e6c Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0027, t01=0x0164}
0x3e6c…3eb0 Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0027, t01=0x0188}
0x3eb0…3ef0 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0028, t01=0x003c}
0x3ef0…3f3a Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0028, t01=0x007c}
0x3f3a…3f5a Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0028, t01=0x00c6}
0x3f5a…3f8a Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0028, t01=0x00e6}
0x3f8a…3fa8 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0028, t01=0x0116}
0x3fa8…3fb4 Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0028, t01=0x0134}
0x3fb4…3fd2 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0028, t01=0x0140}
0x3fd2…4018 Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0028, t01=0x015e}
0x4018…4028 Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0029, t01=0x0014}
0x4028…4034 Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0029, t01=0x0024}
0x4034…4066 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0029, t01=0x0030}
0x4066…4082 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0029, t01=0x0062}
0x4082…40a6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0029, t01=0x007e}
0x40a6…40c2 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0029, t01=0x00a2}
0x40c2…40e8 Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0029, t01=0x00be}
0x40e8…4134 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0029, t01=0x00e4}
0x4134…4152 Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0029, t01=0x0130}
0x4152…419e Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0029, t01=0x014e}
0x419e…41be Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x002a, t01=0x000a}
0x41be…41ee Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x002a, t01=0x002a}
0x41ee…420a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN4 «, t00=0x002a, t01=0x005a}
0x420a…4228 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x002a, t01=0x0076}
0x4228…4246 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x002a, t01=0x0094}
0x4246…4258 Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x002a, t01=0x00b2}
0x4258…4270 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x002a, t01=0x00c4}
0x4270…4288 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x002a, t01=0x00dc}
0x4288…42a0 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY5FLG «, t00=0x002a, t01=0x00f4}
0x42a0…42b8 Head {h00=0x0014, h01=0x0050, text=»CY05 PERF CYCLR «, t00=0x002a, t01=0x010c}
0x42b8…42c8 Head {h00=0x000c, h01=0x0050, text=» B CY95 «, t00=0x002a, t01=0x0124}
0x42c8…42d4 Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x002a, t01=0x0134}
0x42d4…42f4 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x002a, t01=0x0140}
0x42f4…4310 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x002a, t01=0x0160}
0x4310…431c Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x002a, t01=0x017c}
0x431c…433a Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x002a, t01=0x0188}
0x433a…434e Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x002b, t01=0x0016}
0x434e…437e Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x002b, t01=0x002a}
0x437e…439a Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x002b, t01=0x005a}
0x439a…43be Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x002b, t01=0x0076}
0x43be…43dc Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x002b, t01=0x009a}
0x43dc…43fa Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x002b, t01=0x00b8}
0x43fa…4416 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x002b, t01=0x00d6}
0x4416…4430 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x002b, t01=0x00f2}
0x4430…444c Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x002b, t01=0x010c}
0x444c…4466 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x002b, t01=0x0128}
0x4466…4482 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x002b, t01=0x0142}
0x4482…448e Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x002b, t01=0x015e}
0x448e…44a4 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x002b, t01=0x016a}
0x44a4…44be Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x002b, t01=0x0180}
0x44be…44d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x002c, t01=0x000a}
0x44d6…44e2 Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x002c, t01=0x0022}
0x44e2…44f6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002c, t01=0x002e}
0x44f6…450c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x0042}
0x450c…4514 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0058}
0x4514…451c Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0060}
0x451c…452e Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002c, t01=0x0068}
0x452e…454a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002c, t01=0x007a}
0x454a…4554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0096}
0x4554…4586 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002c, t01=0x00a0}
0x4586…4590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d2}
0x4590…45aa Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002c, t01=0x00dc}
0x45aa…45d2 Head {h00=0x0024, h01=0x0050, text=» MOVE GTTEXT,CBLANKS «, t00=0x002c, t01=0x00f6}
0x45d2…45f8 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,CBLANKS«, t00=0x002c, t01=0x011e}
0x45f8…4624 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002c, t01=0x0144}
0x4624…4648 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002c, t01=0x0170}
0x4648…4668 (45, 0, 398) Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002d, t01=0x0004}
0x4668…468a Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002d, t01=0x0024}
0x468a…46a2 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002d, t01=0x0046}
0x46a2…46cc Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002d, t01=0x005e}
0x46cc…46ea Head {h00=0x001a, h01=0x0050, text=» TBT TTPSEFLG,CYCLRRET«, t00=0x002d, t01=0x0088}
0x46ea…4702 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002d, t01=0x00a6}
0x4702…4712 Head {h00=0x000c, h01=0x0050, text=»CYCLRRET«, t00=0x002d, t01=0x00be}
0x4712…471e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00ce}
0x471e…4734 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x00da}
0x4734…474a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00f0}
0x474a…475e Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002d, t01=0x0106}
0x475e…477a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x011a}
0x477a…4784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0136}
0x4784…47b4 Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002d, t01=0x0140}
0x47b4…47be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0170}
0x47be…47da Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x017a}
0x47da…47f6 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002e, t01=0x0008}
0x47f6…481e Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002e, t01=0x0024}
0x481e…4832 Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002e, t01=0x004c}
0x4832…4854 Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002e, t01=0x0060}
0x4854…4876 Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002e, t01=0x0082}
0x4876…48b6 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002e, t01=0x00a4}
0x48b6…4902 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002e, t01=0x00e4}
0x4902…4948 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002e, t01=0x0130}
0x4948…4972 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002e, t01=0x0176}
0x4972…4982 Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002f, t01=0x0010}
0x4982…4996 Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002f, t01=0x0020}
0x4996…49a4 Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002f, t01=0x0034}
0x49a4…49b8 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002f, t01=0x0042}
0x49b8…49d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002f, t01=0x0056}
0x49d4…49f6 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002f, t01=0x0072}
0x49f6…4a28 Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002f, t01=0x0094}
0x4a28…4a48 Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002f, t01=0x00c6}
0x4a48…4a64 Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002f, t01=0x00e6}
0x4a64…4a86 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002f, t01=0x0102}
0x4a86…4aa8 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002f, t01=0x0124}
0x4aa8…4ad0 Head {h00=0x0024, h01=0x0050, text=» MOVE GTTEXT,CBLANKS «, t00=0x002f, t01=0x0146}
0x4ad0…4ade Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002f, t01=0x016e}
0x4ade…4af2 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002f, t01=0x017c}
0x4af2…4b18 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002f, t01=0x0190}
0x4b18…4b24 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0026}
0x4b24…4b32 Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x0030, t01=0x0032}
0x4b32…4b5a Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0030, t01=0x0040}
0x4b5a…4b6e Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0068}
0x4b6e…4b84 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x007c}
0x4b84…4b9a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0092}
0x4b9a…4bb0 Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x0030, t01=0x00a8}
0x4bb0…4bcc Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0030, t01=0x00be}
0x4bcc…4bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00da}
0x4bd6…4bf8 Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x0030, t01=0x00e4}
0x4bf8…4c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0106}
0x4c02…4c3c Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x0030, t01=0x0110}
0x4c3c…4c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014a}
0x4c46…4c7c Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x0030, t01=0x0154}
0x4c7c…4ca4 Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x0030, t01=0x018a}
0x4ca4…4cd2 Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x0031, t01=0x0022}
0x4cd2…4cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0050}
0x4cdc…4cf8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0031, t01=0x005a}
0x4cf8…4d1c Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x0031, t01=0x0076}
0x4d1c…4d60 Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x0031, t01=0x009a}
0x4d60…4d86 Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x0031, t01=0x00de}
0x4d86…4daa Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x0031, t01=0x0104}
0x4daa…4dc4 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x0031, t01=0x0128}
0x4dc4…4dda Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x0031, t01=0x0142}
0x4dda…4dec Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x0031, t01=0x0158}
0x4dec…4e04 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0031, t01=0x016a}
0x4e04…4e18 Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x0031, t01=0x0182}
0x4e18…4e34 Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x0032, t01=0x0008}
0x4e34…4e44 Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x0032, t01=0x0024}
0x4e44…4e58 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0032, t01=0x0034}
0x4e58…4e8e Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x0032, t01=0x0048}
0x4e8e…4ed0 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x0032, t01=0x007e}
0x4ed0…4efc Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0032, t01=0x00c0}
0x4efc…4f12 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0032, t01=0x00ec}
0x4f12…4f56 Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0032, t01=0x0102}
0x4f56…4f6a Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0032, t01=0x0146}
0x4f6a…4fae Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0032, t01=0x015a}
0x4fae…4fea Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0033, t01=0x000e}
0x4fea…5004 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0033, t01=0x004a}
0x5004…5042 Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0033, t01=0x0064}
0x5042…5060 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0033, t01=0x00a2}
0x5060…508c Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0033, t01=0x00c0}
0x508c…50a6 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0033, t01=0x00ec}
0x50a6…50c2 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0033, t01=0x0106}
0x50c2…50dc Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0033, t01=0x0122}
0x50dc…50f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0033, t01=0x013c}
0x50f8…510c Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0033, t01=0x0158}
0x510c…511e Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0033, t01=0x016c}
0x511e…5138 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0033, t01=0x017e}
0x5138…5148 Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0034, t01=0x0008}
0x5148…515c Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0034, t01=0x0018}
0x515c…5178 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0034, t01=0x002c}
0x5178…519e Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0034, t01=0x0048}
0x519e…51e4 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0034, t01=0x006e}
0x51e4…51f2 Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0034, t01=0x00b4}
0x51f2…521c Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0034, t01=0x00c2}
0x521c…5230 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0034, t01=0x00ec}
0x5230…5240 Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0034, t01=0x0100}
0x5240…5266 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0034, t01=0x0110}
0x5266…5272 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0034, t01=0x0136}
0x5272…5282 Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0034, t01=0x0142}
0x5282…52aa Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0034, t01=0x0152}
0x52aa…52be Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0034, t01=0x017a}
0x52be…52cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0034, t01=0x018e}
0x52cc…52da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x000c}
0x52da…52ea Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0035, t01=0x001a}
0x52ea…5306 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x002a}
0x5306…5310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0046}
0x5310…534a Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0035, t01=0x0050}
0x534a…537e Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0035, t01=0x008a}
0x537e…53a8 Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0035, t01=0x00be}
0x53a8…53d2 Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0035, t01=0x00e8}
0x53d2…5406 Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0035, t01=0x0112}
0x5406…5410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0146}
0x5410…542c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x0150}
0x542c…5448 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0035, t01=0x016c}
0x5448…5460 Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0035, t01=0x0188}
0x5460…5494 Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0036, t01=0x0010}
0x5494…54a2 Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0036, t01=0x0044}
0x54a2…54be Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0036, t01=0x0052}
0x54be…54d4 Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0036, t01=0x006e}
0x54d4…54f0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0036, t01=0x0084}
0x54f0…5520 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0036, t01=0x00a0}
0x5520…554a Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0036, t01=0x00d0}
0x554a…555a Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0036, t01=0x00fa}
0x555a…5564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x010a}
0x5564…557c Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0036, t01=0x0114}
0x557c…558a Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0036, t01=0x012c}
0x558a…55bc Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0036, t01=0x013a}
0x55bc…55d8 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0036, t01=0x016c}
0x55d8…55f6 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSUMMRK,CBLANKS«, t00=0x0036, t01=0x0188}
0x55f6…560e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0037, t01=0x0016}
0x560e…561c Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0037, t01=0x002e}
0x561c…5648 Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0037, t01=0x003c}
0x5648…566e Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0037, t01=0x0068}
0x566e…5688 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0037, t01=0x008e}
0x5688…56b0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0037, t01=0x00a8}
0x56b0…56c8 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0037, t01=0x00d0}
0x56c8…56d6 Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0037, t01=0x00e8}
0x56d6…56ea Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0037, t01=0x00f6}
0x56ea…56fe Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0037, t01=0x010a}
0x56fe…5712 Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0037, t01=0x011e}
0x5712…5734 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0037, t01=0x0132}
0x5734…5764 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,CBIN0,SUM80 DEFAULT LINE? «, t00=0x0037, t01=0x0154}
0x5764…5772 Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0037, t01=0x0184}
0x5772…579a (56, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0038, t01=0x0004}
0x579a…57a8 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0038, t01=0x002c}
0x57a8…57c6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0038, t01=0x003a}
0x57c6…57e6 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0038, t01=0x0058}
0x57e6…5812 Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0038, t01=0x0078}
0x5812…582c Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0038, t01=0x00a4}
0x582c…584a Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0038, t01=0x00be}
0x584a…585c Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0038, t01=0x00dc}
0x585c…587a Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0038, t01=0x00ee}
0x587a…5898 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0038, t01=0x010c}
0x5898…58b4 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0038, t01=0x012a}
0x58b4…58c2 Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0038, t01=0x0146}
0x58c2…58d6 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0038, t01=0x0154}
0x58d6…58e6 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0038, t01=0x0168}
0x58e6…590c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0038, t01=0x0178}
0x590c…5918 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x000e}
0x5918…5926 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x001a}
0x5926…5934 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0028}
0x5934…5946 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0039, t01=0x0036}
0x5946…5962 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0039, t01=0x0048}
0x5962…596c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0064}
0x596c…599e Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0039, t01=0x006e}
0x599e…59a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a0}
0x59a8…59c4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0039, t01=0x00aa}
0x59c4…59e2 Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0039, t01=0x00c6}
0x59e2…59fe Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0039, t01=0x00e4}
0x59fe…5a1c Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0039, t01=0x0100}
0x5a1c…5a30 Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0039, t01=0x011e}
0x5a30…5a44 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0039, t01=0x0132}
0x5a44…5a64 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,CBIN1,DIV10«, t00=0x0039, t01=0x0146}
0x5a64…5a78 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0039, t01=0x0166}
0x5a78…5a8a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x017a}
0x5a8a…5a98 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0039, t01=0x018c}
0x5a98…5aac Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x003a, t01=0x000a}
0x5aac…5abe Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x003a, t01=0x001e}
0x5abe…5ad8 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x003a, t01=0x0030}
0x5ad8…5ae6 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x003a, t01=0x004a}
0x5ae6…5afc Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x003a, t01=0x0058}
0x5afc…5b18 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,CBIN1«, t00=0x003a, t01=0x006e}
0x5b18…5b2a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x003a, t01=0x008a}
0x5b2a…5b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009c}
0x5b34…5b44 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x003a, t01=0x00a6}
0x5b44…5b6a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x003a, t01=0x00b6}
0x5b6a…5b76 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x00dc}
0x5b76…5b86 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x003a, t01=0x00e8}
0x5b86…5bae Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x003a, t01=0x00f8}
0x5bae…5bba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x0120}
0x5bba…5bc8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x012c}
0x5bc8…5bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x013a}
0x5bd2…5be0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0144}
0x5be0…5bf2 Head {h00=0x000e, h01=0x0050, text=»CLRSW PROC«, t00=0x003a, t01=0x0152}
0x5bf2…5c10 Head {h00=0x001a, h01=0x0050, text=»* CLEAR AUTODUP FLAGS «, t00=0x003a, t01=0x0164}
0x5c10…5c2c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x003a, t01=0x0182}
0x5c2c…5c3a Head {h00=0x000a, h01=0x0050, text=»CLRSW1«, t00=0x003b, t01=0x000e}
0x5c3a…5c60 Head {h00=0x0022, h01=0x0050, text=» MOVE GSSWITCH(GSWBIN1),CBIN0 «, t00=0x003b, t01=0x001c}
0x5c60…5c7a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x003b, t01=0x0042}
0x5c7a…5c9e Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,CLRSW1 «, t00=0x003b, t01=0x005c}
0x5c9e…5caa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003b, t01=0x0080}
0x5caa…5cb8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003b, t01=0x008c}
0x5cb8…5ccc Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x003b, t01=0x009a}
0x5ccc…5cd0 Head {h00=0x4004, h01=0x0000}
0x5cd0…5cd4 00 3b 00 ae ┆ ; ┆
0x5cd4…5cdc (60, 1, 8) 20 04 00 00 00 3c 00 04 ┆ < ┆