|
|
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: 22620 (0x585c)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/RGSUBS.SC«
IDENT RGSUBS 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY ENTER
ENTRY MODP
ENTRY KORT
ENTRY KKTRP
ENTRY KVIT
ENTRY LSTINT
ENTRY CYKINT
ENTRY CYK
ENTRY CYCLR
ENTRY SUBTOT
ENTRY SUM
EXT ADM
ENTRY DIVTR
ENTRY KKCH
ENTRY FMTNXT
EXT SETKRE
EXT SETDEB
EXT SLUT
EXT FRMTVO
EXT FRMTKV
EXT FRMXJT
EXT FRMXSP
EXT FRMXVO
EXT FRMXTA
EXT FRMTKT
EXT FRMXKT
EXT WRITVO
EXT WRITJT
EXT WTALLY
EXT WCHECK
EXT LINOPT
EXT ABORT
EXT EMPTYT
EXT CRVO
EXT SPCLRA
EXT SPERR
EXT SPINF1
EXT SPLIN8
EXT GRASPV
EXT CLEAR8
EXT SPCHK5
EXT FLDTST
EXT CYOUT
INCLUDE EQUATE
EJECT
KORT PROC
********************
*
** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT
*
** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)
******************
TBF TTEORFLG,KORTNOK NOT CORRECT TRANS
TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12)
CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5
CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7
** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT
** WRITE 'KONTOKORT' ON JOURNAL
** TRANSPORT LINE IF NEEDED
*
KORT10
MOVE SPKEY,CBIN1
CLEAR GTSLDFLG
TBF CKTFLAG,KORT12
SET TTKORTFL
KORT12
PERF FRMXSP,CBIN12 SALDO/LINE/CHECK
SET SPPROMPT
PERF SPCLRA WRITE/READ ON SCREEN
CLEAR SPPROMPT
IB SPBINW2,KORTOK,KORTOK,KORT30
KORT20 ERRORKEY
MOVE SPBINW4,=W'4'
PERF SPERR
B KORT10
KORT30 CORRECT ENTERED
TBF CKTFLAG,KORT40 NO SALDO
SET GTSLDFLG
CALL EMPTYT,TTKTSLD GL SALDO PRESENT?
BE KORT40 YES
CLEAR GTSLDFLG NOT PRESENT
TBF CSLDFLG,KORT40 ALLOWED
MOVE SPBINW4,=W'5' NOT ALLOWED
PERF SPERR
B KORT10
KORT40
PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL
PERF KKTRP TRANSPORT LINE IF NEEDED
MOVE SPINPUT,TTKTLIN
PERF SPCHK5 GET THE OLD LINE NUMBER
CBG GSWBIN1,=W'89',KORT20
DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE
ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO
ADD TTKTLIN,=D'1' ADD 1 TO LINE NO
PERF KKCH NEW CHECKDIGIT
PERF FRMTKT
EDWRT KVOUCH,GTSTRFMT
DSC0 .NW,KVOUCH,RLEAS
CLEAR GTLOKSPG
KORTOK
CLEAR TTKORTFL
CMP CBIN0,CBIN0 OK, SET CR=0
RET
KORTNOK
CLEAR TTKORTFL
CMP CBIN1,CBIN0 NOK, SET CR <>0
RET
PEND
EJECT
KKTRP PROC
********************
*
** KKTRP - WRITES KONTOKORT INF ON VOUCHER
** + TRANSPORT IF NECESSARY
*
********************
PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT
TBF GTCYFLG,KON20 IF IN CYCLE
TBF GTCYWRTF,KON20
DSC0 KVOUCH,RLEAS
CLEAR TTTSTFLG
KON20
PERF GRASPV GRASP VOUCHER
PERF CLEAR8
TBF CKTFLAG,KON90
TBF GTSLDFLG,KON90 NO SALDO
CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?
PERF FRMXKT,CBIN1 GET TRANSPORT LINE
DSC1 KVOUCH,POS,CMINLIN
EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE
KON30
PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'
WAIT KVOUCH
DSC0 KVOUCH,RLEAS
PERF GRASPV
TESTIO KEYB ANY INPUT?
BOK KON35 YES
CALL ABORT,KEYB NO, ABORT
DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER
MOVE GSWBCD3,CKTTOP SET DEFAULT LINE
MOVE SPINPUT,GSWBCD3
B KON40
KON35
WAIT KEYB
CBE SPBINW2,=W'18',KON40 SLUT KEY
CBNE SPBINW2,=W'4',KON30 ENTER KEY
KON40
MOVE GSWBCD3,SPINPUT GET LINE
MOVE TTKTLIN,GSWBCD3
CBG TTKTLIN,=D'24',KON30 CHECK LINE
CBL TTKTLIN,=D'1',KON30
PERF SPCHK5 CHANGE LINE VALUE
DSC1 KVOUCH,POS,GSWBIN1
PERF FRMXKT,CBIN1
EDWRT KVOUCH,GTSTRFMT
ADD TTKTLIN,=D'1'
KON90
RET
PEND
EJECT
KKCH PROC
********************
*
** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM
** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND
** PUTS IT IN TTKTCHK
** USED FOR KONTOKORT
*
****************
MOVE GSWBCD1,TTKTSLD SAVE
CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?
MUL GSWBCD1,=D'-1' YES, CHANGE SIGN
KKCH10
MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR
SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR
ADD GSWBCD1,TTKTLIN ADD
ADD TTKTLIN,=D'1' RESTORE LINE NR
MOVE GSWBCD2,GSWBCD1 SAVE
DIV GSWBCD1,=D'7' CALCULATE
MUL GSWBCD1,=D'7' REMAINDER
SUB GSWBCD2,GSWBCD1 MODULUS 7
ADD GSWBCD2,=D'1' ADD 1 ALWAYS
CBL TTKTSLD,=D'0',KKCH20
ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO
KKCH20
MOVE TTKTCHK,GSWBCD2
RET
PEND
EJECT
MODP PROC
**********
*
** MODP - INVERTS THE PREVIOUS TRANSACTION
** I.E. REVERSES THE VALUE
** AND SETS FLAG TO UPDATE ACCUMULATORS
** MUST NOT BE IN FIRST TRANBS
** ONLY IN KASSEFUNCTIONS
*
**********
TBF TTEORFLG,MODPNOK NOT CORRECT TRANS
MOVE GTRETUR,CBIN0
TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS
TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)
CLEAR GTLOKSPG
MOVE SPKEY,CBIN1
SET TTINVFLG
MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1
PERF SLUT
CLEAR TTINVFLG
CBNE GTRETUR,=W'3',MODP50
PERF KORT
MODP50
CMP CBIN0,CBIN0 OK, SET CR=0
RET
MODPNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
KVIT PROC
**********
*
** KVIT - WRITES AN EXTRA RECEIPT
** ONLY IN KASSEFUNCTIONS
*
**********
TBF TTEORFLG,KVITNOK NOT CORRECT TRANS
TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS
TBT GTCYFLG,KVITNOK NOT IN CYCLE
TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12)
MOVE SPKEY,CBIN1
PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL
MOVE TTCYM,=C'K'
PERF FRMTKV
PERF WRITVO WRITE RECEIPT
MOVE TTCYM,=C' '
CLEAR GTLOKSPG
CMP CBIN0,CBIN0 OK, SET CR =0
RET
KVITNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
EJECT
ENTER PROC
**********
*
** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN
** ENTERED ON SCREEN
*
** 1 ANY PAGE TWO ?
*
** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?
*
** 3 FIELD DEPENDENCE TEST
*
** AND THEN PERFORM PROCEDURE SLUT, TO
** WRITE TO DISK AND WRITE RELEVANT RECEIPTS
*
**********
MOVE GTRETUR,CBIN0 SET RETURN CODE
TBT GTTYPE3,ENTY3
TBT GTTYPE2,ENTY2
* TYPE 1 - ONE PAGE TRANSACTION
ENTY1
PERF FLDTST TEST FIELD DEPENDENCE
BNOK ENTNOK
PERF SLUT OK
BNOK ENTNOK
TBT GTKORTFL,ENT01
CBE GTRETUR,=W'3',ENT01 IF LINE 91
MOVE GTRETUR,=W'1'
TBF CKTAUTO,ENTOK
CBNE GTREGDEX,=W'4',ENTOK
ENT01
PERF KORT TRANS 4: KONTOKORT
MOVE GTRETUR,=W'3' RESET SCREEN
CLEAR GTKORTFL
B ENTOK
* TYPE 2 - TWO PAGE TRANSACTION
ENTY2
CBNE GTPAGE,CBIN1,ENT10
* GET PAGE 2
TBT GTSLUTFL,ENTY1
SET GTSLUTFL
PERF FMTNXT,CBIN1
MOVE 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
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
*
********************
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
TBT C167FLG,CYEND15 T=NO WRITE JOURNAL
PERF WRITJT,=W'15'
CYEND15
CBL GTREGNR,=D'18',CYEND20 CHECKS?
SET TTTSTFLG
MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE
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
SUM10
MOVE TTSUMMRK,=C'*'
SET GTSUMKEY
MOVE GTSUMST,TTLBNR
ADD GTSUMST,=D'1' INITIATE FIRST NUMBER
MOVE GTSUMCNT,=D'0' INITIATE SUM
B SUMOK
*
* LAST TIME
SUM50
PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION
TBT GTSUBFLG,SUM60
MOVE TTSUMMRK,=C' '
CLEAR GTSUMKEY
SUM60
PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
TBF GTCYFLG,SUM70 IF IN CYCLE
DSC0 KVOUCH,RLEAS
MOVE GSWBCD5,TTLINNR SAVE LINNR
CLEAR TTTSTFLG
SUM70
PERF GRASPV
CLEAR GTSWFLAG
PERF LINOPT
BNOK SUM60
CBG GSWBIN1,=W'90',SUM75
CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE?
SUM75
MOVE TTLINNR,=D'6' SET LINE 26
SUM80
MOVE GSWBIN1,TTLINNR
DSC1 KVOUCH,POS,GSWBIN1
MOVE TTLINNR,GSWBCD5 RESTORE LINNR
PERF FRMXVO,CBIN7
EDWRT KVOUCH,GTSTRFMT
PERF CRVO
DSC0 .NW,KVOUCH,RLEAS
TBT GTSUBFLG,SUMOK10
TBT GTASUMFL,SUM10
SUMOK
PERF SPINF1
SUMOK10
CMP CBIN0,CBIN0 OK, SET CR=0
RET
PEND
EJECT
DIVTR PROC
********************
*
** DIVTR - SET OR CLEAR DIVTR FLAG
*
********************
TBT CTRVALG,DIVTRNOK
TBT GTDIVTR,DIVEND
* SET DIVTR
SET GTDIVTR
SET GTTRSEL
CBE TTDKDEX,=W'1',DIV10
PERF SETDEB
B DIVTROK
DIV10
PERF SETKRE
B DIVTROK
* CLEAR DIVTR
DIVEND
CLEAR GTDIVTR
MOVE TTSTYRDX,=W'1'
B DIVTROK
*
DIVTROK
CMP CBIN0,CBIN0 OK, SET CR=0
RET
DIVTRNOK
CMP CBIN1,CBIN0 NOK, SET CR<>0
RET
PEND
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUBS 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x0056…0074 Head {h00=0x001a, h01=0x0050, text=» ENTRY ENTER«, t00=0x0000, t01=0x005a}
0x0074…0092 Head {h00=0x001a, h01=0x0050, text=» ENTRY MODP «, t00=0x0000, t01=0x0078}
0x0092…00b0 Head {h00=0x001a, h01=0x0050, text=» ENTRY KORT «, t00=0x0000, t01=0x0096}
0x00b0…00c4 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKTRP«, t00=0x0000, t01=0x00b4}
0x00c4…00e2 Head {h00=0x001a, h01=0x0050, text=» ENTRY KVIT «, t00=0x0000, t01=0x00c8}
0x00e2…0102 Head {h00=0x001c, h01=0x0050, text=» ENTRY LSTINT «, t00=0x0000, t01=0x00e6}
0x0102…0118 Head {h00=0x0012, h01=0x0050, text=» ENTRY CYKINT «, t00=0x0000, t01=0x0106}
0x0118…012a Head {h00=0x000e, h01=0x0050, text=» ENTRY CYK«, t00=0x0000, t01=0x011c}
0x012a…013e Head {h00=0x0010, h01=0x0050, text=» ENTRY CYCLR«, t00=0x0000, t01=0x012e}
0x013e…015e Head {h00=0x001c, h01=0x0050, text=» ENTRY SUBTOT «, t00=0x0000, t01=0x0142}
0x015e…0170 Head {h00=0x000e, h01=0x0050, text=» ENTRY SUM«, t00=0x0000, t01=0x0162}
0x0170…0180 Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0000, t01=0x0174}
0x0180…0194 Head {h00=0x0010, h01=0x0050, text=» ENTRY DIVTR«, t00=0x0000, t01=0x0184}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» ENTRY KKCH «, t00=0x0001, t01=0x0008}
0x01a8…01be Head {h00=0x0012, h01=0x0050, text=» ENTRY FMTNXT «, t00=0x0001, t01=0x001c}
0x01be…01d2 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0032}
0x01d2…01e6 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0046}
0x01e6…01f8 Head {h00=0x000e, h01=0x0050, text=» EXT SLUT «, t00=0x0001, t01=0x005a}
0x01f8…0218 Head {h00=0x001c, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x006c}
0x0218…022c Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKV «, t00=0x0001, t01=0x008c}
0x022c…0240 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x00a0}
0x0240…0254 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXSP «, t00=0x0001, t01=0x00b4}
0x0254…0268 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00c8}
0x0268…027c Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00dc}
0x027c…0290 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTKT «, t00=0x0001, t01=0x00f0}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXKT «, t00=0x0001, t01=0x0104}
0x02a4…02c4 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0001, t01=0x0118}
0x02c4…02d8 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0138}
0x02d8…02f8 Head {h00=0x001c, h01=0x0050, text=» EXT WTALLY «, t00=0x0001, t01=0x014c}
0x02f8…0318 Head {h00=0x001c, h01=0x0050, text=» EXT WCHECK «, t00=0x0001, t01=0x016c}
0x0318…032c Head {h00=0x0010, h01=0x0050, text=» EXT LINOPT «, t00=0x0001, t01=0x018c}
0x032c…033e Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0002, t01=0x0010}
0x033e…0352 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0022}
0x0352…0364 Head {h00=0x000e, h01=0x0050, text=» EXT CRVO «, t00=0x0002, t01=0x0036}
0x0364…0384 Head {h00=0x001c, h01=0x0050, text=» EXT SPCLRA «, t00=0x0002, t01=0x0048}
0x0384…03a2 Head {h00=0x001a, h01=0x0050, text=» EXT SPERR«, t00=0x0002, t01=0x0068}
0x03a2…03b6 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF1 «, t00=0x0002, t01=0x0086}
0x03b6…03ca Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0002, t01=0x009a}
0x03ca…03de Head {h00=0x0010, h01=0x0050, text=» EXT GRASPV «, t00=0x0002, t01=0x00ae}
0x03de…03f2 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0002, t01=0x00c2}
0x03f2…0406 Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0002, t01=0x00d6}
0x0406…041a Head {h00=0x0010, h01=0x0050, text=» EXT FLDTST «, t00=0x0002, t01=0x00ea}
0x041a…042c Head {h00=0x000e, h01=0x0050, text=» EXT CYOUT«, t00=0x0002, t01=0x00fe}
0x042c…044c Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x0110}
0x044c…045a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0130}
0x045a…046c Head {h00=0x000e, h01=0x0050, text=»KORT PROC «, t00=0x0002, t01=0x013e}
0x046c…0488 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0002, t01=0x0150}
0x0488…0492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…04d0 Head {h00=0x003a, h01=0x0050, text=»** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT«, t00=0x0002, t01=0x0176}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…0514 Head {h00=0x0036, h01=0x0050, text=»** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12)«, t00=0x0003, t01=0x002e}
0x0514…052e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x0068}
0x052e…055e Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KORTNOK NOT CORRECT TRANS «, t00=0x0003, t01=0x0082}
0x055e…0594 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS «, t00=0x0003, t01=0x00b2}
0x0594…05ce Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KORTNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0003, t01=0x00e8}
0x05ce…05fc Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'5',KORTNOK NOT TRANS 5«, t00=0x0003, t01=0x0122}
0x05fc…062a Head {h00=0x002a, h01=0x0050, text=» CBE GTREGNR,=D'7',KORTNOK NOT TRANS 7«, t00=0x0003, t01=0x0150}
0x062a…066c Head {h00=0x003e, h01=0x0050, text=»** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT«, t00=0x0003, t01=0x017e}
0x066c…069c Head {h00=0x002c, h01=0x0050, text=»** WRITE 'KONTOKORT' ON JOURNAL«, t00=0x0004, t01=0x0030}
0x069c…06c8 Head {h00=0x0028, h01=0x0050, text=»** TRANSPORT LINE IF NEEDED«, t00=0x0004, t01=0x0060}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06e0 Head {h00=0x000a, h01=0x0050, text=»KORT10«, t00=0x0004, t01=0x0096}
0x06e0…06fa Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0004, t01=0x00a4}
0x06fa…0712 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSLDFLG «, t00=0x0004, t01=0x00be}
0x0712…072e Head {h00=0x0018, h01=0x0050, text=» TBF CKTFLAG,KORT12 «, t00=0x0004, t01=0x00d6}
0x072e…0744 Head {h00=0x0012, h01=0x0050, text=» SET TTKORTFL «, t00=0x0004, t01=0x00f2}
0x0744…0752 Head {h00=0x000a, h01=0x0050, text=»KORT12«, t00=0x0004, t01=0x0108}
0x0752…077e Head {h00=0x0028, h01=0x0050, text=» PERF FRMXSP,CBIN12 SALDO/LINE/CHECK«, t00=0x0004, t01=0x0116}
0x077e…0794 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x0142}
0x0794…07be Head {h00=0x0026, h01=0x0050, text=» PERF SPCLRA WRITE/READ ON SCREEN «, t00=0x0004, t01=0x0158}
0x07be…07d6 Head {h00=0x0014, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0004, t01=0x0182}
0x07d6…07fe Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,KORTOK,KORTOK,KORT30«, t00=0x0005, t01=0x000a}
0x07fe…0818 Head {h00=0x0016, h01=0x0050, text=»KORT20 ERRORKEY «, t00=0x0005, t01=0x0032}
0x0818…0834 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0005, t01=0x004c}
0x0834…0848 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0005, t01=0x0068}
0x0848…085a Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0005, t01=0x007c}
0x085a…087a Head {h00=0x001c, h01=0x0050, text=»KORT30 CORRECT ENTERED«, t00=0x0005, t01=0x008e}
0x087a…089e Head {h00=0x0020, h01=0x0050, text=» TBF CKTFLAG,KORT40 NO SALDO«, t00=0x0005, t01=0x00ae}
0x089e…08b4 Head {h00=0x0012, h01=0x0050, text=» SET GTSLDFLG «, t00=0x0005, t01=0x00d2}
0x08b4…08e2 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,TTKTSLD GL SALDO PRESENT?«, t00=0x0005, t01=0x00e8}
0x08e2…08f8 Head {h00=0x0012, h01=0x0050, text=» BE KORT40 YES«, t00=0x0005, t01=0x0116}
0x08f8…091c Head {h00=0x0020, h01=0x0050, text=» CLEAR GTSLDFLG NOT PRESENT «, t00=0x0005, t01=0x012c}
0x091c…0940 Head {h00=0x0020, h01=0x0050, text=» TBF CSLDFLG,KORT40 ALLOWED «, t00=0x0005, t01=0x0150}
0x0940…0968 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'5' NOT ALLOWED «, t00=0x0005, t01=0x0174}
0x0968…097c Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0006, t01=0x000c}
0x097c…098e Head {h00=0x000e, h01=0x0050, text=» B KORT10 «, t00=0x0006, t01=0x0020}
0x098e…099c Head {h00=0x000a, h01=0x0050, text=»KORT40«, t00=0x0006, t01=0x0032}
0x099c…09ce Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL «, t00=0x0006, t01=0x0040}
0x09ce…09fa Head {h00=0x0028, h01=0x0050, text=» PERF KKTRP TRANSPORT LINE IF NEEDED«, t00=0x0006, t01=0x0072}
0x09fa…0a18 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTKTLIN «, t00=0x0006, t01=0x009e}
0x0a18…0a44 Head {h00=0x0028, h01=0x0050, text=» PERF SPCHK5 GET THE OLD LINE NUMBER«, t00=0x0006, t01=0x00bc}
0x0a44…0a66 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'89',KORT20«, t00=0x0006, t01=0x00e8}
0x0a66…0a92 Head {h00=0x0028, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POS ON LINE«, t00=0x0006, t01=0x010a}
0x0a92…0abe Head {h00=0x0028, h01=0x0050, text=» ADD TTKTSLD,GTDUPF(CBIN4) NEW SALDO«, t00=0x0006, t01=0x0136}
0x0abe…0aea Head {h00=0x0028, h01=0x0050, text=» ADD TTKTLIN,=D'1' ADD 1 TO LINE NO «, t00=0x0006, t01=0x0162}
0x0aea…0b0c Head {h00=0x001e, h01=0x0050, text=» PERF KKCH NEW CHECKDIGIT «, t00=0x0006, t01=0x018e}
0x0b0c…0b20 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKT«, t00=0x0007, t01=0x0020}
0x0b20…0b3e Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0007, t01=0x0034}
0x0b3e…0b5c Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0007, t01=0x0052}
0x0b5c…0b74 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0007, t01=0x0070}
0x0b74…0b82 Head {h00=0x000a, h01=0x0050, text=»KORTOK«, t00=0x0007, t01=0x0088}
0x0b82…0b9a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x0096}
0x0b9a…0bc0 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0007, t01=0x00ae}
0x0bc0…0bcc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d4}
0x0bcc…0bdc Head {h00=0x000c, h01=0x0050, text=»KORTNOK «, t00=0x0007, t01=0x00e0}
0x0bdc…0bf4 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTKORTFL «, t00=0x0007, t01=0x00f0}
0x0bf4…0c1c Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR <>0«, t00=0x0007, t01=0x0108}
0x0c1c…0c28 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0130}
0x0c28…0c36 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x013c}
0x0c36…0c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x014a}
0x0c44…0c56 Head {h00=0x000e, h01=0x0050, text=»KKTRP PROC«, t00=0x0007, t01=0x0158}
0x0c56…0c72 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x016a}
0x0c72…0c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7c…0cb6 Head {h00=0x0036, h01=0x0050, text=»** KKTRP - WRITES KONTOKORT INF ON VOUCHER«, t00=0x0007, t01=0x0190}
0x0cb6…0ce2 Head {h00=0x0028, h01=0x0050, text=»** + TRANSPORT IF NECESSARY «, t00=0x0008, t01=0x003a}
0x0ce2…0cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0066}
0x0cec…0d08 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0070}
0x0d08…0d38 Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT«, t00=0x0008, t01=0x008c}
0x0d38…0d5e Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,KON20 IF IN CYCLE«, t00=0x0008, t01=0x00bc}
0x0d5e…0d7a Head {h00=0x0018, h01=0x0050, text=» TBF GTCYWRTF,KON20 «, t00=0x0008, t01=0x00e2}
0x0d7a…0d94 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0008, t01=0x00fe}
0x0d94…0dac Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0008, t01=0x0118}
0x0dac…0dba Head {h00=0x000a, h01=0x0050, text=»KON20 «, t00=0x0008, t01=0x0130}
0x0dba…0ddc Head {h00=0x001e, h01=0x0050, text=» PERF GRASPV GRASP VOUCHER«, t00=0x0008, t01=0x013e}
0x0ddc…0df0 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0008, t01=0x0160}
0x0df0…0e0a Head {h00=0x0016, h01=0x0050, text=» TBF CKTFLAG,KON90«, t00=0x0008, t01=0x0174}
0x0e0a…0e2e Head {h00=0x0020, h01=0x0050, text=» TBF GTSLDFLG,KON90 NO SALDO«, t00=0x0008, t01=0x018e}
0x0e2e…0e60 Head {h00=0x002e, h01=0x0050, text=» CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE?«, t00=0x0009, t01=0x0022}
0x0e60…0e8e Head {h00=0x002a, h01=0x0050, text=» PERF FRMXKT,CBIN1 GET TRANSPORT LINE «, t00=0x0009, t01=0x0054}
0x0e8e…0eae Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,CMINLIN«, t00=0x0009, t01=0x0082}
0x0eae…0ee0 Head {h00=0x002e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP. LINE«, t00=0x0009, t01=0x00a2}
0x0ee0…0eee Head {h00=0x000a, h01=0x0050, text=»KON30 «, t00=0x0009, t01=0x00d4}
0x0eee…0f18 Head {h00=0x0026, h01=0x0050, text=» PERF SPLIN8,CBIN3,CBIN0 'NY SIDE'«, t00=0x0009, t01=0x00e2}
0x0f18…0f2c Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0009, t01=0x010c}
0x0f2c…0f46 Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0009, t01=0x0120}
0x0f46…0f5a Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0009, t01=0x013a}
0x0f5a…0f7a Head {h00=0x001c, h01=0x0050, text=» TESTIO KEYB ANY INPUT? «, t00=0x0009, t01=0x014e}
0x0f7a…0f90 Head {h00=0x0012, h01=0x0050, text=» BOK KON35 YES«, t00=0x0009, t01=0x016e}
0x0f90…0fb2 Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB NO, ABORT«, t00=0x0009, t01=0x0184}
0x0fb2…0fe4 Head {h00=0x002e, h01=0x0050, text=» DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER«, t00=0x000a, t01=0x0016}
0x0fe4…1012 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,CKTTOP SET DEFAULT LINE «, t00=0x000a, t01=0x0048}
0x1012…1030 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x000a, t01=0x0076}
0x1030…1040 Head {h00=0x000c, h01=0x0050, text=» B KON40«, t00=0x000a, t01=0x0094}
0x1040…104e Head {h00=0x000a, h01=0x0050, text=»KON35 «, t00=0x000a, t01=0x00a4}
0x104e…1060 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x000a, t01=0x00b2}
0x1060…108a Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,=W'18',KON40 SLUT KEY«, t00=0x000a, t01=0x00c4}
0x108a…10b6 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,=W'4',KON30 ENTER KEY «, t00=0x000a, t01=0x00ee}
0x10b6…10c4 Head {h00=0x000a, h01=0x0050, text=»KON40 «, t00=0x000a, t01=0x011a}
0x10c4…10ea Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE«, t00=0x000a, t01=0x0128}
0x10ea…1108 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTLIN,GSWBCD3 «, t00=0x000a, t01=0x014e}
0x1108…1134 Head {h00=0x0028, h01=0x0050, text=» CBG TTKTLIN,=D'24',KON30 CHECK LINE«, t00=0x000a, t01=0x016c}
0x1134…1154 Head {h00=0x001c, h01=0x0050, text=» CBL TTKTLIN,=D'1',KON30«, t00=0x000b, t01=0x0008}
0x1154…117a Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 CHANGE LINE VALUE«, t00=0x000b, t01=0x0028}
0x117a…119a Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x000b, t01=0x004e}
0x119a…11b4 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXKT,CBIN1«, t00=0x000b, t01=0x006e}
0x11b4…11d2 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x000b, t01=0x0088}
0x11d2…11ec Head {h00=0x0016, h01=0x0050, text=» ADD TTKTLIN,=D'1'«, t00=0x000b, t01=0x00a6}
0x11ec…11fa Head {h00=0x000a, h01=0x0050, text=»KON90 «, t00=0x000b, t01=0x00c0}
0x11fa…1206 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00ce}
0x1206…1214 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x00da}
0x1214…1222 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00e8}
0x1222…1234 Head {h00=0x000e, h01=0x0050, text=»KKCH PROC «, t00=0x000b, t01=0x00f6}
0x1234…1250 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x0108}
0x1250…125a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0124}
0x125a…129e Head {h00=0x0040, h01=0x0050, text=»** KKCH - THIS PROCEDURE COMPUTES A CHECK DIGIT FROM«, t00=0x000b, t01=0x012e}
0x129e…12dc Head {h00=0x003a, h01=0x0050, text=»** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND «, t00=0x000b, t01=0x0172}
0x12dc…1302 Head {h00=0x0022, h01=0x0050, text=»** PUTS IT IN TTKTCHK «, t00=0x000c, t01=0x0020}
0x1302…1328 Head {h00=0x0022, h01=0x0050, text=»** USED FOR KONTOKORT «, t00=0x000c, t01=0x0046}
0x1328…1332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x1332…134a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x0076}
0x134a…136c Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD1,TTKTSLD SAVE«, t00=0x000c, t01=0x008e}
0x136c…1398 Head {h00=0x0028, h01=0x0050, text=» CBNL GSWBCD1,=D'0',KKCH10 NEGATIVE?«, t00=0x000c, t01=0x00b0}
0x1398…13c4 Head {h00=0x0028, h01=0x0050, text=» MUL GSWBCD1,=D'-1' YES, CHANGE SIGN«, t00=0x000c, t01=0x00dc}
0x13c4…13d2 Head {h00=0x000a, h01=0x0050, text=»KKCH10«, t00=0x000c, t01=0x0108}
0x13d2…1404 Head {h00=0x002e, h01=0x0050, text=» MUL GSWBCD1,TTKTLIN MULTIPLY WITH LINE NR«, t00=0x000c, t01=0x0116}
0x1404…1432 Head {h00=0x002a, h01=0x0050, text=» SUB TTKTLIN,=D'1' SUB 1 FROM LINE NR «, t00=0x000c, t01=0x0148}
0x1432…1452 Head {h00=0x001c, h01=0x0050, text=» ADD GSWBCD1,TTKTLIN ADD«, t00=0x000c, t01=0x0176}
0x1452…147c Head {h00=0x0026, h01=0x0050, text=» ADD TTKTLIN,=D'1' RESTORE LINE NR«, t00=0x000d, t01=0x0008}
0x147c…149e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBCD2,GSWBCD1 SAVE«, t00=0x000d, t01=0x0032}
0x149e…14c2 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD1,=D'7' CALCULATE«, t00=0x000d, t01=0x0054}
0x14c2…14e6 Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD1,=D'7' REMAINDER«, t00=0x000d, t01=0x0078}
0x14e6…150c Head {h00=0x0022, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1 MODULUS 7«, t00=0x000d, t01=0x009c}
0x150c…1534 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 ALWAYS «, t00=0x000d, t01=0x00c2}
0x1534…1556 Head {h00=0x001e, h01=0x0050, text=» CBL TTKTSLD,=D'0',KKCH20 «, t00=0x000d, t01=0x00ea}
0x1556…1588 Head {h00=0x002e, h01=0x0050, text=» ADD GSWBCD2,=D'1' ADD 1 IF POSITIVE SALDO«, t00=0x000d, t01=0x010c}
0x1588…1596 Head {h00=0x000a, h01=0x0050, text=»KKCH20«, t00=0x000d, t01=0x013e}
0x1596…15b4 Head {h00=0x001a, h01=0x0050, text=» MOVE TTKTCHK,GSWBCD2 «, t00=0x000d, t01=0x014c}
0x15b4…15c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x016a}
0x15c0…15ce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0176}
0x15ce…15dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0184}
0x15dc…15f2 (14, 0, 400) Head {h00=0x0012, h01=0x0050, text=»MODP PROC «, t00=0x000e, t01=0x0004}
0x15f2…1604 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x001a}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x160e…1646 Head {h00=0x0034, h01=0x0050, text=»** MODP - INVERTS THE PREVIOUS TRANSACTION«, t00=0x000e, t01=0x0036}
0x1646…166e Head {h00=0x0024, h01=0x0050, text=»** I.E. REVERSES THE VALUE«, t00=0x000e, t01=0x006e}
0x166e…16a4 Head {h00=0x0032, h01=0x0050, text=»** AND SETS FLAG TO UPDATE ACCUMULATORS«, t00=0x000e, t01=0x0096}
0x16a4…16d4 Head {h00=0x002c, h01=0x0050, text=»** MUST NOT BE IN FIRST TRANBS «, t00=0x000e, t01=0x00cc}
0x16d4…16fe Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x000e, t01=0x00fc}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x1708…171a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0130}
0x171a…174a Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,MODPNOK NOT CORRECT TRANS «, t00=0x000e, t01=0x0142}
0x174a…1766 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,CBIN0 «, t00=0x000e, t01=0x0172}
0x1766…179c Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS «, t00=0x000e, t01=0x018e}
0x179c…17d6 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12)«, t00=0x000f, t01=0x0034}
0x17d6…17ee Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x000f, t01=0x006e}
0x17ee…1808 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x000f, t01=0x0086}
0x1808…1828 Head {h00=0x001c, h01=0x0050, text=» SET TTINVFLG «, t00=0x000f, t01=0x00a0}
0x1828…186c Head {h00=0x0040, h01=0x0050, text=» MUL GTDUPF(CBIN4),='-1' MULTIPLY BELOB BY -1 «, t00=0x000f, t01=0x00c0}
0x186c…187e Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x000f, t01=0x0104}
0x187e…1896 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTINVFLG «, t00=0x000f, t01=0x0116}
0x1896…18b8 Head {h00=0x001e, h01=0x0050, text=» CBNE GTRETUR,=W'3',MODP50«, t00=0x000f, t01=0x012e}
0x18b8…18ca Head {h00=0x000e, h01=0x0050, text=» PERF KORT«, t00=0x000f, t01=0x0150}
0x18ca…18d8 Head {h00=0x000a, h01=0x0050, text=»MODP50«, t00=0x000f, t01=0x0162}
0x18d8…18fe Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000f, t01=0x0170}
0x18fe…190a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0008}
0x190a…191a Head {h00=0x000c, h01=0x0050, text=»MODPNOK «, t00=0x0010, t01=0x0014}
0x191a…1942 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0010, t01=0x0024}
0x1942…1956 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x004c}
0x1956…196c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0060}
0x196c…1982 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0076}
0x1982…1998 Head {h00=0x0012, h01=0x0050, text=»KVIT PROC «, t00=0x0010, t01=0x008c}
0x1998…19aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00a2}
0x19aa…19b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b4…19e6 Head {h00=0x002e, h01=0x0050, text=»** KVIT - WRITES AN EXTRA RECEIPT «, t00=0x0010, t01=0x00be}
0x19e6…1a10 Head {h00=0x0026, h01=0x0050, text=»** ONLY IN KASSEFUNCTIONS«, t00=0x0010, t01=0x00f0}
0x1a10…1a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011a}
0x1a1a…1a2c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0124}
0x1a2c…1a5c Head {h00=0x002c, h01=0x0050, text=» TBF TTEORFLG,KVITNOK NOT CORRECT TRANS «, t00=0x0010, t01=0x0136}
0x1a5c…1a92 Head {h00=0x0032, h01=0x0050, text=» TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS «, t00=0x0010, t01=0x0166}
0x1a92…1abc Head {h00=0x0026, h01=0x0050, text=» TBT GTCYFLG,KVITNOK NOT IN CYCLE «, t00=0x0011, t01=0x000c}
0x1abc…1af6 Head {h00=0x0036, h01=0x0050, text=» TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) «, t00=0x0011, t01=0x0036}
0x1af6…1b10 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0011, t01=0x0070}
0x1b10…1b5c Head {h00=0x0048, h01=0x0050, text=» PERF WRITJT,=W'1' WRITE 'KVIT' ON JOURNAL«, t00=0x0011, t01=0x008a}
0x1b5c…1b76 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C'K' «, t00=0x0011, t01=0x00d6}
0x1b76…1b8a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTKV«, t00=0x0011, t01=0x00f0}
0x1b8a…1bac Head {h00=0x001e, h01=0x0050, text=» PERF WRITVO WRITE RECEIPT«, t00=0x0011, t01=0x0104}
0x1bac…1bc6 Head {h00=0x0016, h01=0x0050, text=» MOVE TTCYM,=C' ' «, t00=0x0011, t01=0x0126}
0x1bc6…1bde Head {h00=0x0014, h01=0x0050, text=» CLEAR GTLOKSPG «, t00=0x0011, t01=0x0140}
0x1bde…1c04 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0011, t01=0x0158}
0x1c04…1c10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x017e}
0x1c10…1c20 Head {h00=0x000c, h01=0x0050, text=»KVITNOK «, t00=0x0011, t01=0x018a}
0x1c20…1c48 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0012, t01=0x000a}
0x1c48…1c5c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0032}
0x1c5c…1c72 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0046}
0x1c72…1c88 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x005c}
0x1c88…1c9e Head {h00=0x0012, h01=0x0050, text=»ENTER PROC «, t00=0x0012, t01=0x0072}
0x1c9e…1cb0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0088}
0x1cb0…1cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cba…1d02 Head {h00=0x0044, h01=0x0050, text=»** ENTER - PERFORMS DIFFERENT CHECKS AFTER A PAGE HAS BEEN«, t00=0x0012, t01=0x00a4}
0x1d02…1d24 Head {h00=0x001e, h01=0x0050, text=»** ENTERED ON SCREEN«, t00=0x0012, t01=0x00ec}
0x1d24…1d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010e}
0x1d2e…1d54 Head {h00=0x0022, h01=0x0050, text=»** 1 ANY PAGE TWO ? «, t00=0x0012, t01=0x0118}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d5e…1da0 Head {h00=0x003e, h01=0x0050, text=»** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ?«, t00=0x0012, t01=0x0148}
0x1da0…1daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1daa…1dd6 (19, 0, 400) Head {h00=0x0028, h01=0x0050, text=»** 3 FIELD DEPENDENCE TEST«, t00=0x0013, t01=0x0004}
0x1dd6…1de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de0…1e14 Head {h00=0x0030, h01=0x0050, text=»** AND THEN PERFORM PROCEDURE SLUT, TO«, t00=0x0013, t01=0x003a}
0x1e14…1e4e Head {h00=0x0036, h01=0x0050, text=»** WRITE TO DISK AND WRITE RELEVANT RECEIPTS«, t00=0x0013, t01=0x006e}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e58…1e6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00b2}
0x1e6a…1e96 Head {h00=0x0028, h01=0x0050, text=» MOVE GTRETUR,CBIN0 SET RETURN CODE «, t00=0x0013, t01=0x00c4}
0x1e96…1eb0 Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE3,ENTY3«, t00=0x0013, t01=0x00f0}
0x1eb0…1eca Head {h00=0x0016, h01=0x0050, text=» TBT GTTYPE2,ENTY2«, t00=0x0013, t01=0x010a}
0x1eca…1ef2 Head {h00=0x0024, h01=0x0050, text=»* TYPE 1 - ONE PAGE TRANSACTION «, t00=0x0013, t01=0x0124}
0x1ef2…1f00 Head {h00=0x000a, h01=0x0050, text=»ENTY1 «, t00=0x0013, t01=0x014c}
0x1f00…1f2a Head {h00=0x0026, h01=0x0050, text=» PERF FLDTST TEST FIELD DEPENDENCE«, t00=0x0013, t01=0x015a}
0x1f2a…1f3e Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0013, t01=0x0184}
0x1f3e…1f54 Head {h00=0x0012, h01=0x0050, text=» PERF SLUT OK «, t00=0x0014, t01=0x0008}
0x1f54…1f68 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0014, t01=0x001e}
0x1f68…1f84 Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0014, t01=0x0032}
0x1f84…1fb0 Head {h00=0x0028, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01 IF LINE 91 «, t00=0x0014, t01=0x004e}
0x1fb0…1fcc Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0014, t01=0x007a}
0x1fcc…1fe6 Head {h00=0x0016, h01=0x0050, text=» TBF CKTAUTO,ENTOK«, t00=0x0014, t01=0x0096}
0x1fe6…2008 Head {h00=0x001e, h01=0x0050, text=» CBNE GTREGDEX,=W'4',ENTOK«, t00=0x0014, t01=0x00b0}
0x2008…2016 Head {h00=0x000a, h01=0x0050, text=»ENT01 «, t00=0x0014, t01=0x00d2}
0x2016…203c Head {h00=0x0022, h01=0x0050, text=» PERF KORT TRANS 4: KONTOKORT «, t00=0x0014, t01=0x00e0}
0x203c…2064 Head {h00=0x0024, h01=0x0050, text=» MOVE GTRETUR,=W'3' RESET SCREEN«, t00=0x0014, t01=0x0106}
0x2064…207c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0014, t01=0x012e}
0x207c…208c Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0014, t01=0x0146}
0x208c…20b4 Head {h00=0x0024, h01=0x0050, text=»* TYPE 2 - TWO PAGE TRANSACTION «, t00=0x0014, t01=0x0156}
0x20b4…20c2 Head {h00=0x000a, h01=0x0050, text=»ENTY2 «, t00=0x0014, t01=0x017e}
0x20c2…20e2 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT10«, t00=0x0014, t01=0x018c}
0x20e2…20fa Head {h00=0x0014, h01=0x0050, text=»* GET PAGE 2«, t00=0x0015, t01=0x001c}
0x20fa…2116 Head {h00=0x0018, h01=0x0050, text=» TBT GTSLUTFL,ENTY1 «, t00=0x0015, t01=0x0034}
0x2116…212c Head {h00=0x0012, h01=0x0050, text=» SET GTSLUTFL «, t00=0x0015, t01=0x0050}
0x212c…2146 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN1«, t00=0x0015, t01=0x0066}
0x2146…2160 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0015, t01=0x0080}
0x2160…217c Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0015, t01=0x009a}
0x217c…218c Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x00b6}
0x218c…2196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c6}
0x2196…21a4 Head {h00=0x000a, h01=0x0050, text=»ENT10 «, t00=0x0015, t01=0x00d0}
0x21a4…21b8 Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0015, t01=0x00de}
0x21b8…21cc Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x00f2}
0x21cc…21de Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0015, t01=0x0106}
0x21de…21f2 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0015, t01=0x0118}
0x21f2…220e Head {h00=0x0018, h01=0x0050, text=» TBT GTKORTFL,ENT01 «, t00=0x0015, t01=0x012c}
0x220e…222e Head {h00=0x001c, h01=0x0050, text=» CBE GTRETUR,=W'3',ENT01«, t00=0x0015, t01=0x0148}
0x222e…224a Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0015, t01=0x0168}
0x224a…225a Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0015, t01=0x0184}
0x225a…2284 (22, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* TYPE 3 - THREE PAGE TRANSACTION «, t00=0x0016, t01=0x0004}
0x2284…2292 Head {h00=0x000a, h01=0x0050, text=»ENTY3 «, t00=0x0016, t01=0x002e}
0x2292…22b2 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN1,ENT20«, t00=0x0016, t01=0x003c}
0x22b2…22dc Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 1, GET NEXT PAGE «, t00=0x0016, t01=0x005c}
0x22dc…22f6 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN2«, t00=0x0016, t01=0x0086}
0x22f6…2310 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN2«, t00=0x0016, t01=0x00a0}
0x2310…232c Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x00ba}
0x232c…233c Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0016, t01=0x00d6}
0x233c…2346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2346…2354 Head {h00=0x000a, h01=0x0050, text=»ENT20 «, t00=0x0016, t01=0x00f0}
0x2354…2374 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN2,ENT30«, t00=0x0016, t01=0x00fe}
0x2374…239e Head {h00=0x0026, h01=0x0050, text=»* AFTER PAGE 2, GET LAST PAGE «, t00=0x0016, t01=0x011e}
0x239e…23b8 Head {h00=0x0016, h01=0x0050, text=» PERF FMTNXT,CBIN3«, t00=0x0016, t01=0x0148}
0x23b8…23d2 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN3«, t00=0x0016, t01=0x0162}
0x23d2…23ee Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'2' «, t00=0x0016, t01=0x017c}
0x23ee…23fe Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x0008}
0x23fe…2408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0018}
0x2408…2416 Head {h00=0x000a, h01=0x0050, text=»ENT30 «, t00=0x0017, t01=0x0022}
0x2416…2436 Head {h00=0x001c, h01=0x0050, text=» CBNE GTPAGE,CBIN3,ENT40«, t00=0x0017, t01=0x0030}
0x2436…2456 Head {h00=0x001c, h01=0x0050, text=»* FIRST TIME PAGE 3 «, t00=0x0017, t01=0x0050}
0x2456…246a Head {h00=0x0010, h01=0x0050, text=» PERF FLDTST«, t00=0x0017, t01=0x0070}
0x246a…247e Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x0084}
0x247e…248e Head {h00=0x000c, h01=0x0050, text=» B ENT40«, t00=0x0017, t01=0x0098}
0x248e…2498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a8}
0x2498…24a6 Head {h00=0x000a, h01=0x0050, text=»ENT40 «, t00=0x0017, t01=0x00b2}
0x24a6…24c2 Head {h00=0x0018, h01=0x0050, text=»* CORRECT PAGE 3«, t00=0x0017, t01=0x00c0}
0x24c2…24d4 Head {h00=0x000e, h01=0x0050, text=» PERF SLUT«, t00=0x0017, t01=0x00dc}
0x24d4…24e8 Head {h00=0x0010, h01=0x0050, text=» BNOK ENTNOK«, t00=0x0017, t01=0x00ee}
0x24e8…2500 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0017, t01=0x0102}
0x2500…251e Head {h00=0x001a, h01=0x0050, text=» CBE GTSUM,=D'0',ENT50«, t00=0x0017, t01=0x011a}
0x251e…2538 Head {h00=0x0016, h01=0x0050, text=» MOVE GTPAGE,CBIN4«, t00=0x0017, t01=0x0138}
0x2538…2554 Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'1' «, t00=0x0017, t01=0x0152}
0x2554…2564 Head {h00=0x000c, h01=0x0050, text=» B ENTOK«, t00=0x0017, t01=0x016e}
0x2564…256e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017e}
0x256e…257c Head {h00=0x000a, h01=0x0050, text=»ENT50 «, t00=0x0017, t01=0x0188}
0x257c…2592 Head {h00=0x0012, h01=0x0050, text=»* FINISHED«, t00=0x0018, t01=0x0008}
0x2592…25ae Head {h00=0x0018, h01=0x0050, text=» MOVE GTRETUR,=W'3' «, t00=0x0018, t01=0x001e}
0x25ae…25b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003a}
0x25b8…25c6 Head {h00=0x000a, h01=0x0050, text=»ENTOK «, t00=0x0018, t01=0x0044}
0x25c6…25ec Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR =0«, t00=0x0018, t01=0x0052}
0x25ec…25f8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0078}
0x25f8…2606 Head {h00=0x000a, h01=0x0050, text=»ENTNOK«, t00=0x0018, t01=0x0084}
0x2606…262e Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0018, t01=0x0092}
0x262e…263a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00ba}
0x263a…2644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2644…265a Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x00d0}
0x265a…2670 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00e6}
0x2670…268e Head {h00=0x001a, h01=0x0050, text=»FMTNXT PROC FORMAL1 «, t00=0x0018, t01=0x00fc}
0x268e…26aa Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0018, t01=0x011a}
0x26aa…26b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0136}
0x26b4…26f2 Head {h00=0x003a, h01=0x0050, text=»** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 «, t00=0x0018, t01=0x0140}
0x26f2…271e Head {h00=0x0028, h01=0x0050, text=»** TRANSTYPES 8,9,51 AND 53 «, t00=0x0018, t01=0x017e}
0x271e…2744 Head {h00=0x0022, h01=0x0050, text=»** (DEX 8,9,21,23)«, t00=0x0019, t01=0x001a}
0x2744…274e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x274e…276a Head {h00=0x0018, h01=0x0050, text=»****-************** «, t00=0x0019, t01=0x004a}
0x276a…27a2 Head {h00=0x0034, h01=0x0050, text=» CBNE FORMAL1,CBIN1,NXT10 INDEX 1: «, t00=0x0019, t01=0x0066}
0x27a2…27d8 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 TYPE 8 «, t00=0x0019, t01=0x009e}
0x27d8…2804 Head {h00=0x0028, h01=0x0050, text=» CBE GTREGDEX,=W'8',NXT10 «, t00=0x0019, t01=0x00d4}
0x2804…283a Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,CBIN2 TYPE 9 «, t00=0x0019, t01=0x0100}
0x283a…2848 Head {h00=0x000a, h01=0x0050, text=»NXT10 «, t00=0x0019, t01=0x0136}
0x2848…2880 Head {h00=0x0034, h01=0x0050, text=» CBE FORMAL1,CBIN1,NXTATT INDEX 2: «, t00=0x0019, t01=0x0144}
0x2880…28a2 Head {h00=0x001e, h01=0x0050, text=» CBNE FORMAL1,CBIN2,NXT20 «, t00=0x0019, t01=0x017c}
0x28a2…28e0 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN3 TYPE 51,PAGE 2 «, t00=0x001a, t01=0x000e}
0x28e0…2902 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXT20«, t00=0x001a, t01=0x004c}
0x2902…293e Head {h00=0x0038, h01=0x0050, text=» MOVE GSWBIN1,CBIN4 TYPE 53,PAGE 2«, t00=0x001a, t01=0x006e}
0x293e…294c Head {h00=0x000a, h01=0x0050, text=»NXT20 «, t00=0x001a, t01=0x00aa}
0x294c…2984 Head {h00=0x0034, h01=0x0050, text=» CBNE FORMAL1,CBIN3,NXTATT INDEX 3: «, t00=0x001a, t01=0x00b8}
0x2984…29c2 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 TYPE 51,PAGE 3 «, t00=0x001a, t01=0x00f0}
0x29c2…29f0 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,=W'21',NXTATT «, t00=0x001a, t01=0x012e}
0x29f0…2a2e Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,CBIN6 TYPE 53,PAGE 3 «, t00=0x001a, t01=0x015c}
0x2a2e…2a3c Head {h00=0x000a, h01=0x0050, text=»NXTATT«, t00=0x001b, t01=0x000a}
0x2a3c…2a58 Head {h00=0x0018, h01=0x0050, text=» PERF FRMXSP,GSWBIN1«, t00=0x001b, t01=0x0018}
0x2a58…2a6c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0034}
0x2a6c…2a82 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0048}
0x2a82…2a90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x005e}
0x2a90…2aa8 Head {h00=0x0014, h01=0x0050, text=»CYK PROC CYTYPE «, t00=0x001b, t01=0x006c}
0x2aa8…2ac4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0084}
0x2ac4…2ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a0}
0x2ace…2b02 Head {h00=0x0030, h01=0x0050, text=»* HANDLE DIFFERENT TYPES OF CYCLES «, t00=0x001b, t01=0x00aa}
0x2b02…2b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00de}
0x2b0c…2b28 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00e8}
0x2b28…2b3e Head {h00=0x0012, h01=0x0050, text=» IB CYTYPE, C«, t00=0x001b, t01=0x0104}
0x2b3e…2b68 Head {h00=0x0026, h01=0x0050, text=» CYK1,CYK2,CYKNOK,CYK4,CYKNOK, C«, t00=0x001b, t01=0x011a}
0x2b68…2b92 Head {h00=0x0026, h01=0x0050, text=» CYKNOK,CYKNOK,CYKNOK,CYK9,CYEND «, t00=0x001b, t01=0x0144}
0x2b92…2ba4 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001b, t01=0x016e}
0x2ba4…2bb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0180}
0x2bb2…2bbe Head {h00=0x0008, h01=0x0050, text=»CYK1«, t00=0x001b, t01=0x018e}
0x2bbe…2bda Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x000a}
0x2bda…2be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0026}
0x2be4…2c16 Head {h00=0x002e, h01=0x0050, text=»** CYK1 - START OF CYCLE FUNCTION«, t00=0x001c, t01=0x0030}
0x2c16…2c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0062}
0x2c20…2c3c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x006c}
0x2c3c…2c62 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK1NOK IN LISTE«, t00=0x001c, t01=0x0088}
0x2c62…2c8a Head {h00=0x0024, h01=0x0050, text=» TBT TTCY2FLG,CYK1NOK IN CYCLE 2«, t00=0x001c, t01=0x00ae}
0x2c8a…2ca0 Head {h00=0x0012, h01=0x0050, text=» SET TTCY1FLG «, t00=0x001c, t01=0x00d6}
0x2ca0…2cc6 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'C' FOR JOURNAL «, t00=0x001c, t01=0x00ec}
0x2cc6…2cf0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'CYKLE ' FOR SCREEN«, t00=0x001c, t01=0x0112}
0x2cf0…2d04 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001c, t01=0x013c}
0x2d04…2d14 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001c, t01=0x0150}
0x2d14…2d24 Head {h00=0x000c, h01=0x0050, text=»CYK1NOK «, t00=0x001c, t01=0x0160}
0x2d24…2d36 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001c, t01=0x0170}
0x2d36…2d44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0182}
0x2d44…2d50 Head {h00=0x0008, h01=0x0050, text=»CYK2«, t00=0x001c, t01=0x0190}
0x2d50…2d6c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x000c}
0x2d6c…2d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0028}
0x2d76…2da8 Head {h00=0x002e, h01=0x0050, text=»** CYK2 - START OF STABEL FUNCTION«, t00=0x001d, t01=0x0032}
0x2da8…2db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0064}
0x2db2…2dce Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x006e}
0x2dce…2df4 Head {h00=0x0022, h01=0x0050, text=» TBT TTLSTFLG,CYK2NOK IN LISTE«, t00=0x001d, t01=0x008a}
0x2df4…2e1c Head {h00=0x0024, h01=0x0050, text=» TBT TTCY1FLG,CYK2NOK IN CYCLE 1«, t00=0x001d, t01=0x00b0}
0x2e1c…2e32 Head {h00=0x0012, h01=0x0050, text=» SET TTCY2FLG «, t00=0x001d, t01=0x00d8}
0x2e32…2e58 Head {h00=0x0022, h01=0x0050, text=» MOVE TTCYM,=C'S' FOR JOURNAL «, t00=0x001d, t01=0x00ee}
0x2e58…2e82 Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'STABEL' FOR SCREEN«, t00=0x001d, t01=0x0114}
0x2e82…2e96 Head {h00=0x0010, h01=0x0050, text=» PERF CYKINT«, t00=0x001d, t01=0x013e}
0x2e96…2ea6 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001d, t01=0x0152}
0x2ea6…2eb6 Head {h00=0x000c, h01=0x0050, text=»CYK2NOK «, t00=0x001d, t01=0x0162}
0x2eb6…2ec8 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001d, t01=0x0172}
0x2ec8…2ed6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0184}
0x2ed6…2ee2 (30, 0, 400) Head {h00=0x0008, h01=0x0050, text=»CYK4«, t00=0x001e, t01=0x0004}
0x2ee2…2efe Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0010}
0x2efe…2f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002c}
0x2f08…2f3a Head {h00=0x002e, h01=0x0050, text=»* CYK4 - PAUSE IN CYCLE / STABEL «, t00=0x001e, t01=0x0036}
0x2f3a…2f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0068}
0x2f44…2f60 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001e, t01=0x0072}
0x2f60…2f7c Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,CYK4NOK«, t00=0x001e, t01=0x008e}
0x2f7c…2f98 Head {h00=0x0018, h01=0x0050, text=» TBT GTCYWRTF,CYKSUB«, t00=0x001e, t01=0x00aa}
0x2f98…2fce Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x001e, t01=0x00c6}
0x2fce…3010 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x001e, t01=0x00fc}
0x3010…302c Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,GTSUM «, t00=0x001e, t01=0x013e}
0x302c…304a Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x001e, t01=0x015a}
0x304a…305e Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x001e, t01=0x0178}
0x305e…3088 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x001e, t01=0x018c}
0x3088…309c Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x001f, t01=0x0026}
0x309c…30ac Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x003a}
0x30ac…30bc Head {h00=0x000c, h01=0x0050, text=»CYK4NOK «, t00=0x001f, t01=0x004a}
0x30bc…30ce Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x001f, t01=0x005a}
0x30ce…30dc Head {h00=0x000a, h01=0x0050, text=»CYKSUB«, t00=0x001f, t01=0x006c}
0x30dc…30f0 Head {h00=0x0010, h01=0x0050, text=» PERF SUBTOT«, t00=0x001f, t01=0x007a}
0x30f0…3100 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x008e}
0x3100…310e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x009e}
0x310e…311a Head {h00=0x0008, h01=0x0050, text=»CYK9«, t00=0x001f, t01=0x00ac}
0x311a…3136 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x00b8}
0x3136…3140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x3140…316e Head {h00=0x002a, h01=0x0050, text=»** CYK9 - CLEAR ARKIV KONTO NR«, t00=0x001f, t01=0x00de}
0x316e…3178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010c}
0x3178…3194 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0116}
0x3194…31b2 Head {h00=0x001a, h01=0x0050, text=» TBF TTCY1FLG,CYK9NOK «, t00=0x001f, t01=0x0132}
0x31b2…31dc Head {h00=0x0026, h01=0x0050, text=» MOVE TTARKSAV,=D'0' CLEAR NUMBER «, t00=0x001f, t01=0x0150}
0x31dc…31ec Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x001f, t01=0x017a}
0x31ec…31fc Head {h00=0x000c, h01=0x0050, text=»CYK9NOK «, t00=0x001f, t01=0x018a}
0x31fc…320e Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0020, t01=0x000a}
0x320e…321c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x001c}
0x321c…322a Head {h00=0x000a, h01=0x0050, text=»CYEND «, t00=0x0020, t01=0x002a}
0x322a…3246 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0038}
0x3246…3250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0054}
0x3250…3278 Head {h00=0x0024, h01=0x0050, text=»** CYEND - END OF CYCLE«, t00=0x0020, t01=0x005e}
0x3278…3282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0086}
0x3282…32ae Head {h00=0x0028, h01=0x0050, text=»** WRITE TOTAL LINE ON VOUCHER«, t00=0x0020, t01=0x0090}
0x32ae…32b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00bc}
0x32b8…32d4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x00c6}
0x32d4…3302 Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE«, t00=0x0020, t01=0x00e2}
0x3302…3320 Head {h00=0x001a, h01=0x0050, text=» TBT TTCY2FLG,CYEND10 «, t00=0x0020, t01=0x0110}
0x3320…335a Head {h00=0x0036, h01=0x0050, text=» CBNE GTSUM,=D'0',CYEND30 SUM CORRECT? (ONLY CY1) «, t00=0x0020, t01=0x012e}
0x335a…336a Head {h00=0x000c, h01=0x0050, text=»CYEND10 «, t00=0x0020, t01=0x0168}
0x336a…33a8 Head {h00=0x003a, h01=0x0050, text=» CLEAR TTSUMFLG CLEAR FLAGS«, t00=0x0020, t01=0x0178}
0x33a8…33c8 Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x0021, t01=0x0026}
0x33c8…33dc Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x0021, t01=0x0046}
0x33dc…33fe Head {h00=0x001e, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0021, t01=0x005a}
0x33fe…3412 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0021, t01=0x007c}
0x3412…3430 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0021, t01=0x0090}
0x3430…3462 Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0021, t01=0x00ae}
0x3462…3484 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x0021, t01=0x00e0}
0x3484…34b0 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN2 GET TOTAL FORMAT «, t00=0x0021, t01=0x0102}
0x34b0…34e0 Head {h00=0x002c, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT ON VOUCHER «, t00=0x0021, t01=0x012e}
0x34e0…3524 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0021, t01=0x015e}
0x3524…3554 Head {h00=0x002c, h01=0x0050, text=» TBT C167FLG,CYEND15 T=NO WRITE JOURNAL «, t00=0x0022, t01=0x0012}
0x3554…3570 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0022, t01=0x0042}
0x3570…3580 Head {h00=0x000c, h01=0x0050, text=»CYEND15 «, t00=0x0022, t01=0x005e}
0x3580…35ba Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0022, t01=0x006e}
0x35ba…35dc Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0022, t01=0x00a8}
0x35dc…3620 Head {h00=0x0040, h01=0x0050, text=» MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE «, t00=0x0022, t01=0x00ca}
0x3620…365e Head {h00=0x003a, h01=0x0050, text=» PERF WCHECK WRITE CHECK«, t00=0x0022, t01=0x010e}
0x365e…366e Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0022, t01=0x014c}
0x366e…3686 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0022, t01=0x015c}
0x3686…36a8 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0022, t01=0x0174}
0x36a8…36bc Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0023, t01=0x0008}
0x36bc…36ce Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0023, t01=0x001c}
0x36ce…36de Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0023, t01=0x002e}
0x36de…3720 Head {h00=0x003e, h01=0x0050, text=» MOVE SPBINW4,=W'12' SET ERRORCODE «, t00=0x0023, t01=0x003e}
0x3720…373e Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0023, t01=0x0080}
0x373e…3762 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0023, t01=0x009e}
0x3762…3772 Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0023, t01=0x00c2}
0x3772…379c Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0023, t01=0x00d2}
0x379c…37b0 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0023, t01=0x00fc}
0x37b0…37c0 Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0023, t01=0x0110}
0x37c0…37d0 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0023, t01=0x0120}
0x37d0…37e0 Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0023, t01=0x0130}
0x37e0…37f2 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0023, t01=0x0140}
0x37f2…37fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x37fc…380a Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0023, t01=0x015c}
0x380a…3826 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0023, t01=0x016a}
0x3826…3832 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x0186}
0x3832…3840 (36, 0, 400) Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0024, t01=0x0004}
0x3840…385c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0024, t01=0x0012}
0x385c…3868 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x002e}
0x3868…3876 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x003a}
0x3876…388c Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0048}
0x388c…38a2 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0024, t01=0x005e}
0x38a2…38be Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x0074}
0x38be…38c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0090}
0x38c8…38fa Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0024, t01=0x009a}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00cc}
0x3904…393e Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0024, t01=0x00d6}
0x393e…397a Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0024, t01=0x0110}
0x397a…3984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x3984…39b8 Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0024, t01=0x0156}
0x39b8…39c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018a}
0x39c2…39de (37, 0, 400) Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0025, t01=0x0004}
0x39de…3a0e Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0025, t01=0x0020}
0x3a0e…3a54 Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0025, t01=0x0050}
0x3a54…3a6c Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0025, t01=0x0096}
0x3a6c…3a78 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00ae}
0x3a78…3a84 Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0025, t01=0x00ba}
0x3a84…3a98 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0025, t01=0x00c6}
0x3a98…3aa4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00da}
0x3aa4…3ab0 Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0025, t01=0x00e6}
0x3ab0…3adc Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0025, t01=0x00f2}
0x3adc…3b00 Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0025, t01=0x011e}
0x3b00…3b44 Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0025, t01=0x0142}
0x3b44…3b84 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0025, t01=0x0186}
0x3b84…3bce Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0026, t01=0x0036}
0x3bce…3bee Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0026, t01=0x0080}
0x3bee…3c1e Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0026, t01=0x00a0}
0x3c1e…3c3c Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0026, t01=0x00d0}
0x3c3c…3c48 Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0026, t01=0x00ee}
0x3c48…3c66 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0026, t01=0x00fa}
0x3c66…3cac Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0026, t01=0x0118}
0x3cac…3cbc Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0026, t01=0x015e}
0x3cbc…3cc8 Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0026, t01=0x016e}
0x3cc8…3cfa Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0026, t01=0x017a}
0x3cfa…3d16 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0027, t01=0x001c}
0x3d16…3d3a Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0027, t01=0x0038}
0x3d3a…3d56 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0027, t01=0x005c}
0x3d56…3d7c Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0027, t01=0x0078}
0x3d7c…3dc8 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0027, t01=0x009e}
0x3dc8…3de6 Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0027, t01=0x00ea}
0x3de6…3e32 Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0027, t01=0x0108}
0x3e32…3e52 Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0027, t01=0x0154}
0x3e52…3e82 Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0027, t01=0x0174}
0x3e82…3e9a Head {h00=0x0014, h01=0x0050, text=»CY40 ERROR KEY«, t00=0x0028, t01=0x0014}
0x3e9a…3eb6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0028, t01=0x002c}
0x3eb6…3ed4 Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0028, t01=0x0048}
0x3ed4…3ef2 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0028, t01=0x0066}
0x3ef2…3f04 Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0028, t01=0x0084}
0x3f04…3f1c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0028, t01=0x0096}
0x3f1c…3f34 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0028, t01=0x00ae}
0x3f34…3f44 Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0028, t01=0x00c6}
0x3f44…3f50 Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0028, t01=0x00d6}
0x3f50…3f70 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0028, t01=0x00e2}
0x3f70…3f8c Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0028, t01=0x0102}
0x3f8c…3f98 Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0028, t01=0x011e}
0x3f98…3fb6 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0028, t01=0x012a}
0x3fb6…3fca Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0028, t01=0x0148}
0x3fca…3ffa Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0028, t01=0x015c}
0x3ffa…4016 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x0028, t01=0x018c}
0x4016…403a Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x0029, t01=0x0018}
0x403a…4058 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x0029, t01=0x003c}
0x4058…4076 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0029, t01=0x005a}
0x4076…4092 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x0029, t01=0x0078}
0x4092…40ac Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0029, t01=0x0094}
0x40ac…40c8 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0029, t01=0x00ae}
0x40c8…40e2 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0029, t01=0x00ca}
0x40e2…40fe Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0029, t01=0x00e4}
0x40fe…410a Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x0029, t01=0x0100}
0x410a…4120 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0029, t01=0x010c}
0x4120…413a Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x0029, t01=0x0122}
0x413a…4152 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x0029, t01=0x013c}
0x4152…415e Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x0029, t01=0x0154}
0x415e…4172 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0029, t01=0x0160}
0x4172…4188 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0174}
0x4188…4196 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x018a}
0x4196…41a8 Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x002a, t01=0x0008}
0x41a8…41c4 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002a, t01=0x001a}
0x41c4…41ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0036}
0x41ce…4200 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x002a, t01=0x0040}
0x4200…420a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0072}
0x420a…4224 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002a, t01=0x007c}
0x4224…424a Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002a, t01=0x0096}
0x424a…426e Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYM,=C' '«, t00=0x002a, t01=0x00bc}
0x426e…429a Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002a, t01=0x00e0}
0x429a…42be Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002a, t01=0x010c}
0x42be…42de Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002a, t01=0x0130}
0x42de…4300 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002a, t01=0x0150}
0x4300…4318 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002a, t01=0x0172}
0x4318…4330 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002a, t01=0x018a}
0x4330…435a Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002b, t01=0x0012}
0x435a…4366 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x003c}
0x4366…437c Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0048}
0x437c…4392 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x005e}
0x4392…43a6 Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002b, t01=0x0074}
0x43a6…43c2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x0088}
0x43c2…43cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a4}
0x43cc…43fc Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002b, t01=0x00ae}
0x43fc…4406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00de}
0x4406…4422 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x00e8}
0x4422…443e Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002b, t01=0x0104}
0x443e…4466 Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002b, t01=0x0120}
0x4466…447a Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002b, t01=0x0148}
0x447a…449c Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002b, t01=0x015c}
0x449c…44be Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002b, t01=0x017e}
0x44be…44fe Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002c, t01=0x0010}
0x44fe…454a Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002c, t01=0x0050}
0x454a…4590 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002c, t01=0x009c}
0x4590…45ba Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002c, t01=0x00e2}
0x45ba…45ca Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002c, t01=0x010c}
0x45ca…45de Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002c, t01=0x011c}
0x45de…45ec Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002c, t01=0x0130}
0x45ec…4600 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002c, t01=0x013e}
0x4600…461c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002c, t01=0x0152}
0x461c…463e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002c, t01=0x016e}
0x463e…4670 Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002c, t01=0x0190}
0x4670…4690 Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002d, t01=0x0032}
0x4690…46ac Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002d, t01=0x0052}
0x46ac…46ce Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002d, t01=0x006e}
0x46ce…46f0 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002d, t01=0x0090}
0x46f0…4716 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002d, t01=0x00b2}
0x4716…4724 Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002d, t01=0x00d8}
0x4724…4738 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002d, t01=0x00e6}
0x4738…475e Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002d, t01=0x00fa}
0x475e…476a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0120}
0x476a…4778 Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002d, t01=0x012c}
0x4778…47a0 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002d, t01=0x013a}
0x47a0…47b4 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0162}
0x47b4…47ca Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x0176}
0x47ca…47e0 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x018c}
0x47e0…47f6 Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002e, t01=0x0012}
0x47f6…4812 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002e, t01=0x0028}
0x4812…481c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0044}
0x481c…483e Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002e, t01=0x004e}
0x483e…4848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0070}
0x4848…4882 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002e, t01=0x007a}
0x4882…488c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b4}
0x488c…48c2 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002e, t01=0x00be}
0x48c2…48ea Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002e, t01=0x00f4}
0x48ea…4918 Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x002e, t01=0x011c}
0x4918…4922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4922…493e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x0154}
0x493e…4962 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002e, t01=0x0170}
0x4962…49a6 (47, 0, 400) Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x002f, t01=0x0004}
0x49a6…49cc Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x002f, t01=0x0048}
0x49cc…49f0 Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x002f, t01=0x006e}
0x49f0…4a0a Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x002f, t01=0x0092}
0x4a0a…4a20 Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x002f, t01=0x00ac}
0x4a20…4a32 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x002f, t01=0x00c2}
0x4a32…4a4a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x002f, t01=0x00d4}
0x4a4a…4a5e Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x002f, t01=0x00ec}
0x4a5e…4a7a Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x002f, t01=0x0100}
0x4a7a…4a8a Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x002f, t01=0x011c}
0x4a8a…4a9e Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x002f, t01=0x012c}
0x4a9e…4ad4 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x002f, t01=0x0140}
0x4ad4…4b16 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x002f, t01=0x0176}
0x4b16…4b42 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x0030, t01=0x0028}
0x4b42…4b58 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0030, t01=0x0054}
0x4b58…4b9c Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0030, t01=0x006a}
0x4b9c…4bb0 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0030, t01=0x00ae}
0x4bb0…4bf4 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0030, t01=0x00c2}
0x4bf4…4c30 Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0030, t01=0x0106}
0x4c30…4c4a Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0030, t01=0x0142}
0x4c4a…4c88 Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0030, t01=0x015c}
0x4c88…4ca6 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0031, t01=0x000a}
0x4ca6…4cd2 Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0031, t01=0x0028}
0x4cd2…4cec Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0031, t01=0x0054}
0x4cec…4d08 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0031, t01=0x006e}
0x4d08…4d22 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0031, t01=0x008a}
0x4d22…4d3e Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0031, t01=0x00a4}
0x4d3e…4d52 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0031, t01=0x00c0}
0x4d52…4d64 Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0031, t01=0x00d4}
0x4d64…4d7e Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0031, t01=0x00e6}
0x4d7e…4d8e Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0031, t01=0x0100}
0x4d8e…4da2 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0031, t01=0x0110}
0x4da2…4dbe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0031, t01=0x0124}
0x4dbe…4de4 Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0031, t01=0x0140}
0x4de4…4e2a Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0031, t01=0x0166}
0x4e2a…4e38 Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0032, t01=0x001c}
0x4e38…4e62 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0032, t01=0x002a}
0x4e62…4e76 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0032, t01=0x0054}
0x4e76…4e86 Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0032, t01=0x0068}
0x4e86…4eac Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0032, t01=0x0078}
0x4eac…4eb8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x009e}
0x4eb8…4ec8 Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0032, t01=0x00aa}
0x4ec8…4ef0 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0032, t01=0x00ba}
0x4ef0…4f04 Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0032, t01=0x00e2}
0x4f04…4f12 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x00f6}
0x4f12…4f20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0104}
0x4f20…4f30 Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0032, t01=0x0112}
0x4f30…4f4c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0032, t01=0x0122}
0x4f4c…4f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f56…4f90 Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0032, t01=0x0148}
0x4f90…4fc4 Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0032, t01=0x0182}
0x4fc4…4fee Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0033, t01=0x0026}
0x4fee…5018 Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0033, t01=0x0050}
0x5018…504c Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0033, t01=0x007a}
0x504c…5056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ae}
0x5056…5072 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x00b8}
0x5072…508e Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0033, t01=0x00d4}
0x508e…50a6 Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0033, t01=0x00f0}
0x50a6…50da Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0033, t01=0x0108}
0x50da…50e8 Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0033, t01=0x013c}
0x50e8…5104 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0033, t01=0x014a}
0x5104…511a Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0033, t01=0x0166}
0x511a…5136 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0033, t01=0x017c}
0x5136…5166 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0034, t01=0x0008}
0x5166…5190 Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0034, t01=0x0038}
0x5190…51a0 Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0034, t01=0x0062}
0x51a0…51aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0072}
0x51aa…51c2 Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0034, t01=0x007c}
0x51c2…51d0 Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0034, t01=0x0094}
0x51d0…5202 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0034, t01=0x00a2}
0x5202…521e Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0034, t01=0x00d4}
0x521e…523a Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0034, t01=0x00f0}
0x523a…5252 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0034, t01=0x010c}
0x5252…5260 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0034, t01=0x0124}
0x5260…528c Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0034, t01=0x0132}
0x528c…52b2 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0034, t01=0x015e}
0x52b2…52cc Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0034, t01=0x0184}
0x52cc…52f4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0035, t01=0x000e}
0x52f4…530c Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0035, t01=0x0036}
0x530c…531a Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0035, t01=0x004e}
0x531a…532e Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0035, t01=0x005c}
0x532e…5346 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0035, t01=0x0070}
0x5346…535a Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0035, t01=0x0088}
0x535a…536e Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0035, t01=0x009c}
0x536e…5390 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0035, t01=0x00b0}
0x5390…53c0 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? «, t00=0x0035, t01=0x00d2}
0x53c0…53ce Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0035, t01=0x0102}
0x53ce…53f6 Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0035, t01=0x0110}
0x53f6…5404 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0035, t01=0x0138}
0x5404…5422 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0035, t01=0x0146}
0x5422…5442 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0035, t01=0x0164}
0x5442…546e Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0035, t01=0x0184}
0x546e…5488 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0036, t01=0x0020}
0x5488…54a6 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0036, t01=0x003a}
0x54a6…54b8 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0036, t01=0x0058}
0x54b8…54d6 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0036, t01=0x006a}
0x54d6…54f4 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0036, t01=0x0088}
0x54f4…5510 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0036, t01=0x00a6}
0x5510…551e Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0036, t01=0x00c2}
0x551e…5532 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0036, t01=0x00d0}
0x5532…5542 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0036, t01=0x00e4}
0x5542…5568 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0036, t01=0x00f4}
0x5568…5574 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x011a}
0x5574…5582 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x0126}
0x5582…5590 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0134}
0x5590…55a2 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0036, t01=0x0142}
0x55a2…55be Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0154}
0x55be…55c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0170}
0x55c8…55fa Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0036, t01=0x017a}
0x55fa…5604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001c}
0x5604…5620 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0037, t01=0x0026}
0x5620…563e Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0037, t01=0x0042}
0x563e…565a Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0037, t01=0x0060}
0x565a…5678 Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0037, t01=0x007c}
0x5678…568c Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0037, t01=0x009a}
0x568c…56a0 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0037, t01=0x00ae}
0x56a0…56c0 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,=W'1',DIV10«, t00=0x0037, t01=0x00c2}
0x56c0…56d4 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0037, t01=0x00e2}
0x56d4…56e6 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x00f6}
0x56e6…56f4 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0037, t01=0x0108}
0x56f4…5708 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0037, t01=0x0116}
0x5708…571a Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x012a}
0x571a…5734 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0037, t01=0x013c}
0x5734…5742 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0037, t01=0x0156}
0x5742…5758 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0037, t01=0x0164}
0x5758…5774 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0037, t01=0x017a}
0x5774…5786 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0038, t01=0x0008}
0x5786…5790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001a}
0x5790…57a0 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0038, t01=0x0024}
0x57a0…57c6 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0038, t01=0x0034}
0x57c6…57d2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x005a}
0x57d2…57e2 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0038, t01=0x0066}
0x57e2…580a Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0038, t01=0x0076}
0x580a…5816 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x009e}
0x5816…5824 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x00aa}
0x5824…582e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x582e…5838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c2}
0x5838…584c Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0038, t01=0x00cc}
0x584c…5850 Head {h00=0x4004, h01=0x0000}
0x5850…5854 00 38 00 e0 ┆ 8 ┆
0x5854…585c (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆