|
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: 12094 (0x2f3e)
Notes: pts_type(SC)
Names: »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 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
* 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
CBE GTREGDEX,=W'10',SLUT35 TRANS10, ALWAYS SUPL YEAR
TBF TTSUPFLG,SLUT50
SLUT35
MOVE GTDUPF(CBIN6),GTDATO GET DATE
SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR
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,=W'17'
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 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
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
*
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
*
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…008a Head {h00=0x001c, h01=0x0050, text=» ENTRY FLDTST «, t00=0x0000, t01=0x006e}
0x008a…00a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDAKK «, t00=0x0000, t01=0x008e}
0x00a0…00b6 Head {h00=0x0012, h01=0x0050, text=» ENTRY SUMWRT «, t00=0x0000, t01=0x00a4}
0x00b6…00cc Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDA12 «, t00=0x0000, t01=0x00ba}
0x00cc…00e0 Head {h00=0x0010, h01=0x0050, text=» ENTRY FLDIN«, t00=0x0000, t01=0x00d0}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x00e4}
0x00f4…0114 Head {h00=0x001c, h01=0x0050, text=» EXT WRITFD «, t00=0x0000, t01=0x00f8}
0x0114…0134 Head {h00=0x001c, h01=0x0050, text=» EXT WRITVO «, t00=0x0000, t01=0x0118}
0x0134…0154 Head {h00=0x001c, h01=0x0050, text=» EXT WRITJT «, t00=0x0000, t01=0x0138}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=» EXT FRMTJT «, t00=0x0000, t01=0x0158}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x016c}
0x017c…0190 Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x0180}
0x0190…01a4 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT FRMTVO «, t00=0x0001, t01=0x0004}
0x01a4…01b8 Head {h00=0x0010, h01=0x0050, text=» EXT KTPLAN «, t00=0x0001, t01=0x0018}
0x01b8…01ca Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x002c}
0x01ca…01de Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x003e}
0x01de…01f2 Head {h00=0x0010, h01=0x0050, text=» EXT SPINF8 «, t00=0x0001, t01=0x0052}
0x01f2…020a Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0066}
0x020a…0218 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x007e}
0x0218…022e Head {h00=0x0012, h01=0x0050, text=»SLUT PROC «, t00=0x0001, t01=0x008c}
0x022e…0250 Head {h00=0x001e, h01=0x0050, text=»** SLUT - PACKS THE BUFFER«, t00=0x0001, t01=0x00a2}
0x0250…026a Head {h00=0x0016, h01=0x0050, text=»** WRITES TO DISK «, t00=0x0001, t01=0x00c4}
0x026a…0282 Head {h00=0x0014, h01=0x0050, text=»** WRITE JOURNAL«, t00=0x0001, t01=0x00de}
0x0282…029a Head {h00=0x0014, h01=0x0050, text=»** WRITE VOUCHER«, t00=0x0001, t01=0x00f6}
0x029a…02ba Head {h00=0x001c, h01=0x0050, text=»** UPDATE ACCUMULATE=ORS«, t00=0x0001, t01=0x010e}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012e}
0x02c4…02ee Head {h00=0x0026, h01=0x0050, text=» TBT TTINVFLG,SLUT30 IF IN MODPOST«, t00=0x0001, t01=0x0138}
0x02ee…031c Head {h00=0x002a, h01=0x0050, text=»* FIND CORRECT ARKIV KONTO NR«, t00=0x0001, t01=0x0162}
0x031c…0342 Head {h00=0x0022, h01=0x0050, text=» MOVE TTDBKRM,=C'K' IF KREDIT «, t00=0x0001, t01=0x0190}
0x0342…0364 Head {h00=0x001e, h01=0x0050, text=» CBE TTDKDEX,CBIN1,SLUT10 «, t00=0x0002, t01=0x0026}
0x0364…0388 Head {h00=0x0020, h01=0x0050, text=» MOVE TTDBKRM,=C'D' IF DEBET«, t00=0x0002, t01=0x0048}
0x0388…0396 Head {h00=0x000a, h01=0x0050, text=»SLUT10«, t00=0x0002, t01=0x006c}
0x0396…03b2 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SLUT30 «, t00=0x0002, t01=0x007a}
0x03b2…03ce Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SLUT30«, t00=0x0002, t01=0x0096}
0x03ce…03fc Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 «, t00=0x0002, t01=0x00b2}
0x03fc…042a Head {h00=0x002a, h01=0x0050, text=» CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 «, t00=0x0002, t01=0x00e0}
0x042a…044e Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0002, t01=0x010e}
0x044e…0470 Head {h00=0x001e, h01=0x0050, text=» MOVE GTUSED(CBIN9),CBIN13«, t00=0x0002, t01=0x0132}
0x0470…049e Head {h00=0x002a, h01=0x0050, text=» CBNE TTARKSAV,=D'0',SLUT30 NO ARKIV? «, t00=0x0002, t01=0x0154}
0x049e…04c2 Head {h00=0x0020, h01=0x0050, text=» MOVE TTARKSAV,GTDUPF(CBIN1)«, t00=0x0002, t01=0x0182}
0x04c2…04e6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN9),TTARKSAV«, t00=0x0003, t01=0x0016}
0x04e6…04f4 Head {h00=0x000a, h01=0x0050, text=»SLUT30«, t00=0x0003, t01=0x003a}
0x04f4…052a Head {h00=0x0032, h01=0x0050, text=»* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10 «, t00=0x0003, t01=0x0048}
0x052a…054e Head {h00=0x0020, h01=0x0050, text=» CBG GTREGDEX,=W'10',SLUT50 «, t00=0x0003, t01=0x007e}
0x054e…0570 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'3',SLUT50«, t00=0x0003, t01=0x00a2}
0x0570…0592 Head {h00=0x001e, h01=0x0050, text=» CBE GTREGDEX,=W'4',SLUT50«, t00=0x0003, t01=0x00c4}
0x0592…05aa Head {h00=0x0014, h01=0x0050, text=»* TYPES 1,2,5-10«, t00=0x0003, t01=0x00e6}
0x05aa…05e8 Head {h00=0x003a, h01=0x0050, text=» CBE GTREGDEX,=W'10',SLUT35 TRANS10, ALWAYS SUPL YEAR «, t00=0x0003, t01=0x00fe}
0x05e8…0604 Head {h00=0x0018, h01=0x0050, text=» TBF TTSUPFLG,SLUT50«, t00=0x0003, t01=0x013c}
0x0604…0612 Head {h00=0x000a, h01=0x0050, text=»SLUT35«, t00=0x0003, t01=0x0158}
0x0612…063e Head {h00=0x0028, h01=0x0050, text=» MOVE GTDUPF(CBIN6),GTDATO GET DATE «, t00=0x0003, t01=0x0166}
0x063e…066e (4, 0, 398) Head {h00=0x002c, h01=0x0050, text=» SUB GTDUPF(CBIN6),=D'1' SUB 1 FROM YEAR«, t00=0x0004, t01=0x0004}
0x066e…06a4 Head {h00=0x0032, h01=0x0050, text=» MOVE TSWBCD2,GTDUPF(CBIN6) ISOLATE LAST DIGIT«, t00=0x0004, t01=0x0034}
0x06a4…06c8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN6),TSWBCD2 «, t00=0x0004, t01=0x006a}
0x06c8…06f8 Head {h00=0x002c, h01=0x0050, text=» MOVE GTUSED(CBIN6),CBIN10 SET FIELD NO«, t00=0x0004, t01=0x008e}
0x06f8…0706 Head {h00=0x000a, h01=0x0050, text=»SLUT50«, t00=0x0004, t01=0x00be}
0x0706…0710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00cc}
0x0710…0736 Head {h00=0x0022, h01=0x0050, text=» ADD TTLBNR,=D'1' EKSP. LB. NR«, t00=0x0004, t01=0x00d6}
0x0736…0754 Head {h00=0x001a, h01=0x0050, text=» PERF WRITFD «, t00=0x0004, t01=0x00fc}
0x0754…076a Head {h00=0x0012, h01=0x0050, text=» BNOK SLUTNOK «, t00=0x0004, t01=0x011a}
0x076a…0794 Head {h00=0x0026, h01=0x0050, text=» PERF SUMWRT WRITE SUM OR RESTSUM «, t00=0x0004, t01=0x0130}
0x0794…07bc Head {h00=0x0024, h01=0x0050, text=» TBF GTKASSE,SLUT60 ON JOURNAL?«, t00=0x0004, t01=0x015a}
0x07bc…07d0 Head {h00=0x0010, h01=0x0050, text=» PERF FRMTJT«, t00=0x0004, t01=0x0182}
0x07d0…07ea Head {h00=0x0016, h01=0x0050, text=» PERF WRITJT,=W'0'«, t00=0x0005, t01=0x0008}
0x07ea…07f8 Head {h00=0x000a, h01=0x0050, text=»SLUT60«, t00=0x0005, t01=0x0022}
0x07f8…080c Head {h00=0x0010, h01=0x0050, text=» PERF FRMTVO«, t00=0x0005, t01=0x0030}
0x080c…082a Head {h00=0x001a, h01=0x0050, text=» PERF WRITVO «, t00=0x0005, t01=0x0044}
0x082a…0844 Head {h00=0x0016, h01=0x0050, text=»* TEST IF IN LISTE«, t00=0x0005, t01=0x0062}
0x0844…0860 Head {h00=0x0018, h01=0x0050, text=» TBF TTLSTFLG,SLUT80«, t00=0x0005, t01=0x007c}
0x0860…087a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN4«, t00=0x0005, t01=0x0098}
0x087a…088e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0005, t01=0x00b2}
0x088e…089c Head {h00=0x000a, h01=0x0050, text=»SLUT80«, t00=0x0005, t01=0x00c6}
0x089c…08ba Head {h00=0x001a, h01=0x0050, text=» PERF UPDAKK «, t00=0x0005, t01=0x00d4}
0x08ba…08d0 Head {h00=0x0012, h01=0x0050, text=» SET GTKORTFL «, t00=0x0005, t01=0x00f2}
0x08d0…08ee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0005, t01=0x0108}
0x08ee…0906 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0005, t01=0x0126}
0x0906…0932 Head {h00=0x0028, h01=0x0050, text=» SLUT90,SLUT95,SLUT95,SLUT95,SLUT90«, t00=0x0005, t01=0x013e}
0x0932…0940 Head {h00=0x000a, h01=0x0050, text=»SLUT90«, t00=0x0005, t01=0x016a}
0x0940…0958 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTKORTFL «, t00=0x0005, t01=0x0178}
0x0958…0966 Head {h00=0x000a, h01=0x0050, text=»SLUT95«, t00=0x0005, t01=0x0190}
0x0966…097c Head {h00=0x0012, h01=0x0050, text=» SET TTEORFLG «, t00=0x0006, t01=0x000e}
0x097c…09a4 Head {h00=0x0024, h01=0x0050, text=» CLEAR SPME READY FOR FUNCTIONS «, t00=0x0006, t01=0x0024}
0x09a4…09bc Head {h00=0x0014, h01=0x0050, text=» CLEAR GTREGFLG «, t00=0x0006, t01=0x004c}
0x09bc…09e0 Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SETCR=0«, t00=0x0006, t01=0x0064}
0x09e0…09ec Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0088}
0x09ec…09fc Head {h00=0x000c, h01=0x0050, text=»SLUTNOK «, t00=0x0006, t01=0x0094}
0x09fc…0a2a Head {h00=0x002a, h01=0x0050, text=» SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER«, t00=0x0006, t01=0x00a4}
0x0a2a…0a40 Head {h00=0x0012, h01=0x0050, text=» DISK ERROR «, t00=0x0006, t01=0x00d2}
0x0a40…0a5c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'17'«, t00=0x0006, t01=0x00e8}
0x0a5c…0a74 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0006, t01=0x0104}
0x0a74…0a88 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0006, t01=0x011c}
0x0a88…0a9e Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0130}
0x0a9e…0aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0146}
0x0aa8…0ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0150}
0x0ab2…0ac0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x015a}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=»SUMWRT PROC «, t00=0x0006, t01=0x0168}
0x0ad4…0af0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0006, t01=0x017c}
0x0af0…0afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afa…0b36 Head {h00=0x0038, h01=0x0050, text=»** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM«, t00=0x0007, t01=0x0012}
0x0b36…0b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004e}
0x0b40…0b5c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0058}
0x0b5c…0b84 Head {h00=0x0024, h01=0x0050, text=» TBF TTSUMFLG,SUMRET ONLY IF SUM«, t00=0x0007, t01=0x0074}
0x0b84…0ba0 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,SUMADD «, t00=0x0007, t01=0x009c}
0x0ba0…0bbc Head {h00=0x0018, h01=0x0050, text=» TBT TTCY2FLG,SUMADD«, t00=0x0007, t01=0x00b8}
0x0bbc…0bf2 Head {h00=0x0032, h01=0x0050, text=» SUB GTSUM,GTDUPF(CBIN4) CALCULATE NEW RESTSUM«, t00=0x0007, t01=0x00d4}
0x0bf2…0c16 Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0007, t01=0x010a}
0x0c16…0c28 Head {h00=0x000e, h01=0x0050, text=» B SUMOUT «, t00=0x0007, t01=0x012e}
0x0c28…0c36 Head {h00=0x000a, h01=0x0050, text=»SUMADD«, t00=0x0007, t01=0x0140}
0x0c36…0c68 Head {h00=0x002e, h01=0x0050, text=» ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM«, t00=0x0007, t01=0x014e}
0x0c68…0c8c Head {h00=0x0020, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) «, t00=0x0007, t01=0x0180}
0x0c8c…0c9a Head {h00=0x000a, h01=0x0050, text=»SUMOUT«, t00=0x0008, t01=0x0014}
0x0c9a…0cae Head {h00=0x0010, h01=0x0050, text=» PERF SPINF8«, t00=0x0008, t01=0x0022}
0x0cae…0cbc Head {h00=0x000a, h01=0x0050, text=»SUMRET«, t00=0x0008, t01=0x0036}
0x0cbc…0cfa Head {h00=0x003a, h01=0x0050, text=» ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION «, t00=0x0008, t01=0x0044}
0x0cfa…0d06 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0082}
0x0d06…0d14 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x008e}
0x0d14…0d2a Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x009c}
0x0d2a…0d40 Head {h00=0x0012, h01=0x0050, text=»UPDAKK PROC «, t00=0x0008, t01=0x00b2}
0x0d40…0d5c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x00c8}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d66…0d7e Head {h00=0x0014, h01=0x0050, text=»* UPDAKK «, t00=0x0008, t01=0x00ee}
0x0d7e…0db2 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE FOR UPDATING ACCUMULATORS «, t00=0x0008, t01=0x0106}
0x0db2…0dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbc…0df0 Head {h00=0x0030, h01=0x0050, text=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) «, t00=0x0008, t01=0x0144}
0x0df0…0e14 Head {h00=0x0020, h01=0x0050, text=»* IDX1 = TRNR«, t00=0x0008, t01=0x0178}
0x0e14…0e3a Head {h00=0x0022, h01=0x0050, text=»* IDX2 = DEB/KRE«, t00=0x0009, t01=0x000c}
0x0e3a…0e6c Head {h00=0x002e, h01=0x0050, text=»* TR12 UPDATES TTACC12(IDX1,IDX2) «, t00=0x0009, t01=0x0032}
0x0e6c…0e96 Head {h00=0x0026, h01=0x0050, text=»* IDX1 = TAELLER NR«, t00=0x0009, t01=0x0064}
0x0e96…0ebe Head {h00=0x0024, h01=0x0050, text=»* IDX2 = DEB/KRE «, t00=0x0009, t01=0x008e}
0x0ebe…0ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b6}
0x0ec8…0f00 Head {h00=0x0034, h01=0x0050, text=»* ALL TRANSACTIONS UPDATE TTTOTDK(IDX2) «, t00=0x0009, t01=0x00c0}
0x0f00…0f3a Head {h00=0x0036, h01=0x0050, text=»* AND IF INVERT TTKORDK(IDX2)«, t00=0x0009, t01=0x00f8}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f44…0f60 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x013c}
0x0f60…0f8c Head {h00=0x0028, h01=0x0050, text=» CBNE GTREGNR,='12',UPD20«, t00=0x0009, t01=0x0158}
0x0f8c…0fca Head {h00=0x003a, h01=0x0050, text=» PERF UPDA12 TAELLER 12 «, t00=0x0009, t01=0x0184}
0x0fca…0fea Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000a, t01=0x0032}
0x0fea…0ff8 Head {h00=0x000a, h01=0x0050, text=»UPD20 «, t00=0x000a, t01=0x0052}
0x0ff8…102e Head {h00=0x0032, h01=0x0050, text=» CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR«, t00=0x000a, t01=0x0060}
0x102e…104e Head {h00=0x001c, h01=0x0050, text=» CERTAIN TRANSACTIONS «, t00=0x000a, t01=0x0096}
0x104e…1074 Head {h00=0x0022, h01=0x0050, text=» CBE GTUSED(CBIN6),CBIN0,UPD30«, t00=0x000a, t01=0x00b6}
0x1074…10a4 Head {h00=0x002c, h01=0x0050, text=» ADD TTACC(CBIN8,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000a, t01=0x00dc}
0x10a4…10c2 Head {h00=0x001a, h01=0x0050, text=» UPDATE SUPL COUNTER«, t00=0x000a, t01=0x010c}
0x10c2…10d0 Head {h00=0x000a, h01=0x0050, text=»UPD30 «, t00=0x000a, t01=0x012a}
0x10d0…10ec Head {h00=0x0018, h01=0x0050, text=» TBT GTTESTFL,UPD38 «, t00=0x000a, t01=0x0138}
0x10ec…111a Head {h00=0x002a, h01=0x0050, text=»* ACCUMULATE 'BEHOLDNINGSTAELLERE'«, t00=0x000a, t01=0x0154}
0x111a…1136 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x000a, t01=0x0182}
0x1136…1144 Head {h00=0x000a, h01=0x0050, text=»UPD35 «, t00=0x000b, t01=0x000e}
0x1144…1180 Head {h00=0x0038, h01=0x0050, text=» CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? «, t00=0x000b, t01=0x001c}
0x1180…11be Head {h00=0x003a, h01=0x0050, text=» CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? «, t00=0x000b, t01=0x0058}
0x11be…11cc Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000b, t01=0x0096}
0x11cc…11fc Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN2),GTDUPF(CBIN4) «, t00=0x000b, t01=0x00a4}
0x11fc…122c Head {h00=0x002c, h01=0x0050, text=» ADD CBACC(GSWBIN1,CBIN3),GTDUPF(CBIN4) «, t00=0x000b, t01=0x00d4}
0x122c…123a Head {h00=0x000a, h01=0x0050, text=»UPD36 «, t00=0x000b, t01=0x0104}
0x123a…126a Head {h00=0x002c, h01=0x0050, text=» ADD GSWBIN1,CBIN1 LOOK AT NEXT COUNTER «, t00=0x000b, t01=0x0112}
0x126a…128c Head {h00=0x001e, h01=0x0050, text=» CBNG GSWBIN1,=W'60',UPD35«, t00=0x000b, t01=0x0142}
0x128c…129a Head {h00=0x000a, h01=0x0050, text=»UPD38 «, t00=0x000b, t01=0x0164}
0x129a…12cc Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX «, t00=0x000b, t01=0x0172}
0x12cc…130a Head {h00=0x003a, h01=0x0050, text=» ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) «, t00=0x000c, t01=0x0014}
0x130a…1350 Head {h00=0x0042, h01=0x0050, text=» UPDATE ACCUMULATOR «, t00=0x000c, t01=0x0052}
0x1350…137e Head {h00=0x002a, h01=0x0050, text=» IB TTDKDEX,UPDKR,UPDDB SEE IF INVERT «, t00=0x000c, t01=0x0098}
0x137e…138c Head {h00=0x000a, h01=0x0050, text=»UPDDB «, t00=0x000c, t01=0x00c6}
0x138c…13d0 Head {h00=0x0040, h01=0x0050, text=» CBNL GTDUPF(CBIN4),='0',UPD50 IF NEGATIVE DEBET«, t00=0x000c, t01=0x00d4}
0x13d0…140a Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000c, t01=0x0118}
0x140a…141a Head {h00=0x000c, h01=0x0050, text=» B UPD50«, t00=0x000c, t01=0x0152}
0x141a…1428 Head {h00=0x000a, h01=0x0050, text=»UPDKR «, t00=0x000c, t01=0x0162}
0x1428…1464 Head {h00=0x0038, h01=0x0050, text=» CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, «, t00=0x000c, t01=0x0170}
0x1464…149e Head {h00=0x0036, h01=0x0050, text=» ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION«, t00=0x000d, t01=0x001c}
0x149e…14ac Head {h00=0x000a, h01=0x0050, text=»UPD50 «, t00=0x000d, t01=0x0056}
0x14ac…14dc Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6«, t00=0x000d, t01=0x0064}
0x14dc…1524 Head {h00=0x0044, h01=0x0050, text=» TBT GTTFLG,UPDRET WHEN CLOSE, NO UPDATE«, t00=0x000d, t01=0x0094}
0x1524…153e Head {h00=0x0016, h01=0x0050, text=» TBT CWFLAG,UPD55 «, t00=0x000d, t01=0x00dc}
0x153e…1580 Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPDRET IF KASSEKONTO,NO UPDATE«, t00=0x000d, t01=0x00f6}
0x1580…15be Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPDRET IF VERSUR, NO UPDATE«, t00=0x000d, t01=0x0138}
0x15be…15cc Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x000d, t01=0x0176}
0x15cc…15fa Head {h00=0x002a, h01=0x0050, text=» CBG GTREGNR,=D'17',UPDRET«, t00=0x000d, t01=0x0184}
0x15fa…1628 Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) «, t00=0x000e, t01=0x0022}
0x1628…1648 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000e, t01=0x0050}
0x1648…1656 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x000e, t01=0x0070}
0x1656…1662 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x007e}
0x1662…1678 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x008a}
0x1678…168e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a0}
0x168e…16a4 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x000e, t01=0x00b6}
0x16a4…16c0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x00cc}
0x16c0…16ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e8}
0x16ca…16f4 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x000e, t01=0x00f2}
0x16f4…16fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011c}
0x16fe…171a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0126}
0x171a…1758 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x000e, t01=0x0142}
0x1758…177e Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x000e, t01=0x0180}
0x177e…17a8 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x000f, t01=0x0016}
0x17a8…17e6 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x000f, t01=0x0040}
0x17e6…1808 Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x000f, t01=0x007e}
0x1808…1840 Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x000f, t01=0x00a0}
0x1840…1878 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x000f, t01=0x00d8}
0x1878…188c Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0110}
0x188c…18a2 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0124}
0x18a2…18b8 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x013a}
0x18b8…18ce Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x000f, t01=0x0150}
0x18ce…18ea Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x0166}
0x18ea…18f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0182}
0x18f4…1930 Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x000f, t01=0x018c}
0x1930…1958 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0010, t01=0x0038}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x1962…197e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x006a}
0x197e…19a6 Head {h00=0x0024, h01=0x0050, text=» PERF PACKST CLEAR UNUSED FIELDS«, t00=0x0010, t01=0x0086}
0x19a6…19cc Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0010, t01=0x00ae}
0x19cc…19fc Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0010, t01=0x00d4}
0x19fc…1a2c Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDTOK,FLDT10, C«, t00=0x0010, t01=0x0104}
0x1a2c…1a6c Head {h00=0x003c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0010, t01=0x0134}
0x1a6c…1aac Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0010, t01=0x0174}
0x1aac…1ae0 Head {h00=0x0030, h01=0x0050, text=» FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0011, t01=0x0024}
0x1ae0…1aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1aea…1af8 Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0011, t01=0x0062}
0x1af8…1b2c Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0011, t01=0x0070}
0x1b2c…1b5e Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0011, t01=0x00a4}
0x1b5e…1b8c Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0011, t01=0x00d6}
0x1b8c…1bb0 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0011, t01=0x0104}
0x1bb0…1bd4 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0011, t01=0x0128}
0x1bd4…1be6 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0011, t01=0x014c}
0x1be6…1bf6 Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0011, t01=0x015e}
0x1bf6…1c1a Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0011, t01=0x016e}
0x1c1a…1c3e (18, 0, 400) Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0012, t01=0x0004}
0x1c3e…1c50 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0012, t01=0x0028}
0x1c50…1c60 Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0012, t01=0x003a}
0x1c60…1c84 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0012, t01=0x004a}
0x1c84…1ca8 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0012, t01=0x006e}
0x1ca8…1cb8 Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0012, t01=0x0092}
0x1cb8…1ccc Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0012, t01=0x00a2}
0x1ccc…1cee Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0012, t01=0x00b6}
0x1cee…1d10 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0012, t01=0x00d8}
0x1d10…1d32 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0012, t01=0x00fa}
0x1d32…1d4e Head {h00=0x0018, h01=0x0050, text=» TBT C167FLG,FLDT038«, t00=0x0012, t01=0x011c}
0x1d4e…1d70 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0012, t01=0x0138}
0x1d70…1d84 Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0012, t01=0x015a}
0x1d84…1da6 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0012, t01=0x016e}
0x1da6…1dc6 Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO = 21-25 «, t00=0x0012, t01=0x0190}
0x1dc6…1dd6 Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0013, t01=0x0020}
0x1dd6…1df8 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0013, t01=0x0030}
0x1df8…1e12 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=46 «, t00=0x0013, t01=0x0052}
0x1e12…1e34 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0013, t01=0x006c}
0x1e34…1e4e Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0013, t01=0x008e}
0x1e4e…1e6c Head {h00=0x001a, h01=0x0050, text=» B FLDT039 END ODENSE «, t00=0x0013, t01=0x00a8}
0x1e6c…1e86 Head {h00=0x0016, h01=0x0050, text=»FLDT038 HVIDOVRE«, t00=0x0013, t01=0x00c6}
0x1e86…1ea8 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0013, t01=0x00e0}
0x1ea8…1ec6 Head {h00=0x001a, h01=0x0050, text=» BNE FLDTOK BKO <> 46 «, t00=0x0013, t01=0x0102}
0x1ec6…1ed6 Head {h00=0x000c, h01=0x0050, text=»FLDT039 «, t00=0x0013, t01=0x0120}
0x1ed6…1f0c Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0013, t01=0x0130}
0x1f0c…1f40 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0013, t01=0x0166}
0x1f40…1f52 Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0014, t01=0x000a}
0x1f52…1f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001c}
0x1f5c…1f6a Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0014, t01=0x0026}
0x1f6a…1fa0 Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0014, t01=0x0034}
0x1fa0…1fc2 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0014, t01=0x006a}
0x1fc2…1fe8 Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0014, t01=0x008c}
0x1fe8…2008 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0014, t01=0x00b2}
0x2008…203e Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0014, t01=0x00d2}
0x203e…2086 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0014, t01=0x0108}
0x2086…20a0 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0014, t01=0x0150}
0x20a0…20b4 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0014, t01=0x016a}
0x20b4…20d6 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0014, t01=0x017e}
0x20d6…20ea Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0015, t01=0x0010}
0x20ea…210a Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0015, t01=0x0024}
0x210a…2114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0044}
0x2114…2122 Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0015, t01=0x004e}
0x2122…2136 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0015, t01=0x005c}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=» BZ FLDTOK«, t00=0x0015, t01=0x0070}
0x2148…216a Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0015, t01=0x0082}
0x216a…218c Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 46 USED «, t00=0x0015, t01=0x00a4}
0x218c…21c6 Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0015, t01=0x00c6}
0x21c6…21fa Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0015, t01=0x0100}
0x21fa…220c Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0015, t01=0x0134}
0x220c…2216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0146}
0x2216…2224 Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x0015, t01=0x0150}
0x2224…2242 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0015, t01=0x015e}
0x2242…225a Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0015, t01=0x017c}
0x225a…228c (22, 0, 400) Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x0016, t01=0x0004}
0x228c…229c Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x0016, t01=0x0036}
0x229c…22ae Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0016, t01=0x0046}
0x22ae…22be Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x0016, t01=0x0058}
0x22be…22de Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0016, t01=0x0068}
0x22de…22f2 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0016, t01=0x0088}
0x22f2…2304 Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0016, t01=0x009c}
0x2304…2314 Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x0016, t01=0x00ae}
0x2314…2334 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0016, t01=0x00be}
0x2334…2348 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0016, t01=0x00de}
0x2348…2364 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x0016, t01=0x00f2}
0x2364…2378 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0016, t01=0x010e}
0x2378…2392 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x0016, t01=0x0122}
0x2392…23ac Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x0016, t01=0x013c}
0x23ac…23c8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x0016, t01=0x0156}
0x23c8…23e6 Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x0016, t01=0x0172}
0x23e6…23f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0190}
0x23f0…23fe Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x0017, t01=0x000a}
0x23fe…2444 Head {h00=0x0042, h01=0x0050, text=» PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57 «, t00=0x0017, t01=0x0018}
0x2444…2472 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0017, t01=0x005e}
0x2472…2492 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0017, t01=0x008c}
0x2492…249c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ac}
0x249c…24aa Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x0017, t01=0x00b6}
0x24aa…24ec Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x0017, t01=0x00c4}
0x24ec…250e Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0017, t01=0x0106}
0x250e…252e Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0017, t01=0x0128}
0x252e…2538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0148}
0x2538…2546 Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x0017, t01=0x0152}
0x2546…2588 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x0017, t01=0x0160}
0x2588…25b6 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK«, t00=0x0018, t01=0x0012}
0x25b6…25fa Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x0018, t01=0x0040}
0x25fa…2628 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'2',FLDT525«, t00=0x0018, t01=0x0084}
0x2628…266a Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x0018, t01=0x00b2}
0x266a…2698 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x0018, t01=0x00f4}
0x2698…26a8 Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x0018, t01=0x0122}
0x26a8…26e6 Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x0018, t01=0x0132}
0x26e6…2724 Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x0018, t01=0x0170}
0x2724…2734 Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x0019, t01=0x001e}
0x2734…2770 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0019, t01=0x002e}
0x2770…27ae Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0019, t01=0x006a}
0x27ae…27ce Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x0019, t01=0x00a8}
0x27ce…27d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c8}
0x27d8…27e6 Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x0019, t01=0x00d2}
0x27e6…2824 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47«, t00=0x0019, t01=0x00e0}
0x2824…286c Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x0019, t01=0x011e}
0x286c…289a Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x0019, t01=0x0166}
0x289a…28aa (26, 0, 400) Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x001a, t01=0x0004}
0x28aa…28e8 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 «, t00=0x001a, t01=0x0014}
0x28e8…2926 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47«, t00=0x001a, t01=0x0052}
0x2926…2936 Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x001a, t01=0x0090}
0x2936…2972 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001a, t01=0x00a0}
0x2972…29b0 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001a, t01=0x00dc}
0x29b0…29d0 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x011a}
0x29d0…29da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x013a}
0x29da…29e8 Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x001a, t01=0x0144}
0x29e8…2a24 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001a, t01=0x0152}
0x2a24…2a62 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001a, t01=0x018e}
0x2a62…2a82 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001b, t01=0x003c}
0x2a82…2a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005c}
0x2a8c…2a9a Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x001b, t01=0x0066}
0x2a9a…2ad8 Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x001b, t01=0x0074}
0x2ad8…2aec Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00b2}
0x2aec…2af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c6}
0x2af6…2b06 Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x001b, t01=0x00d0}
0x2b06…2b4c Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x001b, t01=0x00e0}
0x2b4c…2b60 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0126}
0x2b60…2b76 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x013a}
0x2b76…2b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0150}
0x2b80…2b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015a}
0x2b8a…2ba0 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0164}
0x2ba0…2bcc Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x001b, t01=0x017a}
0x2bcc…2be8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0016}
0x2be8…2bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0032}
0x2bf2…2c2c Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x001c, t01=0x003c}
0x2c2c…2c5a Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x001c, t01=0x0076}
0x2c5a…2c7c Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x001c, t01=0x00a4}
0x2c7c…2c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c86…2ca2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x00d0}
0x2ca2…2cc8 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,=W'0'«, t00=0x001c, t01=0x00ec}
0x2cc8…2cf0 Head {h00=0x0024, h01=0x0050, text=» CBE FML1,=W'0',FLD5«, t00=0x001c, t01=0x0112}
0x2cf0…2d14 Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x001c, t01=0x013a}
0x2d14…2d3a Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001c, t01=0x015e}
0x2d3a…2d46 Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x001c, t01=0x0184}
0x2d46…2d6e Head {h00=0x0024, h01=0x0050, text=» CBE FML2,=W'0',FLD5«, t00=0x001c, t01=0x0190}
0x2d6e…2d9e Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),=W'0',FLD2«, t00=0x001d, t01=0x0028}
0x2d9e…2dc4 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001d, t01=0x0058}
0x2dc4…2dd0 Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x001d, t01=0x007e}
0x2dd0…2df8 Head {h00=0x0024, h01=0x0050, text=» CBE FML3,=W'0',FLD5«, t00=0x001d, t01=0x008a}
0x2df8…2e28 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),=W'0',FLD3«, t00=0x001d, t01=0x00b2}
0x2e28…2e4e Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001d, t01=0x00e2}
0x2e4e…2e5a Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x001d, t01=0x0108}
0x2e5a…2e82 Head {h00=0x0024, h01=0x0050, text=» CBE FML4,=W'0',FLD5«, t00=0x001d, t01=0x0114}
0x2e82…2eb2 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),=W'0',FLD5«, t00=0x001d, t01=0x013c}
0x2eb2…2ed8 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001d, t01=0x016c}
0x2ed8…2ee4 (30, 2, 94) Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x001e, t01=0x0004}
0x2ee4…2ef8 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0010}
0x2ef8…2f06 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x0024}
0x2f06…2f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0032}
0x2f10…2f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f1a…2f2e Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x001e, t01=0x0046}
0x2f2e…2f32 Head {h00=0x4004, h01=0x0000}
0x2f32…2f36 00 1e 00 5a ┆ Z┆
0x2f36…2f3e (31, 1, 8) 20 04 00 00 00 1f 00 04 ┆ ┆