|
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: 14128 (0x3730)
Notes: pts_type(SC)
Names: »RGSUB1.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/RGSUB1.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/RGSUB1.SC«
IDENT RGSUB1 830825 EV
DDUM KMD08
PDIV
ENTRY SLUT
ENTRY FLDTST
ENTRY UPDAKK
ENTRY SUMWRT
ENTRY UPDA12
ENTRY FLDIN
EXT PACKST
EXT WRITFD
EXT WRITVO
EXT WRITJT
EXT FRMTJT
EXT FRMXTA
EXT WTALLY
EXT FRMTVO
EXT KTPLAN
EXT SPERR
EXT SPLIN8
EXT SPINF8
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
CBG GTREGDEX,=W'19',SLUT150 TR 50...
* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10
CBG GTREGDEX,=W'10',SLUT50
CBE GTREGDEX,=W'3',SLUT50
CBE GTREGDEX,=W'4',SLUT50
* TYPES 1,2,5-10
MOVE GTDUPF(CBIN6),GTDATO
CBE GTREGDEX,CBIN10,SLUT37 TRANS10, ALWAYS SUP
TBT TTSUPFLG,SLUT35
MOVE TTSUPMRK,CBLANKS
B SLUT50
SLUT35
CBE TTSUPMRK,=C'N',SLUT36
B SLUT37
SLUT36
ADD GTDUPF(CBIN6),=D'1' FORSUPP
B SLUT40
SLUT37
SUB GTDUPF(CBIN6),=D'1' SUPP
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
BOFL SLUT51
B SLUT52
SLUT51
MOVE TTLBNR,=D'10001' START VALUE FOR ODENSE
SLUT52
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
SLUTRET
MOVE SPBINW4,=W'17'
CMP CBIN1,CBIN0
RET
SLUT150 TR 50...
PERF WRITFD
BNOK SLUTRET
MOVE TTCYKTOT,GTDUPF(CBIN6) GET RATE VALUE
CBL GTRTANT,=D'2',SLUT170 CORRECT
MUL TTCYKTOT,GTRTANT FIND TOTAL
SLUT170
ADD GTSUM,TTCYKTOT ADD TO LISTE
ADD GTSUMCNT,TTCYKTOT ADD TO SUM COUNTER
PERF WRITJT,=W'0'
TBF TTLSTFLG,SLUT180 IN LISTE?
MOVE GSWBCD6,TTCYKTOT
PERF FRMXTA,CBIN5 YES
PERF WTALLY
SLUT180
SET GTKORTFL
MOVE GTUSED(CBIN1),=W'0' READY FOR NEW TRANS
B SLUT95
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 GTUSED(CBIN6),CBIN0,UPD30
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
CBG GTREGNR,=D'17',UPDRET
SUB TTCASH,GTDUPF(CBIN4)
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
PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED
RET
PEND
EJECT
FLDTST PROC
********************
*
* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT
* FELT AFHAENGIGHEDS TEST
*
********************
PERF PACKST CLEAR UNUSED FIELDS
IB GTREGDEX, C
FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C
FLDTOK,FLDTOK,FLDT08,FLDTOK,FLDT10, C
FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C
FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C
FLDT51,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'RA' IF = 0
B FLDT035
FLDT031
CBNE GSWBCD3,=D'1',FLDT032
MOVE TT16TXT,=C'RT' IF = 1
B FLDT035
FLDT032
CBNE GSWBCD3,=D'2',FLDT035
MOVE TT16TXT,=C'GB' IF = 2
FLDT035
TEST CFLT48
BZ FLDTOK BRANCH IF FALSE
CMP GTUSED(CBIN15),=W'0'
BNE FLDTOK FIELD 48 USED
CMP GTDUPF(CBIN3),=D'21'
BL FLDT037
CMP GTDUPF(CBIN3),=D'26'
BL FLDTOK BKO = 21-25
FLDT037
CMP GTDUPF(CBIN3),=D'30'
BE FLDTOK BKO=30
CMP GTDUPF(CBIN3),=D'56'
BE FLDTOK BKO=56
CMP GTDUPF(CBIN3),=D'63'
BE FLDTOK BKO 63
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
*
FLDT45
PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57
CBE GSWBIN1,=W'1',FLDTOK
B FLDTNOK
*
FLDT50
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28
CBE GSWBIN1,=W'1',FLDTOK
B FLDTNOK
*
FLDT51 TR 51
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6 OR 28
CBNE GSWBIN1,=W'1',FLDTNOK
PERF FLDIN,CBIN1,CBIN15,CBIN0,CBIN0 FIELD 28 OR 48
CBG GSWBIN1,=W'1',FLDTNOK
CBNE GTUSED(CBIN5),=W'0',FLDT512 FIELD 14?
MOVE GTUSED(CBIN5),=W'14' INSERT FIELD 14
MOVE GTDUPF(CBIN5),=D'0' EQUAL 0
FLDT512
CBNE GTUSED(CBIN7),=W'0',FLDT513 FIELD 31?
MOVE GTUSED(CBIN7),=W'31' INSERT FIELD 31
MOVE GTDUPF(CBIN7),GTDATO EQUAL POST DATO
FLDT513
CLEAR BDEB
CBE GTUSED(CBIN1),=W'0',FLDT514 NOT FIELD 28
SET BDEB FIELD 28
FLDT514
FLDT518 SET P]L]R
CBNE GTUSED(CBIN11),=W'0',FLDT519 FIELD 15
* SET P]L]R = LAST DIGIT P]LDATO, INDEX 7 (51)
* SET P]L]R = LAST DIGIT [NDR]R, INDEX 7 (53)
MOVE GTUSED(CBIN11),=W'15' SET FIELD 15
MOVE TSWBCD2,GTDUPF(CBIN7) GET LAST DIGIT OF DATE
MOVE GTDUPF(CBIN11),TSWBCD2
FLDT519
CBNE GTUSED(CBIN2),=W'0',FLDT035 CHECK FLD 48, IF FLD 6
B FLDTOK
*
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
PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6 OR 28
CBNE GSWBIN1,=W'1',FLDTNOK
PERF FLDIN,CBIN1,CBIN15,CBIN0,CBIN0 FIELD 28 OR 48
CBG GSWBIN1,=W'1',FLDTNOK
CBNE GTUSED(CBIN5),=W'0',FLDT532 FIELD 14?
MOVE GTUSED(CBIN5),=W'14' INSERT FIELD 14
MOVE GTDUPF(CBIN5),=W'0' EQUAL 0
FLDT532
CBNE GTUSED(CBIN7),=W'0',FLDT534 FIELD 40
MOVE GTUSED(CBIN7),=W'40' INSERT FIELD 40
MOVE GTDUPF(CBIN7),GTDATO EQUAL DATO
FLDT534
CLEAR BDEB
CBE GTUSED(CBIN1),=W'0',FLDT535 NOT FIELD 28
SET BDEB FIELD 28
FLDT535
B FLDT518 SEE TR 51
*
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…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT RGSUB1 830825 EV «, t00=0x0000, t01=0x0004}
0x0020…003e Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0024}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0042}
0x0054…0068 Head {h00=0x0010, h01=0x0050, text=» ENTRY SLUT «, t00=0x0000, t01=0x0058}
0x0068…0088 Head {h00=0x001c, h01=0x0050, text=» ENTRY FLDTST «, t00=0x0000, t01=0x006c}
0x0088…009e Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDAKK «, t00=0x0000, t01=0x008c}
0x009e…00b4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SUMWRT «, t00=0x0000, t01=0x00a2}
0x00b4…00ca Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDA12 «, t00=0x0000, t01=0x00b8}
0x00ca…00de Head {h00=0x0010, h01=0x0050, text=» ENTRY FLDIN«, t00=0x0000, t01=0x00ce}
0x00de…00f2 Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00e2}
0x00f2…0112 Head {h00=0x001c, h01=0x0050, text=» EXT WRITFD «, t00=0x0000, t01=0x00f6}
0x0112…0132 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0000, t01=0x0116}
0x0132…0152 Head {h00=0x001c, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x0136}
0x0152…0166 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x0156}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x016a}
0x017a…018e Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x017e}
0x018e…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x0004}
0x01a2…01b6 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x0018}
0x01b6…01c8 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x002c}
0x01c8…01dc Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x003e}
0x01dc…01f0 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF8 «, t00=0x0001, t01=0x0052}
0x01f0…0208 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0066}
0x0208…0216 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x007e}
0x0216…022c Head {h00=0x0012, h01=0x0050, text=»SLUT PROC «, t00=0x0001, t01=0x008c}
0x022c…024e Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x00a2}
0x024e…0268 Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00c4}
0x0268…0280 Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00de}
0x0280…0298 Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x00f6}
0x0298…02b8 Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x010e}
0x02b8…02e2 Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x012e}
0x02e2…0310 Head {h00=0x002a, h01=0x0050, text=»* FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0158}
0x0310…0336 Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0001, t01=0x0186}
0x0336…0358 Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x001c}
0x0358…037c Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x003e}
0x037c…038a Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x0062}
0x038a…03a6 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x0070}
0x03a6…03c2 Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x008c}
0x03c2…03f0 Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x00a8}
0x03f0…041e Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00d6}
0x041e…0442 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x0104}
0x0442…0464 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0128}
0x0464…0492 Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x014a}
0x0492…04b6 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0002, t01=0x0178}
0x04b6…04da Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0003, t01=0x000c}
0x04da…04e8 Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x0030}
0x04e8…0516 Head {h00=0x002a, h01=0x0050, text=» CBG GTREGDEX,=W'19',SLUT150 TR 50... «, t00=0x0003, t01=0x003e}
0x0516…054c Head {h00=0x0032, h01=0x0050, text=»* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10 «, t00=0x0003, t01=0x006c}
0x054c…0570 Head {h00=0x0020, h01=0x0050, text=» CBG GTREGDEX,=W'10',SLUT50 «, t00=0x0003, t01=0x00a2}
0x0570…0592 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'3',SLUT50«, t00=0x0003, t01=0x00c6}
0x0592…05b4 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'4',SLUT50«, t00=0x0003, t01=0x00e8}
0x05b4…05cc Head {h00=0x0014, h01=0x0050, text=»* TYPES 1,2,5-10«, t00=0x0003, t01=0x010a}
0x05cc…05ee Head {h00=0x001e, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO«, t00=0x0003, t01=0x0122}
0x05ee…0626 Head {h00=0x0034, h01=0x0050, text=» CBE GTREGDEX,CBIN10,SLUT37 TRANS10, ALWAYS SUP «, t00=0x0003, t01=0x0144}
0x0626…0642 Head {h00=0x0018, h01=0x0050, text=» TBT TTSUPFLG,SLUT35«, t00=0x0003, t01=0x017c}
0x0642…0660 Head {h00=0x001a, h01=0x0050, text=» MOVE TTSUPMRK,CBLANKS«, t00=0x0004, t01=0x0008}
0x0660…0672 Head {h00=0x000e, h01=0x0050, text=» B SLUT50 «, t00=0x0004, t01=0x0026}
0x0672…0680 Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0004, t01=0x0038}
0x0680…06a2 Head {h00=0x001e, h01=0x0050, text=» CBE TTSUPMRK,=C'N',SLUT36«, t00=0x0004, t01=0x0046}
0x06a2…06b4 Head {h00=0x000e, h01=0x0050, text=» B SLUT37 «, t00=0x0004, t01=0x0068}
0x06b4…06c2 Head {h00=0x000a, h01=0x0050, text=»SLUT36«, t00=0x0004, t01=0x007a}
0x06c2…06ea Head {h00=0x0024, h01=0x0050, text=» ADD GTDUPF(CBIN6),=D'1' FORSUPP«, t00=0x0004, t01=0x0088}
0x06ea…06fc Head {h00=0x000e, h01=0x0050, text=» B SLUT40 «, t00=0x0004, t01=0x00b0}
0x06fc…070a Head {h00=0x000a, h01=0x0050, text=»SLUT37«, t00=0x0004, t01=0x00c2}
0x070a…0730 Head {h00=0x0022, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUPP «, t00=0x0004, t01=0x00d0}
0x0730…073e Head {h00=0x000a, h01=0x0050, text=»SLUT40«, t00=0x0004, t01=0x00f6}
0x073e…0774 Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0004, t01=0x0104}
0x0774…0798 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0004, t01=0x013a}
0x0798…07c8 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO«, t00=0x0004, t01=0x015e}
0x07c8…07d6 Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0004, t01=0x018e}
0x07d6…07fc Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0005, t01=0x000c}
0x07fc…0810 Head {h00=0x0010, h01=0x0050, text=» BOFL SLUT51«, t00=0x0005, t01=0x0032}
0x0810…0822 Head {h00=0x000e, h01=0x0050, text=» B SLUT52 «, t00=0x0005, t01=0x0046}
0x0822…0830 Head {h00=0x000a, h01=0x0050, text=»SLUT51«, t00=0x0005, t01=0x0058}
0x0830…0866 Head {h00=0x0032, h01=0x0050, text=» MOVE TTLBNR,=D'10001' START VALUE FOR ODENSE «, t00=0x0005, t01=0x0066}
0x0866…0874 Head {h00=0x000a, h01=0x0050, text=»SLUT52«, t00=0x0005, t01=0x009c}
0x0874…0892 Head {h00=0x001a, h01=0x0050, text=» PERF WRITFD «, t00=0x0005, t01=0x00aa}
0x0892…08a8 Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0005, t01=0x00c8}
0x08a8…08d2 Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0005, t01=0x00de}
0x08d2…08fa Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60 ON JOURNAL?«, t00=0x0005, t01=0x0108}
0x08fa…090e Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0005, t01=0x0130}
0x090e…0928 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x0144}
0x0928…0936 Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x015e}
0x0936…094a Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x016c}
0x094a…0968 Head {h00=0x001a, h01=0x0050, text=» PERF WRITVO «, t00=0x0005, t01=0x0180}
0x0968…0982 Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0006, t01=0x000e}
0x0982…099e Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0006, t01=0x0028}
0x099e…09b8 Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0006, t01=0x0044}
0x09b8…09cc Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0006, t01=0x005e}
0x09cc…09da Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0006, t01=0x0072}
0x09da…09f8 Head {h00=0x001a, h01=0x0050, text=» PERF UPDAKK «, t00=0x0006, t01=0x0080}
0x09f8…0a0e Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0006, t01=0x009e}
0x0a0e…0a2c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0006, t01=0x00b4}
0x0a2c…0a44 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0006, t01=0x00d2}
0x0a44…0a70 Head {h00=0x0028, h01=0x0050, text=» SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0006, t01=0x00ea}
0x0a70…0a7e Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0006, t01=0x0116}
0x0a7e…0a96 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0006, t01=0x0124}
0x0a96…0aa4 Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0006, t01=0x013c}
0x0aa4…0aba Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0006, t01=0x014a}
0x0aba…0ae2 Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0006, t01=0x0160}
0x0ae2…0afa Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0006, t01=0x0188}
0x0afa…0b1e Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0007, t01=0x0010}
0x0b1e…0b2a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0034}
0x0b2a…0b3a Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0007, t01=0x0040}
0x0b3a…0b68 Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0007, t01=0x0050}
0x0b68…0b7e Head {h00=0x0012, h01=0x0050, text=» DISK ERROR «, t00=0x0007, t01=0x007e}
0x0b7e…0b8e Head {h00=0x000c, h01=0x0050, text=»SLUTRET «, t00=0x0007, t01=0x0094}
0x0b8e…0baa Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'17'«, t00=0x0007, t01=0x00a4}
0x0baa…0bc2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x00c0}
0x0bc2…0bd6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d8}
0x0bd6…0bf0 Head {h00=0x0016, h01=0x0050, text=»SLUT150 TR 50...«, t00=0x0007, t01=0x00ec}
0x0bf0…0c04 Head {h00=0x0010, h01=0x0050, text=» PERF WRITFD«, t00=0x0007, t01=0x0106}
0x0c04…0c1a Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTRET «, t00=0x0007, t01=0x011a}
0x0c1a…0c4e Head {h00=0x0030, h01=0x0050, text=» MOVE TTCYKTOT,GTDUPF(CBIN6) GET RATE VALUE «, t00=0x0007, t01=0x0130}
0x0c4e…0c78 Head {h00=0x0026, h01=0x0050, text=» CBL GTRTANT,=D'2',SLUT170 CORRECT«, t00=0x0007, t01=0x0164}
0x0c78…0ca0 Head {h00=0x0024, h01=0x0050, text=» MUL TTCYKTOT,GTRTANT FIND TOTAL«, t00=0x0007, t01=0x018e}
0x0ca0…0cb0 Head {h00=0x000c, h01=0x0050, text=»SLUT170 «, t00=0x0008, t01=0x0026}
0x0cb0…0cd8 Head {h00=0x0024, h01=0x0050, text=» ADD GTSUM,TTCYKTOT ADD TO LISTE«, t00=0x0008, t01=0x0036}
0x0cd8…0d0a Head {h00=0x002e, h01=0x0050, text=» ADD GTSUMCNT,TTCYKTOT ADD TO SUM COUNTER «, t00=0x0008, t01=0x005e}
0x0d0a…0d24 Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0008, t01=0x0090}
0x0d24…0d4c Head {h00=0x0024, h01=0x0050, text=» TBF TTLSTFLG,SLUT180 IN LISTE? «, t00=0x0008, t01=0x00aa}
0x0d4c…0d6a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,TTCYKTOT«, t00=0x0008, t01=0x00d2}
0x0d6a…0d88 Head {h00=0x001a, h01=0x0050, text=» PERF FRMXTA,CBIN5 YES«, t00=0x0008, t01=0x00f0}
0x0d88…0d9c Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0008, t01=0x010e}
0x0d9c…0dac Head {h00=0x000c, h01=0x0050, text=»SLUT180 «, t00=0x0008, t01=0x0122}
0x0dac…0dc2 Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0008, t01=0x0132}
0x0dc2…0df8 Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN1),=W'0' READY FOR NEW TRANS «, t00=0x0008, t01=0x0148}
0x0df8…0e0a Head {h00=0x000e, h01=0x0050, text=» B SLUT95 «, t00=0x0008, t01=0x017e}
0x0e0a…0e20 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0190}
0x0e20…0e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0016}
0x0e2e…0e42 Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x0009, t01=0x0024}
0x0e42…0e5e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0038}
0x0e5e…0e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0054}
0x0e68…0ea4 Head {h00=0x0038, h01=0x0050, text=»** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x0009, t01=0x005e}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eae…0eca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00a4}
0x0eca…0ef2 Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x0009, t01=0x00c0}
0x0ef2…0f0e Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x0009, t01=0x00e8}
0x0f0e…0f2a Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x0009, t01=0x0104}
0x0f2a…0f60 Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x0009, t01=0x0120}
0x0f60…0f84 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0009, t01=0x0156}
0x0f84…0f96 Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x0009, t01=0x017a}
0x0f96…0fa4 Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x0009, t01=0x018c}
0x0fa4…0fd6 Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x000a, t01=0x000a}
0x0fd6…0ffa Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x000a, t01=0x003c}
0x0ffa…1008 Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x000a, t01=0x0060}
0x1008…101c Head {h00=0x0010, h01=0x0050, text=» PERF SPINF8«, t00=0x000a, t01=0x006e}
0x101c…102a Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x000a, t01=0x0082}
0x102a…1068 Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x000a, t01=0x0090}
0x1068…1074 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00ce}
0x1074…1082 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x00da}
0x1082…1098 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00e8}
0x1098…10ae Head {h00=0x0012, h01=0x0050, text=»UPDAKK PROC «, t00=0x000a, t01=0x00fe}
0x10ae…10ca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000a, t01=0x0114}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0130}
0x10d4…10ec Head {h00=0x0014, h01=0x0050, text=»* UPDAKK «, t00=0x000a, t01=0x013a}
0x10ec…1120 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x000a, t01=0x0152}
0x1120…112a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0186}
0x112a…115e Head {h00=0x0030, h01=0x0050, text=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) «, t00=0x000a, t01=0x0190}
0x115e…1182 Head {h00=0x0020, h01=0x0050, text=»* IDX1 = TRNR«, t00=0x000b, t01=0x0034}
0x1182…11a8 Head {h00=0x0022, h01=0x0050, text=»* IDX2 = DEB/KRE«, t00=0x000b, t01=0x0058}
0x11a8…11da Head {h00=0x002e, h01=0x0050, text=»* TR12 UPDATES TTACC12(IDX1,IDX2) «, t00=0x000b, t01=0x007e}
0x11da…1204 Head {h00=0x0026, h01=0x0050, text=»* IDX1 = TAELLER NR«, t00=0x000b, t01=0x00b0}
0x1204…122c Head {h00=0x0024, h01=0x0050, text=»* IDX2 = DEB/KRE «, t00=0x000b, t01=0x00da}
0x122c…1236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1236…126e Head {h00=0x0034, h01=0x0050, text=»* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) «, t00=0x000b, t01=0x010c}
0x126e…12a8 Head {h00=0x0036, h01=0x0050, text=»* AND IF INVERT TTKORDK(IDX2)«, t00=0x000b, t01=0x0144}
0x12a8…12b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017e}
0x12b2…12ce Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x0188}
0x12ce…12fa Head {h00=0x0028, h01=0x0050, text=» CBNE GTREGNR,='12',UPD20«, t00=0x000c, t01=0x0014}
0x12fa…1338 Head {h00=0x003a, h01=0x0050, text=» PERF UPDA12 TAELLER 12 «, t00=0x000c, t01=0x0040}
0x1338…1358 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000c, t01=0x007e}
0x1358…1366 Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000c, t01=0x009e}
0x1366…139c Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000c, t01=0x00ac}
0x139c…13bc Head {h00=0x001c, h01=0x0050, text=» CERTAIN TRANSACTIONS «, t00=0x000c, t01=0x00e2}
0x13bc…13e2 Head {h00=0x0022, h01=0x0050, text=» CBE GTUSED(CBIN6),CBIN0,UPD30«, t00=0x000c, t01=0x0102}
0x13e2…1412 Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000c, t01=0x0128}
0x1412…1430 Head {h00=0x001a, h01=0x0050, text=» UPDATE SUPL COUNTER«, t00=0x000c, t01=0x0158}
0x1430…143e Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000c, t01=0x0176}
0x143e…145a Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000c, t01=0x0184}
0x145a…1488 Head {h00=0x002a, h01=0x0050, text=»* ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000d, t01=0x0010}
0x1488…14a4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000d, t01=0x003e}
0x14a4…14b2 Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000d, t01=0x005a}
0x14b2…14ee Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000d, t01=0x0068}
0x14ee…152c Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000d, t01=0x00a4}
0x152c…153a Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000d, t01=0x00e2}
0x153a…156a Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000d, t01=0x00f0}
0x156a…159a Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000d, t01=0x0120}
0x159a…15a8 Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000d, t01=0x0150}
0x15a8…15d8 Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000d, t01=0x015e}
0x15d8…15fa Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000d, t01=0x018e}
0x15fa…1608 Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000e, t01=0x0020}
0x1608…163a Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000e, t01=0x002e}
0x163a…1678 Head {h00=0x003a, h01=0x0050, text=» ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000e, t01=0x0060}
0x1678…16be Head {h00=0x0042, h01=0x0050, text=» UPDATE ACCUMULATOR «, t00=0x000e, t01=0x009e}
0x16be…16ec Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x000e, t01=0x00e4}
0x16ec…16fa Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x000e, t01=0x0112}
0x16fa…173e Head {h00=0x0040, h01=0x0050, text=» CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET«, t00=0x000e, t01=0x0120}
0x173e…1778 Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000e, t01=0x0164}
0x1778…1788 Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x000f, t01=0x000e}
0x1788…1796 Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x000f, t01=0x001e}
0x1796…17d2 Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x000f, t01=0x002c}
0x17d2…180c Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000f, t01=0x0068}
0x180c…181a Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x000f, t01=0x00a2}
0x181a…184a Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x000f, t01=0x00b0}
0x184a…1892 Head {h00=0x0044, h01=0x0050, text=» TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE«, t00=0x000f, t01=0x00e0}
0x1892…18ac Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD55 «, t00=0x000f, t01=0x0128}
0x18ac…18ee Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPDRET IF KASSEKONTO,NO UPDATE«, t00=0x000f, t01=0x0142}
0x18ee…192c Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPDRET IF VERSUR, NO UPDATE«, t00=0x000f, t01=0x0184}
0x192c…193a Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x0010, t01=0x0032}
0x193a…1968 Head {h00=0x002a, h01=0x0050, text=» CBG GTREGNR,=D'17',UPDRET«, t00=0x0010, t01=0x0040}
0x1968…1996 Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) «, t00=0x0010, t01=0x006e}
0x1996…19b6 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x0010, t01=0x009c}
0x19b6…19c4 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x0010, t01=0x00bc}
0x19c4…19d0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00ca}
0x19d0…19e6 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00d6}
0x19e6…19fc Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00ec}
0x19fc…1a12 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x0010, t01=0x0102}
0x1a12…1a2e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0118}
0x1a2e…1a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a38…1a62 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x0010, t01=0x013e}
0x1a62…1a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0168}
0x1a6c…1a88 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0172}
0x1a88…1ac6 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x0010, t01=0x018e}
0x1ac6…1aec Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x0011, t01=0x003c}
0x1aec…1b16 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x0011, t01=0x0062}
0x1b16…1b54 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x0011, t01=0x008c}
0x1b54…1b76 Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x0011, t01=0x00ca}
0x1b76…1bae Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x0011, t01=0x00ec}
0x1bae…1be6 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x0011, t01=0x0124}
0x1be6…1bfa Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0011, t01=0x015c}
0x1bfa…1c10 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0170}
0x1c10…1c26 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0186}
0x1c26…1c3c Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x0012, t01=0x000c}
0x1c3c…1c58 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0022}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c62…1c9e Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0012, t01=0x0048}
0x1c9e…1cc6 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0012, t01=0x0084}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ac}
0x1cd0…1cec Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x00b6}
0x1cec…1d14 Head {h00=0x0024, h01=0x0050, text=» PERF PACKST CLEAR UNUSED FIELDS«, t00=0x0012, t01=0x00d2}
0x1d14…1d3a Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0012, t01=0x00fa}
0x1d3a…1d6a Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0012, t01=0x0120}
0x1d6a…1d9a Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDTOK,FLDT10, C«, t00=0x0012, t01=0x0150}
0x1d9a…1dda Head {h00=0x003c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0012, t01=0x0180}
0x1dda…1e1a Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0013, t01=0x0030}
0x1e1a…1e4e Head {h00=0x0030, h01=0x0050, text=» FLDT51,FLDT52,FLDT53,FLDT54«, t00=0x0013, t01=0x0070}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a4}
0x1e58…1e66 Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0013, t01=0x00ae}
0x1e66…1e9a Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0013, t01=0x00bc}
0x1e9a…1ecc Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0013, t01=0x00f0}
0x1ecc…1efa Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0013, t01=0x0122}
0x1efa…1f1e Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0013, t01=0x0150}
0x1f1e…1f42 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RA' IF = 0 «, t00=0x0013, t01=0x0174}
0x1f42…1f54 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0014, t01=0x0008}
0x1f54…1f64 Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0014, t01=0x001a}
0x1f64…1f88 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0014, t01=0x002a}
0x1f88…1fac Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RT' IF = 1 «, t00=0x0014, t01=0x004e}
0x1fac…1fbe Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0014, t01=0x0072}
0x1fbe…1fce Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0014, t01=0x0084}
0x1fce…1ff2 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0014, t01=0x0094}
0x1ff2…2016 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GB' IF = 2 «, t00=0x0014, t01=0x00b8}
0x2016…2026 Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0014, t01=0x00dc}
0x2026…203a Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0014, t01=0x00ec}
0x203a…205c Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0014, t01=0x0100}
0x205c…207e Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0014, t01=0x0122}
0x207e…20a0 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0014, t01=0x0144}
0x20a0…20c2 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0014, t01=0x0166}
0x20c2…20d6 Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0014, t01=0x0188}
0x20d6…20f8 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0015, t01=0x000c}
0x20f8…2118 Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO = 21-25 «, t00=0x0015, t01=0x002e}
0x2118…2128 Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0015, t01=0x004e}
0x2128…214a Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'30' «, t00=0x0015, t01=0x005e}
0x214a…2164 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=30 «, t00=0x0015, t01=0x0080}
0x2164…2186 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0015, t01=0x009a}
0x2186…21a0 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0015, t01=0x00bc}
0x21a0…21c2 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'63' «, t00=0x0015, t01=0x00d6}
0x21c2…21dc Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO 63 «, t00=0x0015, t01=0x00f8}
0x21dc…2212 Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0015, t01=0x0112}
0x2212…2246 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0015, t01=0x0148}
0x2246…2258 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0015, t01=0x017c}
0x2258…2262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018e}
0x2262…2270 Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0016, t01=0x0008}
0x2270…22a6 Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0016, t01=0x0016}
0x22a6…22c8 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0016, t01=0x004c}
0x22c8…22ee Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0016, t01=0x006e}
0x22ee…230e Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0016, t01=0x0094}
0x230e…2344 Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0016, t01=0x00b4}
0x2344…238c Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0016, t01=0x00ea}
0x238c…23a6 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0016, t01=0x0132}
0x23a6…23ba Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0016, t01=0x014c}
0x23ba…23dc Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0016, t01=0x0160}
0x23dc…23f0 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0016, t01=0x0182}
0x23f0…2410 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0017, t01=0x0008}
0x2410…241a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0028}
0x241a…2428 Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0017, t01=0x0032}
0x2428…243c Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0017, t01=0x0040}
0x243c…244e Head {h00=0x000e, h01=0x0050, text=» BZ FLDTOK«, t00=0x0017, t01=0x0054}
0x244e…2470 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0017, t01=0x0066}
0x2470…2492 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 46 USED «, t00=0x0017, t01=0x0088}
0x2492…24cc Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0017, t01=0x00aa}
0x24cc…2500 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0017, t01=0x00e4}
0x2500…2512 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0017, t01=0x0118}
0x2512…251c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x012a}
0x251c…252a Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x0017, t01=0x0134}
0x252a…2548 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0017, t01=0x0142}
0x2548…2560 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0017, t01=0x0160}
0x2560…2592 Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x0017, t01=0x0178}
0x2592…25a2 Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x0018, t01=0x001a}
0x25a2…25b4 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0018, t01=0x002a}
0x25b4…25c4 Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x0018, t01=0x003c}
0x25c4…25e4 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0018, t01=0x004c}
0x25e4…25f8 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x006c}
0x25f8…260a Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0080}
0x260a…261a Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x0018, t01=0x0092}
0x261a…263a Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0018, t01=0x00a2}
0x263a…264e Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0018, t01=0x00c2}
0x264e…266a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x0018, t01=0x00d6}
0x266a…267e Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0018, t01=0x00f2}
0x267e…2698 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x0018, t01=0x0106}
0x2698…26b2 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x0018, t01=0x0120}
0x26b2…26ce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x0018, t01=0x013a}
0x26ce…26ec Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x0018, t01=0x0156}
0x26ec…26f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0174}
0x26f6…2704 Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x0018, t01=0x017e}
0x2704…274a Head {h00=0x0042, h01=0x0050, text=» PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57 «, t00=0x0018, t01=0x018c}
0x274a…2778 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0019, t01=0x0042}
0x2778…2798 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0019, t01=0x0070}
0x2798…27a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0090}
0x27a2…27b0 Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x0019, t01=0x009a}
0x27b0…27f2 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x0019, t01=0x00a8}
0x27f2…2814 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0019, t01=0x00ea}
0x2814…2834 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0019, t01=0x010c}
0x2834…283e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012c}
0x283e…2854 Head {h00=0x0012, h01=0x0050, text=»FLDT51 TR 51«, t00=0x0019, t01=0x0136}
0x2854…288e Head {h00=0x0036, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6 OR 28 «, t00=0x0019, t01=0x014c}
0x288e…28b2 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK «, t00=0x0019, t01=0x0186}
0x28b2…28ee Head {h00=0x0038, h01=0x0050, text=» PERF FLDIN,CBIN1,CBIN15,CBIN0,CBIN0 FIELD 28 OR 48 «, t00=0x001a, t01=0x001a}
0x28ee…2910 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'1',FLDTNOK«, t00=0x001a, t01=0x0056}
0x2910…2944 Head {h00=0x0030, h01=0x0050, text=» CBNE GTUSED(CBIN5),=W'0',FLDT512 FIELD 14? «, t00=0x001a, t01=0x0078}
0x2944…2976 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),=W'14' INSERT FIELD 14«, t00=0x001a, t01=0x00ac}
0x2976…29a0 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN5),=D'0' EQUAL 0 «, t00=0x001a, t01=0x00de}
0x29a0…29b0 Head {h00=0x000c, h01=0x0050, text=»FLDT512 «, t00=0x001a, t01=0x0108}
0x29b0…29e4 Head {h00=0x0030, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT513 FIELD 31? «, t00=0x001a, t01=0x0118}
0x29e4…2a16 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN7),=W'31' INSERT FIELD 31«, t00=0x001a, t01=0x014c}
0x2a16…2a48 Head {h00=0x002e, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO EQUAL POST DATO«, t00=0x001a, t01=0x017e}
0x2a48…2a58 Head {h00=0x000c, h01=0x0050, text=»FLDT513 «, t00=0x001b, t01=0x0020}
0x2a58…2a6c Head {h00=0x0010, h01=0x0050, text=» CLEAR BDEB «, t00=0x001b, t01=0x0030}
0x2a6c…2aa2 Head {h00=0x0032, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDT514 NOT FIELD 28 «, t00=0x001b, t01=0x0044}
0x2aa2…2abc Head {h00=0x0016, h01=0x0050, text=» SET BDEB FIELD 28«, t00=0x001b, t01=0x007a}
0x2abc…2acc Head {h00=0x000c, h01=0x0050, text=»FLDT514 «, t00=0x001b, t01=0x0094}
0x2acc…2ae8 Head {h00=0x0018, h01=0x0050, text=»FLDT518 SET P]L]R «, t00=0x001b, t01=0x00a4}
0x2ae8…2b1c Head {h00=0x0030, h01=0x0050, text=» CBNE GTUSED(CBIN11),=W'0',FLDT519 FIELD 15 «, t00=0x001b, t01=0x00c0}
0x2b1c…2b54 Head {h00=0x0034, h01=0x0050, text=»* SET P]L]R = LAST DIGIT P]LDATO, INDEX 7 (51)«, t00=0x001b, t01=0x00f4}
0x2b54…2b8c Head {h00=0x0034, h01=0x0050, text=»* SET P]L]R = LAST DIGIT [NDR]R, INDEX 7 (53) «, t00=0x001b, t01=0x012c}
0x2b8c…2bbc Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN11),=W'15' SET FIELD 15«, t00=0x001b, t01=0x0164}
0x2bbc…2bf6 (28, 0, 400) Head {h00=0x0036, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN7) GET LAST DIGIT OF DATE«, t00=0x001c, t01=0x0004}
0x2bf6…2c1a Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN11),TSWBCD2«, t00=0x001c, t01=0x003e}
0x2c1a…2c2a Head {h00=0x000c, h01=0x0050, text=»FLDT519 «, t00=0x001c, t01=0x0062}
0x2c2a…2c6a Head {h00=0x003c, h01=0x0050, text=» CBNE GTUSED(CBIN2),=W'0',FLDT035 CHECK FLD 48, IF FLD 6«, t00=0x001c, t01=0x0072}
0x2c6a…2c7c Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x001c, t01=0x00b2}
0x2c7c…2c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c4}
0x2c86…2c94 Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x001c, t01=0x00ce}
0x2c94…2cd6 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x001c, t01=0x00dc}
0x2cd6…2d04 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK«, t00=0x001c, t01=0x011e}
0x2d04…2d48 Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x001c, t01=0x014c}
0x2d48…2d76 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'2',FLDT525«, t00=0x001c, t01=0x0190}
0x2d76…2db8 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x001d, t01=0x002e}
0x2db8…2de6 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001d, t01=0x0070}
0x2de6…2df6 Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x001d, t01=0x009e}
0x2df6…2e34 Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x001d, t01=0x00ae}
0x2e34…2e72 Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x001d, t01=0x00ec}
0x2e72…2e82 Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x001d, t01=0x012a}
0x2e82…2ebe Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001d, t01=0x013a}
0x2ebe…2efc Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001d, t01=0x0176}
0x2efc…2f1c Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001e, t01=0x0024}
0x2f1c…2f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0044}
0x2f26…2f34 Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x001e, t01=0x004e}
0x2f34…2f6e Head {h00=0x0036, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6 OR 28 «, t00=0x001e, t01=0x005c}
0x2f6e…2f92 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK «, t00=0x001e, t01=0x0096}
0x2f92…2fce Head {h00=0x0038, h01=0x0050, text=» PERF FLDIN,CBIN1,CBIN15,CBIN0,CBIN0 FIELD 28 OR 48 «, t00=0x001e, t01=0x00ba}
0x2fce…2ff0 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN1,=W'1',FLDTNOK«, t00=0x001e, t01=0x00f6}
0x2ff0…3024 Head {h00=0x0030, h01=0x0050, text=» CBNE GTUSED(CBIN5),=W'0',FLDT532 FIELD 14? «, t00=0x001e, t01=0x0118}
0x3024…3056 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),=W'14' INSERT FIELD 14«, t00=0x001e, t01=0x014c}
0x3056…3080 Head {h00=0x0026, h01=0x0050, text=» MOVE GTDUPF(CBIN5),=W'0' EQUAL 0 «, t00=0x001e, t01=0x017e}
0x3080…3090 Head {h00=0x000c, h01=0x0050, text=»FLDT532 «, t00=0x001f, t01=0x0018}
0x3090…30c2 Head {h00=0x002e, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT534 FIELD 40«, t00=0x001f, t01=0x0028}
0x30c2…30f4 Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN7),=W'40' INSERT FIELD 40«, t00=0x001f, t01=0x005a}
0x30f4…3122 Head {h00=0x002a, h01=0x0050, text=» MOVE GTDUPF(CBIN7),GTDATO EQUAL DATO «, t00=0x001f, t01=0x008c}
0x3122…3132 Head {h00=0x000c, h01=0x0050, text=»FLDT534 «, t00=0x001f, t01=0x00ba}
0x3132…3146 Head {h00=0x0010, h01=0x0050, text=» CLEAR BDEB «, t00=0x001f, t01=0x00ca}
0x3146…317c Head {h00=0x0032, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDT535 NOT FIELD 28 «, t00=0x001f, t01=0x00de}
0x317c…3196 Head {h00=0x0016, h01=0x0050, text=» SET BDEB FIELD 28«, t00=0x001f, t01=0x0114}
0x3196…31a6 Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x001f, t01=0x012e}
0x31a6…31c2 Head {h00=0x0018, h01=0x0050, text=» B FLDT518 SEE TR 51«, t00=0x001f, t01=0x013e}
0x31c2…31cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015a}
0x31cc…31da Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x001f, t01=0x0164}
0x31da…3216 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001f, t01=0x0172}
0x3216…3254 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0020, t01=0x001e}
0x3254…3274 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x0020, t01=0x005c}
0x3274…327e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007c}
0x327e…328c Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x0020, t01=0x0086}
0x328c…32ca Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x0020, t01=0x0094}
0x32ca…32de Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0020, t01=0x00d2}
0x32de…32e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e6}
0x32e8…32f8 Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x0020, t01=0x00f0}
0x32f8…333e Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x0020, t01=0x0100}
0x333e…3352 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0146}
0x3352…3368 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x015a}
0x3368…3372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0170}
0x3372…337c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017a}
0x337c…3392 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0184}
0x3392…33be Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x0021, t01=0x000a}
0x33be…33da Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0036}
0x33da…33e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0052}
0x33e4…341e Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x0021, t01=0x005c}
0x341e…344c Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x0021, t01=0x0096}
0x344c…346e Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x0021, t01=0x00c4}
0x346e…3478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e6}
0x3478…3494 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x00f0}
0x3494…34ba Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,=W'0'«, t00=0x0021, t01=0x010c}
0x34ba…34e2 Head {h00=0x0024, h01=0x0050, text=» CBE FML1,=W'0',FLD5«, t00=0x0021, t01=0x0132}
0x34e2…3506 Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x0021, t01=0x015a}
0x3506…352c Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0021, t01=0x017e}
0x352c…3538 Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x0022, t01=0x0014}
0x3538…3560 Head {h00=0x0024, h01=0x0050, text=» CBE FML2,=W'0',FLD5«, t00=0x0022, t01=0x0020}
0x3560…3590 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),=W'0',FLD2«, t00=0x0022, t01=0x0048}
0x3590…35b6 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0022, t01=0x0078}
0x35b6…35c2 Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x0022, t01=0x009e}
0x35c2…35ea Head {h00=0x0024, h01=0x0050, text=» CBE FML3,=W'0',FLD5«, t00=0x0022, t01=0x00aa}
0x35ea…361a Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),=W'0',FLD3«, t00=0x0022, t01=0x00d2}
0x361a…3640 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0022, t01=0x0102}
0x3640…364c Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x0022, t01=0x0128}
0x364c…3674 Head {h00=0x0024, h01=0x0050, text=» CBE FML4,=W'0',FLD5«, t00=0x0022, t01=0x0134}
0x3674…36a4 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),=W'0',FLD5«, t00=0x0022, t01=0x015c}
0x36a4…36ca Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x0022, t01=0x018c}
0x36ca…36d6 Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x0023, t01=0x0022}
0x36d6…36ea Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0023, t01=0x002e}
0x36ea…36f8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0042}
0x36f8…3702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x3702…370c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005a}
0x370c…3720 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0023, t01=0x0064}
0x3720…3724 Head {h00=0x4004, h01=0x0000}
0x3724…3728 00 23 00 78 ┆ # x┆
0x3728…3730 (36, 1, 8) 20 04 00 00 00 24 00 04 ┆ $ ┆