|
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: 23664 (0x5c70)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/RGSUBS.SC«
IDENT RGSUBS 840124 EV
DDUM KMD08
PDIV
ENTRY ENTER
ENTRY MODP
ENTRY KORT
ENTRY KKTRP
ENTRY KVIT
ENTRY LSTINT
ENTRY CYKINT
ENTRY CYK
ENTRY CYCLR
ENTRY SUBTOT
ENTRY SUM
EXT ADM
ENTRY DIVTR
ENTRY KKCH
ENTRY FMTNXT
EXT SETKRE
EXT SETDEB
EXT SLUT
EXT FRMTVO
EXT FRMTKV
EXT FRMXJT
EXT FRMXSP
EXT FRMXVO
EXT FRMXTA
EXT FRMTKT
EXT FRMXKT
EXT WRITVO
EXT WRITJT
EXT WTALLY
EXT WCHECK
EXT LINOPT
EXT ABORT
EXT EMPTYT
EXT CRVO
EXT SPCLRA
EXT SPERR
EXT SPINF1
EXT SPLIN8
EXT GRASPV
EXT CLEAR8
EXT SPCHK5
EXT FLDTST
EXT CYOUT
EXT CYTRP
EXT WRITLO
INCLUDE EQUATE
EJECT
KORT PROC
********************
*
** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT
*
** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)
******************
TBF TTEORFLG,KORTNOK NOT CORRECT TRANS
TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12)
CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5
CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7
** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT
** WRITE 'KONTOKORT' ON JOURNAL
** TRANSPORT LINE IF NEEDED
*
KORT10
MOVE SPKEY,CBIN1
CLEAR GTSLDFLG
TBF CKTFLAG,KORT12
SET TTKORTFL
KORT12
PERF FRMXSP,CBIN12 SALDO/LINE/CHECK
SET SPPROMPT
PERF SPCLRA WRITE/READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,KORTOK,KORTOK,KORT30
KORT20 ERRORKEY
MOVE SPBINW4,=W'4'
PERF SPERR
B KORT10
KORT30 CORRECT ENTERED
TBF CKTFLAG,KORT40 NO SALDO
SET GTSLDFLG
CALL EMPTYT,TTKTSLD GL SALDO PRESENT?
BE KORT40 YES
CLEAR GTSLDFLG NOT PRESENT
TBF CSLDFLG,KORT40 ALLOWED
MOVE SPBINW4,=W'5' NOT ALLOWED
PERF SPERR
B KORT10
KORT40
PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL
PERF WRITLO,CBIN2
PERF KKTRP TRANSPORT LINE IF NEEDED
MOVE SPINPUT,TTKTLIN
PERF SPCHK5 GET THE OLD LINE NUMBER
CBG GSWBIN1,=W'89',KORT20
DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE
ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO
ADD TTKTLIN,=D'1' ADD 1 TO LINE NO
PERF KKCH NEW CHECKDIGIT
PERF FRMTKT
EDWRT KVOUCH,GTSTRFMT
DSC0 .NW,KVOUCH,RLEAS
CLEAR GTLOKSPG
KORTOK
CLEAR TTKORTFL
CMP CBIN0,CBIN0 OK, SET CR=0
RET
KORTNOK
CLEAR TTKORTFL
CMP CBIN1,CBIN0 NOK, SET CR <>0
RET
PEND
EJECT
KKTRP PROC
********************
*
** KKTRP - WRITES KONTOKORT INF ON VOUCHER
** + TRANSPORT IF NECESSARY
*
********************
PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT
TBF GTCYFLG,KON20 IF IN CYCLE
TBF GTCYWRTF,KON20
DSC0 KVOUCH,RLEAS
CLEAR TTTSTFLG
KON20
PERF GRASPV GRASP VOUCHER
PERF CLEAR8
TBF CKTFLAG,KON90
TBF GTSLDFLG,KON90 NO SALDO
CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?
PERF FRMXKT,CBIN1 GET TRANSPORT LINE
DSC1 KVOUCH,POS,CMINLIN
EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE
KON30
PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'
WAIT KVOUCH
DSC0 KVOUCH,RLEAS
PERF GRASPV
TESTIO KEYB ANY INPUT?
BOK KON35 YES
CALL ABORT,KEYB NO, ABORT
DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER
MOVE GSWBCD3,CKTTOP SET DEFAULT LINE
MOVE SPINPUT,GSWBCD3
B KON40
KON35
WAIT KEYB
CBE SPBINW2,=W'18',KON40 SLUT KEY
CBNE SPBINW2,=W'4',KON30 ENTER KEY
KON40
MOVE GSWBCD3,SPINPUT GET LINE
MOVE TTKTLIN,GSWBCD3
CBG TTKTLIN,=D'24',KON30 CHECK LINE
CBL TTKTLIN,=D'1',KON30
PERF SPCHK5 CHANGE LINE VALUE
DSC1 KVOUCH,POS,GSWBIN1
PERF FRMXKT,CBIN1
EDWRT KVOUCH,GTSTRFMT
ADD TTKTLIN,=D'1'
KON90
RET
PEND
EJECT
KKCH PROC
********************
*
** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM
** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND
** PUTS IT IN TTKTCHK
** USED FOR KONTOKORT
*
****************
MOVE GSWBCD1,TTKTSLD SAVE
CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?
MUL GSWBCD1,=D'-1' YES, CHANGE SIGN
KKCH10
MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR
SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR
ADD GSWBCD1,TTKTLIN ADD
ADD TTKTLIN,=D'1' RESTORE LINE NR
MOVE GSWBCD2,GSWBCD1 SAVE
DIV GSWBCD1,=D'7' CALCULATE
MUL GSWBCD1,=D'7' REMAINDER
SUB GSWBCD2,GSWBCD1 MODULUS 7
ADD GSWBCD2,=D'1' ADD 1 ALWAYS
CBL TTKTSLD,=D'0',KKCH20
ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO
KKCH20
MOVE TTKTCHK,GSWBCD2
RET
PEND
EJECT
MODP PROC
**********
*
** MODP - INVERTS THE PREVIOUS TRANSACTION
** I.E. REVERSES THE VALUE
** AND SETS FLAG TO UPDATE ACCUMULATORS
** MUST NOT BE IN FIRST TRANBS
** ONLY IN KASSEFUNCTIONS
*
**********
TBF TTEORFLG,MODPNOK NOT CORRECT TRANS
MOVE GTRETUR,CBIN0
TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)
TBT GTSPECTR,MODPNOK NOT TR 50...
PERF CYTRP
CLEAR GTLOKSPG
MOVE SPKEY,CBIN1
SET TTINVFLG
MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1
PERF SLUT
CLEAR TTINVFLG
CBNE GTRETUR,=W'3',MODP50
PERF KORT
MODP50
CMP CBIN0,CBIN0 OK, SET CR=0
RET
MODPNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
KVIT PROC
**********
*
** KVIT - WRITES AN EXTRA RECEIPT
** ONLY IN KASSEFUNCTIONS
*
**********
TBF TTEORFLG,KVITNOK NOT CORRECT TRANS
TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS
TBT GTCYFLG,KVITNOK NOT IN CYCLE
TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12)
TBT GTSPECTR,KVITNOK NOT TR50...
MOVE SPKEY,CBIN1
PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL
PERF WRITLO,CBIN1
MOVE TTCYM,=C'K'
PERF FRMTKV
PERF WRITVO WRITE RECEIPT
MOVE TTCYM,=C' '
CLEAR GTLOKSPG
CMP CBIN0,CBIN0 OK, SET CR =0
RET
KVITNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
ENTER PROC
**********
*
** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN
** ENTERED ON SCREEN
*
** 1 ANY PAGE TWO ?
*
** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?
*
** 3 FIELD DEPENDENCE TEST
*
** AND THEN PERFORM PROCEDURE SLUT, TO
** WRITE TO DISK AND WRITE RELEVANT RECEIPTS
*
**********
MOVE GTRETUR,CBIN0 SET RETURN CODE
TBT GTTYPE3,ENTY3
TBT GTTYPE2,ENTY2
* TYPE 1 - ONE PAGE TRANSACTION
ENTY1
PERF FLDTST TEST FIELD DEPENDENCE
BNOK ENTNOK
PERF SLUT OK
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,=W'3',ENT01 IF LINE 91
MOVE GTRETUR,=W'1'
TBF CKTAUTO,ENTOK
CBNE GTREGDEX,=W'4',ENTOK
ENT01
PERF KORT TRANS 4: KONTOKORT
MOVE GTRETUR,=W'3' RESET SCREEN
CLEAR GTKORTFL
B ENTOK
* TYPE 2 - TWO PAGE TRANSACTION
ENTY2
CBNE GTPAGE,CBIN1,ENT10
* GET PAGE 2
TBT GTSLUTFL,ENTY1
SET GTSLUTFL
PERF FMTNXT,CBIN1
MOVE GTPAGE,CBIN2
MOVE GTRETUR,=W'2'
B ENTOK
*
ENT10
PERF FLDTST
BNOK ENTNOK
PERF SLUT
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,=W'3',ENT01
MOVE GTRETUR,=W'3'
B ENTOK
* TYPE 3 - THREE PAGE TRANSACTION
ENTY3
CBNE GTPAGE,CBIN1,ENT20
* AFTER PAGE 1, GET NEXT PAGE
PERF FMTNXT,CBIN2
MOVE GTPAGE,CBIN2
MOVE GTRETUR,=W'2'
B ENTOK
*
ENT20
CBNE GTPAGE,CBIN2,ENT30
* AFTER PAGE 2, GET LAST PAGE
PERF FMTNXT,CBIN3
MOVE GTPAGE,CBIN3
MOVE GTRETUR,=W'2'
B ENTOK
*
ENT30
CBNE GTPAGE,CBIN3,ENT40
* FIRST TIME PAGE 3
PERF FLDTST
BNOK ENTNOK
B ENT40
*
ENT40
* CORRECT PAGE 3
PERF SLUT
BNOK ENTNOK
CLEAR GTKORTFL
CBE GTSUM,=D'0',ENT50
MOVE GTPAGE,CBIN4
MOVE GTRETUR,=W'1'
B ENTOK
*
ENT50
* FINISHED
MOVE GTRETUR,=W'3'
*
ENTOK
CMP CBIN0,CBIN0 OK, SET CR =0
RET
ENTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
*
PEND
EJECT
FMTNXT PROC FORMAL1
*******************
*
** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3
** TRANSTYPES 8,9,51 AND 53
** (DEX 8,9,21,23)
*
****-**************
CBNE FORMAL1,CBIN1,NXT10 INDEX 1:
MOVE GSWBIN1,CBIN1 TYPE 8
CBE GTREGDEX,=W'8',NXT10
MOVE GSWBIN1,CBIN2 TYPE 9
CBE GTREGDEX,=W'9',NXT10
MOVE GSWBIN1,CBIN3 TYPE 51
CBE GTREGDEX,=W'21',NXT10
MOVE GSWBIN1,CBIN4 TYPE 53
NXT10
CBE FORMAL1,CBIN1,NXTATT INDEX 2:
CBNE FORMAL1,CBIN2,NXT20
MOVE GSWBIN1,CBIN3 TYPE 51,PAGE 2
CBE GTREGDEX,=W'21',NXT20
MOVE GSWBIN1,CBIN4 TYPE 53,PAGE 2
NXT20
CBNE FORMAL1,CBIN3,NXTATT INDEX 3:
MOVE GSWBIN1,CBIN5 TYPE 51,PAGE 3
CBE GTREGDEX,=W'21',NXTATT
MOVE GSWBIN1,CBIN6 TYPE 53,PAGE 3
NXTATT
PERF FRMXSP,GSWBIN1
RET
PEND
EJECT
CYK PROC CYTYPE
********************
*
* HANDLE DIFFERENT TYPES OF CYCLES
*
********************
TBT GTSPECTR,CYKNOK NOT TR50...
IB CYTYPE, C
CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C
CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND
B CYKNOK
EJECT
CYK1
********************
*
** CYK1 - START OF CYCLE FUNCTION
*
********************
TBT TTLSTFLG,CYK1NOK IN LISTE
TBT TTCY2FLG,CYK1NOK IN CYCLE 2
SET TTCY1FLG
MOVE TTCYM,=C'C' FOR JOURNAL
MOVE GTTEXT,=C'CYKLE ' FOR SCREEN
PERF CYKINT
B CYKOK
CYK1NOK
B CYKNOK
EJECT
CYK2
********************
*
** CYK2 - START OF STABEL FUNCTION
*
********************
TBT TTLSTFLG,CYK2NOK IN LISTE
TBT TTCY1FLG,CYK2NOK IN CYCLE 1
SET TTCY2FLG
MOVE TTCYM,=C'S' FOR JOURNAL
MOVE GTTEXT,=C'STABEL' FOR SCREEN
PERF CYKINT
B CYKOK
CYK2NOK
B CYKNOK
EJECT
CYK4
********************
*
* CYK4 - PAUSE IN CYCLE / STABEL
*
********************
TBF GTCYFLG,CYK4NOK
TBT GTCYWRTF,CYKSUB
MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR
SET TTPSEFLG INDICATE BREAK
MOVE GTCYSUM,GTSUM
MOVE GTPSELIN,TTLINNR
PERF CYCLR
ERASE 0,CBIN8,CBIN8 ERASE LINE 8
PERF SPINF1
B CYKOK
CYK4NOK
B CYKNOK
CYKSUB
PERF SUBTOT
B CYKOK
EJECT
CYK9
********************
*
** CYK9 - CLEAR ARKIV KONTO NR
*
********************
TBF TTCY1FLG,CYK9NOK
MOVE TTARKSAV,=D'0' CLEAR NUMBER
B CYKOK
CYK9NOK
B CYKNOK
EJECT
CYEND
********************
*
** CYEND - END OF CYCLE
*
** WRITE TOTAL LINE ON VOUCHER
*
********************
TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE
TBT TTCY2FLG,CYEND10
CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1)
CYEND10
CLEAR TTSUMFLG CLEAR FLAGS
CLEAR GTCYFLG
PERF CYOUT
CLEAR TTTSTFLG
WAIT KVOUCH
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER
MOVE GSWSTR9,=C'TOTAL '
PERF FRMXVO,CBIN2 GET TOTAL FORMAT
EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
TBF TSPOOL,CYEND14
TBT CSPOOL,CYEND15
CYEND14
PERF WRITJT,=W'15'
CYEND15
PERF WRITLO,CBIN9
CBL GTREGNR,=D'18',CYEND20 CHECKS?
SET TTTSTFLG
MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE
PERF WCHECK WRITE CHECK
CYEND20
CLEAR TTCY1FLG
CLEAR TTCY2FLG
PERF CYCLR
B CYENDOK
CYEND30
MOVE SPBINW4,=W'12' SET ERRORCODE
PERF SPERR
IB SPBINW2,CYENDCNT,CYEND10
CYENDOK
ERASE 0,CBIN8,CBIN8 ERASE LINE 8
PERF SPINF1
CYENDCNT
B CYKOK
CYENDNOK
B CYKNOK
*
CYKOK
CMP CBIN0,CBIN0 OK
RET
CYKNOK
CMP CBIN1,CBIN0 NOK
RET
PEND
EJECT
CYKINT PROC
********************
*
** CYKINT - START OR END OF CYCLE
*
** START SET RELEVANT INFORMATION AND READ
** ARKIV KNT.NR, KONTROLSUM AND LRER-9
*
** END CLEAR RELEVANT INFORMATION
*
********************
TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE
TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE
PERF CYK,CBIN10
RET
CY05
PERF CYCLR
RET
CY10
SET TTSUMFLG INDICATE SUM ON SCREEN
SET GTCYFLG INDICATE CYCLE
TBF TTPSEFLG,CY30 TRUE- PAUSE STATE
MOVE GTSUM,GTCYSUM GET SAVED SUM
MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR
CBG GTPSELIN,CBIN0,CY20
MOVE GTPSELIN,TTCYKST RESET START LINE
MOVE TTCYKPOS,TTCYKST
CY20
MOVE TTLINNR,GTPSELIN
CLEAR TTPSEFLG OUT OF PAUSE STATE
B CY90
CY30
MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES
MOVE GTCYSUM,=D'0'
MOVE GTSUM,=D'0'
MOVE TTCYKTOT,=D'0'
MOVE TTLINNR,=D'1'
PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF
SET SPPROMPT
PERF SPCLRA WRITE AND READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,CY45,CY45,CY50
CY40 ERROR KEY
MOVE SPBINW4,=W'4'
PERF SPERR
B CY30
CY45 MAK
CLEAR TTCY1FLG
CLEAR TTCY2FLG
B CY05
CY50
CBL TTLINNR,=D'25',CY55
MOVE TTLINNR,=D'1'
CY55
MOVE SPINPUT,TTLINNR
PERF SPCHK5
MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER
MOVE GTSUM,GTCYSUM
MOVE TTARKSAV,GTREGF(CBIN9)
MOVE TTCYKST,TTLINNR
MOVE TTCYKPOS,TTLINNR
MOVE GTCYIN,TTASKNR
SUB GTCYIN,CBIN1
MUL GTCYIN,CCYSIZE
ADD GTCYIN,CBIN1
MOVE GTCYOUT,GTCYIN
CY90
SET GTCYWRTF
TBT CCYWRTF,CY95
CLEAR GTCYWRTF
CY95
RET
PEND
EJECT
CYCLR PROC
*******************
*
** CYCLR - CLEAR CYCLEINFORMATION
*
******************
MOVE GTTEXT,=C' '
MOVE TTCYM,=C' '
MOVE GTREGF(CBIN9),=D'0'
MOVE GTSUM,=D'0'
CLEAR GTCYFLG
CLEAR TTSUMFLG
CLEAR TTTSTFLG
CLEAR GTCYTRPF
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
RET
PEND
EJECT
LSTINT PROC
********************
*
** LSTINT - INITIATE LISTFUNCTION
*
********************
TBT GTCYFLG,LSTNOK
TBT TTLSTFLG,LSTEND
* FIRST TIME
SET TTSUMFLG
SET TTLSTFLG
MOVE GTSUM,=D'0' INITIATE SUM
PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL
PERF WTALLY WRITE ON TALLY ROLL
MOVE GTTEXT,=C'LISTE '
B LSTOK
* LAST TIME
LSTEND
WAIT KTALLY
MOVE GSWBCD6,GTSUM
MOVE GSWSTR9,=C'TOTAL '
PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY
PERF WTALLY
ERASE 0,CBIN8,CBIN8
CLEAR TTLSTFLG
CLEAR TTSUMFLG
MOVE GTTEXT,=C' '
LSTOK
PERF SPINF1
CMP CBIN0,CBIN0 OK, SET CR=0
RET
LSTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
SUBTOT PROC
*******************
*
** SUBTOT - SUBTOTAL
*
** LISTFUNCTION- WRITE SUBTOTAL ON TALLY
*
** CYCLEFUNCTION- SAVE CYCLE INFORMATION
** WRITE SUBTOTAL
** IN CYCLE-PAUSE-STATE
*
********************
MOVE GSWSTR9,=C'SUBTOTAL '
TBT TTLSTFLG,SUBTLST IN LIST FUNCTION
TBT GTCYFLG,SUBTCYC IN CYCLE
TBF GTSUMKEY,SUBTNOK IN SUM
* SUBTOTAL IN SUM
SET GTSUBFLG
PERF SUM
CLEAR GTSUBFLG
B SUBTOK10
* SET PAUSE IN CYCLE
SUBTCYC
PERF CYOUT
MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR
SET TTPSEFLG INDICATE BREAK
PERF FRMXVO,CBIN3 GET SUBTOT FORMAT
SET GTCYWRTF
PERF WRITVO WRITE SUBTOT LINE
WAIT KVOUCH
DSC0 KVOUCH,RLEAS RELEASE VOUCHER
MOVE GTCYSUM,GTSUM SAVE SUM
SUB TTLINNR,=D'4'
MOVE TTCYKPOS,TTLINNR SAVE LINNR
MOVE GTPSELIN,TTLINNR
MOVE GTCYIN,TTASKNR INITIATE CYSET
SUB GTCYIN,CBIN1
MUL GTCYIN,CCYSIZE
ADD GTCYIN,CBIN1
MOVE GTCYOUT,GTCYIN
PERF CYCLR
B SUBTOK
* SUBTOTAL IN LIST
SUBTLST
WAIT KTALLY
MOVE GSWBCD6,GTSUM
PERF FRMXTA,CBIN3 GET FORMAT
PERF WTALLY WRITE ON TALLY ROLL
SUBTOK
ERASE 0,CBIN8,CBIN8 ERASE LINE 8
PERF SPINF1
SUBTOK10
CMP CBIN0,CBIN0 OK, SET CR=0
RET
SUBTNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
SUM PROC
********************
*
** SUM - PROCEDURE FOR SUMMING UP FOR ALL
** TRANSACTIONS FROM THE INITIATING
** POINT TO THE RELEASING.
** FIRST TIME: INITIATING
** LAST TIME: WRITE SUM ON VOUCHER
*
********************
TBT GTSUMKEY,SUM50
* FIRST TIME
PERF WRITJT,=W'3' WRITE START SUM FUNCTION
PERF WRITLO,CBIN10
SUM10
MOVE TTSUMMRK,=C'*'
SET GTSUMKEY
MOVE GTSUMST,TTLBNR
ADD GTSUMST,=D'1' INITIATE FIRST NUMBER
MOVE GTSUMCNT,=D'0' INITIATE SUM
B SUMOK
*
* LAST TIME
SUM50
MOVE GSWSTR9,=C'TOTAL '
TBF GTSUBFLG,SUM55
MOVE GSWSTR9,=C'SUBTOTAL '
SUM55
PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION
PERF WRITLO,CBIN11
TBT GTSUBFLG,SUM60
MOVE TTSUMMRK,=C' '
CLEAR GTSUMKEY
SUM60
PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
TBF GTCYFLG,SUM70 IF IN CYCLE
DSC0 KVOUCH,RLEAS
MOVE GSWBCD5,TTLINNR SAVE LINNR
CLEAR TTTSTFLG
SUM70
PERF GRASPV
CLEAR GTSWFLAG
PERF LINOPT
BNOK SUM60
CBG GSWBIN1,=W'90',SUM75
CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE?
SUM75
MOVE TTLINNR,=D'6' SET LINE 26
SUM80
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1
MOVE TTLINNR,GSWBCD5 RESTORE LINNR
PERF FRMXVO,CBIN7
EDWRT KVOUCH,GTSTRFMT
PERF CRVO
DSC0 .NW,KVOUCH,RLEAS
TBT GTSUBFLG,SUMOK10
TBT GTASUMFL,SUM10
SUMOK
PERF SPINF1
SUMOK10
CMP CBIN0,CBIN0 OK, SET CR=0
RET
PEND
EJECT
DIVTR PROC
********************
*
** DIVTR - SET OR CLEAR DIVTR FLAG
*
********************
TBT CTRVALG,DIVTRNOK
TBT GTSPECTR,DIVTRNOK NOT ALLOWED, TR50...
TBT GTDIVTR,DIVEND
* SET DIVTR
SET GTDIVTR
SET GTTRSEL
CBE TTDKDEX,=W'1',DIV10
PERF SETDEB
B DIVTROK
DIV10
PERF SETKRE
B DIVTROK
* CLEAR DIVTR
DIVEND
CLEAR GTDIVTR
MOVE TTSTYRDX,=W'1'
B DIVTROK
*
DIVTROK
CMP CBIN0,CBIN0 OK, SET CR=0
RET
DIVTRNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
*
*
END
0x0000…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUBS 840124 EV«, 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…017e Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0000, t01=0x0172}
0x017e…0192 Head {h00=0x0010, h01=0x0050, text=» ENTRY DIVTR«, t00=0x0000, t01=0x0182}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0001, t01=0x0008}
0x01a6…01bc Head {h00=0x0012, h01=0x0050, text=» ENTRY FMTNXT «, t00=0x0001, t01=0x001c}
0x01bc…01d0 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0032}
0x01d0…01e4 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0046}
0x01e4…01f6 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x005a}
0x01f6…0216 Head {h00=0x001c, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x006c}
0x0216…022a Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x008c}
0x022a…023e Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x00a0}
0x023e…0252 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x00b4}
0x0252…0266 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00c8}
0x0266…027a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00dc}
0x027a…028e Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x00f0}
0x028e…02a2 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x0104}
0x02a2…02c2 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0001, t01=0x0118}
0x02c2…02d6 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0138}
0x02d6…02f6 Head {h00=0x001c, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x014c}
0x02f6…0316 Head {h00=0x001c, h01=0x0050, text=» EXT WCHECK «, t00=0x0001, t01=0x016c}
0x0316…032a Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x018c}
0x032a…033c Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0002, t01=0x0010}
0x033c…0350 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0022}
0x0350…0362 Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0002, t01=0x0036}
0x0362…0382 Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0002, t01=0x0048}
0x0382…03a0 Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0002, t01=0x0068}
0x03a0…03b4 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0002, t01=0x0086}
0x03b4…03c8 Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x009a}
0x03c8…03dc Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x00ae}
0x03dc…03f0 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x00c2}
0x03f0…0404 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x00d6}
0x0404…0418 Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x00ea}
0x0418…042a Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x00fe}
0x042a…043c Head {h00=0x000e, h01=0x0050, text=» EXT CYTRP«, t00=0x0002, t01=0x0110}
0x043c…0450 Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0002, t01=0x0122}
0x0450…0470 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x0136}
0x0470…047e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0156}
0x047e…0490 Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x0164}
0x0490…04ac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0176}
0x04ac…04b6 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b6…04f4 Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0003, t01=0x000e}
0x04f4…04fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x04fe…0538 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0003, t01=0x0056}
0x0538…0552 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x0090}
0x0552…0582 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x00aa}
0x0582…05b8 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x00da}
0x05b8…05f2 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x0110}
0x05f2…0620 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x014a}
0x0620…064e Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x0178}
0x064e…0690 Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0004, t01=0x0016}
0x0690…06c0 Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0004, t01=0x0058}
0x06c0…06ec Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0088}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b4}
0x06f6…0704 Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x00be}
0x0704…071e Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x00cc}
0x071e…0736 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x00e6}
0x0736…0752 Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x00fe}
0x0752…0768 Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x011a}
0x0768…0776 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x0130}
0x0776…07a2 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x013e}
0x07a2…07b8 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x016a}
0x07b8…07e2 Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x0180}
0x07e2…07fa Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0005, t01=0x001a}
0x07fa…0822 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0005, t01=0x0032}
0x0822…083c Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0005, t01=0x005a}
0x083c…0858 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0005, t01=0x0074}
0x0858…086c Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x0090}
0x086c…087e Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x00a4}
0x087e…089e Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0005, t01=0x00b6}
0x089e…08c2 Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x00d6}
0x08c2…08d8 Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x00fa}
0x08d8…0906 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x0110}
0x0906…091c Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x013e}
0x091c…0940 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x0154}
0x0940…0964 Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x0178}
0x0964…098c Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'5' NOT ALLOWED «, t00=0x0006, t01=0x000c}
0x098c…09a0 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0006, t01=0x0034}
0x09a0…09b2 Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0006, t01=0x0048}
0x09b2…09c0 Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0006, t01=0x005a}
0x09c0…09f2 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0006, t01=0x0068}
0x09f2…0a0c Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN2«, t00=0x0006, t01=0x009a}
0x0a0c…0a38 Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x00b4}
0x0a38…0a56 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x00e0}
0x0a56…0a82 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x00fe}
0x0a82…0aa4 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x012a}
0x0aa4…0ad0 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x014c}
0x0ad0…0afc Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x0178}
0x0afc…0b28 Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0007, t01=0x0014}
0x0b28…0b4a Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0007, t01=0x0040}
0x0b4a…0b5e Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0007, t01=0x0062}
0x0b5e…0b7c Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0007, t01=0x0076}
0x0b7c…0b9a Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0007, t01=0x0094}
0x0b9a…0bb2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x00b2}
0x0bb2…0bc0 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x00ca}
0x0bc0…0bd8 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x00d8}
0x0bd8…0bfe Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x00f0}
0x0bfe…0c0a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0116}
0x0c0a…0c1a Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x0122}
0x0c1a…0c32 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0132}
0x0c32…0c5a Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x014a}
0x0c5a…0c66 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0172}
0x0c66…0c74 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x017e}
0x0c74…0c82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x018c}
0x0c82…0c94 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0008, t01=0x000a}
0x0c94…0cb0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x001c}
0x0cb0…0cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0038}
0x0cba…0cf4 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0008, t01=0x0042}
0x0cf4…0d20 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0008, t01=0x007c}
0x0d20…0d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a8}
0x0d2a…0d46 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x00b2}
0x0d46…0d76 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x00ce}
0x0d76…0d9c Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x00fe}
0x0d9c…0db8 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x0124}
0x0db8…0dd2 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x0140}
0x0dd2…0dea Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x015a}
0x0dea…0df8 Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x0172}
0x0df8…0e1a Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x0180}
0x0e1a…0e2e Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0009, t01=0x0012}
0x0e2e…0e48 Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0009, t01=0x0026}
0x0e48…0e6c Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0009, t01=0x0040}
0x0e6c…0e9e Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0009, t01=0x0064}
0x0e9e…0ecc Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0009, t01=0x0096}
0x0ecc…0eec Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x00c4}
0x0eec…0f1e Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x00e4}
0x0f1e…0f2c Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x0116}
0x0f2c…0f56 Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x0124}
0x0f56…0f6a Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x014e}
0x0f6a…0f84 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x0162}
0x0f84…0f98 Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x017c}
0x0f98…0fb8 Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x0190}
0x0fb8…0fce Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x000a, t01=0x0020}
0x0fce…0ff0 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x000a, t01=0x0036}
0x0ff0…1022 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x000a, t01=0x0058}
0x1022…1050 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x000a, t01=0x008a}
0x1050…106e Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x00b8}
0x106e…107e Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x00d6}
0x107e…108c Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x00e6}
0x108c…109e Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x00f4}
0x109e…10c8 Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'18',KON40 SLUT KEY«, t00=0x000a, t01=0x0106}
0x10c8…10f4 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,=W'4',KON30 ENTER KEY «, t00=0x000a, t01=0x0130}
0x10f4…1102 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x015c}
0x1102…1128 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x016a}
0x1128…1146 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x0190}
0x1146…1172 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000b, t01=0x001e}
0x1172…1192 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000b, t01=0x004a}
0x1192…11b8 Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000b, t01=0x006a}
0x11b8…11d8 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x0090}
0x11d8…11f2 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x00b0}
0x11f2…1210 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x00ca}
0x1210…122a Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x00e8}
0x122a…1238 Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x0102}
0x1238…1244 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0110}
0x1244…1252 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x011c}
0x1252…1260 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x012a}
0x1260…1272 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x0138}
0x1272…128e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x014a}
0x128e…1298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0166}
0x1298…12dc Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x0170}
0x12dc…131a Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000c, t01=0x0024}
0x131a…1340 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000c, t01=0x0062}
0x1340…1366 Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000c, t01=0x0088}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ae}
0x1370…1388 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x00b8}
0x1388…13aa Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x00d0}
0x13aa…13d6 Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x00f2}
0x13d6…1402 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x011e}
0x1402…1410 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x014a}
0x1410…1442 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x0158}
0x1442…1470 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x018a}
0x1470…1490 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000d, t01=0x0028}
0x1490…14ba Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000d, t01=0x0048}
0x14ba…14dc Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000d, t01=0x0072}
0x14dc…1500 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000d, t01=0x0094}
0x1500…1524 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x00b8}
0x1524…154a Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x00dc}
0x154a…1572 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x0102}
0x1572…1594 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x012a}
0x1594…15c6 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x014c}
0x15c6…15d4 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x017e}
0x15d4…15f2 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x018c}
0x15f2…15fe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x001a}
0x15fe…160c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x0026}
0x160c…161a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0034}
0x161a…1630 Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000e, t01=0x0042}
0x1630…1642 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0058}
0x1642…164c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006a}
0x164c…1684 Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000e, t01=0x0074}
0x1684…16ac Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x00ac}
0x16ac…16e2 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x00d4}
0x16e2…1712 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x010a}
0x1712…173c Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x013a}
0x173c…1746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1746…1758 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x016e}
0x1758…1788 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x0180}
0x1788…17a4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000f, t01=0x0020}
0x17a4…17da Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000f, t01=0x003c}
0x17da…1814 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000f, t01=0x0072}
0x1814…183e Head {h00=0x0026, h01=0x0050, text=» TBT GTSPECTR,MODPNOK NOT TR 50...«, t00=0x000f, t01=0x00ac}
0x183e…1852 Head {h00=0x0010, h01=0x0050, text=» PERF CYTRP «, t00=0x000f, t01=0x00d6}
0x1852…186a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x00ea}
0x186a…1884 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0102}
0x1884…18a4 Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x011c}
0x18a4…18e8 Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x013c}
0x18e8…18fa Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x0180}
0x18fa…1912 (16, 0, 398) Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x0010, t01=0x0004}
0x1912…1934 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,=W'3',MODP50«, t00=0x0010, t01=0x001c}
0x1934…1946 Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x0010, t01=0x003e}
0x1946…1954 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x0010, t01=0x0050}
0x1954…197a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0010, t01=0x005e}
0x197a…1986 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0084}
0x1986…1996 Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x0090}
0x1996…19be Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x00a0}
0x19be…19d2 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00c8}
0x19d2…19e8 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00dc}
0x19e8…19fe Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f2}
0x19fe…1a14 Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x0108}
0x1a14…1a26 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x011e}
0x1a26…1a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a30…1a62 Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x013a}
0x1a62…1a8c Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x016c}
0x1a8c…1a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a96…1aa8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x0012}
0x1aa8…1ad8 Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0011, t01=0x0024}
0x1ad8…1b0e Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0011, t01=0x0054}
0x1b0e…1b38 Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x008a}
0x1b38…1b72 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x00b4}
0x1b72…1b9c Head {h00=0x0026, h01=0x0050, text=» TBT GTSPECTR,KVITNOK NOT TR50... «, t00=0x0011, t01=0x00ee}
0x1b9c…1bb6 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x0118}
0x1bb6…1c02 Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x0132}
0x1c02…1c1c Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN1«, t00=0x0011, t01=0x017e}
0x1c1c…1c36 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0012, t01=0x0008}
0x1c36…1c4a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0012, t01=0x0022}
0x1c4a…1c6c Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0012, t01=0x0036}
0x1c6c…1c86 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C' ' «, t00=0x0012, t01=0x0058}
0x1c86…1c9e Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0012, t01=0x0072}
0x1c9e…1cc4 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0012, t01=0x008a}
0x1cc4…1cd0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00b0}
0x1cd0…1ce0 Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0012, t01=0x00bc}
0x1ce0…1d08 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x00cc}
0x1d08…1d1c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00f4}
0x1d1c…1d32 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0108}
0x1d32…1d48 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x011e}
0x1d48…1d5e Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0012, t01=0x0134}
0x1d5e…1d70 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x014a}
0x1d70…1d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d7a…1dc2 Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x0166}
0x1dc2…1de4 Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0013, t01=0x001e}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0040}
0x1dee…1e14 Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0013, t01=0x004a}
0x1e14…1e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0070}
0x1e1e…1e60 Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0013, t01=0x007a}
0x1e60…1e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00bc}
0x1e6a…1e96 Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x00c6}
0x1e96…1ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea0…1ed4 Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x00fc}
0x1ed4…1f0e Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x0130}
0x1f0e…1f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016a}
0x1f18…1f2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0174}
0x1f2a…1f56 Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x0186}
0x1f56…1f70 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0014, t01=0x0022}
0x1f70…1f8a Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0014, t01=0x003c}
0x1f8a…1fb2 Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0014, t01=0x0056}
0x1fb2…1fc0 Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0014, t01=0x007e}
0x1fc0…1fea Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0014, t01=0x008c}
0x1fea…1ffe Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x00b6}
0x1ffe…2014 Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x00ca}
0x2014…2028 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x00e0}
0x2028…2044 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x00f4}
0x2044…2070 Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01 IF LINE 91 «, t00=0x0014, t01=0x0110}
0x2070…208c Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0014, t01=0x013c}
0x208c…20a6 Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTOK«, t00=0x0014, t01=0x0158}
0x20a6…20c8 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'4',ENTOK«, t00=0x0014, t01=0x0172}
0x20c8…20d6 (21, 0, 398) Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0015, t01=0x0004}
0x20d6…20fc Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0015, t01=0x0012}
0x20fc…2124 Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,=W'3' RESET SCREEN«, t00=0x0015, t01=0x0038}
0x2124…213c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0015, t01=0x0060}
0x213c…214c Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x0078}
0x214c…2174 Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0015, t01=0x0088}
0x2174…2182 Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0015, t01=0x00b0}
0x2182…21a2 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0015, t01=0x00be}
0x21a2…21ba Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0015, t01=0x00de}
0x21ba…21d6 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x00f6}
0x21d6…21ec Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x0112}
0x21ec…2206 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x0128}
0x2206…2220 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0015, t01=0x0142}
0x2220…223c Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0015, t01=0x015c}
0x223c…224c Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x0178}
0x224c…2256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0188}
0x2256…2264 (22, 0, 400) Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0016, t01=0x0004}
0x2264…2278 Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0016, t01=0x0012}
0x2278…228c Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0016, t01=0x0026}
0x228c…229e Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0016, t01=0x003a}
0x229e…22b2 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0016, t01=0x004c}
0x22b2…22ce Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0016, t01=0x0060}
0x22ce…22ee Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01«, t00=0x0016, t01=0x007c}
0x22ee…230a Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0016, t01=0x009c}
0x230a…231a Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x00b8}
0x231a…2344 Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0016, t01=0x00c8}
0x2344…2352 Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x00f2}
0x2352…2372 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x0100}
0x2372…239c Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x0120}
0x239c…23b6 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x014a}
0x23b6…23d0 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0016, t01=0x0164}
0x23d0…23ec Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x017e}
0x23ec…23fc Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x000a}
0x23fc…2406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001a}
0x2406…2414 Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0017, t01=0x0024}
0x2414…2434 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0017, t01=0x0032}
0x2434…245e Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0017, t01=0x0052}
0x245e…2478 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0017, t01=0x007c}
0x2478…2492 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x0017, t01=0x0096}
0x2492…24ae Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0017, t01=0x00b0}
0x24ae…24be Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x00cc}
0x24be…24c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24c8…24d6 Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x00e6}
0x24d6…24f6 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN3,ENT40«, t00=0x0017, t01=0x00f4}
0x24f6…2516 Head {h00=0x001c, h01=0x0050, text=»* FIRST TIME PAGE 3 «, t00=0x0017, t01=0x0114}
0x2516…252a Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0017, t01=0x0134}
0x252a…253e Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x0148}
0x253e…254e Head {h00=0x000c, h01=0x0050, text=» B ENT40«, t00=0x0017, t01=0x015c}
0x254e…2558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x2558…2566 Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x0176}
0x2566…2582 Head {h00=0x0018, h01=0x0050, text=»* CORRECT PAGE 3«, t00=0x0017, t01=0x0184}
0x2582…2594 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0018, t01=0x0010}
0x2594…25a8 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0018, t01=0x0022}
0x25a8…25c0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0018, t01=0x0036}
0x25c0…25de Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0018, t01=0x004e}
0x25de…25f8 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0018, t01=0x006c}
0x25f8…2614 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0018, t01=0x0086}
0x2614…2624 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0018, t01=0x00a2}
0x2624…262e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b2}
0x262e…263c Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0018, t01=0x00bc}
0x263c…2652 Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0018, t01=0x00ca}
0x2652…266e Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0018, t01=0x00e0}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fc}
0x2678…2686 Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0018, t01=0x0106}
0x2686…26ac Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0018, t01=0x0114}
0x26ac…26b8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x013a}
0x26b8…26c6 Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x0146}
0x26c6…26ee Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x0154}
0x26ee…26fa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x017c}
0x26fa…2704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0188}
0x2704…271a (25, 0, 400) Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0004}
0x271a…2730 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x001a}
0x2730…274e Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0019, t01=0x0030}
0x274e…276a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0019, t01=0x004e}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x2774…27b2 Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0019, t01=0x0074}
0x27b2…27de Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0019, t01=0x00b2}
0x27de…2804 Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0019, t01=0x00de}
0x2804…280e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x280e…282a Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0019, t01=0x010e}
0x282a…2862 Head {h00=0x0034, h01=0x0050, text=» CBNE FORMAL1,CBIN1,NXT10 INDEX 1: «, t00=0x0019, t01=0x012a}
0x2862…2898 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 TYPE 8 «, t00=0x0019, t01=0x0162}
0x2898…28c4 Head {h00=0x0028, h01=0x0050, text=» CBE GTREGDEX,=W'8',NXT10 «, t00=0x001a, t01=0x0008}
0x28c4…28fa Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 TYPE 9 «, t00=0x001a, t01=0x0034}
0x28fa…291c Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'9',NXT10 «, t00=0x001a, t01=0x006a}
0x291c…2940 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 TYPE 51 «, t00=0x001a, t01=0x008c}
0x2940…2962 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXT10«, t00=0x001a, t01=0x00b0}
0x2962…2986 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 TYPE 53 «, t00=0x001a, t01=0x00d2}
0x2986…2994 Head {h00=0x000a, h01=0x0050, text=»NXT10 «, t00=0x001a, t01=0x00f6}
0x2994…29cc Head {h00=0x0034, h01=0x0050, text=» CBE FORMAL1,CBIN1,NXTATT INDEX 2: «, t00=0x001a, t01=0x0104}
0x29cc…29ee Head {h00=0x001e, h01=0x0050, text=» CBNE FORMAL1,CBIN2,NXT20 «, t00=0x001a, t01=0x013c}
0x29ee…2a2c Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 TYPE 51,PAGE 2 «, t00=0x001a, t01=0x015e}
0x2a2c…2a4e Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXT20«, t00=0x001b, t01=0x000c}
0x2a4e…2a8a Head {h00=0x0038, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 TYPE 53,PAGE 2«, t00=0x001b, t01=0x002e}
0x2a8a…2a98 Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x001b, t01=0x006a}
0x2a98…2ad0 Head {h00=0x0034, h01=0x0050, text=» CBNE FORMAL1,CBIN3,NXTATT INDEX 3: «, t00=0x001b, t01=0x0078}
0x2ad0…2b0e Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 TYPE 51,PAGE 3 «, t00=0x001b, t01=0x00b0}
0x2b0e…2b3c Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXTATT «, t00=0x001b, t01=0x00ee}
0x2b3c…2b7a Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 TYPE 53,PAGE 3 «, t00=0x001b, t01=0x011c}
0x2b7a…2b88 Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x015a}
0x2b88…2ba4 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x0168}
0x2ba4…2bb8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0184}
0x2bb8…2bce Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x0008}
0x2bce…2bdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x001e}
0x2bdc…2bf4 Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001c, t01=0x002c}
0x2bf4…2c10 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0044}
0x2c10…2c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0060}
0x2c1a…2c4e Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001c, t01=0x006a}
0x2c4e…2c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009e}
0x2c58…2c74 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x00a8}
0x2c74…2c9c Head {h00=0x0024, h01=0x0050, text=» TBT GTSPECTR,CYKNOK NOT TR50...«, t00=0x001c, t01=0x00c4}
0x2c9c…2cb2 Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001c, t01=0x00ec}
0x2cb2…2cdc Head {h00=0x0026, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C«, t00=0x001c, t01=0x0102}
0x2cdc…2d06 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001c, t01=0x012c}
0x2d06…2d18 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x0156}
0x2d18…2d26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0168}
0x2d26…2d32 Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001c, t01=0x0176}
0x2d32…2d4e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0182}
0x2d4e…2d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x000e}
0x2d58…2d8a Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001d, t01=0x0018}
0x2d8a…2d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d94…2db0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0054}
0x2db0…2dd6 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001d, t01=0x0070}
0x2dd6…2dfe Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001d, t01=0x0096}
0x2dfe…2e14 Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001d, t01=0x00be}
0x2e14…2e3a Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001d, t01=0x00d4}
0x2e3a…2e64 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001d, t01=0x00fa}
0x2e64…2e78 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x0124}
0x2e78…2e88 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x0138}
0x2e88…2e98 Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001d, t01=0x0148}
0x2e98…2eaa Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x0158}
0x2eaa…2eb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x016a}
0x2eb8…2ec4 Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001d, t01=0x0178}
0x2ec4…2ee0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0184}
0x2ee0…2eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0010}
0x2eea…2f1c Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001e, t01=0x001a}
0x2f1c…2f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004c}
0x2f26…2f42 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0056}
0x2f42…2f68 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001e, t01=0x0072}
0x2f68…2f90 Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001e, t01=0x0098}
0x2f90…2fa6 Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001e, t01=0x00c0}
0x2fa6…2fcc Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001e, t01=0x00d6}
0x2fcc…2ff6 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001e, t01=0x00fc}
0x2ff6…300a Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001e, t01=0x0126}
0x300a…301a Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001e, t01=0x013a}
0x301a…302a Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001e, t01=0x014a}
0x302a…303c Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001e, t01=0x015a}
0x303c…304a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x016c}
0x304a…3056 Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x017a}
0x3056…3072 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0186}
0x3072…307c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0012}
0x307c…30ae Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001f, t01=0x001c}
0x30ae…30b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004e}
0x30b8…30d4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0058}
0x30d4…30f0 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001f, t01=0x0074}
0x30f0…310c Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001f, t01=0x0090}
0x310c…3142 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001f, t01=0x00ac}
0x3142…3184 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001f, t01=0x00e2}
0x3184…31a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001f, t01=0x0124}
0x31a0…31be Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001f, t01=0x0140}
0x31be…31d2 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001f, t01=0x015e}
0x31d2…31fc Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001f, t01=0x0172}
0x31fc…3210 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0020, t01=0x000c}
0x3210…3220 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x0020}
0x3220…3230 Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x0020, t01=0x0030}
0x3230…3242 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x0040}
0x3242…3250 Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x0020, t01=0x0052}
0x3250…3264 Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x0020, t01=0x0060}
0x3264…3274 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x0074}
0x3274…3282 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0084}
0x3282…328e Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x0020, t01=0x0092}
0x328e…32aa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x009e}
0x32aa…32b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ba}
0x32b4…32e2 Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x0020, t01=0x00c4}
0x32e2…32ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f2}
0x32ec…3308 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00fc}
0x3308…3326 Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x0020, t01=0x0118}
0x3326…3350 Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x0020, t01=0x0136}
0x3350…3360 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0020, t01=0x0160}
0x3360…3370 Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x0020, t01=0x0170}
0x3370…3382 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x0180}
0x3382…3390 (33, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0004}
0x3390…339e Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0021, t01=0x0012}
0x339e…33ba Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0020}
0x33ba…33c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003c}
0x33c4…33ec Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0021, t01=0x0046}
0x33ec…33f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006e}
0x33f6…3422 Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0021, t01=0x0078}
0x3422…342c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a4}
0x342c…3448 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x00ae}
0x3448…3476 Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0021, t01=0x00ca}
0x3476…3494 Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0021, t01=0x00f8}
0x3494…34ce Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0021, t01=0x0116}
0x34ce…34de Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0021, t01=0x0150}
0x34de…351c Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0021, t01=0x0160}
0x351c…353c Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0022, t01=0x000e}
0x353c…3550 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0022, t01=0x002e}
0x3550…3572 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0022, t01=0x0042}
0x3572…3586 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0022, t01=0x0064}
0x3586…35a4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0022, t01=0x0078}
0x35a4…35d6 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0022, t01=0x0096}
0x35d6…35f8 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0022, t01=0x00c8}
0x35f8…3624 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0022, t01=0x00ea}
0x3624…3654 Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0022, t01=0x0116}
0x3654…3698 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0022, t01=0x0146}
0x3698…36b4 Head {h00=0x0018, h01=0x0050, text=» TBF TSPOOL,CYEND14 «, t00=0x0022, t01=0x018a}
0x36b4…36d0 Head {h00=0x0018, h01=0x0050, text=» TBT CSPOOL,CYEND15 «, t00=0x0023, t01=0x0016}
0x36d0…36e0 Head {h00=0x000c, h01=0x0050, text=»CYEND14 «, t00=0x0023, t01=0x0032}
0x36e0…36fc Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0023, t01=0x0042}
0x36fc…370c Head {h00=0x000c, h01=0x0050, text=»CYEND15 «, t00=0x0023, t01=0x005e}
0x370c…3726 Head {h00=0x0016, h01=0x0050, text=» PERF WRITLO,CBIN9«, t00=0x0023, t01=0x006e}
0x3726…3760 Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0023, t01=0x0088}
0x3760…3782 Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0023, t01=0x00c2}
0x3782…37c6 Head {h00=0x0040, h01=0x0050, text=» MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE «, t00=0x0023, t01=0x00e4}
0x37c6…3804 Head {h00=0x003a, h01=0x0050, text=» PERF WCHECK WRITE CHECK«, t00=0x0023, t01=0x0128}
0x3804…3814 Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0023, t01=0x0166}
0x3814…382c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0023, t01=0x0176}
0x382c…384e Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0023, t01=0x018e}
0x384e…3862 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0024, t01=0x0020}
0x3862…3874 Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0024, t01=0x0034}
0x3874…3884 Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0024, t01=0x0046}
0x3884…38c6 Head {h00=0x003e, h01=0x0050, text=» MOVE SPBINW4,=W'12' SET ERRORCODE «, t00=0x0024, t01=0x0056}
0x38c6…38e4 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0024, t01=0x0098}
0x38e4…3908 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0024, t01=0x00b6}
0x3908…3918 Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0024, t01=0x00da}
0x3918…3942 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0024, t01=0x00ea}
0x3942…3956 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0024, t01=0x0114}
0x3956…3966 Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0024, t01=0x0128}
0x3966…3976 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0024, t01=0x0138}
0x3976…3986 Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0024, t01=0x0148}
0x3986…3998 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0024, t01=0x0158}
0x3998…39a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016a}
0x39a2…39b0 Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0024, t01=0x0174}
0x39b0…39cc Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0024, t01=0x0182}
0x39cc…39d8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x000e}
0x39d8…39e6 Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0025, t01=0x001a}
0x39e6…3a02 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0025, t01=0x0028}
0x3a02…3a0e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0044}
0x3a0e…3a1c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x0050}
0x3a1c…3a32 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x005e}
0x3a32…3a48 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0025, t01=0x0074}
0x3a48…3a64 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x008a}
0x3a64…3a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a6}
0x3a6e…3aa0 Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0025, t01=0x00b0}
0x3aa0…3aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e2}
0x3aaa…3ae4 Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0025, t01=0x00ec}
0x3ae4…3b20 Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0025, t01=0x0126}
0x3b20…3b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0162}
0x3b2a…3b5e Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0025, t01=0x016c}
0x3b5e…3b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0010}
0x3b68…3b84 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0026, t01=0x001a}
0x3b84…3bb4 Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0026, t01=0x0036}
0x3bb4…3bfa Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0026, t01=0x0066}
0x3bfa…3c12 Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0026, t01=0x00ac}
0x3c12…3c1e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x00c4}
0x3c1e…3c2a Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0026, t01=0x00d0}
0x3c2a…3c3e Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0026, t01=0x00dc}
0x3c3e…3c4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x00f0}
0x3c4a…3c56 Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0026, t01=0x00fc}
0x3c56…3c82 Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0026, t01=0x0108}
0x3c82…3ca6 Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0026, t01=0x0134}
0x3ca6…3cea Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0026, t01=0x0158}
0x3cea…3d2a Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0027, t01=0x000c}
0x3d2a…3d74 Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0027, t01=0x004c}
0x3d74…3d94 Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0027, t01=0x0096}
0x3d94…3dc4 Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0027, t01=0x00b6}
0x3dc4…3de2 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0027, t01=0x00e6}
0x3de2…3dee Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0027, t01=0x0104}
0x3dee…3e0c Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0027, t01=0x0110}
0x3e0c…3e52 Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0027, t01=0x012e}
0x3e52…3e62 Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0027, t01=0x0174}
0x3e62…3e6e Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0027, t01=0x0184}
0x3e6e…3ea0 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0027, t01=0x0190}
0x3ea0…3ebc Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0028, t01=0x0032}
0x3ebc…3ee0 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0028, t01=0x004e}
0x3ee0…3efc Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0028, t01=0x0072}
0x3efc…3f22 Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0028, t01=0x008e}
0x3f22…3f6e Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0028, t01=0x00b4}
0x3f6e…3f8c Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0028, t01=0x0100}
0x3f8c…3fd8 Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0028, t01=0x011e}
0x3fd8…3ff8 Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0028, t01=0x016a}
0x3ff8…4028 Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0028, t01=0x018a}
0x4028…4040 Head {h00=0x0014, h01=0x0050, text=»CY40 ERROR KEY«, t00=0x0029, t01=0x002a}
0x4040…405c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0029, t01=0x0042}
0x405c…407a Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0029, t01=0x005e}
0x407a…4098 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0029, t01=0x007c}
0x4098…40aa Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0029, t01=0x009a}
0x40aa…40c2 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0029, t01=0x00ac}
0x40c2…40da Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0029, t01=0x00c4}
0x40da…40ea Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0029, t01=0x00dc}
0x40ea…40f6 Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0029, t01=0x00ec}
0x40f6…4116 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0029, t01=0x00f8}
0x4116…4132 Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0029, t01=0x0118}
0x4132…413e Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0029, t01=0x0134}
0x413e…415c Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0029, t01=0x0140}
0x415c…4170 Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0029, t01=0x015e}
0x4170…41a0 Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0029, t01=0x0172}
0x41a0…41bc Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x002a, t01=0x0012}
0x41bc…41e0 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x002a, t01=0x002e}
0x41e0…41fe Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x002a, t01=0x0052}
0x41fe…421c Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x002a, t01=0x0070}
0x421c…4238 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x002a, t01=0x008e}
0x4238…4252 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x002a, t01=0x00aa}
0x4252…426e Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x002a, t01=0x00c4}
0x426e…4288 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x002a, t01=0x00e0}
0x4288…42a4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x002a, t01=0x00fa}
0x42a4…42b0 Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x002a, t01=0x0116}
0x42b0…42c6 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x002a, t01=0x0122}
0x42c6…42e0 Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x002a, t01=0x0138}
0x42e0…42f8 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x002a, t01=0x0152}
0x42f8…4304 Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x002a, t01=0x016a}
0x4304…4318 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0176}
0x4318…432e Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x018a}
0x432e…433c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0010}
0x433c…434e Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002b, t01=0x001e}
0x434e…436a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002b, t01=0x0030}
0x436a…4374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004c}
0x4374…43a6 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002b, t01=0x0056}
0x43a6…43b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0088}
0x43b0…43ca Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002b, t01=0x0092}
0x43ca…43f0 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002b, t01=0x00ac}
0x43f0…4414 Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYM,=C' '«, t00=0x002b, t01=0x00d2}
0x4414…4440 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002b, t01=0x00f6}
0x4440…4464 Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002b, t01=0x0122}
0x4464…4484 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002b, t01=0x0146}
0x4484…44a6 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002b, t01=0x0166}
0x44a6…44be Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002b, t01=0x0188}
0x44be…44d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002c, t01=0x0010}
0x44d6…4500 Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002c, t01=0x0028}
0x4500…450c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x0052}
0x450c…4522 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x005e}
0x4522…4538 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0074}
0x4538…454c Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002c, t01=0x008a}
0x454c…4568 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x009e}
0x4568…4572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ba}
0x4572…45a2 Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002c, t01=0x00c4}
0x45a2…45ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45ac…45c8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x00fe}
0x45c8…45e4 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002c, t01=0x011a}
0x45e4…460c Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002c, t01=0x0136}
0x460c…4620 Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002c, t01=0x015e}
0x4620…4642 Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002c, t01=0x0172}
0x4642…4664 (45, 0, 400) Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002d, t01=0x0004}
0x4664…46a4 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002d, t01=0x0026}
0x46a4…46f0 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002d, t01=0x0066}
0x46f0…4736 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002d, t01=0x00b2}
0x4736…4760 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002d, t01=0x00f8}
0x4760…4770 Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002d, t01=0x0122}
0x4770…4784 Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002d, t01=0x0132}
0x4784…4792 Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002d, t01=0x0146}
0x4792…47a6 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002d, t01=0x0154}
0x47a6…47c2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002d, t01=0x0168}
0x47c2…47e4 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002d, t01=0x0184}
0x47e4…4816 Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002e, t01=0x0016}
0x4816…4836 Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002e, t01=0x0048}
0x4836…4852 Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002e, t01=0x0068}
0x4852…4874 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002e, t01=0x0084}
0x4874…4896 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002e, t01=0x00a6}
0x4896…48bc Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002e, t01=0x00c8}
0x48bc…48ca Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002e, t01=0x00ee}
0x48ca…48de Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002e, t01=0x00fc}
0x48de…4904 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002e, t01=0x0110}
0x4904…4910 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0136}
0x4910…491e Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002e, t01=0x0142}
0x491e…4946 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002e, t01=0x0150}
0x4946…495a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002e, t01=0x0178}
0x495a…4970 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x018c}
0x4970…4986 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0012}
0x4986…499c Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002f, t01=0x0028}
0x499c…49b8 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002f, t01=0x003e}
0x49b8…49c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005a}
0x49c2…49e4 Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002f, t01=0x0064}
0x49e4…49ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0086}
0x49ee…4a28 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002f, t01=0x0090}
0x4a28…4a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ca}
0x4a32…4a68 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002f, t01=0x00d4}
0x4a68…4a90 Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002f, t01=0x010a}
0x4a90…4abe Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x002f, t01=0x0132}
0x4abe…4ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0160}
0x4ac8…4ae4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002f, t01=0x016a}
0x4ae4…4b08 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002f, t01=0x0186}
0x4b08…4b4c Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x0030, t01=0x001a}
0x4b4c…4b72 Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x0030, t01=0x005e}
0x4b72…4b96 Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x0030, t01=0x0084}
0x4b96…4bb0 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x0030, t01=0x00a8}
0x4bb0…4bc6 Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x0030, t01=0x00c2}
0x4bc6…4bd8 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x0030, t01=0x00d8}
0x4bd8…4bf0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x0030, t01=0x00ea}
0x4bf0…4c04 Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x0030, t01=0x0102}
0x4c04…4c20 Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x0030, t01=0x0116}
0x4c20…4c30 Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x0030, t01=0x0132}
0x4c30…4c44 Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0030, t01=0x0142}
0x4c44…4c7a Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x0030, t01=0x0156}
0x4c7a…4cbc Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x0030, t01=0x018c}
0x4cbc…4ce8 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0031, t01=0x003e}
0x4ce8…4cfe Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0031, t01=0x006a}
0x4cfe…4d42 Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0031, t01=0x0080}
0x4d42…4d56 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0031, t01=0x00c4}
0x4d56…4d9a Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0031, t01=0x00d8}
0x4d9a…4dd6 Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0031, t01=0x011c}
0x4dd6…4df0 Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0031, t01=0x0158}
0x4df0…4e2e Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0031, t01=0x0172}
0x4e2e…4e4c Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0032, t01=0x0020}
0x4e4c…4e78 Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0032, t01=0x003e}
0x4e78…4e92 Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0032, t01=0x006a}
0x4e92…4eae Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0032, t01=0x0084}
0x4eae…4ec8 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0032, t01=0x00a0}
0x4ec8…4ee4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0032, t01=0x00ba}
0x4ee4…4ef8 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0032, t01=0x00d6}
0x4ef8…4f0a Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0032, t01=0x00ea}
0x4f0a…4f24 Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0032, t01=0x00fc}
0x4f24…4f34 Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0032, t01=0x0116}
0x4f34…4f48 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0032, t01=0x0126}
0x4f48…4f64 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0032, t01=0x013a}
0x4f64…4f8a Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0032, t01=0x0156}
0x4f8a…4fd0 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0032, t01=0x017c}
0x4fd0…4fde Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0033, t01=0x0032}
0x4fde…5008 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0033, t01=0x0040}
0x5008…501c Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0033, t01=0x006a}
0x501c…502c Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0033, t01=0x007e}
0x502c…5052 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0033, t01=0x008e}
0x5052…505e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0033, t01=0x00b4}
0x505e…506e Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0033, t01=0x00c0}
0x506e…5096 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0033, t01=0x00d0}
0x5096…50aa Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0033, t01=0x00f8}
0x50aa…50b8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0033, t01=0x010c}
0x50b8…50c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x011a}
0x50c6…50d6 Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0033, t01=0x0128}
0x50d6…50f2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x0138}
0x50f2…50fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0154}
0x50fc…5136 Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0033, t01=0x015e}
0x5136…516a Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0034, t01=0x0008}
0x516a…5194 Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0034, t01=0x003c}
0x5194…51be Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0034, t01=0x0066}
0x51be…51f2 Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0034, t01=0x0090}
0x51f2…51fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c4}
0x51fc…5218 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0034, t01=0x00ce}
0x5218…5234 Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0034, t01=0x00ea}
0x5234…524c Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0034, t01=0x0106}
0x524c…5280 Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0034, t01=0x011e}
0x5280…529c Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN10 «, t00=0x0034, t01=0x0152}
0x529c…52aa Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0034, t01=0x016e}
0x52aa…52c6 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0034, t01=0x017c}
0x52c6…52dc Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0035, t01=0x0008}
0x52dc…52f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0035, t01=0x001e}
0x52f8…5328 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0035, t01=0x003a}
0x5328…5352 Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0035, t01=0x006a}
0x5352…5362 Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0035, t01=0x0094}
0x5362…536c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a4}
0x536c…5384 Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0035, t01=0x00ae}
0x5384…5392 Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0035, t01=0x00c6}
0x5392…53b6 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL ' «, t00=0x0035, t01=0x00d4}
0x53b6…53d2 Head {h00=0x0018, h01=0x0050, text=» TBF GTSUBFLG,SUM55 «, t00=0x0035, t01=0x00f8}
0x53d2…53f6 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x0035, t01=0x0114}
0x53f6…5404 Head {h00=0x000a, h01=0x0050, text=»SUM55 «, t00=0x0035, t01=0x0138}
0x5404…5436 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0035, t01=0x0146}
0x5436…5452 Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN11 «, t00=0x0035, t01=0x0178}
0x5452…546e (54, 0, 398) Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0036, t01=0x0004}
0x546e…548a Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0036, t01=0x0020}
0x548a…54a2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0036, t01=0x003c}
0x54a2…54b0 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0036, t01=0x0054}
0x54b0…54dc Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0036, t01=0x0062}
0x54dc…5502 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0036, t01=0x008e}
0x5502…551c Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0036, t01=0x00b4}
0x551c…5544 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0036, t01=0x00ce}
0x5544…555c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0036, t01=0x00f6}
0x555c…556a Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0036, t01=0x010e}
0x556a…557e Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0036, t01=0x011c}
0x557e…5596 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0036, t01=0x0130}
0x5596…55aa Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0036, t01=0x0148}
0x55aa…55be Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0036, t01=0x015c}
0x55be…55e0 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0036, t01=0x0170}
0x55e0…5610 (55, 0, 398) Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? «, t00=0x0037, t01=0x0004}
0x5610…561e Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0037, t01=0x0034}
0x561e…5646 Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0037, t01=0x0042}
0x5646…5654 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0037, t01=0x006a}
0x5654…5672 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0037, t01=0x0078}
0x5672…5692 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0037, t01=0x0096}
0x5692…56be Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0037, t01=0x00b6}
0x56be…56d8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0037, t01=0x00e2}
0x56d8…56f6 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0037, t01=0x00fc}
0x56f6…5708 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0037, t01=0x011a}
0x5708…5726 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0037, t01=0x012c}
0x5726…5744 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0037, t01=0x014a}
0x5744…5760 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0037, t01=0x0168}
0x5760…576e Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0037, t01=0x0184}
0x576e…5782 (56, 0, 398) Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0038, t01=0x0004}
0x5782…5792 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0038, t01=0x0018}
0x5792…57b8 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0038, t01=0x0028}
0x57b8…57c4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x004e}
0x57c4…57d2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x005a}
0x57d2…57e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0068}
0x57e0…57f2 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0038, t01=0x0076}
0x57f2…580e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0038, t01=0x0088}
0x580e…5818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a4}
0x5818…584a Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0038, t01=0x00ae}
0x584a…5854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e0}
0x5854…5870 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0038, t01=0x00ea}
0x5870…588e Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0038, t01=0x0106}
0x588e…58c2 Head {h00=0x0030, h01=0x0050, text=» TBT GTSPECTR,DIVTRNOK NOT ALLOWED, TR50... «, t00=0x0038, t01=0x0124}
0x58c2…58de Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0038, t01=0x0158}
0x58de…58fc Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0038, t01=0x0174}
0x58fc…5910 (57, 0, 398) Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0039, t01=0x0004}
0x5910…5924 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0039, t01=0x0018}
0x5924…5944 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,=W'1',DIV10«, t00=0x0039, t01=0x002c}
0x5944…5958 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0039, t01=0x004c}
0x5958…596a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x0060}
0x596a…5978 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0039, t01=0x0072}
0x5978…598c Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0039, t01=0x0080}
0x598c…599e Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x0094}
0x599e…59b8 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0039, t01=0x00a6}
0x59b8…59c6 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0039, t01=0x00c0}
0x59c6…59dc Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0039, t01=0x00ce}
0x59dc…59f8 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0039, t01=0x00e4}
0x59f8…5a0a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0039, t01=0x0100}
0x5a0a…5a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0112}
0x5a14…5a24 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0039, t01=0x011c}
0x5a24…5a4a Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0039, t01=0x012c}
0x5a4a…5a56 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0039, t01=0x0152}
0x5a56…5a66 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0039, t01=0x015e}
0x5a66…5a8e Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0039, t01=0x016e}
0x5a8e…5a9a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x0008}
0x5a9a…5aa8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x0014}
0x5aa8…5ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0022}
0x5ab2…5abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002c}
0x5abc…5ad0 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x003a, t01=0x0036}
0x5ad0…5ad4 Head {h00=0x4004, h01=0x0000}
0x5ad4…5ad8 00 3a 00 4a ┆ : J┆
0x5ad8…5ae0 (59, 1, 8) 20 04 00 00 00 3b 00 04 ┆ ; ┆
0x5ae0…5b30 (60, 0, 400) 00 2a 00 26 03 12 00 00 01 c3 00 00 02 80 0c 21 f6 77 31 00 ee 11 f6 00 ee 14 f9 16 11 02 ee 14 f9 16 12 21 ee 14 77 1c 00 ae 00 2c 00 04 00 2a 00 26 03 12 00 00 01 e1 00 00 11 15 01 ae 14 32 09 ee 14 7e 01 bf 75 01 9d 77 80 0a 10 5c 30 48 ┆ * & ! w1 ! w , * & 2 ~ u w 0H┆
0x5b30…5b80 12 02 80 0c 01 be 58 80 00 2c 00 32 00 2a 00 26 03 12 00 00 01 ff 00 00 0d 80 0e 00 f4 f7 00 f3 f8 03 f3 78 09 f3 7e 09 71 d3 7e 40 95 00 f1 45 80 03 80 04 d3 80 00 2c 00 60 00 2a 00 26 03 12 00 00 02 1d 00 00 05 5c 0c 40 99 06 10 10 34 00 ┆ X , 2 * & x ~ q ~@ E , ` * & @ 4 ┆
0x5b80…5bd0 06 10 11 34 00 00 90 98 80 0f 90 3f 02 00 90 84 d3 11 00 91 00 2c 00 8e 00 2a 00 26 03 12 00 00 02 3b 00 00 90 02 91 84 d3 12 02 90 11 22 90 91 0c 01 79 90 11 77 01 79 90 12 77 5f 13 00 90 10 02 90 00 2c 00 bc 00 2a 00 26 03 12 00 00 02 59 ┆ 4 ? , * & ; " y w y w_ , * & Y┆
0x5bd0…5c20 00 00 11 01 f9 90 11 77 01 f9 90 12 77 14 90 18 11 34 00 01 d8 84 01 bf 72 20 84 d3 12 10 44 80 00 2c 00 ea 00 2a 00 26 03 12 00 00 02 77 00 00 10 18 01 9d 77 03 9d 78 00 94 9d 22 94 84 d3 12 2e 02 94 84 d3 11 00 ee 14 79 94 11 02 ee 00 2c ┆ w w 4 r D , * & w w x " . y ,┆
0x5c20…5c70 01 18 00 2a 00 26 03 12 00 00 02 95 00 00 14 79 94 12 00 ee 11 75 94 11 ee 11 77 27 23 d8 77 0a 30 01 95 01 01 d8 84 80 10 18 80 11 00 2c 01 46 00 2a 00 26 03 12 00 00 02 b3 00 00 19 5f 3a 30 01 95 01 34 00 01 bf 6b 80 06 16 80 10 18 01 9a ┆ * & y u w'# w 0 , F * & _:0 4 k ┆