|
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: 23782 (0x5ce6)
Notes: pts_type(SC)
Names: »DENTER.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DENTER.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DENTER.SC«
IDENT DENTER REL 10.0 81-08-27/EV UPD 80-11-06/DALI UPD 80-10-21/DALI UPD 80-06-28/DALI UPD 80-04-14/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 10.0 * * TOSS REL 10.0 * ****************************************** 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 HANDLE 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 EXT DELAST 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 CONT7 JUMP IF NOT BALANCE SET ASDFLAG MOVE DEBINW2,W9 B KTHOME CONT7 TBF ASDFLAG,SETCREAD B KTHOME GO HOME IF CTAB+ASD 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 UPDVAL NO! UPD040 GETCTL 3,DEBINW4 GET SCHK CALL TESTB,DEBINW4,W13 LOOK IF COND ME BZ UPDR35 VALIDATION IF COND B UPDVAL EJECT * * ENTERED DATA FROM KEYBOARD * UPD100 GETCTL 3,DEBINW4 GET SCHK-NUMBER UPD105 IB DEBINW4 JUMP SCHK NUMBER C UPD110 =1 C UPD120 =2 C UPD120 =3 C UPD200 =4 C UPD110 =5 C UPD120 =6 C UPD120 =7 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 GETCTL 1,DEBINW3 GET MAXL SUB DEBINW3,DEBINW1 BZ UPD150 MAXL = INPUTLENGTH TSTCTL 0 LOOK IF ALPHA BZ UPD130 NO! MOVE STATSH,=X'20' PUT SPACE IN AREA B UPD140 UPD130 MOVE STATSH,=X'30' PUT ZERO IN ARTEA UPD140 RIGHT ADJUST CURRENT IPNPUT INSRT DEINPUT,W0,DEBINW3,STATSH,W0 UPD150 SUB DEBINW4,W2 B UPD105 UPD200 TBT DOOL3,UPDVAL ENTRY-MODE APPL- VALUE-HANDLING IS EXECUTED WITHIN DENVAL GETCTL 0,DEBINW3 GET APPL-VALUE CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE * * APPL-VALUE DIFFERENT FROM ZERO * PERF DEAPPL IB DEBINW3,UPDR15,SETCREAD,ERRPRINT B UPDR25 EJECT * * 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 MOVE DEBINW3,W0 CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 BNOK UPDR25 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,W0 EJECT * * RETURN FROM VALIDATION * MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH CLEAR DOOLB ERROR-FLAG BZ UPDR20 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 CBE BIN11,W0,UPDR17 JUMP IF NO POOL 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! DUPL STR2A LOOK IF KEYED INPUT = N BOK UPDR18 YES! TBF ASDFLAG,UPDR14 UPDR18 PERF DERROR,DEKTABI NO KEY INPUT B ERRP25 UPDR14 PERF DERROR,DEKTABD B ERRP20 EJECT * * VALDATION SUCCESSFULLY PERFORMED * UPDR15 UPDFLD 1,DEINPUT UNCONDITIONAL UPD. B UPDR28 UPDR20 IB DEBINW3,UPDR25,SETCREAD,UPDR12 UPDR25 CBE DEBINW3,W1,UPDR15 CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING UPDR28 TSTCTL 5 BZ UPDR30 TBT ASDFLAG,UPDR33 DUPL STR2A KEYED INPUT = N? BOK UPDR33 YES! UPDR30 SET DECHANGE INDICATE CHANGED ITEM UPDR33 TBF DOOL3,UPDR50 JUMP IF NOT ENTRY UPDR35 CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 BNOK UPDR50 DK BEGIN TBF CORR,UPDR37 IN CORRECTION MODE? TSTCTL 5 YES, LOOK FOR CTAB BZ UPDR37 NO! DUPL STR2A KEYED INPUT=N? BOK UPDR40 YES! UPDR37 DK END PERF DEGEN UPDR40 TSTCTL 5 BZ UPDR45 TBT ASDFLAG,UPDR50 DUPL STR2A KEYED INPUT = N? BOK UPDR50 YES! UPDR45 SET DECHANGE UPDR50 MOVE DEBINW1,W0 SET INPUTLENGTH = 0 IB DEBINW2,KTFWD,DUMMY, C KEOI,DUMMY,DUMMY,KTFWD, C KTBWD,KTHOME,KERASE,KKEEP,KEOI, C KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER CMP DEBINW2,W24 BE KASD JUMP IF ASD FLAG 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 B KENT04 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 BE KTHOME JUMP IF GOTO FIELD 1 KEOI15 CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 CALL ADJUST,DKBIN1 BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW GETABX DEBINW4 *** ADD DEBINW4,W1 B KEOI15 KEOI20 *** CBL DEBINW2,W11,KEOI30 B KKEEP2 KEOI30 TBT DOOL3,KEOI40 ENTRY SCREEN TFWD B TSTTAB KEOI40 TSTCTL 2 LOOK IF COMPULSORY FIELD BZ KEOI45 NO! CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD BP KENT15 YES! KEOI45 GETABX DEBINW4 ADD DEBINW4,W1 CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 CALL ADJUST,DKBIN1 BNE TSTTAB KEOI50 TSTCTL 5 BNZ TSTT05 B TSTT10 * 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,KTHOM4 JUMP IF BALANCE TBF VERIFM,KTHOM2 TBT KEYVER,KTKEY KTHOM3 MOVE DEBINW1,W0 GETFLD 0,DEBINW1,DEBINW3 SETCUR B READ10 KTHOM4 SET ASDFLAG SET ASD WHEN BALANCE MOVE DEBINW1,W0 SET INPUT.LENGTH=0 WHEN BALANCE-FORMAT KTHOM2 THOME TSTTAB TEST TAB OUTPUT BE TSTT10 OK BL READIN NOT FOUND BOFL KENT15 EMPTY COMPULSORY FIELD * TSTT05 * CONDITIONAL TABULATION TBT DENOCHAN,TSTT15 DUPL STR2A KEYED INPUT = N? BOK TSTT07 YES! TBF ASDFLAG,TSTT15 TSTT07 PERF DETCHK CBE DEBINW3,W0,TSTT15 IB DEBINW2,DUMMY,DUMMY, C KTEOI,DUMMY,DUMMY,KTEOI, C KTBWD,KTEOI,KKEEP TSTT15 B SETCREAD TSTT10 TBF AUTENT,TSTT15 TBF DOOL3,TSTT15 NOT ENTRY SCREEN TBT DOOLA,TSTT15 BALANCE FORMAT GETCTL 1,DEBINW4 GET MAXL CBNE DEBINW4,W0,TSTT15 B KENT06 EJECT 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 DK BEGIN TBF CORR,KDUPL10 IN CORRECTION MODE? TSTCTL 5 YES, LOKK IF CTAB BZ KDUPL10 NO! DUPL STR2A KEYED INPUT=N? BOK KDUPL20 YES! KDUPL10 DK END PERF DENDUP BNOK KTEOI2 KDUPL20 IB DEBINW2,KTEOI,DUMMY,UPDATE KTEOI2 TSTCTL 5 LOOK IF CTAB BNZ KTEOI4 YES! KTEOI3 IB DEBINW2,KCOP10,ERRRET,ERRRET B ERRPRINT KTEOI4 IB DEBINW2,ERRRET,ERRRET,ERRRET DUPL STR2A BOK KENT20 TBF ASDFLAG,KTEOI3 B KENT20 * * STATUS KEY * STATUS PERF DESTAT MOVE DEBINW1,W0 B ERRP10 * * 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 KASD ASD-KEY PRESSED TBF DOOLA,KASD2 JUMP IF NOT BALANCE SET ASDFLAG B KASD3 KASD2 INV ASDFLAG KASD3 PERF DELAST,W14,DEKTAB4 MOVE DEBINW2,W3 SIMULATE EOI B KEOI50 EJECT * * EDIT FIELD * KEDITX TSTCTL 5 LOOK IF CTAB BZ KED050 DUPL STR2A LOOK IF KEYED INPUT =N BOK KED025 YES! TBF ASDFLAG,KED050 KED025 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 KKEEP0 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 DUPL STR2A KEYED INPUT = N? BOK KKEEP4 TBF ASDFLAG,KKEEP1 KKEEP4 PERF DETCHK CBE DEBINW3,W0,KKEEP1 TBT DOOLA,KKEEP1 JUMP IF BALANCE CBE DEBINW2,W12,KKEEP1 ERASE DK BEGIN TBF CORR,KKEEP45 IN CORRECTION MODE? TSTCTL 5 YES, LOOK IF CTAB BZ KKEEP45 NO! DUPL STR2A KEYED INPUT=N? BOK KKEEP48 YES KKEEP45 DK END PERF DENDUP BNOK KENT20 KKEEP48 MOVE DEBINW2,W11 SIMULATE KEEP B KKEEP1 EJECT * * ENTER KEY * KENTER TBF DOOL3,KENT03 TBT AUTENT,KKEEP0 GETCTL 1,DEBINW4 GET MAXL CBE DEBINW4,W0,KENT06 EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B SETCREAD KENT06 SET DECHANGE AT LEAST ONCE KENT04 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 CBNE DEBINW2,W10,KENT06 KENT07 TBT AUTENT,KENT06 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! DUPL STR2A BOK KENT20 YES! TBF ASDFLAG,ERRPRINT 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 UPDR25 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 BZ ERRCA1 TBT ASDFLAG,ERRET4 DUPL STR2A KEYED INPUT = N BOK ERRET4 YES! ERRCA1 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…002a (0, 0, 400) Head {h00=0x0026, h01=0x0050, text=» IDENT DENTER REL 10.0 81-08-27/EV«, t00=0x0000, t01=0x0004}
0x002a…0046 Head {h00=0x0018, h01=0x0050, text=» UPD 80-11-06/DALI«, t00=0x0000, t01=0x002e}
0x0046…0062 Head {h00=0x0018, h01=0x0050, text=» UPD 80-10-21/DALI«, t00=0x0000, t01=0x004a}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» UPD 80-06-28/DALI«, t00=0x0000, t01=0x0066}
0x007e…009a Head {h00=0x0018, h01=0x0050, text=» UPD 80-04-14/DALI«, t00=0x0000, t01=0x0082}
0x009a…00cc Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x009e}
0x00cc…00fe Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE HANDLE THE KEYBOARD INPUT *«, t00=0x0000, t01=0x00d0}
0x00fe…0130 Head {h00=0x002e, h01=0x0050, text=»* AND IS A MODIFIED VERSION OF THE STAN- *«, t00=0x0000, t01=0x0102}
0x0130…0162 Head {h00=0x002e, h01=0x0050, text=»* DARD S C R E E N - P A C K A G E. *«, t00=0x0000, t01=0x0134}
0x0162…0194 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x0166}
0x0194…019e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01d0 Head {h00=0x002e, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 10.0 *«, t00=0x0001, t01=0x0012}
0x01d0…0202 Head {h00=0x002e, h01=0x0050, text=»* TOSS REL 10.0 *«, t00=0x0001, t01=0x0044}
0x0202…0234 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0001, t01=0x0076}
0x0234…0248 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x00a8}
0x0248…0256 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x00bc}
0x0256…0260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x0260…0290 Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0001, t01=0x00d4}
0x0290…02c0 Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0001, t01=0x0104}
0x02c0…02ee Head {h00=0x002a, h01=0x0050, text=» ENTRY DECLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x0134}
0x02ee…0304 Head {h00=0x0012, h01=0x0050, text=» ENTRY DECLRD «, t00=0x0001, t01=0x0162}
0x0304…0324 Head {h00=0x001c, h01=0x0050, text=» ENTRY DERR DENTER-ERROR«, t00=0x0001, t01=0x0178}
0x0324…0346 Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0002, t01=0x0008}
0x0346…036c Head {h00=0x0022, h01=0x0050, text=» EXT DEGEN GENERATION ROUTINE «, t00=0x0002, t01=0x002a}
0x036c…0388 Head {h00=0x0018, h01=0x0050, text=» EXT CANC -ROUTINES «, t00=0x0002, t01=0x0050}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03ba Head {h00=0x0024, h01=0x0050, text=» EXT DESTAT BUILD THE STATUSLINE«, t00=0x0002, t01=0x0076}
0x03ba…03e2 Head {h00=0x0024, h01=0x0050, text=» EXT DEAPPL STANDARD ROUTINE TO «, t00=0x0002, t01=0x009e}
0x03e2…0400 Head {h00=0x001a, h01=0x0050, text=» HANDLE APPL VALUES «, t00=0x0002, t01=0x00c6}
0x0400…042c Head {h00=0x0028, h01=0x0050, text=» EXT DETCHK USER ROUTINE TO EVALUATE«, t00=0x0002, t01=0x00e4}
0x042c…044e Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x0110}
0x044e…0462 Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0002, t01=0x0132}
0x0462…0476 Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0002, t01=0x0146}
0x0476…048a Head {h00=0x0010, h01=0x0050, text=» EXT DENDUP «, t00=0x0002, t01=0x015a}
0x048a…04b0 Head {h00=0x0022, h01=0x0050, text=» EXT DEFORC HANDLE FORCEDITEM «, t00=0x0002, t01=0x016e}
0x04b0…04d4 (3, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EXT DEVERI KEY-VERIFICATION«, t00=0x0003, t01=0x0004}
0x04d4…04de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0028}
0x04de…0510 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x0032}
0x0510…0536 Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x0064}
0x0536…0568 Head {h00=0x002e, h01=0x0050, text=» EXT FORCED ASSEMBLY SUBROUTINE FORCED - «, t00=0x0003, t01=0x008a}
0x0568…0590 Head {h00=0x0024, h01=0x0050, text=» TEST IF DATA ITEM IS FORCED «, t00=0x0003, t01=0x00bc}
0x0590…05be Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0003, t01=0x00e4}
0x05be…05e0 Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0003, t01=0x0112}
0x05e0…0604 Head {h00=0x0020, h01=0x0050, text=» EXT ATTPRT RESERVE PRINTER «, t00=0x0003, t01=0x0134}
0x0604…0626 Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV RESERVE DEVICE«, t00=0x0003, t01=0x0158}
0x0626…064a Head {h00=0x0020, h01=0x0050, text=» EXT DETPRT RELEASE PRINTER «, t00=0x0003, t01=0x017a}
0x064a…065c Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0004, t01=0x000e}
0x065c…0684 Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0004, t01=0x0020}
0x0684…06a8 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x0048}
0x06a8…06d2 Head {h00=0x0026, h01=0x0050, text=» EXT GETGEN LOOK FOR GENERARTION- «, t00=0x0004, t01=0x006c}
0x06d2…06f6 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x0096}
0x06f6…0720 Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0004, t01=0x00ba}
0x0720…074e Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0004, t01=0x00e4}
0x074e…0770 Head {h00=0x001e, h01=0x0050, text=» EXT DELOCK TEST KEY-LOCKS«, t00=0x0004, t01=0x0112}
0x0770…07a0 Head {h00=0x002c, h01=0x0050, text=» EXT GETFWD ASSEMBLY SUBROUTINE GETFWD -«, t00=0x0004, t01=0x0134}
0x07a0…07ba Head {h00=0x0016, h01=0x0050, text=» EXECUTE GETFLD.«, t00=0x0004, t01=0x0164}
0x07ba…07dc Head {h00=0x001e, h01=0x0050, text=» NOTE THAT CONDITION=3, «, t00=0x0004, t01=0x017e}
0x07dc…07fa Head {h00=0x001a, h01=0x0050, text=» MEANING THAT EMPTY «, t00=0x0005, t01=0x0010}
0x07fa…081a Head {h00=0x001c, h01=0x0050, text=» COMPULSURY FIELDS IS «, t00=0x0005, t01=0x002e}
0x081a…0838 Head {h00=0x001a, h01=0x0050, text=» FOUND,WILL "NOT" BE«, t00=0x0005, t01=0x004e}
0x0838…084c Head {h00=0x0010, h01=0x0050, text=» INDICATED«, t00=0x0005, t01=0x006c}
0x084c…087c Head {h00=0x002c, h01=0x0050, text=» EXT ADJUST ASSEMBLY SUBROUTINE ADJUST -«, t00=0x0005, t01=0x0080}
0x087c…08a2 Head {h00=0x0022, h01=0x0050, text=» ADJUST FORMATPOINTERS AFTER«, t00=0x0005, t01=0x00b0}
0x08a2…08c0 Head {h00=0x001a, h01=0x0050, text=» EXECUTION OF GETFWD«, t00=0x0005, t01=0x00d6}
0x08c0…08d4 Head {h00=0x0010, h01=0x0050, text=» EXT DELAST «, t00=0x0005, t01=0x00f4}
0x08d4…08e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0108}
0x08e2…08ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ec…0908 Head {h00=0x0018, h01=0x0050, text=» INCLUDE DELITT,LIST«, t00=0x0005, t01=0x0120}
0x0908…0916 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x013c}
0x0916…0920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014a}
0x0920…0962 Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x0154}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…0980 Head {h00=0x0010, h01=0x0050, text=»DECLRA PROC «, t00=0x0006, t01=0x0012}
0x0980…0998 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W1 «, t00=0x0006, t01=0x0026}
0x0998…09a4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x003e}
0x09a4…09b2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x004a}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…0a00 Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0062}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0a…0a1e Head {h00=0x0010, h01=0x0050, text=»DECLRS PROC «, t00=0x0006, t01=0x00b0}
0x0a1e…0a36 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W2 «, t00=0x0006, t01=0x00c4}
0x0a36…0a42 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00dc}
0x0a42…0a50 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00e8}
0x0a50…0a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f6}
0x0a5a…0a9c Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0100}
0x0a9c…0aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa6…0aba Head {h00=0x0010, h01=0x0050, text=»DECLRN PROC «, t00=0x0006, t01=0x014c}
0x0aba…0ad2 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W3 «, t00=0x0006, t01=0x0160}
0x0ad2…0ade Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0178}
0x0ade…0aec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0184}
0x0aec…0af6 (7, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af6…0b32 Head {h00=0x0038, h01=0x0050, text=»* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST«, t00=0x0007, t01=0x000e}
0x0b32…0b72 Head {h00=0x003c, h01=0x0050, text=»* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0007, t01=0x004a}
0x0b72…0b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7c…0b90 Head {h00=0x0010, h01=0x0050, text=»DECLRD PROC «, t00=0x0007, t01=0x0094}
0x0b90…0b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a8}
0x0b9a…0bb2 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W4 «, t00=0x0007, t01=0x00b2}
0x0bb2…0bbe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00ca}
0x0bbe…0bcc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00d6}
0x0bcc…0bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bd6…0bf2 Head {h00=0x0018, h01=0x0050, text=»* ERROR PRINTOUT«, t00=0x0007, t01=0x00ee}
0x0bf2…0bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0bfc…0c0e Head {h00=0x000e, h01=0x0050, text=»DERR PROC «, t00=0x0007, t01=0x0114}
0x0c0e…0c26 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0007, t01=0x0126}
0x0c26…0c3e Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W0 «, t00=0x0007, t01=0x013e}
0x0c3e…0c4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0156}
0x0c4a…0c58 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0162}
0x0c58…0c66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0170}
0x0c66…0c7e Head {h00=0x0014, h01=0x0050, text=»DENTER PROC OPT «, t00=0x0007, t01=0x017e}
0x0c7e…0ca0 Head {h00=0x001e, h01=0x0050, text=» CLEAR DOOLC ERASEFLAG OFF«, t00=0x0008, t01=0x0008}
0x0ca0…0cca Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,OPT MOVE TO VARIABLE«, t00=0x0008, t01=0x002a}
0x0cca…0cf0 Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0008, t01=0x0054}
0x0cf0…0d18 Head {h00=0x0024, h01=0x0050, text=» CMP DEBINW2,W0 "DEERR" ENTRY ? «, t00=0x0008, t01=0x007a}
0x0d18…0d32 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0008, t01=0x00a2}
0x0d32…0d3a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00bc}
0x0d3a…0d6c Head {h00=0x002e, h01=0x0050, text=» TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0008, t01=0x00c4}
0x0d6c…0d8a Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DIDELAYED«, t00=0x0008, t01=0x00f6}
0x0d8a…0d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0114}
0x0d94…0db6 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x011e}
0x0db6…0dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dc0…0dd6 Head {h00=0x0012, h01=0x0050, text=» IB DEBINW2 C«, t00=0x0008, t01=0x014a}
0x0dd6…0dea Head {h00=0x0010, h01=0x0050, text=» CLEARA C «, t00=0x0008, t01=0x0160}
0x0dea…0dfe Head {h00=0x0010, h01=0x0050, text=» CLEARS C «, t00=0x0008, t01=0x0174}
0x0dfe…0e10 Head {h00=0x000e, h01=0x0050, text=» CONT C «, t00=0x0008, t01=0x0188}
0x0e10…0e20 Head {h00=0x000c, h01=0x0050, text=» CLEARD«, t00=0x0009, t01=0x000a}
0x0e20…0e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001a}
0x0e2a…0e38 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0009, t01=0x0024}
0x0e38…0e66 Head {h00=0x002a, h01=0x0050, text=» ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP«, t00=0x0009, t01=0x0032}
0x0e66…0e76 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0060}
0x0e76…0e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e80…0e8e Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0009, t01=0x007a}
0x0e8e…0ebe Head {h00=0x002c, h01=0x0050, text=» ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP «, t00=0x0009, t01=0x0088}
0x0ebe…0ece Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x00b8}
0x0ece…0edc Head {h00=0x000a, h01=0x0050, text=»CLEARD«, t00=0x0009, t01=0x00c8}
0x0edc…0ef6 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,VERIF «, t00=0x0009, t01=0x00d6}
0x0ef6…0f24 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP«, t00=0x0009, t01=0x00f0}
0x0f24…0f34 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x011e}
0x0f34…0f42 Head {h00=0x000a, h01=0x0050, text=»VERIF «, t00=0x0009, t01=0x012e}
0x0f42…0f5c Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,SIGHT «, t00=0x0009, t01=0x013c}
0x0f5c…0f76 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 23,W1,W0 «, t00=0x0009, t01=0x0156}
0x0f76…0f86 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0170}
0x0f86…0f94 Head {h00=0x000a, h01=0x0050, text=»SIGHT «, t00=0x0009, t01=0x0180}
0x0f94…0fae Head {h00=0x0016, h01=0x0050, text=» DISPLAY 33,W1,W0 «, t00=0x0009, t01=0x018e}
0x0fae…0fbe Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0018}
0x0fbe…0fcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0028}
0x0fcc…0fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fd6…0ff8 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x000a, t01=0x0040}
0x0ff8…1002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1002…1010 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x000a, t01=0x006c}
0x1010…1028 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x000a, t01=0x007a}
0x1028…1042 Head {h00=0x0016, h01=0x0050, text=» IB DEBINW2 JUMP C«, t00=0x000a, t01=0x0092}
0x1042…1056 Head {h00=0x0010, h01=0x0050, text=» ECLRA ON C«, t00=0x000a, t01=0x00ac}
0x1056…1070 Head {h00=0x0016, h01=0x0050, text=» ECLRS ROUTINE C «, t00=0x000a, t01=0x00c0}
0x1070…1088 Head {h00=0x0014, h01=0x0050, text=» ECLRN INDEX C «, t00=0x000a, t01=0x00da}
0x1088…1098 Head {h00=0x000c, h01=0x0050, text=» ECLRN «, t00=0x000a, t01=0x00f2}
0x1098…10a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a2…10c2 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x000a, t01=0x010c}
0x10c2…10cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10cc…10da Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x000a, t01=0x0136}
0x10da…1108 Head {h00=0x002a, h01=0x0050, text=» ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP«, t00=0x000a, t01=0x0144}
0x1108…111c Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x000a, t01=0x0172}
0x111c…1136 Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x000a, t01=0x0186}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0010}
0x1140…1162 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x000b, t01=0x001a}
0x1162…116c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003c}
0x116c…117a Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x000b, t01=0x0046}
0x117a…11a8 Head {h00=0x002a, h01=0x0050, text=» ERASE 6,W1,W0 CLEAR SOME FIELDS FROM «, t00=0x000b, t01=0x0054}
0x11a8…11c6 Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000b, t01=0x0082}
0x11c6…11d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a0}
0x11d0…11fa Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000b, t01=0x00aa}
0x11fa…1204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d4}
0x1204…1212 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000b, t01=0x00de}
0x1212…122c Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000b, t01=0x00ec}
0x122c…1258 Head {h00=0x0028, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM«, t00=0x000b, t01=0x0106}
0x1258…1268 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0132}
0x1268…1276 Head {h00=0x000a, h01=0x0050, text=»EVERIF«, t00=0x000b, t01=0x0142}
0x1276…1290 Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,ESIGHT«, t00=0x000b, t01=0x0150}
0x1290…12aa Head {h00=0x0016, h01=0x0050, text=» DISPLAY 20,W1,W0 «, t00=0x000b, t01=0x016a}
0x12aa…12ba Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0184}
0x12ba…12c8 (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=»ESIGHT«, t00=0x000c, t01=0x0004}
0x12c8…12e2 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 30,W1,W0 «, t00=0x000c, t01=0x0012}
0x12e2…12f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x002c}
0x12f0…12fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12fa…1306 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000c, t01=0x0044}
0x1306…1328 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W8 HOME-KEY «, t00=0x000c, t01=0x0050}
0x1328…1336 Head {h00=0x000a, h01=0x0050, text=»CONT3 «, t00=0x000c, t01=0x0072}
0x1336…1360 Head {h00=0x0026, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT INDEX «, t00=0x000c, t01=0x0080}
0x1360…138c Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000c, t01=0x00aa}
0x138c…13a6 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,CONT5 «, t00=0x000c, t01=0x00d6}
0x13a6…13b8 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000c, t01=0x00f0}
0x13b8…13c6 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000c, t01=0x0102}
0x13c6…1400 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION «, t00=0x000c, t01=0x0110}
0x1400…1420 Head {h00=0x001c, h01=0x0050, text=» BZ CONT6 JUMP IF FOUND «, t00=0x000c, t01=0x014a}
0x1420…1446 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000c, t01=0x016a}
0x1446…1450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1450…1474 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000d, t01=0x000a}
0x1474…147e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x147e…14a8 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CHANGE INDEX«, t00=0x000d, t01=0x0038}
0x14a8…14c6 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000d, t01=0x0062}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14d0…14de Head {h00=0x000a, h01=0x0050, text=»CONT6 «, t00=0x000d, t01=0x008a}
0x14de…14fc Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x000d, t01=0x0098}
0x14fc…1510 Head {h00=0x0010, h01=0x0050, text=» BZ SETCREAD«, t00=0x000d, t01=0x00b6}
0x1510…1524 Head {h00=0x0010, h01=0x0050, text=» TEST DOOLA «, t00=0x000d, t01=0x00ca}
0x1524…154a Head {h00=0x0022, h01=0x0050, text=» BZ CONT7 JUMP IF NOT BALANCE «, t00=0x000d, t01=0x00de}
0x154a…155e Head {h00=0x0010, h01=0x0050, text=» SET ASDFLAG«, t00=0x000d, t01=0x0104}
0x155e…1576 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W9«, t00=0x000d, t01=0x0118}
0x1576…1588 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000d, t01=0x0130}
0x1588…1596 Head {h00=0x000a, h01=0x0050, text=»CONT7 «, t00=0x000d, t01=0x0142}
0x1596…15b4 Head {h00=0x001a, h01=0x0050, text=» TBF ASDFLAG,SETCREAD «, t00=0x000d, t01=0x0150}
0x15b4…15da Head {h00=0x0022, h01=0x0050, text=» B KTHOME GO HOME IF CTAB+ASD «, t00=0x000d, t01=0x016e}
0x15da…15e8 (14, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0004}
0x15e8…15f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f2…161c Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000e, t01=0x001c}
0x161c…1626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0046}
0x1626…1636 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000e, t01=0x0050}
0x1636…1662 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000e, t01=0x0060}
0x1662…166a Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x008c}
0x166a…1674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0094}
0x1674…16a2 Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000e, t01=0x009e}
0x16a2…16ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16ac…16ba Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000e, t01=0x00d6}
0x16ba…16d6 Head {h00=0x0018, h01=0x0050, text=» TBF DENOCHAN,READ50«, t00=0x000e, t01=0x00e4}
0x16d6…16f4 Head {h00=0x001a, h01=0x0050, text=»READ10 MOVE DEBINW1,W0«, t00=0x000e, t01=0x0100}
0x16f4…170c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x000e, t01=0x011e}
0x170c…1726 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,READ12«, t00=0x000e, t01=0x0136}
0x1726…1760 Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 «, t00=0x000e, t01=0x0150}
0x1760…1772 Head {h00=0x000e, h01=0x0050, text=» B READ14 «, t00=0x000e, t01=0x018a}
0x1772…1780 Head {h00=0x000a, h01=0x0050, text=»READ12«, t00=0x000f, t01=0x000c}
0x1780…17ba Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 «, t00=0x000f, t01=0x001a}
0x17ba…17c8 Head {h00=0x000a, h01=0x0050, text=»READ14«, t00=0x000f, t01=0x0054}
0x17c8…17e8 Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x000f, t01=0x0062}
0x17e8…1810 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,READ30,READ20,READ10«, t00=0x000f, t01=0x0082}
0x1810…1822 Head {h00=0x000e, h01=0x0050, text=» B READ40 «, t00=0x000f, t01=0x00aa}
0x1822…182c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x182c…1842 Head {h00=0x0012, h01=0x0050, text=»READ20 ERROR«, t00=0x000f, t01=0x00c6}
0x1842…1862 Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x000f, t01=0x00dc}
0x1862…1880 Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x000f, t01=0x00fc}
0x1880…1894 Head {h00=0x0010, h01=0x0050, text=» BNZ READ10 «, t00=0x000f, t01=0x011a}
0x1894…18b0 Head {h00=0x0018, h01=0x0050, text=» EDWRT DEDSSCRN,BELL«, t00=0x000f, t01=0x012e}
0x18b0…18c2 Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x000f, t01=0x014a}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18cc…18e6 Head {h00=0x0016, h01=0x0050, text=»READ30 POWER OFF«, t00=0x000f, t01=0x0166}
0x18e6…1900 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000f, t01=0x0180}
0x1900…1918 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0010, t01=0x000a}
0x1918…192c Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0010, t01=0x0022}
0x192c…1936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1936…1964 Head {h00=0x002a, h01=0x0050, text=»READ40 IB DEBINW2,READ10,STATUS,KCOPY «, t00=0x0010, t01=0x0040}
0x1964…197c Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W3 «, t00=0x0010, t01=0x006e}
0x197c…19aa Head {h00=0x002a, h01=0x0050, text=» TBT DOOL3,READ45 JUMP IF NOT WORKING «, t00=0x0010, t01=0x0086}
0x19aa…19d6 Head {h00=0x0028, h01=0x0050, text=» CLEAR DENOCHAN WITTH THE DATA-FILE «, t00=0x0010, t01=0x00b4}
0x19d6…19e4 Head {h00=0x000a, h01=0x0050, text=»READ45«, t00=0x0010, t01=0x00e0}
0x19e4…19f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00ee}
0x19f0…19fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fa}
0x19fa…1a08 Head {h00=0x000a, h01=0x0050, text=»READ50«, t00=0x0010, t01=0x0104}
0x1a08…1a40 Head {h00=0x0034, h01=0x0050, text=» TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION «, t00=0x0010, t01=0x0112}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=» PERF DEVERI«, t00=0x0010, t01=0x014a}
0x1a54…1a82 Head {h00=0x002a, h01=0x0050, text=» IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20«, t00=0x0010, t01=0x015e}
0x1a82…1aba Head {h00=0x0034, h01=0x0050, text=»* RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT «, t00=0x0010, t01=0x018c}
0x1aba…1ac6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0034}
0x1ac6…1ad4 Head {h00=0x000a, h01=0x0050, text=»READ55«, t00=0x0011, t01=0x0040}
0x1ad4…1af6 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x0011, t01=0x004e}
0x1af6…1b16 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 «, t00=0x0011, t01=0x0070}
0x1b16…1b3a Head {h00=0x0020, h01=0x0050, text=» BZ READ60 JUMP IF NOT SIGN «, t00=0x0011, t01=0x0090}
0x1b3a…1b6c Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C «, t00=0x0011, t01=0x00b4}
0x1b6c…1b86 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x00e6}
0x1b86…1b98 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x0011, t01=0x0100}
0x1b98…1ba6 Head {h00=0x000a, h01=0x0050, text=»READ60«, t00=0x0011, t01=0x0112}
0x1ba6…1bd8 Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C «, t00=0x0011, t01=0x0120}
0x1bd8…1bf2 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x0152}
0x1bf2…1c00 Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x0011, t01=0x016c}
0x1c00…1c20 Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x0011, t01=0x017a}
0x1c20…1c48 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,ECLRN,ERRPRT,DYK050 «, t00=0x0012, t01=0x000a}
0x1c48…1c5a Head {h00=0x000e, h01=0x0050, text=» B DYK100 «, t00=0x0012, t01=0x0032}
0x1c5a…1c68 Head {h00=0x000a, h01=0x0050, text=»DYK050«, t00=0x0012, t01=0x0044}
0x1c68…1c80 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W2«, t00=0x0012, t01=0x0052}
0x1c80…1c92 Head {h00=0x000e, h01=0x0050, text=» B ERRCAN «, t00=0x0012, t01=0x006a}
0x1c92…1ca0 Head {h00=0x000a, h01=0x0050, text=»DYK070«, t00=0x0012, t01=0x007c}
0x1ca0…1cce Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT TAB INDEX «, t00=0x0012, t01=0x008a}
0x1cce…1cfe Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD«, t00=0x0012, t01=0x00b8}
0x1cfe…1d1a Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0012, t01=0x00e8}
0x1d1a…1d28 Head {h00=0x000a, h01=0x0050, text=»DYK100«, t00=0x0012, t01=0x0104}
0x1d28…1d48 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOL5 KEYED INPUT«, t00=0x0012, t01=0x0112}
0x1d48…1d74 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,UPDATE,DYK070 JUMP ON C «, t00=0x0012, t01=0x0132}
0x1d74…1d96 Head {h00=0x001e, h01=0x0050, text=» UPDATE,ERRCAN,ERRCAN, C«, t00=0x0012, t01=0x015e}
0x1d96…1dc8 Head {h00=0x002e, h01=0x0050, text=» DYK150,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0012, t01=0x0180}
0x1dc8…1e00 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C «, t00=0x0013, t01=0x0022}
0x1e00…1e1c Head {h00=0x0018, h01=0x0050, text=» KCOPY,KDUPL,KEDIT «, t00=0x0013, t01=0x005a}
0x1e1c…1e2e Head {h00=0x000e, h01=0x0050, text=» B UPDATE «, t00=0x0013, t01=0x0076}
0x1e2e…1e3c Head {h00=0x000a, h01=0x0050, text=»DYK150«, t00=0x0013, t01=0x0088}
0x1e3c…1e62 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SET PLS = EOI«, t00=0x0013, t01=0x0096}
0x1e62…1e70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00bc}
0x1e70…1ea0 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0013, t01=0x00ca}
0x1ea0…1ed0 Head {h00=0x002c, h01=0x0050, text=»* VALIDATE ENTERED DATA IN THE ORDER: * «, t00=0x0013, t01=0x00fa}
0x1ed0…1f00 Head {h00=0x002c, h01=0x0050, text=»* STANDARDCHECK * «, t00=0x0013, t01=0x012a}
0x1f00…1f30 Head {h00=0x002c, h01=0x0050, text=»* APPLE-VALUE * «, t00=0x0013, t01=0x015a}
0x1f30…1f60 Head {h00=0x002c, h01=0x0050, text=»* VALIDATION-STRING * «, t00=0x0013, t01=0x018a}
0x1f60…1f90 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0014, t01=0x002a}
0x1f90…1fc0 Head {h00=0x002c, h01=0x0050, text=»* RETURNVALUES ARE PUT INTO DEBINW3. * «, t00=0x0014, t01=0x005a}
0x1fc0…1ff0 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0014, t01=0x008a}
0x1ff0…1ffe Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0014, t01=0x00ba}
0x1ffe…201e Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW1,W0,UPD100 «, t00=0x0014, t01=0x00c8}
0x201e…2042 Head {h00=0x0020, h01=0x0050, text=» VALIDATION OF EMPTY FIELD«, t00=0x0014, t01=0x00e8}
0x2042…206c Head {h00=0x0026, h01=0x0050, text=» IF SOME OF BELOW KEES PRESSED: «, t00=0x0014, t01=0x010c}
0x206c…20a8 Head {h00=0x0038, h01=0x0050, text=»* 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP«, t00=0x0014, t01=0x0136}
0x20a8…20c8 Head {h00=0x001c, h01=0x0050, text=» CBG DEBINW2,W11,UPD010 «, t00=0x0014, t01=0x0172}
0x20c8…20e6 (21, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W8,UPD005«, t00=0x0015, t01=0x0004}
0x20e6…2104 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W3,UPD010«, t00=0x0015, t01=0x0022}
0x2104…2112 Head {h00=0x000a, h01=0x0050, text=»UPD005«, t00=0x0015, t01=0x0040}
0x2112…212c Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,UPD020 «, t00=0x0015, t01=0x004e}
0x212c…2144 Head {h00=0x0014, h01=0x0050, text=»UPD010 B UPDR50 «, t00=0x0015, t01=0x0068}
0x2144…216e Head {h00=0x0026, h01=0x0050, text=»UPD020 MOVE DEBINW4,W6 FORCED ITEM«, t00=0x0015, t01=0x0080}
0x216e…219c Head {h00=0x002a, h01=0x0050, text=» MOVE BIN3,W0 USED FOR SAV ERRORINDEX «, t00=0x0015, t01=0x00aa}
0x219c…21ba Head {h00=0x001a, h01=0x0050, text=» CALL FORCED,:FMTITEM «, t00=0x0015, t01=0x00d8}
0x21ba…21ce Head {h00=0x0010, h01=0x0050, text=» BOK UPD030 «, t00=0x0015, t01=0x00f6}
0x21ce…21ea Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABF«, t00=0x0015, t01=0x010a}
0x21ea…21fc Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0015, t01=0x0126}
0x21fc…220a Head {h00=0x000a, h01=0x0050, text=»UPD030«, t00=0x0015, t01=0x0138}
0x220a…2228 Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0015, t01=0x0146}
0x2228…223e Head {h00=0x0012, h01=0x0050, text=» BZ UPDVAL NO!«, t00=0x0015, t01=0x0164}
0x223e…224c Head {h00=0x000a, h01=0x0050, text=»UPD040«, t00=0x0015, t01=0x017a}
0x224c…226e Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK«, t00=0x0015, t01=0x0188}
0x226e…229e Head {h00=0x002c, h01=0x0050, text=» CALL TESTB,DEBINW4,W13 LOOK IF COND ME «, t00=0x0016, t01=0x001a}
0x229e…22c4 Head {h00=0x0022, h01=0x0050, text=» BZ UPDR35 VALIDATION IF COND «, t00=0x0016, t01=0x004a}
0x22c4…22d6 Head {h00=0x000e, h01=0x0050, text=» B UPDVAL «, t00=0x0016, t01=0x0070}
0x22d6…22e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0082}
0x22e4…22ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22ee…2312 Head {h00=0x0020, h01=0x0050, text=»* ENTERED DATA FROM KEYBOARD«, t00=0x0016, t01=0x009a}
0x2312…231c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00be}
0x231c…232a Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0016, t01=0x00c8}
0x232a…2354 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK-NUMBER «, t00=0x0016, t01=0x00d6}
0x2354…2362 Head {h00=0x000a, h01=0x0050, text=»UPD105«, t00=0x0016, t01=0x0100}
0x2362…2388 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW4 JUMP SCHK NUMBER C«, t00=0x0016, t01=0x010e}
0x2388…239e Head {h00=0x0012, h01=0x0050, text=» UPD110 =1 C «, t00=0x0016, t01=0x0134}
0x239e…23b4 Head {h00=0x0012, h01=0x0050, text=» UPD120 =2 C «, t00=0x0016, t01=0x014a}
0x23b4…23ca Head {h00=0x0012, h01=0x0050, text=» UPD120 =3 C «, t00=0x0016, t01=0x0160}
0x23ca…23e0 Head {h00=0x0012, h01=0x0050, text=» UPD200 =4 C «, t00=0x0016, t01=0x0176}
0x23e0…23f6 Head {h00=0x0012, h01=0x0050, text=» UPD110 =5 C «, t00=0x0016, t01=0x018c}
0x23f6…240c Head {h00=0x0012, h01=0x0050, text=» UPD120 =6 C «, t00=0x0017, t01=0x0012}
0x240c…2420 Head {h00=0x0010, h01=0x0050, text=» UPD120 =7 «, t00=0x0017, t01=0x0028}
0x2420…2432 Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0017, t01=0x003c}
0x2432…2440 Head {h00=0x000a, h01=0x0050, text=»UPD110«, t00=0x0017, t01=0x004e}
0x2440…2474 Head {h00=0x0030, h01=0x0050, text=» CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS «, t00=0x0017, t01=0x005c}
0x2474…248c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0017, t01=0x0090}
0x248c…24a4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0017, t01=0x00a8}
0x24a4…24bc Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='-'«, t00=0x0017, t01=0x00c0}
0x24bc…24ec Head {h00=0x002c, h01=0x0050, text=» INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0«, t00=0x0017, t01=0x00d8}
0x24ec…2512 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0017, t01=0x0108}
0x2512…2520 Head {h00=0x000a, h01=0x0050, text=»UPD115«, t00=0x0017, t01=0x012e}
0x2520…2538 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W1 «, t00=0x0017, t01=0x013c}
0x2538…254a Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0017, t01=0x0154}
0x254a…2558 Head {h00=0x000a, h01=0x0050, text=»UPD120«, t00=0x0017, t01=0x0166}
0x2558…257a Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x0017, t01=0x0174}
0x257a…2596 Head {h00=0x0018, h01=0x0050, text=» SUB DEBINW3,DEBINW1«, t00=0x0018, t01=0x0008}
0x2596…25bc Head {h00=0x0022, h01=0x0050, text=» BZ UPD150 MAXL = INPUTLENGTH «, t00=0x0018, t01=0x0024}
0x25bc…25dc Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0018, t01=0x004a}
0x25dc…25f2 Head {h00=0x0012, h01=0x0050, text=» BZ UPD130 NO!«, t00=0x0018, t01=0x006a}
0x25f2…2620 Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'20' PUT SPACE IN AREA «, t00=0x0018, t01=0x0080}
0x2620…2632 Head {h00=0x000e, h01=0x0050, text=» B UPD140 «, t00=0x0018, t01=0x00ae}
0x2632…2640 Head {h00=0x000a, h01=0x0050, text=»UPD130«, t00=0x0018, t01=0x00c0}
0x2640…266e Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'30' PUT ZERO IN ARTEA «, t00=0x0018, t01=0x00ce}
0x266e…269a Head {h00=0x0028, h01=0x0050, text=»UPD140 RIGHT ADJUST CURRENT IPNPUT«, t00=0x0018, t01=0x00fc}
0x269a…26c6 Head {h00=0x0028, h01=0x0050, text=» INSRT DEINPUT,W0,DEBINW3,STATSH,W0 «, t00=0x0018, t01=0x0128}
0x26c6…26d4 Head {h00=0x000a, h01=0x0050, text=»UPD150«, t00=0x0018, t01=0x0154}
0x26d4…26ec Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W2 «, t00=0x0018, t01=0x0162}
0x26ec…26fe Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0018, t01=0x017a}
0x26fe…270c Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0018, t01=0x018c}
0x270c…2736 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL3,UPDVAL ENTRY-MODE APPL-«, t00=0x0019, t01=0x000a}
0x2736…275c Head {h00=0x0022, h01=0x0050, text=» VALUE-HANDLING IS EXECUTED «, t00=0x0019, t01=0x0034}
0x275c…2774 Head {h00=0x0014, h01=0x0050, text=» WITHIN DENVAL«, t00=0x0019, t01=0x005a}
0x2774…279c Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE«, t00=0x0019, t01=0x0072}
0x279c…27d0 Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE«, t00=0x0019, t01=0x009a}
0x27d0…27da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ce}
0x27da…2806 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0019, t01=0x00d8}
0x2806…2810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x2810…2824 Head {h00=0x0010, h01=0x0050, text=» PERF DEAPPL«, t00=0x0019, t01=0x010e}
0x2824…2850 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW3,UPDR15,SETCREAD,ERRPRINT«, t00=0x0019, t01=0x0122}
0x2850…2862 Head {h00=0x000e, h01=0x0050, text=» B UPDR25 «, t00=0x0019, t01=0x014e}
0x2862…2870 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0160}
0x2870…287a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016e}
0x287a…28a8 Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0019, t01=0x0178}
0x28a8…28d4 Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x001a, t01=0x0016}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28de…28ec Head {h00=0x000a, h01=0x0050, text=»UPDVAL«, t00=0x001a, t01=0x004c}
0x28ec…2900 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL1«, t00=0x001a, t01=0x005a}
0x2900…2914 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x001a, t01=0x006e}
0x2914…2928 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x001a, t01=0x0082}
0x2928…293c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x001a, t01=0x0096}
0x293c…296a Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL5 ***F=UNVALID/NO COND TAB «, t00=0x001a, t01=0x00aa}
0x296a…299c Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH «, t00=0x001a, t01=0x00d8}
0x299c…29c8 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN14,W0 ***COND.TAB.-FIELD:=0«, t00=0x001a, t01=0x010a}
0x29c8…29fc Head {h00=0x0030, h01=0x0050, text=» MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 «, t00=0x001a, t01=0x0136}
0x29fc…2a14 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001a, t01=0x016a}
0x2a14…2a44 Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x001a, t01=0x0182}
0x2a44…2a6e Head {h00=0x0026, h01=0x0050, text=» BNOK UPDR25 JUMP IF NO VALSTRING «, t00=0x001b, t01=0x0022}
0x2a6e…2aa2 Head {h00=0x0030, h01=0x0050, text=» CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND «, t00=0x001b, t01=0x004c}
0x2aa2…2ad8 Head {h00=0x0032, h01=0x0050, text=» CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED «, t00=0x001b, t01=0x0080}
0x2ad8…2b04 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x001b, t01=0x00b6}
0x2b04…2b12 Head {h00=0x000a, h01=0x0050, text=»UPDV10«, t00=0x001b, t01=0x00e2}
0x2b12…2b2a Head {h00=0x0014, h01=0x0050, text=» PERF DENVAL,W0 «, t00=0x001b, t01=0x00f0}
0x2b2a…2b38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0108}
0x2b38…2b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b42…2b62 Head {h00=0x001c, h01=0x0050, text=»* RETURN FROM VALIDATION«, t00=0x001b, t01=0x0120}
0x2b62…2b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0140}
0x2b6c…2b9e Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH«, t00=0x001b, t01=0x014a}
0x2b9e…2bbe Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ERROR-FLAG «, t00=0x001b, t01=0x017c}
0x2bbe…2bd0 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR20«, t00=0x001c, t01=0x000c}
0x2bd0…2bde Head {h00=0x000a, h01=0x0050, text=»UPDR12«, t00=0x001c, t01=0x001e}
0x2bde…2bfe Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 L00K IF ALPHA «, t00=0x001c, t01=0x002c}
0x2bfe…2c20 Head {h00=0x001e, h01=0x0050, text=» BNZ UPDR16 JUMP IF ALPHA «, t00=0x001c, t01=0x004c}
0x2c20…2c44 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,W15 POINTER TO + «, t00=0x001c, t01=0x006e}
0x2c44…2c70 Head {h00=0x0028, h01=0x0050, text=» MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 «, t00=0x001c, t01=0x0092}
0x2c70…2c84 Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR16«, t00=0x001c, t01=0x00be}
0x2c84…2cae Head {h00=0x0026, h01=0x0050, text=» DLETE DEINPUT,W0,W1 DELETE + OR -«, t00=0x001c, t01=0x00d2}
0x2cae…2cbc Head {h00=0x000a, h01=0x0050, text=»UPDR16«, t00=0x001c, t01=0x00fc}
0x2cbc…2ce8 Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,W0,UPDR17 JUMP IF NOT MESS«, t00=0x001c, t01=0x010a}
0x2ce8…2d14 Head {h00=0x0028, h01=0x0050, text=» CBE BIN11,W0,UPDR17 JUMP IF NO POOL«, t00=0x001c, t01=0x0136}
0x2d14…2d42 Head {h00=0x002a, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN3«, t00=0x001c, t01=0x0162}
0x2d42…2d50 Head {h00=0x000a, h01=0x0050, text=»UPDR17«, t00=0x001c, t01=0x0190}
0x2d50…2d7c Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,UPDR13 JUMP IF NOT BALACE«, t00=0x001d, t01=0x000e}
0x2d7c…2d98 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x001d, t01=0x003a}
0x2d98…2daa Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001d, t01=0x0056}
0x2daa…2db8 Head {h00=0x000a, h01=0x0050, text=»UPDR13«, t00=0x001d, t01=0x0068}
0x2db8…2dd6 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x001d, t01=0x0076}
0x2dd6…2dec Head {h00=0x0012, h01=0x0050, text=» BZ UPDR14 NO!«, t00=0x001d, t01=0x0094}
0x2dec…2e18 Head {h00=0x0028, h01=0x0050, text=» DUPL STR2A LOOK IF KEYED INPUT = N «, t00=0x001d, t01=0x00aa}
0x2e18…2e30 Head {h00=0x0014, h01=0x0050, text=» BOK UPDR18 YES!«, t00=0x001d, t01=0x00d6}
0x2e30…2e4c Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,UPDR14 «, t00=0x001d, t01=0x00ee}
0x2e4c…2e5a Head {h00=0x000a, h01=0x0050, text=»UPDR18«, t00=0x001d, t01=0x010a}
0x2e5a…2e84 Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTABI NO KEY INPUT «, t00=0x001d, t01=0x0118}
0x2e84…2e96 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x001d, t01=0x0142}
0x2e96…2ea4 Head {h00=0x000a, h01=0x0050, text=»UPDR14«, t00=0x001d, t01=0x0154}
0x2ea4…2ec0 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABD«, t00=0x001d, t01=0x0162}
0x2ec0…2ed2 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001d, t01=0x017e}
0x2ed2…2ee0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0190}
0x2ee0…2eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2eea…2f14 Head {h00=0x0026, h01=0x0050, text=»* VALDATION SUCCESSFULLY PERFORMED«, t00=0x001e, t01=0x0018}
0x2f14…2f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f1e…2f2c Head {h00=0x000a, h01=0x0050, text=»UPDR15«, t00=0x001e, t01=0x004c}
0x2f2c…2f58 Head {h00=0x0028, h01=0x0050, text=» UPDFLD 1,DEINPUT UNCONDITIONAL UPD.«, t00=0x001e, t01=0x005a}
0x2f58…2f6a Head {h00=0x000e, h01=0x0050, text=» B UPDR28 «, t00=0x001e, t01=0x0086}
0x2f6a…2f78 Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x001e, t01=0x0098}
0x2f78…2fa2 Head {h00=0x0026, h01=0x0050, text=» IB DEBINW3,UPDR25,SETCREAD,UPDR12«, t00=0x001e, t01=0x00a6}
0x2fa2…2fb0 Head {h00=0x000a, h01=0x0050, text=»UPDR25«, t00=0x001e, t01=0x00d0}
0x2fb0…2fce Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W1,UPDR15«, t00=0x001e, t01=0x00de}
0x2fce…2ffa Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 «, t00=0x001e, t01=0x00fc}
0x2ffa…3030 Head {h00=0x0032, h01=0x0050, text=» UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x001e, t01=0x0128}
0x3030…303e Head {h00=0x000a, h01=0x0050, text=»UPDR28«, t00=0x001e, t01=0x015e}
0x303e…3050 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x001e, t01=0x016c}
0x3050…3062 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR30«, t00=0x001e, t01=0x017e}
0x3062…307e Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,UPDR33 «, t00=0x001e, t01=0x0190}
0x307e…30a2 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x001f, t01=0x001c}
0x30a2…30ba Head {h00=0x0014, h01=0x0050, text=» BOK UPDR33 YES!«, t00=0x001f, t01=0x0040}
0x30ba…30ec Head {h00=0x002e, h01=0x0050, text=»UPDR30 SET DECHANGE INDICATE CHANGED ITEM «, t00=0x001f, t01=0x0058}
0x30ec…30fa Head {h00=0x000a, h01=0x0050, text=»UPDR33«, t00=0x001f, t01=0x008a}
0x30fa…3126 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,UPDR50 JUMP IF NOT ENTRY «, t00=0x001f, t01=0x0098}
0x3126…3134 Head {h00=0x000a, h01=0x0050, text=»UPDR35«, t00=0x001f, t01=0x00c4}
0x3134…3164 Head {h00=0x002c, h01=0x0050, text=» CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x001f, t01=0x00d2}
0x3164…3178 Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR50«, t00=0x001f, t01=0x0102}
0x3178…318c Head {h00=0x0010, h01=0x0050, text=» DK BEGIN «, t00=0x001f, t01=0x0116}
0x318c…31b8 Head {h00=0x0028, h01=0x0050, text=» TBF CORR,UPDR37 IN CORRECTION MODE?«, t00=0x001f, t01=0x012a}
0x31b8…31dc Head {h00=0x0020, h01=0x0050, text=» TSTCTL 5 YES, LOOK FOR CTAB«, t00=0x001f, t01=0x0156}
0x31dc…31f2 Head {h00=0x0012, h01=0x0050, text=» BZ UPDR37 NO!«, t00=0x001f, t01=0x017a}
0x31f2…3214 Head {h00=0x001e, h01=0x0050, text=» DUPL STR2A KEYED INPUT=N?«, t00=0x001f, t01=0x0190}
0x3214…322c Head {h00=0x0014, h01=0x0050, text=» BOK UPDR40 YES!«, t00=0x0020, t01=0x0022}
0x322c…323a Head {h00=0x000a, h01=0x0050, text=»UPDR37«, t00=0x0020, t01=0x003a}
0x323a…324c Head {h00=0x000e, h01=0x0050, text=» DK END «, t00=0x0020, t01=0x0048}
0x324c…3260 Head {h00=0x0010, h01=0x0050, text=» PERF DEGEN «, t00=0x0020, t01=0x005a}
0x3260…326e Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x0020, t01=0x006e}
0x326e…3280 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x0020, t01=0x007c}
0x3280…3292 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR45«, t00=0x0020, t01=0x008e}
0x3292…32ae Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,UPDR50 «, t00=0x0020, t01=0x00a0}
0x32ae…32d2 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x0020, t01=0x00bc}
0x32d2…32ea Head {h00=0x0014, h01=0x0050, text=» BOK UPDR50 YES!«, t00=0x0020, t01=0x00e0}
0x32ea…32f8 Head {h00=0x000a, h01=0x0050, text=»UPDR45«, t00=0x0020, t01=0x00f8}
0x32f8…330e Head {h00=0x0012, h01=0x0050, text=» SET DECHANGE «, t00=0x0020, t01=0x0106}
0x330e…331c Head {h00=0x000a, h01=0x0050, text=»UPDR50«, t00=0x0020, t01=0x011c}
0x331c…3348 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGTH = 0«, t00=0x0020, t01=0x012a}
0x3348…336c Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,KTFWD,DUMMY, C «, t00=0x0020, t01=0x0156}
0x336c…3390 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0020, t01=0x017a}
0x3390…33bc Head {h00=0x0028, h01=0x0050, text=» KTBWD,KTHOME,KERASE,KKEEP,KEOI, C«, t00=0x0021, t01=0x000e}
0x33bc…33ea Head {h00=0x002a, h01=0x0050, text=» KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER «, t00=0x0021, t01=0x003a}
0x33ea…3402 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W24«, t00=0x0021, t01=0x0068}
0x3402…3424 Head {h00=0x001e, h01=0x0050, text=» BE KASD JUMP IF ASD FLAG «, t00=0x0021, t01=0x0080}
0x3424…3452 Head {h00=0x002a, h01=0x0050, text=» SUB DEBINW2,W14 ADJUST EOI-KEY INDEX «, t00=0x0021, t01=0x00a2}
0x3452…3460 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0021, t01=0x00d0}
0x3460…346e Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0021, t01=0x00de}
0x346e…347a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x00ec}
0x347a…3488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00f8}
0x3488…34ac Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0021, t01=0x0106}
0x34ac…34d2 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0021, t01=0x012a}
0x34d2…34f8 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0021, t01=0x0150}
0x34f8…352c Head {h00=0x0030, h01=0x0050, text=» TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE «, t00=0x0021, t01=0x0176}
0x352c…3564 Head {h00=0x0034, h01=0x0050, text=» TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH«, t00=0x0022, t01=0x001a}
0x3564…3588 Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,STSAVE(W3) *** «, t00=0x0022, t01=0x0052}
0x3588…35b8 Head {h00=0x002c, h01=0x0050, text=» BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE «, t00=0x0022, t01=0x0076}
0x35b8…35d0 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0022, t01=0x00a6}
0x35d0…35e2 Head {h00=0x000e, h01=0x0050, text=» B KENT04 «, t00=0x0022, t01=0x00be}
0x35e2…35f6 Head {h00=0x0010, h01=0x0050, text=»KEOI10 ***«, t00=0x0022, t01=0x00d0}
0x35f6…361c Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL5 ***CLEAR /SET CR «, t00=0x0022, t01=0x00e4}
0x361c…364e Head {h00=0x002e, h01=0x0050, text=» BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB«, t00=0x0022, t01=0x010a}
0x364e…3682 Head {h00=0x0030, h01=0x0050, text=» CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB «, t00=0x0022, t01=0x013c}
0x3682…36b4 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR «, t00=0x0022, t01=0x0170}
0x36b4…36de Head {h00=0x0026, h01=0x0050, text=» SUB DEBINW4,W1 ***ADJUST FOR TFWD«, t00=0x0023, t01=0x0012}
0x36de…3706 Head {h00=0x0024, h01=0x0050, text=» BE KTHOME JUMP IF GOTO FIELD 1 «, t00=0x0023, t01=0x003c}
0x3706…3714 Head {h00=0x000a, h01=0x0050, text=»KEOI15«, t00=0x0023, t01=0x0064}
0x3714…3742 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0023, t01=0x0072}
0x3742…375e Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0023, t01=0x00a0}
0x375e…3790 Head {h00=0x002e, h01=0x0050, text=» BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW «, t00=0x0023, t01=0x00bc}
0x3790…37ac Head {h00=0x0018, h01=0x0050, text=» GETABX DEBINW4 *** «, t00=0x0023, t01=0x00ee}
0x37ac…37c4 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0023, t01=0x010a}
0x37c4…37d6 Head {h00=0x000e, h01=0x0050, text=» B KEOI15 «, t00=0x0023, t01=0x0122}
0x37d6…37ea Head {h00=0x0010, h01=0x0050, text=»KEOI20 ***«, t00=0x0023, t01=0x0134}
0x37ea…380a Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW2,W11,KEOI30 «, t00=0x0023, t01=0x0148}
0x380a…381c Head {h00=0x000e, h01=0x0050, text=» B KKEEP2 «, t00=0x0023, t01=0x0168}
0x381c…382a Head {h00=0x000a, h01=0x0050, text=»KEOI30«, t00=0x0023, t01=0x017a}
0x382a…3850 Head {h00=0x0022, h01=0x0050, text=» TBT DOOL3,KEOI40 ENTRY SCREEN«, t00=0x0023, t01=0x0188}
0x3850…385e Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0024, t01=0x001e}
0x385e…3870 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0024, t01=0x002c}
0x3870…387e Head {h00=0x000a, h01=0x0050, text=»KEOI40«, t00=0x0024, t01=0x003e}
0x387e…38a8 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0024, t01=0x004c}
0x38a8…38be Head {h00=0x0012, h01=0x0050, text=» BZ KEOI45 NO!«, t00=0x0024, t01=0x0076}
0x38be…38f0 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0024, t01=0x008c}
0x38f0…3908 Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x0024, t01=0x00be}
0x3908…3916 Head {h00=0x000a, h01=0x0050, text=»KEOI45«, t00=0x0024, t01=0x00d6}
0x3916…392e Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0024, t01=0x00e4}
0x392e…3946 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0024, t01=0x00fc}
0x3946…3974 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0024, t01=0x0114}
0x3974…3990 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0024, t01=0x0142}
0x3990…39a4 Head {h00=0x0010, h01=0x0050, text=» BNE TSTTAB «, t00=0x0024, t01=0x015e}
0x39a4…39b2 Head {h00=0x000a, h01=0x0050, text=»KEOI50«, t00=0x0024, t01=0x0172}
0x39b2…39c4 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x0024, t01=0x0180}
0x39c4…39d8 (37, 0, 400) Head {h00=0x0010, h01=0x0050, text=» BNZ TSTT05 «, t00=0x0025, t01=0x0004}
0x39d8…39ea Head {h00=0x000e, h01=0x0050, text=» B TSTT10 «, t00=0x0025, t01=0x0018}
0x39ea…39f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002a}
0x39f4…3a1c Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0025, t01=0x0034}
0x3a1c…3a34 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0025, t01=0x005c}
0x3a34…3a52 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W1,KTBWD2«, t00=0x0025, t01=0x0074}
0x3a52…3a60 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0025, t01=0x0092}
0x3a60…3a72 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0025, t01=0x00a0}
0x3a72…3a80 Head {h00=0x000a, h01=0x0050, text=»KTBWD2«, t00=0x0025, t01=0x00b2}
0x3a80…3a9c Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W3 EOI«, t00=0x0025, t01=0x00c0}
0x3a9c…3aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aa6…3acc Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0025, t01=0x00e6}
0x3acc…3af6 Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KTHOM4 JUMP IF BALANCE «, t00=0x0025, t01=0x010c}
0x3af6…3b10 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,KTHOM2«, t00=0x0025, t01=0x0136}
0x3b10…3b2a Head {h00=0x0016, h01=0x0050, text=» TBT KEYVER,KTKEY «, t00=0x0025, t01=0x0150}
0x3b2a…3b38 Head {h00=0x000a, h01=0x0050, text=»KTHOM3«, t00=0x0025, t01=0x016a}
0x3b38…3b50 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0025, t01=0x0178}
0x3b50…3b72 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 «, t00=0x0025, t01=0x0190}
0x3b72…3b82 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0026, t01=0x0022}
0x3b82…3b94 Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x0026, t01=0x0032}
0x3b94…3ba2 Head {h00=0x000a, h01=0x0050, text=»KTHOM4«, t00=0x0026, t01=0x0044}
0x3ba2…3bcc Head {h00=0x0026, h01=0x0050, text=» SET ASDFLAG SET ASD WHEN BALANCE «, t00=0x0026, t01=0x0052}
0x3bcc…3bf8 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUT.LENGTH=0«, t00=0x0026, t01=0x007c}
0x3bf8…3c16 Head {h00=0x001a, h01=0x0050, text=» WHEN BALANCE-FORMAT«, t00=0x0026, t01=0x00a8}
0x3c16…3c24 Head {h00=0x000a, h01=0x0050, text=»KTHOM2«, t00=0x0026, t01=0x00c6}
0x3c24…3c32 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0026, t01=0x00d4}
0x3c32…3c52 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0026, t01=0x00e2}
0x3c52…3c68 Head {h00=0x0012, h01=0x0050, text=» BE TSTT10 OK «, t00=0x0026, t01=0x0102}
0x3c68…3c84 Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0026, t01=0x0118}
0x3c84…3cb0 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT15 EMPTY COMPULSORY FIELD «, t00=0x0026, t01=0x0134}
0x3cb0…3cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0160}
0x3cba…3cc8 Head {h00=0x000a, h01=0x0050, text=»TSTT05«, t00=0x0026, t01=0x016a}
0x3cc8…3cec Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0026, t01=0x0178}
0x3cec…3d08 Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,TSTT15«, t00=0x0027, t01=0x000c}
0x3d08…3d2c Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x0027, t01=0x0028}
0x3d2c…3d44 Head {h00=0x0014, h01=0x0050, text=» BOK TSTT07 YES!«, t00=0x0027, t01=0x004c}
0x3d44…3d60 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,TSTT15 «, t00=0x0027, t01=0x0064}
0x3d60…3d6e Head {h00=0x000a, h01=0x0050, text=»TSTT07«, t00=0x0027, t01=0x0080}
0x3d6e…3d82 Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x0027, t01=0x008e}
0x3d82…3da0 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,TSTT15«, t00=0x0027, t01=0x00a2}
0x3da0…3dc4 Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,DUMMY,DUMMY, C «, t00=0x0027, t01=0x00c0}
0x3dc4…3dea Head {h00=0x0022, h01=0x0050, text=» KTEOI,DUMMY,DUMMY,KTEOI, C «, t00=0x0027, t01=0x00e4}
0x3dea…3e06 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTEOI,KKEEP «, t00=0x0027, t01=0x010a}
0x3e06…3e14 Head {h00=0x000a, h01=0x0050, text=»TSTT15«, t00=0x0027, t01=0x0126}
0x3e14…3e28 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0027, t01=0x0134}
0x3e28…3e36 Head {h00=0x000a, h01=0x0050, text=»TSTT10«, t00=0x0027, t01=0x0148}
0x3e36…3e50 Head {h00=0x0016, h01=0x0050, text=» TBF AUTENT,TSTT15«, t00=0x0027, t01=0x0156}
0x3e50…3e7a Head {h00=0x0026, h01=0x0050, text=» TBF DOOL3,TSTT15 NOT ENTRY SCREEN«, t00=0x0027, t01=0x0170}
0x3e7a…3ea2 Head {h00=0x0024, h01=0x0050, text=» TBT DOOLA,TSTT15 BALANCE FORMAT«, t00=0x0028, t01=0x000a}
0x3ea2…3ec4 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0028, t01=0x0032}
0x3ec4…3ee4 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,TSTT15 «, t00=0x0028, t01=0x0054}
0x3ee4…3ef6 Head {h00=0x000e, h01=0x0050, text=» B KENT06 «, t00=0x0028, t01=0x0074}
0x3ef6…3f04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0086}
0x3f04…3f12 Head {h00=0x000a, h01=0x0050, text=»KTKEY «, t00=0x0028, t01=0x0094}
0x3f12…3f28 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x0028, t01=0x00a2}
0x3f28…3f36 Head {h00=0x000a, h01=0x0050, text=»KTKEY2«, t00=0x0028, t01=0x00b8}
0x3f36…3f4c Head {h00=0x0012, h01=0x0050, text=» ADD BIN11,W1 «, t00=0x0028, t01=0x00c6}
0x3f4c…3f8a Head {h00=0x003a, h01=0x0050, text=» CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER«, t00=0x0028, t01=0x00dc}
0x3f8a…3fa6 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0028, t01=0x011a}
0x3fa6…3fce Head {h00=0x0024, h01=0x0050, text=» BZ SETCREAD JUMP IF VERIFYFIELD«, t00=0x0028, t01=0x0136}
0x3fce…3fe0 Head {h00=0x000e, h01=0x0050, text=» B KTHOM3 «, t00=0x0028, t01=0x015e}
0x3fe0…3fee Head {h00=0x000a, h01=0x0050, text=»KTEOI «, t00=0x0028, t01=0x0170}
0x3fee…4006 Head {h00=0x0014, h01=0x0050, text=» TBF DOOL3,KTFWD«, t00=0x0028, t01=0x017e}
0x4006…401e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x0029, t01=0x0008}
0x401e…402c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0020}
0x402c…4036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002e}
0x4036…404c Head {h00=0x0012, h01=0x0050, text=»* DUPL KEY«, t00=0x0029, t01=0x0038}
0x404c…4056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004e}
0x4056…4064 Head {h00=0x000a, h01=0x0050, text=»KDUPL «, t00=0x0029, t01=0x0058}
0x4064…4078 Head {h00=0x0010, h01=0x0050, text=» DK BEGIN «, t00=0x0029, t01=0x0066}
0x4078…40a6 Head {h00=0x002a, h01=0x0050, text=» TBF CORR,KDUPL10 IN CORRECTION MODE? «, t00=0x0029, t01=0x007a}
0x40a6…40ca Head {h00=0x0020, h01=0x0050, text=» TSTCTL 5 YES, LOKK IF CTAB «, t00=0x0029, t01=0x00a8}
0x40ca…40e2 Head {h00=0x0014, h01=0x0050, text=» BZ KDUPL10 NO! «, t00=0x0029, t01=0x00cc}
0x40e2…4104 Head {h00=0x001e, h01=0x0050, text=» DUPL STR2A KEYED INPUT=N?«, t00=0x0029, t01=0x00e4}
0x4104…411e Head {h00=0x0016, h01=0x0050, text=» BOK KDUPL20 YES! «, t00=0x0029, t01=0x0106}
0x411e…412e Head {h00=0x000c, h01=0x0050, text=»KDUPL10 «, t00=0x0029, t01=0x0120}
0x412e…4140 Head {h00=0x000e, h01=0x0050, text=» DK END «, t00=0x0029, t01=0x0130}
0x4140…4154 Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0029, t01=0x0142}
0x4154…4168 Head {h00=0x0010, h01=0x0050, text=» BNOK KTEOI2«, t00=0x0029, t01=0x0156}
0x4168…4178 Head {h00=0x000c, h01=0x0050, text=»KDUPL20 «, t00=0x0029, t01=0x016a}
0x4178…419e Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,KTEOI,DUMMY,UPDATE«, t00=0x0029, t01=0x017a}
0x419e…41ac Head {h00=0x000a, h01=0x0050, text=»KTEOI2«, t00=0x002a, t01=0x0010}
0x41ac…41ca Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002a, t01=0x001e}
0x41ca…41e2 Head {h00=0x0014, h01=0x0050, text=» BNZ KTEOI4 YES!«, t00=0x002a, t01=0x003c}
0x41e2…41f0 Head {h00=0x000a, h01=0x0050, text=»KTEOI3«, t00=0x002a, t01=0x0054}
0x41f0…4218 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,KCOP10,ERRRET,ERRRET«, t00=0x002a, t01=0x0062}
0x4218…422c Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x002a, t01=0x008a}
0x422c…423a Head {h00=0x000a, h01=0x0050, text=»KTEOI4«, t00=0x002a, t01=0x009e}
0x423a…4262 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET«, t00=0x002a, t01=0x00ac}
0x4262…4276 Head {h00=0x0010, h01=0x0050, text=» DUPL STR2A «, t00=0x002a, t01=0x00d4}
0x4276…428a Head {h00=0x0010, h01=0x0050, text=» BOK KENT20 «, t00=0x002a, t01=0x00e8}
0x428a…42a6 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KTEOI3 «, t00=0x002a, t01=0x00fc}
0x42a6…42b8 Head {h00=0x000e, h01=0x0050, text=» B KENT20 «, t00=0x002a, t01=0x0118}
0x42b8…42c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012a}
0x42c2…42da Head {h00=0x0014, h01=0x0050, text=»* STATUS KEY«, t00=0x002a, t01=0x0134}
0x42da…42e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x014c}
0x42e4…42fe Head {h00=0x0016, h01=0x0050, text=»STATUS PERF DESTAT«, t00=0x002a, t01=0x0156}
0x42fe…4316 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x002a, t01=0x0170}
0x4316…4328 Head {h00=0x000e, h01=0x0050, text=» B ERRP10 «, t00=0x002a, t01=0x0188}
0x4328…4332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000a}
0x4332…434a Head {h00=0x0014, h01=0x0050, text=»* PRINT KEY «, t00=0x002b, t01=0x0014}
0x434a…4354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002c}
0x4354…436e Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x002b, t01=0x0036}
0x436e…4392 Head {h00=0x0020, h01=0x0050, text=» PERF ATTPRT RESERVE PRINTER«, t00=0x002b, t01=0x0050}
0x4392…43a8 Head {h00=0x0012, h01=0x0050, text=» BNOK ERRPRINT«, t00=0x002b, t01=0x0074}
0x43a8…43ce Head {h00=0x0022, h01=0x0050, text=» EDWRT DEDSPRT,FORMF FORMFEED «, t00=0x002b, t01=0x008a}
0x43ce…43e6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x002b, t01=0x00b0}
0x43e6…4408 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x002b, t01=0x00c8}
0x4408…442c Head {h00=0x0020, h01=0x0050, text=» PERF DETPRT RELEASE PRINTER«, t00=0x002b, t01=0x00ea}
0x442c…443a Head {h00=0x000a, h01=0x0050, text=»KCOP10«, t00=0x002b, t01=0x010e}
0x443a…4462 Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x002b, t01=0x011c}
0x4462…4480 Head {h00=0x001a, h01=0x0050, text=»KASD ASD-KEY PRESSED«, t00=0x002b, t01=0x0144}
0x4480…44ac Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,KASD2 JUMP IF NOT BALANCE«, t00=0x002b, t01=0x0162}
0x44ac…44c0 Head {h00=0x0010, h01=0x0050, text=» SET ASDFLAG«, t00=0x002b, t01=0x018e}
0x44c0…44d0 Head {h00=0x000c, h01=0x0050, text=» B KASD3«, t00=0x002c, t01=0x0012}
0x44d0…44de Head {h00=0x000a, h01=0x0050, text=»KASD2 «, t00=0x002c, t01=0x0022}
0x44de…44f2 Head {h00=0x0010, h01=0x0050, text=» INV ASDFLAG«, t00=0x002c, t01=0x0030}
0x44f2…4500 Head {h00=0x000a, h01=0x0050, text=»KASD3 «, t00=0x002c, t01=0x0044}
0x4500…4520 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W14,DEKTAB4«, t00=0x002c, t01=0x0052}
0x4520…4546 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x002c, t01=0x0072}
0x4546…4558 Head {h00=0x000e, h01=0x0050, text=» B KEOI50 «, t00=0x002c, t01=0x0098}
0x4558…4566 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00aa}
0x4566…4570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b8}
0x4570…4588 Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x002c, t01=0x00c2}
0x4588…4592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00da}
0x4592…45a0 Head {h00=0x000a, h01=0x0050, text=»KEDITX«, t00=0x002c, t01=0x00e4}
0x45a0…45be Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002c, t01=0x00f2}
0x45be…45d0 Head {h00=0x000e, h01=0x0050, text=» BZ KED050«, t00=0x002c, t01=0x0110}
0x45d0…45fa Head {h00=0x0026, h01=0x0050, text=» DUPL STR2A LOOK IF KEYED INPUT =N«, t00=0x002c, t01=0x0122}
0x45fa…4612 Head {h00=0x0014, h01=0x0050, text=» BOK KED025 YES!«, t00=0x002c, t01=0x014c}
0x4612…462e Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KED050 «, t00=0x002c, t01=0x0164}
0x462e…463c Head {h00=0x000a, h01=0x0050, text=»KED025«, t00=0x002c, t01=0x0180}
0x463c…465a Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW2,W5 RBWD «, t00=0x002c, t01=0x018e}
0x465a…4672 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x002d, t01=0x001c}
0x4672…4684 Head {h00=0x000e, h01=0x0050, text=» B ERRET1 «, t00=0x002d, t01=0x0034}
0x4684…4692 Head {h00=0x000a, h01=0x0050, text=»KED050«, t00=0x002d, t01=0x0046}
0x4692…46b0 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW1,W0,KEDITY«, t00=0x002d, t01=0x0054}
0x46b0…46c8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W1«, t00=0x002d, t01=0x0072}
0x46c8…46d6 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x002d, t01=0x008a}
0x46d6…46f8 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x002d, t01=0x0098}
0x46f8…4718 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW3,W0,KED100 «, t00=0x002d, t01=0x00ba}
0x4718…4744 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x002d, t01=0x00da}
0x4744…4758 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x002d, t01=0x0106}
0x4758…4766 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x002d, t01=0x011a}
0x4766…4788 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x002d, t01=0x0128}
0x4788…47ae Head {h00=0x0022, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 MINUS «, t00=0x002d, t01=0x014a}
0x47ae…47c0 Head {h00=0x000e, h01=0x0050, text=» BZ KED200«, t00=0x002d, t01=0x0170}
0x47c0…47ea Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTABB,DEBINW1, C«, t00=0x002d, t01=0x0182}
0x47ea…4804 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x002e, t01=0x001c}
0x4804…4816 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x002e, t01=0x0036}
0x4816…4824 Head {h00=0x000a, h01=0x0050, text=»KED200«, t00=0x002e, t01=0x0048}
0x4824…484e Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTAB3,DEBINW1, C«, t00=0x002e, t01=0x0056}
0x484e…4868 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x002e, t01=0x0080}
0x4868…488e Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x002e, t01=0x009a}
0x488e…489c Head {h00=0x000a, h01=0x0050, text=»KEDITY«, t00=0x002e, t01=0x00c0}
0x489c…48ac Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x002e, t01=0x00ce}
0x48ac…48bc Head {h00=0x000c, h01=0x0050, text=» B KEDIT«, t00=0x002e, t01=0x00de}
0x48bc…48c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ee}
0x48c6…48e0 Head {h00=0x0016, h01=0x0050, text=»* ERASE KEY «, t00=0x002e, t01=0x00f8}
0x48e0…48ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0112}
0x48ea…48f8 Head {h00=0x000a, h01=0x0050, text=»KERASE«, t00=0x002e, t01=0x011c}
0x48f8…4910 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x002e, t01=0x012a}
0x4910…492c Head {h00=0x0018, h01=0x0050, text=» ERASE 10,DEBINW4,W0«, t00=0x002e, t01=0x0142}
0x492c…4946 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x002e, t01=0x015e}
0x4946…4960 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W12 «, t00=0x002e, t01=0x0178}
0x4960…4972 (47, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x002f, t01=0x0004}
0x4972…497c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0016}
0x497c…4992 Head {h00=0x0012, h01=0x0050, text=»* KEEP KEY «, t00=0x002f, t01=0x0020}
0x4992…499c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0036}
0x499c…49aa Head {h00=0x000a, h01=0x0050, text=»KKEEP «, t00=0x002f, t01=0x0040}
0x49aa…49d6 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,KENT03 JUMP IF NOT ENTRY «, t00=0x002f, t01=0x004e}
0x49d6…49e4 Head {h00=0x000a, h01=0x0050, text=»KKEEP0«, t00=0x002f, t01=0x007a}
0x49e4…4a0e Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KKEEP2 «, t00=0x002f, t01=0x0088}
0x4a0e…4a1c Head {h00=0x000a, h01=0x0050, text=»KKEEP1«, t00=0x002f, t01=0x00b2}
0x4a1c…4a3e Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x002f, t01=0x00c0}
0x4a3e…4a5c Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT07«, t00=0x002f, t01=0x00e2}
0x4a5c…4a86 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x002f, t01=0x0100}
0x4a86…4a9c Head {h00=0x0012, h01=0x0050, text=» BZ KKEEP3 NO!«, t00=0x002f, t01=0x012a}
0x4a9c…4ace Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x002f, t01=0x0140}
0x4ace…4ae6 Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x002f, t01=0x0172}
0x4ae6…4af4 Head {h00=0x000a, h01=0x0050, text=»KKEEP3«, t00=0x002f, t01=0x018a}
0x4af4…4b16 Head {h00=0x001e, h01=0x0050, text=» CMP DEBINW2,W12 ERASE KEY«, t00=0x0030, t01=0x0008}
0x4b16…4b28 Head {h00=0x000e, h01=0x0050, text=» BZ UPD040«, t00=0x0030, t01=0x002a}
0x4b28…4b3a Head {h00=0x000e, h01=0x0050, text=» B UPD020 «, t00=0x0030, t01=0x003c}
0x4b3a…4b48 Head {h00=0x000a, h01=0x0050, text=»KKEEP2«, t00=0x0030, t01=0x004e}
0x4b48…4b5a Head {h00=0x000e, h01=0x0050, text=» SET DOOL5«, t00=0x0030, t01=0x005c}
0x4b5a…4b72 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0030, t01=0x006e}
0x4b72…4b8a Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0030, t01=0x0086}
0x4b8a…4bb8 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0030, t01=0x009e}
0x4bb8…4bd4 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0030, t01=0x00cc}
0x4bd4…4be6 Head {h00=0x000e, h01=0x0050, text=» BE KKEEP5«, t00=0x0030, t01=0x00e8}
0x4be6…4bfa Head {h00=0x0010, h01=0x0050, text=» BL SETCREAD«, t00=0x0030, t01=0x00fa}
0x4bfa…4c0e Head {h00=0x0010, h01=0x0050, text=» BOFL KENT10«, t00=0x0030, t01=0x010e}
0x4c0e…4c20 Head {h00=0x000e, h01=0x0050, text=» B KKEEP4 «, t00=0x0030, t01=0x0122}
0x4c20…4c2e Head {h00=0x000a, h01=0x0050, text=»KKEEP5«, t00=0x0030, t01=0x0134}
0x4c2e…4c4c Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0030, t01=0x0142}
0x4c4c…4c5e Head {h00=0x000e, h01=0x0050, text=» BZ KKEEP1«, t00=0x0030, t01=0x0160}
0x4c5e…4c82 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x0030, t01=0x0172}
0x4c82…4c96 Head {h00=0x0010, h01=0x0050, text=» BOK KKEEP4 «, t00=0x0031, t01=0x0008}
0x4c96…4cb2 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KKEEP1 «, t00=0x0031, t01=0x001c}
0x4cb2…4cc0 Head {h00=0x000a, h01=0x0050, text=»KKEEP4«, t00=0x0031, t01=0x0038}
0x4cc0…4cd4 Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x0031, t01=0x0046}
0x4cd4…4cf2 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,KKEEP1«, t00=0x0031, t01=0x005a}
0x4cf2…4d1c Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KKEEP1 JUMP IF BALANCE «, t00=0x0031, t01=0x0078}
0x4d1c…4d42 Head {h00=0x0022, h01=0x0050, text=» CBE DEBINW2,W12,KKEEP1 ERASE «, t00=0x0031, t01=0x00a2}
0x4d42…4d56 Head {h00=0x0010, h01=0x0050, text=» DK BEGIN «, t00=0x0031, t01=0x00c8}
0x4d56…4d84 Head {h00=0x002a, h01=0x0050, text=» TBF CORR,KKEEP45 IN CORRECTION MODE? «, t00=0x0031, t01=0x00dc}
0x4d84…4da8 Head {h00=0x0020, h01=0x0050, text=» TSTCTL 5 YES, LOOK IF CTAB «, t00=0x0031, t01=0x010a}
0x4da8…4dc0 Head {h00=0x0014, h01=0x0050, text=» BZ KKEEP45 NO! «, t00=0x0031, t01=0x012e}
0x4dc0…4de2 Head {h00=0x001e, h01=0x0050, text=» DUPL STR2A KEYED INPUT=N?«, t00=0x0031, t01=0x0146}
0x4de2…4dfa Head {h00=0x0014, h01=0x0050, text=» BOK KKEEP48 YES«, t00=0x0031, t01=0x0168}
0x4dfa…4e0a Head {h00=0x000c, h01=0x0050, text=»KKEEP45 «, t00=0x0031, t01=0x0180}
0x4e0a…4e1c Head {h00=0x000e, h01=0x0050, text=» DK END «, t00=0x0031, t01=0x0190}
0x4e1c…4e30 Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0032, t01=0x0012}
0x4e30…4e44 Head {h00=0x0010, h01=0x0050, text=» BNOK KENT20«, t00=0x0032, t01=0x0026}
0x4e44…4e54 Head {h00=0x000c, h01=0x0050, text=»KKEEP48 «, t00=0x0032, t01=0x003a}
0x4e54…4e7c Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KEEP «, t00=0x0032, t01=0x004a}
0x4e7c…4e8e Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x0032, t01=0x0072}
0x4e8e…4e9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0084}
0x4e9c…4ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0092}
0x4ea6…4ebc Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY «, t00=0x0032, t01=0x009c}
0x4ebc…4ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b2}
0x4ec6…4ed4 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0032, t01=0x00bc}
0x4ed4…4eee Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x0032, t01=0x00ca}
0x4eee…4f08 Head {h00=0x0016, h01=0x0050, text=» TBT AUTENT,KKEEP0«, t00=0x0032, t01=0x00e4}
0x4f08…4f2a Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0032, t01=0x00fe}
0x4f2a…4f48 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT06«, t00=0x0032, t01=0x0120}
0x4f48…4f74 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0032, t01=0x013e}
0x4f74…4f88 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0032, t01=0x016a}
0x4f88…4f96 Head {h00=0x000a, h01=0x0050, text=»KENT06«, t00=0x0032, t01=0x017e}
0x4f96…4fba Head {h00=0x0020, h01=0x0050, text=» SET DECHANGE AT LEAST ONCE «, t00=0x0032, t01=0x018c}
0x4fba…4fc8 Head {h00=0x000a, h01=0x0050, text=»KENT04«, t00=0x0033, t01=0x0020}
0x4fc8…4ffe Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED «, t00=0x0033, t01=0x002e}
0x4ffe…500a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0033, t01=0x0064}
0x500a…5018 Head {h00=0x000a, h01=0x0050, text=»KENT03«, t00=0x0033, t01=0x0070}
0x5018…5046 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,W0 INDICATE NO CLEARING «, t00=0x0033, t01=0x007e}
0x5046…5086 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0033, t01=0x00ac}
0x5086…50b2 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0033, t01=0x00ec}
0x50b2…50dc Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0033, t01=0x0118}
0x50dc…50f2 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0033, t01=0x0142}
0x50f2…5124 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0033, t01=0x0158}
0x5124…513c Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0033, t01=0x018a}
0x513c…514a Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0034, t01=0x0012}
0x514a…5176 Head {h00=0x0028, h01=0x0050, text=» TBT DOOL3,KENT07 JUMP IF ENTRY-MODE«, t00=0x0034, t01=0x0020}
0x5176…5194 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W9,KENT07«, t00=0x0034, t01=0x004c}
0x5194…51b4 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW2,W10,KENT06«, t00=0x0034, t01=0x006a}
0x51b4…51c2 Head {h00=0x000a, h01=0x0050, text=»KENT07«, t00=0x0034, t01=0x008a}
0x51c2…51dc Head {h00=0x0016, h01=0x0050, text=» TBT AUTENT,KENT06«, t00=0x0034, t01=0x0098}
0x51dc…51f0 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0034, t01=0x00b2}
0x51f0…51fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c6}
0x51fa…5224 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0034, t01=0x00d0}
0x5224…522e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00fa}
0x522e…523c Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0034, t01=0x0104}
0x523c…5276 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD«, t00=0x0034, t01=0x0112}
0x5276…5284 Head {h00=0x000a, h01=0x0050, text=»KENT15«, t00=0x0034, t01=0x014c}
0x5284…52b6 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND«, t00=0x0034, t01=0x015a}
0x52b6…52ce Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0034, t01=0x018c}
0x52ce…52ec Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0035, t01=0x0014}
0x52ec…5304 Head {h00=0x0014, h01=0x0050, text=» BZ ERRPRINT NO!«, t00=0x0035, t01=0x0032}
0x5304…5318 Head {h00=0x0010, h01=0x0050, text=» DUPL STR2A «, t00=0x0035, t01=0x004a}
0x5318…5330 Head {h00=0x0014, h01=0x0050, text=» BOK KENT20 YES!«, t00=0x0035, t01=0x005e}
0x5330…534e Head {h00=0x001a, h01=0x0050, text=» TBF ASDFLAG,ERRPRINT «, t00=0x0035, t01=0x0076}
0x534e…5364 Head {h00=0x0012, h01=0x0050, text=»KENT20 YES! «, t00=0x0035, t01=0x0094}
0x5364…5380 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABI«, t00=0x0035, t01=0x00aa}
0x5380…5392 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x0035, t01=0x00c6}
0x5392…53a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00d8}
0x53a0…53aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e6}
0x53aa…53c8 Head {h00=0x001a, h01=0x0050, text=»* INDICATE FORCED ITEM«, t00=0x0035, t01=0x00f0}
0x53c8…53d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010e}
0x53d2…53e0 Head {h00=0x000a, h01=0x0050, text=»KFORCE«, t00=0x0035, t01=0x0118}
0x53e0…53f4 Head {h00=0x0010, h01=0x0050, text=» PERF DEFORC«, t00=0x0035, t01=0x0126}
0x53f4…5406 Head {h00=0x000e, h01=0x0050, text=» B UPDR30 «, t00=0x0035, t01=0x013a}
0x5406…5410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x014c}
0x5410…5424 Head {h00=0x0010, h01=0x0050, text=»* VALID ITEM«, t00=0x0035, t01=0x0156}
0x5424…542e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x016a}
0x542e…543c Head {h00=0x000a, h01=0x0050, text=»KVALID«, t00=0x0035, t01=0x0174}
0x543c…5468 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW2,W3 RESTORE ITEMLENGTH «, t00=0x0035, t01=0x0182}
0x5468…547a Head {h00=0x000e, h01=0x0050, text=» B UPDR25 «, t00=0x0036, t01=0x001e}
0x547a…5488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0030}
0x5488…5496 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0036, t01=0x003e}
0x5496…54ae Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W16«, t00=0x0036, t01=0x004c}
0x54ae…54cc Head {h00=0x001a, h01=0x0050, text=» BE KEDIT JUMP IF EDIT«, t00=0x0036, t01=0x0064}
0x54cc…54fc Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1«, t00=0x0036, t01=0x0082}
0x54fc…552c Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2«, t00=0x0036, t01=0x00b2}
0x552c…554c Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x0036, t01=0x00e2}
0x554c…556a Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x0036, t01=0x0102}
0x556a…557e Head {h00=0x0010, h01=0x0050, text=» BNZ DYK050 «, t00=0x0036, t01=0x0120}
0x557e…5588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0134}
0x5588…55a4 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x0036, t01=0x013e}
0x55a4…55ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015a}
0x55ae…55be Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x0036, t01=0x0164}
0x55be…55ec Head {h00=0x002a, h01=0x0050, text=» TBF DOOLA,ERRP10 JUMP IF NOT BALANCE «, t00=0x0036, t01=0x0174}
0x55ec…5608 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0037, t01=0x0012}
0x5608…561a Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0037, t01=0x002e}
0x561a…5628 Head {h00=0x000a, h01=0x0050, text=»ERRP10«, t00=0x0037, t01=0x0040}
0x5628…5644 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x0037, t01=0x004e}
0x5644…5652 Head {h00=0x000a, h01=0x0050, text=»ERRP20«, t00=0x0037, t01=0x006a}
0x5652…567a Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W1,ERRCAN CLEAR-KEY«, t00=0x0037, t01=0x0078}
0x567a…5688 Head {h00=0x000a, h01=0x0050, text=»ERRP25«, t00=0x0037, t01=0x00a0}
0x5688…56ba Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C«, t00=0x0037, t01=0x00ae}
0x56ba…56de Head {h00=0x0020, h01=0x0050, text=» KVALID,KFORCE,KTBWD,KTHOME«, t00=0x0037, t01=0x00e0}
0x56de…56ec Head {h00=0x000a, h01=0x0050, text=»ERRRET«, t00=0x0037, t01=0x0104}
0x56ec…5704 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW2,W2 «, t00=0x0037, t01=0x0112}
0x5704…571c Head {h00=0x0014, h01=0x0050, text=»ERRCAN PERF CANC«, t00=0x0037, t01=0x012a}
0x571c…5730 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL5«, t00=0x0037, t01=0x0142}
0x5730…574e Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0037, t01=0x0156}
0x574e…5760 Head {h00=0x000e, h01=0x0050, text=» BZ ERRCA1«, t00=0x0037, t01=0x0174}
0x5760…577c Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,ERRET4 «, t00=0x0037, t01=0x0186}
0x577c…57a0 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N «, t00=0x0038, t01=0x0012}
0x57a0…57b8 Head {h00=0x0014, h01=0x0050, text=» BOK ERRET4 YES!«, t00=0x0038, t01=0x0036}
0x57b8…57c6 Head {h00=0x000a, h01=0x0050, text=»ERRCA1«, t00=0x0038, t01=0x004e}
0x57c6…57f2 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,CONT3 «, t00=0x0038, t01=0x005c}
0x57f2…5800 Head {h00=0x000a, h01=0x0050, text=»ERRET0«, t00=0x0038, t01=0x0088}
0x5800…5832 Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2«, t00=0x0038, t01=0x0096}
0x5832…5840 Head {h00=0x000a, h01=0x0050, text=»ERRET1«, t00=0x0038, t01=0x00c8}
0x5840…585a Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,ERRET2 «, t00=0x0038, t01=0x00d6}
0x585a…5872 Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x0038, t01=0x00f0}
0x5872…5880 Head {h00=0x000a, h01=0x0050, text=»ERRET2«, t00=0x0038, t01=0x0108}
0x5880…588c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x0116}
0x588c…589a Head {h00=0x000a, h01=0x0050, text=»ERRET4«, t00=0x0038, t01=0x0122}
0x589a…58c6 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,ERRET5«, t00=0x0038, t01=0x0130}
0x58c6…58d8 Head {h00=0x000e, h01=0x0050, text=» B ERRET0 «, t00=0x0038, t01=0x015c}
0x58d8…58e6 Head {h00=0x000a, h01=0x0050, text=»ERRET5«, t00=0x0038, t01=0x016e}
0x58e6…590c Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W8 SIMULATE TBWD«, t00=0x0038, t01=0x017c}
0x590c…591c Head {h00=0x000c, h01=0x0050, text=» B KTBWD«, t00=0x0039, t01=0x0012}
0x591c…592a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0039, t01=0x0022}
0x592a…5934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0030}
0x5934…5946 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0039, t01=0x003a}
0x5946…5952 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0039, t01=0x004c}
0x5952…5968 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0039, t01=0x0058}
0x5968…5976 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0039, t01=0x006e}
0x5976…5988 Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x0039, t01=0x007c}
0x5988…599c Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0039, t01=0x008e}
0x599c…59aa Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0039, t01=0x00a2}
0x59aa…59b6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0039, t01=0x00b0}
0x59b6…59ba Head {h00=0x4004, h01=0x0000}
0x59ba…59be 00 39 00 bc ┆ 9 ┆
0x59be…59c6 (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x59c6…5a16 (59, 0, 400) 0e da 0b c4 0b d2 0c 54 0e ce 0e d2 0e d6 28 81 20 21 41 64 31 05 39 41 6e 40 6d 80 01 36 91 03 02 36 06 57 2c 40 6e 5f 10 28 80 22 32 28 81 20 02 5f 21 40 6a 33 81 04 02 02 03 04 40 8a 40 64 30 06 20 30 7d 00 80 34 80 05 68 80 81 80 06 5f ┆ T ( !Ad1 9An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _┆
0x5a16…5a66 3d 00 93 91 80 07 13 5f 3c 00 81 21 00 80 20 34 00 36 92 09 02 53 66 6c 7b 8b 98 a1 b7 57 c4 6a 99 20 21 95 20 49 69 06 21 99 39 d1 57 04 29 99 39 cb 20 6d 95 b6 00 94 20 80 08 2c 50 ba 20 93 29 02 3f 01 01 9d 3b 6a 9d 21 26 95 20 80 09 27 ┆= _< ! 4 6 Sfl{ W j ! Ii ! 9 W ) 9 m ,P ) ? ;j !& '┆
0x5a66…5ab6 62 63 9d 20 63 20 06 20 62 bb 02 57 9b 30 2a 00 92 21 92 36 87 80 09 24 bb 8f 9d 00 72 22 3f 02 00 97 95 00 92 97 00 93 37 22 92 93 76 24 92 21 72 3f 02 80 0a 38 02 54 6a 00 94 20 80 08 2a 50 02 3f 01 00 91 31 3f 02 00 97 95 00 92 97 22 92 ┆bc c b W 0* ! 6 $ r"? 7" v$ !r? 8 Tj *P ? 1? " ┆
0x5ab6…5b06 86 51 24 92 11 46 57 4b 00 b8 24 90 80 0b 95 b8 24 3c 03 3f 02 00 98 95 2b 98 42 30 57 35 80 0a 50 06 21 99 3a 06 57 2b 21 99 3d 04 41 95 3f 02 40 95 3f 02 00 98 95 00 92 98 30 23 92 d3 21 54 12 3f 02 04 92 29 36 92 01 18 57 f0 3f 02 00 93 ┆ Q$ FWK $ $< ? + B0W5 P ! : W+! = A ? @ ? 0# !T ? )6 W ? ┆
0x5b06…5b56 22 3f 01 00 93 26 3f 01 00 93 28 3f 01 00 93 10 3f 01 00 b8 25 90 00 84 20 00 63 90 40 6b 68 95 84 63 5c 2d 21 54 b8 02 84 21 20 84 b8 25 a2 00 90 84 00 8f 20 68 5c 8f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 ┆"? &? (? ? % c @kh c -!T ! % h ┆
0x5b56…5ba6 (60, 0, 400) 2f 95 84 21 54 3b 20 8f 20 13 36 8f 0e 02 4d 4d 4d 4d 4d 4d 7e 7e 4d 4d 7e 7e 4d 57 7c 49 69 79 00 8e 8f 02 84 21 20 84 b8 25 6e 00 8f 20 68 5c 8f 2f 95 84 21 54 04 10 8f 8e 18 20 8f 2c 4a 57 58 02 84 21 20 84 b8 25 50 00 8f 20 68 5c 8f 2f ┆/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h /┆
0x5ba6…5bf6 95 84 21 5c 14 36 8f 0e 02 02 02 02 02 02 02 06 06 02 02 20 33 02 57 31 41 6b 5f 2b 02 84 21 22 84 b8 25 25 00 8f 20 68 5c 8f 2f 95 84 21 54 19 20 8f 2c 05 57 13 48 6b 10 02 84 21 00 63 b8 25 04 63 84 20 63 20 10 5f b5 00 93 26 80 07 13 00 ┆ ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & ┆
0x5bf6…5c46 84 20 02 90 21 3f 03 00 84 20 30 09 02 25 25 01 b3 38 3f 02 04 92 21 36 92 08 02 08 0e 28 44 54 64 74 5f fe 00 b8 2a 90 3f 02 00 b8 2b 90 3f 02 00 94 20 80 08 2c 3c 01 6a 99 20 21 95 20 21 99 39 04 40 69 57 02 41 69 3f 02 80 0a 50 0a 21 99 ┆ !? 0 %% 8? !6 (DTdt_ * ? + ? ,< j ! ! 9 @iW Ai? P ! ┆
0x5c46…5c96 3a 02 3f 04 41 92 57 0a 40 92 21 99 3c 04 41 9a 3f 02 40 9a 3f 02 80 0a 3c 04 21 99 3c 04 41 98 3f 02 40 98 3f 02 80 0a 3c 04 21 99 3c 04 41 94 3f 02 40 94 3f 02 80 0a 3c 04 21 99 3c 04 40 96 3f 02 41 96 3f 02 3f 05 00 99 95 21 99 3c 09 21 ┆: ? A W @ ! < A ? @ ? < ! < A ? @ ? < ! < A ? @ ? < ! < @ ? A ? ? ! < !┆
0x5c96…5ce6 99 3d 05 06 20 21 57 03 06 20 20 34 00 41 6e 49 6a 0c 40 7b 20 81 22 04 40 69 57 02 41 69 00 8f 20 00 83 21 80 09 22 83 8f 9d 50 0a 80 07 10 37 91 02 16 16 3f 06 00 e9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ = !W 4 AnIj @{ " @iW Ai ! " P 7 ? ┆