|
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: 20582 (0x5066)
Notes: pts_type(SC)
Names: »DENVAL.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DENVAL.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DENVAL.SC«
IDENT DENVAL REL 10.0 80-04-11 UPD 80-04-29/DALI 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 DEAPPU USER-CODED APPL-HANDLING EXT TYPET 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 MOVE BIN4,DEBINW1 SAVE INPUTLENGTH MOVE STATSH,DEINPUT SAVE KEYED INPUT 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 DEBINW3,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 XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 ADD BIN12,W1 UPDV05 CLEAR ALPHA F=ALPHATEST CBE BIN8,W0,UPDV04 PERF DEEDIT,BIN9 B UPDV06 UPDV04 MOVE BIN8,DEBINW3 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 XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 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 XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 GET INDEX 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,DEBINW3 CURRENT FIELNUMBER 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) XCOPY BIN14,W1,W1,BPOOL(BIN11),BIN12 *JE 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,DEBINW1,STR1A,W0,W1 BNOK UPDN06 JUMP IF NO '?':S MOVE BIN8,W0 COUNTER NUMB OF MATCHES MOVE BIN10,DEBINW1 LOAD EFF. INPUT LENGTH MATCH DEINPUT,BIN10,W1,HEX00,W0,W1 BOK UPDN01 JUMP IF NO SIGN 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 CBE BIN8,DEBINW1,UPDN30 ALL CHARS MATCHED 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,DECO41,DECO41,DECO41,DECO41 C DECO42 C DECO41 C DECO42,DECO42,DECO42 C DECO42,DECO42,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 DECO42,DECO46,DECO46, 25-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 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 GETFLD 0,DEBINW3,BIN9 GET INIT. FIELD 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…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-04-29/DALI«, t00=0x0000, t01=0x002c}
0x0044…005c Head {h00=0x0014, h01=0x0050, text=» 80-04-24/DALI«, t00=0x0000, t01=0x0048}
0x005c…0070 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0060}
0x0070…007e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0074}
0x007e…0094 Head {h00=0x0012, h01=0x0050, text=» ENTRY DENVAL «, t00=0x0000, t01=0x0082}
0x0094…00be Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0000, t01=0x0098}
0x00be…00d2 Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0000, t01=0x00c2}
0x00d2…00e6 Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0000, t01=0x00d6}
0x00e6…010e Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0000, t01=0x00ea}
0x010e…0132 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0000, t01=0x0112}
0x0132…015e Head {h00=0x0028, h01=0x0050, text=» EXT DECOMP USER OR STANDARDROUTINE «, t00=0x0000, t01=0x0136}
0x015e…0182 Head {h00=0x0020, h01=0x0050, text=» TO VALIDATE CURRENT INPUT«, t00=0x0000, t01=0x0162}
0x0182…01b4 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0000, t01=0x0186}
0x01b4…01da Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0001, t01=0x0028}
0x01da…0208 Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0001, t01=0x004e}
0x0208…0232 Head {h00=0x0026, h01=0x0050, text=» EXT SETB SET A BIT IN A BIN ITEM «, t00=0x0001, t01=0x007c}
0x0232…025c Head {h00=0x0026, h01=0x0050, text=» EXT DELAST KEY INPUT ON LAST LINE«, t00=0x0001, t01=0x00a6}
0x025c…0286 Head {h00=0x0026, h01=0x0050, text=» EXT DEDISC DISC HANDLING ROUTINE «, t00=0x0001, t01=0x00d0}
0x0286…02b4 Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0001, t01=0x00fa}
0x02b4…02d6 Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0001, t01=0x0128}
0x02d6…0304 Head {h00=0x002a, h01=0x0050, text=» EXT ATTWB ASSEMBLY SUBROUTINE ATTWB -«, t00=0x0001, t01=0x014a}
0x0304…0320 Head {h00=0x0018, h01=0x0050, text=» ATTACH WORKBLOCK «, t00=0x0001, t01=0x0178}
0x0320…034a (2, 0, 400) Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL POOL HANDLING ROUTINE «, t00=0x0002, t01=0x0004}
0x034a…0376 Head {h00=0x0028, h01=0x0050, text=» EXT DEAPPU USER-CODED APPL-HANDLING«, t00=0x0002, t01=0x002e}
0x0376…0388 Head {h00=0x000e, h01=0x0050, text=» EXT TYPET«, t00=0x0002, t01=0x005a}
0x0388…039c Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0002, t01=0x006c}
0x039c…03b0 Head {h00=0x0010, h01=0x0050, text=» EXT CMPIND «, t00=0x0002, t01=0x0080}
0x03b0…03c8 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x0094}
0x03c8…03d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00ac}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…040e Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0002, t01=0x00c4}
0x040e…043a Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x0002, t01=0x00f2}
0x043a…0444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011e}
0x0444…047c Head {h00=0x0034, h01=0x0050, text=»* DOOL1= NOT FLAG «, t00=0x0002, t01=0x0128}
0x047c…04be Head {h00=0x003e, h01=0x0050, text=»* DOOL2= INSERTION OF RECORD«, t00=0x0002, t01=0x0160}
0x04be…04f8 Head {h00=0x0036, h01=0x0050, text=»* DOOL3= ENTRY MODE «, t00=0x0003, t01=0x0012}
0x04f8…053c Head {h00=0x0040, h01=0x0050, text=»* DOOL4= GETFLD TO OTHER FIELD«, t00=0x0003, t01=0x004c}
0x053c…0582 Head {h00=0x0042, h01=0x0050, text=»* WITHIN FORMAT EXECUTED «, t00=0x0003, t01=0x0090}
0x0582…05c0 Head {h00=0x003a, h01=0x0050, text=»* DOOL5= NO KEYED INPUT «, t00=0x0003, t01=0x00d6}
0x05c0…05fe Head {h00=0x003a, h01=0x0050, text=»* DOOL6= ABSOLUTE VALUE «, t00=0x0003, t01=0x0114}
0x05fe…0648 Head {h00=0x0046, h01=0x0050, text=»* DOOL7= NOT CURRENT ITEM IN DEINPUT«, t00=0x0003, t01=0x0152}
0x0648…068e Head {h00=0x0042, h01=0x0050, text=»* DOOL8= BATCHHEAD FOR NEW BATCH«, t00=0x0004, t01=0x000c}
0x068e…06c8 Head {h00=0x0036, h01=0x0050, text=»* BIN11= POOLINDEX«, t00=0x0004, t01=0x0052}
0x06c8…0706 Head {h00=0x003a, h01=0x0050, text=»* BIN12= STARTPOSITION«, t00=0x0004, t01=0x008c}
0x0706…0744 Head {h00=0x003a, h01=0x0050, text=»* BIN13= STOPPOSITION «, t00=0x0004, t01=0x00ca}
0x0744…078e Head {h00=0x0046, h01=0x0050, text=»* BIN14= CONDITIONAL TAB.-FIELD«, t00=0x0004, t01=0x0108}
0x078e…07ce Head {h00=0x003c, h01=0x0050, text=»* (NEXT FIELD)«, t00=0x0004, t01=0x0152}
0x07ce…07e4 (5, 0, 400) Head {h00=0x0012, h01=0x0050, text=»DENVAL PROC FC«, t00=0x0005, t01=0x0004}
0x07e4…07fa Head {h00=0x0012, h01=0x0050, text=» MOVE BIN8,W0 «, t00=0x0005, t01=0x001a}
0x07fa…0820 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN3,W0 USED AS POINTER «, t00=0x0005, t01=0x0030}
0x0820…083a Head {h00=0x0016, h01=0x0050, text=» TO ERRORMESSAGE«, t00=0x0005, t01=0x0056}
0x083a…086c Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x0005, t01=0x0070}
0x086c…0894 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL6 F=NO COND TAB FOUND«, t00=0x0005, t01=0x00a2}
0x0894…08c6 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x0005, t01=0x00ca}
0x08c6…08e4 Head {h00=0x001a, h01=0x0050, text=» CLEAR REWRT UPDFLD=0 «, t00=0x0005, t01=0x00fc}
0x08e4…08fc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W2«, t00=0x0005, t01=0x011a}
0x08fc…0926 Head {h00=0x0026, h01=0x0050, text=» GETABX BIN8 SAVE CURRENT FIELD.NR«, t00=0x0005, t01=0x0132}
0x0926…0958 Head {h00=0x002e, h01=0x0050, text=» CBNE DEBINW1,W0,DENV10 KEYINPUTLENGTH = 0«, t00=0x0005, t01=0x015c}
0x0958…0988 Head {h00=0x002c, h01=0x0050, text=» PERF DEEDIT,W3 PUT FMTITEM INTO DEINPUT«, t00=0x0005, t01=0x018e}
0x0988…099a Head {h00=0x000e, h01=0x0050, text=» B DENV20 «, t00=0x0006, t01=0x002e}
0x099a…09a8 Head {h00=0x000a, h01=0x0050, text=»DENV10«, t00=0x0006, t01=0x0040}
0x09a8…09d2 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL5,DENV30 JUMP IF NOT DUPL«, t00=0x0006, t01=0x004e}
0x09d2…09e0 Head {h00=0x000a, h01=0x0050, text=»DENV20«, t00=0x0006, t01=0x0078}
0x09e0…0a0a Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W5),W0 INPUTLENGTH = 0 «, t00=0x0006, t01=0x0086}
0x0a0a…0a1c Head {h00=0x000e, h01=0x0050, text=» B DENV40 «, t00=0x0006, t01=0x00b0}
0x0a1c…0a2a Head {h00=0x000a, h01=0x0050, text=»DENV30«, t00=0x0006, t01=0x00c2}
0x0a2a…0a5a Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH «, t00=0x0006, t01=0x00d0}
0x0a5a…0a68 Head {h00=0x000a, h01=0x0050, text=»DENV40«, t00=0x0006, t01=0x0100}
0x0a68…0a94 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,DEBINW1 SAVE INPUTLENGTH «, t00=0x0006, t01=0x010e}
0x0a94…0ac2 Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,DEINPUT SAVE KEYED INPUT «, t00=0x0006, t01=0x013a}
0x0ac2…0ae0 Head {h00=0x001a, h01=0x0050, text=» IB FC,DENV50 DEACCU C«, t00=0x0006, t01=0x0168}
0x0ae0…0af8 Head {h00=0x0014, h01=0x0050, text=» DENV50 DEGENE «, t00=0x0006, t01=0x0186}
0x0af8…0b28 Head {h00=0x002c, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER «, t00=0x0007, t01=0x000e}
0x0b28…0b54 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW3,W0,DENV50 NO APPL-VALUE«, t00=0x0007, t01=0x003e}
0x0b54…0b80 Head {h00=0x0028, h01=0x0050, text=» PERF DEAPPU USERCODED APPL-HANDLING«, t00=0x0007, t01=0x006a}
0x0b80…0ba8 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,DENV45 UPDFLD = 1 C «, t00=0x0007, t01=0x0096}
0x0ba8…0bc6 Head {h00=0x001a, h01=0x0050, text=» UPDR40 SET CURSOR C «, t00=0x0007, t01=0x00be}
0x0bc6…0be6 Head {h00=0x001c, h01=0x0050, text=» DENV42 ERROR PRINTOUT «, t00=0x0007, t01=0x00dc}
0x0be6…0c02 Head {h00=0x0018, h01=0x0050, text=» B DENV50 UPDFLD = 0«, t00=0x0007, t01=0x00fc}
0x0c02…0c22 Head {h00=0x001c, h01=0x0050, text=»DENV42 ERROR PRINTOUT «, t00=0x0007, t01=0x0118}
0x0c22…0c38 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0007, t01=0x0138}
0x0c38…0c4a Head {h00=0x000e, h01=0x0050, text=» B UPDR40 «, t00=0x0007, t01=0x014e}
0x0c4a…0c66 Head {h00=0x0018, h01=0x0050, text=»DENV45 UPDFLD = 1 «, t00=0x0007, t01=0x0160}
0x0c66…0c78 Head {h00=0x000e, h01=0x0050, text=» SET REWRT«, t00=0x0007, t01=0x017c}
0x0c78…0c86 Head {h00=0x000a, h01=0x0050, text=»DENV50«, t00=0x0007, t01=0x018e}
0x0c86…0cb0 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,BIN8 SAVE TAB.INDEX «, t00=0x0008, t01=0x000c}
0x0cb0…0cbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0036}
0x0cbe…0cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cc8…0ce4 Head {h00=0x0018, h01=0x0050, text=»* EXECUTE VALIDATION«, t00=0x0008, t01=0x004e}
0x0ce4…0cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006a}
0x0cee…0cfc Head {h00=0x000a, h01=0x0050, text=»UPDV0A«, t00=0x0008, t01=0x0074}
0x0cfc…0d14 Head {h00=0x0014, h01=0x0050, text=» ADD BIN13,BIN12«, t00=0x0008, t01=0x0082}
0x0d14…0d26 Head {h00=0x000e, h01=0x0050, text=» B UPDV01 «, t00=0x0008, t01=0x009a}
0x0d26…0d34 Head {h00=0x000a, h01=0x0050, text=»UPDV00«, t00=0x0008, t01=0x00ac}
0x0d34…0d64 Head {h00=0x002c, h01=0x0050, text=» MOVE DEINPUT,STATSH RESTORE KEYED INPUT«, t00=0x0008, t01=0x00ba}
0x0d64…0d92 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,BIN4 RESTOR INPUTLENGTH «, t00=0x0008, t01=0x00ea}
0x0d92…0da0 Head {h00=0x000a, h01=0x0050, text=»UPDV01«, t00=0x0008, t01=0x0118}
0x0da0…0dc2 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,='M/=><DGRN' «, t00=0x0008, t01=0x0126}
0x0dc2…0dd8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0008, t01=0x0148}
0x0dd8…0e0c Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN5,W9,BPOOL(BIN11),BIN12,W1 «, t00=0x0008, t01=0x015e}
0x0e0c…0e20 (9, 0, 400) Head {h00=0x0010, h01=0x0050, text=» BOK UPDV16 «, t00=0x0009, t01=0x0004}
0x0e20…0e34 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0009, t01=0x0018}
0x0e34…0e50 Head {h00=0x0018, h01=0x0050, text=» BNZ DECOMT NOT OKEY«, t00=0x0009, t01=0x002c}
0x0e50…0e70 Head {h00=0x001c, h01=0x0050, text=» MOVE STR64A,='ASUFFFX' «, t00=0x0009, t01=0x0048}
0x0e70…0e86 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0009, t01=0x0068}
0x0e86…0eba Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN9,W7,BPOOL(BIN11),BIN12,W1 «, t00=0x0009, t01=0x007e}
0x0eba…0ece Head {h00=0x0010, h01=0x0050, text=» BNOK DECOOK«, t00=0x0009, t01=0x00b2}
0x0ece…0efe Head {h00=0x002c, h01=0x0050, text=» SET DOOL7 NOT CURRENT FIELD VALIDATION «, t00=0x0009, t01=0x00c6}
0x0efe…0f14 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0009, t01=0x00f6}
0x0f14…0f3a Head {h00=0x0022, h01=0x0050, text=» CBE BIN9,W6,UPDV05 JUMP IF X «, t00=0x0009, t01=0x010c}
0x0f3a…0f66 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0009, t01=0x0132}
0x0f66…0f7c Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0009, t01=0x015e}
0x0f7c…0f8a Head {h00=0x000a, h01=0x0050, text=»UPDV05«, t00=0x0009, t01=0x0174}
0x0f8a…0faa Head {h00=0x001c, h01=0x0050, text=» CLEAR ALPHA F=ALPHATEST«, t00=0x0009, t01=0x0182}
0x0faa…0fc6 Head {h00=0x0018, h01=0x0050, text=» CBE BIN8,W0,UPDV04 «, t00=0x000a, t01=0x0012}
0x0fc6…0fe0 Head {h00=0x0016, h01=0x0050, text=» PERF DEEDIT,BIN9 «, t00=0x000a, t01=0x002e}
0x0fe0…0ff2 Head {h00=0x000e, h01=0x0050, text=» B UPDV06 «, t00=0x000a, t01=0x0048}
0x0ff2…1000 Head {h00=0x000a, h01=0x0050, text=»UPDV04«, t00=0x000a, t01=0x005a}
0x1000…102c Head {h00=0x0028, h01=0x0050, text=» MOVE BIN8,DEBINW3 CURRENT TABINDEX «, t00=0x000a, t01=0x0068}
0x102c…103a Head {h00=0x000a, h01=0x0050, text=»UPDV06«, t00=0x000a, t01=0x0094}
0x103a…106e Head {h00=0x0030, h01=0x0050, text=» IB BIN9,UPDV01,UPDV01,UPDV07, 1=S,2=U,3=F C«, t00=0x000a, t01=0x00a2}
0x106e…1090 Head {h00=0x001e, h01=0x0050, text=» UPDV07,UPDV07,UPDV09 6=X«, t00=0x000a, t01=0x00d6}
0x1090…10a6 Head {h00=0x0012, h01=0x0050, text=» B UPDV09 0=A «, t00=0x000a, t01=0x00f8}
0x10a6…10b4 Head {h00=0x000a, h01=0x0050, text=»UPDV07«, t00=0x000a, t01=0x010e}
0x10b4…10e8 Head {h00=0x0030, h01=0x0050, text=» CALL TYPET,BIN7,X.PSEU1,X.PSEU2,X.WB10,BIN8«, t00=0x000a, t01=0x011c}
0x10e8…1116 Head {h00=0x002a, h01=0x0050, text=» CBE BIN7,W3,UPDV01 JUMP IF ALPHA STRG«, t00=0x000a, t01=0x0150}
0x1116…1124 Head {h00=0x000a, h01=0x0050, text=»UPDV09«, t00=0x000a, t01=0x017e}
0x1124…1140 Head {h00=0x0018, h01=0x0050, text=» SET ALPHA T=BCD-NUM«, t00=0x000a, t01=0x018c}
0x1140…1152 Head {h00=0x000e, h01=0x0050, text=» B UPDV01 «, t00=0x000b, t01=0x0018}
0x1152…1160 Head {h00=0x000a, h01=0x0050, text=»UPDV16«, t00=0x000b, t01=0x002a}
0x1160…1196 Head {h00=0x0032, h01=0x0050, text=» IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C«, t00=0x000b, t01=0x0038}
0x1196…11b4 Head {h00=0x001a, h01=0x0050, text=» UPDGOT,UPDFOR,UPDFON«, t00=0x000b, t01=0x006e}
0x11b4…11d6 Head {h00=0x001e, h01=0x0050, text=»UPDE00 HHANDLE ERRORCODE«, t00=0x000b, t01=0x008c}
0x11d6…11ec Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000b, t01=0x00ae}
0x11ec…121c Head {h00=0x002c, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN12 «, t00=0x000b, t01=0x00c4}
0x121c…124c Head {h00=0x002c, h01=0x0050, text=» MOVE BIN3,BIN12 SAVE INDEX TO ERR.MESS «, t00=0x000b, t01=0x00f4}
0x124c…127e Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN3,W0,W1,BIN11,W1 SAVE POOLINDEX «, t00=0x000b, t01=0x0124}
0x127e…129e Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW4,W128,UPDE10«, t00=0x000b, t01=0x0156}
0x129e…12b8 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x000b, t01=0x0176}
0x12b8…12da Head {h00=0x001e, h01=0x0050, text=» CALL MSKOUT,BIN9,DEBINW4 «, t00=0x000b, t01=0x0190}
0x12da…12f2 Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x000c, t01=0x0022}
0x12f2…1300 Head {h00=0x000a, h01=0x0050, text=»UPDE10«, t00=0x000c, t01=0x003a}
0x1300…1316 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000c, t01=0x0048}
0x1316…1336 Head {h00=0x001c, h01=0x0050, text=» CBL BIN12,BIN13,UPDV01 «, t00=0x000c, t01=0x005e}
0x1336…1360 Head {h00=0x0026, h01=0x0050, text=» B DECERR JUMP IF END OF VALSTRING«, t00=0x000c, t01=0x007e}
0x1360…1372 Head {h00=0x000e, h01=0x0050, text=»UPDV20 /«, t00=0x000c, t01=0x00a8}
0x1372…138e Head {h00=0x0018, h01=0x0050, text=» SET DOOL1 NOT-FLAG «, t00=0x000c, t01=0x00ba}
0x138e…13a0 Head {h00=0x000e, h01=0x0050, text=» B UPDE10 «, t00=0x000c, t01=0x00d6}
0x13a0…13aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e8}
0x13aa…13c6 Head {h00=0x0018, h01=0x0050, text=»UPDV25 D;DUPLICATE«, t00=0x000c, t01=0x00f2}
0x13c6…13dc Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000c, t01=0x010e}
0x13dc…13ee Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x000c, t01=0x0124}
0x13ee…1402 Head {h00=0x0010, h01=0x0050, text=» BNZ DECERR «, t00=0x000c, t01=0x0136}
0x1402…142e Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x000c, t01=0x014a}
0x142e…144a Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,BIN8,BIN9 «, t00=0x000c, t01=0x0176}
0x144a…1466 (13, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W6),BIN11«, t00=0x000d, t01=0x0004}
0x1466…1482 Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W7),BIN12«, t00=0x000d, t01=0x0020}
0x1482…149e Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W8),BIN13«, t00=0x000d, t01=0x003c}
0x149e…14ce Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x000d, t01=0x0058}
0x14ce…14e2 Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x000d, t01=0x0088}
0x14e2…14f4 Head {h00=0x000e, h01=0x0050, text=» B UPDV0A «, t00=0x000d, t01=0x009c}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ae}
0x14fe…1526 Head {h00=0x0024, h01=0x0050, text=»UPDV30 =EQUAL;>GREATER;<LESS; «, t00=0x000d, t01=0x00b8}
0x1526…153a Head {h00=0x0010, h01=0x0050, text=» SUB BIN5,W2«, t00=0x000d, t01=0x00e0}
0x153a…1550 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000d, t01=0x00f4}
0x1550…1576 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN6,W0 START IN VALSTR «, t00=0x000d, t01=0x010a}
0x1576…1592 Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,='+-*:'«, t00=0x000d, t01=0x0130}
0x1592…15b0 Head {h00=0x001a, h01=0x0050, text=» MOVE BCDI21(W1),=D'0'«, t00=0x000d, t01=0x014c}
0x15b0…15e4 Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 «, t00=0x000d, t01=0x016a}
0x15e4…15f8 Head {h00=0x0010, h01=0x0050, text=» BOK UPDV35 «, t00=0x000e, t01=0x000e}
0x15f8…1624 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN6,W0 IF ARITHMETIC SIGN IS «, t00=0x000e, t01=0x0022}
0x1624…164a Head {h00=0x0022, h01=0x0050, text=» B UPDV37 OMITTED + IS ASSUMED«, t00=0x000e, t01=0x004e}
0x164a…1658 Head {h00=0x000a, h01=0x0050, text=»UPDV35«, t00=0x000e, t01=0x0074}
0x1658…167e Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE POINTER«, t00=0x000e, t01=0x0082}
0x167e…168c Head {h00=0x000a, h01=0x0050, text=»UPDV37«, t00=0x000e, t01=0x00a8}
0x168c…16a2 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x000e, t01=0x00b6}
0x16a2…16c4 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,='L!ASUFTCXE'«, t00=0x000e, t01=0x00cc}
0x16c4…16f8 Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN9,W10,BPOOL(BIN11),BIN12,W1«, t00=0x000e, t01=0x00ee}
0x16f8…170c Head {h00=0x0010, h01=0x0050, text=» BOK UPDV50 «, t00=0x000e, t01=0x0122}
0x170c…1736 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN9,W10 STRING-COMPARISION «, t00=0x000e, t01=0x0136}
0x1736…1748 Head {h00=0x000e, h01=0x0050, text=» B UPDV60 «, t00=0x000e, t01=0x0160}
0x1748…1756 Head {h00=0x000a, h01=0x0050, text=»UPDV50«, t00=0x000e, t01=0x0172}
0x1756…177a Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x000e, t01=0x0180}
0x177a…1796 Head {h00=0x0018, h01=0x0050, text=» CBNL BIN9,W8,UPDV65«, t00=0x000f, t01=0x0014}
0x1796…17a4 Head {h00=0x000a, h01=0x0050, text=»UPDV60«, t00=0x000f, t01=0x0030}
0x17a4…17da Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 GET INDEX«, t00=0x000f, t01=0x003e}
0x17da…17fe Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x000f, t01=0x0074}
0x17fe…180c Head {h00=0x000a, h01=0x0050, text=»UPDV65«, t00=0x000f, t01=0x0098}
0x180c…1850 Head {h00=0x0040, h01=0x0050, text=» IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,UPDFLD,UPDSET,UPDCOD C«, t00=0x000f, t01=0x00a6}
0x1850…186e Head {h00=0x001a, h01=0x0050, text=» UPDVSI,UPDEMP,UPDNUM«, t00=0x000f, t01=0x00ea}
0x186e…188c Head {h00=0x001a, h01=0x0050, text=»UPDLEN HANDLE LENGTH«, t00=0x000f, t01=0x0108}
0x188c…18a6 Head {h00=0x0016, h01=0x0050, text=» CMP DEBINW1,BIN8 «, t00=0x000f, t01=0x0126}
0x18a6…18b8 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x000f, t01=0x0140}
0x18b8…18c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c2…18d0 Head {h00=0x000a, h01=0x0050, text=»UPDABS«, t00=0x000f, t01=0x015c}
0x18d0…18e2 Head {h00=0x000e, h01=0x0050, text=» SET DOOL6«, t00=0x000f, t01=0x016a}
0x18e2…18f4 Head {h00=0x000e, h01=0x0050, text=» B UPDE10 «, t00=0x000f, t01=0x017c}
0x18f4…18fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018e}
0x18fe…1922 Head {h00=0x0020, h01=0x0050, text=»UPDACC HANDLE ACCUMULATOR «, t00=0x0010, t01=0x0008}
0x1922…1944 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,ACK(W1) «, t00=0x0010, t01=0x002c}
0x1944…1966 Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0010, t01=0x004e}
0x1966…1988 Head {h00=0x001e, h01=0x0050, text=» MOVE BCDI21(W2),ACK(BIN8)«, t00=0x0010, t01=0x0070}
0x1988…199a Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0010, t01=0x0092}
0x199a…19a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00a4}
0x19a8…19b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b2…19d8 Head {h00=0x0022, h01=0x0050, text=»UPDSYS HANDLE SYSTEMVARIABEL«, t00=0x0010, t01=0x00bc}
0x19d8…19fa Head {h00=0x001e, h01=0x0050, text=»UPDUSE AND USERVAIABLES «, t00=0x0010, t01=0x00e2}
0x19fa…1a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0104}
0x1a04…1a18 Head {h00=0x0010, h01=0x0050, text=» SUB BIN9,W3«, t00=0x0010, t01=0x010e}
0x1a18…1a2c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0010, t01=0x0122}
0x1a2c…1a52 Head {h00=0x0022, h01=0x0050, text=» BNZ UPDS01 JUMP IF CURR FIELD«, t00=0x0010, t01=0x0136}
0x1a52…1a72 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0010, t01=0x015c}
0x1a72…1a90 Head {h00=0x001a, h01=0x0050, text=» BZ UPDS30 JUMP IF BCD«, t00=0x0010, t01=0x017c}
0x1a90…1aa2 Head {h00=0x000e, h01=0x0050, text=» B UPDS03 «, t00=0x0011, t01=0x000a}
0x1aa2…1ab0 Head {h00=0x000a, h01=0x0050, text=»UPDS01«, t00=0x0011, t01=0x001c}
0x1ab0…1ada Head {h00=0x0026, h01=0x0050, text=» TBT ALPHA,UPDS30 JUMP IF BCD-NUM «, t00=0x0011, t01=0x002a}
0x1ada…1ae8 Head {h00=0x000a, h01=0x0050, text=»UPDS03«, t00=0x0011, t01=0x0054}
0x1ae8…1b00 Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS05 «, t00=0x0011, t01=0x0062}
0x1b00…1b2a Head {h00=0x0026, h01=0x0050, text=» CALL GETIND,SYSV(W1),BIN15,BIN10 «, t00=0x0011, t01=0x007a}
0x1b2a…1b3c Head {h00=0x000e, h01=0x0050, text=» B UPDS10 «, t00=0x0011, t01=0x00a4}
0x1b3c…1b4a Head {h00=0x000a, h01=0x0050, text=»UPDS05«, t00=0x0011, t01=0x00b6}
0x1b4a…1b84 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,USEV(W1),BIN15,BIN10 ITEM,LENGTH,DIM «, t00=0x0011, t01=0x00c4}
0x1b84…1b92 Head {h00=0x000a, h01=0x0050, text=»UPDS10«, t00=0x0011, t01=0x00fe}
0x1b92…1bb8 Head {h00=0x0022, h01=0x0050, text=» CMP BIN10,BIN8 CMP DIMENSION «, t00=0x0011, t01=0x010c}
0x1bb8…1bde Head {h00=0x0022, h01=0x0050, text=» BL DECERR VARIABLE NOT EXIST «, t00=0x0011, t01=0x0132}
0x1bde…1bf4 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0011, t01=0x0158}
0x1bf4…1c0c Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS15 «, t00=0x0011, t01=0x016e}
0x1c0c…1c42 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,BIN15,SYSV(BIN8),W0,BIN15«, t00=0x0011, t01=0x0186}
0x1c42…1c54 Head {h00=0x000e, h01=0x0050, text=» B UPDS20 «, t00=0x0012, t01=0x002c}
0x1c54…1c62 Head {h00=0x000a, h01=0x0050, text=»UPDS15«, t00=0x0012, t01=0x003e}
0x1c62…1c98 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,BIN15,USEV(BIN8),W0,BIN15«, t00=0x0012, t01=0x004c}
0x1c98…1ca6 Head {h00=0x000a, h01=0x0050, text=»UPDS20«, t00=0x0012, t01=0x0082}
0x1ca6…1cba Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0012, t01=0x0090}
0x1cba…1ccc Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0012, t01=0x00a4}
0x1ccc…1cda Head {h00=0x000a, h01=0x0050, text=»UPDS30«, t00=0x0012, t01=0x00b6}
0x1cda…1cf2 Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS50 «, t00=0x0012, t01=0x00c4}
0x1cf2…1d14 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,SYSV(W1)«, t00=0x0012, t01=0x00dc}
0x1d14…1d36 Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0012, t01=0x00fe}
0x1d36…1d5a Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W2),SYSV(BIN8) «, t00=0x0012, t01=0x0120}
0x1d5a…1d6c Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0012, t01=0x0144}
0x1d6c…1d7a Head {h00=0x000a, h01=0x0050, text=»UPDS50«, t00=0x0012, t01=0x0156}
0x1d7a…1d9c Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,USEV(W1)«, t00=0x0012, t01=0x0164}
0x1d9c…1dbe Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0012, t01=0x0186}
0x1dbe…1de2 Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W2),USEV(BIN8) «, t00=0x0013, t01=0x0018}
0x1de2…1df4 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0013, t01=0x003c}
0x1df4…1e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x004e}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0c…1e38 Head {h00=0x0028, h01=0x0050, text=»UPDFLD HANDLE FIELD WITHIN FORMAT «, t00=0x0013, t01=0x0066}
0x1e38…1e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0092}
0x1e42…1e6c Head {h00=0x0026, h01=0x0050, text=» CBNE BIN8,W0,UPDF10 CURRENT FIELD«, t00=0x0013, t01=0x009c}
0x1e6c…1e9a Head {h00=0x002a, h01=0x0050, text=» MOVE BIN8,DEBINW3 CURRENT FIELNUMBER «, t00=0x0013, t01=0x00c6}
0x1e9a…1ea8 Head {h00=0x000a, h01=0x0050, text=»UPDF10«, t00=0x0013, t01=0x00f4}
0x1ea8…1ede Head {h00=0x0032, h01=0x0050, text=» CALL TYPET,BIN10,X.PSEU1,X.PSEU2,X.WB10,BIN8 «, t00=0x0013, t01=0x0102}
0x1ede…1f0e Head {h00=0x002c, h01=0x0050, text=» CBNE BIN10,W3,UPDF40 JUMP IF NOT ALPHA «, t00=0x0013, t01=0x0138}
0x1f0e…1f2e Head {h00=0x001c, h01=0x0050, text=» GETCTL 1,BIN10 GET MAXL«, t00=0x0013, t01=0x0168}
0x1f2e…1f40 Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0013, t01=0x0188}
0x1f40…1f56 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0014, t01=0x000a}
0x1f56…1f7a Head {h00=0x0020, h01=0x0050, text=» CON X.MATCH,X.PSEU1,X.PSEU2«, t00=0x0014, t01=0x0020}
0x1f7a…1f92 Head {h00=0x0014, h01=0x0050, text=» CON X.WB10,BIN8«, t00=0x0014, t01=0x0044}
0x1f92…1fb6 Head {h00=0x0020, h01=0x0050, text=» CON BIN7,BIN10,HEX00,W0,W1 «, t00=0x0014, t01=0x005c}
0x1fb6…1fd0 Head {h00=0x0016, h01=0x0050, text=» CMP DEBINW1,BIN7 «, t00=0x0014, t01=0x0080}
0x1fd0…1ff2 Head {h00=0x001e, h01=0x0050, text=» BNE DECNOT INVALID LENGTH«, t00=0x0014, t01=0x009a}
0x1ff2…2008 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0014, t01=0x00bc}
0x2008…2032 Head {h00=0x0026, h01=0x0050, text=» CON X.MATCH,DEINPUT,BIN10,DEBINW1«, t00=0x0014, t01=0x00d2}
0x2032…204e Head {h00=0x0018, h01=0x0050, text=» CON X.PSEU1,X.PSEU2«, t00=0x0014, t01=0x00fc}
0x204e…2072 Head {h00=0x0020, h01=0x0050, text=» CON X.WB10,BIN8,W0,DEBINW1 «, t00=0x0014, t01=0x0118}
0x2072…2086 Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0014, t01=0x013c}
0x2086…2098 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0014, t01=0x0150}
0x2098…20b0 Head {h00=0x0014, h01=0x0050, text=»UPDF40 NUMERIC«, t00=0x0014, t01=0x0162}
0x20b0…20de Head {h00=0x002a, h01=0x0050, text=» CON X.MOVE,BCDI21(W2),X.PSEU1,X.PSEU2«, t00=0x0014, t01=0x017a}
0x20de…20f6 Head {h00=0x0014, h01=0x0050, text=» CON X.WB10,BIN8«, t00=0x0015, t01=0x0018}
0x20f6…2108 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0015, t01=0x0030}
0x2108…2112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2112…2120 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x004c}
0x2120…2140 Head {h00=0x001c, h01=0x0050, text=»UPDSET HANDLE VALUESET«, t00=0x0015, t01=0x005a}
0x2140…2154 Head {h00=0x0010, h01=0x0050, text=» CMP BIN5,W0«, t00=0x0015, t01=0x007a}
0x2154…2168 Head {h00=0x0010, h01=0x0050, text=» BNZ DECERR «, t00=0x0015, t01=0x008e}
0x2168…2192 Head {h00=0x0026, h01=0x0050, text=» MOVE VSEIND,W0 VALUE-SET INDEX:=0«, t00=0x0015, t01=0x00a2}
0x2192…21aa Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,BIN8«, t00=0x0015, t01=0x00cc}
0x21aa…21d6 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN9,W0 LOOK IF ELEMENTNUMBER «, t00=0x0015, t01=0x00e4}
0x21d6…21ee Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,=':'«, t00=0x0015, t01=0x0110}
0x21ee…2220 Head {h00=0x002e, h01=0x0050, text=» MATCH STR1A,BIN9,W1,BPOOL(BIN11),BIN12,W1«, t00=0x0015, t01=0x0128}
0x2220…2236 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET05 «, t00=0x0015, t01=0x015a}
0x2236…224c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0015, t01=0x0170}
0x224c…2262 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x0015, t01=0x0186}
0x2262…2276 Head {h00=0x0010, h01=0x0050, text=» B UPDSET07 «, t00=0x0016, t01=0x000c}
0x2276…2286 Head {h00=0x000c, h01=0x0050, text=»UPDSET05«, t00=0x0016, t01=0x0020}
0x2286…229c Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0016, t01=0x0030}
0x229c…22c8 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN9,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0016, t01=0x0046}
0x22c8…22de Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0016, t01=0x0072}
0x22de…22f6 Head {h00=0x0014, h01=0x0050, text=» MOVE ELMNO,BIN9«, t00=0x0016, t01=0x0088}
0x22f6…2306 Head {h00=0x000c, h01=0x0050, text=»UPDSET07«, t00=0x0016, t01=0x00a0}
0x2306…2320 Head {h00=0x0016, h01=0x0050, text=» MOVE TABLE,BCD3A «, t00=0x0016, t01=0x00b0}
0x2320…233a Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'T' «, t00=0x0016, t01=0x00ca}
0x233a…2354 Head {h00=0x0016, h01=0x0050, text=» DLETE TABLE,W0,W2«, t00=0x0016, t01=0x00e4}
0x2354…2378 Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W2,W1,HEX00,W0 «, t00=0x0016, t01=0x00fe}
0x2378…239c Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W0,W1,STR1A,W0 «, t00=0x0016, t01=0x0122}
0x239c…23ac Head {h00=0x000c, h01=0x0050, text=»UPDSET10«, t00=0x0016, t01=0x0146}
0x23ac…23d0 Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W24 GET VALUSET«, t00=0x0016, t01=0x0156}
0x23d0…23e6 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET20 «, t00=0x0016, t01=0x017a}
0x23e6…2406 Head {h00=0x001c, h01=0x0050, text=» CBE PINDTB,W0,UPDSET18 «, t00=0x0016, t01=0x0190}
0x2406…2416 Head {h00=0x000c, h01=0x0050, text=»UPDSET15«, t00=0x0017, t01=0x0020}
0x2416…2442 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0017, t01=0x0030}
0x2442…2452 Head {h00=0x000c, h01=0x0050, text=»UPDSET18«, t00=0x0017, t01=0x005c}
0x2452…2464 Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0017, t01=0x006c}
0x2464…2476 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x0017, t01=0x007e}
0x2476…2486 Head {h00=0x000c, h01=0x0050, text=»UPDSET20«, t00=0x0017, t01=0x0090}
0x2486…24a4 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0017, t01=0x00a0}
0x24a4…24cc Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x0017, t01=0x00be}
0x24cc…24f4 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDTB),W0,W11«, t00=0x0017, t01=0x00e6}
0x24f4…2520 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(PINDTB),W17«, t00=0x0017, t01=0x010e}
0x2520…2564 Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(PINDTB),W18 STORE ENDINDEX OF POOL «, t00=0x0017, t01=0x013a}
0x2564…257c Head {h00=0x0014, h01=0x0050, text=» SUB ELMNO,BIN16«, t00=0x0017, t01=0x017e}
0x257c…2592 Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x0018, t01=0x0008}
0x2592…25c4 Head {h00=0x002e, h01=0x0050, text=» TBT DOOL7,UPDSET24 JUMP IF NOT CURR FIELD«, t00=0x0018, t01=0x001e}
0x25c4…25e4 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0018, t01=0x0050}
0x25e4…2604 Head {h00=0x001c, h01=0x0050, text=» BZ UPDSET30 JUMP IF BCD«, t00=0x0018, t01=0x0070}
0x2604…2618 Head {h00=0x0010, h01=0x0050, text=» B UPDSET26 «, t00=0x0018, t01=0x0090}
0x2618…2628 Head {h00=0x000c, h01=0x0050, text=»UPDSET24«, t00=0x0018, t01=0x00a4}
0x2628…2654 Head {h00=0x0028, h01=0x0050, text=» TBT ALPHA,UPDSET30 JUMP IF BCD-NUM «, t00=0x0018, t01=0x00b4}
0x2654…2664 Head {h00=0x000c, h01=0x0050, text=»UPDSET26«, t00=0x0018, t01=0x00e0}
0x2664…268e Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(PINDTB),W1«, t00=0x0018, t01=0x00f0}
0x268e…269e Head {h00=0x000c, h01=0x0050, text=»UPDSET28«, t00=0x0018, t01=0x011a}
0x269e…26b6 Head {h00=0x0014, h01=0x0050, text=» PERF DEEDIT,W4 «, t00=0x0018, t01=0x012a}
0x26b6…26cc Head {h00=0x0012, h01=0x0050, text=» MOVE BIN6,W0 «, t00=0x0018, t01=0x0142}
0x26cc…26fc Head {h00=0x002c, h01=0x0050, text=» MATCH DEINPUT,BIN6,BIN8,STATSH,W0,BIN8 «, t00=0x0018, t01=0x0158}
0x26fc…2712 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET40 «, t00=0x0018, t01=0x0188}
0x2712…2730 Head {h00=0x001a, h01=0x0050, text=» CBNE BIN9,W0,UPDSET15«, t00=0x0019, t01=0x000e}
0x2730…2752 Head {h00=0x001e, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT«, t00=0x0019, t01=0x002c}
0x2752…2784 Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,W1 INCREMENT STARTINDEX OF POOL«, t00=0x0019, t01=0x004e}
0x2784…27ba Head {h00=0x0032, h01=0x0050, text=» CMP BIN16,BIN15 JUMP ALL EL. OF POOL COMPARED«, t00=0x0019, t01=0x0080}
0x27ba…27dc Head {h00=0x001e, h01=0x0050, text=» BG DECN10 JUMP IF GRAETER«, t00=0x0019, t01=0x00b6}
0x27dc…27f0 Head {h00=0x0010, h01=0x0050, text=» B UPDSET28 «, t00=0x0019, t01=0x00d8}
0x27f0…2800 Head {h00=0x000c, h01=0x0050, text=»UPDSET30«, t00=0x0019, t01=0x00ec}
0x2800…2826 Head {h00=0x0022, h01=0x0050, text=» MOVE BCDI21(W2),FDVBCD(ELMNO)«, t00=0x0019, t01=0x00fc}
0x2826…2838 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0019, t01=0x0122}
0x2838…2848 Head {h00=0x000c, h01=0x0050, text=»UPDSET40«, t00=0x0019, t01=0x0134}
0x2848…2876 Head {h00=0x002a, h01=0x0050, text=» MOVE VSEIND,BIN16 INDEX OF CURR BUFF «, t00=0x0019, t01=0x0144}
0x2876…28a2 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0019, t01=0x0172}
0x28a2…28c4 Head {h00=0x001e, h01=0x0050, text=» CMP W0,W0 CONDITION ZERO «, t00=0x001a, t01=0x000e}
0x28c4…28d6 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x001a, t01=0x0030}
0x28d6…28e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e0…28ee Head {h00=0x000a, h01=0x0050, text=»UPDCOD«, t00=0x001a, t01=0x004c}
0x28ee…2908 Head {h00=0x0016, h01=0x0050, text=» PERF DECOMP,BIN8 «, t00=0x001a, t01=0x005a}
0x2908…291a Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x001a, t01=0x0074}
0x291a…2924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0086}
0x2924…2932 Head {h00=0x000a, h01=0x0050, text=»UPDEMP«, t00=0x001a, t01=0x0090}
0x2932…294e Head {h00=0x0018, h01=0x0050, text=» CALL EMPTYT,DEINPUT«, t00=0x001a, t01=0x009e}
0x294e…2960 Head {h00=0x000e, h01=0x0050, text=» BP DECEGL«, t00=0x001a, t01=0x00ba}
0x2960…2972 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x001a, t01=0x00cc}
0x2972…297c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00de}
0x297c…29ae Head {h00=0x002e, h01=0x0050, text=»* OPERAND IS VALUE-SET ELEMENT INDEX«, t00=0x001a, t01=0x00e8}
0x29ae…29b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011a}
0x29b8…29c6 Head {h00=0x000a, h01=0x0050, text=»UPDVSI«, t00=0x001a, t01=0x0124}
0x29c6…29fc Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W2),VSEIND LOAD VALUE SET ELINDEX«, t00=0x001a, t01=0x0132}
0x29fc…2a0e Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x001a, t01=0x0168}
0x2a0e…2a1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x017a}
0x2a1c…2a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0188}
0x2a26…2a4c (27, 0, 400) Head {h00=0x0022, h01=0x0050, text=»UPDGOT GO TO VALIDATION (G) «, t00=0x001b, t01=0x0004}
0x2a4c…2a7e Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x001b, t01=0x002a}
0x2a7e…2ab0 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x001b, t01=0x005c}
0x2ab0…2ad4 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x001b, t01=0x008e}
0x2ad4…2afc Head {h00=0x0024, h01=0x0050, text=» SET BOOL6 T=COND TAB FOUND (G) «, t00=0x001b, t01=0x00b2}
0x2afc…2b2e Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN14,W1,W1,BPOOL(BIN11),BIN12 *JE «, t00=0x001b, t01=0x00da}
0x2b2e…2b58 Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFERPOINTER«, t00=0x001b, t01=0x010c}
0x2b58…2b6a Head {h00=0x000e, h01=0x0050, text=» B UPDV00 «, t00=0x001b, t01=0x0136}
0x2b6a…2b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0148}
0x2b74…2ba2 Head {h00=0x002a, h01=0x0050, text=»UPDFOR CHANGE FORMAT VALIDATION (R) «, t00=0x001b, t01=0x0152}
0x2ba2…2bba Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W4«, t00=0x001b, t01=0x0180}
0x2bba…2bec Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x001c, t01=0x0008}
0x2bec…2c18 Head {h00=0x0028, h01=0x0050, text=» SET BOOL4 T=COND FORM CH FOUND (R) «, t00=0x001c, t01=0x003a}
0x2c18…2c2a Head {h00=0x000e, h01=0x0050, text=» B UPDFO2 «, t00=0x001c, t01=0x0066}
0x2c2a…2c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0078}
0x2c34…2c62 Head {h00=0x002a, h01=0x0050, text=»UPDFON CHANGE FORMAT VALIDATION (N) «, t00=0x001c, t01=0x0082}
0x2c62…2c7e Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,W3 (N)«, t00=0x001c, t01=0x00b0}
0x2c7e…2cb0 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x001c, t01=0x00cc}
0x2cb0…2ce0 Head {h00=0x002c, h01=0x0050, text=» SET BOOL8 T=COND FORM CHANGE FOUND (N) «, t00=0x001c, t01=0x00fe}
0x2ce0…2cee Head {h00=0x000a, h01=0x0050, text=»UPDFO2«, t00=0x001c, t01=0x012e}
0x2cee…2d16 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL6 F=NO COND TAB FOUND«, t00=0x001c, t01=0x013c}
0x2d16…2d40 Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADUST BUFFER POINTER«, t00=0x001c, t01=0x0164}
0x2d40…2d5e Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x001c, t01=0x018e}
0x2d5e…2d9e Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS«, t00=0x001d, t01=0x001c}
0x2d9e…2dcc Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W128 ADJUST LIT.-INDICATOR «, t00=0x001d, t01=0x005c}
0x2dcc…2df8 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFER POINTER «, t00=0x001d, t01=0x008a}
0x2df8…2e1c Head {h00=0x0020, h01=0x0050, text=» MOVE STSAVE(DEBINW4),HEX00 «, t00=0x001d, t01=0x00b6}
0x2e1c…2e56 Head {h00=0x0036, h01=0x0050, text=» XCOPY STSAVE(DEBINW4),W0,BIN16,BPOOL(BIN11),BIN12«, t00=0x001d, t01=0x00da}
0x2e56…2e88 Head {h00=0x002e, h01=0x0050, text=» ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS «, t00=0x001d, t01=0x0114}
0x2e88…2ea0 Head {h00=0x0014, h01=0x0050, text=» B UPDV00 GO ON «, t00=0x001d, t01=0x0146}
0x2ea0…2eae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x015e}
0x2eae…2eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016c}
0x2eb8…2ec6 Head {h00=0x000a, h01=0x0050, text=»UPDNUM«, t00=0x001d, t01=0x0176}
0x2ec6…2ee0 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x001d, t01=0x0184}
0x2ee0…2efe Head {h00=0x001a, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN8«, t00=0x001e, t01=0x000e}
0x2efe…2f16 Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='?'«, t00=0x001e, t01=0x002c}
0x2f16…2f44 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,BIN12 SAVE CURRENT POINTER«, t00=0x001e, t01=0x0044}
0x2f44…2f7a Head {h00=0x0032, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN10,DEBINW1,STR1A,W0,W1 «, t00=0x001e, t01=0x0072}
0x2f7a…2fa0 Head {h00=0x0022, h01=0x0050, text=» BNOK UPDN06 JUMP IF NO '?':S «, t00=0x001e, t01=0x00a8}
0x2fa0…2fce Head {h00=0x002a, h01=0x0050, text=» MOVE BIN8,W0 COUNTER NUMB OF MATCHES «, t00=0x001e, t01=0x00ce}
0x2fce…3000 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN10,DEBINW1 LOAD EFF. INPUT LENGTH«, t00=0x001e, t01=0x00fc}
0x3000…302c Head {h00=0x0028, h01=0x0050, text=» MATCH DEINPUT,BIN10,W1,HEX00,W0,W1 «, t00=0x001e, t01=0x012e}
0x302c…3050 Head {h00=0x0020, h01=0x0050, text=» BOK UPDN01 JUMP IF NO SIGN «, t00=0x001e, t01=0x015a}
0x3050…3076 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN8,W1 ADJUST FOR SIGN «, t00=0x001e, t01=0x017e}
0x3076…3084 Head {h00=0x000a, h01=0x0050, text=»UPDN01«, t00=0x001f, t01=0x0014}
0x3084…309c Head {h00=0x0014, h01=0x0050, text=» ADD BIN9,BIN12 «, t00=0x001f, t01=0x0022}
0x309c…30aa Head {h00=0x000a, h01=0x0050, text=»UPDN00«, t00=0x001f, t01=0x003a}
0x30aa…30c2 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,BIN8«, t00=0x001f, t01=0x0048}
0x30c2…30f8 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,W1,BPOOL(BIN11),BIN12,W1 «, t00=0x001f, t01=0x0060}
0x30f8…311e Head {h00=0x0022, h01=0x0050, text=» BNOK UPDN04 NOT OK MAYBE '?' «, t00=0x001f, t01=0x0096}
0x311e…312c Head {h00=0x000a, h01=0x0050, text=»UPDN02«, t00=0x001f, t01=0x00bc}
0x312c…3152 Head {h00=0x0022, h01=0x0050, text=» ADD BIN8,W1 INCREMENT COUNTER«, t00=0x001f, t01=0x00ca}
0x3152…3184 Head {h00=0x002e, h01=0x0050, text=» CBE BIN8,DEBINW1,UPDN30 ALL CHARS MATCHED«, t00=0x001f, t01=0x00f0}
0x3184…31a8 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x001f, t01=0x0122}
0x31a8…31c6 Head {h00=0x001a, h01=0x0050, text=» B UPDN00 GO ON MATCH «, t00=0x001f, t01=0x0146}
0x31c6…31d4 Head {h00=0x000a, h01=0x0050, text=»UPDN04«, t00=0x001f, t01=0x0164}
0x31d4…31fe Head {h00=0x0026, h01=0x0050, text=» MOVE BIN10,BIN12 LOAD MATCH POINT«, t00=0x001f, t01=0x0172}
0x31fe…322e Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN10,W1,STR1A,W0,W1«, t00=0x0020, t01=0x000c}
0x322e…3252 Head {h00=0x0020, h01=0x0050, text=» BOK UPDN02 GO ON '?' FOUND «, t00=0x0020, t01=0x003c}
0x3252…3264 Head {h00=0x000e, h01=0x0050, text=» B UPDN30 «, t00=0x0020, t01=0x0060}
0x3264…3272 Head {h00=0x000a, h01=0x0050, text=»UPDN06«, t00=0x0020, t01=0x0072}
0x3272…3288 Head {h00=0x0012, h01=0x0050, text=» CLEAR DOOL7 «, t00=0x0020, t01=0x0080}
0x3288…32b2 Head {h00=0x0026, h01=0x0050, text=» BNZ UPDN10 JUMP IF NOT CURR FIELD«, t00=0x0020, t01=0x0096}
0x32b2…32d2 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0020, t01=0x00c0}
0x32d2…32f4 Head {h00=0x001e, h01=0x0050, text=» BZ UPDN40 JUMP IF NUMERIC«, t00=0x0020, t01=0x00e0}
0x32f4…3314 Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW1,BIN9,UPDN20«, t00=0x0020, t01=0x0102}
0x3314…3342 Head {h00=0x002a, h01=0x0050, text=» ADD BIN12,BIN9 ADJUST POINTER IN FVAL«, t00=0x0020, t01=0x0122}
0x3342…3354 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0020, t01=0x0150}
0x3354…3362 Head {h00=0x000a, h01=0x0050, text=»UPDN10«, t00=0x0020, t01=0x0162}
0x3362…338c Head {h00=0x0026, h01=0x0050, text=» TBT ALPHA,UPDN40 JUMP IF BCD-NUM «, t00=0x0020, t01=0x0170}
0x338c…339a Head {h00=0x000a, h01=0x0050, text=»UPDN20«, t00=0x0021, t01=0x000a}
0x339a…33b0 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0021, t01=0x0018}
0x33b0…33c8 Head {h00=0x0014, h01=0x0050, text=» ADD BIN9,BIN12 «, t00=0x0021, t01=0x002e}
0x33c8…3408 Head {h00=0x003c, h01=0x0050, text=» MATCH DEINPUT,BIN10,DEBINW1,BPOOL(BIN11),BIN12,DEBINW1 «, t00=0x0021, t01=0x0046}
0x3408…3416 Head {h00=0x000a, h01=0x0050, text=»UPDN30«, t00=0x0021, t01=0x0086}
0x3416…342e Head {h00=0x0014, h01=0x0050, text=» MOVE BIN12,BIN9«, t00=0x0021, t01=0x0094}
0x342e…3442 Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0021, t01=0x00ac}
0x3442…3454 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0021, t01=0x00c0}
0x3454…346c Head {h00=0x0014, h01=0x0050, text=»UPDN40 NUMERIC«, t00=0x0021, t01=0x00d2}
0x346c…3486 Head {h00=0x0016, h01=0x0050, text=» MOVE STR64A,HEX00«, t00=0x0021, t01=0x00ea}
0x3486…34b6 Head {h00=0x002c, h01=0x0050, text=» COPY STR64A,W0,BIN9,BPOOL(BIN11),BIN12 «, t00=0x0021, t01=0x0104}
0x34b6…34d6 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W2),STR64A «, t00=0x0021, t01=0x0134}
0x34d6…34ee Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x0021, t01=0x0154}
0x34ee…34fc Head {h00=0x000a, h01=0x0050, text=»UPDN50«, t00=0x0021, t01=0x016c}
0x34fc…3510 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x0021, t01=0x017a}
0x3510…3522 Head {h00=0x000e, h01=0x0050, text=» BZ UPDN55«, t00=0x0021, t01=0x018e}
0x3522…3544 Head {h00=0x001e, h01=0x0050, text=» CALL CLEARB,BCDI21(W2),W1«, t00=0x0022, t01=0x0010}
0x3544…3564 Head {h00=0x001c, h01=0x0050, text=» CALL SETB,BCDI21(W2),W2«, t00=0x0022, t01=0x0032}
0x3564…3572 Head {h00=0x000a, h01=0x0050, text=»UPDN55«, t00=0x0022, t01=0x0052}
0x3572…3598 Head {h00=0x0022, h01=0x0050, text=» IB BIN6,UPDN60,UPDN70,UPDN80 «, t00=0x0022, t01=0x0060}
0x3598…35ba Head {h00=0x001e, h01=0x0050, text=» ADD BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x0086}
0x35ba…35cc Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0022, t01=0x00a8}
0x35cc…35f4 Head {h00=0x0024, h01=0x0050, text=»UPDN60 SUB BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x00ba}
0x35f4…3606 Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0022, t01=0x00e2}
0x3606…362e Head {h00=0x0024, h01=0x0050, text=»UPDN70 MUL BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x00f4}
0x362e…3640 Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0022, t01=0x011c}
0x3640…3668 Head {h00=0x0024, h01=0x0050, text=»UPDN80 DIV BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x012e}
0x3668…3684 Head {h00=0x0018, h01=0x0050, text=»UPDN90 MOVE BIN6,W0 «, t00=0x0022, t01=0x0156}
0x3684…36b4 Head {h00=0x002c, h01=0x0050, text=» CBNL BIN12,BIN13,UPDN95 JUMP IF END OF «, t00=0x0022, t01=0x0172}
0x36b4…36d0 Head {h00=0x0018, h01=0x0050, text=» VALIDATION STRING«, t00=0x0023, t01=0x0012}
0x36d0…36ec Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,='+-*:'«, t00=0x0023, t01=0x002e}
0x36ec…3720 Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 «, t00=0x0023, t01=0x004a}
0x3720…374c Head {h00=0x0028, h01=0x0050, text=» BOK UPDV35 JUMP IF ARITHMETIC SIGN «, t00=0x0023, t01=0x007e}
0x374c…375a Head {h00=0x000a, h01=0x0050, text=»UPDN95«, t00=0x0023, t01=0x00aa}
0x375a…377a Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W2),DEINPUT«, t00=0x0023, t01=0x00b8}
0x377a…379c Head {h00=0x001e, h01=0x0050, text=» CMP BCDI21(W2),BCDI21(W1)«, t00=0x0023, t01=0x00d8}
0x379c…37aa Head {h00=0x000a, h01=0x0050, text=»DECO05«, t00=0x0023, t01=0x00fa}
0x37aa…37e4 Head {h00=0x0036, h01=0x0050, text=» IB BIN5,DECO10,DECO20 JUMP ON COMPARE-SIGN-INDEX «, t00=0x0023, t01=0x0108}
0x37e4…37f8 Head {h00=0x0010, h01=0x0050, text=» BZ DECEGL =«, t00=0x0023, t01=0x0142}
0x37f8…380c Head {h00=0x0010, h01=0x0050, text=» B DECNOT /=«, t00=0x0023, t01=0x0156}
0x380c…381a Head {h00=0x000a, h01=0x0050, text=»DECO10«, t00=0x0023, t01=0x016a}
0x381a…3830 Head {h00=0x0012, h01=0x0050, text=» BEOF DECEGL >«, t00=0x0023, t01=0x0178}
0x3830…3844 Head {h00=0x0010, h01=0x0050, text=» B DECNOT />«, t00=0x0023, t01=0x018e}
0x3844…3852 Head {h00=0x000a, h01=0x0050, text=»DECO20«, t00=0x0024, t01=0x0012}
0x3852…3868 Head {h00=0x0012, h01=0x0050, text=» BERR DECEGL <«, t00=0x0024, t01=0x0020}
0x3868…3876 Head {h00=0x000a, h01=0x0050, text=» /< «, t00=0x0024, t01=0x0036}
0x3876…3890 Head {h00=0x0016, h01=0x0050, text=»DECNOT CLEAR DOOL1«, t00=0x0024, t01=0x0044}
0x3890…38aa Head {h00=0x0016, h01=0x0050, text=» BNZ DECOOK VALID «, t00=0x0024, t01=0x005e}
0x38aa…38d8 Head {h00=0x002a, h01=0x0050, text=» CBE PINDTB,W0,DECONO JUMP IF NOT SET «, t00=0x0024, t01=0x0078}
0x38d8…3902 Head {h00=0x0026, h01=0x0050, text=» CMP BIN9,W0 LOOK IF ALL ELEMENTS «, t00=0x0024, t01=0x00a6}
0x3902…3924 Head {h00=0x001e, h01=0x0050, text=» BNZ UPDSET15 JUMP IF NOT «, t00=0x0024, t01=0x00d0}
0x3924…3946 Head {h00=0x001e, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT«, t00=0x0024, t01=0x00f2}
0x3946…3978 Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,W1 INCREMENT STARTINDEX OF POOL«, t00=0x0024, t01=0x0114}
0x3978…39b6 Head {h00=0x003a, h01=0x0050, text=» CBG BIN16,BIN15,DECN10 JUMP ALL EL. OF POOL COMPARED«, t00=0x0024, t01=0x0146}
0x39b6…39f0 Head {h00=0x0036, h01=0x0050, text=» MOVE BCDI21(W1),FDVBCD(ELMNO) NEXT ELEMENT VALUE «, t00=0x0024, t01=0x0184}
0x39f0…3a14 Head {h00=0x0020, h01=0x0050, text=» B UPDN95 GO ON NEXT COMPARE«, t00=0x0025, t01=0x002e}
0x3a14…3a22 Head {h00=0x000a, h01=0x0050, text=»DECN10«, t00=0x0025, t01=0x0052}
0x3a22…3a62 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN15,W0,W2,RPOOL(PINDTB),W13 FETCH LINK FORWARD «, t00=0x0025, t01=0x0060}
0x3a62…3a96 Head {h00=0x0030, h01=0x0050, text=» CMP BIN15,W0 JUMP IF WHOLE TABLE VALIDATED «, t00=0x0025, t01=0x00a0}
0x3a96…3ab8 Head {h00=0x001e, h01=0x0050, text=» BE UPDSET15 JUMP IF EQUAL«, t00=0x0025, t01=0x00d4}
0x3ab8…3af0 Head {h00=0x0034, h01=0x0050, text=» MOVE ELMNO,BIN16 LOAD SAERCH ELEMENT NEXT SEGM.«, t00=0x0025, t01=0x00f6}
0x3af0…3b24 Head {h00=0x0030, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A RELEASE«, t00=0x0025, t01=0x012e}
0x3b24…3b50 Head {h00=0x0028, h01=0x0050, text=» B UPDSET10 GO ON READ NEXT SEGMENT «, t00=0x0025, t01=0x0162}
0x3b50…3b6a Head {h00=0x0016, h01=0x0050, text=»DECEGL CLEAR DOOL1«, t00=0x0025, t01=0x018e}
0x3b6a…3b82 Head {h00=0x0014, h01=0x0050, text=» BZ DECOTK VALID«, t00=0x0026, t01=0x0018}
0x3b82…3b90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0030}
0x3b90…3b9e Head {h00=0x000a, h01=0x0050, text=»DECONO«, t00=0x0026, t01=0x003e}
0x3b9e…3bba Head {h00=0x0018, h01=0x0050, text=» MOVE BIN10,W21 V OR«, t00=0x0026, t01=0x004c}
0x3bba…3bea Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,DECOMT JUMP IF COND TAB FOUND«, t00=0x0026, t01=0x0068}
0x3bea…3c1c Head {h00=0x002e, h01=0x0050, text=» TBT BOOL8,DECOMT JUMP IF RECORD CH FOUND «, t00=0x0026, t01=0x0098}
0x3c1c…3c4e Head {h00=0x002e, h01=0x0050, text=» TBT BOOL4,DECOMT JUMP IF RECORD CH FOUND «, t00=0x0026, t01=0x00ca}
0x3c4e…3c70 Head {h00=0x001e, h01=0x0050, text=» SET DOOLB ITEM NOT VALID «, t00=0x0026, t01=0x00fc}
0x3c70…3c82 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x0026, t01=0x011e}
0x3c82…3c90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0130}
0x3c90…3c9e Head {h00=0x000a, h01=0x0050, text=»DECOTK«, t00=0x0026, t01=0x013e}
0x3c9e…3cda Head {h00=0x0038, h01=0x0050, text=» CBE PINDTB,W0,DECOOK JUMP IF EOF VALUE-SET/NO VSET «, t00=0x0026, t01=0x014c}
0x3cda…3d08 Head {h00=0x002a, h01=0x0050, text=» MOVE VSEIND,BIN16 INDEX OF CURR BUFF «, t00=0x0026, t01=0x0188}
0x3d08…3d16 Head {h00=0x000a, h01=0x0050, text=»DECOOK«, t00=0x0027, t01=0x0026}
0x3d16…3d30 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN10,W20 & «, t00=0x0027, t01=0x0034}
0x3d30…3d50 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ITEM VALID «, t00=0x0027, t01=0x004e}
0x3d50…3d5e Head {h00=0x000a, h01=0x0050, text=»DECOMT«, t00=0x0027, t01=0x006e}
0x3d5e…3d72 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0027, t01=0x007c}
0x3d72…3d90 Head {h00=0x001a, h01=0x0050, text=» CBE PINDTB,W0,DECO33 «, t00=0x0027, t01=0x0090}
0x3d90…3dbc Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0027, t01=0x00ae}
0x3dbc…3de2 Head {h00=0x0022, h01=0x0050, text=»DECO33 CBNL BIN12,BIN13,DECEND«, t00=0x0027, t01=0x00da}
0x3de2…3df8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0027, t01=0x0100}
0x3df8…3e12 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN16,=W'29'«, t00=0x0027, t01=0x0116}
0x3e12…3e48 Head {h00=0x0032, h01=0x0050, text=» MATCH VALSTR,BIN9,BIN16,BPOOL(BIN11),BIN12,W1«, t00=0x0027, t01=0x0130}
0x3e48…3e5c Head {h00=0x0010, h01=0x0050, text=» BOK DECO40 «, t00=0x0027, t01=0x0166}
0x3e5c…3e6a Head {h00=0x000a, h01=0x0050, text=»DECO35«, t00=0x0027, t01=0x017a}
0x3e6a…3e96 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0027, t01=0x0188}
0x3e96…3eb2 Head {h00=0x0018, h01=0x0050, text=» CALL TESTB,BIN8,W8 «, t00=0x0028, t01=0x0024}
0x3eb2…3ec4 Head {h00=0x000e, h01=0x0050, text=» BZ DECO38«, t00=0x0028, t01=0x0040}
0x3ec4…3ede Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x0028, t01=0x0052}
0x3ede…3efc Head {h00=0x001a, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN8«, t00=0x0028, t01=0x006c}
0x3efc…3f14 Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x0028, t01=0x008a}
0x3f14…3f22 Head {h00=0x000a, h01=0x0050, text=»DECO38«, t00=0x0028, t01=0x00a2}
0x3f22…3f38 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0028, t01=0x00b0}
0x3f38…3f4a Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x0028, t01=0x00c6}
0x3f4a…3f64 Head {h00=0x0016, h01=0x0050, text=»DECO39 ';' FOUND«, t00=0x0028, t01=0x00d8}
0x3f64…3f8a Head {h00=0x0022, h01=0x0050, text=» CBNE BIN10,W20,DECO37 NOT = &«, t00=0x0028, t01=0x00f2}
0x3f8a…3fb8 Head {h00=0x002a, h01=0x0050, text=» PERF DENVCO CONDITIONAL BOOL SETTING «, t00=0x0028, t01=0x0118}
0x3fb8…3fc6 Head {h00=0x000a, h01=0x0050, text=»DECO37«, t00=0x0028, t01=0x0146}
0x3fc6…3fdc Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0028, t01=0x0154}
0x3fdc…400a Head {h00=0x002a, h01=0x0050, text=» CBNL BIN12,BIN13,DECEND END OF STRING«, t00=0x0028, t01=0x016a}
0x400a…4020 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0029, t01=0x0008}
0x4020…403c Head {h00=0x0018, h01=0x0050, text=» MOVE STR6B,=C'DGRN'«, t00=0x0029, t01=0x001e}
0x403c…406e Head {h00=0x002e, h01=0x0050, text=» MATCH STR6B,BIN9,W4,BPOOL(BIN11),BIN12,W1«, t00=0x0029, t01=0x003a}
0x406e…4082 Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x0029, t01=0x006c}
0x4082…409c Head {h00=0x0016, h01=0x0050, text=» TBT DOOLB,DECEND «, t00=0x0029, t01=0x0080}
0x409c…40c2 Head {h00=0x0022, h01=0x0050, text=» IB BIN9,UPDGOT,UPDFOR,UPDFON «, t00=0x0029, t01=0x009a}
0x40c2…40d4 Head {h00=0x000e, h01=0x0050, text=» B UPDV25 «, t00=0x0029, t01=0x00c0}
0x40d4…40e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00d2}
0x40e2…40f0 Head {h00=0x000a, h01=0x0050, text=»DECO40«, t00=0x0029, t01=0x00e0}
0x40f0…4126 Head {h00=0x0032, h01=0x0050, text=» IB BIN9,DECO41,DECO41,DECO41,DECO41,DECO41 C«, t00=0x0029, t01=0x00ee}
0x4126…413a Head {h00=0x0010, h01=0x0050, text=» DECO42 C «, t00=0x0029, t01=0x0124}
0x413a…414e Head {h00=0x0010, h01=0x0050, text=» DECO41 C «, t00=0x0029, t01=0x0138}
0x414e…4170 Head {h00=0x001e, h01=0x0050, text=» DECO42,DECO42,DECO42 C «, t00=0x0029, t01=0x014c}
0x4170…4192 Head {h00=0x001e, h01=0x0050, text=» DECO42,DECO42,DECO42 C «, t00=0x0029, t01=0x016e}
0x4192…41b4 Head {h00=0x001e, h01=0x0050, text=» DECO41,DECO41,DECO41 C «, t00=0x0029, t01=0x0190}
0x41b4…41d4 Head {h00=0x001c, h01=0x0050, text=» DECO41,DECO41 17-18 C «, t00=0x002a, t01=0x0022}
0x41d4…41ec Head {h00=0x0014, h01=0x0050, text=» DECO39 19=; C «, t00=0x002a, t01=0x0042}
0x41ec…420c Head {h00=0x001c, h01=0x0050, text=» DECO43,DECO43, 20-21 C«, t00=0x002a, t01=0x005a}
0x420c…4234 Head {h00=0x0024, h01=0x0050, text=» DECO41,DECO41,DECO41, 22-24 C «, t00=0x002a, t01=0x007a}
0x4234…425c Head {h00=0x0024, h01=0x0050, text=» DECO42,DECO46,DECO46, 25-27 C «, t00=0x002a, t01=0x00a2}
0x425c…426c Head {h00=0x000c, h01=0x0050, text=» DECO41«, t00=0x002a, t01=0x00ca}
0x426c…428a Head {h00=0x001a, h01=0x0050, text=» ADD BIN12,W1 MESSAGE «, t00=0x002a, t01=0x00da}
0x428a…429c Head {h00=0x000e, h01=0x0050, text=» B DECO35 «, t00=0x002a, t01=0x00f8}
0x429c…42aa Head {h00=0x000a, h01=0x0050, text=»DECO43«, t00=0x002a, t01=0x010a}
0x42aa…42ca Head {h00=0x001c, h01=0x0050, text=» CBNE BIN9,BIN10,DECO44 «, t00=0x002a, t01=0x0118}
0x42ca…42ee Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x002a, t01=0x0138}
0x42ee…4300 Head {h00=0x000e, h01=0x0050, text=» B UPDV00 «, t00=0x002a, t01=0x015c}
0x4300…430e Head {h00=0x000a, h01=0x0050, text=»DECO44«, t00=0x002a, t01=0x016e}
0x430e…432c Head {h00=0x001a, h01=0x0050, text=» CBE BIN10,W20,DEC050 «, t00=0x002a, t01=0x017c}
0x432c…433a Head {h00=0x000a, h01=0x0050, text=»DECO41«, t00=0x002b, t01=0x000a}
0x433a…4350 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002b, t01=0x0018}
0x4350…4362 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002b, t01=0x002e}
0x4362…4370 Head {h00=0x000a, h01=0x0050, text=»DECO42«, t00=0x002b, t01=0x0040}
0x4370…4386 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W2 «, t00=0x002b, t01=0x004e}
0x4386…4398 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002b, t01=0x0064}
0x4398…43a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0076}
0x43a6…43cc Head {h00=0x0022, h01=0x0050, text=»DECO46 CONDITIONAL FORMAT CH«, t00=0x002b, t01=0x0084}
0x43cc…43f6 Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADUST BUFFER POINTER«, t00=0x002b, t01=0x00aa}
0x43f6…4414 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x002b, t01=0x00d4}
0x4414…4454 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS«, t00=0x002b, t01=0x00f2}
0x4454…4482 Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W128 ADJUST LIT.-INDICATOR «, t00=0x002b, t01=0x0132}
0x4482…44ae Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFER POINTER «, t00=0x002b, t01=0x0160}
0x44ae…44e0 Head {h00=0x002e, h01=0x0050, text=» ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS «, t00=0x002b, t01=0x018c}
0x44e0…44f2 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002c, t01=0x002e}
0x44f2…4500 Head {h00=0x000a, h01=0x0050, text=»DEC050«, t00=0x002c, t01=0x0040}
0x4500…452e Head {h00=0x002a, h01=0x0050, text=» PERF DENVCO CONDITIONAL BOOL SETTING «, t00=0x002c, t01=0x004e}
0x452e…4540 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002c, t01=0x007c}
0x4540…454e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x008e}
0x454e…455c Head {h00=0x000a, h01=0x0050, text=»DECERR«, t00=0x002c, t01=0x009c}
0x455c…456e Head {h00=0x000e, h01=0x0050, text=» SET DOOLB«, t00=0x002c, t01=0x00aa}
0x456e…4596 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W2 UNDEFINED ERROR«, t00=0x002c, t01=0x00bc}
0x4596…45ac Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x002c, t01=0x00e4}
0x45ac…45c6 Head {h00=0x0016, h01=0x0050, text=»DECEND CLEAR DOOL4«, t00=0x002c, t01=0x00fa}
0x45c6…45d8 Head {h00=0x000e, h01=0x0050, text=» BZ DECE10«, t00=0x002c, t01=0x0114}
0x45d8…460c Head {h00=0x0030, h01=0x0050, text=»* RESTORE POINTERS TO VAL-STRING «, t00=0x002c, t01=0x0126}
0x460c…4628 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN11,WORK(W6)«, t00=0x002c, t01=0x015a}
0x4628…4644 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN12,WORK(W7)«, t00=0x002c, t01=0x0176}
0x4644…4660 (45, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,WORK(W8)«, t00=0x002d, t01=0x0004}
0x4660…4676 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002d, t01=0x0020}
0x4676…46a4 Head {h00=0x002a, h01=0x0050, text=» GETFLD 0,DEBINW3,BIN9 GET INIT. FIELD«, t00=0x002d, t01=0x0036}
0x46a4…46b2 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x002d, t01=0x0064}
0x46b2…46c0 Head {h00=0x000a, h01=0x0050, text=»DECE10«, t00=0x002d, t01=0x0072}
0x46c0…46da Head {h00=0x0016, h01=0x0050, text=» TBF DOOLB,DECE20 «, t00=0x002d, t01=0x0080}
0x46da…46f8 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W2,DECE30«, t00=0x002d, t01=0x009a}
0x46f8…4706 Head {h00=0x000a, h01=0x0050, text=»DECE20«, t00=0x002d, t01=0x00b8}
0x4706…4728 Head {h00=0x001e, h01=0x0050, text=» CBE BIN10,W20,DEC050 '&' «, t00=0x002d, t01=0x00c6}
0x4728…4736 Head {h00=0x000a, h01=0x0050, text=»DECE30«, t00=0x002d, t01=0x00e8}
0x4736…476a Head {h00=0x0030, h01=0x0050, text=» MOVE DEINPUT,STATSH RESTORE KEYED IN VALUE «, t00=0x002d, t01=0x00f6}
0x476a…479a Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW3,NUMBER CURRENT REC.NUMBER «, t00=0x002d, t01=0x012a}
0x479a…47c6 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW3,W0,UPDR05 NOT BATCHHEAD«, t00=0x002d, t01=0x015a}
0x47c6…47f4 Head {h00=0x002a, h01=0x0050, text=» CBG DEBINW3,BDPOIN(W2),UPDR10 JUMP IF«, t00=0x002d, t01=0x0186}
0x47f4…4812 Head {h00=0x001a, h01=0x0050, text=» ENTRY OF NEW RECORD«, t00=0x002e, t01=0x0024}
0x4812…4838 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL3 CHANGE FORMAT (R)«, t00=0x002e, t01=0x0042}
0x4838…4860 Head {h00=0x0024, h01=0x0050, text=» TBT DOOL2,UPDR10 JUMP IF INSERT«, t00=0x002e, t01=0x0068}
0x4860…486e Head {h00=0x000a, h01=0x0050, text=»UPDR05«, t00=0x002e, t01=0x0090}
0x486e…4890 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOLS FOR FORMAT «, t00=0x002e, t01=0x009e}
0x4890…48ba Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL7 CHANGE IN CORRECTION «, t00=0x002e, t01=0x00c0}
0x48ba…48d6 Head {h00=0x0018, h01=0x0050, text=» OR IF BATCHEAD=N «, t00=0x002e, t01=0x00ea}
0x48d6…48e4 Head {h00=0x000a, h01=0x0050, text=»UPDR10«, t00=0x002e, t01=0x0106}
0x48e4…48fa Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x002e, t01=0x0114}
0x48fa…491c Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN11,W1,W1,BIN3,W0«, t00=0x002e, t01=0x012a}
0x491c…493c Head {h00=0x001c, h01=0x0050, text=» XCOPY BIN3,W0,W1,W0,W0 «, t00=0x002e, t01=0x014c}
0x493c…494a Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x002e, t01=0x016c}
0x494a…496a Head {h00=0x001c, h01=0x0050, text=» CLEAR REWRT UPDFLD = 1?«, t00=0x002e, t01=0x017a}
0x496a…4982 Head {h00=0x0014, h01=0x0050, text=» BNZ UPDR30 YES!«, t00=0x002f, t01=0x000a}
0x4982…499a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x002f, t01=0x0022}
0x499a…49ac Head {h00=0x000e, h01=0x0050, text=» B UPDR40 «, t00=0x002f, t01=0x003a}
0x49ac…49ba Head {h00=0x000a, h01=0x0050, text=»UPDR30«, t00=0x002f, t01=0x004c}
0x49ba…49d2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x002f, t01=0x005a}
0x49d2…49e0 Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x002f, t01=0x0072}
0x49e0…49ec Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0080}
0x49ec…49fa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x008c}
0x49fa…4a0e Head {h00=0x0010, h01=0x0050, text=»DENVCO PROC «, t00=0x002f, t01=0x009a}
0x4a0e…4a24 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x002f, t01=0x00ae}
0x4a24…4a4e Head {h00=0x0026, h01=0x0050, text=» TBT BOOL6,DECOFG JUMP IF COND TAB«, t00=0x002f, t01=0x00c4}
0x4a4e…4a80 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL8,DECOFN JUMP IF RECORD CH FOUND «, t00=0x002f, t01=0x00ee}
0x4a80…4ab6 Head {h00=0x0032, h01=0x0050, text=» TBT BOOL4,DECOFR JUMP IF RECORD CHANGE FOUND «, t00=0x002f, t01=0x0120}
0x4ab6…4ac2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0156}
0x4ac2…4ad0 Head {h00=0x000a, h01=0x0050, text=»DECOFG«, t00=0x002f, t01=0x0162}
0x4ad0…4af4 Head {h00=0x0020, h01=0x0050, text=» SET BOOL5 T=VALID COND TAB «, t00=0x002f, t01=0x0170}
0x4af4…4b00 (48, 2, 186) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0004}
0x4b00…4b0e Head {h00=0x000a, h01=0x0050, text=»DECOFN«, t00=0x0030, t01=0x0010}
0x4b0e…4b3a Head {h00=0x0028, h01=0x0050, text=» SET BOOL7 T=VALID RECORD CHANGE (N)«, t00=0x0030, t01=0x001e}
0x4b3a…4b46 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x004a}
0x4b46…4b54 Head {h00=0x000a, h01=0x0050, text=»DECOFR«, t00=0x0030, t01=0x0056}
0x4b54…4b80 Head {h00=0x0028, h01=0x0050, text=» SET BOOL3 T=VALID RECORD CHANGE (R)«, t00=0x0030, t01=0x0064}
0x4b80…4b8c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0090}
0x4b8c…4b9a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x009c}
0x4b9a…4ba6 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0030, t01=0x00aa}
0x4ba6…4baa Head {h00=0x4004, h01=0x0000}
0x4baa…4bae 00 30 00 b6 ┆ 0 ┆
0x4bae…4bb6 (49, 1, 8) 20 04 00 00 00 31 00 04 ┆ 1 ┆
0x4bb6…4c06 (50, 0, 400) 30 ce 91 d6 ff f4 85 5b 00 04 95 56 ff f4 84 b6 84 db 00 06 84 ca ff ee 9c 9a 84 92 8e 20 45 e6 84 86 81 37 5f a4 86 8a 9e a0 00 18 87 5a 00 02 f6 a1 3e 3a f6 a1 30 ce 81 5a 00 06 81 37 84 da 00 08 87 5a 00 0a ef 5a 00 02 50 04 f6 a1 30 ce ┆0 [ V E 7_ Z >: 0 Z 7 Z Z P 0 ┆
0x4c06…4c56 96 a0 00 08 94 d6 ff f4 82 0a 1a 10 ea 1a 5c de 86 8a f0 3a 82 56 ff f4 83 06 9b 08 83 0c 52 0e eb 28 51 0a 99 d6 ff f4 9d 56 ff f4 f0 3a 07 00 99 a0 0e 60 9d 20 0e 60 f0 3a 82 20 3c ae ea 4a ff fa 50 0a 82 76 ff f8 92 16 e7 49 00 3c f0 3a ┆ : V R (Q V : ` ` : < J P v I < :┆
0x4c56…4ca6 91 ca ff f4 82 06 01 20 1a 01 92 4a ff fc 9a 10 82 08 51 78 94 08 f0 3a b1 94 b5 06 b1 94 87 00 ed 06 50 6e e1 34 15 01 21 ff 54 68 5f 0e b1 94 b5 06 b1 94 87 00 ed 06 50 58 e1 34 15 01 57 54 90 4b ff f4 87 20 3e e2 57 4a 87 20 3e a0 57 0c ┆ J Qx : Pn 4 ! Th_ PX 4 WT K > WJ > W ┆
0x4ca6…4cf6 01 2b 5f 10 f6 a1 3e ba 87 20 3e b6 01 02 91 4b ff f4 01 20 57 2e 01 20 5f 26 80 82 58 e8 f6 a1 33 f4 57 0a 80 82 58 f2 87 26 f6 a1 33 f0 84 4a ff fc a0 4b ff f4 f0 3a 82 1c 81 06 87 00 1a 01 56 02 f0 3a ec 4a ff fe 54 04 8f 20 45 f6 e1 31 ┆ +_ > > K W. _& X 3 W X & 3 J K : V : J T E 1┆
0x4cf6…4d46 14 01 8f 1c f0 3a 86 06 85 2b f6 a1 37 e0 81 db ff fe 01 20 81 5b ff fc 85 5b ff fa 01 02 87 18 e3 3c 02 08 eb 21 41 41 50 06 eb 21 54 54 54 04 05 00 57 08 eb 21 2a 2a 80 01 00 50 01 00 00 00 52 00 00 00 00 00 12 14 00 82 00 02 02 00 00 08 ┆ : + 7 [ [ < !AAP !TTT W !** P R ┆
0x4d46…4d96 (51, 0, 400) 54 06 05 2a 85 5b ff fc 1a 01 52 18 eb 21 46 46 50 06 eb 21 45 45 54 04 17 02 57 0a eb 49 40 ac 5c 36 11 01 17 01 ef 2a 5c 42 85 5a ff fa 81 94 39 e1 83 84 21 ff 9d 04 03 00 83 3b ee 2a 58 74 87 00 01 00 e1 38 16 01 82 04 21 0f e1 44 40 9c ┆T * [ R !FFP !EET W I@ 6 * B Z 9 ! ; *Xt 8 ! D@ ┆
0x4d96…4de6 90 04 1a 30 50 04 1f 06 57 76 01 30 57 40 17 20 57 6e 82 3a 54 26 01 2a 57 34 1a 46 50 da 01 2e 82 3a 54 18 81 5a ff fc e9 21 00 00 58 42 57 1e 1a 2a 58 26 17 46 57 48 82 3a 50 22 23 ff 55 0e ec 4a ff fe 88 20 45 f6 e3 31 14 01 03 00 87 20 ┆ 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J E 1 ┆
0x4de6…4e36 3f 64 e9 21 30 30 54 02 90 3b 8f 20 3e e4 01 20 5f 14 1a 39 50 0c e2 46 ff ff 22 0f ea 20 00 0f 58 3e 23 ff 90 3b 17 88 57 06 29 30 5f 42 17 4a fb 8e 52 28 81 14 99 5a ff fe 81 04 52 1a e1 34 21 0f e9 20 00 0f 50 10 a9 3b 29 30 e9 20 00 39 ┆?d !00T ; > _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9┆
0x4e36…4e86 55 02 01 3f 81 04 8f 1c 01 20 8f 1c 15 01 ed 06 88 20 45 fa 81 14 99 5a ff fe 81 04 5d 16 e1 34 39 64 5f 34 17 d6 5f 48 55 02 90 3b 82 3a 58 e4 5f 96 17 da 5f 10 e1 7a ff fe 39 64 21 0f 29 20 e9 08 5e 96 5f 88 01 2c 5f ca e1 38 16 01 5f d0 ┆U ? E Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ ┆
0x4e86…4ed6 01 ae 82 3a 5c ba 57 06 e3 38 57 06 16 01 8f 20 3f 64 e2 38 ea 21 2b 2b 50 06 ea 21 2d 2d 5c 14 e3 7a ff fe 3b 24 23 0f 2b 20 eb 08 5e 22 e3 20 20 20 5f 28 00 c2 5c fc 00 01 00 00 01 00 00 00 00 10 82 00 00 00 00 00 40 00 00 00 00 80 00 01 ┆ : W 8W ?d 8 !++P !-- z ;$# + ^" _( @ ┆
0x4ed6…4f26 (52, 0, 400) d0 e8 18 fc 7c 60 2e d4 e4 d4 ee fc 50 54 2a 41 58 59 5a 39 41 66 41 66 41 66 42 42 43 42 41 b4 43 3a 3a 6a 5e 62 5e 68 5f ce 60 c2 62 6e 62 6e 41 ae 42 ac 42 ac 42 c0 42 c0 43 06 41 98 42 c0 42 c0 3d 0a 65 d2 65 74 64 f4 65 16 65 d2 64 ce ┆ |`. PT*AXYZ9AfAfAfBBCBA C::j^b^h_ ` bnbnA B B B B C A B B = e etd e e d ┆
0x4f26…4f76 41 ae 43 62 43 5e 43 68 43 6a 41 ae 41 ae 41 ae 41 ae 00 00 f6 a1 30 d2 a0 57 ff f6 84 84 81 56 ff fe 81 37 86 d6 00 02 87 0c 54 06 eb 56 ff f6 50 0c f6 a1 30 ce 83 0c 50 04 94 d6 ff f4 83 57 ff f6 f6 a1 41 40 81 40 41 02 52 04 f6 a1 45 a0 ┆A CbC^ChCjA A A A 0 W V 7 T V P 0 P W A@ @A R E ┆
0x4f76…4fc6 84 d7 ff fa f6 a1 49 2a b3 8e e3 b2 94 a0 00 01 eb a0 00 80 8e 20 42 4e eb a0 00 70 56 50 81 0e 39 63 8f 44 40 b4 f6 a1 37 e0 82 86 84 0c 86 14 f6 a1 37 36 eb a0 00 0f 51 06 f6 cf 40 c2 57 0a f6 a1 5f ce 82 0e 3a 61 57 2c 01 02 e9 40 41 02 ┆ I* BN pVP 9c D@ 7 76 Q @ W _ :aW, @A ┆
0x4fc6…5016 59 52 50 0e 8f 20 45 26 81 40 41 02 5d 5e 8f 20 45 6e 81 40 41 02 5d 68 8f 20 45 20 5f 6e 01 00 8f 20 46 36 82 0e e1 32 94 a0 00 01 03 08 a2 0d 50 02 99 05 83 12 93 04 84 56 ff f6 57 3c 92 08 01 00 5f 1e e3 32 94 a0 00 01 23 ff 3b 42 88 20 ┆YRP E& @A ]^ En @A ]h E _n F6 2 P V W< _ 2 # ;B ┆
0x5016…5066 43 00 84 56 ff f6 54 06 84 20 12 32 57 08 84 56 ff f4 94 50 00 04 93 10 84 4c ff fe 83 2c 93 56 ff f4 82 0e ea 20 00 32 50 1a 22 07 32 07 50 14 81 56 00 02 e1 44 ff fe 00 3f ff ff ff ff 90 00 20 29 10 10 28 42 41 14 a4 40 00 00 84 00 00 08 ┆C V T 2W V P L , V 2P " 2 P V D ? ) (BA @ ┆