|
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: 14046 (0x36de)
Notes: pts_type(SC)
Names: »RGSUB1.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/RGSUB1.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/RGSUB1.SC«
IDENT RGSUB1 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY SLUT
ENTRY UPDAKK
ENTRY FLDIN
ENTRY FLDTST
EXT PACKST
EXT WRITFD
EXT WRITVO
EXT WRITJT
EXT FRMTJT
EXT FRMXTA
EXT WTALLY
EXT FRMTVO
EXT KTPLAN
EXT SPERR
EXT SPINF8
EXT KFWRIT
EXT KFREAD
INCLUDE EQUATE
EJECT
SLUT PROC
** SLUT - PACKS THE BUFFER
** WRITES TO DISK
** WRITE JOURNAL
** WRITE VOUCHER
** UPDATE ACCUMULATE=ORS
*
TBT TTINVFLG,SLUT30 IF IN MODPOST
* FIND CORRECT ARKIV KONTO NR
MOVE TTDBKRM,=C'K' IF KREDIT
CBE TTDKDEX,CBIN1,SLUT10
MOVE TTDBKRM,=C'D' IF DEBET
SLUT10
TBF GTCYFLG,SLUT30
TBT TTCY2FLG,SLUT30
CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3
CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4
MOVE GTDUPF(CBIN9),TTARKSAV
MOVE GTUSED(CBIN9),CBIN13
CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV?
MOVE TTARKSAV,GTDUPF(CBIN1)
MOVE GTDUPF(CBIN9),TTARKSAV
SLUT30
* INSET REGNSKABS]R IF
* TRANSTYPES 1,2,5,6,7,8,9,10,18,19,28,29
* INDEX 1,2,5,6,7,8,9,10,12,13,14,15
CBG GTREGDEX,CBIN15,SLUT50 > TR 29
CBE GTREGDEX,CBIN11,SLUT50 = TR 12
CBE GTREGDEX,CBIN3,SLUT50 = TR3
CBE GTREGDEX,CBIN4,SLUT50 = TR 4
* TYPES 1,2,5-10,18,29
MOVE GTDUPF(CBIN6),GTDATO GET DATE
CBE GTREGDEX,CBIN10,SLUT35 TRANS10, ALWAYS SUPL YEAR
TBF TTSUPFLG,SLUT40
SLUT35
SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR
SLUT40
MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT
MOVE GTDUPF(CBIN6),TSWBCD2
MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO
SLUT50
*
ADD TTLBNR,=D'1' EKSP. LB. NR
PERF WRITFD
BNOK SLUTNOK
PERF SUMWRT WRITE SUM OR RESTSUM
TBF GTKASSE,SLUT60 ON JOURNAL?
PERF FRMTJT
PERF WRITJT,=W'0'
SLUT60
PERF FRMTVO
PERF WRITVO
* TEST IF IN LISTE
TBF TTLSTFLG,SLUT80
PERF FRMXTA,CBIN4
PERF WTALLY
SLUT80
PERF UPDAKK
SET GTKORTFL
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
SLUT90,SLUT95,SLUT95,SLUT95,SLUT90
SLUT90
CLEAR GTKORTFL
SLUT95
SET TTEORFLG
CLEAR SPME READY FOR FUNCTIONS
CLEAR GTREGFLG
CMP CBIN0,CBIN0 OK, SETCR=0
RET
SLUTNOK
SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER
DISK ERROR
MOVE SPBINW4,CBIN17
CMP CBIN1,CBIN0
RET
PEND
EJECT
SUMWRT PROC
********************
*
** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM
*
********************
TBF TTSUMFLG,SUMRET ONLY IF SUM
TBF GTCYFLG,SUMADD
TBT TTCY2FLG,SUMADD
SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM
ADD TTCYKTOT,GTDUPF(CBIN4)
B SUMOUT
SUMADD
ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM
ADD TTCYKTOT,GTDUPF(CBIN4)
SUMOUT
PERF SPINF8
SUMRET
ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION
RET
PEND
EJECT
UPDAKK PROC
********************
*
* UPDAKK
* ROUTINE FOR UPDATING ACCUMULATORS
*
* TR1-TR10 UPDATES TTACC(IDX1,IDX2)
* IDX1 = TRNR
* IDX2 = DEB/KRE
* TR12 UPDATES TTACC12(IDX1,IDX2)
* IDX1 = TAELLER NR
* IDX2 = DEB/KRE
*
* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2)
* AND IF INVERT TTKORDK(IDX2)
*
********************
CBNE GTREGNR,='12',UPD20
PERF UPDA12 TAELLER 12
B UPDRET
UPD20
CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR
CERTAIN TRANSACTIONS
CBE GTREGDEX,CBIN10,UPD25
TBF TTSUPFLG,UPD30
UPD25
ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4)
UPDATE SUPL COUNTER
UPD30
TBT GTTESTFL,UPD38
* ACCUMULATE 'BEHOLDNINGSTAELLERE'
MOVE GSWBIN1,CBIN1
UPD35
CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO?
CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND?
UPD350
ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4)
ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4)
UPD36
ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER
CBNG GSWBIN1,=W'60',UPD35
UPD38
MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX
ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)
UPDATE ACCUMULATOR
IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT
UPDDB
CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET
ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION
B UPD50
UPDKR
CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT,
ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION
UPD50
CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6
TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE
TBT CWFLAG,UPD55
CBE TTCASHAC,GTDUPF(CBIN1),UPDRET IF KASSEKONTO,NO UPDATE
CBE TVERSUR,GTDUPF(CBIN1),UPDRET IF VERSUR, NO UPDATE
UPD55
SUB TTCASH,GTDUPF(CBIN4) UPDATE CASH
TBF GTBDTFLG,UPD60
* UPDATE FOR TRANS 28,29 VERSUR KONTO
MOVE GSWBIN3,CBIN3
SUB GSWBIN3,TTDKDEX
MOVE GSWBIN7,GTLEVBFO
CBL GSWBIN7,CBIN5,UPD57
SUB GSWBIN7,CBIN5
UPD57
PERF KFREAD,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL
SUB GTKFVAL,GTDUPF(CBIN4)
PERF KFWRIT,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL
B UPDRET
UPD60
TBF GTSTRFLG,UPDRET
* UPDATE FOR TRANS 18/19, PENGE KONTO - ST
PERF KFREAD,CBIN2,CBIN1,CBIN0,GTKFVAL
SUB GTKFVAL,GTDUPF(CBIN4)
PERF KFWRIT,CBIN2,CBIN1,CBIN0,GTKFVAL
B UPDRET
UPDRET
RET
PEND
EJECT
UPDA12 PROC
********************
*
* UPDA12 - UPDATE FOR TR12
*
********************
MOVE GSWBIN1,TTCNTNR TAELLER NR
SUB GSWBIN1,=W'100' GET INDEX
ADD GSWBIN1,CTR12(TTASKNR,CBIN1)
ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)
ADD TTEJEDB,GTDUPF(CBIN4)
MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT
MOVE GSWBIN7,GSWBIN1
PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED
MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX)
PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL
RET
PEND
EJECT
FLDTST PROC
********************
*
* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT
* FELT AFHAENGIGHEDS TEST
*
********************
PERF PACKST,CBINMAX CLEAR UNUSED FIELDS
IB GTREGDEX, C
FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C
FLDTOK,FLDTOK,FLDT08,FLDTOK,FLDT10, C
FLDTOK,FLDT18,FLDT19,FLDT28,FLDT29, C
FLDTOK,FLDTOK,FLDTOK,FLDT45, C
FLDT45,FLDT45,FLDTOK,FLDTOK,FLDT50, C
FLDT50,FLDT52,FLDT53,FLDT54
FLDT03
CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16?
* YES, RTE/GEB, INSERT TEXT IN TT16TXT
MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD
CBNE GSWBCD3,=D'0',FLDT031
MOVE TT16TXT,=C'RAT' IF = 0
B FLDT035
FLDT031
CBNE GSWBCD3,=D'1',FLDT032
MOVE TT16TXT,=C'RTE' IF = 1
B FLDT035
FLDT032
CBNE GSWBCD3,=D'2',FLDT035
MOVE TT16TXT,=C'GEB' IF = 2
FLDT035
TEST CFLT48
BZ FLDTOK BRANCH IF FALSE
CMP GTUSED(CBIN15),=W'0'
BNE FLDTOK FIELD 48 USED
TBT C167FLG,FLDT038
CMP GTDUPF(CBIN3),=D'21'
BL FLDT037
CMP GTDUPF(CBIN3),=D'26'
BL FLDTOK BKO = 21-25
FLDT037
CMP GTDUPF(CBIN3),=D'46'
BE FLDTOK BKO=46
CMP GTDUPF(CBIN3),=D'56'
BE FLDTOK BKO=56
B FLDT039 END ODENSE
FLDT038 HVIDOVRE
CMP GTDUPF(CBIN3),=D'46'
BNE FLDTOK BKO <> 46
FLDT039
MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED
MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1
B FLDTOK
*
FLDT04
TBT BCPR,FLDT041 CIR
CMP GTUSED(CBIN10),=W'0'
BE FLDTOK FIELD 17 (INDEX 10)
B FLDTNOK
FLDT041 CPR
PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20
CMP GSWBIN1,=W'0'
BNE FLDTNOK
CMP GTUSED(CBIN10),=W'0'
BNE FLDTOK
B FLDTNOK
*
FLDT08
TEST CFLT46
BZ FLDTOK
CMP GTUSED(CBIN17),=W'0'
BNE FLDTOK FIELD 46 USED
MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED
MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1
B FLDTOK
*
FLDT10
MOVE GSWBIN1,GTKTTYP
IB GSWBIN1, C
FLDT105,FLDT105,FLDT102,FLDT108,FLDT108
FLDT102
B FLDTOK
FLDT105
CMP GTUSED(CBIN2),=W'0'
BNE FLDTOK
B FLDTNOK
FLDT108
CMP GTUSED(CBIN2),=W'0'
BNE FLDTOK
MOVE SPBINW4,=W'26'
PERF SPERR
CMP SPBINW2,CBIN2
BE FLDTOK KOR-KEY
MOVE SPBINW4,=W'0'
B FLDTNOK NOT KOR-KEY
FLDT28
FLDT29
CBE GTUSED(CBIN7),CBIN0,FLDT281
B FLDT18 VALOR OK
FLDT281 INSERT VALOR DATO
MOVE GTDUPF(CBIN7),GTDATO
MOVE GTUSED(CBIN7),CBIN11
B FLDT18
FLDT18
FLDT19
MOVE GTUSED(CBIN3),CBIN7 SET BKO=95
MOVE GTDUPF(CBIN3),=D'95'
* FOLLOWING FIELDS ARE ONLY USED LOCALLY (NOT TO KMD)
MOVE GTUSED(CBIN13),CBIN0 NR-1
MOVE GTUSED(CBIN14),CBIN0 NR-2
MOVE GTUSED(CBIN15),CBIN0 TXT
MOVE GTUSED(CBIN18),CBIN0 DATO-1
MOVE GTUSED(CBIN19),CBIN0 DATO-2
B FLDTOK
*
FLDT45
MOVE GSWBCD1,CMASKDAT DDMMYY
MOVE GSWBCD2,CMASKDAT
DIV GSWBCD2,=D'100' DDMM
MUL GSWBCD2,=D'100' DDMM00
SUB GSWBCD1,GSWBCD2 YY
MOVE GSWBCD2,GTREGF(CBIN16) (YY-1,YY,YY+1)
ADD GSWBCD2,=D'3' ADJUST FOR FLTDEX
SUB GSWBCD2,GSWBCD1
MOVE GSWBIN1,GSWBCD2
MOVE GTREGF(GSWBIN1),GTREGF(CBIN17) MOVE AMOUNT
MOVE GTUSED(GSWBIN1),CBIN1
MOVE GTUSED(CBIN15),CBIN0
MOVE GTUSED(CBIN16),CBIN0
MOVE GTUSED(CBIN17),CBIN0
MOVE GTUSED(CBIN18),CBIN0
MOVE GTUSED(CBIN19),CBIN0
MOVE GTUSED(CBIN20),CBIN0
MOVE GTUSED(CBIN21),CBIN0
B FLDTOK
*
FLDT50
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBE GSWBIN1,=W'1',FLDTOK
B FLDTNOK
*
FLDT52
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBNE GSWBIN1,=W'1',FLDTNOK
PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40
CBE GSWBIN1,=W'2',FLDT525
PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45
CBNE GSWBIN1,=W'0',FLDTNOK
FLDT525
CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46
CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43
FLDT527
CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
B FLDTOK
*
FLDT53
CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47
PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45
CBNE GSWBIN1,=W'0',FLDTNOK
FLDT535
CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40
CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47
FLDT537
CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
B FLDTOK
*
FLDT54
CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28
CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48
B FLDTOK
*
FLDTOK
CMP CBIN0,CBIN0 SET CR=0 OK
RET
*
FLDTNOK
CMP CBIN0,CBIN1 SET CR <> 0 NOT OK
RET
PEND
EJECT
FLDIN PROC FML1,FML2,FML3,FML4
********************
*
* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS
* (GIVEN BY INDEX) ARE PRESENT
* OUTPUT IN GSWBIN1
*
********************
MOVE GSWBIN1,=W'0'
CBE FML1,=W'0',FLD5
CBE GTUSED(FML1),=W'0',FLD1
ADD GSWBIN1,=W'1'
FLD1
CBE FML2,=W'0',FLD5
CBE GTUSED(FML2),=W'0',FLD2
ADD GSWBIN1,=W'1'
FLD2
CBE FML3,=W'0',FLD5
CBE GTUSED(FML3),=W'0',FLD3
ADD GSWBIN1,=W'1'
FLD3
CBE FML4,=W'0',FLD5
CBE GTUSED(FML4),=W'0',FLD5
ADD GSWBIN1,=W'1'
FLD5
RET
PEND
*
*
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUB1 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» ENTRY SLUT «, t00=0x0000, t01=0x005a}
0x006a…0080 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDAKK «, t00=0x0000, t01=0x006e}
0x0080…0094 Head {h00=0x0010, h01=0x0050, text=» ENTRY FLDIN«, t00=0x0000, t01=0x0084}
0x0094…00aa Head {h00=0x0012, h01=0x0050, text=» ENTRY FLDTST «, t00=0x0000, t01=0x0098}
0x00aa…00be Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00ae}
0x00be…00de Head {h00=0x001c, h01=0x0050, text=» EXT WRITFD «, t00=0x0000, t01=0x00c2}
0x00de…00fe Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0000, t01=0x00e2}
0x00fe…011e Head {h00=0x001c, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x0102}
0x011e…0132 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x0122}
0x0132…0146 Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x0136}
0x0146…015a Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x014a}
0x015a…016e Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0000, t01=0x015e}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0000, t01=0x0172}
0x0182…0194 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x0186}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF8 «, t00=0x0001, t01=0x0008}
0x01a8…01bc Head {h00=0x0010, h01=0x0050, text=» EXT KFWRIT «, t00=0x0001, t01=0x001c}
0x01bc…01d0 Head {h00=0x0010, h01=0x0050, text=» EXT KFREAD «, t00=0x0001, t01=0x0030}
0x01d0…01e8 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0044}
0x01e8…01f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x005c}
0x01f6…020c Head {h00=0x0012, h01=0x0050, text=»SLUT PROC «, t00=0x0001, t01=0x006a}
0x020c…022e Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x0080}
0x022e…0248 Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00a2}
0x0248…0260 Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00bc}
0x0260…0278 Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x00d4}
0x0278…0298 Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x00ec}
0x0298…02a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a2…02cc Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x0116}
0x02cc…02fa Head {h00=0x002a, h01=0x0050, text=»* FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0140}
0x02fa…0320 Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0001, t01=0x016e}
0x0320…0342 (2, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x0004}
0x0342…0366 Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x0026}
0x0366…0374 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x004a}
0x0374…0390 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x0058}
0x0390…03ac Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x0074}
0x03ac…03da Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x0090}
0x03da…0408 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00be}
0x0408…042c Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x00ec}
0x042c…044e Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0110}
0x044e…047c Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x0132}
0x047c…04a0 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0002, t01=0x0160}
0x04a0…04c4 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x0184}
0x04c4…04d2 Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x0018}
0x04d2…04f0 Head {h00=0x001a, h01=0x0050, text=»* INSET REGNSKABS]R IF«, t00=0x0003, t01=0x0026}
0x04f0…0522 Head {h00=0x002e, h01=0x0050, text=»* TRANSTYPES 1,2,5,6,7,8,9,10,18,19,28,29«, t00=0x0003, t01=0x0044}
0x0522…0554 Head {h00=0x002e, h01=0x0050, text=»* INDEX 1,2,5,6,7,8,9,10,12,13,14,15«, t00=0x0003, t01=0x0076}
0x0554…0580 Head {h00=0x0028, h01=0x0050, text=» CBG GTREGDEX,CBIN15,SLUT50 > TR 29 «, t00=0x0003, t01=0x00a8}
0x0580…05ac Head {h00=0x0028, h01=0x0050, text=» CBE GTREGDEX,CBIN11,SLUT50 = TR 12 «, t00=0x0003, t01=0x00d4}
0x05ac…05d4 Head {h00=0x0024, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT50 = TR3«, t00=0x0003, t01=0x0100}
0x05d4…05fe Head {h00=0x0026, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT50 = TR 4 «, t00=0x0003, t01=0x0128}
0x05fe…061c Head {h00=0x001a, h01=0x0050, text=»* TYPES 1,2,5-10,18,29«, t00=0x0003, t01=0x0152}
0x061c…0648 Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO GET DATE «, t00=0x0003, t01=0x0170}
0x0648…0686 Head {h00=0x003a, h01=0x0050, text=» CBE GTREGDEX,CBIN10,SLUT35 TRANS10, ALWAYS SUPL YEAR «, t00=0x0004, t01=0x000c}
0x0686…06a2 Head {h00=0x0018, h01=0x0050, text=» TBF TTSUPFLG,SLUT40«, t00=0x0004, t01=0x004a}
0x06a2…06b0 Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0004, t01=0x0066}
0x06b0…06e0 Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR«, t00=0x0004, t01=0x0074}
0x06e0…06ee Head {h00=0x000a, h01=0x0050, text=»SLUT40«, t00=0x0004, t01=0x00a4}
0x06ee…0724 Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0004, t01=0x00b2}
0x0724…0748 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0004, t01=0x00e8}
0x0748…0778 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO«, t00=0x0004, t01=0x010c}
0x0778…0786 Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0004, t01=0x013c}
0x0786…0790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014a}
0x0790…07b6 Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0004, t01=0x0154}
0x07b6…07d4 Head {h00=0x001a, h01=0x0050, text=» PERF WRITFD «, t00=0x0004, t01=0x017a}
0x07d4…07ea Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0005, t01=0x0008}
0x07ea…0814 Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0005, t01=0x001e}
0x0814…083c Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60 ON JOURNAL?«, t00=0x0005, t01=0x0048}
0x083c…0850 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0005, t01=0x0070}
0x0850…086a Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x0084}
0x086a…0878 Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x009e}
0x0878…088c Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x00ac}
0x088c…08aa Head {h00=0x001a, h01=0x0050, text=» PERF WRITVO «, t00=0x0005, t01=0x00c0}
0x08aa…08c4 Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0005, t01=0x00de}
0x08c4…08e0 Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0005, t01=0x00f8}
0x08e0…08fa Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0005, t01=0x0114}
0x08fa…090e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0005, t01=0x012e}
0x090e…091c Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0005, t01=0x0142}
0x091c…093a Head {h00=0x001a, h01=0x0050, text=» PERF UPDAKK «, t00=0x0005, t01=0x0150}
0x093a…0950 Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0005, t01=0x016e}
0x0950…096e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0005, t01=0x0184}
0x096e…0986 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0006, t01=0x0012}
0x0986…09b2 Head {h00=0x0028, h01=0x0050, text=» SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0006, t01=0x002a}
0x09b2…09c0 Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0006, t01=0x0056}
0x09c0…09d8 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0006, t01=0x0064}
0x09d8…09e6 Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0006, t01=0x007c}
0x09e6…09fc Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0006, t01=0x008a}
0x09fc…0a24 Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0006, t01=0x00a0}
0x0a24…0a3c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0006, t01=0x00c8}
0x0a3c…0a60 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0006, t01=0x00e0}
0x0a60…0a6c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0104}
0x0a6c…0a7c Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0006, t01=0x0110}
0x0a7c…0aaa Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0006, t01=0x0120}
0x0aaa…0ac0 Head {h00=0x0012, h01=0x0050, text=» DISK ERROR «, t00=0x0006, t01=0x014e}
0x0ac0…0adc Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN17«, t00=0x0006, t01=0x0164}
0x0adc…0af4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0006, t01=0x0180}
0x0af4…0b08 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0008}
0x0b08…0b1e Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x001c}
0x0b1e…0b2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0032}
0x0b2c…0b40 Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x0007, t01=0x0040}
0x0b40…0b5c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0054}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0070}
0x0b66…0ba2 Head {h00=0x0038, h01=0x0050, text=»** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x0007, t01=0x007a}
0x0ba2…0bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0bac…0bc8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x00c0}
0x0bc8…0bf0 Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x0007, t01=0x00dc}
0x0bf0…0c0c Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x0007, t01=0x0104}
0x0c0c…0c28 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x0007, t01=0x0120}
0x0c28…0c5e Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x0007, t01=0x013c}
0x0c5e…0c82 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0007, t01=0x0172}
0x0c82…0c94 Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x0008, t01=0x0008}
0x0c94…0ca2 Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x0008, t01=0x001a}
0x0ca2…0cd4 Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x0008, t01=0x0028}
0x0cd4…0cf8 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0008, t01=0x005a}
0x0cf8…0d06 Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x0008, t01=0x007e}
0x0d06…0d1a Head {h00=0x0010, h01=0x0050, text=» PERF SPINF8«, t00=0x0008, t01=0x008c}
0x0d1a…0d28 Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x0008, t01=0x00a0}
0x0d28…0d66 Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x0008, t01=0x00ae}
0x0d66…0d72 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00ec}
0x0d72…0d80 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x00f8}
0x0d80…0d96 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0106}
0x0d96…0dac Head {h00=0x0012, h01=0x0050, text=»UPDAKK PROC «, t00=0x0008, t01=0x011c}
0x0dac…0dc8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0132}
0x0dc8…0dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014e}
0x0dd2…0dea Head {h00=0x0014, h01=0x0050, text=»* UPDAKK «, t00=0x0008, t01=0x0158}
0x0dea…0e1e Head {h00=0x0030, h01=0x0050, text=»* ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x0008, t01=0x0170}
0x0e1e…0e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e28…0e5c Head {h00=0x0030, h01=0x0050, text=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) «, t00=0x0009, t01=0x001e}
0x0e5c…0e80 Head {h00=0x0020, h01=0x0050, text=»* IDX1 = TRNR«, t00=0x0009, t01=0x0052}
0x0e80…0ea6 Head {h00=0x0022, h01=0x0050, text=»* IDX2 = DEB/KRE«, t00=0x0009, t01=0x0076}
0x0ea6…0ed8 Head {h00=0x002e, h01=0x0050, text=»* TR12 UPDATES TTACC12(IDX1,IDX2) «, t00=0x0009, t01=0x009c}
0x0ed8…0f02 Head {h00=0x0026, h01=0x0050, text=»* IDX1 = TAELLER NR«, t00=0x0009, t01=0x00ce}
0x0f02…0f2a Head {h00=0x0024, h01=0x0050, text=»* IDX2 = DEB/KRE «, t00=0x0009, t01=0x00f8}
0x0f2a…0f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f34…0f6c Head {h00=0x0034, h01=0x0050, text=»* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) «, t00=0x0009, t01=0x012a}
0x0f6c…0fa6 Head {h00=0x0036, h01=0x0050, text=»* AND IF INVERT TTKORDK(IDX2)«, t00=0x0009, t01=0x0162}
0x0fa6…0fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000c}
0x0fb0…0fcc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0016}
0x0fcc…0ff8 Head {h00=0x0028, h01=0x0050, text=» CBNE GTREGNR,='12',UPD20«, t00=0x000a, t01=0x0032}
0x0ff8…1036 Head {h00=0x003a, h01=0x0050, text=» PERF UPDA12 TAELLER 12 «, t00=0x000a, t01=0x005e}
0x1036…1056 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000a, t01=0x009c}
0x1056…1064 Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000a, t01=0x00bc}
0x1064…109a Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000a, t01=0x00ca}
0x109a…10ba Head {h00=0x001c, h01=0x0050, text=» CERTAIN TRANSACTIONS «, t00=0x000a, t01=0x0100}
0x10ba…10dc Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,CBIN10,UPD25«, t00=0x000a, t01=0x0120}
0x10dc…10f8 Head {h00=0x0018, h01=0x0050, text=» TBF TTSUPFLG,UPD30 «, t00=0x000a, t01=0x0142}
0x10f8…1106 Head {h00=0x000a, h01=0x0050, text=»UPD25 «, t00=0x000a, t01=0x015e}
0x1106…1136 Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000a, t01=0x016c}
0x1136…1154 Head {h00=0x001a, h01=0x0050, text=» UPDATE SUPL COUNTER«, t00=0x000b, t01=0x000c}
0x1154…1162 Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000b, t01=0x002a}
0x1162…117e Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000b, t01=0x0038}
0x117e…11ac Head {h00=0x002a, h01=0x0050, text=»* ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000b, t01=0x0054}
0x11ac…11c8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000b, t01=0x0082}
0x11c8…11d6 Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000b, t01=0x009e}
0x11d6…1212 Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000b, t01=0x00ac}
0x1212…1250 Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000b, t01=0x00e8}
0x1250…125e Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000b, t01=0x0126}
0x125e…128e Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000b, t01=0x0134}
0x128e…12be Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000b, t01=0x0164}
0x12be…12cc (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000c, t01=0x0004}
0x12cc…12fc Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000c, t01=0x0012}
0x12fc…131e Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000c, t01=0x0042}
0x131e…132c Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000c, t01=0x0064}
0x132c…135e Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000c, t01=0x0072}
0x135e…139c Head {h00=0x003a, h01=0x0050, text=» ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000c, t01=0x00a4}
0x139c…13e2 Head {h00=0x0042, h01=0x0050, text=» UPDATE ACCUMULATOR «, t00=0x000c, t01=0x00e2}
0x13e2…1410 Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x000c, t01=0x0128}
0x1410…141e Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x000c, t01=0x0156}
0x141e…1462 Head {h00=0x0040, h01=0x0050, text=» CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET«, t00=0x000c, t01=0x0164}
0x1462…149c Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x0018}
0x149c…14ac Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x000d, t01=0x0052}
0x14ac…14ba Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x000d, t01=0x0062}
0x14ba…14f6 Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x000d, t01=0x0070}
0x14f6…1530 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x00ac}
0x1530…153e Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x000d, t01=0x00e6}
0x153e…156e Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x000d, t01=0x00f4}
0x156e…15b6 Head {h00=0x0044, h01=0x0050, text=» TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE«, t00=0x000d, t01=0x0124}
0x15b6…15d0 Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD55 «, t00=0x000d, t01=0x016c}
0x15d0…1612 Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPDRET IF KASSEKONTO,NO UPDATE«, t00=0x000d, t01=0x0186}
0x1612…1650 Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPDRET IF VERSUR, NO UPDATE«, t00=0x000e, t01=0x0038}
0x1650…165e Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x000e, t01=0x0076}
0x165e…168c Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) UPDATE CASH «, t00=0x000e, t01=0x0084}
0x168c…16a8 Head {h00=0x0018, h01=0x0050, text=» TBF GTBDTFLG,UPD60 «, t00=0x000e, t01=0x00b2}
0x16a8…16d6 Head {h00=0x002a, h01=0x0050, text=»* UPDATE FOR TRANS 28,29 VERSUR KONTO «, t00=0x000e, t01=0x00ce}
0x16d6…16f2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN3 «, t00=0x000e, t01=0x00fc}
0x16f2…170e Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN3,TTDKDEX«, t00=0x000e, t01=0x0118}
0x170e…172c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GTLEVBFO«, t00=0x000e, t01=0x0134}
0x172c…174c Head {h00=0x001c, h01=0x0050, text=» CBL GSWBIN7,CBIN5,UPD57«, t00=0x000e, t01=0x0152}
0x174c…1766 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN7,CBIN5«, t00=0x000e, t01=0x0172}
0x1766…1774 Head {h00=0x000a, h01=0x0050, text=»UPD57 «, t00=0x000e, t01=0x018c}
0x1774…17a6 Head {h00=0x002e, h01=0x0050, text=» PERF KFREAD,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL«, t00=0x000f, t01=0x000a}
0x17a6…17c8 Head {h00=0x001e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4)«, t00=0x000f, t01=0x003c}
0x17c8…17fa Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN3,GSWBIN3,GSWBIN7,GTKFVAL«, t00=0x000f, t01=0x005e}
0x17fa…180c Head {h00=0x000e, h01=0x0050, text=» B UPDRET «, t00=0x000f, t01=0x0090}
0x180c…181a Head {h00=0x000a, h01=0x0050, text=»UPD60 «, t00=0x000f, t01=0x00a2}
0x181a…1836 Head {h00=0x0018, h01=0x0050, text=» TBF GTSTRFLG,UPDRET«, t00=0x000f, t01=0x00b0}
0x1836…1868 Head {h00=0x002e, h01=0x0050, text=»* UPDATE FOR TRANS 18/19, PENGE KONTO - ST«, t00=0x000f, t01=0x00cc}
0x1868…1896 Head {h00=0x002a, h01=0x0050, text=» PERF KFREAD,CBIN2,CBIN1,CBIN0,GTKFVAL«, t00=0x000f, t01=0x00fe}
0x1896…18b8 Head {h00=0x001e, h01=0x0050, text=» SUB GTKFVAL,GTDUPF(CBIN4)«, t00=0x000f, t01=0x012c}
0x18b8…18e6 Head {h00=0x002a, h01=0x0050, text=» PERF KFWRIT,CBIN2,CBIN1,CBIN0,GTKFVAL«, t00=0x000f, t01=0x014e}
0x18e6…18f8 Head {h00=0x000e, h01=0x0050, text=» B UPDRET «, t00=0x000f, t01=0x017c}
0x18f8…1906 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x000f, t01=0x018e}
0x1906…1912 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x000c}
0x1912…1928 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0018}
0x1928…193e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x002e}
0x193e…1954 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x0010, t01=0x0044}
0x1954…1970 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x005a}
0x1970…197a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x197a…19a4 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x0010, t01=0x0080}
0x19a4…19ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19ae…19ca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x00b4}
0x19ca…1a08 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x0010, t01=0x00d0}
0x1a08…1a2e Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x0010, t01=0x010e}
0x1a2e…1a58 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0010, t01=0x0134}
0x1a58…1a96 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x0010, t01=0x015e}
0x1a96…1ab8 Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x0011, t01=0x000c}
0x1ab8…1af0 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x0011, t01=0x002e}
0x1af0…1b0e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN1 «, t00=0x0011, t01=0x0066}
0x1b0e…1b46 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x0011, t01=0x0084}
0x1b46…1b74 Head {h00=0x002a, h01=0x0050, text=» MOVE GTKFVAL,C12ACC(GSWBIN7,TTDKDEX) «, t00=0x0011, t01=0x00bc}
0x1b74…1ba6 Head {h00=0x002e, h01=0x0050, text=» PERF KFWRIT,CBIN1,TTDKDEX,GSWBIN7,GTKFVAL«, t00=0x0011, t01=0x00ea}
0x1ba6…1bba Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0011, t01=0x011c}
0x1bba…1bd0 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0130}
0x1bd0…1be6 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0146}
0x1be6…1bfc Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x0011, t01=0x015c}
0x1bfc…1c18 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0172}
0x1c18…1c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018e}
0x1c22…1c5e Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0012, t01=0x0008}
0x1c5e…1c86 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0012, t01=0x0044}
0x1c86…1c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006c}
0x1c90…1cac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0076}
0x1cac…1cdc Head {h00=0x002c, h01=0x0050, text=» PERF PACKST,CBINMAX CLEAR UNUSED FIELDS«, t00=0x0012, t01=0x0092}
0x1cdc…1d02 Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0012, t01=0x00c2}
0x1d02…1d32 Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0012, t01=0x00e8}
0x1d32…1d62 Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDTOK,FLDT10, C«, t00=0x0012, t01=0x0118}
0x1d62…1d92 Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDT18,FLDT19,FLDT28,FLDT29, C«, t00=0x0012, t01=0x0148}
0x1d92…1dbc Head {h00=0x0026, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0012, t01=0x0178}
0x1dbc…1dfc Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDT45,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0013, t01=0x0012}
0x1dfc…1e30 Head {h00=0x0030, h01=0x0050, text=» FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0013, t01=0x0052}
0x1e30…1e3e Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0013, t01=0x0086}
0x1e3e…1e72 Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0013, t01=0x0094}
0x1e72…1ea4 Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0013, t01=0x00c8}
0x1ea4…1ed2 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0013, t01=0x00fa}
0x1ed2…1ef6 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0013, t01=0x0128}
0x1ef6…1f1a Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0013, t01=0x014c}
0x1f1a…1f2c Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0013, t01=0x0170}
0x1f2c…1f3c Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0013, t01=0x0182}
0x1f3c…1f60 (20, 0, 398) Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0014, t01=0x0004}
0x1f60…1f84 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0014, t01=0x0028}
0x1f84…1f96 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0014, t01=0x004c}
0x1f96…1fa6 Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0014, t01=0x005e}
0x1fa6…1fca Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0014, t01=0x006e}
0x1fca…1fee Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0014, t01=0x0092}
0x1fee…1ffe Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0014, t01=0x00b6}
0x1ffe…2012 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0014, t01=0x00c6}
0x2012…2034 Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0014, t01=0x00da}
0x2034…2056 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0014, t01=0x00fc}
0x2056…2078 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0014, t01=0x011e}
0x2078…2094 Head {h00=0x0018, h01=0x0050, text=» TBT C167FLG,FLDT038«, t00=0x0014, t01=0x0140}
0x2094…20b6 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0014, t01=0x015c}
0x20b6…20ca Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0014, t01=0x017e}
0x20ca…20ec (21, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0015, t01=0x0004}
0x20ec…210c Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO = 21-25 «, t00=0x0015, t01=0x0026}
0x210c…211c Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0015, t01=0x0046}
0x211c…213e Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0015, t01=0x0056}
0x213e…2158 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=46 «, t00=0x0015, t01=0x0078}
0x2158…217a Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0015, t01=0x0092}
0x217a…2194 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0015, t01=0x00b4}
0x2194…21b2 Head {h00=0x001a, h01=0x0050, text=» B FLDT039 END ODENSE «, t00=0x0015, t01=0x00ce}
0x21b2…21cc Head {h00=0x0016, h01=0x0050, text=»FLDT038 HVIDOVRE«, t00=0x0015, t01=0x00ec}
0x21cc…21ee Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0015, t01=0x0106}
0x21ee…220c Head {h00=0x001a, h01=0x0050, text=» BNE FLDTOK BKO <> 46 «, t00=0x0015, t01=0x0128}
0x220c…221c Head {h00=0x000c, h01=0x0050, text=»FLDT039 «, t00=0x0015, t01=0x0146}
0x221c…2252 Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0015, t01=0x0156}
0x2252…2286 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0015, t01=0x018c}
0x2286…2298 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0016, t01=0x0030}
0x2298…22a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0042}
0x22a2…22b0 Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0016, t01=0x004c}
0x22b0…22e6 Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0016, t01=0x005a}
0x22e6…2308 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0016, t01=0x0090}
0x2308…232e Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0016, t01=0x00b2}
0x232e…234e Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0016, t01=0x00d8}
0x234e…2384 Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0016, t01=0x00f8}
0x2384…23cc Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0016, t01=0x012e}
0x23cc…23e6 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0016, t01=0x0176}
0x23e6…23fa Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0016, t01=0x0190}
0x23fa…241c Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0017, t01=0x0014}
0x241c…2430 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0017, t01=0x0036}
0x2430…2450 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0017, t01=0x004a}
0x2450…245a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006a}
0x245a…2468 Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0017, t01=0x0074}
0x2468…247c Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0017, t01=0x0082}
0x247c…248e Head {h00=0x000e, h01=0x0050, text=» BZ FLDTOK«, t00=0x0017, t01=0x0096}
0x248e…24b0 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0017, t01=0x00a8}
0x24b0…24d2 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 46 USED «, t00=0x0017, t01=0x00ca}
0x24d2…250c Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0017, t01=0x00ec}
0x250c…2540 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0017, t01=0x0126}
0x2540…2552 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x015a}
0x2552…255c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x255c…256a Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x0017, t01=0x0176}
0x256a…2588 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0017, t01=0x0184}
0x2588…25a0 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0018, t01=0x0012}
0x25a0…25d2 Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x0018, t01=0x002a}
0x25d2…25e2 Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x0018, t01=0x005c}
0x25e2…25f4 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0018, t01=0x006c}
0x25f4…2604 Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x0018, t01=0x007e}
0x2604…2624 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0018, t01=0x008e}
0x2624…2638 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x00ae}
0x2638…264a Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x00c2}
0x264a…265a Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x0018, t01=0x00d4}
0x265a…267a Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0018, t01=0x00e4}
0x267a…268e Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x0104}
0x268e…26aa Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x0018, t01=0x0118}
0x26aa…26be Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0018, t01=0x0134}
0x26be…26d8 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x0018, t01=0x0148}
0x26d8…26f2 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x0018, t01=0x0162}
0x26f2…270e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x0018, t01=0x017c}
0x270e…272c Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x0019, t01=0x0008}
0x272c…273a Head {h00=0x000a, h01=0x0050, text=»FLDT28«, t00=0x0019, t01=0x0026}
0x273a…2748 Head {h00=0x000a, h01=0x0050, text=»FLDT29«, t00=0x0019, t01=0x0034}
0x2748…2770 Head {h00=0x0024, h01=0x0050, text=» CBE GTUSED(CBIN7),CBIN0,FLDT281«, t00=0x0019, t01=0x0042}
0x2770…278a Head {h00=0x0016, h01=0x0050, text=» B FLDT18 VALOR OK«, t00=0x0019, t01=0x006a}
0x278a…27ae Head {h00=0x0020, h01=0x0050, text=»FLDT281 INSERT VALOR DATO«, t00=0x0019, t01=0x0084}
0x27ae…27d0 Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO«, t00=0x0019, t01=0x00a8}
0x27d0…27f2 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN7),CBIN11«, t00=0x0019, t01=0x00ca}
0x27f2…2804 Head {h00=0x000e, h01=0x0050, text=» B FLDT18 «, t00=0x0019, t01=0x00ec}
0x2804…2812 Head {h00=0x000a, h01=0x0050, text=»FLDT18«, t00=0x0019, t01=0x00fe}
0x2812…2820 Head {h00=0x000a, h01=0x0050, text=»FLDT19«, t00=0x0019, t01=0x010c}
0x2820…284c Head {h00=0x0028, h01=0x0050, text=» MOVE GTUSED(CBIN3),CBIN7 SET BKO=95«, t00=0x0019, t01=0x011a}
0x284c…286e Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN3),=D'95'«, t00=0x0019, t01=0x0146}
0x286e…28ac Head {h00=0x003a, h01=0x0050, text=»* FOLLOWING FIELDS ARE ONLY USED LOCALLY (NOT TO KMD) «, t00=0x0019, t01=0x0168}
0x28ac…28d4 Head {h00=0x0024, h01=0x0050, text=» MOVE GTUSED(CBIN13),CBIN0 NR-1 «, t00=0x001a, t01=0x0016}
0x28d4…28fc Head {h00=0x0024, h01=0x0050, text=» MOVE GTUSED(CBIN14),CBIN0 NR-2 «, t00=0x001a, t01=0x003e}
0x28fc…2922 Head {h00=0x0022, h01=0x0050, text=» MOVE GTUSED(CBIN15),CBIN0 TXT«, t00=0x001a, t01=0x0066}
0x2922…294c Head {h00=0x0026, h01=0x0050, text=» MOVE GTUSED(CBIN18),CBIN0 DATO-1 «, t00=0x001a, t01=0x008c}
0x294c…2976 Head {h00=0x0026, h01=0x0050, text=» MOVE GTUSED(CBIN19),CBIN0 DATO-2 «, t00=0x001a, t01=0x00b6}
0x2976…2988 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x00e0}
0x2988…2992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f2}
0x2992…29a0 Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x001a, t01=0x00fc}
0x29a0…29c6 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBCD1,CMASKDAT DDMMYY «, t00=0x001a, t01=0x010a}
0x29c6…29e4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD2,CMASKDAT«, t00=0x001a, t01=0x0130}
0x29e4…2a08 Head {h00=0x0020, h01=0x0050, text=» DIV GSWBCD2,=D'100' DDMM«, t00=0x001a, t01=0x014e}
0x2a08…2a2c Head {h00=0x0020, h01=0x0050, text=» MUL GSWBCD2,=D'100' DDMM00 «, t00=0x001a, t01=0x0172}
0x2a2c…2a50 Head {h00=0x0020, h01=0x0050, text=» SUB GSWBCD1,GSWBCD2 YY«, t00=0x001b, t01=0x0008}
0x2a50…2a84 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD2,GTREGF(CBIN16) (YY-1,YY,YY+1) «, t00=0x001b, t01=0x002c}
0x2a84…2ab0 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBCD2,=D'3' ADJUST FOR FLTDEX«, t00=0x001b, t01=0x0060}
0x2ab0…2acc Head {h00=0x0018, h01=0x0050, text=» SUB GSWBCD2,GSWBCD1«, t00=0x001b, t01=0x008c}
0x2acc…2aea Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD2 «, t00=0x001b, t01=0x00a8}
0x2aea…2b22 Head {h00=0x0034, h01=0x0050, text=» MOVE GTREGF(GSWBIN1),GTREGF(CBIN17) MOVE AMOUNT«, t00=0x001b, t01=0x00c6}
0x2b22…2b46 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN1 «, t00=0x001b, t01=0x00fe}
0x2b46…2b68 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN15),CBIN0«, t00=0x001b, t01=0x0122}
0x2b68…2b8a Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN16),CBIN0«, t00=0x001b, t01=0x0144}
0x2b8a…2bac Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN17),CBIN0«, t00=0x001b, t01=0x0166}
0x2bac…2bce Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN18),CBIN0«, t00=0x001b, t01=0x0188}
0x2bce…2bf0 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN19),CBIN0«, t00=0x001c, t01=0x001a}
0x2bf0…2c12 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN20),CBIN0«, t00=0x001c, t01=0x003c}
0x2c12…2c34 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN21),CBIN0«, t00=0x001c, t01=0x005e}
0x2c34…2c46 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001c, t01=0x0080}
0x2c46…2c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0092}
0x2c50…2c5e Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x001c, t01=0x009c}
0x2c5e…2ca0 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x001c, t01=0x00aa}
0x2ca0…2cc2 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x001c, t01=0x00ec}
0x2cc2…2ce2 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x001c, t01=0x010e}
0x2ce2…2cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012e}
0x2cec…2cfa Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x001c, t01=0x0138}
0x2cfa…2d3c Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x001c, t01=0x0146}
0x2d3c…2d6a Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK«, t00=0x001c, t01=0x0188}
0x2d6a…2dae Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x001d, t01=0x0026}
0x2dae…2ddc Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'2',FLDT525«, t00=0x001d, t01=0x006a}
0x2ddc…2e1e Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x001d, t01=0x0098}
0x2e1e…2e4c Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001d, t01=0x00da}
0x2e4c…2e5c Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x001d, t01=0x0108}
0x2e5c…2e9a Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x001d, t01=0x0118}
0x2e9a…2ed8 Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x001d, t01=0x0156}
0x2ed8…2ee8 (30, 0, 400) Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x001e, t01=0x0004}
0x2ee8…2f24 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001e, t01=0x0014}
0x2f24…2f62 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001e, t01=0x0050}
0x2f62…2f82 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001e, t01=0x008e}
0x2f82…2f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ae}
0x2f8c…2f9a Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x001e, t01=0x00b8}
0x2f9a…2fd8 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47«, t00=0x001e, t01=0x00c6}
0x2fd8…3020 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x001e, t01=0x0104}
0x3020…304e Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001e, t01=0x014c}
0x304e…305e Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x001e, t01=0x017a}
0x305e…309c Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 «, t00=0x001e, t01=0x018a}
0x309c…30da Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47«, t00=0x001f, t01=0x0038}
0x30da…30ea Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x001f, t01=0x0076}
0x30ea…3126 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001f, t01=0x0086}
0x3126…3164 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001f, t01=0x00c2}
0x3164…3184 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001f, t01=0x0100}
0x3184…318e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0120}
0x318e…319c Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x001f, t01=0x012a}
0x319c…31d8 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001f, t01=0x0138}
0x31d8…3216 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001f, t01=0x0174}
0x3216…3236 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x0020, t01=0x0022}
0x3236…3240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0042}
0x3240…324e Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x0020, t01=0x004c}
0x324e…328c Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x0020, t01=0x005a}
0x328c…32a0 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0098}
0x32a0…32aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ac}
0x32aa…32ba Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x0020, t01=0x00b6}
0x32ba…3300 Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x0020, t01=0x00c6}
0x3300…3314 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0020, t01=0x010c}
0x3314…332a Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x0120}
0x332a…3340 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0136}
0x3340…336c Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x0020, t01=0x014c}
0x336c…3388 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x0178}
0x3388…3392 (33, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0004}
0x3392…33cc Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x0021, t01=0x000e}
0x33cc…33fa Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x0021, t01=0x0048}
0x33fa…341c Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x0021, t01=0x0076}
0x341c…3426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0098}
0x3426…3442 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x00a2}
0x3442…3468 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,=W'0'«, t00=0x0021, t01=0x00be}
0x3468…3490 Head {h00=0x0024, h01=0x0050, text=» CBE FML1,=W'0',FLD5«, t00=0x0021, t01=0x00e4}
0x3490…34b4 Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x0021, t01=0x010c}
0x34b4…34da Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0021, t01=0x0130}
0x34da…34e6 Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x0021, t01=0x0156}
0x34e6…350e Head {h00=0x0024, h01=0x0050, text=» CBE FML2,=W'0',FLD5«, t00=0x0021, t01=0x0162}
0x350e…353e Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),=W'0',FLD2«, t00=0x0021, t01=0x018a}
0x353e…3564 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0022, t01=0x002a}
0x3564…3570 Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x0022, t01=0x0050}
0x3570…3598 Head {h00=0x0024, h01=0x0050, text=» CBE FML3,=W'0',FLD5«, t00=0x0022, t01=0x005c}
0x3598…35c8 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),=W'0',FLD3«, t00=0x0022, t01=0x0084}
0x35c8…35ee Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0022, t01=0x00b4}
0x35ee…35fa Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x0022, t01=0x00da}
0x35fa…3622 Head {h00=0x0024, h01=0x0050, text=» CBE FML4,=W'0',FLD5«, t00=0x0022, t01=0x00e6}
0x3622…3652 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),=W'0',FLD5«, t00=0x0022, t01=0x010e}
0x3652…3678 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0022, t01=0x013e}
0x3678…3684 Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x0022, t01=0x0164}
0x3684…3698 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0170}
0x3698…36a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0184}
0x36a6…36b0 (35, 2, 48) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0004}
0x36b0…36ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x000e}
0x36ba…36ce Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0023, t01=0x0018}
0x36ce…36d2 Head {h00=0x4004, h01=0x0000}
0x36d2…36d6 00 23 00 2c ┆ # ,┆
0x36d6…36de (36, 1, 8) 20 04 00 00 00 24 00 04 ┆ $ ┆