|
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: 20594 (0x5072)
Notes: pts_type(SC)
Names: »DENVAL.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DENVAL.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DENVAL.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DENVAL.SC«
IDENT DENVAL REL 10.0 80-04-11 UPD-11-17/DALI UPD 80-10-28/DALI UPD 80-10-21/DALI UPD 80-08-22/DALI UPD 80-06-28/DALI UPD 80-04-29/DALI UPD 80-04-24/DALI DDUM DEDDIV PDIV ENTRY DENVAL EXT TESTB TEST FOR A BIT IN A BIN EXT DEEDIT EXT MSKOUT EXT GETVAL LOOK FOR VALIDATION- STRING FOR CURRENT FIELD EXT DECOMP USER OR STANDARDROUTINE TO VALIDATE CURRENT INPUT EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - TEST IF DATA ITEM IS EMPTY EXT CLEARB CLEAR A BIT IN A BIN ITEM EXT SETB SET A BIT IN A BIN ITEM EXT DELAST KEY INPUT ON LAST LINE EXT DEDISC DISC HANDLING ROUTINE EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - ATTACH DESCRIPTORBLOCK EXT ATTWB ASSEMBLY SUBROUTINE ATTWB - ATTACH WORKBLOCK EXT DEPOOL POOL HANDLING ROUTINE EXT DEFIND FIELD INDEX ROUTINE EXT DEAPPU USER-CODED APPL-HANDLING EXT TYPET EXT GETFWD ASSEMBLY SUBROUTINE GETFWD - EXECUTE GETFLD. NOTE THAT CONDITION=3, MEANING THAT EMPTY COMPULSURY FIELDS IS FOUND,WILL "NOT" BE INDICATED EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - ADJUST FORMATPOINTERS AFTER EXECUTION OF GETFWD EXT GETIND EXT CMPIND INCLUDE DELITT EJECT * * LOOK IF THERE ARE A VALIDATIONSTRING * WITHIN THE FORMAT AND EXECUTE IT. * * DOOL1= NOT FLAG * DOOL2= INSERTION OF RECORD * DOOL3= ENTRY MODE * DOOL4= GETFLD TO OTHER FIELD * WITHIN FORMAT EXECUTED * DOOL5= NO KEYED INPUT * DOOL6= ABSOLUTE VALUE * DOOL7= NOT CURRENT ITEM IN DEINPUT * DOOL8= BATCHHEAD FOR NEW BATCH * BIN11= POOLINDEX * BIN12= STARTPOSITION * BIN13= STOPPOSITION * BIN14= CONDITIONAL TAB.-FIELD * (NEXT FIELD) DENVAL PROC FC MOVE BIN8,W0 MOVE BIN3,W0 USED AS POINTER TO ERRORMESSAGE CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) CLEAR BOOL6 F=NO COND TAB FOUND CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) CLEAR REWRT UPDFLD=0 MOVE DEBINW4,W2 GETABX BIN8 SAVE CURRENT FIELD.NR CBNE DEBINW1,W0,DENV10 KEYINPUTLENGTH = 0 PERF DEEDIT,W3 PUT FMTITEM INTO DEINPUT B DENV20 DENV10 TBF DOOL5,DENV30 JUMP IF NOT DUPL DENV20 MOVE WORK(W5),W0 INPUTLENGTH = 0 B DENV40 DENV30 MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH DENV40 IB FC,DENV50 DEACCU C DENV50 DEGENE GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER CBE DEBINW3,W0,DENV50 NO APPL-VALUE PERF DEAPPU USERCODED APPL-HANDLING IB DEBINW3,DENV45 UPDFLD = 1 C UPDR40 SET CURSOR C DENV42 ERROR PRINTOUT B DENV50 UPDFLD = 0 DENV42 ERROR PRINTOUT MOVE BIN3,W0 B UPDR40 DENV45 UPDFLD = 1 SET REWRT DENV50 MOVE BIN4,DEBINW1 SAVE INPUTLENGTH MOVE STATSH,DEINPUT SAVE KEYED INPUT MOVE BIN2,BIN8 SAVE TAB.INDEX EJECT * * EXECUTE VALIDATION * UPDV0A ADD BIN13,BIN12 B UPDV01 UPDV00 MOVE DEINPUT,STATSH RESTORE KEYED INPUT MOVE DEBINW1,BIN4 RESTOR INPUTLENGTH UPDV01 MOVE STR64A,='M/=><DGRN' MOVE BIN5,W0 MATCH STR64A,BIN5,W9,BPOOL(BIN11),BIN12,W1 BOK UPDV16 CLEAR DOOL7 BNZ DECOMT NOT OKEY MOVE STR64A,='ASUFFFX' MOVE BIN9,W0 MATCH STR64A,BIN9,W7,BPOOL(BIN11),BIN12,W1 BNOK DECOOK SET DOOL7 NOT CURRENT FIELD VALIDATION ADD BIN12,W1 CBE BIN9,W6,UPDV05 JUMP IF X PERF DEFIND,BIN8,BIN10 ADD BIN12,W1 CLEAR ALPHA F=ALPHATEST CBE BIN8,W0,UPDV04 UPDV05 PERF DEEDIT,BIN9 B UPDV06 UPDV04 MOVE BIN8,BIN2 CURRENT TABINDEX UPDV06 IB BIN9,UPDV01,UPDV01,UPDV07, 1=S,2=U,3=F C UPDV07,UPDV07,UPDV09 6=X B UPDV09 0=A UPDV07 CALL TYPET,BIN7,X.PSEU1,X.PSEU2,X.WB10,BIN8 CBE BIN7,W3,UPDV01 JUMP IF ALPHA STRG UPDV09 SET ALPHA T=BCD-NUM B UPDV01 UPDV16 IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C UPDGOT,UPDFOR,UPDFON UPDE00 HHANDLE ERRORCODE ADD BIN12,W1 XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN12 MOVE BIN3,BIN12 SAVE INDEX TO ERR.MESS XCOPY BIN3,W0,W1,BIN11,W1 SAVE POOLINDEX CBL DEBINW4,W128,UPDE10 MOVE BIN9,=X'3F' CALL MSKOUT,BIN9,DEBINW4 ADD BIN12,BIN9 UPDE10 ADD BIN12,W1 CBL BIN12,BIN13,UPDV01 B DECERR JUMP IF END OF VALSTRING UPDV20 / SET DOOL1 NOT-FLAG B UPDE10 * UPDV25 D;DUPLICATE ADD BIN12,W1 SET DOOL4 BNZ DECERR PERF DEFIND,BIN8,BIN9 GETFLD 0,BIN8,BIN9 MOVE WORK(W6),BIN11 MOVE WORK(W7),BIN12 MOVE WORK(W8),BIN13 CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 BNOK DECERR B UPDV0A * UPDV30 =EQUAL;>GREATER;<LESS; SUB BIN5,W2 ADD BIN12,W1 MOVE BIN6,W0 START IN VALSTR MOVE STR64A,='+-*:' MOVE BCDI21(W1),=D'0' MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 BOK UPDV35 MOVE BIN6,W0 IF ARITHMETIC SIGN IS B UPDV37 OMITTED + IS ASSUMED UPDV35 ADD BIN12,W1 INCREASE POINTER UPDV37 MOVE BIN9,W0 MOVE STR64A,='L!ASUFTCXE' MATCH STR64A,BIN9,W10,BPOOL(BIN11),BIN12,W1 BOK UPDV50 MOVE BIN9,W10 STRING-COMPARISION B UPDV60 UPDV50 ADD BIN12,W1 ADJUST POINTER CBNL BIN9,W8,UPDV65 UPDV60 PERF DEFIND,BIN8,BIN10 ADD BIN12,W1 ADJUST POINTER UPDV65 IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,UPDFLD,UPDSET,UPDCOD C UPDVSI,UPDEMP,UPDNUM UPDLEN HANDLE LENGTH CMP DEBINW1,BIN8 B DECO05 * UPDABS SET DOOL6 B UPDE10 * UPDACC HANDLE ACCUMULATOR CALL CMPIND,BIN8,ACK(W1) BNOK DECERR OUT OF RANGE MOVE BCDI21(W2),ACK(BIN8) B UPDN50 EJECT * UPDSYS HANDLE SYSTEMVARIABEL UPDUSE AND USERVAIABLES * SUB BIN9,W3 CLEAR DOOL7 BNZ UPDS01 JUMP IF CURR FIELD TSTCTL 0 LOOK IF ALPHA BZ UPDS30 JUMP IF BCD B UPDS03 UPDS01 TBT ALPHA,UPDS30 JUMP IF BCD-NUM UPDS03 IB BIN9,UPDS05 CALL GETIND,SYSV(W1),BIN15,BIN10 B UPDS10 UPDS05 CALL GETIND,USEV(W1),BIN15,BIN10 ITEM,LENGTH,DIM UPDS10 CMP BIN10,BIN8 CMP DIMENSION BL DECERR VARIABLE NOT EXIST MOVE BIN10,W0 IB BIN9,UPDS15 MATCH DEINPUT,BIN10,BIN15,SYSV(BIN8),W0,BIN15 B UPDS20 UPDS15 MATCH DEINPUT,BIN10,BIN15,USEV(BIN8),W0,BIN15 UPDS20 BOK DECEGL B DECNOT UPDS30 IB BIN9,UPDS50 CALL CMPIND,BIN8,SYSV(W1) BNOK DECERR OUT OF RANGE MOVE BCDI21(W2),SYSV(BIN8) B UPDN50 UPDS50 CALL CMPIND,BIN8,USEV(W1) BNOK DECERR OUT OF RANGE MOVE BCDI21(W2),USEV(BIN8) B UPDN50 EJECT * UPDFLD HANDLE FIELD WITHIN FORMAT * CBNE BIN8,W0,UPDF10 CURRENT FIELD MOVE BIN8,BIN2 CURRENT FIELDNUMBER UPDF10 CALL TYPET,BIN10,X.PSEU1,X.PSEU2,X.WB10,BIN8 CBNE BIN10,W3,UPDF40 JUMP IF NOT ALPHA GETCTL 1,BIN10 GET MAXL SET DOOL4 MOVE BIN7,W0 CON X.MATCH,X.PSEU1,X.PSEU2 CON X.WB10,BIN8 CON BIN7,BIN10,HEX00,W0,W1 CMP DEBINW1,BIN7 BNE DECNOT INVALID LENGTH MOVE BIN10,W0 CON X.MATCH,DEINPUT,BIN10,DEBINW1 CON X.PSEU1,X.PSEU2 CON X.WB10,BIN8,W0,DEBINW1 BOK DECEGL B DECNOT UPDF40 NUMERIC CON X.MOVE,BCDI21(W2),X.PSEU1,X.PSEU2 CON X.WB10,BIN8 B UPDN50 * EJECT UPDSET HANDLE VALUESET CMP BIN5,W0 BNZ DECERR MOVE VSEIND,W0 VALUE-SET INDEX:=0 MOVE BCD3A,BIN8 MOVE BIN9,W0 LOOK IF ELEMENTNUMBER MOVE STR1A,=':' MATCH STR1A,BIN9,W1,BPOOL(BIN11),BIN12,W1 BOK UPDSET05 MOVE BIN9,W0 MOVE ELMNO,W1 B UPDSET07 UPDSET05 ADD BIN12,W1 XCOPY BIN9,W1,W1,BPOOL(BIN11),BIN12 ADD BIN12,W1 MOVE ELMNO,BIN9 UPDSET07 MOVE TABLE,BCD3A MOVE STR1A,=C'T' DLETE TABLE,W0,W2 INSRT TABLE,W2,W1,HEX00,W0 INSRT TABLE,W0,W1,STR1A,W0 UPDSET10 PERF DEDISC,W24 GET VALUSET BOK UPDSET20 CBE PINDTB,W0,UPDSET18 UPDSET15 PERF DEPOOL,W6,PINDTB,BIN10,STRG10A UPDSET18 CMP W0,W1 B DECO05 UPDSET20 MOVE BIN15,W0 WORK:=0 CALL ATTWB,BPOOL(PINDTB),W8,W11 CALL ATTDB,BPOOL(PINDTB),W0,W11 XCOPY BIN16,W1,W1,RPOOL(PINDTB),W17 XCOPY BIN15,W1,W1,RPOOL(PINDTB),W18 STORE ENDINDEX OF POOL SUB ELMNO,BIN16 ADD ELMNO,W1 TBT DOOL7,UPDSET24 JUMP IF NOT CURR FIELD TSTCTL 0 LOOK IF ALPHA BZ UPDSET30 JUMP IF BCD B UPDSET26 UPDSET24 TBT ALPHA,UPDSET30 JUMP IF BCD-NUM UPDSET26 XCOPY BIN8,W1,W1,BPOOL(PINDTB),W1 UPDSET28 PERF DEEDIT,W4 MOVE BIN6,W0 MATCH DEINPUT,BIN6,BIN8,STATSH,W0,BIN8 BOK UPDSET40 CBNE BIN9,W0,UPDSET15 ADD ELMNO,W1 NEXT ELEMENT ADD BIN16,W1 INCREMENT STARTINDEX OF POOL CMP BIN16,BIN15 JUMP ALL EL. OF POOL COMPARED BG DECN10 JUMP IF GRAETER B UPDSET28 UPDSET30 MOVE BCDI21(W2),FDVBCD(ELMNO) B UPDN50 UPDSET40 MOVE VSEIND,BIN16 INDEX OF CURR BUFF PERF DEPOOL,W6,PINDTB,BIN10,STRG10A CMP W0,W0 CONDITION ZERO B DECO05 * UPDCOD PERF DECOMP,BIN8 B DECO05 * UPDEMP CALL EMPTYT,DEINPUT BP DECEGL B DECNOT * * OPERAND IS VALUE-SET ELEMENT INDEX * UPDVSI MOVE BCDI21(W2),VSEIND LOAD VALUE SET ELINDEX B UPDN50 EJECT * UPDGOT GO TO VALIDATION (G) CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) ADD BIN12,W1 ADJUST POINTER SET BOOL6 T=COND TAB FOUND (G) PERF DEFIND,BIN14,BIN10 ADD BIN12,W1 ADJUST BUFFERPOINTER B UPDV00 * UPDFOR CHANGE FORMAT VALIDATION (R) MOVE DEBINW4,W4 CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) SET BOOL4 T=COND FORM CH FOUND (R) B UPDFO2 * UPDFON CHANGE FORMAT VALIDATION (N) MOVE DEBINW4,W3 (N) CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) SET BOOL8 T=COND FORM CHANGE FOUND (N) UPDFO2 CLEAR BOOL6 F=NO COND TAB FOUND ADD BIN12,W1 ADUST BUFFER POINTER MOVE BIN16,W0 WORK:=0 XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS SUB BIN16,W128 ADJUST LIT.-INDICATOR ADD BIN12,W1 ADJUST BUFFER POINTER MOVE STSAVE(DEBINW4),HEX00 XCOPY STSAVE(DEBINW4),W0,BIN16,BPOOL(BIN11),BIN12 ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS B UPDV00 GO ON EJECT * UPDNUM MOVE BIN9,=X'3F' CALL MSKOUT,BIN9,BIN8 MOVE STR1A,='?' MOVE BIN10,BIN12 SAVE CURRENT POINTER MATCH BPOOL(BIN11),BIN10,BIN9,STR1A,W0,W1 BNOK UPDN06 JUMP IF NO '?':S MOVE BIN8,W0 COUNTER NUMB OF MATCHES XCOPY BIN10,W1,W1,DEINPUT,W0 CBE BIN10,=X'20',UPDN0X CBNE BIN10,=X'2B',UPDN01 UPDN0X MOVE BIN8,W1 ADJUST FOR SIGN UPDN01 ADD BIN9,BIN12 UPDN00 MOVE BIN10,BIN8 MATCH DEINPUT,BIN10,W1,BPOOL(BIN11),BIN12,W1 BNOK UPDN04 NOT OK MAYBE '?' UPDN02 ADD BIN8,W1 INCREMENT COUNTER CMP BIN8,DEBINW1 ALL CHARS MATCHED BL UPDN03 MOVE BIN10,BIN8 MATCH DEINPUT,BIN10,W1,HEX00,W0,W1 BOK UPDN30 UPDN03 ADD BIN12,W1 ADJUST POINTER B UPDN00 GO ON MATCH UPDN04 MOVE BIN10,BIN12 LOAD MATCH POINT MATCH BPOOL(BIN11),BIN10,W1,STR1A,W0,W1 BOK UPDN02 GO ON '?' FOUND B UPDN30 UPDN06 CLEAR DOOL7 BNZ UPDN10 JUMP IF NOT CURR FIELD TSTCTL 0 LOOK IF ALPHA BZ UPDN40 JUMP IF NUMERIC CBE DEBINW1,BIN9,UPDN20 ADD BIN12,BIN9 ADJUST POINTER IN FVAL B DECNOT UPDN10 TBT ALPHA,UPDN40 JUMP IF BCD-NUM UPDN20 MOVE BIN10,W0 ADD BIN9,BIN12 MATCH DEINPUT,BIN10,DEBINW1,BPOOL(BIN11),BIN12,DEBINW1 UPDN30 MOVE BIN12,BIN9 BOK DECEGL B DECNOT UPDN40 NUMERIC MOVE STR64A,HEX00 COPY STR64A,W0,BIN9,BPOOL(BIN11),BIN12 MOVE BCDI21(W2),STR64A ADD BIN12,BIN9 UPDN50 CLEAR DOOL6 BZ UPDN55 CALL CLEARB,BCDI21(W2),W1 CALL SETB,BCDI21(W2),W2 UPDN55 IB BIN6,UPDN60,UPDN70,UPDN80 ADD BCDI21(W1),BCDI21(W2) B UPDN90 UPDN60 SUB BCDI21(W1),BCDI21(W2) B UPDN90 UPDN70 MUL BCDI21(W1),BCDI21(W2) B UPDN90 UPDN80 DIV BCDI21(W1),BCDI21(W2) UPDN90 MOVE BIN6,W0 CBNL BIN12,BIN13,UPDN95 JUMP IF END OF VALIDATION STRING MOVE STR64A,='+-*:' MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 BOK UPDV35 JUMP IF ARITHMETIC SIGN UPDN95 MOVE BCDI21(W2),DEINPUT CMP BCDI21(W2),BCDI21(W1) DECO05 IB BIN5,DECO10,DECO20 JUMP ON COMPARE-SIGN-INDEX BZ DECEGL = B DECNOT /= DECO10 BEOF DECEGL > B DECNOT /> DECO20 BERR DECEGL < /< DECNOT CLEAR DOOL1 BNZ DECOOK VALID CBE PINDTB,W0,DECONO JUMP IF NOT SET CMP BIN9,W0 LOOK IF ALL ELEMENTS BNZ UPDSET15 JUMP IF NOT ADD ELMNO,W1 NEXT ELEMENT ADD BIN16,W1 INCREMENT STARTINDEX OF POOL CBG BIN16,BIN15,DECN10 JUMP ALL EL. OF POOL COMPARED MOVE BCDI21(W1),FDVBCD(ELMNO) NEXT ELEMENT VALUE B UPDN95 GO ON NEXT COMPARE DECN10 XCOPY BIN15,W0,W2,RPOOL(PINDTB),W13 FETCH LINK FORWARD CMP BIN15,W0 JUMP IF WHOLE TABLE VALIDATED BE UPDSET15 JUMP IF EQUAL MOVE ELMNO,BIN16 LOAD SAERCH ELEMENT NEXT SEGM. PERF DEPOOL,W6,PINDTB,BIN10,STRG10A RELEASE B UPDSET10 GO ON READ NEXT SEGMENT DECEGL CLEAR DOOL1 BZ DECOTK VALID EJECT DECONO MOVE BIN10,W21 V OR TBT BOOL6,DECOMT JUMP IF COND TAB FOUND TBT BOOL8,DECOMT JUMP IF RECORD CH FOUND TBT BOOL4,DECOMT JUMP IF RECORD CH FOUND SET DOOLB ITEM NOT VALID B DECOMT EJECT DECOTK CBE PINDTB,W0,DECOOK JUMP IF EOF VALUE-SET/NO VSET MOVE VSEIND,BIN16 INDEX OF CURR BUFF DECOOK MOVE BIN10,W20 & CLEAR DOOLB ITEM VALID DECOMT CLEAR DOOL7 CBE PINDTB,W0,DECO33 PERF DEPOOL,W6,PINDTB,BIN10,STRG10A DECO33 CBNL BIN12,BIN13,DECEND MOVE BIN9,W0 MOVE BIN16,=W'29' MATCH VALSTR,BIN9,BIN16,BPOOL(BIN11),BIN12,W1 BOK DECO40 DECO35 XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 CALL TESTB,BIN8,W8 BZ DECO38 MOVE BIN9,=X'3F' CALL MSKOUT,BIN9,BIN8 ADD BIN12,BIN9 DECO38 ADD BIN12,W1 B DECOMT DECO39 ';' FOUND CBNE BIN10,W20,DECO37 NOT = & PERF DENVCO CONDITIONAL BOOL SETTING DECO37 ADD BIN12,W1 CBNL BIN12,BIN13,DECEND END OF STRING MOVE BIN9,W0 MOVE STR6B,=C'DGRN' MATCH STR6B,BIN9,W4,BPOOL(BIN11),BIN12,W1 BNOK DECERR TBT DOOLB,DECEND IB BIN9,UPDGOT,UPDFOR,UPDFON B UPDV25 EJECT DECO40 IB BIN9,DECO41 1=/ NOT C DECO41 2== EQUAL C DECO41 3=> GREATER C DECO41 4=< LESS C DECO45 5=D DUPLICATE C DECO42 C DECO41 C DECO42,DECO42,DECO42 C DECO45 11=F FIELD C DECO42 C DECO42 C DECO41,DECO41,DECO41 C DECO41,DECO41 17-18 C DECO39 19=; C DECO43,DECO43, 20-21 C DECO41,DECO41,DECO41, 22-24 C DECO45 25=G GOTO C DECO46 26= C DECO46 27= C DECO41 ADD BIN12,W1 MESSAGE B DECO35 DECO43 CBNE BIN9,BIN10,DECO44 ADD BIN12,W1 ADJUST POINTER B UPDV00 DECO44 CBE BIN10,W20,DEC050 DECO41 ADD BIN12,W1 B DECOMT DECO42 ADD BIN12,W2 B DECOMT DECO45 PERF DEFIND,BIN8,BIN9 B DECO42 EJECT DECO46 CONDITIONAL FORMAT CH ADD BIN12,W1 ADUST BUFFER POINTER MOVE BIN16,W0 WORK:=0 XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS SUB BIN16,W128 ADJUST LIT.-INDICATOR ADD BIN12,W1 ADJUST BUFFER POINTER ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS B DECOMT DEC050 PERF DENVCO CONDITIONAL BOOL SETTING B DECOMT EJECT DECERR SET DOOLB MOVE DEBINW4,W2 UNDEFINED ERROR MOVE BIN10,W0 DECEND CLEAR DOOL4 BZ DECE10 * RESTORE POINTERS TO VAL-STRING MOVE BIN11,WORK(W6) MOVE BIN12,WORK(W7) MOVE BIN13,WORK(W8) ADD BIN12,W1 CALL GETFWD,DKBIN1,0,BIN2,BIN9 GET INIT. FIELD CALL ADJUST,DKBIN1 UPDRET DECE10 TBF DOOLB,DECE20 CBE DEBINW4,W2,DECE30 DECE20 CBE BIN10,W20,DEC050 '&' DECE30 MOVE DEINPUT,STATSH RESTORE KEYED IN VALUE MOVE DEBINW3,NUMBER CURRENT REC.NUMBER CBE DEBINW3,W0,UPDR05 NOT BATCHHEAD CBG DEBINW3,BDPOIN(W2),UPDR10 JUMP IF ENTRY OF NEW RECORD CLEAR BOOL3 CHANGE FORMAT (R) TBT DOOL2,UPDR10 JUMP IF INSERT UPDR05 CLEAR BOOLS FOR FORMAT CLEAR BOOL7 CHANGE IN CORRECTION OR IF BATCHEAD=N UPDR10 MOVE BIN11,W0 XCOPY BIN11,W1,W1,BIN3,W0 XCOPY BIN3,W0,W1,W0,W0 UPDR20 CLEAR REWRT UPDFLD = 1? BNZ UPDR30 YES! MOVE DEBINW3,W0 B UPDR40 UPDR30 MOVE DEBINW3,W1 UPDR40 RET PEND DENVCO PROC MOVE BIN10,W0 TBT BOOL6,DECOFG JUMP IF COND TAB TBT BOOL8,DECOFN JUMP IF RECORD CH FOUND TBT BOOL4,DECOFR JUMP IF RECORD CHANGE FOUND RET DECOFG SET BOOL5 T=VALID COND TAB RET DECOFN SET BOOL7 T=VALID RECORD CHANGE (N) RET DECOFR SET BOOL3 T=VALID RECORD CHANGE (R) RET PEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DENVAL REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0042 Head {h00=0x0016, h01=0x0050, text=» UPD-11-17/DALI «, t00=0x0000, t01=0x002c}
0x0042…005e Head {h00=0x0018, h01=0x0050, text=» UPD 80-10-28/DALI«, t00=0x0000, t01=0x0046}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=» UPD 80-10-21/DALI«, t00=0x0000, t01=0x0062}
0x007a…0096 Head {h00=0x0018, h01=0x0050, text=» UPD 80-08-22/DALI«, t00=0x0000, t01=0x007e}
0x0096…00b2 Head {h00=0x0018, h01=0x0050, text=» UPD 80-06-28/DALI«, t00=0x0000, t01=0x009a}
0x00b2…00ce Head {h00=0x0018, h01=0x0050, text=» UPD 80-04-29/DALI«, t00=0x0000, t01=0x00b6}
0x00ce…00ea Head {h00=0x0018, h01=0x0050, text=» UPD 80-04-24/DALI«, t00=0x0000, t01=0x00d2}
0x00ea…00fe Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x00ee}
0x00fe…010c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0102}
0x010c…0122 Head {h00=0x0012, h01=0x0050, text=» ENTRY DENVAL «, t00=0x0000, t01=0x0110}
0x0122…014c Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0000, t01=0x0126}
0x014c…0160 Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0000, t01=0x0150}
0x0160…0174 Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0000, t01=0x0164}
0x0174…019c Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0000, t01=0x0178}
0x019c…01c0 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0001, t01=0x0010}
0x01c0…01ec Head {h00=0x0028, h01=0x0050, text=» EXT DECOMP USER OR STANDARDROUTINE «, t00=0x0001, t01=0x0034}
0x01ec…0210 Head {h00=0x0020, h01=0x0050, text=» TO VALIDATE CURRENT INPUT«, t00=0x0001, t01=0x0060}
0x0210…0242 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0001, t01=0x0084}
0x0242…0268 Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0001, t01=0x00b6}
0x0268…0296 Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0001, t01=0x00dc}
0x0296…02c0 Head {h00=0x0026, h01=0x0050, text=» EXT SETB SET A BIT IN A BIN ITEM «, t00=0x0001, t01=0x010a}
0x02c0…02ea Head {h00=0x0026, h01=0x0050, text=» EXT DELAST KEY INPUT ON LAST LINE«, t00=0x0001, t01=0x0134}
0x02ea…0314 Head {h00=0x0026, h01=0x0050, text=» EXT DEDISC DISC HANDLING ROUTINE «, t00=0x0001, t01=0x015e}
0x0314…0342 Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0001, t01=0x0188}
0x0342…0364 Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0002, t01=0x0026}
0x0364…0392 Head {h00=0x002a, h01=0x0050, text=» EXT ATTWB ASSEMBLY SUBROUTINE ATTWB -«, t00=0x0002, t01=0x0048}
0x0392…03ae Head {h00=0x0018, h01=0x0050, text=» ATTACH WORKBLOCK «, t00=0x0002, t01=0x0076}
0x03ae…03d8 Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL POOL HANDLING ROUTINE «, t00=0x0002, t01=0x0092}
0x03d8…0400 Head {h00=0x0024, h01=0x0050, text=» EXT DEFIND FIELD INDEX ROUTINE «, t00=0x0002, t01=0x00bc}
0x0400…042c Head {h00=0x0028, h01=0x0050, text=» EXT DEAPPU USER-CODED APPL-HANDLING«, t00=0x0002, t01=0x00e4}
0x042c…043e Head {h00=0x000e, h01=0x0050, text=» EXT TYPET«, t00=0x0002, t01=0x0110}
0x043e…046e Head {h00=0x002c, h01=0x0050, text=» EXT GETFWD ASSEMBLY SUBROUTINE GETFWD -«, t00=0x0002, t01=0x0122}
0x046e…0488 Head {h00=0x0016, h01=0x0050, text=» EXECUTE GETFLD.«, t00=0x0002, t01=0x0152}
0x0488…04aa Head {h00=0x001e, h01=0x0050, text=» NOTE THAT CONDITION=3, «, t00=0x0002, t01=0x016c}
0x04aa…04c8 Head {h00=0x001a, h01=0x0050, text=» MEANING THAT EMPTY «, t00=0x0002, t01=0x018e}
0x04c8…04e8 Head {h00=0x001c, h01=0x0050, text=» COMPULSURY FIELDS IS «, t00=0x0003, t01=0x001c}
0x04e8…0506 Head {h00=0x001a, h01=0x0050, text=» FOUND,WILL "NOT" BE«, t00=0x0003, t01=0x003c}
0x0506…051a Head {h00=0x0010, h01=0x0050, text=» INDICATED«, t00=0x0003, t01=0x005a}
0x051a…054a Head {h00=0x002c, h01=0x0050, text=» EXT ADJUST ASSEMBLY SUBROUTINE ADJUST -«, t00=0x0003, t01=0x006e}
0x054a…0570 Head {h00=0x0022, h01=0x0050, text=» ADJUST FORMATPOINTERS AFTER«, t00=0x0003, t01=0x009e}
0x0570…058e Head {h00=0x001a, h01=0x0050, text=» EXECUTION OF GETFWD«, t00=0x0003, t01=0x00c4}
0x058e…05a2 Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0003, t01=0x00e2}
0x05a2…05b6 Head {h00=0x0010, h01=0x0050, text=» EXT CMPIND «, t00=0x0003, t01=0x00f6}
0x05b6…05ce Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0003, t01=0x010a}
0x05ce…05dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0122}
0x05dc…05e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0130}
0x05e6…0614 Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0003, t01=0x013a}
0x0614…0640 Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x0003, t01=0x0168}
0x0640…064a (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x064a…0682 Head {h00=0x0034, h01=0x0050, text=»* DOOL1= NOT FLAG «, t00=0x0004, t01=0x000e}
0x0682…06c4 Head {h00=0x003e, h01=0x0050, text=»* DOOL2= INSERTION OF RECORD«, t00=0x0004, t01=0x0046}
0x06c4…06fe Head {h00=0x0036, h01=0x0050, text=»* DOOL3= ENTRY MODE «, t00=0x0004, t01=0x0088}
0x06fe…0742 Head {h00=0x0040, h01=0x0050, text=»* DOOL4= GETFLD TO OTHER FIELD«, t00=0x0004, t01=0x00c2}
0x0742…0788 Head {h00=0x0042, h01=0x0050, text=»* WITHIN FORMAT EXECUTED «, t00=0x0004, t01=0x0106}
0x0788…07c6 Head {h00=0x003a, h01=0x0050, text=»* DOOL5= NO KEYED INPUT «, t00=0x0004, t01=0x014c}
0x07c6…0804 Head {h00=0x003a, h01=0x0050, text=»* DOOL6= ABSOLUTE VALUE «, t00=0x0004, t01=0x018a}
0x0804…084e Head {h00=0x0046, h01=0x0050, text=»* DOOL7= NOT CURRENT ITEM IN DEINPUT«, t00=0x0005, t01=0x0038}
0x084e…0894 Head {h00=0x0042, h01=0x0050, text=»* DOOL8= BATCHHEAD FOR NEW BATCH«, t00=0x0005, t01=0x0082}
0x0894…08ce Head {h00=0x0036, h01=0x0050, text=»* BIN11= POOLINDEX«, t00=0x0005, t01=0x00c8}
0x08ce…090c Head {h00=0x003a, h01=0x0050, text=»* BIN12= STARTPOSITION«, t00=0x0005, t01=0x0102}
0x090c…094a Head {h00=0x003a, h01=0x0050, text=»* BIN13= STOPPOSITION «, t00=0x0005, t01=0x0140}
0x094a…0994 Head {h00=0x0046, h01=0x0050, text=»* BIN14= CONDITIONAL TAB.-FIELD«, t00=0x0005, t01=0x017e}
0x0994…09d4 Head {h00=0x003c, h01=0x0050, text=»* (NEXT FIELD)«, t00=0x0006, t01=0x0038}
0x09d4…09ea Head {h00=0x0012, h01=0x0050, text=»DENVAL PROC FC«, t00=0x0006, t01=0x0078}
0x09ea…0a00 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN8,W0 «, t00=0x0006, t01=0x008e}
0x0a00…0a26 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN3,W0 USED AS POINTER «, t00=0x0006, t01=0x00a4}
0x0a26…0a40 Head {h00=0x0016, h01=0x0050, text=» TO ERRORMESSAGE«, t00=0x0006, t01=0x00ca}
0x0a40…0a72 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x0006, t01=0x00e4}
0x0a72…0a9a Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL6 F=NO COND TAB FOUND«, t00=0x0006, t01=0x0116}
0x0a9a…0acc Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x0006, t01=0x013e}
0x0acc…0aea Head {h00=0x001a, h01=0x0050, text=» CLEAR REWRT UPDFLD=0 «, t00=0x0006, t01=0x0170}
0x0aea…0b02 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W2«, t00=0x0006, t01=0x018e}
0x0b02…0b2c Head {h00=0x0026, h01=0x0050, text=» GETABX BIN8 SAVE CURRENT FIELD.NR«, t00=0x0007, t01=0x0016}
0x0b2c…0b5e Head {h00=0x002e, h01=0x0050, text=» CBNE DEBINW1,W0,DENV10 KEYINPUTLENGTH = 0«, t00=0x0007, t01=0x0040}
0x0b5e…0b8e Head {h00=0x002c, h01=0x0050, text=» PERF DEEDIT,W3 PUT FMTITEM INTO DEINPUT«, t00=0x0007, t01=0x0072}
0x0b8e…0ba0 Head {h00=0x000e, h01=0x0050, text=» B DENV20 «, t00=0x0007, t01=0x00a2}
0x0ba0…0bae Head {h00=0x000a, h01=0x0050, text=»DENV10«, t00=0x0007, t01=0x00b4}
0x0bae…0bd8 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL5,DENV30 JUMP IF NOT DUPL«, t00=0x0007, t01=0x00c2}
0x0bd8…0be6 Head {h00=0x000a, h01=0x0050, text=»DENV20«, t00=0x0007, t01=0x00ec}
0x0be6…0c10 Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W5),W0 INPUTLENGTH = 0 «, t00=0x0007, t01=0x00fa}
0x0c10…0c22 Head {h00=0x000e, h01=0x0050, text=» B DENV40 «, t00=0x0007, t01=0x0124}
0x0c22…0c30 Head {h00=0x000a, h01=0x0050, text=»DENV30«, t00=0x0007, t01=0x0136}
0x0c30…0c60 Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH «, t00=0x0007, t01=0x0144}
0x0c60…0c6e Head {h00=0x000a, h01=0x0050, text=»DENV40«, t00=0x0007, t01=0x0174}
0x0c6e…0c8c Head {h00=0x001a, h01=0x0050, text=» IB FC,DENV50 DEACCU C«, t00=0x0007, t01=0x0182}
0x0c8c…0ca4 Head {h00=0x0014, h01=0x0050, text=» DENV50 DEGENE «, t00=0x0008, t01=0x0010}
0x0ca4…0cd4 Head {h00=0x002c, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER «, t00=0x0008, t01=0x0028}
0x0cd4…0d00 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW3,W0,DENV50 NO APPL-VALUE«, t00=0x0008, t01=0x0058}
0x0d00…0d2c Head {h00=0x0028, h01=0x0050, text=» PERF DEAPPU USERCODED APPL-HANDLING«, t00=0x0008, t01=0x0084}
0x0d2c…0d54 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,DENV45 UPDFLD = 1 C «, t00=0x0008, t01=0x00b0}
0x0d54…0d72 Head {h00=0x001a, h01=0x0050, text=» UPDR40 SET CURSOR C «, t00=0x0008, t01=0x00d8}
0x0d72…0d92 Head {h00=0x001c, h01=0x0050, text=» DENV42 ERROR PRINTOUT «, t00=0x0008, t01=0x00f6}
0x0d92…0dae Head {h00=0x0018, h01=0x0050, text=» B DENV50 UPDFLD = 0«, t00=0x0008, t01=0x0116}
0x0dae…0dce Head {h00=0x001c, h01=0x0050, text=»DENV42 ERROR PRINTOUT «, t00=0x0008, t01=0x0132}
0x0dce…0de4 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0008, t01=0x0152}
0x0de4…0df6 Head {h00=0x000e, h01=0x0050, text=» B UPDR40 «, t00=0x0008, t01=0x0168}
0x0df6…0e12 Head {h00=0x0018, h01=0x0050, text=»DENV45 UPDFLD = 1 «, t00=0x0008, t01=0x017a}
0x0e12…0e24 Head {h00=0x000e, h01=0x0050, text=» SET REWRT«, t00=0x0009, t01=0x0008}
0x0e24…0e32 Head {h00=0x000a, h01=0x0050, text=»DENV50«, t00=0x0009, t01=0x001a}
0x0e32…0e5e Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,DEBINW1 SAVE INPUTLENGTH «, t00=0x0009, t01=0x0028}
0x0e5e…0e8c Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,DEINPUT SAVE KEYED INPUT «, t00=0x0009, t01=0x0054}
0x0e8c…0eb2 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,BIN8 SAVE TAB.INDEX«, t00=0x0009, t01=0x0082}
0x0eb2…0ec0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00a8}
0x0ec0…0eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b6}
0x0eca…0ee6 Head {h00=0x0018, h01=0x0050, text=»* EXECUTE VALIDATION«, t00=0x0009, t01=0x00c0}
0x0ee6…0ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00dc}
0x0ef0…0efe Head {h00=0x000a, h01=0x0050, text=»UPDV0A«, t00=0x0009, t01=0x00e6}
0x0efe…0f16 Head {h00=0x0014, h01=0x0050, text=» ADD BIN13,BIN12«, t00=0x0009, t01=0x00f4}
0x0f16…0f28 Head {h00=0x000e, h01=0x0050, text=» B UPDV01 «, t00=0x0009, t01=0x010c}
0x0f28…0f36 Head {h00=0x000a, h01=0x0050, text=»UPDV00«, t00=0x0009, t01=0x011e}
0x0f36…0f66 Head {h00=0x002c, h01=0x0050, text=» MOVE DEINPUT,STATSH RESTORE KEYED INPUT«, t00=0x0009, t01=0x012c}
0x0f66…0f94 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,BIN4 RESTOR INPUTLENGTH «, t00=0x0009, t01=0x015c}
0x0f94…0fa2 Head {h00=0x000a, h01=0x0050, text=»UPDV01«, t00=0x0009, t01=0x018a}
0x0fa2…0fc4 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,='M/=><DGRN' «, t00=0x000a, t01=0x0008}
0x0fc4…0fda Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x000a, t01=0x002a}
0x0fda…100e Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN5,W9,BPOOL(BIN11),BIN12,W1 «, t00=0x000a, t01=0x0040}
0x100e…1022 Head {h00=0x0010, h01=0x0050, text=» BOK UPDV16 «, t00=0x000a, t01=0x0074}
0x1022…1036 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x000a, t01=0x0088}
0x1036…1052 Head {h00=0x0018, h01=0x0050, text=» BNZ DECOMT NOT OKEY«, t00=0x000a, t01=0x009c}
0x1052…1072 Head {h00=0x001c, h01=0x0050, text=» MOVE STR64A,='ASUFFFX' «, t00=0x000a, t01=0x00b8}
0x1072…1088 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x000a, t01=0x00d8}
0x1088…10bc Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN9,W7,BPOOL(BIN11),BIN12,W1 «, t00=0x000a, t01=0x00ee}
0x10bc…10d0 Head {h00=0x0010, h01=0x0050, text=» BNOK DECOOK«, t00=0x000a, t01=0x0122}
0x10d0…1100 Head {h00=0x002c, h01=0x0050, text=» SET DOOL7 NOT CURRENT FIELD VALIDATION «, t00=0x000a, t01=0x0136}
0x1100…1116 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000a, t01=0x0166}
0x1116…113c Head {h00=0x0022, h01=0x0050, text=» CBE BIN9,W6,UPDV05 JUMP IF X «, t00=0x000a, t01=0x017c}
0x113c…115c Head {h00=0x001c, h01=0x0050, text=» PERF DEFIND,BIN8,BIN10 «, t00=0x000b, t01=0x0012}
0x115c…1172 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000b, t01=0x0032}
0x1172…1192 Head {h00=0x001c, h01=0x0050, text=» CLEAR ALPHA F=ALPHATEST«, t00=0x000b, t01=0x0048}
0x1192…11ae Head {h00=0x0018, h01=0x0050, text=» CBE BIN8,W0,UPDV04 «, t00=0x000b, t01=0x0068}
0x11ae…11bc Head {h00=0x000a, h01=0x0050, text=»UPDV05«, t00=0x000b, t01=0x0084}
0x11bc…11d6 Head {h00=0x0016, h01=0x0050, text=» PERF DEEDIT,BIN9 «, t00=0x000b, t01=0x0092}
0x11d6…11e8 Head {h00=0x000e, h01=0x0050, text=» B UPDV06 «, t00=0x000b, t01=0x00ac}
0x11e8…11f6 Head {h00=0x000a, h01=0x0050, text=»UPDV04«, t00=0x000b, t01=0x00be}
0x11f6…121e Head {h00=0x0024, h01=0x0050, text=» MOVE BIN8,BIN2 CURRENT TABINDEX«, t00=0x000b, t01=0x00cc}
0x121e…122c Head {h00=0x000a, h01=0x0050, text=»UPDV06«, t00=0x000b, t01=0x00f4}
0x122c…1260 Head {h00=0x0030, h01=0x0050, text=» IB BIN9,UPDV01,UPDV01,UPDV07, 1=S,2=U,3=F C«, t00=0x000b, t01=0x0102}
0x1260…1282 Head {h00=0x001e, h01=0x0050, text=» UPDV07,UPDV07,UPDV09 6=X«, t00=0x000b, t01=0x0136}
0x1282…1298 Head {h00=0x0012, h01=0x0050, text=» B UPDV09 0=A «, t00=0x000b, t01=0x0158}
0x1298…12a6 Head {h00=0x000a, h01=0x0050, text=»UPDV07«, t00=0x000b, t01=0x016e}
0x12a6…12da Head {h00=0x0030, h01=0x0050, text=» CALL TYPET,BIN7,X.PSEU1,X.PSEU2,X.WB10,BIN8«, t00=0x000b, t01=0x017c}
0x12da…1308 Head {h00=0x002a, h01=0x0050, text=» CBE BIN7,W3,UPDV01 JUMP IF ALPHA STRG«, t00=0x000c, t01=0x0020}
0x1308…1316 Head {h00=0x000a, h01=0x0050, text=»UPDV09«, t00=0x000c, t01=0x004e}
0x1316…1332 Head {h00=0x0018, h01=0x0050, text=» SET ALPHA T=BCD-NUM«, t00=0x000c, t01=0x005c}
0x1332…1344 Head {h00=0x000e, h01=0x0050, text=» B UPDV01 «, t00=0x000c, t01=0x0078}
0x1344…1352 Head {h00=0x000a, h01=0x0050, text=»UPDV16«, t00=0x000c, t01=0x008a}
0x1352…1388 Head {h00=0x0032, h01=0x0050, text=» IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C«, t00=0x000c, t01=0x0098}
0x1388…13a6 Head {h00=0x001a, h01=0x0050, text=» UPDGOT,UPDFOR,UPDFON«, t00=0x000c, t01=0x00ce}
0x13a6…13c8 Head {h00=0x001e, h01=0x0050, text=»UPDE00 HHANDLE ERRORCODE«, t00=0x000c, t01=0x00ec}
0x13c8…13de Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000c, t01=0x010e}
0x13de…140e Head {h00=0x002c, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN12 «, t00=0x000c, t01=0x0124}
0x140e…143e Head {h00=0x002c, h01=0x0050, text=» MOVE BIN3,BIN12 SAVE INDEX TO ERR.MESS «, t00=0x000c, t01=0x0154}
0x143e…1470 Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN3,W0,W1,BIN11,W1 SAVE POOLINDEX «, t00=0x000c, t01=0x0184}
0x1470…1490 Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW4,W128,UPDE10«, t00=0x000d, t01=0x0026}
0x1490…14aa Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x000d, t01=0x0046}
0x14aa…14cc Head {h00=0x001e, h01=0x0050, text=» CALL MSKOUT,BIN9,DEBINW4 «, t00=0x000d, t01=0x0060}
0x14cc…14e4 Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x000d, t01=0x0082}
0x14e4…14f2 Head {h00=0x000a, h01=0x0050, text=»UPDE10«, t00=0x000d, t01=0x009a}
0x14f2…1508 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000d, t01=0x00a8}
0x1508…1528 Head {h00=0x001c, h01=0x0050, text=» CBL BIN12,BIN13,UPDV01 «, t00=0x000d, t01=0x00be}
0x1528…1552 Head {h00=0x0026, h01=0x0050, text=» B DECERR JUMP IF END OF VALSTRING«, t00=0x000d, t01=0x00de}
0x1552…1564 Head {h00=0x000e, h01=0x0050, text=»UPDV20 /«, t00=0x000d, t01=0x0108}
0x1564…1580 Head {h00=0x0018, h01=0x0050, text=» SET DOOL1 NOT-FLAG «, t00=0x000d, t01=0x011a}
0x1580…1592 Head {h00=0x000e, h01=0x0050, text=» B UPDE10 «, t00=0x000d, t01=0x0136}
0x1592…159c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0148}
0x159c…15b8 Head {h00=0x0018, h01=0x0050, text=»UPDV25 D;DUPLICATE«, t00=0x000d, t01=0x0152}
0x15b8…15ce Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000d, t01=0x016e}
0x15ce…15e0 Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x000d, t01=0x0184}
0x15e0…15f4 Head {h00=0x0010, h01=0x0050, text=» BNZ DECERR «, t00=0x000e, t01=0x0008}
0x15f4…1612 Head {h00=0x001a, h01=0x0050, text=» PERF DEFIND,BIN8,BIN9«, t00=0x000e, t01=0x001c}
0x1612…162e Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,BIN8,BIN9 «, t00=0x000e, t01=0x003a}
0x162e…164a Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W6),BIN11«, t00=0x000e, t01=0x0056}
0x164a…1666 Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W7),BIN12«, t00=0x000e, t01=0x0072}
0x1666…1682 Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W8),BIN13«, t00=0x000e, t01=0x008e}
0x1682…16b2 Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x000e, t01=0x00aa}
0x16b2…16c6 Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x000e, t01=0x00da}
0x16c6…16d8 Head {h00=0x000e, h01=0x0050, text=» B UPDV0A «, t00=0x000e, t01=0x00ee}
0x16d8…16e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x16e2…170a Head {h00=0x0024, h01=0x0050, text=»UPDV30 =EQUAL;>GREATER;<LESS; «, t00=0x000e, t01=0x010a}
0x170a…171e Head {h00=0x0010, h01=0x0050, text=» SUB BIN5,W2«, t00=0x000e, t01=0x0132}
0x171e…1734 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000e, t01=0x0146}
0x1734…175a Head {h00=0x0022, h01=0x0050, text=» MOVE BIN6,W0 START IN VALSTR «, t00=0x000e, t01=0x015c}
0x175a…1776 Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,='+-*:'«, t00=0x000e, t01=0x0182}
0x1776…1794 Head {h00=0x001a, h01=0x0050, text=» MOVE BCDI21(W1),=D'0'«, t00=0x000f, t01=0x000e}
0x1794…17c8 Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 «, t00=0x000f, t01=0x002c}
0x17c8…17dc Head {h00=0x0010, h01=0x0050, text=» BOK UPDV35 «, t00=0x000f, t01=0x0060}
0x17dc…1808 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN6,W0 IF ARITHMETIC SIGN IS «, t00=0x000f, t01=0x0074}
0x1808…182e Head {h00=0x0022, h01=0x0050, text=» B UPDV37 OMITTED + IS ASSUMED«, t00=0x000f, t01=0x00a0}
0x182e…183c Head {h00=0x000a, h01=0x0050, text=»UPDV35«, t00=0x000f, t01=0x00c6}
0x183c…1862 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE POINTER«, t00=0x000f, t01=0x00d4}
0x1862…1870 Head {h00=0x000a, h01=0x0050, text=»UPDV37«, t00=0x000f, t01=0x00fa}
0x1870…1886 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x000f, t01=0x0108}
0x1886…18a8 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,='L!ASUFTCXE'«, t00=0x000f, t01=0x011e}
0x18a8…18dc Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN9,W10,BPOOL(BIN11),BIN12,W1«, t00=0x000f, t01=0x0140}
0x18dc…18f0 Head {h00=0x0010, h01=0x0050, text=» BOK UPDV50 «, t00=0x000f, t01=0x0174}
0x18f0…191a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN9,W10 STRING-COMPARISION «, t00=0x000f, t01=0x0188}
0x191a…192c Head {h00=0x000e, h01=0x0050, text=» B UPDV60 «, t00=0x0010, t01=0x0022}
0x192c…193a Head {h00=0x000a, h01=0x0050, text=»UPDV50«, t00=0x0010, t01=0x0034}
0x193a…195e Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x0010, t01=0x0042}
0x195e…197a Head {h00=0x0018, h01=0x0050, text=» CBNL BIN9,W8,UPDV65«, t00=0x0010, t01=0x0066}
0x197a…1988 Head {h00=0x000a, h01=0x0050, text=»UPDV60«, t00=0x0010, t01=0x0082}
0x1988…19a8 Head {h00=0x001c, h01=0x0050, text=» PERF DEFIND,BIN8,BIN10 «, t00=0x0010, t01=0x0090}
0x19a8…19cc Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x0010, t01=0x00b0}
0x19cc…19da Head {h00=0x000a, h01=0x0050, text=»UPDV65«, t00=0x0010, t01=0x00d4}
0x19da…1a1e Head {h00=0x0040, h01=0x0050, text=» IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,UPDFLD,UPDSET,UPDCOD C«, t00=0x0010, t01=0x00e2}
0x1a1e…1a3c Head {h00=0x001a, h01=0x0050, text=» UPDVSI,UPDEMP,UPDNUM«, t00=0x0010, t01=0x0126}
0x1a3c…1a5a Head {h00=0x001a, h01=0x0050, text=»UPDLEN HANDLE LENGTH«, t00=0x0010, t01=0x0144}
0x1a5a…1a74 Head {h00=0x0016, h01=0x0050, text=» CMP DEBINW1,BIN8 «, t00=0x0010, t01=0x0162}
0x1a74…1a86 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x0010, t01=0x017c}
0x1a86…1a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x1a90…1a9e Head {h00=0x000a, h01=0x0050, text=»UPDABS«, t00=0x0011, t01=0x0008}
0x1a9e…1ab0 Head {h00=0x000e, h01=0x0050, text=» SET DOOL6«, t00=0x0011, t01=0x0016}
0x1ab0…1ac2 Head {h00=0x000e, h01=0x0050, text=» B UPDE10 «, t00=0x0011, t01=0x0028}
0x1ac2…1acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1acc…1af0 Head {h00=0x0020, h01=0x0050, text=»UPDACC HANDLE ACCUMULATOR «, t00=0x0011, t01=0x0044}
0x1af0…1b12 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,ACK(W1) «, t00=0x0011, t01=0x0068}
0x1b12…1b34 Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0011, t01=0x008a}
0x1b34…1b56 Head {h00=0x001e, h01=0x0050, text=» MOVE BCDI21(W2),ACK(BIN8)«, t00=0x0011, t01=0x00ac}
0x1b56…1b68 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0011, t01=0x00ce}
0x1b68…1b76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00e0}
0x1b76…1b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b80…1ba6 Head {h00=0x0022, h01=0x0050, text=»UPDSYS HANDLE SYSTEMVARIABEL«, t00=0x0011, t01=0x00f8}
0x1ba6…1bc8 Head {h00=0x001e, h01=0x0050, text=»UPDUSE AND USERVAIABLES «, t00=0x0011, t01=0x011e}
0x1bc8…1bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0140}
0x1bd2…1be6 Head {h00=0x0010, h01=0x0050, text=» SUB BIN9,W3«, t00=0x0011, t01=0x014a}
0x1be6…1bfa Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0011, t01=0x015e}
0x1bfa…1c20 Head {h00=0x0022, h01=0x0050, text=» BNZ UPDS01 JUMP IF CURR FIELD«, t00=0x0011, t01=0x0172}
0x1c20…1c40 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0012, t01=0x0008}
0x1c40…1c5e Head {h00=0x001a, h01=0x0050, text=» BZ UPDS30 JUMP IF BCD«, t00=0x0012, t01=0x0028}
0x1c5e…1c70 Head {h00=0x000e, h01=0x0050, text=» B UPDS03 «, t00=0x0012, t01=0x0046}
0x1c70…1c7e Head {h00=0x000a, h01=0x0050, text=»UPDS01«, t00=0x0012, t01=0x0058}
0x1c7e…1ca8 Head {h00=0x0026, h01=0x0050, text=» TBT ALPHA,UPDS30 JUMP IF BCD-NUM «, t00=0x0012, t01=0x0066}
0x1ca8…1cb6 Head {h00=0x000a, h01=0x0050, text=»UPDS03«, t00=0x0012, t01=0x0090}
0x1cb6…1cce Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS05 «, t00=0x0012, t01=0x009e}
0x1cce…1cf8 Head {h00=0x0026, h01=0x0050, text=» CALL GETIND,SYSV(W1),BIN15,BIN10 «, t00=0x0012, t01=0x00b6}
0x1cf8…1d0a Head {h00=0x000e, h01=0x0050, text=» B UPDS10 «, t00=0x0012, t01=0x00e0}
0x1d0a…1d18 Head {h00=0x000a, h01=0x0050, text=»UPDS05«, t00=0x0012, t01=0x00f2}
0x1d18…1d52 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,USEV(W1),BIN15,BIN10 ITEM,LENGTH,DIM «, t00=0x0012, t01=0x0100}
0x1d52…1d60 Head {h00=0x000a, h01=0x0050, text=»UPDS10«, t00=0x0012, t01=0x013a}
0x1d60…1d86 Head {h00=0x0022, h01=0x0050, text=» CMP BIN10,BIN8 CMP DIMENSION «, t00=0x0012, t01=0x0148}
0x1d86…1dac Head {h00=0x0022, h01=0x0050, text=» BL DECERR VARIABLE NOT EXIST «, t00=0x0012, t01=0x016e}
0x1dac…1dc2 (19, 0, 398) Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0013, t01=0x0004}
0x1dc2…1dda Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS15 «, t00=0x0013, t01=0x001a}
0x1dda…1e10 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,BIN15,SYSV(BIN8),W0,BIN15«, t00=0x0013, t01=0x0032}
0x1e10…1e22 Head {h00=0x000e, h01=0x0050, text=» B UPDS20 «, t00=0x0013, t01=0x0068}
0x1e22…1e30 Head {h00=0x000a, h01=0x0050, text=»UPDS15«, t00=0x0013, t01=0x007a}
0x1e30…1e66 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,BIN15,USEV(BIN8),W0,BIN15«, t00=0x0013, t01=0x0088}
0x1e66…1e74 Head {h00=0x000a, h01=0x0050, text=»UPDS20«, t00=0x0013, t01=0x00be}
0x1e74…1e88 Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0013, t01=0x00cc}
0x1e88…1e9a Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0013, t01=0x00e0}
0x1e9a…1ea8 Head {h00=0x000a, h01=0x0050, text=»UPDS30«, t00=0x0013, t01=0x00f2}
0x1ea8…1ec0 Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS50 «, t00=0x0013, t01=0x0100}
0x1ec0…1ee2 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,SYSV(W1)«, t00=0x0013, t01=0x0118}
0x1ee2…1f04 Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0013, t01=0x013a}
0x1f04…1f28 Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W2),SYSV(BIN8) «, t00=0x0013, t01=0x015c}
0x1f28…1f3a Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0013, t01=0x0180}
0x1f3a…1f48 (20, 0, 400) Head {h00=0x000a, h01=0x0050, text=»UPDS50«, t00=0x0014, t01=0x0004}
0x1f48…1f6a Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,USEV(W1)«, t00=0x0014, t01=0x0012}
0x1f6a…1f8c Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0014, t01=0x0034}
0x1f8c…1fb0 Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W2),USEV(BIN8) «, t00=0x0014, t01=0x0056}
0x1fb0…1fc2 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0014, t01=0x007a}
0x1fc2…1fd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x008c}
0x1fd0…1fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009a}
0x1fda…2006 Head {h00=0x0028, h01=0x0050, text=»UPDFLD HANDLE FIELD WITHIN FORMAT «, t00=0x0014, t01=0x00a4}
0x2006…2010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2010…203a Head {h00=0x0026, h01=0x0050, text=» CBNE BIN8,W0,UPDF10 CURRENT FIELD«, t00=0x0014, t01=0x00da}
0x203a…2066 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN8,BIN2 CURRENT FIELDNUMBER«, t00=0x0014, t01=0x0104}
0x2066…2074 Head {h00=0x000a, h01=0x0050, text=»UPDF10«, t00=0x0014, t01=0x0130}
0x2074…20aa Head {h00=0x0032, h01=0x0050, text=» CALL TYPET,BIN10,X.PSEU1,X.PSEU2,X.WB10,BIN8 «, t00=0x0014, t01=0x013e}
0x20aa…20da Head {h00=0x002c, h01=0x0050, text=» CBNE BIN10,W3,UPDF40 JUMP IF NOT ALPHA «, t00=0x0014, t01=0x0174}
0x20da…20fa Head {h00=0x001c, h01=0x0050, text=» GETCTL 1,BIN10 GET MAXL«, t00=0x0015, t01=0x0014}
0x20fa…210c Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0015, t01=0x0034}
0x210c…2122 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0015, t01=0x0046}
0x2122…2146 Head {h00=0x0020, h01=0x0050, text=» CON X.MATCH,X.PSEU1,X.PSEU2«, t00=0x0015, t01=0x005c}
0x2146…215e Head {h00=0x0014, h01=0x0050, text=» CON X.WB10,BIN8«, t00=0x0015, t01=0x0080}
0x215e…2182 Head {h00=0x0020, h01=0x0050, text=» CON BIN7,BIN10,HEX00,W0,W1 «, t00=0x0015, t01=0x0098}
0x2182…219c Head {h00=0x0016, h01=0x0050, text=» CMP DEBINW1,BIN7 «, t00=0x0015, t01=0x00bc}
0x219c…21be Head {h00=0x001e, h01=0x0050, text=» BNE DECNOT INVALID LENGTH«, t00=0x0015, t01=0x00d6}
0x21be…21d4 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0015, t01=0x00f8}
0x21d4…21fe Head {h00=0x0026, h01=0x0050, text=» CON X.MATCH,DEINPUT,BIN10,DEBINW1«, t00=0x0015, t01=0x010e}
0x21fe…221a Head {h00=0x0018, h01=0x0050, text=» CON X.PSEU1,X.PSEU2«, t00=0x0015, t01=0x0138}
0x221a…223e Head {h00=0x0020, h01=0x0050, text=» CON X.WB10,BIN8,W0,DEBINW1 «, t00=0x0015, t01=0x0154}
0x223e…2252 Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0015, t01=0x0178}
0x2252…2264 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0015, t01=0x018c}
0x2264…227c Head {h00=0x0014, h01=0x0050, text=»UPDF40 NUMERIC«, t00=0x0016, t01=0x000e}
0x227c…22aa Head {h00=0x002a, h01=0x0050, text=» CON X.MOVE,BCDI21(W2),X.PSEU1,X.PSEU2«, t00=0x0016, t01=0x0026}
0x22aa…22c2 Head {h00=0x0014, h01=0x0050, text=» CON X.WB10,BIN8«, t00=0x0016, t01=0x0054}
0x22c2…22d4 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0016, t01=0x006c}
0x22d4…22de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007e}
0x22de…22ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0088}
0x22ec…230c Head {h00=0x001c, h01=0x0050, text=»UPDSET HANDLE VALUESET«, t00=0x0016, t01=0x0096}
0x230c…2320 Head {h00=0x0010, h01=0x0050, text=» CMP BIN5,W0«, t00=0x0016, t01=0x00b6}
0x2320…2334 Head {h00=0x0010, h01=0x0050, text=» BNZ DECERR «, t00=0x0016, t01=0x00ca}
0x2334…235e Head {h00=0x0026, h01=0x0050, text=» MOVE VSEIND,W0 VALUE-SET INDEX:=0«, t00=0x0016, t01=0x00de}
0x235e…2376 Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,BIN8«, t00=0x0016, t01=0x0108}
0x2376…23a2 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN9,W0 LOOK IF ELEMENTNUMBER «, t00=0x0016, t01=0x0120}
0x23a2…23ba Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,=':'«, t00=0x0016, t01=0x014c}
0x23ba…23ec Head {h00=0x002e, h01=0x0050, text=» MATCH STR1A,BIN9,W1,BPOOL(BIN11),BIN12,W1«, t00=0x0016, t01=0x0164}
0x23ec…2402 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET05 «, t00=0x0017, t01=0x0008}
0x2402…2418 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0017, t01=0x001e}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x0017, t01=0x0034}
0x242e…2442 Head {h00=0x0010, h01=0x0050, text=» B UPDSET07 «, t00=0x0017, t01=0x004a}
0x2442…2452 Head {h00=0x000c, h01=0x0050, text=»UPDSET05«, t00=0x0017, t01=0x005e}
0x2452…2468 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0017, t01=0x006e}
0x2468…2494 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN9,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0017, t01=0x0084}
0x2494…24aa Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0017, t01=0x00b0}
0x24aa…24c2 Head {h00=0x0014, h01=0x0050, text=» MOVE ELMNO,BIN9«, t00=0x0017, t01=0x00c6}
0x24c2…24d2 Head {h00=0x000c, h01=0x0050, text=»UPDSET07«, t00=0x0017, t01=0x00de}
0x24d2…24ec Head {h00=0x0016, h01=0x0050, text=» MOVE TABLE,BCD3A «, t00=0x0017, t01=0x00ee}
0x24ec…2506 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'T' «, t00=0x0017, t01=0x0108}
0x2506…2520 Head {h00=0x0016, h01=0x0050, text=» DLETE TABLE,W0,W2«, t00=0x0017, t01=0x0122}
0x2520…2544 Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W2,W1,HEX00,W0 «, t00=0x0017, t01=0x013c}
0x2544…2568 Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W0,W1,STR1A,W0 «, t00=0x0017, t01=0x0160}
0x2568…2578 Head {h00=0x000c, h01=0x0050, text=»UPDSET10«, t00=0x0017, t01=0x0184}
0x2578…259c (24, 0, 400) Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W24 GET VALUSET«, t00=0x0018, t01=0x0004}
0x259c…25b2 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET20 «, t00=0x0018, t01=0x0028}
0x25b2…25d2 Head {h00=0x001c, h01=0x0050, text=» CBE PINDTB,W0,UPDSET18 «, t00=0x0018, t01=0x003e}
0x25d2…25e2 Head {h00=0x000c, h01=0x0050, text=»UPDSET15«, t00=0x0018, t01=0x005e}
0x25e2…260e Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0018, t01=0x006e}
0x260e…261e Head {h00=0x000c, h01=0x0050, text=»UPDSET18«, t00=0x0018, t01=0x009a}
0x261e…2630 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0018, t01=0x00aa}
0x2630…2642 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x0018, t01=0x00bc}
0x2642…2652 Head {h00=0x000c, h01=0x0050, text=»UPDSET20«, t00=0x0018, t01=0x00ce}
0x2652…2670 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0018, t01=0x00de}
0x2670…2698 Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x0018, t01=0x00fc}
0x2698…26c0 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDTB),W0,W11«, t00=0x0018, t01=0x0124}
0x26c0…26ec Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(PINDTB),W17«, t00=0x0018, t01=0x014c}
0x26ec…2730 Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(PINDTB),W18 STORE ENDINDEX OF POOL «, t00=0x0018, t01=0x0178}
0x2730…2748 Head {h00=0x0014, h01=0x0050, text=» SUB ELMNO,BIN16«, t00=0x0019, t01=0x002c}
0x2748…275e Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x0019, t01=0x0044}
0x275e…2790 Head {h00=0x002e, h01=0x0050, text=» TBT DOOL7,UPDSET24 JUMP IF NOT CURR FIELD«, t00=0x0019, t01=0x005a}
0x2790…27b0 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0019, t01=0x008c}
0x27b0…27d0 Head {h00=0x001c, h01=0x0050, text=» BZ UPDSET30 JUMP IF BCD«, t00=0x0019, t01=0x00ac}
0x27d0…27e4 Head {h00=0x0010, h01=0x0050, text=» B UPDSET26 «, t00=0x0019, t01=0x00cc}
0x27e4…27f4 Head {h00=0x000c, h01=0x0050, text=»UPDSET24«, t00=0x0019, t01=0x00e0}
0x27f4…2820 Head {h00=0x0028, h01=0x0050, text=» TBT ALPHA,UPDSET30 JUMP IF BCD-NUM «, t00=0x0019, t01=0x00f0}
0x2820…2830 Head {h00=0x000c, h01=0x0050, text=»UPDSET26«, t00=0x0019, t01=0x011c}
0x2830…285a Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(PINDTB),W1«, t00=0x0019, t01=0x012c}
0x285a…286a Head {h00=0x000c, h01=0x0050, text=»UPDSET28«, t00=0x0019, t01=0x0156}
0x286a…2882 Head {h00=0x0014, h01=0x0050, text=» PERF DEEDIT,W4 «, t00=0x0019, t01=0x0166}
0x2882…2898 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN6,W0 «, t00=0x0019, t01=0x017e}
0x2898…28c8 (26, 0, 400) Head {h00=0x002c, h01=0x0050, text=» MATCH DEINPUT,BIN6,BIN8,STATSH,W0,BIN8 «, t00=0x001a, t01=0x0004}
0x28c8…28de Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET40 «, t00=0x001a, t01=0x0034}
0x28de…28fc Head {h00=0x001a, h01=0x0050, text=» CBNE BIN9,W0,UPDSET15«, t00=0x001a, t01=0x004a}
0x28fc…291e Head {h00=0x001e, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT«, t00=0x001a, t01=0x0068}
0x291e…2950 Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,W1 INCREMENT STARTINDEX OF POOL«, t00=0x001a, t01=0x008a}
0x2950…2986 Head {h00=0x0032, h01=0x0050, text=» CMP BIN16,BIN15 JUMP ALL EL. OF POOL COMPARED«, t00=0x001a, t01=0x00bc}
0x2986…29a8 Head {h00=0x001e, h01=0x0050, text=» BG DECN10 JUMP IF GRAETER«, t00=0x001a, t01=0x00f2}
0x29a8…29bc Head {h00=0x0010, h01=0x0050, text=» B UPDSET28 «, t00=0x001a, t01=0x0114}
0x29bc…29cc Head {h00=0x000c, h01=0x0050, text=»UPDSET30«, t00=0x001a, t01=0x0128}
0x29cc…29f2 Head {h00=0x0022, h01=0x0050, text=» MOVE BCDI21(W2),FDVBCD(ELMNO)«, t00=0x001a, t01=0x0138}
0x29f2…2a04 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x001a, t01=0x015e}
0x2a04…2a14 Head {h00=0x000c, h01=0x0050, text=»UPDSET40«, t00=0x001a, t01=0x0170}
0x2a14…2a42 Head {h00=0x002a, h01=0x0050, text=» MOVE VSEIND,BIN16 INDEX OF CURR BUFF «, t00=0x001a, t01=0x0180}
0x2a42…2a6e Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x001b, t01=0x001e}
0x2a6e…2a90 Head {h00=0x001e, h01=0x0050, text=» CMP W0,W0 CONDITION ZERO «, t00=0x001b, t01=0x004a}
0x2a90…2aa2 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x001b, t01=0x006c}
0x2aa2…2aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007e}
0x2aac…2aba Head {h00=0x000a, h01=0x0050, text=»UPDCOD«, t00=0x001b, t01=0x0088}
0x2aba…2ad4 Head {h00=0x0016, h01=0x0050, text=» PERF DECOMP,BIN8 «, t00=0x001b, t01=0x0096}
0x2ad4…2ae6 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x001b, t01=0x00b0}
0x2ae6…2af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c2}
0x2af0…2afe Head {h00=0x000a, h01=0x0050, text=»UPDEMP«, t00=0x001b, t01=0x00cc}
0x2afe…2b1a Head {h00=0x0018, h01=0x0050, text=» CALL EMPTYT,DEINPUT«, t00=0x001b, t01=0x00da}
0x2b1a…2b2c Head {h00=0x000e, h01=0x0050, text=» BP DECEGL«, t00=0x001b, t01=0x00f6}
0x2b2c…2b3e Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x001b, t01=0x0108}
0x2b3e…2b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011a}
0x2b48…2b7a Head {h00=0x002e, h01=0x0050, text=»* OPERAND IS VALUE-SET ELEMENT INDEX«, t00=0x001b, t01=0x0124}
0x2b7a…2b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0156}
0x2b84…2b92 Head {h00=0x000a, h01=0x0050, text=»UPDVSI«, t00=0x001b, t01=0x0160}
0x2b92…2bc8 Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W2),VSEIND LOAD VALUE SET ELINDEX«, t00=0x001b, t01=0x016e}
0x2bc8…2bda Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x001c, t01=0x0014}
0x2bda…2be8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0026}
0x2be8…2bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0034}
0x2bf2…2c18 Head {h00=0x0022, h01=0x0050, text=»UPDGOT GO TO VALIDATION (G) «, t00=0x001c, t01=0x003e}
0x2c18…2c4a Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x001c, t01=0x0064}
0x2c4a…2c7c Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x001c, t01=0x0096}
0x2c7c…2ca0 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x001c, t01=0x00c8}
0x2ca0…2cc8 Head {h00=0x0024, h01=0x0050, text=» SET BOOL6 T=COND TAB FOUND (G) «, t00=0x001c, t01=0x00ec}
0x2cc8…2ce8 Head {h00=0x001c, h01=0x0050, text=» PERF DEFIND,BIN14,BIN10«, t00=0x001c, t01=0x0114}
0x2ce8…2d12 Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFERPOINTER«, t00=0x001c, t01=0x0134}
0x2d12…2d24 Head {h00=0x000e, h01=0x0050, text=» B UPDV00 «, t00=0x001c, t01=0x015e}
0x2d24…2d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0170}
0x2d2e…2d5c Head {h00=0x002a, h01=0x0050, text=»UPDFOR CHANGE FORMAT VALIDATION (R) «, t00=0x001c, t01=0x017a}
0x2d5c…2d74 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W4«, t00=0x001d, t01=0x0018}
0x2d74…2da6 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x001d, t01=0x0030}
0x2da6…2dd2 Head {h00=0x0028, h01=0x0050, text=» SET BOOL4 T=COND FORM CH FOUND (R) «, t00=0x001d, t01=0x0062}
0x2dd2…2de4 Head {h00=0x000e, h01=0x0050, text=» B UPDFO2 «, t00=0x001d, t01=0x008e}
0x2de4…2dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a0}
0x2dee…2e1c Head {h00=0x002a, h01=0x0050, text=»UPDFON CHANGE FORMAT VALIDATION (N) «, t00=0x001d, t01=0x00aa}
0x2e1c…2e38 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,W3 (N)«, t00=0x001d, t01=0x00d8}
0x2e38…2e6a Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x001d, t01=0x00f4}
0x2e6a…2e9a Head {h00=0x002c, h01=0x0050, text=» SET BOOL8 T=COND FORM CHANGE FOUND (N) «, t00=0x001d, t01=0x0126}
0x2e9a…2ea8 Head {h00=0x000a, h01=0x0050, text=»UPDFO2«, t00=0x001d, t01=0x0156}
0x2ea8…2ed0 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL6 F=NO COND TAB FOUND«, t00=0x001d, t01=0x0164}
0x2ed0…2efa Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADUST BUFFER POINTER«, t00=0x001d, t01=0x018c}
0x2efa…2f18 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x001e, t01=0x0026}
0x2f18…2f58 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS«, t00=0x001e, t01=0x0044}
0x2f58…2f86 Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W128 ADJUST LIT.-INDICATOR «, t00=0x001e, t01=0x0084}
0x2f86…2fb2 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFER POINTER «, t00=0x001e, t01=0x00b2}
0x2fb2…2fd6 Head {h00=0x0020, h01=0x0050, text=» MOVE STSAVE(DEBINW4),HEX00 «, t00=0x001e, t01=0x00de}
0x2fd6…3010 Head {h00=0x0036, h01=0x0050, text=» XCOPY STSAVE(DEBINW4),W0,BIN16,BPOOL(BIN11),BIN12«, t00=0x001e, t01=0x0102}
0x3010…3042 Head {h00=0x002e, h01=0x0050, text=» ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS «, t00=0x001e, t01=0x013c}
0x3042…305a Head {h00=0x0014, h01=0x0050, text=» B UPDV00 GO ON «, t00=0x001e, t01=0x016e}
0x305a…3068 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0186}
0x3068…3072 (31, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x3072…3080 Head {h00=0x000a, h01=0x0050, text=»UPDNUM«, t00=0x001f, t01=0x000e}
0x3080…309a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x001f, t01=0x001c}
0x309a…30b8 Head {h00=0x001a, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN8«, t00=0x001f, t01=0x0036}
0x30b8…30d0 Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='?'«, t00=0x001f, t01=0x0054}
0x30d0…30fe Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,BIN12 SAVE CURRENT POINTER«, t00=0x001f, t01=0x006c}
0x30fe…3130 Head {h00=0x002e, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN10,BIN9,STR1A,W0,W1«, t00=0x001f, t01=0x009a}
0x3130…3156 Head {h00=0x0022, h01=0x0050, text=» BNOK UPDN06 JUMP IF NO '?':S «, t00=0x001f, t01=0x00cc}
0x3156…3184 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN8,W0 COUNTER NUMB OF MATCHES «, t00=0x001f, t01=0x00f2}
0x3184…31aa Head {h00=0x0022, h01=0x0050, text=» XCOPY BIN10,W1,W1,DEINPUT,W0 «, t00=0x001f, t01=0x0120}
0x31aa…31ca Head {h00=0x001c, h01=0x0050, text=» CBE BIN10,=X'20',UPDN0X«, t00=0x001f, t01=0x0146}
0x31ca…31ec Head {h00=0x001e, h01=0x0050, text=» CBNE BIN10,=X'2B',UPDN01 «, t00=0x001f, t01=0x0166}
0x31ec…31fa Head {h00=0x000a, h01=0x0050, text=»UPDN0X«, t00=0x001f, t01=0x0188}
0x31fa…3220 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN8,W1 ADJUST FOR SIGN «, t00=0x0020, t01=0x0008}
0x3220…322e Head {h00=0x000a, h01=0x0050, text=»UPDN01«, t00=0x0020, t01=0x002e}
0x322e…3246 Head {h00=0x0014, h01=0x0050, text=» ADD BIN9,BIN12 «, t00=0x0020, t01=0x003c}
0x3246…3254 Head {h00=0x000a, h01=0x0050, text=»UPDN00«, t00=0x0020, t01=0x0054}
0x3254…326c Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,BIN8«, t00=0x0020, t01=0x0062}
0x326c…32a2 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,W1,BPOOL(BIN11),BIN12,W1 «, t00=0x0020, t01=0x007a}
0x32a2…32c8 Head {h00=0x0022, h01=0x0050, text=» BNOK UPDN04 NOT OK MAYBE '?' «, t00=0x0020, t01=0x00b0}
0x32c8…32d6 Head {h00=0x000a, h01=0x0050, text=»UPDN02«, t00=0x0020, t01=0x00d6}
0x32d6…32fc Head {h00=0x0022, h01=0x0050, text=» ADD BIN8,W1 INCREMENT COUNTER«, t00=0x0020, t01=0x00e4}
0x32fc…3328 Head {h00=0x0028, h01=0x0050, text=» CMP BIN8,DEBINW1 ALL CHARS MATCHED «, t00=0x0020, t01=0x010a}
0x3328…333a Head {h00=0x000e, h01=0x0050, text=» BL UPDN03«, t00=0x0020, t01=0x0136}
0x333a…3352 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,BIN8«, t00=0x0020, t01=0x0148}
0x3352…337e Head {h00=0x0028, h01=0x0050, text=» MATCH DEINPUT,BIN10,W1,HEX00,W0,W1 «, t00=0x0020, t01=0x0160}
0x337e…3392 Head {h00=0x0010, h01=0x0050, text=» BOK UPDN30 «, t00=0x0020, t01=0x018c}
0x3392…33a0 Head {h00=0x000a, h01=0x0050, text=»UPDN03«, t00=0x0021, t01=0x0010}
0x33a0…33c4 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x0021, t01=0x001e}
0x33c4…33e2 Head {h00=0x001a, h01=0x0050, text=» B UPDN00 GO ON MATCH «, t00=0x0021, t01=0x0042}
0x33e2…33f0 Head {h00=0x000a, h01=0x0050, text=»UPDN04«, t00=0x0021, t01=0x0060}
0x33f0…341a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN10,BIN12 LOAD MATCH POINT«, t00=0x0021, t01=0x006e}
0x341a…344a Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN10,W1,STR1A,W0,W1«, t00=0x0021, t01=0x0098}
0x344a…346e Head {h00=0x0020, h01=0x0050, text=» BOK UPDN02 GO ON '?' FOUND «, t00=0x0021, t01=0x00c8}
0x346e…3480 Head {h00=0x000e, h01=0x0050, text=» B UPDN30 «, t00=0x0021, t01=0x00ec}
0x3480…348e Head {h00=0x000a, h01=0x0050, text=»UPDN06«, t00=0x0021, t01=0x00fe}
0x348e…34a4 Head {h00=0x0012, h01=0x0050, text=» CLEAR DOOL7 «, t00=0x0021, t01=0x010c}
0x34a4…34ce Head {h00=0x0026, h01=0x0050, text=» BNZ UPDN10 JUMP IF NOT CURR FIELD«, t00=0x0021, t01=0x0122}
0x34ce…34ee Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0021, t01=0x014c}
0x34ee…3510 Head {h00=0x001e, h01=0x0050, text=» BZ UPDN40 JUMP IF NUMERIC«, t00=0x0021, t01=0x016c}
0x3510…3530 Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW1,BIN9,UPDN20«, t00=0x0021, t01=0x018e}
0x3530…355e Head {h00=0x002a, h01=0x0050, text=» ADD BIN12,BIN9 ADJUST POINTER IN FVAL«, t00=0x0022, t01=0x001e}
0x355e…3570 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0022, t01=0x004c}
0x3570…357e Head {h00=0x000a, h01=0x0050, text=»UPDN10«, t00=0x0022, t01=0x005e}
0x357e…35a8 Head {h00=0x0026, h01=0x0050, text=» TBT ALPHA,UPDN40 JUMP IF BCD-NUM «, t00=0x0022, t01=0x006c}
0x35a8…35b6 Head {h00=0x000a, h01=0x0050, text=»UPDN20«, t00=0x0022, t01=0x0096}
0x35b6…35cc Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0022, t01=0x00a4}
0x35cc…35e4 Head {h00=0x0014, h01=0x0050, text=» ADD BIN9,BIN12 «, t00=0x0022, t01=0x00ba}
0x35e4…3624 Head {h00=0x003c, h01=0x0050, text=» MATCH DEINPUT,BIN10,DEBINW1,BPOOL(BIN11),BIN12,DEBINW1 «, t00=0x0022, t01=0x00d2}
0x3624…3632 Head {h00=0x000a, h01=0x0050, text=»UPDN30«, t00=0x0022, t01=0x0112}
0x3632…364a Head {h00=0x0014, h01=0x0050, text=» MOVE BIN12,BIN9«, t00=0x0022, t01=0x0120}
0x364a…365e Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0022, t01=0x0138}
0x365e…3670 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0022, t01=0x014c}
0x3670…3688 Head {h00=0x0014, h01=0x0050, text=»UPDN40 NUMERIC«, t00=0x0022, t01=0x015e}
0x3688…36a2 Head {h00=0x0016, h01=0x0050, text=» MOVE STR64A,HEX00«, t00=0x0022, t01=0x0176}
0x36a2…36d2 Head {h00=0x002c, h01=0x0050, text=» COPY STR64A,W0,BIN9,BPOOL(BIN11),BIN12 «, t00=0x0022, t01=0x0190}
0x36d2…36f2 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W2),STR64A «, t00=0x0023, t01=0x0030}
0x36f2…370a Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x0023, t01=0x0050}
0x370a…3718 Head {h00=0x000a, h01=0x0050, text=»UPDN50«, t00=0x0023, t01=0x0068}
0x3718…372c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x0023, t01=0x0076}
0x372c…373e Head {h00=0x000e, h01=0x0050, text=» BZ UPDN55«, t00=0x0023, t01=0x008a}
0x373e…3760 Head {h00=0x001e, h01=0x0050, text=» CALL CLEARB,BCDI21(W2),W1«, t00=0x0023, t01=0x009c}
0x3760…3780 Head {h00=0x001c, h01=0x0050, text=» CALL SETB,BCDI21(W2),W2«, t00=0x0023, t01=0x00be}
0x3780…378e Head {h00=0x000a, h01=0x0050, text=»UPDN55«, t00=0x0023, t01=0x00de}
0x378e…37b4 Head {h00=0x0022, h01=0x0050, text=» IB BIN6,UPDN60,UPDN70,UPDN80 «, t00=0x0023, t01=0x00ec}
0x37b4…37d6 Head {h00=0x001e, h01=0x0050, text=» ADD BCDI21(W1),BCDI21(W2)«, t00=0x0023, t01=0x0112}
0x37d6…37e8 Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0023, t01=0x0134}
0x37e8…3810 Head {h00=0x0024, h01=0x0050, text=»UPDN60 SUB BCDI21(W1),BCDI21(W2)«, t00=0x0023, t01=0x0146}
0x3810…3822 Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0023, t01=0x016e}
0x3822…384a Head {h00=0x0024, h01=0x0050, text=»UPDN70 MUL BCDI21(W1),BCDI21(W2)«, t00=0x0023, t01=0x0180}
0x384a…385c Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0024, t01=0x0018}
0x385c…3884 Head {h00=0x0024, h01=0x0050, text=»UPDN80 DIV BCDI21(W1),BCDI21(W2)«, t00=0x0024, t01=0x002a}
0x3884…38a0 Head {h00=0x0018, h01=0x0050, text=»UPDN90 MOVE BIN6,W0 «, t00=0x0024, t01=0x0052}
0x38a0…38d0 Head {h00=0x002c, h01=0x0050, text=» CBNL BIN12,BIN13,UPDN95 JUMP IF END OF «, t00=0x0024, t01=0x006e}
0x38d0…38ec Head {h00=0x0018, h01=0x0050, text=» VALIDATION STRING«, t00=0x0024, t01=0x009e}
0x38ec…3908 Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,='+-*:'«, t00=0x0024, t01=0x00ba}
0x3908…393c Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 «, t00=0x0024, t01=0x00d6}
0x393c…3968 Head {h00=0x0028, h01=0x0050, text=» BOK UPDV35 JUMP IF ARITHMETIC SIGN «, t00=0x0024, t01=0x010a}
0x3968…3976 Head {h00=0x000a, h01=0x0050, text=»UPDN95«, t00=0x0024, t01=0x0136}
0x3976…3996 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W2),DEINPUT«, t00=0x0024, t01=0x0144}
0x3996…39b8 Head {h00=0x001e, h01=0x0050, text=» CMP BCDI21(W2),BCDI21(W1)«, t00=0x0024, t01=0x0164}
0x39b8…39c6 Head {h00=0x000a, h01=0x0050, text=»DECO05«, t00=0x0024, t01=0x0186}
0x39c6…3a00 (37, 0, 400) Head {h00=0x0036, h01=0x0050, text=» IB BIN5,DECO10,DECO20 JUMP ON COMPARE-SIGN-INDEX «, t00=0x0025, t01=0x0004}
0x3a00…3a14 Head {h00=0x0010, h01=0x0050, text=» BZ DECEGL =«, t00=0x0025, t01=0x003e}
0x3a14…3a28 Head {h00=0x0010, h01=0x0050, text=» B DECNOT /=«, t00=0x0025, t01=0x0052}
0x3a28…3a36 Head {h00=0x000a, h01=0x0050, text=»DECO10«, t00=0x0025, t01=0x0066}
0x3a36…3a4c Head {h00=0x0012, h01=0x0050, text=» BEOF DECEGL >«, t00=0x0025, t01=0x0074}
0x3a4c…3a60 Head {h00=0x0010, h01=0x0050, text=» B DECNOT />«, t00=0x0025, t01=0x008a}
0x3a60…3a6e Head {h00=0x000a, h01=0x0050, text=»DECO20«, t00=0x0025, t01=0x009e}
0x3a6e…3a84 Head {h00=0x0012, h01=0x0050, text=» BERR DECEGL <«, t00=0x0025, t01=0x00ac}
0x3a84…3a92 Head {h00=0x000a, h01=0x0050, text=» /< «, t00=0x0025, t01=0x00c2}
0x3a92…3aac Head {h00=0x0016, h01=0x0050, text=»DECNOT CLEAR DOOL1«, t00=0x0025, t01=0x00d0}
0x3aac…3ac6 Head {h00=0x0016, h01=0x0050, text=» BNZ DECOOK VALID «, t00=0x0025, t01=0x00ea}
0x3ac6…3af4 Head {h00=0x002a, h01=0x0050, text=» CBE PINDTB,W0,DECONO JUMP IF NOT SET «, t00=0x0025, t01=0x0104}
0x3af4…3b1e Head {h00=0x0026, h01=0x0050, text=» CMP BIN9,W0 LOOK IF ALL ELEMENTS «, t00=0x0025, t01=0x0132}
0x3b1e…3b40 Head {h00=0x001e, h01=0x0050, text=» BNZ UPDSET15 JUMP IF NOT «, t00=0x0025, t01=0x015c}
0x3b40…3b62 Head {h00=0x001e, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT«, t00=0x0025, t01=0x017e}
0x3b62…3b94 Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,W1 INCREMENT STARTINDEX OF POOL«, t00=0x0026, t01=0x0010}
0x3b94…3bd2 Head {h00=0x003a, h01=0x0050, text=» CBG BIN16,BIN15,DECN10 JUMP ALL EL. OF POOL COMPARED«, t00=0x0026, t01=0x0042}
0x3bd2…3c0c Head {h00=0x0036, h01=0x0050, text=» MOVE BCDI21(W1),FDVBCD(ELMNO) NEXT ELEMENT VALUE «, t00=0x0026, t01=0x0080}
0x3c0c…3c30 Head {h00=0x0020, h01=0x0050, text=» B UPDN95 GO ON NEXT COMPARE«, t00=0x0026, t01=0x00ba}
0x3c30…3c3e Head {h00=0x000a, h01=0x0050, text=»DECN10«, t00=0x0026, t01=0x00de}
0x3c3e…3c7e Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN15,W0,W2,RPOOL(PINDTB),W13 FETCH LINK FORWARD «, t00=0x0026, t01=0x00ec}
0x3c7e…3cb2 Head {h00=0x0030, h01=0x0050, text=» CMP BIN15,W0 JUMP IF WHOLE TABLE VALIDATED «, t00=0x0026, t01=0x012c}
0x3cb2…3cd4 Head {h00=0x001e, h01=0x0050, text=» BE UPDSET15 JUMP IF EQUAL«, t00=0x0026, t01=0x0160}
0x3cd4…3d0c Head {h00=0x0034, h01=0x0050, text=» MOVE ELMNO,BIN16 LOAD SAERCH ELEMENT NEXT SEGM.«, t00=0x0026, t01=0x0182}
0x3d0c…3d40 Head {h00=0x0030, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A RELEASE«, t00=0x0027, t01=0x002a}
0x3d40…3d6c Head {h00=0x0028, h01=0x0050, text=» B UPDSET10 GO ON READ NEXT SEGMENT «, t00=0x0027, t01=0x005e}
0x3d6c…3d86 Head {h00=0x0016, h01=0x0050, text=»DECEGL CLEAR DOOL1«, t00=0x0027, t01=0x008a}
0x3d86…3d9e Head {h00=0x0014, h01=0x0050, text=» BZ DECOTK VALID«, t00=0x0027, t01=0x00a4}
0x3d9e…3dac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00bc}
0x3dac…3dba Head {h00=0x000a, h01=0x0050, text=»DECONO«, t00=0x0027, t01=0x00ca}
0x3dba…3dd6 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN10,W21 V OR«, t00=0x0027, t01=0x00d8}
0x3dd6…3e06 Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,DECOMT JUMP IF COND TAB FOUND«, t00=0x0027, t01=0x00f4}
0x3e06…3e38 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL8,DECOMT JUMP IF RECORD CH FOUND «, t00=0x0027, t01=0x0124}
0x3e38…3e6a Head {h00=0x002e, h01=0x0050, text=» TBT BOOL4,DECOMT JUMP IF RECORD CH FOUND «, t00=0x0027, t01=0x0156}
0x3e6a…3e8c Head {h00=0x001e, h01=0x0050, text=» SET DOOLB ITEM NOT VALID «, t00=0x0027, t01=0x0188}
0x3e8c…3e9e Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x0028, t01=0x001a}
0x3e9e…3eac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x002c}
0x3eac…3eba Head {h00=0x000a, h01=0x0050, text=»DECOTK«, t00=0x0028, t01=0x003a}
0x3eba…3ef6 Head {h00=0x0038, h01=0x0050, text=» CBE PINDTB,W0,DECOOK JUMP IF EOF VALUE-SET/NO VSET «, t00=0x0028, t01=0x0048}
0x3ef6…3f24 Head {h00=0x002a, h01=0x0050, text=» MOVE VSEIND,BIN16 INDEX OF CURR BUFF «, t00=0x0028, t01=0x0084}
0x3f24…3f32 Head {h00=0x000a, h01=0x0050, text=»DECOOK«, t00=0x0028, t01=0x00b2}
0x3f32…3f4c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN10,W20 & «, t00=0x0028, t01=0x00c0}
0x3f4c…3f6c Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ITEM VALID «, t00=0x0028, t01=0x00da}
0x3f6c…3f7a Head {h00=0x000a, h01=0x0050, text=»DECOMT«, t00=0x0028, t01=0x00fa}
0x3f7a…3f8e Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0028, t01=0x0108}
0x3f8e…3fac Head {h00=0x001a, h01=0x0050, text=» CBE PINDTB,W0,DECO33 «, t00=0x0028, t01=0x011c}
0x3fac…3fd8 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0028, t01=0x013a}
0x3fd8…3ffe Head {h00=0x0022, h01=0x0050, text=»DECO33 CBNL BIN12,BIN13,DECEND«, t00=0x0028, t01=0x0166}
0x3ffe…4014 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0028, t01=0x018c}
0x4014…402e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN16,=W'29'«, t00=0x0029, t01=0x0012}
0x402e…4064 Head {h00=0x0032, h01=0x0050, text=» MATCH VALSTR,BIN9,BIN16,BPOOL(BIN11),BIN12,W1«, t00=0x0029, t01=0x002c}
0x4064…4078 Head {h00=0x0010, h01=0x0050, text=» BOK DECO40 «, t00=0x0029, t01=0x0062}
0x4078…4086 Head {h00=0x000a, h01=0x0050, text=»DECO35«, t00=0x0029, t01=0x0076}
0x4086…40b2 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0029, t01=0x0084}
0x40b2…40ce Head {h00=0x0018, h01=0x0050, text=» CALL TESTB,BIN8,W8 «, t00=0x0029, t01=0x00b0}
0x40ce…40e0 Head {h00=0x000e, h01=0x0050, text=» BZ DECO38«, t00=0x0029, t01=0x00cc}
0x40e0…40fa Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x0029, t01=0x00de}
0x40fa…4118 Head {h00=0x001a, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN8«, t00=0x0029, t01=0x00f8}
0x4118…4130 Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x0029, t01=0x0116}
0x4130…413e Head {h00=0x000a, h01=0x0050, text=»DECO38«, t00=0x0029, t01=0x012e}
0x413e…4154 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0029, t01=0x013c}
0x4154…4166 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x0029, t01=0x0152}
0x4166…4180 Head {h00=0x0016, h01=0x0050, text=»DECO39 ';' FOUND«, t00=0x0029, t01=0x0164}
0x4180…41a6 Head {h00=0x0022, h01=0x0050, text=» CBNE BIN10,W20,DECO37 NOT = &«, t00=0x0029, t01=0x017e}
0x41a6…41d4 Head {h00=0x002a, h01=0x0050, text=» PERF DENVCO CONDITIONAL BOOL SETTING «, t00=0x002a, t01=0x0014}
0x41d4…41e2 Head {h00=0x000a, h01=0x0050, text=»DECO37«, t00=0x002a, t01=0x0042}
0x41e2…41f8 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002a, t01=0x0050}
0x41f8…4226 Head {h00=0x002a, h01=0x0050, text=» CBNL BIN12,BIN13,DECEND END OF STRING«, t00=0x002a, t01=0x0066}
0x4226…423c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x002a, t01=0x0094}
0x423c…4258 Head {h00=0x0018, h01=0x0050, text=» MOVE STR6B,=C'DGRN'«, t00=0x002a, t01=0x00aa}
0x4258…428a Head {h00=0x002e, h01=0x0050, text=» MATCH STR6B,BIN9,W4,BPOOL(BIN11),BIN12,W1«, t00=0x002a, t01=0x00c6}
0x428a…429e Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x002a, t01=0x00f8}
0x429e…42b8 Head {h00=0x0016, h01=0x0050, text=» TBT DOOLB,DECEND «, t00=0x002a, t01=0x010c}
0x42b8…42de Head {h00=0x0022, h01=0x0050, text=» IB BIN9,UPDGOT,UPDFOR,UPDFON «, t00=0x002a, t01=0x0126}
0x42de…42f0 Head {h00=0x000e, h01=0x0050, text=» B UPDV25 «, t00=0x002a, t01=0x014c}
0x42f0…42fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x015e}
0x42fe…430c Head {h00=0x000a, h01=0x0050, text=»DECO40«, t00=0x002a, t01=0x016c}
0x430c…432e Head {h00=0x001e, h01=0x0050, text=» IB BIN9,DECO41 1=/ NOT C«, t00=0x002a, t01=0x017a}
0x432e…434c Head {h00=0x001a, h01=0x0050, text=» DECO41 2== EQUAL C «, t00=0x002b, t01=0x000c}
0x434c…436c Head {h00=0x001c, h01=0x0050, text=» DECO41 3=> GREATER C «, t00=0x002b, t01=0x002a}
0x436c…4388 Head {h00=0x0018, h01=0x0050, text=» DECO41 4=< LESS C«, t00=0x002b, t01=0x004a}
0x4388…43aa Head {h00=0x001e, h01=0x0050, text=» DECO45 5=D DUPLICATE C «, t00=0x002b, t01=0x0066}
0x43aa…43be Head {h00=0x0010, h01=0x0050, text=» DECO42 C «, t00=0x002b, t01=0x0088}
0x43be…43d2 Head {h00=0x0010, h01=0x0050, text=» DECO41 C «, t00=0x002b, t01=0x009c}
0x43d2…43f4 Head {h00=0x001e, h01=0x0050, text=» DECO42,DECO42,DECO42 C «, t00=0x002b, t01=0x00b0}
0x43f4…4412 Head {h00=0x001a, h01=0x0050, text=» DECO45 11=F FIELD C «, t00=0x002b, t01=0x00d2}
0x4412…4426 Head {h00=0x0010, h01=0x0050, text=» DECO42 C «, t00=0x002b, t01=0x00f0}
0x4426…443a Head {h00=0x0010, h01=0x0050, text=» DECO42 C «, t00=0x002b, t01=0x0104}
0x443a…445c Head {h00=0x001e, h01=0x0050, text=» DECO41,DECO41,DECO41 C «, t00=0x002b, t01=0x0118}
0x445c…447c Head {h00=0x001c, h01=0x0050, text=» DECO41,DECO41 17-18 C «, t00=0x002b, t01=0x013a}
0x447c…4494 Head {h00=0x0014, h01=0x0050, text=» DECO39 19=; C «, t00=0x002b, t01=0x015a}
0x4494…44b4 Head {h00=0x001c, h01=0x0050, text=» DECO43,DECO43, 20-21 C«, t00=0x002b, t01=0x0172}
0x44b4…44dc (44, 0, 400) Head {h00=0x0024, h01=0x0050, text=» DECO41,DECO41,DECO41, 22-24 C «, t00=0x002c, t01=0x0004}
0x44dc…44f8 Head {h00=0x0018, h01=0x0050, text=» DECO45 25=G GOTO C«, t00=0x002c, t01=0x002c}
0x44f8…450e Head {h00=0x0012, h01=0x0050, text=» DECO46 26= C«, t00=0x002c, t01=0x0048}
0x450e…4524 Head {h00=0x0012, h01=0x0050, text=» DECO46 27= C«, t00=0x002c, t01=0x005e}
0x4524…4534 Head {h00=0x000c, h01=0x0050, text=» DECO41«, t00=0x002c, t01=0x0074}
0x4534…4552 Head {h00=0x001a, h01=0x0050, text=» ADD BIN12,W1 MESSAGE «, t00=0x002c, t01=0x0084}
0x4552…4564 Head {h00=0x000e, h01=0x0050, text=» B DECO35 «, t00=0x002c, t01=0x00a2}
0x4564…4572 Head {h00=0x000a, h01=0x0050, text=»DECO43«, t00=0x002c, t01=0x00b4}
0x4572…4592 Head {h00=0x001c, h01=0x0050, text=» CBNE BIN9,BIN10,DECO44 «, t00=0x002c, t01=0x00c2}
0x4592…45b6 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x002c, t01=0x00e2}
0x45b6…45c8 Head {h00=0x000e, h01=0x0050, text=» B UPDV00 «, t00=0x002c, t01=0x0106}
0x45c8…45d6 Head {h00=0x000a, h01=0x0050, text=»DECO44«, t00=0x002c, t01=0x0118}
0x45d6…45f4 Head {h00=0x001a, h01=0x0050, text=» CBE BIN10,W20,DEC050 «, t00=0x002c, t01=0x0126}
0x45f4…4602 Head {h00=0x000a, h01=0x0050, text=»DECO41«, t00=0x002c, t01=0x0144}
0x4602…4618 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002c, t01=0x0152}
0x4618…462a Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002c, t01=0x0168}
0x462a…4638 Head {h00=0x000a, h01=0x0050, text=»DECO42«, t00=0x002c, t01=0x017a}
0x4638…464e Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W2 «, t00=0x002c, t01=0x0188}
0x464e…4660 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002d, t01=0x000e}
0x4660…466e Head {h00=0x000a, h01=0x0050, text=»DECO45«, t00=0x002d, t01=0x0020}
0x466e…468c Head {h00=0x001a, h01=0x0050, text=» PERF DEFIND,BIN8,BIN9«, t00=0x002d, t01=0x002e}
0x468c…469e Head {h00=0x000e, h01=0x0050, text=» B DECO42 «, t00=0x002d, t01=0x004c}
0x469e…46ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x005e}
0x46ac…46d2 Head {h00=0x0022, h01=0x0050, text=»DECO46 CONDITIONAL FORMAT CH«, t00=0x002d, t01=0x006c}
0x46d2…46fc Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADUST BUFFER POINTER«, t00=0x002d, t01=0x0092}
0x46fc…471a Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x002d, t01=0x00bc}
0x471a…475a Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS«, t00=0x002d, t01=0x00da}
0x475a…4788 Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W128 ADJUST LIT.-INDICATOR «, t00=0x002d, t01=0x011a}
0x4788…47b4 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFER POINTER «, t00=0x002d, t01=0x0148}
0x47b4…47e6 Head {h00=0x002e, h01=0x0050, text=» ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS «, t00=0x002d, t01=0x0174}
0x47e6…47f8 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002e, t01=0x0016}
0x47f8…4806 Head {h00=0x000a, h01=0x0050, text=»DEC050«, t00=0x002e, t01=0x0028}
0x4806…4834 Head {h00=0x002a, h01=0x0050, text=» PERF DENVCO CONDITIONAL BOOL SETTING «, t00=0x002e, t01=0x0036}
0x4834…4846 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002e, t01=0x0064}
0x4846…4854 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0076}
0x4854…4862 Head {h00=0x000a, h01=0x0050, text=»DECERR«, t00=0x002e, t01=0x0084}
0x4862…4874 Head {h00=0x000e, h01=0x0050, text=» SET DOOLB«, t00=0x002e, t01=0x0092}
0x4874…489c Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W2 UNDEFINED ERROR«, t00=0x002e, t01=0x00a4}
0x489c…48b2 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x002e, t01=0x00cc}
0x48b2…48cc Head {h00=0x0016, h01=0x0050, text=»DECEND CLEAR DOOL4«, t00=0x002e, t01=0x00e2}
0x48cc…48de Head {h00=0x000e, h01=0x0050, text=» BZ DECE10«, t00=0x002e, t01=0x00fc}
0x48de…4912 Head {h00=0x0030, h01=0x0050, text=»* RESTORE POINTERS TO VAL-STRING «, t00=0x002e, t01=0x010e}
0x4912…492e Head {h00=0x0018, h01=0x0050, text=» MOVE BIN11,WORK(W6)«, t00=0x002e, t01=0x0142}
0x492e…494a Head {h00=0x0018, h01=0x0050, text=» MOVE BIN12,WORK(W7)«, t00=0x002e, t01=0x015e}
0x494a…4966 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,WORK(W8)«, t00=0x002e, t01=0x017a}
0x4966…497c Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002f, t01=0x0008}
0x497c…49b4 Head {h00=0x0034, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,BIN2,BIN9 GET INIT. FIELD«, t00=0x002f, t01=0x001e}
0x49b4…49d0 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x002f, t01=0x0056}
0x49d0…49de Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x002f, t01=0x0072}
0x49de…49ec Head {h00=0x000a, h01=0x0050, text=»DECE10«, t00=0x002f, t01=0x0080}
0x49ec…4a06 Head {h00=0x0016, h01=0x0050, text=» TBF DOOLB,DECE20 «, t00=0x002f, t01=0x008e}
0x4a06…4a24 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W2,DECE30«, t00=0x002f, t01=0x00a8}
0x4a24…4a32 Head {h00=0x000a, h01=0x0050, text=»DECE20«, t00=0x002f, t01=0x00c6}
0x4a32…4a54 Head {h00=0x001e, h01=0x0050, text=» CBE BIN10,W20,DEC050 '&' «, t00=0x002f, t01=0x00d4}
0x4a54…4a62 Head {h00=0x000a, h01=0x0050, text=»DECE30«, t00=0x002f, t01=0x00f6}
0x4a62…4a96 Head {h00=0x0030, h01=0x0050, text=» MOVE DEINPUT,STATSH RESTORE KEYED IN VALUE «, t00=0x002f, t01=0x0104}
0x4a96…4ac6 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW3,NUMBER CURRENT REC.NUMBER «, t00=0x002f, t01=0x0138}
0x4ac6…4af2 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW3,W0,UPDR05 NOT BATCHHEAD«, t00=0x002f, t01=0x0168}
0x4af2…4b20 (48, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CBG DEBINW3,BDPOIN(W2),UPDR10 JUMP IF«, t00=0x0030, t01=0x0004}
0x4b20…4b3e Head {h00=0x001a, h01=0x0050, text=» ENTRY OF NEW RECORD«, t00=0x0030, t01=0x0032}
0x4b3e…4b64 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL3 CHANGE FORMAT (R)«, t00=0x0030, t01=0x0050}
0x4b64…4b8c Head {h00=0x0024, h01=0x0050, text=» TBT DOOL2,UPDR10 JUMP IF INSERT«, t00=0x0030, t01=0x0076}
0x4b8c…4b9a Head {h00=0x000a, h01=0x0050, text=»UPDR05«, t00=0x0030, t01=0x009e}
0x4b9a…4bbc Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOLS FOR FORMAT «, t00=0x0030, t01=0x00ac}
0x4bbc…4be6 Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL7 CHANGE IN CORRECTION «, t00=0x0030, t01=0x00ce}
0x4be6…4c02 Head {h00=0x0018, h01=0x0050, text=» OR IF BATCHEAD=N «, t00=0x0030, t01=0x00f8}
0x4c02…4c10 Head {h00=0x000a, h01=0x0050, text=»UPDR10«, t00=0x0030, t01=0x0114}
0x4c10…4c26 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x0030, t01=0x0122}
0x4c26…4c48 Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN11,W1,W1,BIN3,W0«, t00=0x0030, t01=0x0138}
0x4c48…4c68 Head {h00=0x001c, h01=0x0050, text=» XCOPY BIN3,W0,W1,W0,W0 «, t00=0x0030, t01=0x015a}
0x4c68…4c76 Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x0030, t01=0x017a}
0x4c76…4c96 Head {h00=0x001c, h01=0x0050, text=» CLEAR REWRT UPDFLD = 1?«, t00=0x0030, t01=0x0188}
0x4c96…4cae Head {h00=0x0014, h01=0x0050, text=» BNZ UPDR30 YES!«, t00=0x0031, t01=0x0018}
0x4cae…4cc6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0031, t01=0x0030}
0x4cc6…4cd8 Head {h00=0x000e, h01=0x0050, text=» B UPDR40 «, t00=0x0031, t01=0x0048}
0x4cd8…4ce6 Head {h00=0x000a, h01=0x0050, text=»UPDR30«, t00=0x0031, t01=0x005a}
0x4ce6…4cfe Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0031, t01=0x0068}
0x4cfe…4d0c Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x0031, t01=0x0080}
0x4d0c…4d18 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x008e}
0x4d18…4d26 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x009a}
0x4d26…4d3a Head {h00=0x0010, h01=0x0050, text=»DENVCO PROC «, t00=0x0031, t01=0x00a8}
0x4d3a…4d50 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0031, t01=0x00bc}
0x4d50…4d7a Head {h00=0x0026, h01=0x0050, text=» TBT BOOL6,DECOFG JUMP IF COND TAB«, t00=0x0031, t01=0x00d2}
0x4d7a…4dac Head {h00=0x002e, h01=0x0050, text=» TBT BOOL8,DECOFN JUMP IF RECORD CH FOUND «, t00=0x0031, t01=0x00fc}
0x4dac…4de2 Head {h00=0x0032, h01=0x0050, text=» TBT BOOL4,DECOFR JUMP IF RECORD CHANGE FOUND «, t00=0x0031, t01=0x012e}
0x4de2…4dee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0164}
0x4dee…4dfc Head {h00=0x000a, h01=0x0050, text=»DECOFG«, t00=0x0031, t01=0x0170}
0x4dfc…4e20 Head {h00=0x0020, h01=0x0050, text=» SET BOOL5 T=VALID COND TAB «, t00=0x0031, t01=0x017e}
0x4e20…4e2c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x0012}
0x4e2c…4e3a Head {h00=0x000a, h01=0x0050, text=»DECOFN«, t00=0x0032, t01=0x001e}
0x4e3a…4e66 Head {h00=0x0028, h01=0x0050, text=» SET BOOL7 T=VALID RECORD CHANGE (N)«, t00=0x0032, t01=0x002c}
0x4e66…4e72 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x0058}
0x4e72…4e80 Head {h00=0x000a, h01=0x0050, text=»DECOFR«, t00=0x0032, t01=0x0064}
0x4e80…4eac Head {h00=0x0028, h01=0x0050, text=» SET BOOL3 T=VALID RECORD CHANGE (R)«, t00=0x0032, t01=0x0072}
0x4eac…4eb8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x009e}
0x4eb8…4ec6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x00aa}
0x4ec6…4ed2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0032, t01=0x00b8}
0x4ed2…4ed6 Head {h00=0x4004, h01=0x0000}
0x4ed6…4eda 00 32 00 c4 ┆ 2 ┆
0x4eda…4ee2 (51, 1, 8) 20 04 00 00 00 33 00 04 ┆ 3 ┆
0x4ee2…4f32 (52, 0, 400) 01 4b 71 0b 00 e2 25 5f 31 41 71 5f b9 80 01 80 0e 3a 01 40 73 80 06 52 48 6c 0b 48 6b 08 00 52 55 80 09 22 23 52 3f 01 00 61 24 57 03 00 61 22 00 9b 6b 00 60 23 30 19 6b 54 0e 80 0e 3a 01 6a 60 20 22 52 61 10 60 20 d0 01 9d 3d 41 72 5f e8 ┆ Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0 kT : j` "Ra ` =Ar_ ┆
0x4f32…4f82 41 70 41 73 30 19 6b 54 59 00 9b 6b 80 02 23 a0 2a 52 6e 48 70 2e 02 61 24 2a 61 e2 1c 6a e4 20 22 a0 24 20 e4 20 5a 80 0d e4 3a 01 6a 60 20 22 a0 26 2a 60 2a 4b 00 61 2c 48 70 1e 62 6b 20 26 a0 61 3f 01 30 19 6c 54 24 00 9b 6c 80 02 62 a0 ┆ApAs0 kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0 lT$ l b ┆
0x4f82…4fd2 2c 52 2e 02 61 26 12 61 e2 3d 62 6c 20 26 a0 61 3f 01 80 0d 23 58 3b 21 93 35 16 3f 01 80 0d 62 3a 01 6a 61 20 22 a0 26 2a 61 2a 05 00 61 2c 5f 27 00 93 29 3f 01 00 63 23 00 62 63 80 09 21 62 52 52 29 6a 63 20 22 52 26 22 63 2a 05 01 93 35 ┆,R. a& a =bl & a? #X;! 5 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 5┆
0x4fd2…5022 57 1a 01 64 37 62 9b 20 26 52 64 20 9b 6b 0d 6a 63 20 22 52 24 18 63 20 30 00 93 29 80 10 34 00 6a a0 61 22 20 20 02 61 22 62 a0 61 26 00 20 02 61 26 34 01 40 10 32 00 0b 02 02 03 04 05 06 05 07 05 04 06 20 02 20 02 41 10 00 8f 20 00 8e 21 ┆W d7b &Rd k jc "R$ c 0 ) 4 j a" a"b a& a&4 @ 2 A !┆
0x5022…5072 00 7e 55 00 99 19 8e 21 99 3a 26 02 8e 21 30 22 8e 1b 21 54 0b 4a 10 15 02 01 8f 00 8f 20 5f 20 80 11 3a 08 49 10 05 00 8e 21 5f 29 02 01 8f 5f 37 6a 99 20 21 8e 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ~U ! :& !0" !T J _ : I !_) _7j ! ! ┆