|
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: 20746 (0x510a)
Notes: pts_type(SC)
Names: »DANTER.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DANTER.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DANTER.SC«
IDENT DANTER PRR 1.0 80-01-07/DALI ****************************************** * THIS ROUTINE HANDLE THE KEYBOARD INPUT * * AND IS A MODIFIED VERSION OF THE STAN- * * DARD S C R E E N - P A C K A G E. * ****************************************** * * RUNNING UNDER: CREDIT REL 4.1 * TOSS REL 9.1 ****************************************** DDUM DEDDIV PDIV * ENTRY DECLRA CLEAR ALL VARIABLE FIELDS ENTRY DECLRS CLEAR SOME VARIABLE FIELDS ENTRY DECLRN CLEAR NO VARIABLE FIELDS ENTRY DECLRD ENTRY DERR DENTER-ERROR EXT DERROR ERROR-MESSAGES EXT DEGEN GENERATION ROUTINE EXT CANC -ROUTINES * EXT DESTAT BUILD THE STATUSLINE EXT DEAPPL STANDARD ROUTINE TO EXT DEAPPU USER ROUTINE TO HANDLE HANDLE APPL VALUES APPL VALUES EXT DETCHK USER ROUTINE TO EVALUATE CONDITIONAL TABULATION EXT DENVAL EXT DEEDIT EXT DENDUP EXT DEFORC HANDLE FORCEDITEM EXT DEVERI KEY-VERIFICATION * EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - TEST IF DATA ITEM IS EMPTY EXT FORCED ASSEMBLY SUBROUTINE FORCED - TEST IF DATA ITEM IS FORCED EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - ATTACH DESCRIPTORBLOCK EXT ATTPRT RESERVE PRINTER EXT ATTDEV RESERVE DEVICE EXT DETPRT RELEASE PRINTER EXT MASK EXT GETVAL LOOK FOR VALIDATION- STRING FOR CURRENT FIELD EXT GETGEN LOOK FOR GENERARTION- STRING FOR CURRENT FIELD EXT TESTB TEST FOR A BIT IN A BIN EXT CLEARB CLEAR A BIT IN A BIN ITEM EXT DELOCK TEST KEY-LOCKS EXT GETFWD ASSEMBLY SUBROUTINE GETFWD - EXECUTE GETFLD. NOTE THAT CONDITION=3, MEANING THAT EMPTY COMPULSURY FIELDS IS FOUND,WILL "NOT" BE INDICATED EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - ADJUST FORMATPOINTERS AFTER EXECUTION OF GETFWD EJECT * INCLUDE DELITT,LIST EJECT * * CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE * DECLRA PROC PERF DENTER,W1 RET PEND * * CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRS PROC PERF DENTER,W2 RET PEND * * CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRN PROC PERF DENTER,W3 RET PEND * * CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST * OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRD PROC * PERF DENTER,W4 RET PEND * * ERROR PRINTOUT * DERR PROC MOVE DEBINW1,W0 PERF DENTER,W0 RET PEND EJECT DENTER PROC OPT CLEAR DOOLC ERASEFLAG OFF MOVE DEBINW2,OPT MOVE TO VARIABLE TO ALLOW INSTR.S CMP AND IB CMP DEBINW2,W0 "DEERR" ENTRY ? BE ERRPRINT YES ! TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT SHOULD BE DIDELAYED * * ONLY VARIABLE FIELDS * IB DEBINW2 C CLEARA C CLEARS C CONT C CLEARD * CLEARA ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP B CONT * CLEARS ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP B CONT CLEARD TBT VERIFM,VERIF DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP B CONT VERIF TBF KEYVER,SIGHT DISPLAY 23,W1,W0 B CONT SIGHT DISPLAY 33,W1,W0 B CONT EJECT * * DISPLAY ENTIRE FORMAT * ENTIRE CLEAR DEPROMPT IB DEBINW2 JUMP C ECLRA ON C ECLRS ROUTINE C ECLRN INDEX C ECLRN * * CLEAR ALL VARIABLES * ECLRA ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP IN MEMORY B ECLRN CONTINUE * * CLEAR SOME VARIABLES * ECLRS ERASE 6,W1,W0 CLEAR SOME FIELDS FROM 1 AND UP IN MEMORY * * CLEAR NO VARIABLES IN MEMORY * ECLRN TBT VERIFM,EVERIF DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM B CONT EVERIF TBF KEYVER,ESIGHT DISPLAY 20,W1,W0 B CONT ESIGHT DISPLAY 30,W1,W0 EJECT * CONT MOVE DEBINW2,W8 HOME-KEY CONT3 GETABX DEBINW4 GET CURRENT INDEX BL KTHOME JUMP IF NO CURRENT FIELD TBF VERIFM,CONT5 B KTHOME CONT5 GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION BZ CONT6 JUMP IF FOUND BL KTHOME POSITION NOT FOUND * * COMPULSORY FIELD FOUND * MOVE DEBINW4,DEBINW3 CHANGE INDEX B CONT5 SEARCH AGAIN * CONT6 TSTCTL 5 LOOK IF CTAB BZ SETCREAD TEST DOOLA BZ KTHOME JUMP IF NOT BALANCE MOVE DEBINW2,W9 B KTHOME EJECT * * SET CURSOR AND READ KEYBOARD * SETCREAD SETCUR SET CURSOR ON CURRENT FIELD * * READ TO CURRENT FIELD ON DISPLAY * READIN TBF DENOCHAN,READ50 READ10 MOVE DEBINW1,W0 MOVE DEBINW3,W1 TBF VERIFM,READ12 NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 B READ14 READ12 NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 READ14 PERF DELOCK,W1,DEBINW2 IB DEBINW3,READ30,READ20,READ10 B READ40 * READ20 ERROR XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W64 BNZ READ10 EDWRT DEDSSCRN,BELL B READ10 * READ30 POWER OFF TBT VERIFM,EVERIF DISPLAY 0,W1,W0 B SETCREAD * READ40 IB DEBINW2,READ10,STATUS,KCOPY SUB DEBINW2,W3 TBT DOOL3,READ45 JUMP IF NOT WORKING CLEAR DENOCHAN WITTH THE DATA-FILE READ45 RET * READ50 TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION PERF DEVERI IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20 * RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT RET READ55 GETCTL 3,DEBINW3 GET SCHK CALL TESTB,DEBINW3,W15 BZ READ60 JUMP IF NOT SIGN DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C DEBINW2,DEBINW4 B DYKOUT READ60 DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C DEBINW2,DEBINW4 DYKOUT PERF DELOCK,W1,DEBINW2 IB DEBINW3,ECLRN,ERRPRT,DYK050 B DYK100 DYK050 MOVE DEBINW2,W2 B ERRCAN DYK070 GETABX DEBINW4 GET CURRENT TAB INDEX DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD B SETCREAD CONTINUE DYK100 CLEAR DOOL5 KEYED INPUT IB DEBINW2,UPDATE,DYK070 JUMP ON C UPDATE,ERRCAN,ERRCAN, C DYK150,UPDATE,UPDATE,UPDATE CONVERTED C UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C KCOPY,KDUPL,KEDIT B UPDATE DYK150 MOVE DEBINW2,W3 SET PLS = EOI EJECT *************************************** * VALIDATE ENTERED DATA IN THE ORDER: * * STANDARDCHECK * * APPLE-VALUE * * VALIDATION-STRING * * * * RETURNVALUES ARE PUT INTO DEBINW3. * *************************************** UPDATE CBNE DEBINW1,W0,UPD100 VALIDATION OF EMPTY FIELD IF SOME OF BELOW KEES PRESSED: * 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP CBG DEBINW2,W11,UPD010 CBG DEBINW2,W8,UPD005 CBG DEBINW2,W3,UPD010 UPD005 TBT DOOL3,UPD020 UPD010 B UPDR50 UPD020 MOVE DEBINW4,W6 FORCED ITEM MOVE BIN3,W0 USED FOR SAV ERRORINDEX CALL FORCED,:FMTITEM BOK UPD030 PERF DERROR,DEKTABF B ERRP20 UPD030 CALL EMPTYT,:FMTITEM BZ UPD050 NO! UPD040 GETCTL 3,DEBINW4 GET SCHK CALL TESTB,DEBINW4,W13 LOOK IF COND ME BZ UPDR35 VALIDATION IF COND UPD050 MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH GETABX BIN8 PERF DEEDIT,W3 B UPD250 UPD100 GETCTL 3,DEBINW4 GET SCHK-NUMBER UPD105 IB DEBINW4,UPD110,UPD120,UPD110,UPD200,UPD110 B UPD200 UPD110 CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS MOVE DEBINW2,W0 MOVE DEBINW3,W1 MOVE STR1A,='-' INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0 MOVE DEBINW2,W3 SIMULATE EOI UPD115 SUB DEBINW4,W1 B UPD105 UPD120 SUB DEBINW4,W2 B UPD105 UPD200 GETCTL 0,DEBINW3 GET APPL-VALUE CBE DEBINW3,W0,UPD230 JUMP IF NO APPL VALUE * * APPL-VALUE DIFFERENT FROM ZERO * TBF DOOL3,UPD215 PERF DEAPPU B UPD220 UPD215 PERF DEAPPL UPD220 IB DEBINW3,UPD230,SETCREAD,ERRPRINT UPD230 TEST DOOL3 BZ UPDR22 JUMP IF NOT ENTRY TBF DOOL5,UPD240 JUMP IF NOT DUPL MOVE WORK(W5),W0 INPUTLENGTH = 0 B UPD250 UPD240 MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH UPD250 MOVE BIN4,DEBINW1 SAVE INPUTLENGTH * * LOOK IF THERE ARE A VALIDATIONSTRING * WITHIN THE FORMAT AND EXECUTE IT. * UPDVAL CLEAR DOOL1 CLEAR DOOL4 CLEAR DOOL6 CLEAR DOOL7 CLEAR BOOL5 ***F=UNVALID/NO COND TAB CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH MOVE BIN14,W0 ***COND.TAB.-FIELD:=0 MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 BNOK UPDR20 JUMP IF NO VALSTRING CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED SETCUR SET CURSOR ON CURRENT FIELD UPDV10 PERF DENVAL * * RETURN FROM VALIDATION * CLEAR DOOLB ERROR-FLAG BZ UPDR20 MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH UPDR12 TSTCTL 0 L00K IF ALPHA BNZ UPDR16 JUMP IF ALPHA MOVE BIN9,W15 POINTER TO + MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 BNOK UPDR16 DLETE DEINPUT,W0,W1 DELETE + OR - UPDR16 CBE BIN3,W0,UPDR17 JUMP IF NOT MESS XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN3 UPDR17 TBF DOOLA,UPDR13 JUMP IF NOT BALACE PERF DERROR,DEKTAB6 B ERRP20 UPDR13 TSTCTL 5 LOOK IF CTAB BZ UPDR14 NO! PERF DERROR,DEKTABI NO KEY INPUT B ERRP25 UPDR14 PERF DERROR,DEKTABD B ERRP20 UPDR20 MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH UPDR22 GETCTL 3,DEBINW4 GET SCHK-NUMBER CALL TESTB,DEBINW4,W14 LOOK IS SCHK=2 BZ UPDR25 JUMP IF NOT GETCTL 1,DEBINW3 GET MAXL SUB DEBINW3,DEBINW1 BZ UPDR25 MOVE STATSH,=X'20' PUT SPACE IN AREA INSRT DEINPUT,W0,DEBINW3,STATSH,W0 RIGHTADJUST UPDR25 CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING UPDR30 SET DECHANGE INDICATE CHANGED ITEM UPDR33 TBF DOOL3,UPDR50 JUMP IF NOT ENTRY UPDR35 CBE DEBINW2,W12,UPDR40 ERASE-KEY CBE DEBINW2,W9,UPDR40 ERASE-KEY CBE DEBINW2,W1,UPDR40 CALL GETGEN,BPOOL(W1),BIN3,BIN4,BIN5 BNOK UPDR40 PERF DEGEN UPDR40 TSTCTL 5 BNZ UPDR50 JUMP IF CTAB SET DECHANGE UPDR50 IB DEBINW2,KTFWD,DUMMY, C KEOI,DUMMY,DUMMY,KTFWD, C KTBWD,KTHOME,KERASE,KKEEP,KEOI, C KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER SUB DEBINW2,W14 ADJUST EOI-KEY INDEX DUMMY RETUR RET EJECT KTFWD TAB. FORWARD 1 STEP MOVE DEBINW2,W3 SIMULATE EOI KEOI COMMON END-OF-ITEM KEY TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH CALL EMPTYT,STSAVE(W3) *** BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE CLEAR DECHANGE MOVE DEBINW2,W3 ***ENT-KEY SIMULATED B RETUR *** KEOI10 *** CLEAR BOOL5 ***CLEAR /SET CR BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR SUB DEBINW4,W1 ***ADJUST FOR TFWD CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 CALL ADJUST,DKBIN1 BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW GETABX DEBINW4 *** B SETCREAD *** KEOI20 *** CBL DEBINW2,W11,KEOI30 B KKEEP2 KEOI30 TFWD B TSTTAB * KTBWD TABULATION 1 STEP BACKW. GETABX DEBINW4 CBE DEBINW4,W1,KTBWD2 TBWD B TSTTAB KTBWD2 MOVE DEBINW2,W3 EOI * KTHOME TAB. TO HOME POSITION TBT DOOLA,KTHOM2 JUMP IF BALANCE TBF VERIFM,KTHOM2 TBT KEYVER,KTKEY KTHOM3 MOVE DEBINW1,W0 GETFLD 0,DEBINW1,DEBINW3 SETCUR B READ10 KTHOM2 THOME TSTTAB TEST TAB OUTPUT BE READIN OK BL READIN NOT FOUND BOFL KENT15 EMPTY COMPULSORY FIELD * * * CONDITIONAL TABULATION TBT DENOCHAN,KCOP10 PERF DETCHK CBE DEBINW3,W0,KCOP10 IB DEBINW2,DUMMY,DUMMY, C KTEOI,DUMMY,DUMMY,KTEOI, C KTBWD,KTEOI,KKEEP * BRANCH LIST EXHAUSTED - DEBINW2 CLOBBERED BY DETCHK B SETCREAD KTKEY MOVE BIN11,W0 KTKEY2 ADD BIN11,W1 CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER CALL ADJUST,DEBINW4 BZ SETCREAD JUMP IF VERIFYFIELD B KTHOM3 KTEOI TBF DOOL3,KTFWD MOVE DEBINW2,W3 EJECT * * DUPL KEY * KDUPL PERF DENDUP BNOK KTEOI2 IB DEBINW2,KTEOI,DUMMY,UPDATE KTEOI2 TSTCTL 5 LOOK IF CTAB BNZ KENT20 YES! IB DEBINW2,KCOP10,ERRRET,ERRRET B ERRPRINT * * STATUS KEY * STATUS PERF DESTAT MOVE DEBINW1,W0 B ERRPRINT * * PRINT KEY * KCOPY HARD COPY PERF ATTPRT RESERVE PRINTER BNOK ERRPRINT EDWRT DEDSPRT,FORMF FORMFEED MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 PERF DETPRT RELEASE PRINTER KCOP10 B SETCREAD SET CURSOR AND READ EJECT * * EDIT FIELD * KEDITX TSTCTL 5 LOOK IF CTAB BZ KED050 MOVE DEBINW2,W5 RBWD CLEAR DECHANGE B ERRET1 KED050 CBE DEBINW1,W0,KEDITY MOVE DEBINW1,W1 KEDIT GETCTL 1,DEBINW3 GET MAXL CBNE DEBINW3,W0,KED100 EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B SETCREAD KED100 GETCTL 3,DEBINW3 GET SCHK CALL TESTB,DEBINW3,W15 MINUS BZ KED200 EDFLD DEINPUT,DEKTABB,DEBINW1, C DEBINW2,DEBINW4 B DYKOUT KED200 EDFLD DEINPUT,DEKTAB3,DEBINW1, C DEBINW2,DEBINW4 B DYKOUT CONTINUE AS FOR DYKI KEDITY SETCUR B KEDIT * * ERASE KEY * KERASE GETABX DEBINW4 ERASE 10,DEBINW4,W0 TBF DOOL3,KENT03 MOVE DEBINW2,W12 B KKEEP1 * * KEEP KEY * KKEEP TBF DOOL3,KENT03 JUMP IF NOT ENTRY MOVE DEBINW2,W11 SIMULATE KKEEP2 KKEEP1 GETCTL 1,DEBINW4 GET MAXL CBE DEBINW4,W0,KENT07 TSTCTL 2 LOOK IF COMPULSORY FIELD BZ KKEEP3 NO! CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD BP KENT15 YES! KKEEP3 CMP DEBINW2,W12 ERASE KEY BZ UPD040 B UPD020 KKEEP2 SET DOOL5 GETABX DEBINW4 ADD DEBINW4,W1 CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 CALL ADJUST,DKBIN1 BE KKEEP5 BL SETCREAD BOFL KENT10 B KKEEP4 KKEEP5 TSTCTL 5 LOOK IF CTAB BZ KKEEP1 KKEEP4 PERF DETCHK CBE DEBINW3,W0,KKEEP1 TBT DOOLA,KKEEP1 JUMP IF BALANCE CBE DEBINW2,W12,KKEEP1 ERASE PERF DENDUP BNOK KENT20 MOVE DEBINW2,W11 SIMULATE KEEP B KKEEP1 EJECT * * ENTER KEY * KENTER TBF DOOL3,KENT03 GETCTL 1,DEBINW4 GET MAXL CBE DEBINW4,W0,KENT06 EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B SETCREAD KENT06 MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED RET KENT03 MOVE DEBINW1,W0 INDICATE NO CLEARING GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS BOFL KENT10 EMPTY COMP. FIELD FOUND TSTCTL 2 LOOK IF COMPULSORY FIELD BZ KENT05 NO! CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD BP KENT10 YES! KENT05 TBT DOOL3,KENT07 JUMP IF ENTRY-MODE CBE DEBINW2,W9,KENT07 CBE DEBINW2,W10,KENT07 MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED RET KENT07 B SETCREAD * * EMPTY COMPULSORY FIELD FOUND * KENT10 GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD KENT15 MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND MOVE DEBINW1,W0 TSTCTL 5 LOOK IF CTAB BZ ERRPRINT NO! KENT20 YES! PERF DERROR,DEKTABI B ERRP25 EJECT * * INDICATE FORCED ITEM * KFORCE PERF DEFORC B UPDR30 * * VALID ITEM * KVALID MOVE DEBINW2,W3 RESTORE ITEMLENGTH B UPDR22 EJECT ERRPRT CMP DEBINW2,W16 BE KEDIT JUMP IF EDIT CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W64 BNZ DYK050 * * ERROR HANDLING * ERRPRINT TBF DOOLA,ERRP10 JUMP IF NOT BALANCE PERF DERROR,DEKTAB6 B ERRP20 ERRP10 PERF DERROR,DEKTAB4 ERRP20 CBE DEBINW2,W1,ERRCAN CLEAR-KEY ERRP25 IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C KVALID,KFORCE,KTBWD,KTHOME ERRRET ADD DEBINW2,W2 ERRCAN PERF CANC CLEAR DOOL5 TSTCTL 5 LOOK IF CTAB BNZ ERRET4 IB DEBINW2,SETCREAD,SETCREAD,CONT3 ERRET0 SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 ERRET1 TBT DOOL3,ERRET2 CLEAR DENOCHAN ERRET2 RET ERRET4 IB DEBINW2,SETCREAD,SETCREAD,ERRET5 B ERRET0 ERRET5 MOVE DEBINW2,W8 SIMULATE TBWD B KTBWD PEND * BELL FRMT FSL FILLR X'07',1 FMEND FORMF FRMT FTEXT ' 1' FMEND END
0x0000…002c (0, 0, 400) Head {h00=0x0028, h01=0x0050, text=» IDENT DANTER PRR 1.0 80-01-07/DALI «, t00=0x0000, t01=0x0004}
0x002c…005e Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x0030}
0x005e…0090 Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE HANDLE THE KEYBOARD INPUT *«, t00=0x0000, t01=0x0062}
0x0090…00c2 Head {h00=0x002e, h01=0x0050, text=»* AND IS A MODIFIED VERSION OF THE STAN- *«, t00=0x0000, t01=0x0094}
0x00c2…00f4 Head {h00=0x002e, h01=0x0050, text=»* DARD S C R E E N - P A C K A G E. *«, t00=0x0000, t01=0x00c6}
0x00f4…0126 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x00f8}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…015c Head {h00=0x0028, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 4.1 «, t00=0x0000, t01=0x0134}
0x015c…0188 Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 9.1 «, t00=0x0000, t01=0x0160}
0x0188…01ba Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x018c}
0x01ba…01ce Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x002e}
0x01ce…01dc Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0042}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…0216 Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0001, t01=0x005a}
0x0216…0246 Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0001, t01=0x008a}
0x0246…0274 Head {h00=0x002a, h01=0x0050, text=» ENTRY DECLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x00ba}
0x0274…028a Head {h00=0x0012, h01=0x0050, text=» ENTRY DECLRD «, t00=0x0001, t01=0x00e8}
0x028a…02aa Head {h00=0x001c, h01=0x0050, text=» ENTRY DERR DENTER-ERROR«, t00=0x0001, t01=0x00fe}
0x02aa…02cc Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0001, t01=0x011e}
0x02cc…02f2 Head {h00=0x0022, h01=0x0050, text=» EXT DEGEN GENERATION ROUTINE «, t00=0x0001, t01=0x0140}
0x02f2…030e Head {h00=0x0018, h01=0x0050, text=» EXT CANC -ROUTINES «, t00=0x0001, t01=0x0166}
0x030e…0318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…0340 Head {h00=0x0024, h01=0x0050, text=» EXT DESTAT BUILD THE STATUSLINE«, t00=0x0001, t01=0x018c}
0x0340…0368 Head {h00=0x0024, h01=0x0050, text=» EXT DEAPPL STANDARD ROUTINE TO «, t00=0x0002, t01=0x0024}
0x0368…0392 Head {h00=0x0026, h01=0x0050, text=» EXT DEAPPU USER ROUTINE TO HANDLE«, t00=0x0002, t01=0x004c}
0x0392…03b0 Head {h00=0x001a, h01=0x0050, text=» HANDLE APPL VALUES «, t00=0x0002, t01=0x0076}
0x03b0…03c6 Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0002, t01=0x0094}
0x03c6…03f2 Head {h00=0x0028, h01=0x0050, text=» EXT DETCHK USER ROUTINE TO EVALUATE«, t00=0x0002, t01=0x00aa}
0x03f2…0414 Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x00d6}
0x0414…0428 Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0002, t01=0x00f8}
0x0428…043c Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0002, t01=0x010c}
0x043c…0450 Head {h00=0x0010, h01=0x0050, text=» EXT DENDUP «, t00=0x0002, t01=0x0120}
0x0450…0476 Head {h00=0x0022, h01=0x0050, text=» EXT DEFORC HANDLE FORCEDITEM «, t00=0x0002, t01=0x0134}
0x0476…049a Head {h00=0x0020, h01=0x0050, text=» EXT DEVERI KEY-VERIFICATION«, t00=0x0002, t01=0x015a}
0x049a…04a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017e}
0x04a4…04d6 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0002, t01=0x0188}
0x04d6…04fc Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x002a}
0x04fc…052e Head {h00=0x002e, h01=0x0050, text=» EXT FORCED ASSEMBLY SUBROUTINE FORCED - «, t00=0x0003, t01=0x0050}
0x052e…0556 Head {h00=0x0024, h01=0x0050, text=» TEST IF DATA ITEM IS FORCED «, t00=0x0003, t01=0x0082}
0x0556…0584 Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0003, t01=0x00aa}
0x0584…05a6 Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0003, t01=0x00d8}
0x05a6…05ca Head {h00=0x0020, h01=0x0050, text=» EXT ATTPRT RESERVE PRINTER «, t00=0x0003, t01=0x00fa}
0x05ca…05ec Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV RESERVE DEVICE«, t00=0x0003, t01=0x011e}
0x05ec…0610 Head {h00=0x0020, h01=0x0050, text=» EXT DETPRT RELEASE PRINTER «, t00=0x0003, t01=0x0140}
0x0610…0622 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0003, t01=0x0164}
0x0622…064a Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0003, t01=0x0176}
0x064a…066e Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x000e}
0x066e…0698 Head {h00=0x0026, h01=0x0050, text=» EXT GETGEN LOOK FOR GENERARTION- «, t00=0x0004, t01=0x0032}
0x0698…06bc Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x005c}
0x06bc…06e6 Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0004, t01=0x0080}
0x06e6…0714 Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0004, t01=0x00aa}
0x0714…0736 Head {h00=0x001e, h01=0x0050, text=» EXT DELOCK TEST KEY-LOCKS«, t00=0x0004, t01=0x00d8}
0x0736…0766 Head {h00=0x002c, h01=0x0050, text=» EXT GETFWD ASSEMBLY SUBROUTINE GETFWD -«, t00=0x0004, t01=0x00fa}
0x0766…0780 Head {h00=0x0016, h01=0x0050, text=» EXECUTE GETFLD.«, t00=0x0004, t01=0x012a}
0x0780…07a2 Head {h00=0x001e, h01=0x0050, text=» NOTE THAT CONDITION=3, «, t00=0x0004, t01=0x0144}
0x07a2…07c0 Head {h00=0x001a, h01=0x0050, text=» MEANING THAT EMPTY «, t00=0x0004, t01=0x0166}
0x07c0…07e0 Head {h00=0x001c, h01=0x0050, text=» COMPULSURY FIELDS IS «, t00=0x0004, t01=0x0184}
0x07e0…07fe Head {h00=0x001a, h01=0x0050, text=» FOUND,WILL "NOT" BE«, t00=0x0005, t01=0x0014}
0x07fe…0812 Head {h00=0x0010, h01=0x0050, text=» INDICATED«, t00=0x0005, t01=0x0032}
0x0812…0842 Head {h00=0x002c, h01=0x0050, text=» EXT ADJUST ASSEMBLY SUBROUTINE ADJUST -«, t00=0x0005, t01=0x0046}
0x0842…0868 Head {h00=0x0022, h01=0x0050, text=» ADJUST FORMATPOINTERS AFTER«, t00=0x0005, t01=0x0076}
0x0868…0886 Head {h00=0x001a, h01=0x0050, text=» EXECUTION OF GETFWD«, t00=0x0005, t01=0x009c}
0x0886…0894 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ba}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08ba Head {h00=0x0018, h01=0x0050, text=» INCLUDE DELITT,LIST«, t00=0x0005, t01=0x00d2}
0x08ba…08c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ee}
0x08c8…08d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fc}
0x08d2…0914 Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x0106}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091e…0932 Head {h00=0x0010, h01=0x0050, text=»DECLRA PROC «, t00=0x0005, t01=0x0152}
0x0932…094a Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W1 «, t00=0x0005, t01=0x0166}
0x094a…0956 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x017e}
0x0956…0964 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x018a}
0x0964…096e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096e…09b2 Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0012}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0056}
0x09bc…09d0 Head {h00=0x0010, h01=0x0050, text=»DECLRS PROC «, t00=0x0006, t01=0x0060}
0x09d0…09e8 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W2 «, t00=0x0006, t01=0x0074}
0x09e8…09f4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x008c}
0x09f4…0a02 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0098}
0x0a02…0a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0c…0a4e Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x00b0}
0x0a4e…0a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f2}
0x0a58…0a6c Head {h00=0x0010, h01=0x0050, text=»DECLRN PROC «, t00=0x0006, t01=0x00fc}
0x0a6c…0a84 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W3 «, t00=0x0006, t01=0x0110}
0x0a84…0a90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0128}
0x0a90…0a9e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0134}
0x0a9e…0aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa8…0ae4 Head {h00=0x0038, h01=0x0050, text=»* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST«, t00=0x0006, t01=0x014c}
0x0ae4…0b24 Head {h00=0x003c, h01=0x0050, text=»* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0188}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2e…0b42 Head {h00=0x0010, h01=0x0050, text=»DECLRD PROC «, t00=0x0007, t01=0x0042}
0x0b42…0b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4c…0b64 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W4 «, t00=0x0007, t01=0x0060}
0x0b64…0b70 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0078}
0x0b70…0b7e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0084}
0x0b7e…0b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0092}
0x0b88…0ba4 Head {h00=0x0018, h01=0x0050, text=»* ERROR PRINTOUT«, t00=0x0007, t01=0x009c}
0x0ba4…0bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0bae…0bc0 Head {h00=0x000e, h01=0x0050, text=»DERR PROC «, t00=0x0007, t01=0x00c2}
0x0bc0…0bd8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0007, t01=0x00d4}
0x0bd8…0bf0 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W0 «, t00=0x0007, t01=0x00ec}
0x0bf0…0bfc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0104}
0x0bfc…0c0a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0110}
0x0c0a…0c18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x011e}
0x0c18…0c30 Head {h00=0x0014, h01=0x0050, text=»DENTER PROC OPT «, t00=0x0007, t01=0x012c}
0x0c30…0c52 Head {h00=0x001e, h01=0x0050, text=» CLEAR DOOLC ERASEFLAG OFF«, t00=0x0007, t01=0x0144}
0x0c52…0c7c Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,OPT MOVE TO VARIABLE«, t00=0x0007, t01=0x0166}
0x0c7c…0ca2 Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0007, t01=0x0190}
0x0ca2…0cca Head {h00=0x0024, h01=0x0050, text=» CMP DEBINW2,W0 "DEERR" ENTRY ? «, t00=0x0008, t01=0x0026}
0x0cca…0ce4 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0008, t01=0x004e}
0x0ce4…0cec Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0068}
0x0cec…0d1e Head {h00=0x002e, h01=0x0050, text=» TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0008, t01=0x0070}
0x0d1e…0d3c Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DIDELAYED«, t00=0x0008, t01=0x00a2}
0x0d3c…0d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d68 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x00ca}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ec}
0x0d72…0d88 Head {h00=0x0012, h01=0x0050, text=» IB DEBINW2 C«, t00=0x0008, t01=0x00f6}
0x0d88…0d9c Head {h00=0x0010, h01=0x0050, text=» CLEARA C «, t00=0x0008, t01=0x010c}
0x0d9c…0db0 Head {h00=0x0010, h01=0x0050, text=» CLEARS C «, t00=0x0008, t01=0x0120}
0x0db0…0dc2 Head {h00=0x000e, h01=0x0050, text=» CONT C «, t00=0x0008, t01=0x0134}
0x0dc2…0dd2 Head {h00=0x000c, h01=0x0050, text=» CLEARD«, t00=0x0008, t01=0x0146}
0x0dd2…0ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0ddc…0dea Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0008, t01=0x0160}
0x0dea…0e18 Head {h00=0x002a, h01=0x0050, text=» ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP«, t00=0x0008, t01=0x016e}
0x0e18…0e28 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x000c}
0x0e28…0e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e32…0e40 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0009, t01=0x0026}
0x0e40…0e70 Head {h00=0x002c, h01=0x0050, text=» ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP «, t00=0x0009, t01=0x0034}
0x0e70…0e80 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0064}
0x0e80…0e8e Head {h00=0x000a, h01=0x0050, text=»CLEARD«, t00=0x0009, t01=0x0074}
0x0e8e…0ea8 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,VERIF «, t00=0x0009, t01=0x0082}
0x0ea8…0ed6 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP«, t00=0x0009, t01=0x009c}
0x0ed6…0ee6 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x00ca}
0x0ee6…0ef4 Head {h00=0x000a, h01=0x0050, text=»VERIF «, t00=0x0009, t01=0x00da}
0x0ef4…0f0e Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,SIGHT «, t00=0x0009, t01=0x00e8}
0x0f0e…0f28 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 23,W1,W0 «, t00=0x0009, t01=0x0102}
0x0f28…0f38 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x011c}
0x0f38…0f46 Head {h00=0x000a, h01=0x0050, text=»SIGHT «, t00=0x0009, t01=0x012c}
0x0f46…0f60 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 33,W1,W0 «, t00=0x0009, t01=0x013a}
0x0f60…0f70 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0154}
0x0f70…0f7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0164}
0x0f7e…0f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0172}
0x0f88…0faa Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0009, t01=0x017c}
0x0faa…0fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000e}
0x0fb4…0fc2 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x000a, t01=0x0018}
0x0fc2…0fda Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x000a, t01=0x0026}
0x0fda…0ff4 Head {h00=0x0016, h01=0x0050, text=» IB DEBINW2 JUMP C«, t00=0x000a, t01=0x003e}
0x0ff4…1008 Head {h00=0x0010, h01=0x0050, text=» ECLRA ON C«, t00=0x000a, t01=0x0058}
0x1008…1022 Head {h00=0x0016, h01=0x0050, text=» ECLRS ROUTINE C «, t00=0x000a, t01=0x006c}
0x1022…103a Head {h00=0x0014, h01=0x0050, text=» ECLRN INDEX C «, t00=0x000a, t01=0x0086}
0x103a…104a Head {h00=0x000c, h01=0x0050, text=» ECLRN «, t00=0x000a, t01=0x009e}
0x104a…1054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x1054…1074 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x000a, t01=0x00b8}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d8}
0x107e…108c Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x000a, t01=0x00e2}
0x108c…10ba Head {h00=0x002a, h01=0x0050, text=» ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP«, t00=0x000a, t01=0x00f0}
0x10ba…10ce Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x000a, t01=0x011e}
0x10ce…10e8 Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x000a, t01=0x0132}
0x10e8…10f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014c}
0x10f2…1114 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x000a, t01=0x0156}
0x1114…111e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111e…112c Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x000a, t01=0x0182}
0x112c…115a Head {h00=0x002a, h01=0x0050, text=» ERASE 6,W1,W0 CLEAR SOME FIELDS FROM «, t00=0x000a, t01=0x0190}
0x115a…1178 Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000b, t01=0x002e}
0x1178…1182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004c}
0x1182…11ac Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000b, t01=0x0056}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0080}
0x11b6…11c4 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000b, t01=0x008a}
0x11c4…11de Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000b, t01=0x0098}
0x11de…120a Head {h00=0x0028, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM«, t00=0x000b, t01=0x00b2}
0x120a…121a Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x00de}
0x121a…1228 Head {h00=0x000a, h01=0x0050, text=»EVERIF«, t00=0x000b, t01=0x00ee}
0x1228…1242 Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,ESIGHT«, t00=0x000b, t01=0x00fc}
0x1242…125c Head {h00=0x0016, h01=0x0050, text=» DISPLAY 20,W1,W0 «, t00=0x000b, t01=0x0116}
0x125c…126c Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0130}
0x126c…127a Head {h00=0x000a, h01=0x0050, text=»ESIGHT«, t00=0x000b, t01=0x0140}
0x127a…1294 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 30,W1,W0 «, t00=0x000b, t01=0x014e}
0x1294…12a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0168}
0x12a2…12ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0176}
0x12ac…12b8 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000b, t01=0x0180}
0x12b8…12da Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W8 HOME-KEY «, t00=0x000b, t01=0x018c}
0x12da…12e8 Head {h00=0x000a, h01=0x0050, text=»CONT3 «, t00=0x000c, t01=0x001e}
0x12e8…1312 Head {h00=0x0026, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT INDEX «, t00=0x000c, t01=0x002c}
0x1312…133e Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000c, t01=0x0056}
0x133e…1358 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,CONT5 «, t00=0x000c, t01=0x0082}
0x1358…136a Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000c, t01=0x009c}
0x136a…1378 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000c, t01=0x00ae}
0x1378…13b2 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION «, t00=0x000c, t01=0x00bc}
0x13b2…13d2 Head {h00=0x001c, h01=0x0050, text=» BZ CONT6 JUMP IF FOUND «, t00=0x000c, t01=0x00f6}
0x13d2…13f8 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000c, t01=0x0116}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013c}
0x1402…1426 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000c, t01=0x0146}
0x1426…1430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x1430…145a Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CHANGE INDEX«, t00=0x000c, t01=0x0174}
0x145a…1478 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000d, t01=0x000e}
0x1478…1482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002c}
0x1482…1490 Head {h00=0x000a, h01=0x0050, text=»CONT6 «, t00=0x000d, t01=0x0036}
0x1490…14ae Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x000d, t01=0x0044}
0x14ae…14c2 Head {h00=0x0010, h01=0x0050, text=» BZ SETCREAD«, t00=0x000d, t01=0x0062}
0x14c2…14d6 Head {h00=0x0010, h01=0x0050, text=» TEST DOOLA «, t00=0x000d, t01=0x0076}
0x14d6…14fc Head {h00=0x0022, h01=0x0050, text=» BZ KTHOME JUMP IF NOT BALANCE«, t00=0x000d, t01=0x008a}
0x14fc…1514 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W9«, t00=0x000d, t01=0x00b0}
0x1514…1526 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000d, t01=0x00c8}
0x1526…1534 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00da}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e8}
0x153e…1568 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000d, t01=0x00f2}
0x1568…1572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011c}
0x1572…1582 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000d, t01=0x0126}
0x1582…15ae Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000d, t01=0x0136}
0x15ae…15b6 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0162}
0x15b6…15c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016a}
0x15c0…15ee Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000d, t01=0x0174}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f8…1606 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000e, t01=0x001c}
0x1606…1622 Head {h00=0x0018, h01=0x0050, text=» TBF DENOCHAN,READ50«, t00=0x000e, t01=0x002a}
0x1622…1640 Head {h00=0x001a, h01=0x0050, text=»READ10 MOVE DEBINW1,W0«, t00=0x000e, t01=0x0046}
0x1640…1658 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x000e, t01=0x0064}
0x1658…1672 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,READ12«, t00=0x000e, t01=0x007c}
0x1672…16ac Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 «, t00=0x000e, t01=0x0096}
0x16ac…16be Head {h00=0x000e, h01=0x0050, text=» B READ14 «, t00=0x000e, t01=0x00d0}
0x16be…16cc Head {h00=0x000a, h01=0x0050, text=»READ12«, t00=0x000e, t01=0x00e2}
0x16cc…1706 Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 «, t00=0x000e, t01=0x00f0}
0x1706…1714 Head {h00=0x000a, h01=0x0050, text=»READ14«, t00=0x000e, t01=0x012a}
0x1714…1734 Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x000e, t01=0x0138}
0x1734…175c Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,READ30,READ20,READ10«, t00=0x000e, t01=0x0158}
0x175c…176e Head {h00=0x000e, h01=0x0050, text=» B READ40 «, t00=0x000e, t01=0x0180}
0x176e…1778 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1778…178e Head {h00=0x0012, h01=0x0050, text=»READ20 ERROR«, t00=0x000f, t01=0x000e}
0x178e…17ae Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x000f, t01=0x0024}
0x17ae…17cc Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x000f, t01=0x0044}
0x17cc…17e0 Head {h00=0x0010, h01=0x0050, text=» BNZ READ10 «, t00=0x000f, t01=0x0062}
0x17e0…17fc Head {h00=0x0018, h01=0x0050, text=» EDWRT DEDSSCRN,BELL«, t00=0x000f, t01=0x0076}
0x17fc…180e Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x000f, t01=0x0092}
0x180e…1818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a4}
0x1818…1832 Head {h00=0x0016, h01=0x0050, text=»READ30 POWER OFF«, t00=0x000f, t01=0x00ae}
0x1832…184c Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000f, t01=0x00c8}
0x184c…1864 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x000f, t01=0x00e2}
0x1864…1878 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x000f, t01=0x00fa}
0x1878…1882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010e}
0x1882…18b0 Head {h00=0x002a, h01=0x0050, text=»READ40 IB DEBINW2,READ10,STATUS,KCOPY «, t00=0x000f, t01=0x0118}
0x18b0…18c8 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W3 «, t00=0x000f, t01=0x0146}
0x18c8…18f6 Head {h00=0x002a, h01=0x0050, text=» TBT DOOL3,READ45 JUMP IF NOT WORKING «, t00=0x000f, t01=0x015e}
0x18f6…1922 Head {h00=0x0028, h01=0x0050, text=» CLEAR DENOCHAN WITTH THE DATA-FILE «, t00=0x000f, t01=0x018c}
0x1922…1930 Head {h00=0x000a, h01=0x0050, text=»READ45«, t00=0x0010, t01=0x0028}
0x1930…193c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0036}
0x193c…1946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0042}
0x1946…1954 Head {h00=0x000a, h01=0x0050, text=»READ50«, t00=0x0010, t01=0x004c}
0x1954…198c Head {h00=0x0034, h01=0x0050, text=» TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION «, t00=0x0010, t01=0x005a}
0x198c…19a0 Head {h00=0x0010, h01=0x0050, text=» PERF DEVERI«, t00=0x0010, t01=0x0092}
0x19a0…19ce Head {h00=0x002a, h01=0x0050, text=» IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20«, t00=0x0010, t01=0x00a6}
0x19ce…1a06 Head {h00=0x0034, h01=0x0050, text=»* RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT «, t00=0x0010, t01=0x00d4}
0x1a06…1a12 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x010c}
0x1a12…1a20 Head {h00=0x000a, h01=0x0050, text=»READ55«, t00=0x0010, t01=0x0118}
0x1a20…1a42 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x0010, t01=0x0126}
0x1a42…1a62 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 «, t00=0x0010, t01=0x0148}
0x1a62…1a86 Head {h00=0x0020, h01=0x0050, text=» BZ READ60 JUMP IF NOT SIGN «, t00=0x0010, t01=0x0168}
0x1a86…1ab8 Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C «, t00=0x0010, t01=0x018c}
0x1ab8…1ad2 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x002e}
0x1ad2…1ae4 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x0011, t01=0x0048}
0x1ae4…1af2 Head {h00=0x000a, h01=0x0050, text=»READ60«, t00=0x0011, t01=0x005a}
0x1af2…1b24 Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C «, t00=0x0011, t01=0x0068}
0x1b24…1b3e Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x009a}
0x1b3e…1b4c Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x0011, t01=0x00b4}
0x1b4c…1b6c Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x0011, t01=0x00c2}
0x1b6c…1b94 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,ECLRN,ERRPRT,DYK050 «, t00=0x0011, t01=0x00e2}
0x1b94…1ba6 Head {h00=0x000e, h01=0x0050, text=» B DYK100 «, t00=0x0011, t01=0x010a}
0x1ba6…1bb4 Head {h00=0x000a, h01=0x0050, text=»DYK050«, t00=0x0011, t01=0x011c}
0x1bb4…1bcc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W2«, t00=0x0011, t01=0x012a}
0x1bcc…1bde Head {h00=0x000e, h01=0x0050, text=» B ERRCAN «, t00=0x0011, t01=0x0142}
0x1bde…1bec Head {h00=0x000a, h01=0x0050, text=»DYK070«, t00=0x0011, t01=0x0154}
0x1bec…1c1a Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT TAB INDEX «, t00=0x0011, t01=0x0162}
0x1c1a…1c4a Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD«, t00=0x0011, t01=0x0190}
0x1c4a…1c66 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0012, t01=0x0030}
0x1c66…1c74 Head {h00=0x000a, h01=0x0050, text=»DYK100«, t00=0x0012, t01=0x004c}
0x1c74…1c94 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOL5 KEYED INPUT«, t00=0x0012, t01=0x005a}
0x1c94…1cc0 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,UPDATE,DYK070 JUMP ON C «, t00=0x0012, t01=0x007a}
0x1cc0…1ce2 Head {h00=0x001e, h01=0x0050, text=» UPDATE,ERRCAN,ERRCAN, C«, t00=0x0012, t01=0x00a6}
0x1ce2…1d14 Head {h00=0x002e, h01=0x0050, text=» DYK150,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0012, t01=0x00c8}
0x1d14…1d4c Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C «, t00=0x0012, t01=0x00fa}
0x1d4c…1d68 Head {h00=0x0018, h01=0x0050, text=» KCOPY,KDUPL,KEDIT «, t00=0x0012, t01=0x0132}
0x1d68…1d7a Head {h00=0x000e, h01=0x0050, text=» B UPDATE «, t00=0x0012, t01=0x014e}
0x1d7a…1d88 Head {h00=0x000a, h01=0x0050, text=»DYK150«, t00=0x0012, t01=0x0160}
0x1d88…1dae Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SET PLS = EOI«, t00=0x0012, t01=0x016e}
0x1dae…1dbc (19, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0004}
0x1dbc…1dec Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0013, t01=0x0012}
0x1dec…1e1c Head {h00=0x002c, h01=0x0050, text=»* VALIDATE ENTERED DATA IN THE ORDER: * «, t00=0x0013, t01=0x0042}
0x1e1c…1e4c Head {h00=0x002c, h01=0x0050, text=»* STANDARDCHECK * «, t00=0x0013, t01=0x0072}
0x1e4c…1e7c Head {h00=0x002c, h01=0x0050, text=»* APPLE-VALUE * «, t00=0x0013, t01=0x00a2}
0x1e7c…1eac Head {h00=0x002c, h01=0x0050, text=»* VALIDATION-STRING * «, t00=0x0013, t01=0x00d2}
0x1eac…1edc Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0102}
0x1edc…1f0c Head {h00=0x002c, h01=0x0050, text=»* RETURNVALUES ARE PUT INTO DEBINW3. * «, t00=0x0013, t01=0x0132}
0x1f0c…1f3c Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0013, t01=0x0162}
0x1f3c…1f4a (20, 0, 400) Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0014, t01=0x0004}
0x1f4a…1f6a Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW1,W0,UPD100 «, t00=0x0014, t01=0x0012}
0x1f6a…1f8e Head {h00=0x0020, h01=0x0050, text=» VALIDATION OF EMPTY FIELD«, t00=0x0014, t01=0x0032}
0x1f8e…1fb8 Head {h00=0x0026, h01=0x0050, text=» IF SOME OF BELOW KEES PRESSED: «, t00=0x0014, t01=0x0056}
0x1fb8…1ff4 Head {h00=0x0038, h01=0x0050, text=»* 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP«, t00=0x0014, t01=0x0080}
0x1ff4…2014 Head {h00=0x001c, h01=0x0050, text=» CBG DEBINW2,W11,UPD010 «, t00=0x0014, t01=0x00bc}
0x2014…2032 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W8,UPD005«, t00=0x0014, t01=0x00dc}
0x2032…2050 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W3,UPD010«, t00=0x0014, t01=0x00fa}
0x2050…205e Head {h00=0x000a, h01=0x0050, text=»UPD005«, t00=0x0014, t01=0x0118}
0x205e…2078 Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,UPD020 «, t00=0x0014, t01=0x0126}
0x2078…2090 Head {h00=0x0014, h01=0x0050, text=»UPD010 B UPDR50 «, t00=0x0014, t01=0x0140}
0x2090…20ba Head {h00=0x0026, h01=0x0050, text=»UPD020 MOVE DEBINW4,W6 FORCED ITEM«, t00=0x0014, t01=0x0158}
0x20ba…20e8 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN3,W0 USED FOR SAV ERRORINDEX «, t00=0x0014, t01=0x0182}
0x20e8…2106 Head {h00=0x001a, h01=0x0050, text=» CALL FORCED,:FMTITEM «, t00=0x0015, t01=0x0020}
0x2106…211a Head {h00=0x0010, h01=0x0050, text=» BOK UPD030 «, t00=0x0015, t01=0x003e}
0x211a…2136 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABF«, t00=0x0015, t01=0x0052}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0015, t01=0x006e}
0x2148…2156 Head {h00=0x000a, h01=0x0050, text=»UPD030«, t00=0x0015, t01=0x0080}
0x2156…2174 Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0015, t01=0x008e}
0x2174…218a Head {h00=0x0012, h01=0x0050, text=» BZ UPD050 NO!«, t00=0x0015, t01=0x00ac}
0x218a…2198 Head {h00=0x000a, h01=0x0050, text=»UPD040«, t00=0x0015, t01=0x00c2}
0x2198…21ba Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK«, t00=0x0015, t01=0x00d0}
0x21ba…21ea Head {h00=0x002c, h01=0x0050, text=» CALL TESTB,DEBINW4,W13 LOOK IF COND ME «, t00=0x0015, t01=0x00f2}
0x21ea…2210 Head {h00=0x0022, h01=0x0050, text=» BZ UPDR35 VALIDATION IF COND «, t00=0x0015, t01=0x0122}
0x2210…221e Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x0015, t01=0x0148}
0x221e…224e Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH «, t00=0x0015, t01=0x0156}
0x224e…2262 Head {h00=0x0010, h01=0x0050, text=» GETABX BIN8«, t00=0x0015, t01=0x0186}
0x2262…227a Head {h00=0x0014, h01=0x0050, text=» PERF DEEDIT,W3 «, t00=0x0016, t01=0x000a}
0x227a…228c Head {h00=0x000e, h01=0x0050, text=» B UPD250 «, t00=0x0016, t01=0x0022}
0x228c…229a Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0016, t01=0x0034}
0x229a…22c4 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK-NUMBER «, t00=0x0016, t01=0x0042}
0x22c4…22d2 Head {h00=0x000a, h01=0x0050, text=»UPD105«, t00=0x0016, t01=0x006c}
0x22d2…2308 Head {h00=0x0032, h01=0x0050, text=» IB DEBINW4,UPD110,UPD120,UPD110,UPD200,UPD110«, t00=0x0016, t01=0x007a}
0x2308…231a Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0016, t01=0x00b0}
0x231a…2328 Head {h00=0x000a, h01=0x0050, text=»UPD110«, t00=0x0016, t01=0x00c2}
0x2328…235c Head {h00=0x0030, h01=0x0050, text=» CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS «, t00=0x0016, t01=0x00d0}
0x235c…2374 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0016, t01=0x0104}
0x2374…238c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0016, t01=0x011c}
0x238c…23a4 Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='-'«, t00=0x0016, t01=0x0134}
0x23a4…23d4 Head {h00=0x002c, h01=0x0050, text=» INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0«, t00=0x0016, t01=0x014c}
0x23d4…23fa Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0016, t01=0x017c}
0x23fa…2408 Head {h00=0x000a, h01=0x0050, text=»UPD115«, t00=0x0017, t01=0x0012}
0x2408…2420 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W1 «, t00=0x0017, t01=0x0020}
0x2420…2432 Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0017, t01=0x0038}
0x2432…2440 Head {h00=0x000a, h01=0x0050, text=»UPD120«, t00=0x0017, t01=0x004a}
0x2440…2458 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W2 «, t00=0x0017, t01=0x0058}
0x2458…246a Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0017, t01=0x0070}
0x246a…2478 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0017, t01=0x0082}
0x2478…24a0 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE«, t00=0x0017, t01=0x0090}
0x24a0…24d4 Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW3,W0,UPD230 JUMP IF NO APPL VALUE«, t00=0x0017, t01=0x00b8}
0x24d4…24de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ec}
0x24de…250a Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0017, t01=0x00f6}
0x250a…2514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0122}
0x2514…252e Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,UPD215 «, t00=0x0017, t01=0x012c}
0x252e…2542 Head {h00=0x0010, h01=0x0050, text=» PERF DEAPPU«, t00=0x0017, t01=0x0146}
0x2542…2554 Head {h00=0x000e, h01=0x0050, text=» B UPD220 «, t00=0x0017, t01=0x015a}
0x2554…2562 Head {h00=0x000a, h01=0x0050, text=»UPD215«, t00=0x0017, t01=0x016c}
0x2562…2576 Head {h00=0x0010, h01=0x0050, text=» PERF DEAPPL«, t00=0x0017, t01=0x017a}
0x2576…2584 Head {h00=0x000a, h01=0x0050, text=»UPD220«, t00=0x0017, t01=0x018e}
0x2584…25b0 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW3,UPD230,SETCREAD,ERRPRINT«, t00=0x0018, t01=0x000c}
0x25b0…25be Head {h00=0x000a, h01=0x0050, text=»UPD230«, t00=0x0018, t01=0x0038}
0x25be…25d2 Head {h00=0x0010, h01=0x0050, text=» TEST DOOL3 «, t00=0x0018, t01=0x0046}
0x25d2…25f6 Head {h00=0x0020, h01=0x0050, text=» BZ UPDR22 JUMP IF NOT ENTRY«, t00=0x0018, t01=0x005a}
0x25f6…2620 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL5,UPD240 JUMP IF NOT DUPL«, t00=0x0018, t01=0x007e}
0x2620…264a Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W5),W0 INPUTLENGTH = 0 «, t00=0x0018, t01=0x00a8}
0x264a…265c Head {h00=0x000e, h01=0x0050, text=» B UPD250 «, t00=0x0018, t01=0x00d2}
0x265c…266a Head {h00=0x000a, h01=0x0050, text=»UPD240«, t00=0x0018, t01=0x00e4}
0x266a…269a Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH «, t00=0x0018, t01=0x00f2}
0x269a…26a8 Head {h00=0x000a, h01=0x0050, text=»UPD250«, t00=0x0018, t01=0x0122}
0x26a8…26d4 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,DEBINW1 SAVE INPUTLENGTH «, t00=0x0018, t01=0x0130}
0x26d4…26de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26de…270c Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0018, t01=0x0166}
0x270c…2738 (25, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x0019, t01=0x0004}
0x2738…2742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0030}
0x2742…2750 Head {h00=0x000a, h01=0x0050, text=»UPDVAL«, t00=0x0019, t01=0x003a}
0x2750…2764 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL1«, t00=0x0019, t01=0x0048}
0x2764…2778 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0019, t01=0x005c}
0x2778…278c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x0019, t01=0x0070}
0x278c…27a0 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x0019, t01=0x0084}
0x27a0…27ce Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL5 ***F=UNVALID/NO COND TAB «, t00=0x0019, t01=0x0098}
0x27ce…2800 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH «, t00=0x0019, t01=0x00c6}
0x2800…282c Head {h00=0x0028, h01=0x0050, text=» MOVE BIN14,W0 ***COND.TAB.-FIELD:=0«, t00=0x0019, t01=0x00f8}
0x282c…2860 Head {h00=0x0030, h01=0x0050, text=» MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 «, t00=0x0019, t01=0x0124}
0x2860…2890 Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x0019, t01=0x0158}
0x2890…28ba Head {h00=0x0026, h01=0x0050, text=» BNOK UPDR20 JUMP IF NO VALSTRING «, t00=0x0019, t01=0x0188}
0x28ba…28ee Head {h00=0x0030, h01=0x0050, text=» CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND «, t00=0x001a, t01=0x0022}
0x28ee…2924 Head {h00=0x0032, h01=0x0050, text=» CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED «, t00=0x001a, t01=0x0056}
0x2924…2950 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x001a, t01=0x008c}
0x2950…295e Head {h00=0x000a, h01=0x0050, text=»UPDV10«, t00=0x001a, t01=0x00b8}
0x295e…2972 Head {h00=0x0010, h01=0x0050, text=» PERF DENVAL«, t00=0x001a, t01=0x00c6}
0x2972…297c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00da}
0x297c…299c Head {h00=0x001c, h01=0x0050, text=»* RETURN FROM VALIDATION«, t00=0x001a, t01=0x00e4}
0x299c…29a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0104}
0x29a6…29c6 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ERROR-FLAG «, t00=0x001a, t01=0x010e}
0x29c6…29d8 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR20«, t00=0x001a, t01=0x012e}
0x29d8…2a0a Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH«, t00=0x001a, t01=0x0140}
0x2a0a…2a18 Head {h00=0x000a, h01=0x0050, text=»UPDR12«, t00=0x001a, t01=0x0172}
0x2a18…2a38 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 L00K IF ALPHA «, t00=0x001a, t01=0x0180}
0x2a38…2a5a Head {h00=0x001e, h01=0x0050, text=» BNZ UPDR16 JUMP IF ALPHA «, t00=0x001b, t01=0x0010}
0x2a5a…2a7e Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,W15 POINTER TO + «, t00=0x001b, t01=0x0032}
0x2a7e…2aaa Head {h00=0x0028, h01=0x0050, text=» MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 «, t00=0x001b, t01=0x0056}
0x2aaa…2abe Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR16«, t00=0x001b, t01=0x0082}
0x2abe…2ae8 Head {h00=0x0026, h01=0x0050, text=» DLETE DEINPUT,W0,W1 DELETE + OR -«, t00=0x001b, t01=0x0096}
0x2ae8…2af6 Head {h00=0x000a, h01=0x0050, text=»UPDR16«, t00=0x001b, t01=0x00c0}
0x2af6…2b22 Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,W0,UPDR17 JUMP IF NOT MESS«, t00=0x001b, t01=0x00ce}
0x2b22…2b50 Head {h00=0x002a, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN3«, t00=0x001b, t01=0x00fa}
0x2b50…2b5e Head {h00=0x000a, h01=0x0050, text=»UPDR17«, t00=0x001b, t01=0x0128}
0x2b5e…2b8a Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,UPDR13 JUMP IF NOT BALACE«, t00=0x001b, t01=0x0136}
0x2b8a…2ba6 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x001b, t01=0x0162}
0x2ba6…2bb8 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001b, t01=0x017e}
0x2bb8…2bc6 Head {h00=0x000a, h01=0x0050, text=»UPDR13«, t00=0x001b, t01=0x0190}
0x2bc6…2be4 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x001c, t01=0x000e}
0x2be4…2bfa Head {h00=0x0012, h01=0x0050, text=» BZ UPDR14 NO!«, t00=0x001c, t01=0x002c}
0x2bfa…2c24 Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTABI NO KEY INPUT «, t00=0x001c, t01=0x0042}
0x2c24…2c36 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x001c, t01=0x006c}
0x2c36…2c44 Head {h00=0x000a, h01=0x0050, text=»UPDR14«, t00=0x001c, t01=0x007e}
0x2c44…2c60 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABD«, t00=0x001c, t01=0x008c}
0x2c60…2c72 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001c, t01=0x00a8}
0x2c72…2c80 Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x001c, t01=0x00ba}
0x2c80…2cb2 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH«, t00=0x001c, t01=0x00c8}
0x2cb2…2cc0 Head {h00=0x000a, h01=0x0050, text=»UPDR22«, t00=0x001c, t01=0x00fa}
0x2cc0…2cea Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK-NUMBER «, t00=0x001c, t01=0x0108}
0x2cea…2d18 Head {h00=0x002a, h01=0x0050, text=» CALL TESTB,DEBINW4,W14 LOOK IS SCHK=2«, t00=0x001c, t01=0x0132}
0x2d18…2d36 Head {h00=0x001a, h01=0x0050, text=» BZ UPDR25 JUMP IF NOT«, t00=0x001c, t01=0x0160}
0x2d36…2d58 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x001c, t01=0x017e}
0x2d58…2d74 Head {h00=0x0018, h01=0x0050, text=» SUB DEBINW3,DEBINW1«, t00=0x001d, t01=0x0010}
0x2d74…2d86 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR25«, t00=0x001d, t01=0x002c}
0x2d86…2db4 Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'20' PUT SPACE IN AREA «, t00=0x001d, t01=0x003e}
0x2db4…2dec Head {h00=0x0034, h01=0x0050, text=» INSRT DEINPUT,W0,DEBINW3,STATSH,W0 RIGHTADJUST «, t00=0x001d, t01=0x006c}
0x2dec…2dfa Head {h00=0x000a, h01=0x0050, text=»UPDR25«, t00=0x001d, t01=0x00a4}
0x2dfa…2e26 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 «, t00=0x001d, t01=0x00b2}
0x2e26…2e5c Head {h00=0x0032, h01=0x0050, text=» UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x001d, t01=0x00de}
0x2e5c…2e8e Head {h00=0x002e, h01=0x0050, text=»UPDR30 SET DECHANGE INDICATE CHANGED ITEM «, t00=0x001d, t01=0x0114}
0x2e8e…2e9c Head {h00=0x000a, h01=0x0050, text=»UPDR33«, t00=0x001d, t01=0x0146}
0x2e9c…2ec8 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,UPDR50 JUMP IF NOT ENTRY «, t00=0x001d, t01=0x0154}
0x2ec8…2ed6 Head {h00=0x000a, h01=0x0050, text=»UPDR35«, t00=0x001d, t01=0x0180}
0x2ed6…2f00 Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W12,UPDR40 ERASE-KEY «, t00=0x001d, t01=0x018e}
0x2f00…2f28 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W9,UPDR40 ERASE-KEY«, t00=0x001e, t01=0x0028}
0x2f28…2f46 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W1,UPDR40«, t00=0x001e, t01=0x0050}
0x2f46…2f74 Head {h00=0x002a, h01=0x0050, text=» CALL GETGEN,BPOOL(W1),BIN3,BIN4,BIN5 «, t00=0x001e, t01=0x006e}
0x2f74…2f88 Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR40«, t00=0x001e, t01=0x009c}
0x2f88…2f9c Head {h00=0x0010, h01=0x0050, text=» PERF DEGEN «, t00=0x001e, t01=0x00b0}
0x2f9c…2faa Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x001e, t01=0x00c4}
0x2faa…2fbc Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x001e, t01=0x00d2}
0x2fbc…2fdc Head {h00=0x001c, h01=0x0050, text=» BNZ UPDR50 JUMP IF CTAB«, t00=0x001e, t01=0x00e4}
0x2fdc…2ff2 Head {h00=0x0012, h01=0x0050, text=» SET DECHANGE «, t00=0x001e, t01=0x0104}
0x2ff2…301c Head {h00=0x0026, h01=0x0050, text=»UPDR50 IB DEBINW2,KTFWD,DUMMY, C «, t00=0x001e, t01=0x011a}
0x301c…3040 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x001e, t01=0x0144}
0x3040…306c Head {h00=0x0028, h01=0x0050, text=» KTBWD,KTHOME,KERASE,KKEEP,KEOI, C«, t00=0x001e, t01=0x0168}
0x306c…309a (31, 0, 398) Head {h00=0x002a, h01=0x0050, text=» KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER «, t00=0x001f, t01=0x0004}
0x309a…30c8 Head {h00=0x002a, h01=0x0050, text=» SUB DEBINW2,W14 ADJUST EOI-KEY INDEX «, t00=0x001f, t01=0x0032}
0x30c8…30d6 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x001f, t01=0x0060}
0x30d6…30e4 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x001f, t01=0x006e}
0x30e4…30f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x007c}
0x30f0…30fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0088}
0x30fe…3122 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x001f, t01=0x0096}
0x3122…3148 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x001f, t01=0x00ba}
0x3148…316e Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x001f, t01=0x00e0}
0x316e…31a2 Head {h00=0x0030, h01=0x0050, text=» TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE «, t00=0x001f, t01=0x0106}
0x31a2…31da Head {h00=0x0034, h01=0x0050, text=» TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH«, t00=0x001f, t01=0x013a}
0x31da…31fe Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,STSAVE(W3) *** «, t00=0x001f, t01=0x0172}
0x31fe…322e Head {h00=0x002c, h01=0x0050, text=» BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE «, t00=0x0020, t01=0x0008}
0x322e…3246 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0020, t01=0x0038}
0x3246…3274 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW2,W3 ***ENT-KEY SIMULATED «, t00=0x0020, t01=0x0050}
0x3274…3288 Head {h00=0x0010, h01=0x0050, text=» B RETUR ***«, t00=0x0020, t01=0x007e}
0x3288…329c Head {h00=0x0010, h01=0x0050, text=»KEOI10 ***«, t00=0x0020, t01=0x0092}
0x329c…32c2 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL5 ***CLEAR /SET CR «, t00=0x0020, t01=0x00a6}
0x32c2…32f4 Head {h00=0x002e, h01=0x0050, text=» BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB«, t00=0x0020, t01=0x00cc}
0x32f4…3328 Head {h00=0x0030, h01=0x0050, text=» CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB «, t00=0x0020, t01=0x00fe}
0x3328…335a Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR «, t00=0x0020, t01=0x0132}
0x335a…3384 Head {h00=0x0026, h01=0x0050, text=» SUB DEBINW4,W1 ***ADJUST FOR TFWD«, t00=0x0020, t01=0x0164}
0x3384…33b2 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0020, t01=0x018e}
0x33b2…33ce Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0021, t01=0x002c}
0x33ce…3400 Head {h00=0x002e, h01=0x0050, text=» BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW «, t00=0x0021, t01=0x0048}
0x3400…341c Head {h00=0x0018, h01=0x0050, text=» GETABX DEBINW4 *** «, t00=0x0021, t01=0x007a}
0x341c…3434 Head {h00=0x0014, h01=0x0050, text=» B SETCREAD *** «, t00=0x0021, t01=0x0096}
0x3434…3448 Head {h00=0x0010, h01=0x0050, text=»KEOI20 ***«, t00=0x0021, t01=0x00ae}
0x3448…3468 Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW2,W11,KEOI30 «, t00=0x0021, t01=0x00c2}
0x3468…347a Head {h00=0x000e, h01=0x0050, text=» B KKEEP2 «, t00=0x0021, t01=0x00e2}
0x347a…3488 Head {h00=0x000a, h01=0x0050, text=»KEOI30«, t00=0x0021, t01=0x00f4}
0x3488…3496 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0021, t01=0x0102}
0x3496…34a8 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0021, t01=0x0110}
0x34a8…34b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0122}
0x34b2…34da Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0021, t01=0x012c}
0x34da…34f2 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0021, t01=0x0154}
0x34f2…3510 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W1,KTBWD2«, t00=0x0021, t01=0x016c}
0x3510…351e Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0021, t01=0x018a}
0x351e…3530 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0022, t01=0x0008}
0x3530…353e Head {h00=0x000a, h01=0x0050, text=»KTBWD2«, t00=0x0022, t01=0x001a}
0x353e…355a Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W3 EOI«, t00=0x0022, t01=0x0028}
0x355a…3564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0044}
0x3564…358a Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0022, t01=0x004e}
0x358a…35b4 Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KTHOM2 JUMP IF BALANCE «, t00=0x0022, t01=0x0074}
0x35b4…35ce Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,KTHOM2«, t00=0x0022, t01=0x009e}
0x35ce…35e8 Head {h00=0x0016, h01=0x0050, text=» TBT KEYVER,KTKEY «, t00=0x0022, t01=0x00b8}
0x35e8…35f6 Head {h00=0x000a, h01=0x0050, text=»KTHOM3«, t00=0x0022, t01=0x00d2}
0x35f6…360e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0022, t01=0x00e0}
0x360e…3630 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 «, t00=0x0022, t01=0x00f8}
0x3630…3640 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0022, t01=0x011a}
0x3640…3652 Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x0022, t01=0x012a}
0x3652…3660 Head {h00=0x000a, h01=0x0050, text=»KTHOM2«, t00=0x0022, t01=0x013c}
0x3660…366e Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0022, t01=0x014a}
0x366e…368e Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0022, t01=0x0158}
0x368e…36a4 Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0022, t01=0x0178}
0x36a4…36c0 Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0022, t01=0x018e}
0x36c0…36ec Head {h00=0x0028, h01=0x0050, text=» BOFL KENT15 EMPTY COMPULSORY FIELD «, t00=0x0023, t01=0x001a}
0x36ec…36f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0046}
0x36f6…3700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x3700…3724 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0023, t01=0x005a}
0x3724…3740 Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,KCOP10«, t00=0x0023, t01=0x007e}
0x3740…3754 Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x0023, t01=0x009a}
0x3754…3772 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,KCOP10«, t00=0x0023, t01=0x00ae}
0x3772…3796 Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,DUMMY,DUMMY, C «, t00=0x0023, t01=0x00cc}
0x3796…37bc Head {h00=0x0022, h01=0x0050, text=» KTEOI,DUMMY,DUMMY,KTEOI, C «, t00=0x0023, t01=0x00f0}
0x37bc…37d8 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTEOI,KKEEP «, t00=0x0023, t01=0x0116}
0x37d8…3818 Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - DEBINW2 CLOBBERED BY DETCHK«, t00=0x0023, t01=0x0132}
0x3818…3820 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0172}
0x3820…3834 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0023, t01=0x017a}
0x3834…3842 Head {h00=0x000a, h01=0x0050, text=»KTKEY «, t00=0x0023, t01=0x018e}
0x3842…3858 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x0024, t01=0x000c}
0x3858…3866 Head {h00=0x000a, h01=0x0050, text=»KTKEY2«, t00=0x0024, t01=0x0022}
0x3866…387c Head {h00=0x0012, h01=0x0050, text=» ADD BIN11,W1 «, t00=0x0024, t01=0x0030}
0x387c…38ba Head {h00=0x003a, h01=0x0050, text=» CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER«, t00=0x0024, t01=0x0046}
0x38ba…38d6 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0024, t01=0x0084}
0x38d6…38fe Head {h00=0x0024, h01=0x0050, text=» BZ SETCREAD JUMP IF VERIFYFIELD«, t00=0x0024, t01=0x00a0}
0x38fe…3910 Head {h00=0x000e, h01=0x0050, text=» B KTHOM3 «, t00=0x0024, t01=0x00c8}
0x3910…391e Head {h00=0x000a, h01=0x0050, text=»KTEOI «, t00=0x0024, t01=0x00da}
0x391e…3936 Head {h00=0x0014, h01=0x0050, text=» TBF DOOL3,KTFWD«, t00=0x0024, t01=0x00e8}
0x3936…394e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x0024, t01=0x0100}
0x394e…395c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0118}
0x395c…3966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0126}
0x3966…397c Head {h00=0x0012, h01=0x0050, text=»* DUPL KEY«, t00=0x0024, t01=0x0130}
0x397c…3986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0146}
0x3986…3994 Head {h00=0x000a, h01=0x0050, text=»KDUPL «, t00=0x0024, t01=0x0150}
0x3994…39a8 Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0024, t01=0x015e}
0x39a8…39bc Head {h00=0x0010, h01=0x0050, text=» BNOK KTEOI2«, t00=0x0024, t01=0x0172}
0x39bc…39e2 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,KTEOI,DUMMY,UPDATE«, t00=0x0024, t01=0x0186}
0x39e2…39f0 Head {h00=0x000a, h01=0x0050, text=»KTEOI2«, t00=0x0025, t01=0x001c}
0x39f0…3a0e Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0025, t01=0x002a}
0x3a0e…3a26 Head {h00=0x0014, h01=0x0050, text=» BNZ KENT20 YES!«, t00=0x0025, t01=0x0048}
0x3a26…3a4e Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,KCOP10,ERRRET,ERRRET«, t00=0x0025, t01=0x0060}
0x3a4e…3a62 Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0025, t01=0x0088}
0x3a62…3a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009c}
0x3a6c…3a84 Head {h00=0x0014, h01=0x0050, text=»* STATUS KEY«, t00=0x0025, t01=0x00a6}
0x3a84…3a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00be}
0x3a8e…3aa8 Head {h00=0x0016, h01=0x0050, text=»STATUS PERF DESTAT«, t00=0x0025, t01=0x00c8}
0x3aa8…3ac0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0025, t01=0x00e2}
0x3ac0…3ad4 Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0025, t01=0x00fa}
0x3ad4…3ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x010e}
0x3ade…3af6 Head {h00=0x0014, h01=0x0050, text=»* PRINT KEY «, t00=0x0025, t01=0x0118}
0x3af6…3b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0130}
0x3b00…3b1a Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0025, t01=0x013a}
0x3b1a…3b3e Head {h00=0x0020, h01=0x0050, text=» PERF ATTPRT RESERVE PRINTER«, t00=0x0025, t01=0x0154}
0x3b3e…3b54 Head {h00=0x0012, h01=0x0050, text=» BNOK ERRPRINT«, t00=0x0025, t01=0x0178}
0x3b54…3b7a Head {h00=0x0022, h01=0x0050, text=» EDWRT DEDSPRT,FORMF FORMFEED «, t00=0x0025, t01=0x018e}
0x3b7a…3b92 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0026, t01=0x0024}
0x3b92…3bb4 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0026, t01=0x003c}
0x3bb4…3bd8 Head {h00=0x0020, h01=0x0050, text=» PERF DETPRT RELEASE PRINTER«, t00=0x0026, t01=0x005e}
0x3bd8…3be6 Head {h00=0x000a, h01=0x0050, text=»KCOP10«, t00=0x0026, t01=0x0082}
0x3be6…3c0e Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0026, t01=0x0090}
0x3c0e…3c1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b8}
0x3c1c…3c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c26…3c3e Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0026, t01=0x00d0}
0x3c3e…3c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e8}
0x3c48…3c56 Head {h00=0x000a, h01=0x0050, text=»KEDITX«, t00=0x0026, t01=0x00f2}
0x3c56…3c74 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0026, t01=0x0100}
0x3c74…3c86 Head {h00=0x000e, h01=0x0050, text=» BZ KED050«, t00=0x0026, t01=0x011e}
0x3c86…3ca4 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW2,W5 RBWD «, t00=0x0026, t01=0x0130}
0x3ca4…3cbc Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0026, t01=0x014e}
0x3cbc…3cce Head {h00=0x000e, h01=0x0050, text=» B ERRET1 «, t00=0x0026, t01=0x0166}
0x3cce…3cdc Head {h00=0x000a, h01=0x0050, text=»KED050«, t00=0x0026, t01=0x0178}
0x3cdc…3cfa Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW1,W0,KEDITY«, t00=0x0026, t01=0x0186}
0x3cfa…3d12 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W1«, t00=0x0027, t01=0x0014}
0x3d12…3d20 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0027, t01=0x002c}
0x3d20…3d42 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x0027, t01=0x003a}
0x3d42…3d62 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW3,W0,KED100 «, t00=0x0027, t01=0x005c}
0x3d62…3d8e Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0027, t01=0x007c}
0x3d8e…3da2 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0027, t01=0x00a8}
0x3da2…3db0 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0027, t01=0x00bc}
0x3db0…3dd2 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x0027, t01=0x00ca}
0x3dd2…3df8 Head {h00=0x0022, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 MINUS «, t00=0x0027, t01=0x00ec}
0x3df8…3e0a Head {h00=0x000e, h01=0x0050, text=» BZ KED200«, t00=0x0027, t01=0x0112}
0x3e0a…3e34 Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTABB,DEBINW1, C«, t00=0x0027, t01=0x0124}
0x3e34…3e4e Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0027, t01=0x014e}
0x3e4e…3e60 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x0027, t01=0x0168}
0x3e60…3e6e Head {h00=0x000a, h01=0x0050, text=»KED200«, t00=0x0027, t01=0x017a}
0x3e6e…3e98 Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTAB3,DEBINW1, C«, t00=0x0027, t01=0x0188}
0x3e98…3eb2 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0028, t01=0x0022}
0x3eb2…3ed8 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x0028, t01=0x003c}
0x3ed8…3ee6 Head {h00=0x000a, h01=0x0050, text=»KEDITY«, t00=0x0028, t01=0x0062}
0x3ee6…3ef6 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0028, t01=0x0070}
0x3ef6…3f06 Head {h00=0x000c, h01=0x0050, text=» B KEDIT«, t00=0x0028, t01=0x0080}
0x3f06…3f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0090}
0x3f10…3f2a Head {h00=0x0016, h01=0x0050, text=»* ERASE KEY «, t00=0x0028, t01=0x009a}
0x3f2a…3f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b4}
0x3f34…3f42 Head {h00=0x000a, h01=0x0050, text=»KERASE«, t00=0x0028, t01=0x00be}
0x3f42…3f5a Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0028, t01=0x00cc}
0x3f5a…3f76 Head {h00=0x0018, h01=0x0050, text=» ERASE 10,DEBINW4,W0«, t00=0x0028, t01=0x00e4}
0x3f76…3f90 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x0028, t01=0x0100}
0x3f90…3faa Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W12 «, t00=0x0028, t01=0x011a}
0x3faa…3fbc Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x0028, t01=0x0134}
0x3fbc…3fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0146}
0x3fc6…3fdc Head {h00=0x0012, h01=0x0050, text=»* KEEP KEY «, t00=0x0028, t01=0x0150}
0x3fdc…3fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0166}
0x3fe6…3ff4 Head {h00=0x000a, h01=0x0050, text=»KKEEP «, t00=0x0028, t01=0x0170}
0x3ff4…4020 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,KENT03 JUMP IF NOT ENTRY «, t00=0x0028, t01=0x017e}
0x4020…404a Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KKEEP2 «, t00=0x0029, t01=0x001a}
0x404a…4058 Head {h00=0x000a, h01=0x0050, text=»KKEEP1«, t00=0x0029, t01=0x0044}
0x4058…407a Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0029, t01=0x0052}
0x407a…4098 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT07«, t00=0x0029, t01=0x0074}
0x4098…40c2 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0029, t01=0x0092}
0x40c2…40d8 Head {h00=0x0012, h01=0x0050, text=» BZ KKEEP3 NO!«, t00=0x0029, t01=0x00bc}
0x40d8…410a Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0029, t01=0x00d2}
0x410a…4122 Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x0029, t01=0x0104}
0x4122…4130 Head {h00=0x000a, h01=0x0050, text=»KKEEP3«, t00=0x0029, t01=0x011c}
0x4130…4152 Head {h00=0x001e, h01=0x0050, text=» CMP DEBINW2,W12 ERASE KEY«, t00=0x0029, t01=0x012a}
0x4152…4164 Head {h00=0x000e, h01=0x0050, text=» BZ UPD040«, t00=0x0029, t01=0x014c}
0x4164…4176 Head {h00=0x000e, h01=0x0050, text=» B UPD020 «, t00=0x0029, t01=0x015e}
0x4176…4184 Head {h00=0x000a, h01=0x0050, text=»KKEEP2«, t00=0x0029, t01=0x0170}
0x4184…4196 Head {h00=0x000e, h01=0x0050, text=» SET DOOL5«, t00=0x0029, t01=0x017e}
0x4196…41ae Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0029, t01=0x0190}
0x41ae…41c6 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x002a, t01=0x0018}
0x41c6…41f4 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x002a, t01=0x0030}
0x41f4…4210 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x002a, t01=0x005e}
0x4210…4222 Head {h00=0x000e, h01=0x0050, text=» BE KKEEP5«, t00=0x002a, t01=0x007a}
0x4222…4236 Head {h00=0x0010, h01=0x0050, text=» BL SETCREAD«, t00=0x002a, t01=0x008c}
0x4236…424a Head {h00=0x0010, h01=0x0050, text=» BOFL KENT10«, t00=0x002a, t01=0x00a0}
0x424a…425c Head {h00=0x000e, h01=0x0050, text=» B KKEEP4 «, t00=0x002a, t01=0x00b4}
0x425c…426a Head {h00=0x000a, h01=0x0050, text=»KKEEP5«, t00=0x002a, t01=0x00c6}
0x426a…4288 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002a, t01=0x00d4}
0x4288…429a Head {h00=0x000e, h01=0x0050, text=» BZ KKEEP1«, t00=0x002a, t01=0x00f2}
0x429a…42a8 Head {h00=0x000a, h01=0x0050, text=»KKEEP4«, t00=0x002a, t01=0x0104}
0x42a8…42bc Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x002a, t01=0x0112}
0x42bc…42da Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,KKEEP1«, t00=0x002a, t01=0x0126}
0x42da…4304 Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KKEEP1 JUMP IF BALANCE «, t00=0x002a, t01=0x0144}
0x4304…432a Head {h00=0x0022, h01=0x0050, text=» CBE DEBINW2,W12,KKEEP1 ERASE «, t00=0x002a, t01=0x016e}
0x432a…433e (43, 0, 398) Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x002b, t01=0x0004}
0x433e…4352 Head {h00=0x0010, h01=0x0050, text=» BNOK KENT20«, t00=0x002b, t01=0x0018}
0x4352…437a Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KEEP «, t00=0x002b, t01=0x002c}
0x437a…438c Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x002b, t01=0x0054}
0x438c…439a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0066}
0x439a…43a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0074}
0x43a4…43ba Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY «, t00=0x002b, t01=0x007e}
0x43ba…43c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0094}
0x43c4…43d2 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x002b, t01=0x009e}
0x43d2…43ec Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x002b, t01=0x00ac}
0x43ec…440e Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x002b, t01=0x00c6}
0x440e…442c Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT06«, t00=0x002b, t01=0x00e8}
0x442c…4458 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x002b, t01=0x0106}
0x4458…446c Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x002b, t01=0x0132}
0x446c…447a Head {h00=0x000a, h01=0x0050, text=»KENT06«, t00=0x002b, t01=0x0146}
0x447a…44b0 Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED «, t00=0x002b, t01=0x0154}
0x44b0…44bc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x018a}
0x44bc…44ca Head {h00=0x000a, h01=0x0050, text=»KENT03«, t00=0x002c, t01=0x0008}
0x44ca…44f8 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,W0 INDICATE NO CLEARING «, t00=0x002c, t01=0x0016}
0x44f8…4538 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x002c, t01=0x0044}
0x4538…4564 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x002c, t01=0x0084}
0x4564…458e Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x002c, t01=0x00b0}
0x458e…45a4 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x002c, t01=0x00da}
0x45a4…45d6 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x002c, t01=0x00f0}
0x45d6…45ee Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x002c, t01=0x0122}
0x45ee…45fc Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x002c, t01=0x013a}
0x45fc…4628 Head {h00=0x0028, h01=0x0050, text=» TBT DOOL3,KENT07 JUMP IF ENTRY-MODE«, t00=0x002c, t01=0x0148}
0x4628…4646 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W9,KENT07«, t00=0x002c, t01=0x0174}
0x4646…4666 (45, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW2,W10,KENT07 «, t00=0x002d, t01=0x0004}
0x4666…469c Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED «, t00=0x002d, t01=0x0024}
0x469c…46a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x005a}
0x46a8…46c2 Head {h00=0x0016, h01=0x0050, text=»KENT07 B SETCREAD «, t00=0x002d, t01=0x0066}
0x46c2…46cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0080}
0x46cc…46f6 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x002d, t01=0x008a}
0x46f6…4700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b4}
0x4700…470e Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x002d, t01=0x00be}
0x470e…4748 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD«, t00=0x002d, t01=0x00cc}
0x4748…4756 Head {h00=0x000a, h01=0x0050, text=»KENT15«, t00=0x002d, t01=0x0106}
0x4756…4788 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND«, t00=0x002d, t01=0x0114}
0x4788…47a0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x002d, t01=0x0146}
0x47a0…47be Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002d, t01=0x015e}
0x47be…47d6 Head {h00=0x0014, h01=0x0050, text=» BZ ERRPRINT NO!«, t00=0x002d, t01=0x017c}
0x47d6…47ec (46, 0, 400) Head {h00=0x0012, h01=0x0050, text=»KENT20 YES! «, t00=0x002e, t01=0x0004}
0x47ec…4808 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABI«, t00=0x002e, t01=0x001a}
0x4808…481a Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x002e, t01=0x0036}
0x481a…4828 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0048}
0x4828…4832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0056}
0x4832…4850 Head {h00=0x001a, h01=0x0050, text=»* INDICATE FORCED ITEM«, t00=0x002e, t01=0x0060}
0x4850…485a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007e}
0x485a…4868 Head {h00=0x000a, h01=0x0050, text=»KFORCE«, t00=0x002e, t01=0x0088}
0x4868…487c Head {h00=0x0010, h01=0x0050, text=» PERF DEFORC«, t00=0x002e, t01=0x0096}
0x487c…488e Head {h00=0x000e, h01=0x0050, text=» B UPDR30 «, t00=0x002e, t01=0x00aa}
0x488e…4898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00bc}
0x4898…48ac Head {h00=0x0010, h01=0x0050, text=»* VALID ITEM«, t00=0x002e, t01=0x00c6}
0x48ac…48b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00da}
0x48b6…48c4 Head {h00=0x000a, h01=0x0050, text=»KVALID«, t00=0x002e, t01=0x00e4}
0x48c4…48f0 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW2,W3 RESTORE ITEMLENGTH «, t00=0x002e, t01=0x00f2}
0x48f0…4902 Head {h00=0x000e, h01=0x0050, text=» B UPDR22 «, t00=0x002e, t01=0x011e}
0x4902…4910 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0130}
0x4910…491e Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x002e, t01=0x013e}
0x491e…4936 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W16«, t00=0x002e, t01=0x014c}
0x4936…4954 Head {h00=0x001a, h01=0x0050, text=» BE KEDIT JUMP IF EDIT«, t00=0x002e, t01=0x0164}
0x4954…4984 Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1«, t00=0x002e, t01=0x0182}
0x4984…49b4 Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2«, t00=0x002f, t01=0x0022}
0x49b4…49d4 Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x002f, t01=0x0052}
0x49d4…49f2 Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x002f, t01=0x0072}
0x49f2…4a06 Head {h00=0x0010, h01=0x0050, text=» BNZ DYK050 «, t00=0x002f, t01=0x0090}
0x4a06…4a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a4}
0x4a10…4a2c Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x002f, t01=0x00ae}
0x4a2c…4a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ca}
0x4a36…4a46 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x002f, t01=0x00d4}
0x4a46…4a74 Head {h00=0x002a, h01=0x0050, text=» TBF DOOLA,ERRP10 JUMP IF NOT BALANCE «, t00=0x002f, t01=0x00e4}
0x4a74…4a90 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x002f, t01=0x0112}
0x4a90…4aa2 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x002f, t01=0x012e}
0x4aa2…4ab0 Head {h00=0x000a, h01=0x0050, text=»ERRP10«, t00=0x002f, t01=0x0140}
0x4ab0…4acc Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x002f, t01=0x014e}
0x4acc…4ada Head {h00=0x000a, h01=0x0050, text=»ERRP20«, t00=0x002f, t01=0x016a}
0x4ada…4b02 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W1,ERRCAN CLEAR-KEY«, t00=0x002f, t01=0x0178}
0x4b02…4b10 Head {h00=0x000a, h01=0x0050, text=»ERRP25«, t00=0x0030, t01=0x0010}
0x4b10…4b42 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C«, t00=0x0030, t01=0x001e}
0x4b42…4b66 Head {h00=0x0020, h01=0x0050, text=» KVALID,KFORCE,KTBWD,KTHOME«, t00=0x0030, t01=0x0050}
0x4b66…4b74 Head {h00=0x000a, h01=0x0050, text=»ERRRET«, t00=0x0030, t01=0x0074}
0x4b74…4b8c Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW2,W2 «, t00=0x0030, t01=0x0082}
0x4b8c…4ba4 Head {h00=0x0014, h01=0x0050, text=»ERRCAN PERF CANC«, t00=0x0030, t01=0x009a}
0x4ba4…4bb8 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL5«, t00=0x0030, t01=0x00b2}
0x4bb8…4bd6 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0030, t01=0x00c6}
0x4bd6…4bea Head {h00=0x0010, h01=0x0050, text=» BNZ ERRET4«, t00=0x0030, t01=0x00e4}
0x4bea…4c16 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,CONT3 «, t00=0x0030, t01=0x00f8}
0x4c16…4c24 Head {h00=0x000a, h01=0x0050, text=»ERRET0«, t00=0x0030, t01=0x0124}
0x4c24…4c56 Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2«, t00=0x0030, t01=0x0132}
0x4c56…4c64 Head {h00=0x000a, h01=0x0050, text=»ERRET1«, t00=0x0030, t01=0x0164}
0x4c64…4c7e Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,ERRET2 «, t00=0x0030, t01=0x0172}
0x4c7e…4c96 Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x0030, t01=0x018c}
0x4c96…4ca4 Head {h00=0x000a, h01=0x0050, text=»ERRET2«, t00=0x0031, t01=0x0014}
0x4ca4…4cb0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0022}
0x4cb0…4cbe Head {h00=0x000a, h01=0x0050, text=»ERRET4«, t00=0x0031, t01=0x002e}
0x4cbe…4cea Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,ERRET5«, t00=0x0031, t01=0x003c}
0x4cea…4cfc Head {h00=0x000e, h01=0x0050, text=» B ERRET0 «, t00=0x0031, t01=0x0068}
0x4cfc…4d0a Head {h00=0x000a, h01=0x0050, text=»ERRET5«, t00=0x0031, t01=0x007a}
0x4d0a…4d30 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W8 SIMULATE TBWD«, t00=0x0031, t01=0x0088}
0x4d30…4d40 Head {h00=0x000c, h01=0x0050, text=» B KTBWD«, t00=0x0031, t01=0x00ae}
0x4d40…4d4e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x00be}
0x4d4e…4d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00cc}
0x4d58…4d6a Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0031, t01=0x00d6}
0x4d6a…4d76 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0031, t01=0x00e8}
0x4d76…4d8c Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0031, t01=0x00f4}
0x4d8c…4d9a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0031, t01=0x010a}
0x4d9a…4dac Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x0031, t01=0x0118}
0x4dac…4dc0 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0031, t01=0x012a}
0x4dc0…4dce Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0031, t01=0x013e}
0x4dce…4dda Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0031, t01=0x014c}
0x4dda…4dde Head {h00=0x4004, h01=0x0000}
0x4dde…4de2 00 31 01 58 ┆ 1 X┆
0x4de2…4dea (50, 1, 8) 20 04 00 00 00 32 00 04 ┆ 2 ┆
0x4dea…4e3a (51, 0, 400) 20 20 20 20 31 20 20 52 20 20 20 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 00 1a 01 8c 00 46 00 50 2a 20 20 20 20 20 20 20 32 20 20 41 20 20 20 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 20 20 20 20 20 20 20 57 4f 52 4b 20 ┆ 1 R FLENGTH PLENGTH F P* 2 A FLENGTH PLENGTH WORK ┆
0x4e3a…4e8a 20 3a 20 42 49 4e 31 36 3d 20 4d 41 54 43 48 49 4e 49 4e 44 45 58 00 1b 00 24 00 44 00 50 2a 20 20 20 20 20 20 20 33 20 20 50 20 20 20 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 4e ┆ : BIN16= MATCHININDEX $ D P* 3 P FLENGTH PLENGTH BIN┆
0x4e8a…4eda 31 35 3d 20 53 41 56 45 44 20 44 49 54 4f 00 1b 00 6e 00 24 00 50 2a 20 20 20 20 20 20 20 34 20 20 54 20 20 20 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 00 1b 00 b6 00 24 00 50 2a 20 20 20 20 20 20 20 35 20 20 58 20 20 20 20 20 46 ┆15= SAVED DITO n $ P* 4 T FLENGTH PLENGTH $ P* 5 X F┆
0x4eda…4f2a 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 00 1b 00 de 00 4c 00 50 2a 20 20 20 20 20 20 20 36 20 20 5a 20 20 20 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 20 20 20 20 20 20 20 4f 55 54 50 55 54 3a 20 42 49 4e 35 20 3d 20 53 54 50 4f ┆LENGTH PLENGTH L P* 6 Z FLENGTH PLENGTH OUTPUT: BIN5 = STPO┆
0x4f2a…4f7a 53 20 4e 45 58 54 20 4d 41 54 43 48 20 4c 00 1b 01 06 00 4a 00 50 2a 20 20 20 20 20 20 20 37 20 20 59 20 20 20 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 4e 37 20 3d 20 46 49 45 4c ┆S NEXT MATCH L J P* 7 Y FLENGTH PLENGTH BIN7 = FIEL┆
0x4f7a…4fca (52, 0, 400) 44 4c 45 4e 47 54 48 3d 4d 41 58 4c 00 1b 01 56 00 4c 00 50 2a 20 20 20 20 20 20 20 38 20 20 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 50 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 4e 31 32 3d 20 4c 45 4e 47 54 48 ┆DLENGTH=MAXL V L P* 8 + PLENGTH BIN12= LENGTH┆
0x4fca…501a 20 4f 46 20 50 49 43 2e 2d 53 54 52 00 1c 00 14 00 48 00 50 2a 20 20 20 20 20 20 20 39 20 20 53 20 20 2d 20 20 20 20 20 20 20 20 20 20 50 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 54 53 48 3d 50 49 43 54 55 52 ┆ OF PIC.-STR H P* 9 S - PLENGTH STATSH=PICTUR┆
0x501a…506a 45 2d 53 54 52 49 4e 47 00 1c 00 64 00 24 00 50 2a 20 20 20 20 20 20 31 30 20 20 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 50 4c 45 4e 47 54 48 00 1c 00 b0 00 24 00 50 2a 20 20 20 20 20 20 31 31 20 20 2e 20 20 56 20 20 20 20 20 20 20 20 20 ┆E-STRING d $ P* 10 , PLENGTH $ P* 11 . V ┆
0x506a…50ba 20 50 4c 45 4e 47 54 48 00 1c 00 d8 00 34 00 50 2a 20 20 20 20 20 20 31 32 20 20 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 45 4e 44 20 4f 46 20 46 49 45 4c 44 29 00 1c 01 00 00 10 00 50 2a 20 20 20 20 20 20 31 ┆ PLENGTH 4 P* 12 > (END OF FIELD) P* 1┆
0x50ba…510a 33 20 20 3c 00 1c 01 38 00 24 00 50 2a 20 20 20 20 20 20 31 34 20 20 30 20 20 58 20 20 46 4c 45 4e 47 54 48 20 50 4c 45 4e 47 54 48 00 1c 01 4c 00 26 00 50 2a 20 20 20 4e 4f 20 4d 41 54 43 48 20 20 45 20 20 20 20 20 20 20 20 20 20 50 4c 45 ┆3 < 8 $ P* 14 0 X FLENGTH PLENGTH L & P* NO MATCH E PLE┆