|
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: 14332 (0x37fc)
Notes: pts_type(SC)
Names: »RGSUB1.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/RGSUB1.SC«
IDENT RGSUB1 02.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,UPD60
CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE
CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE
B UPD55
UPD54 SPECIAL ACCOUNTS
ADD TTCYKTOT,GTDUPF(CBIN4) CASH CORRECTION
B UPD60
UPD55
MOVE TTCYKTOT,=D'0' CASH CORRECTION
UPD60
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,FLDT09,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
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
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 FLDT09
CMP GTUSED(CBIN17),=W'0'
BNE FLDT09 FIELD 46 USED
MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED
MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1
B FLDT09
*
FLDT09
* NB. NORDJYLLANDS AMT
* AT LEAST ONE FIELD 23,24,25,26: INDEX 12,13,14,15
PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15
CMP GSWBIN1,=W'0'
BNE FLDTOK
B FLDTNOK
*
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 02.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x0056…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,UPD60 «, t00=0x000d, t01=0x00dc}
0x153e…1580 Head {h00=0x003e, h01=0x0050, text=» CBE TTCASHAC,GTDUPF(CBIN1),UPD54 IF KASSEKONTO,NO UPDATE «, t00=0x000d, t01=0x00f6}
0x1580…15be Head {h00=0x003a, h01=0x0050, text=» CBE TVERSUR,GTDUPF(CBIN1),UPD54 IF VERSUR, NO UPDATE «, t00=0x000d, t01=0x0138}
0x15be…15ce Head {h00=0x000c, h01=0x0050, text=» B UPD55«, t00=0x000d, t01=0x0176}
0x15ce…15ee Head {h00=0x001c, h01=0x0050, text=»UPD54 SPECIAL ACCOUNTS«, t00=0x000d, t01=0x0186}
0x15ee…1622 Head {h00=0x0030, h01=0x0050, text=» ADD TTCYKTOT,GTDUPF(CBIN4) CASH CORRECTION «, t00=0x000e, t01=0x0016}
0x1622…1632 Head {h00=0x000c, h01=0x0050, text=» B UPD60«, t00=0x000e, t01=0x004a}
0x1632…1640 Head {h00=0x000a, h01=0x0050, text=»UPD55 «, t00=0x000e, t01=0x005a}
0x1640…166c Head {h00=0x0028, h01=0x0050, text=» MOVE TTCYKTOT,=D'0' CASH CORRECTION«, t00=0x000e, t01=0x0068}
0x166c…167a Head {h00=0x000a, h01=0x0050, text=»UPD60 «, t00=0x000e, t01=0x0094}
0x167a…16a8 Head {h00=0x002a, h01=0x0050, text=» CBG GTREGNR,=D'17',UPDRET«, t00=0x000e, t01=0x00a2}
0x16a8…16d6 Head {h00=0x002a, h01=0x0050, text=» SUB TTCASH,GTDUPF(CBIN4) «, t00=0x000e, t01=0x00d0}
0x16d6…16f6 Head {h00=0x001c, h01=0x0050, text=» B UPDRET «, t00=0x000e, t01=0x00fe}
0x16f6…1704 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x000e, t01=0x011e}
0x1704…1710 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x012c}
0x1710…1726 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x0138}
0x1726…173c Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x014e}
0x173c…1752 Head {h00=0x0012, h01=0x0050, text=»UPDA12 PROC «, t00=0x000e, t01=0x0164}
0x1752…176e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x017a}
0x176e…1778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0008}
0x1778…17a2 Head {h00=0x0026, h01=0x0050, text=»* UPDA12 - UPDATE FOR TR12 «, t00=0x000f, t01=0x0012}
0x17a2…17ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003c}
0x17ac…17c8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000f, t01=0x0046}
0x17c8…1806 Head {h00=0x003a, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR TAELLER NR «, t00=0x000f, t01=0x0062}
0x1806…182c Head {h00=0x0022, h01=0x0050, text=» SUB GSWBIN1,=W'100' GET INDEX«, t00=0x000f, t01=0x00a0}
0x182c…1856 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN1,CTR12(TTASKNR,CBIN1) «, t00=0x000f, t01=0x00c6}
0x1856…1894 Head {h00=0x003a, h01=0x0050, text=» ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4)«, t00=0x000f, t01=0x00f0}
0x1894…18b6 Head {h00=0x001e, h01=0x0050, text=» ADD TTEJEDB,GTDUPF(CBIN4)«, t00=0x000f, t01=0x012e}
0x18b6…18ee Head {h00=0x0034, h01=0x0050, text=» MOVE GSWBCD1,CTR12NR(GSWBIN1) GET TR 12 ACCOUNT«, t00=0x000f, t01=0x0150}
0x18ee…1926 Head {h00=0x0034, h01=0x0050, text=» PERF KTPLAN,GSWBCD1,GTKTTYP SEE IF KORT NEEDED «, t00=0x000f, t01=0x0188}
0x1926…193a Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0030}
0x193a…1950 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0044}
0x1950…1966 Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x005a}
0x1966…197c Head {h00=0x0012, h01=0x0050, text=»FLDTST PROC «, t00=0x0010, t01=0x0070}
0x197c…1998 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0086}
0x1998…19a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a2}
0x19a2…19de Head {h00=0x0038, h01=0x0050, text=»* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT«, t00=0x0010, t01=0x00ac}
0x19de…1a06 Head {h00=0x0024, h01=0x0050, text=»* FELT AFHAENGIGHEDS TEST«, t00=0x0010, t01=0x00e8}
0x1a06…1a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a10…1a2c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x011a}
0x1a2c…1a54 Head {h00=0x0024, h01=0x0050, text=» PERF PACKST CLEAR UNUSED FIELDS«, t00=0x0010, t01=0x0136}
0x1a54…1a7a Head {h00=0x0022, h01=0x0050, text=» IB GTREGDEX, C «, t00=0x0010, t01=0x015e}
0x1a7a…1aaa Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT03,FLDT04,FLDTOK, C«, t00=0x0010, t01=0x0184}
0x1aaa…1ada Head {h00=0x002c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDT08,FLDT09,FLDT10, C«, t00=0x0011, t01=0x0024}
0x1ada…1b1a Head {h00=0x003c, h01=0x0050, text=» FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C «, t00=0x0011, t01=0x0054}
0x1b1a…1b5a Head {h00=0x003c, h01=0x0050, text=» FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C «, t00=0x0011, t01=0x0094}
0x1b5a…1b8e Head {h00=0x0030, h01=0x0050, text=» FLDT50,FLDT52,FLDT53,FLDT54«, t00=0x0011, t01=0x00d4}
0x1b8e…1b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b98…1ba6 Head {h00=0x000a, h01=0x0050, text=»FLDT03«, t00=0x0011, t01=0x0112}
0x1ba6…1bda Head {h00=0x0030, h01=0x0050, text=» CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? «, t00=0x0011, t01=0x0120}
0x1bda…1c0c Head {h00=0x002e, h01=0x0050, text=»* YES, RTE/GEB, INSERT TEXT IN TT16TXT«, t00=0x0011, t01=0x0154}
0x1c0c…1c3a Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTDUPF(CBIN12) GET FIELD«, t00=0x0011, t01=0x0186}
0x1c3a…1c5e Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'0',FLDT031 «, t00=0x0012, t01=0x0024}
0x1c5e…1c82 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RAT' IF = 0«, t00=0x0012, t01=0x0048}
0x1c82…1c94 Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0012, t01=0x006c}
0x1c94…1ca4 Head {h00=0x000c, h01=0x0050, text=»FLDT031 «, t00=0x0012, t01=0x007e}
0x1ca4…1cc8 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'1',FLDT032 «, t00=0x0012, t01=0x008e}
0x1cc8…1cec Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'RTE' IF = 1«, t00=0x0012, t01=0x00b2}
0x1cec…1cfe Head {h00=0x000e, h01=0x0050, text=» B FLDT035«, t00=0x0012, t01=0x00d6}
0x1cfe…1d0e Head {h00=0x000c, h01=0x0050, text=»FLDT032 «, t00=0x0012, t01=0x00e8}
0x1d0e…1d32 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBCD3,=D'2',FLDT035 «, t00=0x0012, t01=0x00f8}
0x1d32…1d56 Head {h00=0x0020, h01=0x0050, text=» MOVE TT16TXT,=C'GEB' IF = 2«, t00=0x0012, t01=0x011c}
0x1d56…1d66 Head {h00=0x000c, h01=0x0050, text=»FLDT035 «, t00=0x0012, t01=0x0140}
0x1d66…1d7a Head {h00=0x0010, h01=0x0050, text=» TEST CFLT48«, t00=0x0012, t01=0x0150}
0x1d7a…1d9c Head {h00=0x001e, h01=0x0050, text=» BZ FLDTOK BRANCH IF FALSE«, t00=0x0012, t01=0x0164}
0x1d9c…1dbe Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN15),=W'0' «, t00=0x0012, t01=0x0186}
0x1dbe…1de0 Head {h00=0x001e, h01=0x0050, text=» BNE FLDTOK FIELD 48 USED «, t00=0x0013, t01=0x0018}
0x1de0…1e02 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'21' «, t00=0x0013, t01=0x003a}
0x1e02…1e16 Head {h00=0x0010, h01=0x0050, text=» BL FLDT037 «, t00=0x0013, t01=0x005c}
0x1e16…1e38 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'26' «, t00=0x0013, t01=0x0070}
0x1e38…1e58 Head {h00=0x001c, h01=0x0050, text=» BL FLDTOK BKO = 21-25 «, t00=0x0013, t01=0x0092}
0x1e58…1e68 Head {h00=0x000c, h01=0x0050, text=»FLDT037 «, t00=0x0013, t01=0x00b2}
0x1e68…1e8a Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'46' «, t00=0x0013, t01=0x00c2}
0x1e8a…1ea4 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=46 «, t00=0x0013, t01=0x00e4}
0x1ea4…1ec6 Head {h00=0x001e, h01=0x0050, text=» CMP GTDUPF(CBIN3),=D'56' «, t00=0x0013, t01=0x00fe}
0x1ec6…1ee0 Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK BKO=56 «, t00=0x0013, t01=0x0120}
0x1ee0…1f16 Head {h00=0x0032, h01=0x0050, text=» MOVE GTUSED(CBIN15),=W'48' SET FIELD 48 USED «, t00=0x0013, t01=0x013a}
0x1f16…1f4a Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN15),=D'1' SET FIELD 48 = 1 «, t00=0x0013, t01=0x0170}
0x1f4a…1f5c Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0014, t01=0x0014}
0x1f5c…1f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x1f66…1f74 Head {h00=0x000a, h01=0x0050, text=»FLDT04«, t00=0x0014, t01=0x0030}
0x1f74…1faa Head {h00=0x0032, h01=0x0050, text=» TBT BCPR,FLDT041 CIR«, t00=0x0014, t01=0x003e}
0x1faa…1fcc Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0014, t01=0x0074}
0x1fcc…1ff2 Head {h00=0x0022, h01=0x0050, text=» BE FLDTOK FIELD 17 (INDEX 10)«, t00=0x0014, t01=0x0096}
0x1ff2…2012 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0014, t01=0x00bc}
0x2012…2048 Head {h00=0x0032, h01=0x0050, text=»FLDT041 CPR«, t00=0x0014, t01=0x00dc}
0x2048…2090 Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN11,CBIN12,CBIN13,CBIN0 FIELD 18,19,20«, t00=0x0014, t01=0x0112}
0x2090…20aa Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0014, t01=0x015a}
0x20aa…20be Head {h00=0x0010, h01=0x0050, text=» BNE FLDTNOK«, t00=0x0014, t01=0x0174}
0x20be…20e0 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN10),=W'0' «, t00=0x0014, t01=0x0188}
0x20e0…20f4 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0015, t01=0x001a}
0x20f4…2114 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0015, t01=0x002e}
0x2114…211e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004e}
0x211e…212c Head {h00=0x000a, h01=0x0050, text=»FLDT08«, t00=0x0015, t01=0x0058}
0x212c…2140 Head {h00=0x0010, h01=0x0050, text=» TEST CFLT46«, t00=0x0015, t01=0x0066}
0x2140…2152 Head {h00=0x000e, h01=0x0050, text=» BZ FLDT09«, t00=0x0015, t01=0x007a}
0x2152…2174 Head {h00=0x001e, h01=0x0050, text=» CMP GTUSED(CBIN17),=W'0' «, t00=0x0015, t01=0x008c}
0x2174…2196 Head {h00=0x001e, h01=0x0050, text=» BNE FLDT09 FIELD 46 USED «, t00=0x0015, t01=0x00ae}
0x2196…21d0 Head {h00=0x0036, h01=0x0050, text=» MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED«, t00=0x0015, t01=0x00d0}
0x21d0…2204 Head {h00=0x0030, h01=0x0050, text=» MOVE GTDUPF(CBIN17),=D'1' SET FIELD 46 = 1 «, t00=0x0015, t01=0x010a}
0x2204…2216 Head {h00=0x000e, h01=0x0050, text=» B FLDT09 «, t00=0x0015, t01=0x013e}
0x2216…2220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0150}
0x2220…222e Head {h00=0x000a, h01=0x0050, text=»FLDT09«, t00=0x0015, t01=0x015a}
0x222e…224e Head {h00=0x001c, h01=0x0050, text=»* NB. NORDJYLLANDS AMT «, t00=0x0015, t01=0x0168}
0x224e…228a Head {h00=0x0038, h01=0x0050, text=»* AT LEAST ONE FIELD 23,24,25,26: INDEX 12,13,14,15«, t00=0x0015, t01=0x0188}
0x228a…22ba Head {h00=0x002c, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN13,CBIN14,CBIN15 «, t00=0x0016, t01=0x0034}
0x22ba…22d4 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN1,=W'0'«, t00=0x0016, t01=0x0064}
0x22d4…22e8 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0016, t01=0x007e}
0x22e8…22fa Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0016, t01=0x0092}
0x22fa…2304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a4}
0x2304…2312 Head {h00=0x000a, h01=0x0050, text=»FLDT10«, t00=0x0016, t01=0x00ae}
0x2312…2330 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTKTTYP «, t00=0x0016, t01=0x00bc}
0x2330…2348 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0016, t01=0x00da}
0x2348…237a Head {h00=0x002e, h01=0x0050, text=» FLDT105,FLDT105,FLDT102,FLDT108,FLDT108 «, t00=0x0016, t01=0x00f2}
0x237a…238a Head {h00=0x000c, h01=0x0050, text=»FLDT102 «, t00=0x0016, t01=0x0124}
0x238a…239c Head {h00=0x000e, h01=0x0050, text=» B FLDTOK «, t00=0x0016, t01=0x0134}
0x239c…23ac Head {h00=0x000c, h01=0x0050, text=»FLDT105 «, t00=0x0016, t01=0x0146}
0x23ac…23cc Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0016, t01=0x0156}
0x23cc…23e0 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0016, t01=0x0176}
0x23e0…23f2 Head {h00=0x000e, h01=0x0050, text=» B FLDTNOK«, t00=0x0016, t01=0x018a}
0x23f2…2402 Head {h00=0x000c, h01=0x0050, text=»FLDT108 «, t00=0x0017, t01=0x000c}
0x2402…2422 Head {h00=0x001c, h01=0x0050, text=» CMP GTUSED(CBIN2),=W'0'«, t00=0x0017, t01=0x001c}
0x2422…2436 Head {h00=0x0010, h01=0x0050, text=» BNE FLDTOK «, t00=0x0017, t01=0x003c}
0x2436…2452 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'26'«, t00=0x0017, t01=0x0050}
0x2452…2466 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0017, t01=0x006c}
0x2466…2480 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN2«, t00=0x0017, t01=0x0080}
0x2480…249a Head {h00=0x0016, h01=0x0050, text=» BE FLDTOK KOR-KEY«, t00=0x0017, t01=0x009a}
0x249a…24b6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'0' «, t00=0x0017, t01=0x00b4}
0x24b6…24d4 Head {h00=0x001a, h01=0x0050, text=» B FLDTNOK NOT KOR-KEY«, t00=0x0017, t01=0x00d0}
0x24d4…24de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ee}
0x24de…24ec Head {h00=0x000a, h01=0x0050, text=»FLDT45«, t00=0x0017, t01=0x00f8}
0x24ec…2532 Head {h00=0x0042, h01=0x0050, text=» PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57 «, t00=0x0017, t01=0x0106}
0x2532…2560 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0017, t01=0x014c}
0x2560…2580 Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0017, t01=0x017a}
0x2580…258a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x000a}
0x258a…2598 Head {h00=0x000a, h01=0x0050, text=»FLDT50«, t00=0x0018, t01=0x0014}
0x2598…25da Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28«, t00=0x0018, t01=0x0022}
0x25da…25fc Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN1,=W'1',FLDTOK «, t00=0x0018, t01=0x0064}
0x25fc…261c Head {h00=0x001c, h01=0x0050, text=» B FLDTNOK«, t00=0x0018, t01=0x0086}
0x261c…2626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a6}
0x2626…2634 Head {h00=0x000a, h01=0x0050, text=»FLDT52«, t00=0x0018, t01=0x00b0}
0x2634…2676 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 «, t00=0x0018, t01=0x00be}
0x2676…26a4 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'1',FLDTNOK«, t00=0x0018, t01=0x0100}
0x26a4…26e8 Head {h00=0x0040, h01=0x0050, text=» PERF FLDIN,CBIN12,CBIN7,CBIN0,CBIN0 FIELD 33,40 «, t00=0x0018, t01=0x012e}
0x26e8…2716 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN1,=W'2',FLDT525«, t00=0x0018, t01=0x0172}
0x2716…2758 Head {h00=0x003e, h01=0x0050, text=» PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 «, t00=0x0019, t01=0x0010}
0x2758…2786 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x0019, t01=0x0052}
0x2786…2796 Head {h00=0x000c, h01=0x0050, text=»FLDT525 «, t00=0x0019, t01=0x0080}
0x2796…27d4 Head {h00=0x003a, h01=0x0050, text=» CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46«, t00=0x0019, t01=0x0090}
0x27d4…2812 Head {h00=0x003a, h01=0x0050, text=» CBE GTUSED(CBIN20),=W'0',FLDTNOK FIELD 43«, t00=0x0019, t01=0x00ce}
0x2812…2822 Head {h00=0x000c, h01=0x0050, text=»FLDT527 «, t00=0x0019, t01=0x010c}
0x2822…285e Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x0019, t01=0x011c}
0x285e…289c Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x0019, t01=0x0158}
0x289c…28bc Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001a, t01=0x0008}
0x28bc…28c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28c6…28d4 Head {h00=0x000a, h01=0x0050, text=»FLDT53«, t00=0x001a, t01=0x0032}
0x28d4…2912 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDT535 FIELD 47«, t00=0x001a, t01=0x0040}
0x2912…295a Head {h00=0x0044, h01=0x0050, text=» PERF FLDIN,CBIN20,CBIN21,CBIN22,CBIN0 FIELD 43,44,45«, t00=0x001a, t01=0x007e}
0x295a…2988 Head {h00=0x002a, h01=0x0050, text=» CBNE GSWBIN1,=W'0',FLDTNOK«, t00=0x001a, t01=0x00c6}
0x2988…2998 Head {h00=0x000c, h01=0x0050, text=»FLDT535 «, t00=0x001a, t01=0x00f4}
0x2998…29d6 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN7),=W'0',FLDT537 FIELD 40 «, t00=0x001a, t01=0x0104}
0x29d6…2a14 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN12),=W'0',FLDTNOK FIELD 47«, t00=0x001a, t01=0x0142}
0x2a14…2a24 Head {h00=0x000c, h01=0x0050, text=»FLDT537 «, t00=0x001a, t01=0x0180}
0x2a24…2a60 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001a, t01=0x0190}
0x2a60…2a9e Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001b, t01=0x003c}
0x2a9e…2abe Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001b, t01=0x007a}
0x2abe…2ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x009a}
0x2ac8…2ad6 Head {h00=0x000a, h01=0x0050, text=»FLDT54«, t00=0x001b, t01=0x00a4}
0x2ad6…2b12 Head {h00=0x0038, h01=0x0050, text=» CBE GTUSED(CBIN1),=W'0',FLDTOK FIELD 28«, t00=0x001b, t01=0x00b2}
0x2b12…2b50 Head {h00=0x003a, h01=0x0050, text=» CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48«, t00=0x001b, t01=0x00ee}
0x2b50…2b70 Head {h00=0x001c, h01=0x0050, text=» B FLDTOK «, t00=0x001b, t01=0x012c}
0x2b70…2b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014c}
0x2b7a…2b88 Head {h00=0x000a, h01=0x0050, text=»FLDTOK«, t00=0x001b, t01=0x0156}
0x2b88…2bc6 Head {h00=0x003a, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0 OK«, t00=0x001b, t01=0x0164}
0x2bc6…2bda Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0012}
0x2bda…2be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0026}
0x2be4…2bf4 Head {h00=0x000c, h01=0x0050, text=»FLDTNOK «, t00=0x001c, t01=0x0030}
0x2bf4…2c3a Head {h00=0x0042, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR <> 0 NOT OK«, t00=0x001c, t01=0x0040}
0x2c3a…2c4e Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0086}
0x2c4e…2c64 Head {h00=0x0012, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x009a}
0x2c64…2c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b0}
0x2c6e…2c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c78…2c8e Head {h00=0x0012, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00c4}
0x2c8e…2cba Head {h00=0x0028, h01=0x0050, text=»FLDIN PROC FML1,FML2,FML3,FML4«, t00=0x001c, t01=0x00da}
0x2cba…2cd6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001c, t01=0x0106}
0x2cd6…2ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0122}
0x2ce0…2d1a Head {h00=0x0036, h01=0x0050, text=»* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS«, t00=0x001c, t01=0x012c}
0x2d1a…2d48 Head {h00=0x002a, h01=0x0050, text=»* (GIVEN BY INDEX) ARE PRESENT «, t00=0x001c, t01=0x0166}
0x2d48…2d6a (29, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* OUTPUT IN GSWBIN1«, t00=0x001d, t01=0x0004}
0x2d6a…2d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0026}
0x2d74…2d90 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001d, t01=0x0030}
0x2d90…2db6 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,=W'0'«, t00=0x001d, t01=0x004c}
0x2db6…2dde Head {h00=0x0024, h01=0x0050, text=» CBE FML1,=W'0',FLD5«, t00=0x001d, t01=0x0072}
0x2dde…2e02 Head {h00=0x0020, h01=0x0050, text=» CBE GTUSED(FML1),=W'0',FLD1«, t00=0x001d, t01=0x009a}
0x2e02…2e28 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001d, t01=0x00be}
0x2e28…2e34 Head {h00=0x0008, h01=0x0050, text=»FLD1«, t00=0x001d, t01=0x00e4}
0x2e34…2e5c Head {h00=0x0024, h01=0x0050, text=» CBE FML2,=W'0',FLD5«, t00=0x001d, t01=0x00f0}
0x2e5c…2e8c Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML2),=W'0',FLD2«, t00=0x001d, t01=0x0118}
0x2e8c…2eb2 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001d, t01=0x0148}
0x2eb2…2ebe Head {h00=0x0008, h01=0x0050, text=»FLD2«, t00=0x001d, t01=0x016e}
0x2ebe…2ee6 Head {h00=0x0024, h01=0x0050, text=» CBE FML3,=W'0',FLD5«, t00=0x001d, t01=0x017a}
0x2ee6…2f16 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML3),=W'0',FLD3«, t00=0x001e, t01=0x0012}
0x2f16…2f3c Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001e, t01=0x0042}
0x2f3c…2f48 Head {h00=0x0008, h01=0x0050, text=»FLD3«, t00=0x001e, t01=0x0068}
0x2f48…2f70 Head {h00=0x0024, h01=0x0050, text=» CBE FML4,=W'0',FLD5«, t00=0x001e, t01=0x0074}
0x2f70…2fa0 Head {h00=0x002c, h01=0x0050, text=» CBE GTUSED(FML4),=W'0',FLD5«, t00=0x001e, t01=0x009c}
0x2fa0…2fc6 Head {h00=0x0022, h01=0x0050, text=» ADD GSWBIN1,=W'1'«, t00=0x001e, t01=0x00cc}
0x2fc6…2fd2 Head {h00=0x0008, h01=0x0050, text=»FLD5«, t00=0x001e, t01=0x00f2}
0x2fd2…2fe6 Head {h00=0x0010, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00fe}
0x2fe6…2ff4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x0112}
0x2ff4…2ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0120}
0x2ffe…3008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012a}
0x3008…301c Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x001e, t01=0x0134}
0x301c…3020 Head {h00=0x4004, h01=0x0000}
0x3020…3024 00 1e 01 48 ┆ H┆
0x3024…302c (31, 1, 8) 20 04 00 00 00 1f 00 04 ┆ ┆
0x302c…307c (32, 0, 400) 00 06 00 50 2a 20 00 20 00 04 00 2e 00 50 2a 20 43 41 4c 4c 3a 20 20 20 20 50 45 52 46 20 54 43 4f 4e 46 52 2c 3c 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 4e 42 52 3e 00 20 00 0e 00 06 00 50 2a 20 00 20 00 40 00 28 00 50 2a 20 54 48 45 20 ┆ P* . P* CALL: PERF TCONFR,<CONFIGURATION NBR> P* @ ( P* THE ┆
0x307c…30cc 44 41 54 41 20 49 53 20 52 45 41 44 20 52 41 4e 44 4f 4d 20 46 52 4f 4d 20 44 4b 30 31 20 00 20 00 4a 00 06 00 50 2a 20 00 20 00 76 00 2c 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 47 53 57 42 49 4e 36 20 2d 20 3c 43 4f 4e ┆DATA IS READ RANDOM FROM DK01 J P* v , P* ALTERED FIELDS: GSWBIN6 - <CON┆
0x30cc…311c 46 3e 20 2b 20 31 32 20 00 20 00 80 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 31 20 2d 20 31 39 39 20 00 20 00 b0 00 06 00 50 2a 20 00 20 00 d8 00 24 00 50 2a 20 43 52 3a 20 20 20 20 20 20 4f 4b 20 ┆F> + 12 $ P* GSWBIN1 - 199 P* $ P* CR: OK ┆
0x311c…316c 2d 20 30 2c 20 20 20 4e 4f 4b 20 2d 20 3c 3e 20 30 20 00 20 00 e2 00 06 00 50 2a 20 00 20 01 0a 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆- 0, NOK - <> 0 P* : P********************************************┆
0x316c…31bc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 20 01 14 00 18 00 50 54 43 4f 4e 46 52 20 50 52 4f 43 20 54 43 4f 4e 46 52 4e 4f 00 20 01 52 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 54 43 4f 4e 46 52 4e 4f 00 20 01 6e 00 18 00 50 20 41 44 44 ┆********** PTCONFR PROC TCONFRNO R P MOVE GSWBIN6,TCONFRNO n P ADD┆
0x31bc…320c (33, 0, 400) 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 32 20 00 20 01 8c 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 39 39 27 20 00 21 00 18 00 34 00 50 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 4b 30 31 2c 3d 44 27 31 27 2c 54 43 ┆ GSWBIN6,CBIN12 P MOVE GSWBIN1,=W'199' ! 4 P PERF RAREAD,DK01,=D'1',TC┆
0x320c…325c 4f 4e 42 55 46 2c 47 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 36 20 00 21 00 36 00 12 00 50 20 42 4e 4f 4b 20 54 43 4f 4e 52 45 54 31 00 21 00 6e 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 00 21 00 84 00 08 00 50 20 52 45 54 ┆ONBUF,GSWBIN1,GSWBIN6 ! 6 P BNOK TCONRET1 ! n P CMP CBIN0,CBIN0 ! P RET┆
0x325c…32ac 00 21 00 9c 00 0c 00 50 54 43 4f 4e 52 45 54 31 00 21 00 a8 00 1c 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 31 20 53 45 54 20 43 52 20 00 21 00 b8 00 08 00 50 20 52 45 54 00 21 00 d8 00 0a 00 50 20 50 45 4e 44 20 00 21 00 e4 00 06 ┆ ! PTCONRET1 ! P CMP CBIN0,CBIN1 SET CR ! P RET ! P PEND ! ┆
0x32ac…32fc 00 50 2a 20 00 21 00 f2 00 0a 00 50 20 45 4a 45 43 54 00 21 00 fc 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 21 ┆ P* ! P EJECT ! 8 P*************************************************** !┆
0x32fc…334c 01 0a 00 06 00 50 2a 20 00 21 01 46 00 36 00 50 2a 20 20 20 20 20 54 43 4f 4e 46 57 20 2d 20 57 52 49 54 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 2d 44 45 50 45 4e 44 45 4e 54 20 44 41 54 41 20 00 21 01 50 00 06 00 50 2a 20 00 21 01 8a ┆ P* ! F 6 P* TCONFW - WRITE CONFIGURATION-DEPENDENT DATA ! P P* ! ┆
0x334c…339c (34, 0, 400) 00 32 00 50 2a 20 20 20 20 43 41 4c 4c 3a 20 20 20 20 50 45 52 46 20 20 54 43 4f 4e 46 57 2c 3c 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 4e 42 52 3e 00 22 00 04 00 06 00 50 2a 20 00 22 00 3a 00 32 00 50 2a 20 49 46 20 4e 4f 54 20 49 4e 20 ┆ 2 P* CALL: PERF TCONFW,<CONFIGURATION NBR> " P* " : 2 P* IF NOT IN ┆
0x339c…33ec 54 45 53 54 4d 4f 44 45 2c 20 44 41 54 41 20 49 53 20 57 52 49 54 54 45 4e 20 54 4f 20 44 4b 30 31 20 00 22 00 44 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 22 00 7a 00 22 00 50 2a 20 20 20 20 20 20 20 20 47 53 57 ┆TESTMODE, DATA IS WRITTEN TO DK01 " D P* ALTERED FIELDS: " z " P* GSW┆
0x33ec…343c 42 49 4e 36 20 2d 20 3c 43 4f 4e 46 3e 20 2b 20 31 32 00 22 00 94 00 06 00 50 2a 20 00 22 00 ba 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆BIN6 - <CONF> + 12 " P* " 8 P********************************************┆
0x343c…348c 2a 2a 2a 2a 2a 2a 2a 20 00 22 00 c4 00 18 00 50 54 43 4f 4e 46 57 20 50 52 4f 43 20 54 43 4f 4e 46 57 4e 4f 00 22 01 00 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 54 43 4f 4e 46 57 4e 4f 00 22 01 1c 00 18 00 50 20 41 44 44 20 47 ┆******* " PTCONFW PROC TCONFWNO " P MOVE GSWBIN6,TCONFWNO " P ADD G┆
0x348c…34dc 53 57 42 49 4e 36 2c 43 42 49 4e 31 32 20 00 22 01 3a 00 30 00 50 20 43 42 45 20 47 54 54 45 53 54 4d 4b 2c 3d 43 27 54 27 2c 54 43 46 57 52 45 54 20 49 46 20 49 4e 20 54 45 53 54 20 4d 4f 44 45 20 00 22 01 56 00 2c 00 50 20 50 45 52 46 20 ┆SWBIN6,CBIN12 " : 0 P CBE GTTESTMK,=C'T',TCFWRET IF IN TEST MODE " V , P PERF ┆
0x34dc…352c (35, 0, 400) 52 41 57 52 49 54 2c 44 4b 30 31 2c 3d 44 27 31 27 2c 54 43 4f 4e 42 55 46 2c 47 53 57 42 49 4e 36 20 00 22 01 8a 00 0c 00 50 54 43 46 57 52 45 54 20 00 23 00 2a 00 08 00 50 20 52 45 54 00 23 00 3a 00 0a 00 50 20 50 45 4e 44 20 00 23 00 46 ┆RAWRIT,DK01,=D'1',TCONBUF,GSWBIN6 " PTCFWRET # * P RET # : P PEND # F┆
0x352c…357c 00 0a 00 50 20 45 4a 45 43 54 00 23 00 54 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 00 62 00 06 ┆ P EJECT # T < P******************************************************** # b ┆
0x357c…35cc 00 50 2a 20 00 23 00 a2 00 30 00 50 2a 20 20 20 20 20 20 20 20 43 4f 4e 46 52 44 20 2d 20 52 45 41 44 49 4e 47 20 4f 46 20 43 4f 4d 4d 4f 4e 20 43 4f 4e 46 44 41 54 41 00 23 00 ac 00 06 00 50 2a 20 00 23 00 e0 00 3e 00 50 2a 2a 2a 2a 2a 2a ┆ P* # 0 P* CONFRD - READING OF COMMON CONFDATA # P* # > P******┆
0x35cc…361c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 23 00 ea 00 10 00 50 43 4f 4e 46 52 44 20 50 52 4f 43 20 00 23 01 2c 00 20 00 50 ┆*************************************************** # PCONFRD PROC # , P┆
0x361c…366c 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 30 2c 43 42 49 4e 31 20 00 23 01 40 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 23 01 64 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 31 2c ┆ PERF CONRDX,CCONBUF0,CBIN1 # @ P BNOK CONFRET # d P PERF CONRDX,CCONBUF1,┆
0x366c…36bc (36, 0, 400) 43 42 49 4e 32 20 00 23 01 7a 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 24 00 0e 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 32 2c 43 42 49 4e 33 20 00 24 00 24 00 12 00 50 20 42 4e 4f 4b 20 43 4f ┆CBIN2 # z P BNOK CONFRET $ P PERF CONRDX,CCONBUF2,CBIN3 $ $ P BNOK CO┆
0x36bc…370c 4e 46 52 45 54 20 00 24 00 48 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 33 2c 43 42 49 4e 34 20 00 24 00 5e 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 24 00 82 00 20 00 50 20 50 45 52 46 20 43 4f ┆NFRET $ H P PERF CONRDX,CCONBUF3,CBIN4 $ ^ P BNOK CONFRET $ P PERF CO┆
0x370c…375c 4e 52 44 58 2c 43 43 4f 4e 42 55 46 34 2c 43 42 49 4e 35 20 00 24 00 98 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 24 00 bc 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 35 2c 43 42 49 4e 36 20 00 24 ┆NRDX,CCONBUF4,CBIN5 $ P BNOK CONFRET $ P PERF CONRDX,CCONBUF5,CBIN6 $┆
0x375c…37ac 00 d2 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 24 00 f6 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 36 2c 43 42 49 4e 37 20 00 24 01 0c 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 24 ┆ P BNOK CONFRET $ P PERF CONRDX,CCONBUF6,CBIN7 $ P BNOK CONFRET $┆
0x37ac…37fc 01 30 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 37 2c 43 42 49 4e 38 20 00 24 01 46 00 12 00 50 20 42 4e 4f 4b 20 43 4f 4e 46 52 45 54 20 00 24 01 6a 00 20 00 50 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f ┆ 0 P PERF CONRDX,CCONBUF7,CBIN8 $ F P BNOK CONFRET $ j P PERF CONRDX,CCO┆