|
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: 23756 (0x5ccc)
Notes: pts_type(SC)
Names: »RGSUBS.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/RGSUBS.SC«
IDENT RGSUBS 02.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
PERF WRITJT,=W'15'
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 02.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…3540 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'15' «, t00=0x0022, t01=0x0012}
0x3540…357a Head {h00=0x0036, h01=0x0050, text=» CBL GTREGNR,=D'18',CYEND20 CHECKS?«, t00=0x0022, t01=0x002e}
0x357a…359c Head {h00=0x001e, h01=0x0050, text=» SET TTTSTFLG «, t00=0x0022, t01=0x0068}
0x359c…35e0 Head {h00=0x0040, h01=0x0050, text=» MOVE GTREGF(CBIN4),GTSUM FIND TOTAL VALUE «, t00=0x0022, t01=0x008a}
0x35e0…361e Head {h00=0x003a, h01=0x0050, text=» PERF WCHECK WRITE CHECK«, t00=0x0022, t01=0x00ce}
0x361e…362e Head {h00=0x000c, h01=0x0050, text=»CYEND20 «, t00=0x0022, t01=0x010c}
0x362e…3646 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0022, t01=0x011c}
0x3646…3668 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0022, t01=0x0134}
0x3668…367c Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0022, t01=0x0156}
0x367c…368e Head {h00=0x000e, h01=0x0050, text=» B CYENDOK«, t00=0x0022, t01=0x016a}
0x368e…369e Head {h00=0x000c, h01=0x0050, text=»CYEND30 «, t00=0x0022, t01=0x017c}
0x369e…36e0 Head {h00=0x003e, h01=0x0050, text=» MOVE SPBINW4,=W'12' SET ERRORCODE «, t00=0x0022, t01=0x018c}
0x36e0…36fe Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0023, t01=0x003e}
0x36fe…3722 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,CYENDCNT,CYEND10«, t00=0x0023, t01=0x005c}
0x3722…3732 Head {h00=0x000c, h01=0x0050, text=»CYENDOK «, t00=0x0023, t01=0x0080}
0x3732…375c Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0023, t01=0x0090}
0x375c…3770 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0023, t01=0x00ba}
0x3770…3780 Head {h00=0x000c, h01=0x0050, text=»CYENDCNT«, t00=0x0023, t01=0x00ce}
0x3780…3790 Head {h00=0x000c, h01=0x0050, text=» B CYKOK«, t00=0x0023, t01=0x00de}
0x3790…37a0 Head {h00=0x000c, h01=0x0050, text=»CYENDNOK«, t00=0x0023, t01=0x00ee}
0x37a0…37b2 Head {h00=0x000e, h01=0x0050, text=» B CYKNOK «, t00=0x0023, t01=0x00fe}
0x37b2…37bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0110}
0x37bc…37ca Head {h00=0x000a, h01=0x0050, text=»CYKOK «, t00=0x0023, t01=0x011a}
0x37ca…37e6 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0023, t01=0x0128}
0x37e6…37f2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x0144}
0x37f2…3800 Head {h00=0x000a, h01=0x0050, text=»CYKNOK«, t00=0x0023, t01=0x0150}
0x3800…381c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0023, t01=0x015e}
0x381c…3828 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x017a}
0x3828…3836 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0186}
0x3836…384c (36, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0004}
0x384c…3862 Head {h00=0x0012, h01=0x0050, text=»CYKINT PROC «, t00=0x0024, t01=0x001a}
0x3862…387e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x0030}
0x387e…3888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004c}
0x3888…38ba Head {h00=0x002e, h01=0x0050, text=»** CYKINT - START OR END OF CYCLE«, t00=0x0024, t01=0x0056}
0x38ba…38c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0088}
0x38c4…38fe Head {h00=0x0036, h01=0x0050, text=»** START SET RELEVANT INFORMATION AND READ«, t00=0x0024, t01=0x0092}
0x38fe…393a Head {h00=0x0038, h01=0x0050, text=»** ARKIV KNT.NR, KONTROLSUM AND LRER-9«, t00=0x0024, t01=0x00cc}
0x393a…3944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0108}
0x3944…3978 Head {h00=0x0030, h01=0x0050, text=»** END CLEAR RELEVANT INFORMATION «, t00=0x0024, t01=0x0112}
0x3978…3982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0146}
0x3982…399e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0024, t01=0x0150}
0x399e…39ce Head {h00=0x002c, h01=0x0050, text=» TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE«, t00=0x0024, t01=0x016c}
0x39ce…3a14 Head {h00=0x0042, h01=0x0050, text=» TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE«, t00=0x0025, t01=0x000c}
0x3a14…3a2c Head {h00=0x0014, h01=0x0050, text=» PERF CYK,CBIN10«, t00=0x0025, t01=0x0052}
0x3a2c…3a38 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x006a}
0x3a38…3a44 Head {h00=0x0008, h01=0x0050, text=»CY05«, t00=0x0025, t01=0x0076}
0x3a44…3a58 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0025, t01=0x0082}
0x3a58…3a64 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0096}
0x3a64…3a70 Head {h00=0x0008, h01=0x0050, text=»CY10«, t00=0x0025, t01=0x00a2}
0x3a70…3a9c Head {h00=0x0028, h01=0x0050, text=» SET TTSUMFLG INDICATE SUM ON SCREEN«, t00=0x0025, t01=0x00ae}
0x3a9c…3ac0 Head {h00=0x0020, h01=0x0050, text=» SET GTCYFLG INDICATE CYCLE «, t00=0x0025, t01=0x00da}
0x3ac0…3b04 Head {h00=0x0040, h01=0x0050, text=» TBF TTPSEFLG,CY30 TRUE- PAUSE STATE«, t00=0x0025, t01=0x00fe}
0x3b04…3b44 Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,GTCYSUM GET SAVED SUM«, t00=0x0025, t01=0x0142}
0x3b44…3b8e Head {h00=0x0046, h01=0x0050, text=» MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR «, t00=0x0025, t01=0x0182}
0x3b8e…3bae Head {h00=0x001c, h01=0x0050, text=» CBG GTPSELIN,CBIN0,CY20«, t00=0x0026, t01=0x003c}
0x3bae…3bde Head {h00=0x002c, h01=0x0050, text=» MOVE GTPSELIN,TTCYKST RESET START LINE «, t00=0x0026, t01=0x005c}
0x3bde…3bfc Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTCYKST«, t00=0x0026, t01=0x008c}
0x3bfc…3c08 Head {h00=0x0008, h01=0x0050, text=»CY20«, t00=0x0026, t01=0x00aa}
0x3c08…3c26 Head {h00=0x001a, h01=0x0050, text=» MOVE TTLINNR,GTPSELIN«, t00=0x0026, t01=0x00b6}
0x3c26…3c6c Head {h00=0x0042, h01=0x0050, text=» CLEAR TTPSEFLG OUT OF PAUSE STATE «, t00=0x0026, t01=0x00d4}
0x3c6c…3c7c Head {h00=0x000c, h01=0x0050, text=» B CY90 «, t00=0x0026, t01=0x011a}
0x3c7c…3c88 Head {h00=0x0008, h01=0x0050, text=»CY30«, t00=0x0026, t01=0x012a}
0x3c88…3cba Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES «, t00=0x0026, t01=0x0136}
0x3cba…3cd6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYSUM,=D'0' «, t00=0x0026, t01=0x0168}
0x3cd6…3cfa Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x0026, t01=0x0184}
0x3cfa…3d16 Head {h00=0x0018, h01=0x0050, text=» MOVE TTCYKTOT,=D'0'«, t00=0x0027, t01=0x0018}
0x3d16…3d3c Head {h00=0x0022, h01=0x0050, text=» MOVE TTLINNR,=D'1'«, t00=0x0027, t01=0x0034}
0x3d3c…3d88 Head {h00=0x0048, h01=0x0050, text=» PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF«, t00=0x0027, t01=0x005a}
0x3d88…3da6 Head {h00=0x001a, h01=0x0050, text=» SET SPPROMPT «, t00=0x0027, t01=0x00a6}
0x3da6…3df2 Head {h00=0x0048, h01=0x0050, text=» PERF SPCLRA WRITE AND READ ON SCREEN «, t00=0x0027, t01=0x00c4}
0x3df2…3e12 Head {h00=0x001c, h01=0x0050, text=» CLEAR SPPROMPT «, t00=0x0027, t01=0x0110}
0x3e12…3e42 Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,CY45,CY45,CY50 «, t00=0x0027, t01=0x0130}
0x3e42…3e5a Head {h00=0x0014, h01=0x0050, text=»CY40 ERROR KEY«, t00=0x0027, t01=0x0160}
0x3e5a…3e76 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'4' «, t00=0x0027, t01=0x0178}
0x3e76…3e94 (40, 0, 400) Head {h00=0x001a, h01=0x0050, text=» PERF SPERR«, t00=0x0028, t01=0x0004}
0x3e94…3eb2 Head {h00=0x001a, h01=0x0050, text=» B CY30 «, t00=0x0028, t01=0x0022}
0x3eb2…3ec4 Head {h00=0x000e, h01=0x0050, text=»CY45 MAK«, t00=0x0028, t01=0x0040}
0x3ec4…3edc Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY1FLG «, t00=0x0028, t01=0x0052}
0x3edc…3ef4 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTCY2FLG «, t00=0x0028, t01=0x006a}
0x3ef4…3f04 Head {h00=0x000c, h01=0x0050, text=» B CY05 «, t00=0x0028, t01=0x0082}
0x3f04…3f10 Head {h00=0x0008, h01=0x0050, text=»CY50«, t00=0x0028, t01=0x0092}
0x3f10…3f30 Head {h00=0x001c, h01=0x0050, text=» CBL TTLINNR,=D'25',CY55«, t00=0x0028, t01=0x009e}
0x3f30…3f4c Head {h00=0x0018, h01=0x0050, text=» MOVE TTLINNR,=D'1' «, t00=0x0028, t01=0x00be}
0x3f4c…3f58 Head {h00=0x0008, h01=0x0050, text=»CY55«, t00=0x0028, t01=0x00da}
0x3f58…3f76 Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,TTLINNR «, t00=0x0028, t01=0x00e6}
0x3f76…3f8a Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x0028, t01=0x0104}
0x3f8a…3fba Head {h00=0x002c, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 FIND LINNE NUMBER «, t00=0x0028, t01=0x0118}
0x3fba…3fd6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUM,GTCYSUM «, t00=0x0028, t01=0x0148}
0x3fd6…3ffa Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTREGF(CBIN9)«, t00=0x0028, t01=0x0164}
0x3ffa…4018 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKST,TTLINNR «, t00=0x0028, t01=0x0188}
0x4018…4036 Head {h00=0x001a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR«, t00=0x0029, t01=0x0016}
0x4036…4052 Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYIN,TTASKNR«, t00=0x0029, t01=0x0034}
0x4052…406c Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0029, t01=0x0050}
0x406c…4088 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0029, t01=0x006a}
0x4088…40a2 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0029, t01=0x0086}
0x40a2…40be Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0029, t01=0x00a0}
0x40be…40ca Head {h00=0x0008, h01=0x0050, text=»CY90«, t00=0x0029, t01=0x00bc}
0x40ca…40e0 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0029, t01=0x00c8}
0x40e0…40fa Head {h00=0x0016, h01=0x0050, text=» TBT CCYWRTF,CY95 «, t00=0x0029, t01=0x00de}
0x40fa…4112 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYWRTF «, t00=0x0029, t01=0x00f8}
0x4112…411e Head {h00=0x0008, h01=0x0050, text=»CY95«, t00=0x0029, t01=0x0110}
0x411e…4132 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0029, t01=0x011c}
0x4132…4148 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x0130}
0x4148…4156 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0146}
0x4156…4168 Head {h00=0x000e, h01=0x0050, text=»CYCLR PROC«, t00=0x0029, t01=0x0154}
0x4168…4184 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0029, t01=0x0166}
0x4184…418e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0182}
0x418e…41c0 Head {h00=0x002e, h01=0x0050, text=»** CYCLR - CLEAR CYCLEINFORMATION «, t00=0x0029, t01=0x018c}
0x41c0…41ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x002e}
0x41ca…41e4 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x002a, t01=0x0038}
0x41e4…420a Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002a, t01=0x0052}
0x420a…422e Head {h00=0x0020, h01=0x0050, text=» MOVE TTCYM,=C' '«, t00=0x002a, t01=0x0078}
0x422e…425a Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN9),=D'0'«, t00=0x002a, t01=0x009c}
0x425a…427e Head {h00=0x0020, h01=0x0050, text=» MOVE GTSUM,=D'0'«, t00=0x002a, t01=0x00c8}
0x427e…429e Head {h00=0x001c, h01=0x0050, text=» CLEAR GTCYFLG«, t00=0x002a, t01=0x00ec}
0x429e…42c0 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002a, t01=0x010c}
0x42c0…42d8 Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x002a, t01=0x012e}
0x42d8…42f0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTCYTRPF «, t00=0x002a, t01=0x0146}
0x42f0…431a Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x002a, t01=0x015e}
0x431a…4326 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0188}
0x4326…433c (43, 0, 400) Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0004}
0x433c…4352 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x001a}
0x4352…4366 Head {h00=0x0010, h01=0x0050, text=»LSTINT PROC «, t00=0x002b, t01=0x0030}
0x4366…4382 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x0044}
0x4382…438c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0060}
0x438c…43bc Head {h00=0x002c, h01=0x0050, text=»** LSTINT - INITIATE LISTFUNCTION «, t00=0x002b, t01=0x006a}
0x43bc…43c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009a}
0x43c6…43e2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002b, t01=0x00a4}
0x43e2…43fe Head {h00=0x0018, h01=0x0050, text=» TBT GTCYFLG,LSTNOK «, t00=0x002b, t01=0x00c0}
0x43fe…4426 Head {h00=0x0024, h01=0x0050, text=» TBT TTLSTFLG,LSTEND«, t00=0x002b, t01=0x00dc}
0x4426…443a Head {h00=0x0010, h01=0x0050, text=»* FIRST TIME«, t00=0x002b, t01=0x0104}
0x443a…445c Head {h00=0x001e, h01=0x0050, text=» SET TTSUMFLG «, t00=0x002b, t01=0x0118}
0x445c…447e Head {h00=0x001e, h01=0x0050, text=» SET TTLSTFLG «, t00=0x002b, t01=0x013a}
0x447e…44be Head {h00=0x003c, h01=0x0050, text=» MOVE GTSUM,=D'0' INITIATE SUM «, t00=0x002b, t01=0x015c}
0x44be…450a Head {h00=0x0048, h01=0x0050, text=» PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL«, t00=0x002c, t01=0x000c}
0x450a…4550 Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x002c, t01=0x0058}
0x4550…457a Head {h00=0x0026, h01=0x0050, text=» MOVE GTTEXT,=C'LISTE '«, t00=0x002c, t01=0x009e}
0x457a…458a Head {h00=0x000c, h01=0x0050, text=» B LSTOK«, t00=0x002c, t01=0x00c8}
0x458a…459e Head {h00=0x0010, h01=0x0050, text=»* LAST TIME «, t00=0x002c, t01=0x00d8}
0x459e…45ac Head {h00=0x000a, h01=0x0050, text=»LSTEND«, t00=0x002c, t01=0x00ec}
0x45ac…45c0 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x002c, t01=0x00fa}
0x45c0…45dc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x002c, t01=0x010e}
0x45dc…45fe Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'TOTAL '«, t00=0x002c, t01=0x012a}
0x45fe…4630 Head {h00=0x002e, h01=0x0050, text=» PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY«, t00=0x002c, t01=0x014c}
0x4630…4650 Head {h00=0x001c, h01=0x0050, text=» PERF WTALLY «, t00=0x002c, t01=0x017e}
0x4650…466c Head {h00=0x0018, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8«, t00=0x002d, t01=0x000e}
0x466c…468e Head {h00=0x001e, h01=0x0050, text=» CLEAR TTLSTFLG «, t00=0x002d, t01=0x002a}
0x468e…46b0 Head {h00=0x001e, h01=0x0050, text=» CLEAR TTSUMFLG «, t00=0x002d, t01=0x004c}
0x46b0…46d6 Head {h00=0x0022, h01=0x0050, text=» MOVE GTTEXT,=C' ' «, t00=0x002d, t01=0x006e}
0x46d6…46e4 Head {h00=0x000a, h01=0x0050, text=»LSTOK «, t00=0x002d, t01=0x0094}
0x46e4…46f8 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x002d, t01=0x00a2}
0x46f8…471e Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x002d, t01=0x00b6}
0x471e…472a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00dc}
0x472a…4738 Head {h00=0x000a, h01=0x0050, text=»LSTNOK«, t00=0x002d, t01=0x00e8}
0x4738…4760 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x002d, t01=0x00f6}
0x4760…4774 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x002d, t01=0x011e}
0x4774…478a Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x0132}
0x478a…47a0 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0148}
0x47a0…47b6 Head {h00=0x0012, h01=0x0050, text=»SUBTOT PROC «, t00=0x002d, t01=0x015e}
0x47b6…47d2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x002d, t01=0x0174}
0x47d2…47dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0190}
0x47dc…47fe Head {h00=0x001e, h01=0x0050, text=»** SUBTOT - SUBTOTAL«, t00=0x002e, t01=0x000a}
0x47fe…4808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x002c}
0x4808…4842 Head {h00=0x0036, h01=0x0050, text=»** LISTFUNCTION- WRITE SUBTOTAL ON TALLY «, t00=0x002e, t01=0x0036}
0x4842…484c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0070}
0x484c…4882 Head {h00=0x0032, h01=0x0050, text=»** CYCLEFUNCTION- SAVE CYCLE INFORMATION«, t00=0x002e, t01=0x007a}
0x4882…48aa Head {h00=0x0024, h01=0x0050, text=»** WRITE SUBTOTAL «, t00=0x002e, t01=0x00b0}
0x48aa…48d8 Head {h00=0x002a, h01=0x0050, text=»** IN CYCLE-PAUSE-STATE «, t00=0x002e, t01=0x00d8}
0x48d8…48e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0106}
0x48e2…48fe Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x0110}
0x48fe…4922 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SUBTOTAL ' «, t00=0x002e, t01=0x012c}
0x4922…4966 Head {h00=0x0040, h01=0x0050, text=» TBT TTLSTFLG,SUBTLST IN LIST FUNCTION «, t00=0x002e, t01=0x0150}
0x4966…498c (47, 0, 400) Head {h00=0x0022, h01=0x0050, text=» TBT GTCYFLG,SUBTCYC IN CYCLE «, t00=0x002f, t01=0x0004}
0x498c…49b0 Head {h00=0x0020, h01=0x0050, text=» TBF GTSUMKEY,SUBTNOK IN SUM«, t00=0x002f, t01=0x002a}
0x49b0…49ca Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN SUM «, t00=0x002f, t01=0x004e}
0x49ca…49e0 Head {h00=0x0012, h01=0x0050, text=» SET GTSUBFLG «, t00=0x002f, t01=0x0068}
0x49e0…49f2 Head {h00=0x000e, h01=0x0050, text=» PERF SUM «, t00=0x002f, t01=0x007e}
0x49f2…4a0a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUBFLG «, t00=0x002f, t01=0x0090}
0x4a0a…4a1e Head {h00=0x0010, h01=0x0050, text=» B SUBTOK10 «, t00=0x002f, t01=0x00a8}
0x4a1e…4a3a Head {h00=0x0018, h01=0x0050, text=»* SET PAUSE IN CYCLE«, t00=0x002f, t01=0x00bc}
0x4a3a…4a4a Head {h00=0x000c, h01=0x0050, text=»SUBTCYC «, t00=0x002f, t01=0x00d8}
0x4a4a…4a5e Head {h00=0x0010, h01=0x0050, text=» PERF CYOUT «, t00=0x002f, t01=0x00e8}
0x4a5e…4a94 Head {h00=0x0032, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR«, t00=0x002f, t01=0x00fc}
0x4a94…4ad6 Head {h00=0x003e, h01=0x0050, text=» SET TTPSEFLG INDICATE BREAK «, t00=0x002f, t01=0x0132}
0x4ad6…4b02 Head {h00=0x0028, h01=0x0050, text=» PERF FRMXVO,CBIN3 GET SUBTOT FORMAT«, t00=0x002f, t01=0x0174}
0x4b02…4b18 Head {h00=0x0012, h01=0x0050, text=» SET GTCYWRTF «, t00=0x0030, t01=0x0010}
0x4b18…4b5c Head {h00=0x0040, h01=0x0050, text=» PERF WRITVO WRITE SUBTOT LINE«, t00=0x0030, t01=0x0026}
0x4b5c…4b70 Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0030, t01=0x006a}
0x4b70…4bb4 Head {h00=0x0040, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x0030, t01=0x007e}
0x4bb4…4bf0 Head {h00=0x0038, h01=0x0050, text=» MOVE GTCYSUM,GTSUM SAVE SUM «, t00=0x0030, t01=0x00c2}
0x4bf0…4c0a Head {h00=0x0016, h01=0x0050, text=» SUB TTLINNR,=D'4'«, t00=0x0030, t01=0x00fe}
0x4c0a…4c48 Head {h00=0x003a, h01=0x0050, text=» MOVE TTCYKPOS,TTLINNR SAVE LINNR «, t00=0x0030, t01=0x0118}
0x4c48…4c66 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPSELIN,TTLINNR«, t00=0x0030, t01=0x0156}
0x4c66…4c92 Head {h00=0x0028, h01=0x0050, text=» MOVE GTCYIN,TTASKNR INITIATE CYSET «, t00=0x0030, t01=0x0174}
0x4c92…4cac Head {h00=0x0016, h01=0x0050, text=» SUB GTCYIN,CBIN1 «, t00=0x0031, t01=0x0010}
0x4cac…4cc8 Head {h00=0x0018, h01=0x0050, text=» MUL GTCYIN,CCYSIZE «, t00=0x0031, t01=0x002a}
0x4cc8…4ce2 Head {h00=0x0016, h01=0x0050, text=» ADD GTCYIN,CBIN1 «, t00=0x0031, t01=0x0046}
0x4ce2…4cfe Head {h00=0x0018, h01=0x0050, text=» MOVE GTCYOUT,GTCYIN«, t00=0x0031, t01=0x0060}
0x4cfe…4d12 Head {h00=0x0010, h01=0x0050, text=» PERF CYCLR «, t00=0x0031, t01=0x007c}
0x4d12…4d24 Head {h00=0x000e, h01=0x0050, text=» B SUBTOK «, t00=0x0031, t01=0x0090}
0x4d24…4d3e Head {h00=0x0016, h01=0x0050, text=»* SUBTOTAL IN LIST«, t00=0x0031, t01=0x00a2}
0x4d3e…4d4e Head {h00=0x000c, h01=0x0050, text=»SUBTLST «, t00=0x0031, t01=0x00bc}
0x4d4e…4d62 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0031, t01=0x00cc}
0x4d62…4d7e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,GTSUM «, t00=0x0031, t01=0x00e0}
0x4d7e…4da4 Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN3 GET FORMAT «, t00=0x0031, t01=0x00fc}
0x4da4…4dea Head {h00=0x0042, h01=0x0050, text=» PERF WTALLY WRITE ON TALLY ROLL«, t00=0x0031, t01=0x0122}
0x4dea…4df8 Head {h00=0x000a, h01=0x0050, text=»SUBTOK«, t00=0x0031, t01=0x0168}
0x4df8…4e22 Head {h00=0x0026, h01=0x0050, text=» ERASE 0,CBIN8,CBIN8 ERASE LINE 8 «, t00=0x0031, t01=0x0176}
0x4e22…4e36 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0032, t01=0x0010}
0x4e36…4e46 Head {h00=0x000c, h01=0x0050, text=»SUBTOK10«, t00=0x0032, t01=0x0024}
0x4e46…4e6c Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0032, t01=0x0034}
0x4e6c…4e78 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x005a}
0x4e78…4e88 Head {h00=0x000c, h01=0x0050, text=»SUBTNOK «, t00=0x0032, t01=0x0066}
0x4e88…4eb0 Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0032, t01=0x0076}
0x4eb0…4ec4 Head {h00=0x0010, h01=0x0050, text=» RET «, t00=0x0032, t01=0x009e}
0x4ec4…4ed2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x00b2}
0x4ed2…4ee0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00c0}
0x4ee0…4ef0 Head {h00=0x000c, h01=0x0050, text=»SUM PROC«, t00=0x0032, t01=0x00ce}
0x4ef0…4f0c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0032, t01=0x00de}
0x4f0c…4f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00fa}
0x4f16…4f50 Head {h00=0x0036, h01=0x0050, text=»** SUM - PROCEDURE FOR SUMMING UP FOR ALL «, t00=0x0032, t01=0x0104}
0x4f50…4f84 Head {h00=0x0030, h01=0x0050, text=»** TRANSACTIONS FROM THE INITIATING «, t00=0x0032, t01=0x013e}
0x4f84…4fae Head {h00=0x0026, h01=0x0050, text=»** POINT TO THE RELEASING.«, t00=0x0032, t01=0x0172}
0x4fae…4fd8 Head {h00=0x0026, h01=0x0050, text=»** FIRST TIME: INITIATING «, t00=0x0033, t01=0x000c}
0x4fd8…500c Head {h00=0x0030, h01=0x0050, text=»** LAST TIME: WRITE SUM ON VOUCHER «, t00=0x0033, t01=0x0036}
0x500c…5016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x006a}
0x5016…5032 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0033, t01=0x0074}
0x5032…504e Head {h00=0x0018, h01=0x0050, text=» TBT GTSUMKEY,SUM50 «, t00=0x0033, t01=0x0090}
0x504e…5066 Head {h00=0x0014, h01=0x0050, text=»* FIRST TIME«, t00=0x0033, t01=0x00ac}
0x5066…509a Head {h00=0x0030, h01=0x0050, text=» PERF WRITJT,=W'3' WRITE START SUM FUNCTION «, t00=0x0033, t01=0x00c4}
0x509a…50a8 Head {h00=0x000a, h01=0x0050, text=»SUM10 «, t00=0x0033, t01=0x00f8}
0x50a8…50c4 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C'*'«, t00=0x0033, t01=0x0106}
0x50c4…50da Head {h00=0x0012, h01=0x0050, text=» SET GTSUMKEY «, t00=0x0033, t01=0x0122}
0x50da…50f6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTSUMST,TTLBNR«, t00=0x0033, t01=0x0138}
0x50f6…5126 Head {h00=0x002c, h01=0x0050, text=» ADD GTSUMST,=D'1' INITIATE FIRST NUMBER«, t00=0x0033, t01=0x0154}
0x5126…5150 Head {h00=0x0026, h01=0x0050, text=» MOVE GTSUMCNT,=D'0' INITIATE SUM «, t00=0x0033, t01=0x0184}
0x5150…5160 Head {h00=0x000c, h01=0x0050, text=» B SUMOK«, t00=0x0034, t01=0x001e}
0x5160…516a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002e}
0x516a…5182 Head {h00=0x0014, h01=0x0050, text=»* LAST TIME «, t00=0x0034, t01=0x0038}
0x5182…5190 Head {h00=0x000a, h01=0x0050, text=»SUM50 «, t00=0x0034, t01=0x0050}
0x5190…51c2 Head {h00=0x002e, h01=0x0050, text=» PERF WRITJT,=W'4' WRITE SLUT SUM FUNCTION«, t00=0x0034, t01=0x005e}
0x51c2…51de Head {h00=0x0018, h01=0x0050, text=» TBT GTSUBFLG,SUM60 «, t00=0x0034, t01=0x0090}
0x51de…51fa Head {h00=0x0018, h01=0x0050, text=» MOVE TTSUMMRK,=C' '«, t00=0x0034, t01=0x00ac}
0x51fa…5212 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSUMKEY «, t00=0x0034, t01=0x00c8}
0x5212…5220 Head {h00=0x000a, h01=0x0050, text=»SUM60 «, t00=0x0034, t01=0x00e0}
0x5220…524c Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0034, t01=0x00ee}
0x524c…5272 Head {h00=0x0022, h01=0x0050, text=» TBF GTCYFLG,SUM70 IF IN CYCLE«, t00=0x0034, t01=0x011a}
0x5272…528c Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0034, t01=0x0140}
0x528c…52b4 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD5,TTLINNR SAVE LINNR«, t00=0x0034, t01=0x015a}
0x52b4…52cc Head {h00=0x0014, h01=0x0050, text=» CLEAR TTTSTFLG «, t00=0x0034, t01=0x0182}
0x52cc…52da Head {h00=0x000a, h01=0x0050, text=»SUM70 «, t00=0x0035, t01=0x000a}
0x52da…52ee Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0035, t01=0x0018}
0x52ee…5306 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0035, t01=0x002c}
0x5306…531a Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0035, t01=0x0044}
0x531a…532e Head {h00=0x0010, h01=0x0050, text=» BNOK SUM60 «, t00=0x0035, t01=0x0058}
0x532e…5350 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'90',SUM75 «, t00=0x0035, t01=0x006c}
0x5350…5380 Head {h00=0x002c, h01=0x0050, text=» CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? «, t00=0x0035, t01=0x008e}
0x5380…538e Head {h00=0x000a, h01=0x0050, text=»SUM75 «, t00=0x0035, t01=0x00be}
0x538e…53b6 Head {h00=0x0024, h01=0x0050, text=» MOVE TTLINNR,=D'6' SET LINE 26 «, t00=0x0035, t01=0x00cc}
0x53b6…53c4 Head {h00=0x000a, h01=0x0050, text=»SUM80 «, t00=0x0035, t01=0x00f4}
0x53c4…53e2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0035, t01=0x0102}
0x53e2…5402 Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x0035, t01=0x0120}
0x5402…542e Head {h00=0x0028, h01=0x0050, text=» MOVE TTLINNR,GSWBCD5 RESTORE LINNR «, t00=0x0035, t01=0x0140}
0x542e…5448 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN7«, t00=0x0035, t01=0x016c}
0x5448…5466 Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x0035, t01=0x0186}
0x5466…5478 Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0036, t01=0x0014}
0x5478…5496 Head {h00=0x001a, h01=0x0050, text=» DSC0 .NW,KVOUCH,RLEAS«, t00=0x0036, t01=0x0026}
0x5496…54b4 Head {h00=0x001a, h01=0x0050, text=» TBT GTSUBFLG,SUMOK10 «, t00=0x0036, t01=0x0044}
0x54b4…54d0 Head {h00=0x0018, h01=0x0050, text=» TBT GTASUMFL,SUM10 «, t00=0x0036, t01=0x0062}
0x54d0…54de Head {h00=0x000a, h01=0x0050, text=»SUMOK «, t00=0x0036, t01=0x007e}
0x54de…54f2 Head {h00=0x0010, h01=0x0050, text=» PERF SPINF1«, t00=0x0036, t01=0x008c}
0x54f2…5502 Head {h00=0x000c, h01=0x0050, text=»SUMOK10 «, t00=0x0036, t01=0x00a0}
0x5502…5528 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0036, t01=0x00b0}
0x5528…5534 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x00d6}
0x5534…5542 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x00e2}
0x5542…5550 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00f0}
0x5550…5562 Head {h00=0x000e, h01=0x0050, text=»DIVTR PROC«, t00=0x0036, t01=0x00fe}
0x5562…557e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0110}
0x557e…5588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012c}
0x5588…55ba Head {h00=0x002e, h01=0x0050, text=»** DIVTR - SET OR CLEAR DIVTR FLAG«, t00=0x0036, t01=0x0136}
0x55ba…55c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0168}
0x55c4…55e0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0036, t01=0x0172}
0x55e0…55fe Head {h00=0x001a, h01=0x0050, text=» TBT CTRVALG,DIVTRNOK «, t00=0x0036, t01=0x018e}
0x55fe…561a Head {h00=0x0018, h01=0x0050, text=» TBT GTDIVTR,DIVEND «, t00=0x0037, t01=0x001c}
0x561a…5638 Head {h00=0x001a, h01=0x0050, text=»* SET DIVTR «, t00=0x0037, t01=0x0038}
0x5638…564c Head {h00=0x0010, h01=0x0050, text=» SET GTDIVTR«, t00=0x0037, t01=0x0056}
0x564c…5660 Head {h00=0x0010, h01=0x0050, text=» SET GTTRSEL«, t00=0x0037, t01=0x006a}
0x5660…5680 Head {h00=0x001c, h01=0x0050, text=» CBE TTDKDEX,=W'1',DIV10«, t00=0x0037, t01=0x007e}
0x5680…5694 Head {h00=0x0010, h01=0x0050, text=» PERF SETDEB«, t00=0x0037, t01=0x009e}
0x5694…56a6 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x00b2}
0x56a6…56b4 Head {h00=0x000a, h01=0x0050, text=»DIV10 «, t00=0x0037, t01=0x00c4}
0x56b4…56c8 Head {h00=0x0010, h01=0x0050, text=» PERF SETKRE«, t00=0x0037, t01=0x00d2}
0x56c8…56da Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x00e6}
0x56da…56f4 Head {h00=0x0016, h01=0x0050, text=»* CLEAR DIVTR «, t00=0x0037, t01=0x00f8}
0x56f4…5702 Head {h00=0x000a, h01=0x0050, text=»DIVEND«, t00=0x0037, t01=0x0112}
0x5702…5718 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDIVTR«, t00=0x0037, t01=0x0120}
0x5718…5734 Head {h00=0x0018, h01=0x0050, text=» MOVE TTSTYRDX,=W'1'«, t00=0x0037, t01=0x0136}
0x5734…5746 Head {h00=0x000e, h01=0x0050, text=» B DIVTROK«, t00=0x0037, t01=0x0152}
0x5746…5750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0164}
0x5750…5760 Head {h00=0x000c, h01=0x0050, text=»DIVTROK «, t00=0x0037, t01=0x016e}
0x5760…5786 Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x0037, t01=0x017e}
0x5786…5792 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x0014}
0x5792…57a2 Head {h00=0x000c, h01=0x0050, text=»DIVTRNOK«, t00=0x0038, t01=0x0020}
0x57a2…57ca Head {h00=0x0024, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, SET CR<>0 «, t00=0x0038, t01=0x0030}
0x57ca…57d6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x0058}
0x57d6…57e4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x0064}
0x57e4…57ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0072}
0x57ee…57f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007c}
0x57f8…580c Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0038, t01=0x0086}
0x580c…5810 Head {h00=0x4004, h01=0x0000}
0x5810…5814 00 38 00 9a ┆ 8 ┆
0x5814…581c (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x581c…586c (58, 0, 400) 5c 41 33 2c 57 41 43 4b 5c 4c 4f 41 44 20 57 41 43 4b 00 69 01 86 00 0e 00 50 5c 52 46 5c 54 52 44 4c 45 20 00 6a 00 1a 00 06 00 50 2a 20 00 6a 00 2c 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 52 56 49 00 6a 00 36 00 06 00 50 2a 20 00 6a ┆ A3,WACK LOAD WACK i P RF TRDLE j P* j , P* TRANSMIT RVI j 6 P* j┆
0x586c…58bc 00 4c 00 10 00 50 5c 49 46 46 5c 53 54 41 54 3d 30 20 00 6a 00 56 00 1e 00 50 54 52 52 56 49 5c 4c 44 4b 5c 41 33 2c 52 56 49 5c 4c 4f 41 44 20 52 56 49 20 00 6a 00 6a 00 08 00 50 5c 58 49 46 00 6a 00 8c 00 06 00 50 2a 20 00 6a 00 98 00 12 ┆ L P IFF STAT=0 j V PTRRVI LDK A3,RVI LOAD RVI j j P XIF j P* j ┆
0x58bc…590c 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 44 4c 45 00 6a 00 a2 00 06 00 50 2a 20 00 6a 00 b8 00 1e 00 50 54 52 44 4c 45 5c 4c 44 4b 5c 41 32 2c 44 4c 45 5c 4c 4f 41 44 20 44 4c 45 20 00 6a 00 c2 00 22 00 50 5c 53 43 5c 41 32 2c 52 45 53 45 4e ┆ P* TRANSMIT DLE j P* j PTRDLE LDK A2,DLE LOAD DLE j " P SC A2,RESEN┆
0x590c…595c 44 5c 50 55 54 20 49 4e 53 41 56 45 20 41 52 45 41 20 00 6a 00 e4 00 14 00 50 5c 53 43 5c 41 33 2c 52 45 53 45 4e 44 2b 31 5c 00 6a 01 0a 00 0e 00 50 5c 52 46 5c 54 52 52 45 50 20 00 6a 01 22 00 0a 00 50 5c 45 4a 45 43 54 00 6a 01 34 00 06 ┆D PUT INSAVE AREA j P SC A3,RESEND+1 j P RF TRREP j " P EJECT j 4 ┆
0x595c…59ac 00 50 2a 20 00 6a 01 42 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 4e 41 4b 00 6a 01 4c 00 06 00 50 2a 20 00 6a 01 62 00 1e 00 50 54 52 4e 41 4b 5c 4c 44 4b 5c 41 33 2c 4e 41 4b 5c 4c 4f 41 44 20 4e 41 4b 20 00 6a 01 6c 00 0e 00 50 5c 52 ┆ P* j B P* TRANSMIT NAK j L P* j b PTRNAK LDK A3,NAK LOAD NAK j l P R┆
0x59ac…59fc (59, 0, 400) 46 5c 54 52 45 4e 31 30 00 6a 01 8e 00 06 00 50 2a 20 00 6b 00 10 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 45 4f 54 00 6b 00 1a 00 06 00 50 2a 20 00 6b 00 30 00 1e 00 50 54 52 45 4f 54 5c 4c 44 4b 5c 41 33 2c 45 4f 54 5c 4c 4f 41 44 20 ┆F TREN10 j P* k P* TRANSMIT EOT k P* k 0 PTREOT LDK A3,EOT LOAD ┆
0x59fc…5a4c 45 4f 54 20 00 6b 00 3a 00 0e 00 50 5c 52 46 5c 54 52 45 4e 31 30 00 6b 00 5c 00 06 00 50 2a 20 00 6b 00 6e 00 12 00 50 2a 5c 54 52 41 4e 53 4d 49 54 20 45 4e 51 00 6b 00 78 00 06 00 50 2a 20 00 6b 00 8e 00 1e 00 50 54 52 45 4e 51 5c 4c 44 ┆EOT k : P RF TREN10 k P* k n P* TRANSMIT ENQ k x P* k PTRENQ LD┆
0x5a4c…5a9c 4b 5c 41 33 2c 45 4e 51 5c 4c 4f 41 44 20 45 4e 51 20 00 6b 00 98 00 06 00 50 2a 20 00 6b 00 ba 00 28 00 50 54 52 45 4e 31 30 5c 53 43 5c 41 33 2c 52 45 53 45 4e 44 5c 50 55 54 20 49 4e 20 53 41 56 45 20 41 52 45 41 00 6b 00 c4 00 10 00 50 ┆K A3,ENQ LOAD ENQ k P* k ( PTREN10 SC A3,RESEND PUT IN SAVE AREA k P┆
0x5a9c…5aec 5c 4c 44 4b 5c 41 32 2c 2f 46 46 20 00 6b 00 f0 00 14 00 50 5c 53 43 5c 41 32 2c 52 45 53 45 4e 44 2b 31 20 00 6b 01 04 00 24 00 50 54 52 52 45 50 5c 43 46 5c 41 35 2c 54 52 53 59 4e 43 5c 53 54 41 52 54 20 4f 55 54 50 55 54 20 00 6b 01 1c ┆ LDK A2,/FF k P SC A2,RESEND+1 k $ PTRREP CF A5,TRSYNC START OUTPUT k ┆
0x5aec…5b3c 00 26 00 50 5c 4c 43 5c 41 32 2c 52 45 53 45 4e 44 5c 47 45 54 20 46 49 52 53 54 20 43 48 41 52 41 43 54 45 52 20 00 6b 01 44 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 49 54 20 00 6b 01 6e 00 26 00 50 5c 4c 43 5c ┆ & P LC A2,RESEND GET FIRST CHARACTER k D P CF A5,WRITEP SEND IT k n & P LC ┆
0x5b3c…5b8c (60, 0, 400) 41 32 2c 52 45 53 45 4e 44 2b 31 5c 47 45 54 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 00 6b 01 8c 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 49 54 20 00 6c 00 26 00 16 00 50 54 52 52 45 31 30 5c 4c 44 4b 5c 41 ┆A2,RESEND+1 GET NEXT CHARACTER k P CF A5,WRITEP SEND IT l & PTRRE10 LDK A┆
0x5b8c…5bdc 32 2c 2f 46 46 20 00 6c 00 44 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 30 35 5c 53 45 4e 44 20 50 41 44 00 6c 00 5e 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 46 46 20 00 6c 00 7c 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 30 35 20 00 6c ┆2,/FF l D P CF A5,WRIT05 SEND PAD l ^ P LDK A2,/FF l | P CF A5,WRIT05 l┆
0x5bdc…5c2c 00 90 00 16 00 50 5c 4c 44 4b 5c 41 32 2c 30 5c 5c 53 41 4c 43 55 5a 20 00 6c 00 a6 00 24 00 50 5c 43 49 4f 5c 41 32 2c 30 2c 4c 43 55 55 54 5c 53 54 4f 50 20 54 52 41 4e 53 4d 49 54 54 45 52 00 6c 00 c0 00 18 00 50 5c 49 46 54 5c 50 36 38 ┆ P LDK A2,0 SALCUZ l $ P CIO A2,0,LCUUT STOP TRANSMITTER l P IFT P68┆
0x5c2c…5c7c 30 35 3d 31 5c 5c 53 41 4c 43 55 5a 00 6c 00 e8 00 24 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 5c 57 41 49 54 20 46 4f 52 20 45 4e 44 5c 53 41 4c 43 55 5a 20 00 6c 01 04 00 12 00 50 5c 58 49 46 5c 5c 5c 53 41 4c 43 55 5a 20 00 6c 01 2c 00 26 ┆05=1 SALCUZ l $ P CF A5,READ WAIT FOR END SALCUZ l P XIF SALCUZ l , &┆
0x5c7c…5ccc 00 50 5c 53 53 54 5c 41 32 2c 4c 43 55 55 54 5c 50 45 52 46 4f 52 4d 20 53 53 54 20 41 54 20 4f 4e 43 45 20 00 6c 01 42 00 10 00 50 5c 49 46 46 5c 4c 4f 47 47 3d 30 20 00 6c 01 6c 00 28 00 50 5c 43 46 5c 41 35 2c 4c 4f 47 53 53 54 5c 4c 4f ┆ P SST A2,LCUUT PERFORM SST AT ONCE l B P IFF LOGG=0 l l ( P CF A5,LOGSST LO┆