|
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: 20414 (0x4fbe)
Notes: pts_type(SC)
Names: »DANVAL.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DANVAL.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DANVAL.SC«
IDENT DENVAL REL1.0 80-04-10/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 DEBINW3 SAVE CURRENT FIELD.NR CBNE DEBINW1,W0,DENV10 KEYINPUTLENGTH = 0 MOVE BIN8,DEBINW3 CURRENT FIELDNR 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 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.PSEUDO,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 CBL DEBINW4,W128,UPDE10 XCOPY BIN3,W0,W1,BIN11,W1 SAVE POOLINDEX 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 CMPIND,BIN8,SYSV(W1) B UPDS10 UPDS05 CALL CMPIND,BIN8,USEV(W1) UPDS10 BNOK DECERR 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.PSEUDO,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.PSEUDO 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.PSEUDO CON X.WB10,BIN8,W0,DEBINW1 BOK DECEGL B DECNOT UPDF40 NUMERIC CON X.MOVE,BCDI21(W2),X.PSEUDO 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 PERF DENVCO CONDITIONAL BOOL SETTING 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 MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH 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…002a (0, 0, 400) Head {h00=0x0026, h01=0x0050, text=» IDENT DENVAL REL1.0 80-04-10/DALI«, t00=0x0000, t01=0x0004}
0x002a…003e Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x002e}
0x003e…004c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0042}
0x004c…0062 Head {h00=0x0012, h01=0x0050, text=» ENTRY DENVAL «, t00=0x0000, t01=0x0050}
0x0062…008c Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0000, t01=0x0066}
0x008c…00a0 Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0000, t01=0x0090}
0x00a0…00b4 Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0000, t01=0x00a4}
0x00b4…00dc Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0000, t01=0x00b8}
0x00dc…0100 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0000, t01=0x00e0}
0x0100…012c Head {h00=0x0028, h01=0x0050, text=» EXT DECOMP USER OR STANDARDROUTINE «, t00=0x0000, t01=0x0104}
0x012c…0150 Head {h00=0x0020, h01=0x0050, text=» TO VALIDATE CURRENT INPUT«, t00=0x0000, t01=0x0130}
0x0150…0182 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0000, t01=0x0154}
0x0182…01a8 Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0000, t01=0x0186}
0x01a8…01d6 Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0001, t01=0x001c}
0x01d6…0200 Head {h00=0x0026, h01=0x0050, text=» EXT SETB SET A BIT IN A BIN ITEM «, t00=0x0001, t01=0x004a}
0x0200…022a Head {h00=0x0026, h01=0x0050, text=» EXT DELAST KEY INPUT ON LAST LINE«, t00=0x0001, t01=0x0074}
0x022a…0254 Head {h00=0x0026, h01=0x0050, text=» EXT DEDISC DISC HANDLING ROUTINE «, t00=0x0001, t01=0x009e}
0x0254…0282 Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0001, t01=0x00c8}
0x0282…02a4 Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0001, t01=0x00f6}
0x02a4…02d2 Head {h00=0x002a, h01=0x0050, text=» EXT ATTWB ASSEMBLY SUBROUTINE ATTWB -«, t00=0x0001, t01=0x0118}
0x02d2…02ee Head {h00=0x0018, h01=0x0050, text=» ATTACH WORKBLOCK «, t00=0x0001, t01=0x0146}
0x02ee…0318 Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL POOL HANDLING ROUTINE «, t00=0x0001, t01=0x0162}
0x0318…0344 Head {h00=0x0028, h01=0x0050, text=» EXT DEAPPU USER-CODED APPL-HANDLING«, t00=0x0001, t01=0x018c}
0x0344…0356 Head {h00=0x000e, h01=0x0050, text=» EXT TYPET«, t00=0x0002, t01=0x0028}
0x0356…036a Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0002, t01=0x003a}
0x036a…037e Head {h00=0x0010, h01=0x0050, text=» EXT CMPIND «, t00=0x0002, t01=0x004e}
0x037e…0396 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x0062}
0x0396…03a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x007a}
0x03a4…03ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ae…03dc Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0002, t01=0x0092}
0x03dc…0408 Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x0002, t01=0x00c0}
0x0408…0412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ec}
0x0412…044a Head {h00=0x0034, h01=0x0050, text=»* DOOL1= NOT FLAG «, t00=0x0002, t01=0x00f6}
0x044a…048c Head {h00=0x003e, h01=0x0050, text=»* DOOL2= INSERTION OF RECORD«, t00=0x0002, t01=0x012e}
0x048c…04c6 Head {h00=0x0036, h01=0x0050, text=»* DOOL3= ENTRY MODE «, t00=0x0002, t01=0x0170}
0x04c6…050a Head {h00=0x0040, h01=0x0050, text=»* DOOL4= GETFLD TO OTHER FIELD«, t00=0x0003, t01=0x001a}
0x050a…0550 Head {h00=0x0042, h01=0x0050, text=»* WITHIN FORMAT EXECUTED «, t00=0x0003, t01=0x005e}
0x0550…058e Head {h00=0x003a, h01=0x0050, text=»* DOOL5= NO KEYED INPUT «, t00=0x0003, t01=0x00a4}
0x058e…05cc Head {h00=0x003a, h01=0x0050, text=»* DOOL6= ABSOLUTE VALUE «, t00=0x0003, t01=0x00e2}
0x05cc…0616 Head {h00=0x0046, h01=0x0050, text=»* DOOL7= NOT CURRENT ITEM IN DEINPUT«, t00=0x0003, t01=0x0120}
0x0616…065c Head {h00=0x0042, h01=0x0050, text=»* DOOL8= BATCHHEAD FOR NEW BATCH«, t00=0x0003, t01=0x016a}
0x065c…0696 Head {h00=0x0036, h01=0x0050, text=»* BIN11= POOLINDEX«, t00=0x0004, t01=0x0020}
0x0696…06d4 Head {h00=0x003a, h01=0x0050, text=»* BIN12= STARTPOSITION«, t00=0x0004, t01=0x005a}
0x06d4…0712 Head {h00=0x003a, h01=0x0050, text=»* BIN13= STOPPOSITION «, t00=0x0004, t01=0x0098}
0x0712…075c Head {h00=0x0046, h01=0x0050, text=»* BIN14= CONDITIONAL TAB.-FIELD«, t00=0x0004, t01=0x00d6}
0x075c…079c Head {h00=0x003c, h01=0x0050, text=»* (NEXT FIELD)«, t00=0x0004, t01=0x0120}
0x079c…07b2 Head {h00=0x0012, h01=0x0050, text=»DENVAL PROC FC«, t00=0x0004, t01=0x0160}
0x07b2…07c8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN8,W0 «, t00=0x0004, t01=0x0176}
0x07c8…07ee Head {h00=0x0022, h01=0x0050, text=» MOVE BIN3,W0 USED AS POINTER «, t00=0x0004, t01=0x018c}
0x07ee…0808 Head {h00=0x0016, h01=0x0050, text=» TO ERRORMESSAGE«, t00=0x0005, t01=0x0022}
0x0808…083a Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x0005, t01=0x003c}
0x083a…0862 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL6 F=NO COND TAB FOUND«, t00=0x0005, t01=0x006e}
0x0862…0894 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x0005, t01=0x0096}
0x0894…08b2 Head {h00=0x001a, h01=0x0050, text=» CLEAR REWRT UPDFLD=0 «, t00=0x0005, t01=0x00c8}
0x08b2…08ca Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W2«, t00=0x0005, t01=0x00e6}
0x08ca…08f8 Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW3 SAVE CURRENT FIELD.NR «, t00=0x0005, t01=0x00fe}
0x08f8…092a Head {h00=0x002e, h01=0x0050, text=» CBNE DEBINW1,W0,DENV10 KEYINPUTLENGTH = 0«, t00=0x0005, t01=0x012c}
0x092a…0954 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN8,DEBINW3 CURRENT FIELDNR«, t00=0x0005, t01=0x015e}
0x0954…0984 Head {h00=0x002c, h01=0x0050, text=» PERF DEEDIT,W3 PUT FMTITEM INTO DEINPUT«, t00=0x0005, t01=0x0188}
0x0984…0996 Head {h00=0x000e, h01=0x0050, text=» B DENV20 «, t00=0x0006, t01=0x0028}
0x0996…09a4 Head {h00=0x000a, h01=0x0050, text=»DENV10«, t00=0x0006, t01=0x003a}
0x09a4…09ce Head {h00=0x0026, h01=0x0050, text=» TBF DOOL5,DENV30 JUMP IF NOT DUPL«, t00=0x0006, t01=0x0048}
0x09ce…09dc Head {h00=0x000a, h01=0x0050, text=»DENV20«, t00=0x0006, t01=0x0072}
0x09dc…0a06 Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W5),W0 INPUTLENGTH = 0 «, t00=0x0006, t01=0x0080}
0x0a06…0a18 Head {h00=0x000e, h01=0x0050, text=» B DENV40 «, t00=0x0006, t01=0x00aa}
0x0a18…0a26 Head {h00=0x000a, h01=0x0050, text=»DENV30«, t00=0x0006, t01=0x00bc}
0x0a26…0a56 Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH «, t00=0x0006, t01=0x00ca}
0x0a56…0a64 Head {h00=0x000a, h01=0x0050, text=»DENV40«, t00=0x0006, t01=0x00fa}
0x0a64…0a90 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,DEBINW1 SAVE INPUTLENGTH «, t00=0x0006, t01=0x0108}
0x0a90…0abe Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,DEINPUT SAVE KEYED INPUT «, t00=0x0006, t01=0x0134}
0x0abe…0adc Head {h00=0x001a, h01=0x0050, text=» IB FC,DENV50 DEACCU C«, t00=0x0006, t01=0x0162}
0x0adc…0af4 Head {h00=0x0014, h01=0x0050, text=» DENV50 DEGENE «, t00=0x0006, t01=0x0180}
0x0af4…0b24 Head {h00=0x002c, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER «, t00=0x0007, t01=0x0008}
0x0b24…0b50 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW3,W0,DENV50 NO APPL-VALUE«, t00=0x0007, t01=0x0038}
0x0b50…0b7c Head {h00=0x0028, h01=0x0050, text=» PERF DEAPPU USERCODED APPL-HANDLING«, t00=0x0007, t01=0x0064}
0x0b7c…0ba4 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,DENV45 UPDFLD = 1 C «, t00=0x0007, t01=0x0090}
0x0ba4…0bc2 Head {h00=0x001a, h01=0x0050, text=» UPDR40 SET CURSOR C «, t00=0x0007, t01=0x00b8}
0x0bc2…0be2 Head {h00=0x001c, h01=0x0050, text=» DENV42 ERROR PRINTOUT «, t00=0x0007, t01=0x00d6}
0x0be2…0bfe Head {h00=0x0018, h01=0x0050, text=» B DENV50 UPDFLD = 0«, t00=0x0007, t01=0x00f6}
0x0bfe…0c1e Head {h00=0x001c, h01=0x0050, text=»DENV42 ERROR PRINTOUT «, t00=0x0007, t01=0x0112}
0x0c1e…0c34 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0007, t01=0x0132}
0x0c34…0c46 Head {h00=0x000e, h01=0x0050, text=» B UPDR40 «, t00=0x0007, t01=0x0148}
0x0c46…0c62 Head {h00=0x0018, h01=0x0050, text=»DENV45 UPDFLD = 1 «, t00=0x0007, t01=0x015a}
0x0c62…0c74 Head {h00=0x000e, h01=0x0050, text=» SET REWRT«, t00=0x0007, t01=0x0176}
0x0c74…0c82 Head {h00=0x000a, h01=0x0050, text=»DENV50«, t00=0x0007, t01=0x0188}
0x0c82…0c90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0008}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9a…0cb6 Head {h00=0x0018, h01=0x0050, text=»* EXECUTE VALIDATION«, t00=0x0008, t01=0x0020}
0x0cb6…0cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003c}
0x0cc0…0cce Head {h00=0x000a, h01=0x0050, text=»UPDV0A«, t00=0x0008, t01=0x0046}
0x0cce…0ce6 Head {h00=0x0014, h01=0x0050, text=» ADD BIN13,BIN12«, t00=0x0008, t01=0x0054}
0x0ce6…0cf8 Head {h00=0x000e, h01=0x0050, text=» B UPDV01 «, t00=0x0008, t01=0x006c}
0x0cf8…0d06 Head {h00=0x000a, h01=0x0050, text=»UPDV00«, t00=0x0008, t01=0x007e}
0x0d06…0d36 Head {h00=0x002c, h01=0x0050, text=» MOVE DEINPUT,STATSH RESTORE KEYED INPUT«, t00=0x0008, t01=0x008c}
0x0d36…0d64 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,BIN4 RESTOR INPUTLENGTH «, t00=0x0008, t01=0x00bc}
0x0d64…0d72 Head {h00=0x000a, h01=0x0050, text=»UPDV01«, t00=0x0008, t01=0x00ea}
0x0d72…0d94 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,='M/=><DGRN' «, t00=0x0008, t01=0x00f8}
0x0d94…0daa Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0008, t01=0x011a}
0x0daa…0dde Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN5,W9,BPOOL(BIN11),BIN12,W1 «, t00=0x0008, t01=0x0130}
0x0dde…0df2 Head {h00=0x0010, h01=0x0050, text=» BOK UPDV16 «, t00=0x0008, t01=0x0164}
0x0df2…0e06 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0008, t01=0x0178}
0x0e06…0e22 Head {h00=0x0018, h01=0x0050, text=» BNZ DECOMT NOT OKEY«, t00=0x0008, t01=0x018c}
0x0e22…0e42 Head {h00=0x001c, h01=0x0050, text=» MOVE STR64A,='ASUFFFX' «, t00=0x0009, t01=0x0018}
0x0e42…0e58 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0009, t01=0x0038}
0x0e58…0e8c Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN9,W7,BPOOL(BIN11),BIN12,W1 «, t00=0x0009, t01=0x004e}
0x0e8c…0ea0 Head {h00=0x0010, h01=0x0050, text=» BNOK DECOOK«, t00=0x0009, t01=0x0082}
0x0ea0…0ed0 Head {h00=0x002c, h01=0x0050, text=» SET DOOL7 NOT CURRENT FIELD VALIDATION «, t00=0x0009, t01=0x0096}
0x0ed0…0ee6 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0009, t01=0x00c6}
0x0ee6…0f0c Head {h00=0x0022, h01=0x0050, text=» CBE BIN9,W6,UPDV05 JUMP IF X «, t00=0x0009, t01=0x00dc}
0x0f0c…0f38 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0009, t01=0x0102}
0x0f38…0f4e Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0009, t01=0x012e}
0x0f4e…0f5c Head {h00=0x000a, h01=0x0050, text=»UPDV05«, t00=0x0009, t01=0x0144}
0x0f5c…0f7c Head {h00=0x001c, h01=0x0050, text=» CLEAR ALPHA F=ALPHATEST«, t00=0x0009, t01=0x0152}
0x0f7c…0f98 Head {h00=0x0018, h01=0x0050, text=» CBE BIN8,W0,UPDV04 «, t00=0x0009, t01=0x0172}
0x0f98…0fb2 Head {h00=0x0016, h01=0x0050, text=» PERF DEEDIT,BIN9 «, t00=0x0009, t01=0x018e}
0x0fb2…0fc4 Head {h00=0x000e, h01=0x0050, text=» B UPDV06 «, t00=0x000a, t01=0x0018}
0x0fc4…0fd2 Head {h00=0x000a, h01=0x0050, text=»UPDV04«, t00=0x000a, t01=0x002a}
0x0fd2…0ffe Head {h00=0x0028, h01=0x0050, text=» MOVE BIN8,DEBINW3 CURRENT TABINDEX «, t00=0x000a, t01=0x0038}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=»UPDV06«, t00=0x000a, t01=0x0064}
0x100c…1040 Head {h00=0x0030, h01=0x0050, text=» IB BIN9,UPDV01,UPDV01,UPDV07, 1=S,2=U,3=F C«, t00=0x000a, t01=0x0072}
0x1040…1062 Head {h00=0x001e, h01=0x0050, text=» UPDV07,UPDV07,UPDV09 6=X«, t00=0x000a, t01=0x00a6}
0x1062…1078 Head {h00=0x0012, h01=0x0050, text=» B UPDV09 0=A «, t00=0x000a, t01=0x00c8}
0x1078…1086 Head {h00=0x000a, h01=0x0050, text=»UPDV07«, t00=0x000a, t01=0x00de}
0x1086…10b4 Head {h00=0x002a, h01=0x0050, text=» CALL TYPET,BIN7,X.PSEUDO,X.WB10,BIN8 «, t00=0x000a, t01=0x00ec}
0x10b4…10e2 Head {h00=0x002a, h01=0x0050, text=» CBE BIN7,W3,UPDV01 JUMP IF ALPHA STRG«, t00=0x000a, t01=0x011a}
0x10e2…10f0 Head {h00=0x000a, h01=0x0050, text=»UPDV09«, t00=0x000a, t01=0x0148}
0x10f0…110c Head {h00=0x0018, h01=0x0050, text=» SET ALPHA T=BCD-NUM«, t00=0x000a, t01=0x0156}
0x110c…111e Head {h00=0x000e, h01=0x0050, text=» B UPDV01 «, t00=0x000a, t01=0x0172}
0x111e…112c Head {h00=0x000a, h01=0x0050, text=»UPDV16«, t00=0x000a, t01=0x0184}
0x112c…1162 (11, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C«, t00=0x000b, t01=0x0004}
0x1162…1180 Head {h00=0x001a, h01=0x0050, text=» UPDGOT,UPDFOR,UPDFON«, t00=0x000b, t01=0x003a}
0x1180…11a2 Head {h00=0x001e, h01=0x0050, text=»UPDE00 HHANDLE ERRORCODE«, t00=0x000b, t01=0x0058}
0x11a2…11b8 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000b, t01=0x007a}
0x11b8…11e8 Head {h00=0x002c, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN12 «, t00=0x000b, t01=0x0090}
0x11e8…1218 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN3,BIN12 SAVE INDEX TO ERR.MESS «, t00=0x000b, t01=0x00c0}
0x1218…1238 Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW4,W128,UPDE10«, t00=0x000b, t01=0x00f0}
0x1238…126a Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN3,W0,W1,BIN11,W1 SAVE POOLINDEX «, t00=0x000b, t01=0x0110}
0x126a…1284 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x000b, t01=0x0142}
0x1284…12a6 Head {h00=0x001e, h01=0x0050, text=» CALL MSKOUT,BIN9,DEBINW4 «, t00=0x000b, t01=0x015c}
0x12a6…12be Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x000b, t01=0x017e}
0x12be…12cc Head {h00=0x000a, h01=0x0050, text=»UPDE10«, t00=0x000c, t01=0x0008}
0x12cc…12e2 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000c, t01=0x0016}
0x12e2…1302 Head {h00=0x001c, h01=0x0050, text=» CBL BIN12,BIN13,UPDV01 «, t00=0x000c, t01=0x002c}
0x1302…132c Head {h00=0x0026, h01=0x0050, text=» B DECERR JUMP IF END OF VALSTRING«, t00=0x000c, t01=0x004c}
0x132c…133e Head {h00=0x000e, h01=0x0050, text=»UPDV20 /«, t00=0x000c, t01=0x0076}
0x133e…135a Head {h00=0x0018, h01=0x0050, text=» SET DOOL1 NOT-FLAG «, t00=0x000c, t01=0x0088}
0x135a…136c Head {h00=0x000e, h01=0x0050, text=» B UPDE10 «, t00=0x000c, t01=0x00a4}
0x136c…1376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b6}
0x1376…1392 Head {h00=0x0018, h01=0x0050, text=»UPDV25 D;DUPLICATE«, t00=0x000c, t01=0x00c0}
0x1392…13a8 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000c, t01=0x00dc}
0x13a8…13ba Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x000c, t01=0x00f2}
0x13ba…13ce Head {h00=0x0010, h01=0x0050, text=» BNZ DECERR «, t00=0x000c, t01=0x0104}
0x13ce…13fa Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x000c, t01=0x0118}
0x13fa…1416 Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,BIN8,BIN9 «, t00=0x000c, t01=0x0144}
0x1416…1432 Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W6),BIN11«, t00=0x000c, t01=0x0160}
0x1432…144e Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W7),BIN12«, t00=0x000c, t01=0x017c}
0x144e…146a Head {h00=0x0018, h01=0x0050, text=» MOVE WORK(W8),BIN13«, t00=0x000d, t01=0x0008}
0x146a…149a Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x000d, t01=0x0024}
0x149a…14ae Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x000d, t01=0x0054}
0x14ae…14c0 Head {h00=0x000e, h01=0x0050, text=» B UPDV0A «, t00=0x000d, t01=0x0068}
0x14c0…14ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007a}
0x14ca…14f2 Head {h00=0x0024, h01=0x0050, text=»UPDV30 =EQUAL;>GREATER;<LESS; «, t00=0x000d, t01=0x0084}
0x14f2…1506 Head {h00=0x0010, h01=0x0050, text=» SUB BIN5,W2«, t00=0x000d, t01=0x00ac}
0x1506…151c Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x000d, t01=0x00c0}
0x151c…1542 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN6,W0 START IN VALSTR «, t00=0x000d, t01=0x00d6}
0x1542…155e Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,='+-*:'«, t00=0x000d, t01=0x00fc}
0x155e…157c Head {h00=0x001a, h01=0x0050, text=» MOVE BCDI21(W1),=D'0'«, t00=0x000d, t01=0x0118}
0x157c…15b0 Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 «, t00=0x000d, t01=0x0136}
0x15b0…15c4 Head {h00=0x0010, h01=0x0050, text=» BOK UPDV35 «, t00=0x000d, t01=0x016a}
0x15c4…15f0 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN6,W0 IF ARITHMETIC SIGN IS «, t00=0x000d, t01=0x017e}
0x15f0…1616 Head {h00=0x0022, h01=0x0050, text=» B UPDV37 OMITTED + IS ASSUMED«, t00=0x000e, t01=0x001a}
0x1616…1624 Head {h00=0x000a, h01=0x0050, text=»UPDV35«, t00=0x000e, t01=0x0040}
0x1624…164a Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE POINTER«, t00=0x000e, t01=0x004e}
0x164a…1658 Head {h00=0x000a, h01=0x0050, text=»UPDV37«, t00=0x000e, t01=0x0074}
0x1658…166e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x000e, t01=0x0082}
0x166e…1690 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,='L!ASUFTCXE'«, t00=0x000e, t01=0x0098}
0x1690…16c4 Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN9,W10,BPOOL(BIN11),BIN12,W1«, t00=0x000e, t01=0x00ba}
0x16c4…16d8 Head {h00=0x0010, h01=0x0050, text=» BOK UPDV50 «, t00=0x000e, t01=0x00ee}
0x16d8…1702 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN9,W10 STRING-COMPARISION «, t00=0x000e, t01=0x0102}
0x1702…1714 Head {h00=0x000e, h01=0x0050, text=» B UPDV60 «, t00=0x000e, t01=0x012c}
0x1714…1722 Head {h00=0x000a, h01=0x0050, text=»UPDV50«, t00=0x000e, t01=0x013e}
0x1722…1746 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x000e, t01=0x014c}
0x1746…1762 Head {h00=0x0018, h01=0x0050, text=» CBNL BIN9,W8,UPDV65«, t00=0x000e, t01=0x0170}
0x1762…1770 Head {h00=0x000a, h01=0x0050, text=»UPDV60«, t00=0x000e, t01=0x018c}
0x1770…17a6 Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 GET INDEX«, t00=0x000f, t01=0x000a}
0x17a6…17ca Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x000f, t01=0x0040}
0x17ca…17d8 Head {h00=0x000a, h01=0x0050, text=»UPDV65«, t00=0x000f, t01=0x0064}
0x17d8…181c Head {h00=0x0040, h01=0x0050, text=» IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,UPDFLD,UPDSET,UPDCOD C«, t00=0x000f, t01=0x0072}
0x181c…183a Head {h00=0x001a, h01=0x0050, text=» UPDVSI,UPDEMP,UPDNUM«, t00=0x000f, t01=0x00b6}
0x183a…1858 Head {h00=0x001a, h01=0x0050, text=»UPDLEN HANDLE LENGTH«, t00=0x000f, t01=0x00d4}
0x1858…1872 Head {h00=0x0016, h01=0x0050, text=» CMP DEBINW1,BIN8 «, t00=0x000f, t01=0x00f2}
0x1872…1884 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x000f, t01=0x010c}
0x1884…188e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x188e…189c Head {h00=0x000a, h01=0x0050, text=»UPDABS«, t00=0x000f, t01=0x0128}
0x189c…18ae Head {h00=0x000e, h01=0x0050, text=» SET DOOL6«, t00=0x000f, t01=0x0136}
0x18ae…18c0 Head {h00=0x000e, h01=0x0050, text=» B UPDE10 «, t00=0x000f, t01=0x0148}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015a}
0x18ca…18ee Head {h00=0x0020, h01=0x0050, text=»UPDACC HANDLE ACCUMULATOR «, t00=0x000f, t01=0x0164}
0x18ee…1910 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,ACK(W1) «, t00=0x000f, t01=0x0188}
0x1910…1932 Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0010, t01=0x001a}
0x1932…1954 Head {h00=0x001e, h01=0x0050, text=» MOVE BCDI21(W2),ACK(BIN8)«, t00=0x0010, t01=0x003c}
0x1954…1966 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0010, t01=0x005e}
0x1966…1974 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0070}
0x1974…197e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x197e…19a4 Head {h00=0x0022, h01=0x0050, text=»UPDSYS HANDLE SYSTEMVARIABEL«, t00=0x0010, t01=0x0088}
0x19a4…19c6 Head {h00=0x001e, h01=0x0050, text=»UPDUSE AND USERVAIABLES «, t00=0x0010, t01=0x00ae}
0x19c6…19d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d0}
0x19d0…19e4 Head {h00=0x0010, h01=0x0050, text=» SUB BIN9,W3«, t00=0x0010, t01=0x00da}
0x19e4…19f8 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0010, t01=0x00ee}
0x19f8…1a1e Head {h00=0x0022, h01=0x0050, text=» BNZ UPDS01 JUMP IF CURR FIELD«, t00=0x0010, t01=0x0102}
0x1a1e…1a3e Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0010, t01=0x0128}
0x1a3e…1a5c Head {h00=0x001a, h01=0x0050, text=» BZ UPDS30 JUMP IF BCD«, t00=0x0010, t01=0x0148}
0x1a5c…1a6e Head {h00=0x000e, h01=0x0050, text=» B UPDS03 «, t00=0x0010, t01=0x0166}
0x1a6e…1a7c Head {h00=0x000a, h01=0x0050, text=»UPDS01«, t00=0x0010, t01=0x0178}
0x1a7c…1aa6 Head {h00=0x0026, h01=0x0050, text=» TBT ALPHA,UPDS30 JUMP IF BCD-NUM «, t00=0x0010, t01=0x0186}
0x1aa6…1ab4 Head {h00=0x000a, h01=0x0050, text=»UPDS03«, t00=0x0011, t01=0x0020}
0x1ab4…1acc Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS05 «, t00=0x0011, t01=0x002e}
0x1acc…1aee Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,SYSV(W1)«, t00=0x0011, t01=0x0046}
0x1aee…1b00 Head {h00=0x000e, h01=0x0050, text=» B UPDS10 «, t00=0x0011, t01=0x0068}
0x1b00…1b0e Head {h00=0x000a, h01=0x0050, text=»UPDS05«, t00=0x0011, t01=0x007a}
0x1b0e…1b30 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,USEV(W1)«, t00=0x0011, t01=0x0088}
0x1b30…1b3e Head {h00=0x000a, h01=0x0050, text=»UPDS10«, t00=0x0011, t01=0x00aa}
0x1b3e…1b52 Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x0011, t01=0x00b8}
0x1b52…1b68 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0011, t01=0x00cc}
0x1b68…1b80 Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS15 «, t00=0x0011, t01=0x00e2}
0x1b80…1bb6 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,BIN15,SYSV(BIN8),W0,BIN15«, t00=0x0011, t01=0x00fa}
0x1bb6…1bc8 Head {h00=0x000e, h01=0x0050, text=» B UPDS20 «, t00=0x0011, t01=0x0130}
0x1bc8…1bd6 Head {h00=0x000a, h01=0x0050, text=»UPDS15«, t00=0x0011, t01=0x0142}
0x1bd6…1c0c Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,BIN15,USEV(BIN8),W0,BIN15«, t00=0x0011, t01=0x0150}
0x1c0c…1c1a Head {h00=0x000a, h01=0x0050, text=»UPDS20«, t00=0x0011, t01=0x0186}
0x1c1a…1c2e (18, 0, 398) Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0012, t01=0x0004}
0x1c2e…1c40 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0012, t01=0x0018}
0x1c40…1c4e Head {h00=0x000a, h01=0x0050, text=»UPDS30«, t00=0x0012, t01=0x002a}
0x1c4e…1c66 Head {h00=0x0014, h01=0x0050, text=» IB BIN9,UPDS50 «, t00=0x0012, t01=0x0038}
0x1c66…1c88 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,SYSV(W1)«, t00=0x0012, t01=0x0050}
0x1c88…1caa Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0012, t01=0x0072}
0x1caa…1cce Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W2),SYSV(BIN8) «, t00=0x0012, t01=0x0094}
0x1cce…1ce0 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0012, t01=0x00b8}
0x1ce0…1cee Head {h00=0x000a, h01=0x0050, text=»UPDS50«, t00=0x0012, t01=0x00ca}
0x1cee…1d10 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN8,USEV(W1)«, t00=0x0012, t01=0x00d8}
0x1d10…1d32 Head {h00=0x001e, h01=0x0050, text=» BNOK DECERR OUT OF RANGE «, t00=0x0012, t01=0x00fa}
0x1d32…1d56 Head {h00=0x0020, h01=0x0050, text=» MOVE BCDI21(W2),USEV(BIN8) «, t00=0x0012, t01=0x011c}
0x1d56…1d68 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0012, t01=0x0140}
0x1d68…1d76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0152}
0x1d76…1d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0160}
0x1d80…1dac Head {h00=0x0028, h01=0x0050, text=»UPDFLD HANDLE FIELD WITHIN FORMAT «, t00=0x0012, t01=0x016a}
0x1dac…1db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0008}
0x1db6…1de0 Head {h00=0x0026, h01=0x0050, text=» CBNE BIN8,W0,UPDF10 CURRENT FIELD«, t00=0x0013, t01=0x0012}
0x1de0…1e0e Head {h00=0x002a, h01=0x0050, text=» MOVE BIN8,DEBINW3 CURRENT FIELNUMBER «, t00=0x0013, t01=0x003c}
0x1e0e…1e1c Head {h00=0x000a, h01=0x0050, text=»UPDF10«, t00=0x0013, t01=0x006a}
0x1e1c…1e4a Head {h00=0x002a, h01=0x0050, text=» CALL TYPET,BIN10,X.PSEUDO,X.WB10,BIN8«, t00=0x0013, t01=0x0078}
0x1e4a…1e7a Head {h00=0x002c, h01=0x0050, text=» CBNE BIN10,W3,UPDF40 JUMP IF NOT ALPHA «, t00=0x0013, t01=0x00a6}
0x1e7a…1e9a Head {h00=0x001c, h01=0x0050, text=» GETCTL 1,BIN10 GET MAXL«, t00=0x0013, t01=0x00d6}
0x1e9a…1eac Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0013, t01=0x00f6}
0x1eac…1ec2 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0013, t01=0x0108}
0x1ec2…1ee0 Head {h00=0x001a, h01=0x0050, text=» CON X.MATCH,X.PSEUDO «, t00=0x0013, t01=0x011e}
0x1ee0…1ef8 Head {h00=0x0014, h01=0x0050, text=» CON X.WB10,BIN8«, t00=0x0013, t01=0x013c}
0x1ef8…1f1c Head {h00=0x0020, h01=0x0050, text=» CON BIN7,BIN10,HEX00,W0,W1 «, t00=0x0013, t01=0x0154}
0x1f1c…1f36 Head {h00=0x0016, h01=0x0050, text=» CMP DEBINW1,BIN7 «, t00=0x0013, t01=0x0178}
0x1f36…1f58 (20, 0, 400) Head {h00=0x001e, h01=0x0050, text=» BNE DECNOT INVALID LENGTH«, t00=0x0014, t01=0x0004}
0x1f58…1f6e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0014, t01=0x0026}
0x1f6e…1f98 Head {h00=0x0026, h01=0x0050, text=» CON X.MATCH,DEINPUT,BIN10,DEBINW1«, t00=0x0014, t01=0x003c}
0x1f98…1fae Head {h00=0x0012, h01=0x0050, text=» CON X.PSEUDO «, t00=0x0014, t01=0x0066}
0x1fae…1fd2 Head {h00=0x0020, h01=0x0050, text=» CON X.WB10,BIN8,W0,DEBINW1 «, t00=0x0014, t01=0x007c}
0x1fd2…1fe6 Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0014, t01=0x00a0}
0x1fe6…1ff8 Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0014, t01=0x00b4}
0x1ff8…2010 Head {h00=0x0014, h01=0x0050, text=»UPDF40 NUMERIC«, t00=0x0014, t01=0x00c6}
0x2010…2038 Head {h00=0x0024, h01=0x0050, text=» CON X.MOVE,BCDI21(W2),X.PSEUDO «, t00=0x0014, t01=0x00de}
0x2038…2050 Head {h00=0x0014, h01=0x0050, text=» CON X.WB10,BIN8«, t00=0x0014, t01=0x0106}
0x2050…2062 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0014, t01=0x011e}
0x2062…206c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0130}
0x206c…207a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x013a}
0x207a…209a Head {h00=0x001c, h01=0x0050, text=»UPDSET HANDLE VALUESET«, t00=0x0014, t01=0x0148}
0x209a…20ae Head {h00=0x0010, h01=0x0050, text=» CMP BIN5,W0«, t00=0x0014, t01=0x0168}
0x20ae…20c2 Head {h00=0x0010, h01=0x0050, text=» BNZ DECERR «, t00=0x0014, t01=0x017c}
0x20c2…20ec Head {h00=0x0026, h01=0x0050, text=» MOVE VSEIND,W0 VALUE-SET INDEX:=0«, t00=0x0014, t01=0x0190}
0x20ec…2104 Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,BIN8«, t00=0x0015, t01=0x002a}
0x2104…2130 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN9,W0 LOOK IF ELEMENTNUMBER «, t00=0x0015, t01=0x0042}
0x2130…2148 Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,=':'«, t00=0x0015, t01=0x006e}
0x2148…217a Head {h00=0x002e, h01=0x0050, text=» MATCH STR1A,BIN9,W1,BPOOL(BIN11),BIN12,W1«, t00=0x0015, t01=0x0086}
0x217a…2190 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET05 «, t00=0x0015, t01=0x00b8}
0x2190…21a6 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0015, t01=0x00ce}
0x21a6…21bc Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x0015, t01=0x00e4}
0x21bc…21d0 Head {h00=0x0010, h01=0x0050, text=» B UPDSET07 «, t00=0x0015, t01=0x00fa}
0x21d0…21e0 Head {h00=0x000c, h01=0x0050, text=»UPDSET05«, t00=0x0015, t01=0x010e}
0x21e0…21f6 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0015, t01=0x011e}
0x21f6…2222 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN9,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0015, t01=0x0134}
0x2222…2238 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0015, t01=0x0160}
0x2238…2250 Head {h00=0x0014, h01=0x0050, text=» MOVE ELMNO,BIN9«, t00=0x0015, t01=0x0176}
0x2250…2260 Head {h00=0x000c, h01=0x0050, text=»UPDSET07«, t00=0x0015, t01=0x018e}
0x2260…227a Head {h00=0x0016, h01=0x0050, text=» MOVE TABLE,BCD3A «, t00=0x0016, t01=0x000e}
0x227a…2294 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'T' «, t00=0x0016, t01=0x0028}
0x2294…22ae Head {h00=0x0016, h01=0x0050, text=» DLETE TABLE,W0,W2«, t00=0x0016, t01=0x0042}
0x22ae…22d2 Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W2,W1,HEX00,W0 «, t00=0x0016, t01=0x005c}
0x22d2…22f6 Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W0,W1,STR1A,W0 «, t00=0x0016, t01=0x0080}
0x22f6…2306 Head {h00=0x000c, h01=0x0050, text=»UPDSET10«, t00=0x0016, t01=0x00a4}
0x2306…232a Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W24 GET VALUSET«, t00=0x0016, t01=0x00b4}
0x232a…2340 Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET20 «, t00=0x0016, t01=0x00d8}
0x2340…2360 Head {h00=0x001c, h01=0x0050, text=» CBE PINDTB,W0,UPDSET18 «, t00=0x0016, t01=0x00ee}
0x2360…2370 Head {h00=0x000c, h01=0x0050, text=»UPDSET15«, t00=0x0016, t01=0x010e}
0x2370…239c Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0016, t01=0x011e}
0x239c…23ac Head {h00=0x000c, h01=0x0050, text=»UPDSET18«, t00=0x0016, t01=0x014a}
0x23ac…23be Head {h00=0x000e, h01=0x0050, text=» CMP W0,W1«, t00=0x0016, t01=0x015a}
0x23be…23d0 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x0016, t01=0x016c}
0x23d0…23e0 Head {h00=0x000c, h01=0x0050, text=»UPDSET20«, t00=0x0016, t01=0x017e}
0x23e0…23fe Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0016, t01=0x018e}
0x23fe…2426 Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x0017, t01=0x001c}
0x2426…244e Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDTB),W0,W11«, t00=0x0017, t01=0x0044}
0x244e…247a Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN16,W1,W1,RPOOL(PINDTB),W17«, t00=0x0017, t01=0x006c}
0x247a…24be Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN15,W1,W1,RPOOL(PINDTB),W18 STORE ENDINDEX OF POOL «, t00=0x0017, t01=0x0098}
0x24be…24d6 Head {h00=0x0014, h01=0x0050, text=» SUB ELMNO,BIN16«, t00=0x0017, t01=0x00dc}
0x24d6…24ec Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x0017, t01=0x00f4}
0x24ec…251e Head {h00=0x002e, h01=0x0050, text=» TBT DOOL7,UPDSET24 JUMP IF NOT CURR FIELD«, t00=0x0017, t01=0x010a}
0x251e…253e Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0017, t01=0x013c}
0x253e…255e Head {h00=0x001c, h01=0x0050, text=» BZ UPDSET30 JUMP IF BCD«, t00=0x0017, t01=0x015c}
0x255e…2572 Head {h00=0x0010, h01=0x0050, text=» B UPDSET26 «, t00=0x0017, t01=0x017c}
0x2572…2582 Head {h00=0x000c, h01=0x0050, text=»UPDSET24«, t00=0x0017, t01=0x0190}
0x2582…25ae Head {h00=0x0028, h01=0x0050, text=» TBT ALPHA,UPDSET30 JUMP IF BCD-NUM «, t00=0x0018, t01=0x0010}
0x25ae…25be Head {h00=0x000c, h01=0x0050, text=»UPDSET26«, t00=0x0018, t01=0x003c}
0x25be…25e8 Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(PINDTB),W1«, t00=0x0018, t01=0x004c}
0x25e8…25f8 Head {h00=0x000c, h01=0x0050, text=»UPDSET28«, t00=0x0018, t01=0x0076}
0x25f8…2610 Head {h00=0x0014, h01=0x0050, text=» PERF DEEDIT,W4 «, t00=0x0018, t01=0x0086}
0x2610…2626 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN6,W0 «, t00=0x0018, t01=0x009e}
0x2626…2656 Head {h00=0x002c, h01=0x0050, text=» MATCH DEINPUT,BIN6,BIN8,STATSH,W0,BIN8 «, t00=0x0018, t01=0x00b4}
0x2656…266c Head {h00=0x0012, h01=0x0050, text=» BOK UPDSET40 «, t00=0x0018, t01=0x00e4}
0x266c…268a Head {h00=0x001a, h01=0x0050, text=» CBNE BIN9,W0,UPDSET15«, t00=0x0018, t01=0x00fa}
0x268a…26ac Head {h00=0x001e, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT«, t00=0x0018, t01=0x0118}
0x26ac…26de Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,W1 INCREMENT STARTINDEX OF POOL«, t00=0x0018, t01=0x013a}
0x26de…2714 Head {h00=0x0032, h01=0x0050, text=» CMP BIN16,BIN15 JUMP ALL EL. OF POOL COMPARED«, t00=0x0018, t01=0x016c}
0x2714…2736 Head {h00=0x001e, h01=0x0050, text=» BG DECN10 JUMP IF GRAETER«, t00=0x0019, t01=0x0012}
0x2736…274a Head {h00=0x0010, h01=0x0050, text=» B UPDSET28 «, t00=0x0019, t01=0x0034}
0x274a…275a Head {h00=0x000c, h01=0x0050, text=»UPDSET30«, t00=0x0019, t01=0x0048}
0x275a…2780 Head {h00=0x0022, h01=0x0050, text=» MOVE BCDI21(W2),FDVBCD(ELMNO)«, t00=0x0019, t01=0x0058}
0x2780…2792 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x0019, t01=0x007e}
0x2792…27a2 Head {h00=0x000c, h01=0x0050, text=»UPDSET40«, t00=0x0019, t01=0x0090}
0x27a2…27d0 Head {h00=0x002a, h01=0x0050, text=» MOVE VSEIND,BIN16 INDEX OF CURR BUFF «, t00=0x0019, t01=0x00a0}
0x27d0…27fc Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0019, t01=0x00ce}
0x27fc…281e Head {h00=0x001e, h01=0x0050, text=» CMP W0,W0 CONDITION ZERO «, t00=0x0019, t01=0x00fa}
0x281e…2830 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x0019, t01=0x011c}
0x2830…283a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012e}
0x283a…2848 Head {h00=0x000a, h01=0x0050, text=»UPDCOD«, t00=0x0019, t01=0x0138}
0x2848…2862 Head {h00=0x0016, h01=0x0050, text=» PERF DECOMP,BIN8 «, t00=0x0019, t01=0x0146}
0x2862…2874 Head {h00=0x000e, h01=0x0050, text=» B DECO05 «, t00=0x0019, t01=0x0160}
0x2874…287e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0172}
0x287e…288c Head {h00=0x000a, h01=0x0050, text=»UPDEMP«, t00=0x0019, t01=0x017c}
0x288c…28a8 Head {h00=0x0018, h01=0x0050, text=» CALL EMPTYT,DEINPUT«, t00=0x0019, t01=0x018a}
0x28a8…28ba Head {h00=0x000e, h01=0x0050, text=» BP DECEGL«, t00=0x001a, t01=0x0016}
0x28ba…28cc Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x001a, t01=0x0028}
0x28cc…28d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003a}
0x28d6…2908 Head {h00=0x002e, h01=0x0050, text=»* OPERAND IS VALUE-SET ELEMENT INDEX«, t00=0x001a, t01=0x0044}
0x2908…2912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0076}
0x2912…2920 Head {h00=0x000a, h01=0x0050, text=»UPDVSI«, t00=0x001a, t01=0x0080}
0x2920…2956 Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W2),VSEIND LOAD VALUE SET ELINDEX«, t00=0x001a, t01=0x008e}
0x2956…2968 Head {h00=0x000e, h01=0x0050, text=» B UPDN50 «, t00=0x001a, t01=0x00c4}
0x2968…2976 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00d6}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e4}
0x2980…29a6 Head {h00=0x0022, h01=0x0050, text=»UPDGOT GO TO VALIDATION (G) «, t00=0x001a, t01=0x00ee}
0x29a6…29d8 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x001a, t01=0x0114}
0x29d8…2a0a Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x001a, t01=0x0146}
0x2a0a…2a2e Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x001a, t01=0x0178}
0x2a2e…2a56 Head {h00=0x0024, h01=0x0050, text=» SET BOOL6 T=COND TAB FOUND (G) «, t00=0x001b, t01=0x000c}
0x2a56…2a88 Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN14,W1,W1,BPOOL(BIN11),BIN12 *JE «, t00=0x001b, t01=0x0034}
0x2a88…2ab2 Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFERPOINTER«, t00=0x001b, t01=0x0066}
0x2ab2…2ac4 Head {h00=0x000e, h01=0x0050, text=» B UPDV00 «, t00=0x001b, t01=0x0090}
0x2ac4…2ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a2}
0x2ace…2afc Head {h00=0x002a, h01=0x0050, text=»UPDFOR CHANGE FORMAT VALIDATION (R) «, t00=0x001b, t01=0x00ac}
0x2afc…2b14 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W4«, t00=0x001b, t01=0x00da}
0x2b14…2b46 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) «, t00=0x001b, t01=0x00f2}
0x2b46…2b72 Head {h00=0x0028, h01=0x0050, text=» SET BOOL4 T=COND FORM CH FOUND (R) «, t00=0x001b, t01=0x0124}
0x2b72…2b84 Head {h00=0x000e, h01=0x0050, text=» B UPDFO2 «, t00=0x001b, t01=0x0150}
0x2b84…2b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0162}
0x2b8e…2bbc Head {h00=0x002a, h01=0x0050, text=»UPDFON CHANGE FORMAT VALIDATION (N) «, t00=0x001b, t01=0x016c}
0x2bbc…2bd8 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,W3 (N)«, t00=0x001c, t01=0x000a}
0x2bd8…2c0a Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) «, t00=0x001c, t01=0x0026}
0x2c0a…2c3a Head {h00=0x002c, h01=0x0050, text=» SET BOOL8 T=COND FORM CHANGE FOUND (N) «, t00=0x001c, t01=0x0058}
0x2c3a…2c48 Head {h00=0x000a, h01=0x0050, text=»UPDFO2«, t00=0x001c, t01=0x0088}
0x2c48…2c70 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL6 F=NO COND TAB FOUND«, t00=0x001c, t01=0x0096}
0x2c70…2c9a Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADUST BUFFER POINTER«, t00=0x001c, t01=0x00be}
0x2c9a…2cb8 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x001c, t01=0x00e8}
0x2cb8…2cf8 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS«, t00=0x001c, t01=0x0106}
0x2cf8…2d26 Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W128 ADJUST LIT.-INDICATOR «, t00=0x001c, t01=0x0146}
0x2d26…2d52 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFER POINTER «, t00=0x001c, t01=0x0174}
0x2d52…2d76 Head {h00=0x0020, h01=0x0050, text=» MOVE STSAVE(DEBINW4),HEX00 «, t00=0x001d, t01=0x0010}
0x2d76…2db0 Head {h00=0x0036, h01=0x0050, text=» XCOPY STSAVE(DEBINW4),W0,BIN16,BPOOL(BIN11),BIN12«, t00=0x001d, t01=0x0034}
0x2db0…2de2 Head {h00=0x002e, h01=0x0050, text=» ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS «, t00=0x001d, t01=0x006e}
0x2de2…2dfa Head {h00=0x0014, h01=0x0050, text=» B UPDV00 GO ON «, t00=0x001d, t01=0x00a0}
0x2dfa…2e08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00b8}
0x2e08…2e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e12…2e20 Head {h00=0x000a, h01=0x0050, text=»UPDNUM«, t00=0x001d, t01=0x00d0}
0x2e20…2e3a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x001d, t01=0x00de}
0x2e3a…2e58 Head {h00=0x001a, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN8«, t00=0x001d, t01=0x00f8}
0x2e58…2e70 Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='?'«, t00=0x001d, t01=0x0116}
0x2e70…2e9e Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,BIN12 SAVE CURRENT POINTER«, t00=0x001d, t01=0x012e}
0x2e9e…2ed4 Head {h00=0x0032, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN10,DEBINW1,STR1A,W0,W1 «, t00=0x001d, t01=0x015c}
0x2ed4…2efa (30, 0, 400) Head {h00=0x0022, h01=0x0050, text=» BNOK UPDN06 JUMP IF NO '?':S «, t00=0x001e, t01=0x0004}
0x2efa…2f28 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN8,W0 COUNTER NUMB OF MATCHES «, t00=0x001e, t01=0x002a}
0x2f28…2f5a Head {h00=0x002e, h01=0x0050, text=» MOVE BIN10,DEBINW1 LOAD EFF. INPUT LENGTH«, t00=0x001e, t01=0x0058}
0x2f5a…2f86 Head {h00=0x0028, h01=0x0050, text=» MATCH DEINPUT,BIN10,W1,HEX00,W0,W1 «, t00=0x001e, t01=0x008a}
0x2f86…2faa Head {h00=0x0020, h01=0x0050, text=» BOK UPDN01 JUMP IF NO SIGN «, t00=0x001e, t01=0x00b6}
0x2faa…2fd0 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN8,W1 ADJUST FOR SIGN «, t00=0x001e, t01=0x00da}
0x2fd0…2fde Head {h00=0x000a, h01=0x0050, text=»UPDN01«, t00=0x001e, t01=0x0100}
0x2fde…2ff6 Head {h00=0x0014, h01=0x0050, text=» ADD BIN9,BIN12 «, t00=0x001e, t01=0x010e}
0x2ff6…3004 Head {h00=0x000a, h01=0x0050, text=»UPDN00«, t00=0x001e, t01=0x0126}
0x3004…301c Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,BIN8«, t00=0x001e, t01=0x0134}
0x301c…3052 Head {h00=0x0032, h01=0x0050, text=» MATCH DEINPUT,BIN10,W1,BPOOL(BIN11),BIN12,W1 «, t00=0x001e, t01=0x014c}
0x3052…3078 Head {h00=0x0022, h01=0x0050, text=» BNOK UPDN04 NOT OK MAYBE '?' «, t00=0x001e, t01=0x0182}
0x3078…3086 Head {h00=0x000a, h01=0x0050, text=»UPDN02«, t00=0x001f, t01=0x0018}
0x3086…30ac Head {h00=0x0022, h01=0x0050, text=» ADD BIN8,W1 INCREMENT COUNTER«, t00=0x001f, t01=0x0026}
0x30ac…30de Head {h00=0x002e, h01=0x0050, text=» CBE BIN8,DEBINW1,UPDN30 ALL CHARS MATCHED«, t00=0x001f, t01=0x004c}
0x30de…3102 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x001f, t01=0x007e}
0x3102…3120 Head {h00=0x001a, h01=0x0050, text=» B UPDN00 GO ON MATCH «, t00=0x001f, t01=0x00a2}
0x3120…312e Head {h00=0x000a, h01=0x0050, text=»UPDN04«, t00=0x001f, t01=0x00c0}
0x312e…3158 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN10,BIN12 LOAD MATCH POINT«, t00=0x001f, t01=0x00ce}
0x3158…3188 Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN10,W1,STR1A,W0,W1«, t00=0x001f, t01=0x00f8}
0x3188…31ac Head {h00=0x0020, h01=0x0050, text=» BOK UPDN02 GO ON '?' FOUND «, t00=0x001f, t01=0x0128}
0x31ac…31be Head {h00=0x000e, h01=0x0050, text=» B UPDN30 «, t00=0x001f, t01=0x014c}
0x31be…31cc Head {h00=0x000a, h01=0x0050, text=»UPDN06«, t00=0x001f, t01=0x015e}
0x31cc…31e2 Head {h00=0x0012, h01=0x0050, text=» CLEAR DOOL7 «, t00=0x001f, t01=0x016c}
0x31e2…320c Head {h00=0x0026, h01=0x0050, text=» BNZ UPDN10 JUMP IF NOT CURR FIELD«, t00=0x001f, t01=0x0182}
0x320c…322c Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0020, t01=0x001c}
0x322c…324e Head {h00=0x001e, h01=0x0050, text=» BZ UPDN40 JUMP IF NUMERIC«, t00=0x0020, t01=0x003c}
0x324e…326e Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW1,BIN9,UPDN20«, t00=0x0020, t01=0x005e}
0x326e…329c Head {h00=0x002a, h01=0x0050, text=» ADD BIN12,BIN9 ADJUST POINTER IN FVAL«, t00=0x0020, t01=0x007e}
0x329c…32ae Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0020, t01=0x00ac}
0x32ae…32bc Head {h00=0x000a, h01=0x0050, text=»UPDN10«, t00=0x0020, t01=0x00be}
0x32bc…32e6 Head {h00=0x0026, h01=0x0050, text=» TBT ALPHA,UPDN40 JUMP IF BCD-NUM «, t00=0x0020, t01=0x00cc}
0x32e6…32f4 Head {h00=0x000a, h01=0x0050, text=»UPDN20«, t00=0x0020, t01=0x00f6}
0x32f4…330a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0020, t01=0x0104}
0x330a…3322 Head {h00=0x0014, h01=0x0050, text=» ADD BIN9,BIN12 «, t00=0x0020, t01=0x011a}
0x3322…3362 Head {h00=0x003c, h01=0x0050, text=» MATCH DEINPUT,BIN10,DEBINW1,BPOOL(BIN11),BIN12,DEBINW1 «, t00=0x0020, t01=0x0132}
0x3362…3370 Head {h00=0x000a, h01=0x0050, text=»UPDN30«, t00=0x0020, t01=0x0172}
0x3370…3388 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN12,BIN9«, t00=0x0020, t01=0x0180}
0x3388…339c Head {h00=0x0010, h01=0x0050, text=» BOK DECEGL «, t00=0x0021, t01=0x0008}
0x339c…33ae Head {h00=0x000e, h01=0x0050, text=» B DECNOT «, t00=0x0021, t01=0x001c}
0x33ae…33c6 Head {h00=0x0014, h01=0x0050, text=»UPDN40 NUMERIC«, t00=0x0021, t01=0x002e}
0x33c6…33e0 Head {h00=0x0016, h01=0x0050, text=» MOVE STR64A,HEX00«, t00=0x0021, t01=0x0046}
0x33e0…3410 Head {h00=0x002c, h01=0x0050, text=» COPY STR64A,W0,BIN9,BPOOL(BIN11),BIN12 «, t00=0x0021, t01=0x0060}
0x3410…3430 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W2),STR64A «, t00=0x0021, t01=0x0090}
0x3430…3448 Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x0021, t01=0x00b0}
0x3448…3456 Head {h00=0x000a, h01=0x0050, text=»UPDN50«, t00=0x0021, t01=0x00c8}
0x3456…346a Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x0021, t01=0x00d6}
0x346a…347c Head {h00=0x000e, h01=0x0050, text=» BZ UPDN55«, t00=0x0021, t01=0x00ea}
0x347c…349e Head {h00=0x001e, h01=0x0050, text=» CALL CLEARB,BCDI21(W2),W1«, t00=0x0021, t01=0x00fc}
0x349e…34be Head {h00=0x001c, h01=0x0050, text=» CALL SETB,BCDI21(W2),W2«, t00=0x0021, t01=0x011e}
0x34be…34cc Head {h00=0x000a, h01=0x0050, text=»UPDN55«, t00=0x0021, t01=0x013e}
0x34cc…34f2 Head {h00=0x0022, h01=0x0050, text=» IB BIN6,UPDN60,UPDN70,UPDN80 «, t00=0x0021, t01=0x014c}
0x34f2…3514 Head {h00=0x001e, h01=0x0050, text=» ADD BCDI21(W1),BCDI21(W2)«, t00=0x0021, t01=0x0172}
0x3514…3526 (34, 0, 398) Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0022, t01=0x0004}
0x3526…354e Head {h00=0x0024, h01=0x0050, text=»UPDN60 SUB BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x0016}
0x354e…3560 Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0022, t01=0x003e}
0x3560…3588 Head {h00=0x0024, h01=0x0050, text=»UPDN70 MUL BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x0050}
0x3588…359a Head {h00=0x000e, h01=0x0050, text=» B UPDN90 «, t00=0x0022, t01=0x0078}
0x359a…35c2 Head {h00=0x0024, h01=0x0050, text=»UPDN80 DIV BCDI21(W1),BCDI21(W2)«, t00=0x0022, t01=0x008a}
0x35c2…35de Head {h00=0x0018, h01=0x0050, text=»UPDN90 MOVE BIN6,W0 «, t00=0x0022, t01=0x00b2}
0x35de…360e Head {h00=0x002c, h01=0x0050, text=» CBNL BIN12,BIN13,UPDN95 JUMP IF END OF «, t00=0x0022, t01=0x00ce}
0x360e…362a Head {h00=0x0018, h01=0x0050, text=» VALIDATION STRING«, t00=0x0022, t01=0x00fe}
0x362a…3646 Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,='+-*:'«, t00=0x0022, t01=0x011a}
0x3646…367a Head {h00=0x0030, h01=0x0050, text=» MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 «, t00=0x0022, t01=0x0136}
0x367a…36a6 Head {h00=0x0028, h01=0x0050, text=» BOK UPDV35 JUMP IF ARITHMETIC SIGN «, t00=0x0022, t01=0x016a}
0x36a6…36b4 Head {h00=0x000a, h01=0x0050, text=»UPDN95«, t00=0x0023, t01=0x0008}
0x36b4…36d4 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W2),DEINPUT«, t00=0x0023, t01=0x0016}
0x36d4…36f6 Head {h00=0x001e, h01=0x0050, text=» CMP BCDI21(W2),BCDI21(W1)«, t00=0x0023, t01=0x0036}
0x36f6…3704 Head {h00=0x000a, h01=0x0050, text=»DECO05«, t00=0x0023, t01=0x0058}
0x3704…373e Head {h00=0x0036, h01=0x0050, text=» IB BIN5,DECO10,DECO20 JUMP ON COMPARE-SIGN-INDEX «, t00=0x0023, t01=0x0066}
0x373e…3752 Head {h00=0x0010, h01=0x0050, text=» BZ DECEGL =«, t00=0x0023, t01=0x00a0}
0x3752…3766 Head {h00=0x0010, h01=0x0050, text=» B DECNOT /=«, t00=0x0023, t01=0x00b4}
0x3766…3774 Head {h00=0x000a, h01=0x0050, text=»DECO10«, t00=0x0023, t01=0x00c8}
0x3774…378a Head {h00=0x0012, h01=0x0050, text=» BEOF DECEGL >«, t00=0x0023, t01=0x00d6}
0x378a…379e Head {h00=0x0010, h01=0x0050, text=» B DECNOT />«, t00=0x0023, t01=0x00ec}
0x379e…37ac Head {h00=0x000a, h01=0x0050, text=»DECO20«, t00=0x0023, t01=0x0100}
0x37ac…37c2 Head {h00=0x0012, h01=0x0050, text=» BERR DECEGL <«, t00=0x0023, t01=0x010e}
0x37c2…37d0 Head {h00=0x000a, h01=0x0050, text=» /< «, t00=0x0023, t01=0x0124}
0x37d0…37ea Head {h00=0x0016, h01=0x0050, text=»DECNOT CLEAR DOOL1«, t00=0x0023, t01=0x0132}
0x37ea…3804 Head {h00=0x0016, h01=0x0050, text=» BNZ DECOOK VALID «, t00=0x0023, t01=0x014c}
0x3804…3832 Head {h00=0x002a, h01=0x0050, text=» CBE PINDTB,W0,DECONO JUMP IF NOT SET «, t00=0x0023, t01=0x0166}
0x3832…385c (36, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CMP BIN9,W0 LOOK IF ALL ELEMENTS «, t00=0x0024, t01=0x0004}
0x385c…387e Head {h00=0x001e, h01=0x0050, text=» BNZ UPDSET15 JUMP IF NOT «, t00=0x0024, t01=0x002e}
0x387e…38a0 Head {h00=0x001e, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT«, t00=0x0024, t01=0x0050}
0x38a0…38d2 Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,W1 INCREMENT STARTINDEX OF POOL«, t00=0x0024, t01=0x0072}
0x38d2…3910 Head {h00=0x003a, h01=0x0050, text=» CBG BIN16,BIN15,DECN10 JUMP ALL EL. OF POOL COMPARED«, t00=0x0024, t01=0x00a4}
0x3910…394a Head {h00=0x0036, h01=0x0050, text=» MOVE BCDI21(W1),FDVBCD(ELMNO) NEXT ELEMENT VALUE «, t00=0x0024, t01=0x00e2}
0x394a…396e Head {h00=0x0020, h01=0x0050, text=» B UPDN95 GO ON NEXT COMPARE«, t00=0x0024, t01=0x011c}
0x396e…397c Head {h00=0x000a, h01=0x0050, text=»DECN10«, t00=0x0024, t01=0x0140}
0x397c…39bc Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN15,W0,W2,RPOOL(PINDTB),W13 FETCH LINK FORWARD «, t00=0x0024, t01=0x014e}
0x39bc…39f0 Head {h00=0x0030, h01=0x0050, text=» CMP BIN15,W0 JUMP IF WHOLE TABLE VALIDATED «, t00=0x0024, t01=0x018e}
0x39f0…3a12 Head {h00=0x001e, h01=0x0050, text=» BE UPDSET15 JUMP IF EQUAL«, t00=0x0025, t01=0x0032}
0x3a12…3a4a Head {h00=0x0034, h01=0x0050, text=» MOVE ELMNO,BIN16 LOAD SAERCH ELEMENT NEXT SEGM.«, t00=0x0025, t01=0x0054}
0x3a4a…3a7e Head {h00=0x0030, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A RELEASE«, t00=0x0025, t01=0x008c}
0x3a7e…3aaa Head {h00=0x0028, h01=0x0050, text=» B UPDSET10 GO ON READ NEXT SEGMENT «, t00=0x0025, t01=0x00c0}
0x3aaa…3ac4 Head {h00=0x0016, h01=0x0050, text=»DECEGL CLEAR DOOL1«, t00=0x0025, t01=0x00ec}
0x3ac4…3adc Head {h00=0x0014, h01=0x0050, text=» BZ DECOTK VALID«, t00=0x0025, t01=0x0106}
0x3adc…3aea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x011e}
0x3aea…3af8 Head {h00=0x000a, h01=0x0050, text=»DECONO«, t00=0x0025, t01=0x012c}
0x3af8…3b14 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN10,W21 V OR«, t00=0x0025, t01=0x013a}
0x3b14…3b44 Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,DECOMT JUMP IF COND TAB FOUND«, t00=0x0025, t01=0x0156}
0x3b44…3b76 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL8,DECOMT JUMP IF RECORD CH FOUND «, t00=0x0025, t01=0x0186}
0x3b76…3ba8 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL4,DECOMT JUMP IF RECORD CH FOUND «, t00=0x0026, t01=0x0028}
0x3ba8…3bca Head {h00=0x001e, h01=0x0050, text=» SET DOOLB ITEM NOT VALID «, t00=0x0026, t01=0x005a}
0x3bca…3bdc Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x0026, t01=0x007c}
0x3bdc…3bea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x008e}
0x3bea…3bf8 Head {h00=0x000a, h01=0x0050, text=»DECOTK«, t00=0x0026, t01=0x009c}
0x3bf8…3c34 Head {h00=0x0038, h01=0x0050, text=» CBE PINDTB,W0,DECOOK JUMP IF EOF VALUE-SET/NO VSET «, t00=0x0026, t01=0x00aa}
0x3c34…3c62 Head {h00=0x002a, h01=0x0050, text=» MOVE VSEIND,BIN16 INDEX OF CURR BUFF «, t00=0x0026, t01=0x00e6}
0x3c62…3c70 Head {h00=0x000a, h01=0x0050, text=»DECOOK«, t00=0x0026, t01=0x0114}
0x3c70…3c8a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN10,W20 & «, t00=0x0026, t01=0x0122}
0x3c8a…3caa Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ITEM VALID «, t00=0x0026, t01=0x013c}
0x3caa…3cb8 Head {h00=0x000a, h01=0x0050, text=»DECOMT«, t00=0x0026, t01=0x015c}
0x3cb8…3ccc Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0026, t01=0x016a}
0x3ccc…3cea Head {h00=0x001a, h01=0x0050, text=» CBE PINDTB,W0,DECO33 «, t00=0x0026, t01=0x017e}
0x3cea…3d16 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0027, t01=0x000c}
0x3d16…3d3c Head {h00=0x0022, h01=0x0050, text=»DECO33 CBNL BIN12,BIN13,DECEND«, t00=0x0027, t01=0x0038}
0x3d3c…3d52 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0027, t01=0x005e}
0x3d52…3d6c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN16,=W'29'«, t00=0x0027, t01=0x0074}
0x3d6c…3da2 Head {h00=0x0032, h01=0x0050, text=» MATCH VALSTR,BIN9,BIN16,BPOOL(BIN11),BIN12,W1«, t00=0x0027, t01=0x008e}
0x3da2…3db6 Head {h00=0x0010, h01=0x0050, text=» BOK DECO40 «, t00=0x0027, t01=0x00c4}
0x3db6…3dc4 Head {h00=0x000a, h01=0x0050, text=»DECO35«, t00=0x0027, t01=0x00d8}
0x3dc4…3df0 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0027, t01=0x00e6}
0x3df0…3e0c Head {h00=0x0018, h01=0x0050, text=» CALL TESTB,BIN8,W8 «, t00=0x0027, t01=0x0112}
0x3e0c…3e1e Head {h00=0x000e, h01=0x0050, text=» BZ DECO38«, t00=0x0027, t01=0x012e}
0x3e1e…3e38 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,=X'3F' «, t00=0x0027, t01=0x0140}
0x3e38…3e56 Head {h00=0x001a, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN8«, t00=0x0027, t01=0x015a}
0x3e56…3e6e Head {h00=0x0014, h01=0x0050, text=» ADD BIN12,BIN9 «, t00=0x0027, t01=0x0178}
0x3e6e…3e7c Head {h00=0x000a, h01=0x0050, text=»DECO38«, t00=0x0027, t01=0x0190}
0x3e7c…3e92 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0028, t01=0x000e}
0x3e92…3ea4 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x0028, t01=0x0024}
0x3ea4…3ebe Head {h00=0x0016, h01=0x0050, text=»DECO39 ';' FOUND«, t00=0x0028, t01=0x0036}
0x3ebe…3eec Head {h00=0x002a, h01=0x0050, text=» PERF DENVCO CONDITIONAL BOOL SETTING «, t00=0x0028, t01=0x0050}
0x3eec…3f02 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0028, t01=0x007e}
0x3f02…3f30 Head {h00=0x002a, h01=0x0050, text=» CBNL BIN12,BIN13,DECEND END OF STRING«, t00=0x0028, t01=0x0094}
0x3f30…3f46 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0028, t01=0x00c2}
0x3f46…3f62 Head {h00=0x0018, h01=0x0050, text=» MOVE STR6B,=C'DGRN'«, t00=0x0028, t01=0x00d8}
0x3f62…3f94 Head {h00=0x002e, h01=0x0050, text=» MATCH STR6B,BIN9,W4,BPOOL(BIN11),BIN12,W1«, t00=0x0028, t01=0x00f4}
0x3f94…3fa8 Head {h00=0x0010, h01=0x0050, text=» BNOK DECERR«, t00=0x0028, t01=0x0126}
0x3fa8…3fc2 Head {h00=0x0016, h01=0x0050, text=» TBT DOOLB,DECEND «, t00=0x0028, t01=0x013a}
0x3fc2…3fe8 Head {h00=0x0022, h01=0x0050, text=» IB BIN9,UPDGOT,UPDFOR,UPDFON «, t00=0x0028, t01=0x0154}
0x3fe8…3ffa Head {h00=0x000e, h01=0x0050, text=» B UPDV25 «, t00=0x0028, t01=0x017a}
0x3ffa…4008 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x018c}
0x4008…4016 Head {h00=0x000a, h01=0x0050, text=»DECO40«, t00=0x0029, t01=0x000a}
0x4016…404c Head {h00=0x0032, h01=0x0050, text=» IB BIN9,DECO41,DECO41,DECO41,DECO41,DECO41 C«, t00=0x0029, t01=0x0018}
0x404c…4060 Head {h00=0x0010, h01=0x0050, text=» DECO42 C «, t00=0x0029, t01=0x004e}
0x4060…4074 Head {h00=0x0010, h01=0x0050, text=» DECO41 C «, t00=0x0029, t01=0x0062}
0x4074…4096 Head {h00=0x001e, h01=0x0050, text=» DECO42,DECO42,DECO42 C «, t00=0x0029, t01=0x0076}
0x4096…40b8 Head {h00=0x001e, h01=0x0050, text=» DECO42,DECO42,DECO42 C «, t00=0x0029, t01=0x0098}
0x40b8…40da Head {h00=0x001e, h01=0x0050, text=» DECO41,DECO41,DECO41 C «, t00=0x0029, t01=0x00ba}
0x40da…40fa Head {h00=0x001c, h01=0x0050, text=» DECO41,DECO41 17-18 C «, t00=0x0029, t01=0x00dc}
0x40fa…4112 Head {h00=0x0014, h01=0x0050, text=» DECO39 19=; C «, t00=0x0029, t01=0x00fc}
0x4112…4132 Head {h00=0x001c, h01=0x0050, text=» DECO43,DECO43, 20-21 C«, t00=0x0029, t01=0x0114}
0x4132…415a Head {h00=0x0024, h01=0x0050, text=» DECO41,DECO41,DECO41, 22-24 C «, t00=0x0029, t01=0x0134}
0x415a…4182 Head {h00=0x0024, h01=0x0050, text=» DECO42,DECO46,DECO46, 25-27 C «, t00=0x0029, t01=0x015c}
0x4182…4192 Head {h00=0x000c, h01=0x0050, text=» DECO41«, t00=0x0029, t01=0x0184}
0x4192…41b0 (42, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ADD BIN12,W1 MESSAGE «, t00=0x002a, t01=0x0004}
0x41b0…41c2 Head {h00=0x000e, h01=0x0050, text=» B DECO35 «, t00=0x002a, t01=0x0022}
0x41c2…41d0 Head {h00=0x000a, h01=0x0050, text=»DECO43«, t00=0x002a, t01=0x0034}
0x41d0…41f0 Head {h00=0x001c, h01=0x0050, text=» CBNE BIN9,BIN10,DECO44 «, t00=0x002a, t01=0x0042}
0x41f0…4214 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 ADJUST POINTER«, t00=0x002a, t01=0x0062}
0x4214…4226 Head {h00=0x000e, h01=0x0050, text=» B UPDV00 «, t00=0x002a, t01=0x0086}
0x4226…4234 Head {h00=0x000a, h01=0x0050, text=»DECO44«, t00=0x002a, t01=0x0098}
0x4234…4252 Head {h00=0x001a, h01=0x0050, text=» CBE BIN10,W20,DEC050 «, t00=0x002a, t01=0x00a6}
0x4252…4260 Head {h00=0x000a, h01=0x0050, text=»DECO41«, t00=0x002a, t01=0x00c4}
0x4260…4276 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002a, t01=0x00d2}
0x4276…4288 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002a, t01=0x00e8}
0x4288…4296 Head {h00=0x000a, h01=0x0050, text=»DECO42«, t00=0x002a, t01=0x00fa}
0x4296…42ac Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W2 «, t00=0x002a, t01=0x0108}
0x42ac…42be Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002a, t01=0x011e}
0x42be…42cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0130}
0x42cc…42f2 Head {h00=0x0022, h01=0x0050, text=»DECO46 CONDITIONAL FORMAT CH«, t00=0x002a, t01=0x013e}
0x42f2…431c Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,W1 ADUST BUFFER POINTER«, t00=0x002a, t01=0x0164}
0x431c…433a Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x002a, t01=0x018e}
0x433a…437a Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS«, t00=0x002b, t01=0x001c}
0x437a…43a8 Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W128 ADJUST LIT.-INDICATOR «, t00=0x002b, t01=0x005c}
0x43a8…43d4 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 ADJUST BUFFER POINTER «, t00=0x002b, t01=0x008a}
0x43d4…4406 Head {h00=0x002e, h01=0x0050, text=» ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS «, t00=0x002b, t01=0x00b6}
0x4406…4418 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002b, t01=0x00e8}
0x4418…4426 Head {h00=0x000a, h01=0x0050, text=»DEC050«, t00=0x002b, t01=0x00fa}
0x4426…4454 Head {h00=0x002a, h01=0x0050, text=» PERF DENVCO CONDITIONAL BOOL SETTING «, t00=0x002b, t01=0x0108}
0x4454…4466 Head {h00=0x000e, h01=0x0050, text=» B DECOMT «, t00=0x002b, t01=0x0136}
0x4466…4474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0148}
0x4474…4482 Head {h00=0x000a, h01=0x0050, text=»DECERR«, t00=0x002b, t01=0x0156}
0x4482…4494 Head {h00=0x000e, h01=0x0050, text=» SET DOOLB«, t00=0x002b, t01=0x0164}
0x4494…44bc Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W2 UNDEFINED ERROR«, t00=0x002b, t01=0x0176}
0x44bc…44d2 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x002c, t01=0x000e}
0x44d2…44ec Head {h00=0x0016, h01=0x0050, text=»DECEND CLEAR DOOL4«, t00=0x002c, t01=0x0024}
0x44ec…44fe Head {h00=0x000e, h01=0x0050, text=» BZ DECE10«, t00=0x002c, t01=0x003e}
0x44fe…4532 Head {h00=0x0030, h01=0x0050, text=»* RESTORE POINTERS TO VAL-STRING «, t00=0x002c, t01=0x0050}
0x4532…454e Head {h00=0x0018, h01=0x0050, text=» MOVE BIN11,WORK(W6)«, t00=0x002c, t01=0x0084}
0x454e…456a Head {h00=0x0018, h01=0x0050, text=» MOVE BIN12,WORK(W7)«, t00=0x002c, t01=0x00a0}
0x456a…4586 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,WORK(W8)«, t00=0x002c, t01=0x00bc}
0x4586…459c Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x002c, t01=0x00d8}
0x459c…45ca Head {h00=0x002a, h01=0x0050, text=» GETFLD 0,DEBINW3,BIN9 GET INIT. FIELD«, t00=0x002c, t01=0x00ee}
0x45ca…45d8 Head {h00=0x000a, h01=0x0050, text=»UPDRET«, t00=0x002c, t01=0x011c}
0x45d8…45e6 Head {h00=0x000a, h01=0x0050, text=»DECE10«, t00=0x002c, t01=0x012a}
0x45e6…4600 Head {h00=0x0016, h01=0x0050, text=» TBF DOOLB,DECE20 «, t00=0x002c, t01=0x0138}
0x4600…461e Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W2,DECE30«, t00=0x002c, t01=0x0152}
0x461e…462c Head {h00=0x000a, h01=0x0050, text=»DECE20«, t00=0x002c, t01=0x0170}
0x462c…464e Head {h00=0x001e, h01=0x0050, text=» CBE BIN10,W20,DEC050 '&' «, t00=0x002c, t01=0x017e}
0x464e…465c Head {h00=0x000a, h01=0x0050, text=»DECE30«, t00=0x002d, t01=0x0010}
0x465c…4690 Head {h00=0x0030, h01=0x0050, text=» MOVE DEINPUT,STATSH RESTORE KEYED IN VALUE «, t00=0x002d, t01=0x001e}
0x4690…46c0 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW3,NUMBER CURRENT REC.NUMBER «, t00=0x002d, t01=0x0052}
0x46c0…46ec Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW3,W0,UPDR05 NOT BATCHHEAD«, t00=0x002d, t01=0x0082}
0x46ec…471a Head {h00=0x002a, h01=0x0050, text=» CBG DEBINW3,BDPOIN(W2),UPDR10 JUMP IF«, t00=0x002d, t01=0x00ae}
0x471a…4738 Head {h00=0x001a, h01=0x0050, text=» ENTRY OF NEW RECORD«, t00=0x002d, t01=0x00dc}
0x4738…475e Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL3 CHANGE FORMAT (R)«, t00=0x002d, t01=0x00fa}
0x475e…4786 Head {h00=0x0024, h01=0x0050, text=» TBT DOOL2,UPDR10 JUMP IF INSERT«, t00=0x002d, t01=0x0120}
0x4786…4794 Head {h00=0x000a, h01=0x0050, text=»UPDR05«, t00=0x002d, t01=0x0148}
0x4794…47b6 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOLS FOR FORMAT «, t00=0x002d, t01=0x0156}
0x47b6…47e0 Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL7 CHANGE IN CORRECTION «, t00=0x002d, t01=0x0178}
0x47e0…47fc Head {h00=0x0018, h01=0x0050, text=» OR IF BATCHEAD=N «, t00=0x002e, t01=0x0012}
0x47fc…480a Head {h00=0x000a, h01=0x0050, text=»UPDR10«, t00=0x002e, t01=0x002e}
0x480a…4820 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x002e, t01=0x003c}
0x4820…4842 Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN11,W1,W1,BIN3,W0«, t00=0x002e, t01=0x0052}
0x4842…4862 Head {h00=0x001c, h01=0x0050, text=» XCOPY BIN3,W0,W1,W0,W0 «, t00=0x002e, t01=0x0074}
0x4862…4870 Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x002e, t01=0x0094}
0x4870…4890 Head {h00=0x001c, h01=0x0050, text=» CLEAR REWRT UPDFLD = 1?«, t00=0x002e, t01=0x00a2}
0x4890…48a8 Head {h00=0x0014, h01=0x0050, text=» BNZ UPDR30 YES!«, t00=0x002e, t01=0x00c2}
0x48a8…48c0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x002e, t01=0x00da}
0x48c0…48d2 Head {h00=0x000e, h01=0x0050, text=» B UPDR40 «, t00=0x002e, t01=0x00f2}
0x48d2…48e0 Head {h00=0x000a, h01=0x0050, text=»UPDR30«, t00=0x002e, t01=0x0104}
0x48e0…48f8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x002e, t01=0x0112}
0x48f8…4906 Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x002e, t01=0x012a}
0x4906…4938 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH«, t00=0x002e, t01=0x0138}
0x4938…4944 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x016a}
0x4944…4952 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x0176}
0x4952…4966 Head {h00=0x0010, h01=0x0050, text=»DENVCO PROC «, t00=0x002e, t01=0x0184}
0x4966…497c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x002f, t01=0x0008}
0x497c…49a6 Head {h00=0x0026, h01=0x0050, text=» TBT BOOL6,DECOFG JUMP IF COND TAB«, t00=0x002f, t01=0x001e}
0x49a6…49d8 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL8,DECOFN JUMP IF RECORD CH FOUND «, t00=0x002f, t01=0x0048}
0x49d8…4a0e Head {h00=0x0032, h01=0x0050, text=» TBT BOOL4,DECOFR JUMP IF RECORD CHANGE FOUND «, t00=0x002f, t01=0x007a}
0x4a0e…4a1a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x00b0}
0x4a1a…4a28 Head {h00=0x000a, h01=0x0050, text=»DECOFG«, t00=0x002f, t01=0x00bc}
0x4a28…4a4c Head {h00=0x0020, h01=0x0050, text=» SET BOOL5 T=VALID COND TAB «, t00=0x002f, t01=0x00ca}
0x4a4c…4a58 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x00ee}
0x4a58…4a66 Head {h00=0x000a, h01=0x0050, text=»DECOFN«, t00=0x002f, t01=0x00fa}
0x4a66…4a92 Head {h00=0x0028, h01=0x0050, text=» SET BOOL7 T=VALID RECORD CHANGE (N)«, t00=0x002f, t01=0x0108}
0x4a92…4a9e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0134}
0x4a9e…4aac Head {h00=0x000a, h01=0x0050, text=»DECOFR«, t00=0x002f, t01=0x0140}
0x4aac…4ad8 Head {h00=0x0028, h01=0x0050, text=» SET BOOL3 T=VALID RECORD CHANGE (R)«, t00=0x002f, t01=0x014e}
0x4ad8…4ae4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x017a}
0x4ae4…4af2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0186}
0x4af2…4afe (48, 2, 20) Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0030, t01=0x0004}
0x4afe…4b02 Head {h00=0x4004, h01=0x0000}
0x4b02…4b06 00 30 00 10 ┆ 0 ┆
0x4b06…4b0e (49, 1, 8) 20 04 00 00 00 31 00 04 ┆ 1 ┆
0x4b0e…4b5e (50, 0, 400) 00 0f 00 06 0c 12 14 16 18 1a 1c 1e 24 2a 30 32 34 30 3c 20 95 34 01 30 3c 22 95 34 01 30 3d 22 95 34 01 34 01 34 01 34 01 34 01 34 01 34 01 30 3e 95 86 34 01 30 3f 95 86 34 01 30 40 95 86 34 01 34 01 34 01 34 01 00 96 21 48 79 15 30 16 d0 ┆ $*0240< 4 0<" 4 0=" 4 4 4 4 4 4 4 0> 4 0? 4 0@ 4 4 4 4 !Hy 0 ┆
0x4b5e…4bae 80 15 d0 9e 00 98 d1 22 48 7a 07 30 16 80 80 15 80 9d 00 93 33 34 00 00 01 55 00 91 20 00 92 20 00 93 20 6a 92 20 21 00 21 30 07 92 93 50 09 62 01 91 21 5b 93 02 91 21 02 93 21 18 93 28 16 34 02 6a 00 21 00 14 02 04 00 14 02 1f 00 14 00 f0 ┆ "Hz 0 34 U j ! !0 P b ![ ! ! ( 4 j ! ┆
0x4bae…4bfe 00 14 02 d0 00 14 01 a3 00 14 02 f2 00 14 02 12 00 14 02 fe 00 14 01 ca 00 14 02 59 00 14 02 76 00 14 01 e4 00 14 01 e8 00 14 02 e6 00 14 03 08 00 14 01 42 00 14 03 e4 00 14 02 73 00 14 04 26 00 14 02 55 00 14 02 41 00 14 03 40 00 14 03 ee ┆ Y v B s & U A @ ┆
0x4bfe…4c4e 00 14 03 61 00 14 03 d7 00 14 03 af 00 14 03 c1 00 14 03 9a 00 14 03 a8 00 14 01 03 00 14 01 11 00 14 04 6b 00 14 04 8f 00 15 00 05 00 0e 00 11 00 0e 00 17 00 0e 00 0a 03 52 00 0a 02 20 00 0b 03 05 00 00 02 e2 00 00 00 8d 00 07 05 49 00 00 ┆ a k R I ┆
0x4c4e…4c9e 01 f1 00 00 02 31 00 14 06 27 00 0e 00 0e 00 0d 02 ab 00 0d 00 0e 00 0a 02 43 00 11 00 ba 00 0b 00 0e 00 14 05 ca 00 15 00 0e 00 14 06 47 00 24 00 3f 46 4d 44 41 00 b9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ 1 ' C G $ ?FMDA ┆
0x4c9e…4cee (51, 0, 400) d1 e0 81 07 c3 02 20 31 20 02 00 00 20 02 00 02 00 01 00 04 00 03 00 05 30 01 00 08 30 01 00 09 30 01 00 0a 00 03 00 00 00 04 00 03 07 60 07 4e 07 7c 07 59 07 7c 07 59 9b 86 23 1b 8a 8b 21 54 7d 36 86 02 29 29 00 90 20 04 8c 8b 80 14 21 40 ┆ 1 0 0 0 ` N | Y | Y # !T}6 )) !@┆
0x4cee…4d3e 7c 54 6b 6a 8b 21 21 82 21 00 82 20 6a 82 21 21 1b 8a 8b 01 8c 31 30 0d 8c 82 02 8c 8b 5f 48 02 8b 21 6a 85 21 21 1b 8a 8b 24 85 21 41 20 86 21 40 28 86 22 39 30 21 85 d3 21 54 32 40 65 40 69 40 6b 02 8b 21 22 8b 8c 3f 00 86 27 68 5a 86 32 ┆|Tkj !! ! j !! 10 _H !j !! $ !A !@( "90! !T2@e@i@k !" ? 'hZ 2┆
0x4d3e…4d8e 1b 8a 8b 21 54 53 04 86 26 36 86 12 08 00 00 00 1e 00 00 00 0e 0c 00 00 1a 00 00 00 00 10 80 13 22 00 80 85 5f c3 41 69 5f 38 41 65 5f 3c 22 00 20 79 01 d3 85 34 57 73 41 6b 57 0e 02 8b 21 6a 86 21 21 1b 8a 8b 28 86 20 03 00 86 81 00 7e 0b ┆ !TS &6 " _ Ai_8Ae_<" y 4WsAkW !j !! ( ~ ┆
0x4d8e…4dde 00 0a 86 00 9f 21 7e 57 29 6a 86 21 21 1b 8a 8b 14 86 11 46 01 88 31 30 0d 88 86 00 95 55 02 8b 21 62 95 20 88 1b 8a 8b 00 9f 21 95 04 88 21 02 8b 88 48 69 07 62 9f 21 20 21 50 20 49 65 0a 49 64 0a 02 d3 85 9f 21 57 08 4b 64 0a 04 d3 85 9f ┆ !~W)j !! F 10 U !b ! ! Hi b ! !P Ie Id !W Kd ┆
0x4dde…4e2e 21 53 02 57 03 80 13 23 49 6b 15 02 8b 21 06 8b 8c 39 20 00 86 33 68 5a 86 21 1b 8a 8b 21 5c a2 3f 21 36 00 03 00 05 0a 00 96 50 57 08 01 96 36 57 03 01 96 35 34 01 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆!S W #Ik ! 9 3hZ ! ! ?!6 PW 6W 54 6 ┆
0x4e2e…4e7e (52, 0, 400) 06 d0 05 bb 05 ca 06 58 06 c4 06 c8 06 cc 00 87 20 00 82 20 40 67 40 69 40 6b 40 97 00 93 22 30 2b 92 28 90 20 08 00 87 92 80 01 23 57 03 48 8c 06 00 e9 25 20 57 04 00 e9 25 90 00 83 90 00 6f 95 36 00 02 19 19 30 2a 00 92 20 92 20 11 80 02 ┆ X @g@i@k@ "0+ ( #W H % W % o 6 0* ┆
0x4e7e…4ece 36 92 03 07 05 02 57 07 00 82 20 34 01 41 97 02 8c 8b 57 06 00 95 6f 00 90 83 01 7e 38 00 84 20 68 7e 84 29 1b 8a 8b 21 50 4f 40 8e 3c 01 01 7e 37 00 88 20 68 7e 88 27 1b 8a 8b 21 3c 02 41 8e 02 8b 21 20 88 26 0a 6a 87 21 21 1b 8a 8b 02 8b ┆6 W 4 A W o ~8 h~ ) !PO@ < ~7 h~ ' !< A ! & j !! ┆
0x4ece…4f1e 21 40 99 20 87 20 05 80 01 88 57 03 00 87 92 32 88 06 03 03 04 04 04 05 57 0b 30 41 86 0b 00 0a 87 10 86 23 5b 41 99 5f 5f 32 84 08 06 07 07 07 08 09 0a 0b 02 8b 21 6a 93 21 21 1b 8a 8b 00 82 8b 24 93 12 10 6a 82 20 21 8a 21 01 88 31 30 0d ┆!@ W 2 W 0A #[A __2 !j !! $ j ! ! 10 ┆
0x4f1e…4f6e 88 93 02 8b 88 02 8b 21 14 8b 8c 92 3f 0c 41 88 5f 0d 02 8b 21 41 8b 3c 0c 6a 87 21 21 1b 8a 8b 30 28 00 87 88 00 e9 26 8a 00 e9 27 8b 00 e9 28 8c 30 42 1b 21 8a 8b 8c 3c 0c 5f cd 04 84 22 02 8b 21 00 85 20 01 7e 35 01 9f 21 3a 68 7e 85 24 ┆ ! ? A _ !A < j !! 0( & ' ( 0B ! < _ " ! ~5 !:h~ $┆
0x4f6e…4fbe 1b 8a 8b 21 50 05 00 85 20 57 03 02 8b 21 00 88 20 01 7e 39 68 7e 88 2a 1b 8a 8b 21 50 05 00 88 2a 57 07 02 8b 21 2c 88 28 0a 6a 87 21 21 1b 8a 8b 02 8b 21 32 88 0a 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ !P W ! ~9h~ * !P *W !, ( j !! !2 ┆