|
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: 23514 (0x5bda)
Notes: pts_type(SC)
Names: »DENTER.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DENTER.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DENTER.SC«
IDENT DENTER REL 10.0 80-04-11 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 4.1 * TOSS REL 9.1 ****************************************** DDUM DEDDIV PDIV * ENTRY DECLRA CLEAR ALL VARIABLE FIELDS ENTRY DECLRS CLEAR SOME VARIABLE FIELDS ENTRY DECLRN CLEAR NO VARIABLE FIELDS ENTRY DECLRD ENTRY DERR DENTER-ERROR EXT DERROR ERROR-MESSAGES EXT DEGEN GENERATION ROUTINE EXT CANC -ROUTINES * EXT DESTAT BUILD THE STATUSLINE EXT DEAPPL STANDARD ROUTINE TO 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 DEBINW1,W0,UPDR33 INPUTLENGT=0 CBE DEBINW3,W1,UPDR15 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 CBE DEBINW2,W12,UPDR40 ERASE-KEY CBE DEBINW2,W9,UPDR40 ERASE-KEY CBE DEBINW2,W1,UPDR40 CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 BNOK UPDR50 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 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 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 PERF DENDUP BNOK KTEOI2 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 PERF DENDUP BNOK KENT20 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…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DENTER REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-04-14/DALI«, t00=0x0000, t01=0x002c}
0x0040…0072 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x0044}
0x0072…00a4 Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE HANDLE THE KEYBOARD INPUT *«, t00=0x0000, t01=0x0076}
0x00a4…00d6 Head {h00=0x002e, h01=0x0050, text=»* AND IS A MODIFIED VERSION OF THE STAN- *«, t00=0x0000, t01=0x00a8}
0x00d6…0108 Head {h00=0x002e, h01=0x0050, text=»* DARD S C R E E N - P A C K A G E. *«, t00=0x0000, t01=0x00da}
0x0108…013a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x010c}
0x013a…0144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…0170 Head {h00=0x0028, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 4.1 «, t00=0x0000, t01=0x0148}
0x0170…019c Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 9.1 «, t00=0x0000, t01=0x0174}
0x019c…01ce Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0001, t01=0x0010}
0x01ce…01e2 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x0042}
0x01e2…01f0 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0056}
0x01f0…01fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0064}
0x01fa…022a Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0001, t01=0x006e}
0x022a…025a Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0001, t01=0x009e}
0x025a…0288 Head {h00=0x002a, h01=0x0050, text=» ENTRY DECLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x00ce}
0x0288…029e Head {h00=0x0012, h01=0x0050, text=» ENTRY DECLRD «, t00=0x0001, t01=0x00fc}
0x029e…02be Head {h00=0x001c, h01=0x0050, text=» ENTRY DERR DENTER-ERROR«, t00=0x0001, t01=0x0112}
0x02be…02e0 Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0001, t01=0x0132}
0x02e0…0306 Head {h00=0x0022, h01=0x0050, text=» EXT DEGEN GENERATION ROUTINE «, t00=0x0001, t01=0x0154}
0x0306…0322 Head {h00=0x0018, h01=0x0050, text=» EXT CANC -ROUTINES «, t00=0x0001, t01=0x017a}
0x0322…032c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032c…0354 Head {h00=0x0024, h01=0x0050, text=» EXT DESTAT BUILD THE STATUSLINE«, t00=0x0002, t01=0x0012}
0x0354…037c Head {h00=0x0024, h01=0x0050, text=» EXT DEAPPL STANDARD ROUTINE TO «, t00=0x0002, t01=0x003a}
0x037c…039a Head {h00=0x001a, h01=0x0050, text=» HANDLE APPL VALUES «, t00=0x0002, t01=0x0062}
0x039a…03c6 Head {h00=0x0028, h01=0x0050, text=» EXT DETCHK USER ROUTINE TO EVALUATE«, t00=0x0002, t01=0x0080}
0x03c6…03e8 Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x00ac}
0x03e8…03fc Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0002, t01=0x00ce}
0x03fc…0410 Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0002, t01=0x00e2}
0x0410…0424 Head {h00=0x0010, h01=0x0050, text=» EXT DENDUP «, t00=0x0002, t01=0x00f6}
0x0424…044a Head {h00=0x0022, h01=0x0050, text=» EXT DEFORC HANDLE FORCEDITEM «, t00=0x0002, t01=0x010a}
0x044a…046e Head {h00=0x0020, h01=0x0050, text=» EXT DEVERI KEY-VERIFICATION«, t00=0x0002, t01=0x0130}
0x046e…0478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0154}
0x0478…04aa Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0002, t01=0x015e}
0x04aa…04d0 Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0002, t01=0x0190}
0x04d0…0502 Head {h00=0x002e, h01=0x0050, text=» EXT FORCED ASSEMBLY SUBROUTINE FORCED - «, t00=0x0003, t01=0x0026}
0x0502…052a Head {h00=0x0024, h01=0x0050, text=» TEST IF DATA ITEM IS FORCED «, t00=0x0003, t01=0x0058}
0x052a…0558 Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0003, t01=0x0080}
0x0558…057a Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0003, t01=0x00ae}
0x057a…059e Head {h00=0x0020, h01=0x0050, text=» EXT ATTPRT RESERVE PRINTER «, t00=0x0003, t01=0x00d0}
0x059e…05c0 Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV RESERVE DEVICE«, t00=0x0003, t01=0x00f4}
0x05c0…05e4 Head {h00=0x0020, h01=0x0050, text=» EXT DETPRT RELEASE PRINTER «, t00=0x0003, t01=0x0116}
0x05e4…05f6 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0003, t01=0x013a}
0x05f6…061e Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0003, t01=0x014c}
0x061e…0642 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0003, t01=0x0174}
0x0642…066c Head {h00=0x0026, h01=0x0050, text=» EXT GETGEN LOOK FOR GENERARTION- «, t00=0x0004, t01=0x0008}
0x066c…0690 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x0032}
0x0690…06ba Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0004, t01=0x0056}
0x06ba…06e8 Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0004, t01=0x0080}
0x06e8…070a Head {h00=0x001e, h01=0x0050, text=» EXT DELOCK TEST KEY-LOCKS«, t00=0x0004, t01=0x00ae}
0x070a…073a Head {h00=0x002c, h01=0x0050, text=» EXT GETFWD ASSEMBLY SUBROUTINE GETFWD -«, t00=0x0004, t01=0x00d0}
0x073a…0754 Head {h00=0x0016, h01=0x0050, text=» EXECUTE GETFLD.«, t00=0x0004, t01=0x0100}
0x0754…0776 Head {h00=0x001e, h01=0x0050, text=» NOTE THAT CONDITION=3, «, t00=0x0004, t01=0x011a}
0x0776…0794 Head {h00=0x001a, h01=0x0050, text=» MEANING THAT EMPTY «, t00=0x0004, t01=0x013c}
0x0794…07b4 Head {h00=0x001c, h01=0x0050, text=» COMPULSURY FIELDS IS «, t00=0x0004, t01=0x015a}
0x07b4…07d2 Head {h00=0x001a, h01=0x0050, text=» FOUND,WILL "NOT" BE«, t00=0x0004, t01=0x017a}
0x07d2…07e6 Head {h00=0x0010, h01=0x0050, text=» INDICATED«, t00=0x0005, t01=0x0008}
0x07e6…0816 Head {h00=0x002c, h01=0x0050, text=» EXT ADJUST ASSEMBLY SUBROUTINE ADJUST -«, t00=0x0005, t01=0x001c}
0x0816…083c Head {h00=0x0022, h01=0x0050, text=» ADJUST FORMATPOINTERS AFTER«, t00=0x0005, t01=0x004c}
0x083c…085a Head {h00=0x001a, h01=0x0050, text=» EXECUTION OF GETFWD«, t00=0x0005, t01=0x0072}
0x085a…086e Head {h00=0x0010, h01=0x0050, text=» EXT DELAST «, t00=0x0005, t01=0x0090}
0x086e…087c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00a4}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b2}
0x0886…08a2 Head {h00=0x0018, h01=0x0050, text=» INCLUDE DELITT,LIST«, t00=0x0005, t01=0x00bc}
0x08a2…08b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00d8}
0x08b0…08ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08ba…08fc Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x00f0}
0x08fc…0906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0906…091a Head {h00=0x0010, h01=0x0050, text=»DECLRA PROC «, t00=0x0005, t01=0x013c}
0x091a…0932 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W1 «, t00=0x0005, t01=0x0150}
0x0932…093e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0168}
0x093e…094c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0174}
0x094c…0956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0956…099a Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x018c}
0x099a…09a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0040}
0x09a4…09b8 Head {h00=0x0010, h01=0x0050, text=»DECLRS PROC «, t00=0x0006, t01=0x004a}
0x09b8…09d0 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W2 «, t00=0x0006, t01=0x005e}
0x09d0…09dc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0076}
0x09dc…09ea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0082}
0x09ea…09f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0090}
0x09f4…0a36 Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x009a}
0x0a36…0a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00dc}
0x0a40…0a54 Head {h00=0x0010, h01=0x0050, text=»DECLRN PROC «, t00=0x0006, t01=0x00e6}
0x0a54…0a6c Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W3 «, t00=0x0006, t01=0x00fa}
0x0a6c…0a78 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0112}
0x0a78…0a86 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x011e}
0x0a86…0a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a90…0acc Head {h00=0x0038, h01=0x0050, text=»* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST«, t00=0x0006, t01=0x0136}
0x0acc…0b0c Head {h00=0x003c, h01=0x0050, text=»* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0172}
0x0b0c…0b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b16…0b2a Head {h00=0x0010, h01=0x0050, text=»DECLRD PROC «, t00=0x0007, t01=0x002c}
0x0b2a…0b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b34…0b4c Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W4 «, t00=0x0007, t01=0x004a}
0x0b4c…0b58 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0062}
0x0b58…0b66 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x006e}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b70…0b8c Head {h00=0x0018, h01=0x0050, text=»* ERROR PRINTOUT«, t00=0x0007, t01=0x0086}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0ba8 Head {h00=0x000e, h01=0x0050, text=»DERR PROC «, t00=0x0007, t01=0x00ac}
0x0ba8…0bc0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0007, t01=0x00be}
0x0bc0…0bd8 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W0 «, t00=0x0007, t01=0x00d6}
0x0bd8…0be4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00ee}
0x0be4…0bf2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00fa}
0x0bf2…0c00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0108}
0x0c00…0c18 Head {h00=0x0014, h01=0x0050, text=»DENTER PROC OPT «, t00=0x0007, t01=0x0116}
0x0c18…0c3a Head {h00=0x001e, h01=0x0050, text=» CLEAR DOOLC ERASEFLAG OFF«, t00=0x0007, t01=0x012e}
0x0c3a…0c64 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,OPT MOVE TO VARIABLE«, t00=0x0007, t01=0x0150}
0x0c64…0c8a Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0007, t01=0x017a}
0x0c8a…0cb2 Head {h00=0x0024, h01=0x0050, text=» CMP DEBINW2,W0 "DEERR" ENTRY ? «, t00=0x0008, t01=0x0010}
0x0cb2…0ccc Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0008, t01=0x0038}
0x0ccc…0cd4 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0052}
0x0cd4…0d06 Head {h00=0x002e, h01=0x0050, text=» TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0008, t01=0x005a}
0x0d06…0d24 Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DIDELAYED«, t00=0x0008, t01=0x008c}
0x0d24…0d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00aa}
0x0d2e…0d50 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x00b4}
0x0d50…0d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d6}
0x0d5a…0d70 Head {h00=0x0012, h01=0x0050, text=» IB DEBINW2 C«, t00=0x0008, t01=0x00e0}
0x0d70…0d84 Head {h00=0x0010, h01=0x0050, text=» CLEARA C «, t00=0x0008, t01=0x00f6}
0x0d84…0d98 Head {h00=0x0010, h01=0x0050, text=» CLEARS C «, t00=0x0008, t01=0x010a}
0x0d98…0daa Head {h00=0x000e, h01=0x0050, text=» CONT C «, t00=0x0008, t01=0x011e}
0x0daa…0dba Head {h00=0x000c, h01=0x0050, text=» CLEARD«, t00=0x0008, t01=0x0130}
0x0dba…0dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dc4…0dd2 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0008, t01=0x014a}
0x0dd2…0e00 Head {h00=0x002a, h01=0x0050, text=» ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP«, t00=0x0008, t01=0x0158}
0x0e00…0e10 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x0186}
0x0e10…0e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1a…0e28 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0009, t01=0x0012}
0x0e28…0e58 Head {h00=0x002c, h01=0x0050, text=» ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP «, t00=0x0009, t01=0x0020}
0x0e58…0e68 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0050}
0x0e68…0e76 Head {h00=0x000a, h01=0x0050, text=»CLEARD«, t00=0x0009, t01=0x0060}
0x0e76…0e90 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,VERIF «, t00=0x0009, t01=0x006e}
0x0e90…0ebe Head {h00=0x002a, h01=0x0050, text=» DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP«, t00=0x0009, t01=0x0088}
0x0ebe…0ece Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x00b6}
0x0ece…0edc Head {h00=0x000a, h01=0x0050, text=»VERIF «, t00=0x0009, t01=0x00c6}
0x0edc…0ef6 Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,SIGHT «, t00=0x0009, t01=0x00d4}
0x0ef6…0f10 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 23,W1,W0 «, t00=0x0009, t01=0x00ee}
0x0f10…0f20 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0108}
0x0f20…0f2e Head {h00=0x000a, h01=0x0050, text=»SIGHT «, t00=0x0009, t01=0x0118}
0x0f2e…0f48 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 33,W1,W0 «, t00=0x0009, t01=0x0126}
0x0f48…0f58 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0140}
0x0f58…0f66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0150}
0x0f66…0f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f70…0f92 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0009, t01=0x0168}
0x0f92…0f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x018a}
0x0f9c…0faa (10, 0, 400) Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x000a, t01=0x0004}
0x0faa…0fc2 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x000a, t01=0x0012}
0x0fc2…0fdc Head {h00=0x0016, h01=0x0050, text=» IB DEBINW2 JUMP C«, t00=0x000a, t01=0x002a}
0x0fdc…0ff0 Head {h00=0x0010, h01=0x0050, text=» ECLRA ON C«, t00=0x000a, t01=0x0044}
0x0ff0…100a Head {h00=0x0016, h01=0x0050, text=» ECLRS ROUTINE C «, t00=0x000a, t01=0x0058}
0x100a…1022 Head {h00=0x0014, h01=0x0050, text=» ECLRN INDEX C «, t00=0x000a, t01=0x0072}
0x1022…1032 Head {h00=0x000c, h01=0x0050, text=» ECLRN «, t00=0x000a, t01=0x008a}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009a}
0x103c…105c Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x000a, t01=0x00a4}
0x105c…1066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c4}
0x1066…1074 Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x000a, t01=0x00ce}
0x1074…10a2 Head {h00=0x002a, h01=0x0050, text=» ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP«, t00=0x000a, t01=0x00dc}
0x10a2…10b6 Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x000a, t01=0x010a}
0x10b6…10d0 Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x000a, t01=0x011e}
0x10d0…10da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0138}
0x10da…10fc Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x000a, t01=0x0142}
0x10fc…1106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0164}
0x1106…1114 Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x000a, t01=0x016e}
0x1114…1142 Head {h00=0x002a, h01=0x0050, text=» ERASE 6,W1,W0 CLEAR SOME FIELDS FROM «, t00=0x000a, t01=0x017c}
0x1142…1160 Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000b, t01=0x001a}
0x1160…116a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0038}
0x116a…1194 Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000b, t01=0x0042}
0x1194…119e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006c}
0x119e…11ac Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000b, t01=0x0076}
0x11ac…11c6 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000b, t01=0x0084}
0x11c6…11f2 Head {h00=0x0028, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM«, t00=0x000b, t01=0x009e}
0x11f2…1202 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x00ca}
0x1202…1210 Head {h00=0x000a, h01=0x0050, text=»EVERIF«, t00=0x000b, t01=0x00da}
0x1210…122a Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,ESIGHT«, t00=0x000b, t01=0x00e8}
0x122a…1244 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 20,W1,W0 «, t00=0x000b, t01=0x0102}
0x1244…1254 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x011c}
0x1254…1262 Head {h00=0x000a, h01=0x0050, text=»ESIGHT«, t00=0x000b, t01=0x012c}
0x1262…127c Head {h00=0x0016, h01=0x0050, text=» DISPLAY 30,W1,W0 «, t00=0x000b, t01=0x013a}
0x127c…128a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0154}
0x128a…1294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0162}
0x1294…12a0 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000b, t01=0x016c}
0x12a0…12c2 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W8 HOME-KEY «, t00=0x000b, t01=0x0178}
0x12c2…12d0 Head {h00=0x000a, h01=0x0050, text=»CONT3 «, t00=0x000c, t01=0x000a}
0x12d0…12fa Head {h00=0x0026, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT INDEX «, t00=0x000c, t01=0x0018}
0x12fa…1326 Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000c, t01=0x0042}
0x1326…1340 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,CONT5 «, t00=0x000c, t01=0x006e}
0x1340…1352 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000c, t01=0x0088}
0x1352…1360 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000c, t01=0x009a}
0x1360…139a Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION «, t00=0x000c, t01=0x00a8}
0x139a…13ba Head {h00=0x001c, h01=0x0050, text=» BZ CONT6 JUMP IF FOUND «, t00=0x000c, t01=0x00e2}
0x13ba…13e0 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000c, t01=0x0102}
0x13e0…13ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13ea…140e Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000c, t01=0x0132}
0x140e…1418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0156}
0x1418…1442 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CHANGE INDEX«, t00=0x000c, t01=0x0160}
0x1442…1460 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000c, t01=0x018a}
0x1460…146a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0018}
0x146a…1478 Head {h00=0x000a, h01=0x0050, text=»CONT6 «, t00=0x000d, t01=0x0022}
0x1478…1496 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x000d, t01=0x0030}
0x1496…14aa Head {h00=0x0010, h01=0x0050, text=» BZ SETCREAD«, t00=0x000d, t01=0x004e}
0x14aa…14be Head {h00=0x0010, h01=0x0050, text=» TEST DOOLA «, t00=0x000d, t01=0x0062}
0x14be…14e4 Head {h00=0x0022, h01=0x0050, text=» BZ CONT7 JUMP IF NOT BALANCE «, t00=0x000d, t01=0x0076}
0x14e4…14f8 Head {h00=0x0010, h01=0x0050, text=» SET ASDFLAG«, t00=0x000d, t01=0x009c}
0x14f8…1510 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W9«, t00=0x000d, t01=0x00b0}
0x1510…1522 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000d, t01=0x00c8}
0x1522…1530 Head {h00=0x000a, h01=0x0050, text=»CONT7 «, t00=0x000d, t01=0x00da}
0x1530…154e Head {h00=0x001a, h01=0x0050, text=» TBF ASDFLAG,SETCREAD «, t00=0x000d, t01=0x00e8}
0x154e…1574 Head {h00=0x0022, h01=0x0050, text=» B KTHOME GO HOME IF CTAB+ASD «, t00=0x000d, t01=0x0106}
0x1574…1582 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x012c}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013a}
0x158c…15b6 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000d, t01=0x0144}
0x15b6…15c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15c0…15d0 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000d, t01=0x0178}
0x15d0…15fc Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000d, t01=0x0188}
0x15fc…1604 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0024}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x160e…163c Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000e, t01=0x0036}
0x163c…1646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1646…1654 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000e, t01=0x006e}
0x1654…1670 Head {h00=0x0018, h01=0x0050, text=» TBF DENOCHAN,READ50«, t00=0x000e, t01=0x007c}
0x1670…168e Head {h00=0x001a, h01=0x0050, text=»READ10 MOVE DEBINW1,W0«, t00=0x000e, t01=0x0098}
0x168e…16a6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x000e, t01=0x00b6}
0x16a6…16c0 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,READ12«, t00=0x000e, t01=0x00ce}
0x16c0…16fa Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 «, t00=0x000e, t01=0x00e8}
0x16fa…170c Head {h00=0x000e, h01=0x0050, text=» B READ14 «, t00=0x000e, t01=0x0122}
0x170c…171a Head {h00=0x000a, h01=0x0050, text=»READ12«, t00=0x000e, t01=0x0134}
0x171a…1754 Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 «, t00=0x000e, t01=0x0142}
0x1754…1762 Head {h00=0x000a, h01=0x0050, text=»READ14«, t00=0x000e, t01=0x017c}
0x1762…1782 Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x000e, t01=0x018a}
0x1782…17aa Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,READ30,READ20,READ10«, t00=0x000f, t01=0x001a}
0x17aa…17bc Head {h00=0x000e, h01=0x0050, text=» B READ40 «, t00=0x000f, t01=0x0042}
0x17bc…17c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0054}
0x17c6…17dc Head {h00=0x0012, h01=0x0050, text=»READ20 ERROR«, t00=0x000f, t01=0x005e}
0x17dc…17fc Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x000f, t01=0x0074}
0x17fc…181a Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x000f, t01=0x0094}
0x181a…182e Head {h00=0x0010, h01=0x0050, text=» BNZ READ10 «, t00=0x000f, t01=0x00b2}
0x182e…184a Head {h00=0x0018, h01=0x0050, text=» EDWRT DEDSSCRN,BELL«, t00=0x000f, t01=0x00c6}
0x184a…185c Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x000f, t01=0x00e2}
0x185c…1866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1866…1880 Head {h00=0x0016, h01=0x0050, text=»READ30 POWER OFF«, t00=0x000f, t01=0x00fe}
0x1880…189a Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000f, t01=0x0118}
0x189a…18b2 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x000f, t01=0x0132}
0x18b2…18c6 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x000f, t01=0x014a}
0x18c6…18d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015e}
0x18d0…18fe Head {h00=0x002a, h01=0x0050, text=»READ40 IB DEBINW2,READ10,STATUS,KCOPY «, t00=0x000f, t01=0x0168}
0x18fe…1916 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W3 «, t00=0x0010, t01=0x0008}
0x1916…1944 Head {h00=0x002a, h01=0x0050, text=» TBT DOOL3,READ45 JUMP IF NOT WORKING «, t00=0x0010, t01=0x0020}
0x1944…1970 Head {h00=0x0028, h01=0x0050, text=» CLEAR DENOCHAN WITTH THE DATA-FILE «, t00=0x0010, t01=0x004e}
0x1970…197e Head {h00=0x000a, h01=0x0050, text=»READ45«, t00=0x0010, t01=0x007a}
0x197e…198a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0088}
0x198a…1994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1994…19a2 Head {h00=0x000a, h01=0x0050, text=»READ50«, t00=0x0010, t01=0x009e}
0x19a2…19da Head {h00=0x0034, h01=0x0050, text=» TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION «, t00=0x0010, t01=0x00ac}
0x19da…19ee Head {h00=0x0010, h01=0x0050, text=» PERF DEVERI«, t00=0x0010, t01=0x00e4}
0x19ee…1a1c Head {h00=0x002a, h01=0x0050, text=» IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20«, t00=0x0010, t01=0x00f8}
0x1a1c…1a54 Head {h00=0x0034, h01=0x0050, text=»* RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT «, t00=0x0010, t01=0x0126}
0x1a54…1a60 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x015e}
0x1a60…1a6e Head {h00=0x000a, h01=0x0050, text=»READ55«, t00=0x0010, t01=0x016a}
0x1a6e…1a90 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x0010, t01=0x0178}
0x1a90…1ab0 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 «, t00=0x0011, t01=0x000a}
0x1ab0…1ad4 Head {h00=0x0020, h01=0x0050, text=» BZ READ60 JUMP IF NOT SIGN «, t00=0x0011, t01=0x002a}
0x1ad4…1b06 Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C «, t00=0x0011, t01=0x004e}
0x1b06…1b20 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x0080}
0x1b20…1b32 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x0011, t01=0x009a}
0x1b32…1b40 Head {h00=0x000a, h01=0x0050, text=»READ60«, t00=0x0011, t01=0x00ac}
0x1b40…1b72 Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C «, t00=0x0011, t01=0x00ba}
0x1b72…1b8c Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x00ec}
0x1b8c…1b9a Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x0011, t01=0x0106}
0x1b9a…1bba Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x0011, t01=0x0114}
0x1bba…1be2 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,ECLRN,ERRPRT,DYK050 «, t00=0x0011, t01=0x0134}
0x1be2…1bf4 Head {h00=0x000e, h01=0x0050, text=» B DYK100 «, t00=0x0011, t01=0x015c}
0x1bf4…1c02 Head {h00=0x000a, h01=0x0050, text=»DYK050«, t00=0x0011, t01=0x016e}
0x1c02…1c1a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W2«, t00=0x0011, t01=0x017c}
0x1c1a…1c2c (18, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B ERRCAN «, t00=0x0012, t01=0x0004}
0x1c2c…1c3a Head {h00=0x000a, h01=0x0050, text=»DYK070«, t00=0x0012, t01=0x0016}
0x1c3a…1c68 Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT TAB INDEX «, t00=0x0012, t01=0x0024}
0x1c68…1c98 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD«, t00=0x0012, t01=0x0052}
0x1c98…1cb4 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0012, t01=0x0082}
0x1cb4…1cc2 Head {h00=0x000a, h01=0x0050, text=»DYK100«, t00=0x0012, t01=0x009e}
0x1cc2…1ce2 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOL5 KEYED INPUT«, t00=0x0012, t01=0x00ac}
0x1ce2…1d0e Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,UPDATE,DYK070 JUMP ON C «, t00=0x0012, t01=0x00cc}
0x1d0e…1d30 Head {h00=0x001e, h01=0x0050, text=» UPDATE,ERRCAN,ERRCAN, C«, t00=0x0012, t01=0x00f8}
0x1d30…1d62 Head {h00=0x002e, h01=0x0050, text=» DYK150,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0012, t01=0x011a}
0x1d62…1d9a Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C «, t00=0x0012, t01=0x014c}
0x1d9a…1db6 Head {h00=0x0018, h01=0x0050, text=» KCOPY,KDUPL,KEDIT «, t00=0x0012, t01=0x0184}
0x1db6…1dc8 Head {h00=0x000e, h01=0x0050, text=» B UPDATE «, t00=0x0013, t01=0x0010}
0x1dc8…1dd6 Head {h00=0x000a, h01=0x0050, text=»DYK150«, t00=0x0013, t01=0x0022}
0x1dd6…1dfc Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SET PLS = EOI«, t00=0x0013, t01=0x0030}
0x1dfc…1e0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0056}
0x1e0a…1e3a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0013, t01=0x0064}
0x1e3a…1e6a Head {h00=0x002c, h01=0x0050, text=»* VALIDATE ENTERED DATA IN THE ORDER: * «, t00=0x0013, t01=0x0094}
0x1e6a…1e9a Head {h00=0x002c, h01=0x0050, text=»* STANDARDCHECK * «, t00=0x0013, t01=0x00c4}
0x1e9a…1eca Head {h00=0x002c, h01=0x0050, text=»* APPLE-VALUE * «, t00=0x0013, t01=0x00f4}
0x1eca…1efa Head {h00=0x002c, h01=0x0050, text=»* VALIDATION-STRING * «, t00=0x0013, t01=0x0124}
0x1efa…1f2a Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0154}
0x1f2a…1f5a Head {h00=0x002c, h01=0x0050, text=»* RETURNVALUES ARE PUT INTO DEBINW3. * «, t00=0x0013, t01=0x0184}
0x1f5a…1f8a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0014, t01=0x0024}
0x1f8a…1f98 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0014, t01=0x0054}
0x1f98…1fb8 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW1,W0,UPD100 «, t00=0x0014, t01=0x0062}
0x1fb8…1fdc Head {h00=0x0020, h01=0x0050, text=» VALIDATION OF EMPTY FIELD«, t00=0x0014, t01=0x0082}
0x1fdc…2006 Head {h00=0x0026, h01=0x0050, text=» IF SOME OF BELOW KEES PRESSED: «, t00=0x0014, t01=0x00a6}
0x2006…2042 Head {h00=0x0038, h01=0x0050, text=»* 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP«, t00=0x0014, t01=0x00d0}
0x2042…2062 Head {h00=0x001c, h01=0x0050, text=» CBG DEBINW2,W11,UPD010 «, t00=0x0014, t01=0x010c}
0x2062…2080 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W8,UPD005«, t00=0x0014, t01=0x012c}
0x2080…209e Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W3,UPD010«, t00=0x0014, t01=0x014a}
0x209e…20ac Head {h00=0x000a, h01=0x0050, text=»UPD005«, t00=0x0014, t01=0x0168}
0x20ac…20c6 Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,UPD020 «, t00=0x0014, t01=0x0176}
0x20c6…20de Head {h00=0x0014, h01=0x0050, text=»UPD010 B UPDR50 «, t00=0x0014, t01=0x0190}
0x20de…2108 Head {h00=0x0026, h01=0x0050, text=»UPD020 MOVE DEBINW4,W6 FORCED ITEM«, t00=0x0015, t01=0x0018}
0x2108…2136 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN3,W0 USED FOR SAV ERRORINDEX «, t00=0x0015, t01=0x0042}
0x2136…2154 Head {h00=0x001a, h01=0x0050, text=» CALL FORCED,:FMTITEM «, t00=0x0015, t01=0x0070}
0x2154…2168 Head {h00=0x0010, h01=0x0050, text=» BOK UPD030 «, t00=0x0015, t01=0x008e}
0x2168…2184 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABF«, t00=0x0015, t01=0x00a2}
0x2184…2196 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0015, t01=0x00be}
0x2196…21a4 Head {h00=0x000a, h01=0x0050, text=»UPD030«, t00=0x0015, t01=0x00d0}
0x21a4…21c2 Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0015, t01=0x00de}
0x21c2…21d8 Head {h00=0x0012, h01=0x0050, text=» BZ UPDVAL NO!«, t00=0x0015, t01=0x00fc}
0x21d8…21e6 Head {h00=0x000a, h01=0x0050, text=»UPD040«, t00=0x0015, t01=0x0112}
0x21e6…2208 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK«, t00=0x0015, t01=0x0120}
0x2208…2238 Head {h00=0x002c, h01=0x0050, text=» CALL TESTB,DEBINW4,W13 LOOK IF COND ME «, t00=0x0015, t01=0x0142}
0x2238…225e Head {h00=0x0022, h01=0x0050, text=» BZ UPDR35 VALIDATION IF COND «, t00=0x0015, t01=0x0172}
0x225e…2270 Head {h00=0x000e, h01=0x0050, text=» B UPDVAL «, t00=0x0016, t01=0x0008}
0x2270…227e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x001a}
0x227e…2288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0028}
0x2288…22ac Head {h00=0x0020, h01=0x0050, text=»* ENTERED DATA FROM KEYBOARD«, t00=0x0016, t01=0x0032}
0x22ac…22b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0056}
0x22b6…22c4 Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0016, t01=0x0060}
0x22c4…22ee Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK-NUMBER «, t00=0x0016, t01=0x006e}
0x22ee…22fc Head {h00=0x000a, h01=0x0050, text=»UPD105«, t00=0x0016, t01=0x0098}
0x22fc…2322 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW4 JUMP SCHK NUMBER C«, t00=0x0016, t01=0x00a6}
0x2322…2338 Head {h00=0x0012, h01=0x0050, text=» UPD110 =1 C «, t00=0x0016, t01=0x00cc}
0x2338…234e Head {h00=0x0012, h01=0x0050, text=» UPD120 =2 C «, t00=0x0016, t01=0x00e2}
0x234e…2364 Head {h00=0x0012, h01=0x0050, text=» UPD120 =3 C «, t00=0x0016, t01=0x00f8}
0x2364…237a Head {h00=0x0012, h01=0x0050, text=» UPD200 =4 C «, t00=0x0016, t01=0x010e}
0x237a…2390 Head {h00=0x0012, h01=0x0050, text=» UPD110 =5 C «, t00=0x0016, t01=0x0124}
0x2390…23a6 Head {h00=0x0012, h01=0x0050, text=» UPD120 =6 C «, t00=0x0016, t01=0x013a}
0x23a6…23ba Head {h00=0x0010, h01=0x0050, text=» UPD120 =7 «, t00=0x0016, t01=0x0150}
0x23ba…23cc Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0016, t01=0x0164}
0x23cc…23da Head {h00=0x000a, h01=0x0050, text=»UPD110«, t00=0x0016, t01=0x0176}
0x23da…240e Head {h00=0x0030, h01=0x0050, text=» CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS «, t00=0x0016, t01=0x0184}
0x240e…2426 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0017, t01=0x0028}
0x2426…243e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0017, t01=0x0040}
0x243e…2456 Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='-'«, t00=0x0017, t01=0x0058}
0x2456…2486 Head {h00=0x002c, h01=0x0050, text=» INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0«, t00=0x0017, t01=0x0070}
0x2486…24ac Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0017, t01=0x00a0}
0x24ac…24ba Head {h00=0x000a, h01=0x0050, text=»UPD115«, t00=0x0017, t01=0x00c6}
0x24ba…24d2 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W1 «, t00=0x0017, t01=0x00d4}
0x24d2…24e4 Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0017, t01=0x00ec}
0x24e4…24f2 Head {h00=0x000a, h01=0x0050, text=»UPD120«, t00=0x0017, t01=0x00fe}
0x24f2…2514 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x0017, t01=0x010c}
0x2514…2530 Head {h00=0x0018, h01=0x0050, text=» SUB DEBINW3,DEBINW1«, t00=0x0017, t01=0x012e}
0x2530…2556 Head {h00=0x0022, h01=0x0050, text=» BZ UPD150 MAXL = INPUTLENGTH «, t00=0x0017, t01=0x014a}
0x2556…2576 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0017, t01=0x0170}
0x2576…258c Head {h00=0x0012, h01=0x0050, text=» BZ UPD130 NO!«, t00=0x0017, t01=0x0190}
0x258c…25ba Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'20' PUT SPACE IN AREA «, t00=0x0018, t01=0x0016}
0x25ba…25cc Head {h00=0x000e, h01=0x0050, text=» B UPD140 «, t00=0x0018, t01=0x0044}
0x25cc…25da Head {h00=0x000a, h01=0x0050, text=»UPD130«, t00=0x0018, t01=0x0056}
0x25da…2608 Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'30' PUT ZERO IN ARTEA «, t00=0x0018, t01=0x0064}
0x2608…2634 Head {h00=0x0028, h01=0x0050, text=»UPD140 RIGHT ADJUST CURRENT IPNPUT«, t00=0x0018, t01=0x0092}
0x2634…2660 Head {h00=0x0028, h01=0x0050, text=» INSRT DEINPUT,W0,DEBINW3,STATSH,W0 «, t00=0x0018, t01=0x00be}
0x2660…266e Head {h00=0x000a, h01=0x0050, text=»UPD150«, t00=0x0018, t01=0x00ea}
0x266e…2686 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W2 «, t00=0x0018, t01=0x00f8}
0x2686…2698 Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0018, t01=0x0110}
0x2698…26a6 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0018, t01=0x0122}
0x26a6…26d0 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL3,UPDVAL ENTRY-MODE APPL-«, t00=0x0018, t01=0x0130}
0x26d0…26f6 Head {h00=0x0022, h01=0x0050, text=» VALUE-HANDLING IS EXECUTED «, t00=0x0018, t01=0x015a}
0x26f6…270e Head {h00=0x0014, h01=0x0050, text=» WITHIN DENVAL«, t00=0x0018, t01=0x0180}
0x270e…2736 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE«, t00=0x0019, t01=0x0008}
0x2736…276a Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE«, t00=0x0019, t01=0x0030}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0064}
0x2774…27a0 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0019, t01=0x006e}
0x27a0…27aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009a}
0x27aa…27be Head {h00=0x0010, h01=0x0050, text=» PERF DEAPPL«, t00=0x0019, t01=0x00a4}
0x27be…27ea Head {h00=0x0028, h01=0x0050, text=» IB DEBINW3,UPDR15,SETCREAD,ERRPRINT«, t00=0x0019, t01=0x00b8}
0x27ea…27fc Head {h00=0x000e, h01=0x0050, text=» B UPDR25 «, t00=0x0019, t01=0x00e4}
0x27fc…280a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00f6}
0x280a…2814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x2814…2842 Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0019, t01=0x010e}
0x2842…286e Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x0019, t01=0x013c}
0x286e…2878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0168}
0x2878…2886 Head {h00=0x000a, h01=0x0050, text=»UPDVAL«, t00=0x0019, t01=0x0172}
0x2886…289a Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL1«, t00=0x0019, t01=0x0180}
0x289a…28ae (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x001a, t01=0x0004}
0x28ae…28c2 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x001a, t01=0x0018}
0x28c2…28d6 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x001a, t01=0x002c}
0x28d6…2904 Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL5 ***F=UNVALID/NO COND TAB «, t00=0x001a, t01=0x0040}
0x2904…2936 Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH «, t00=0x001a, t01=0x006e}
0x2936…2962 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN14,W0 ***COND.TAB.-FIELD:=0«, t00=0x001a, t01=0x00a0}
0x2962…2996 Head {h00=0x0030, h01=0x0050, text=» MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 «, t00=0x001a, t01=0x00cc}
0x2996…29ae Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001a, t01=0x0100}
0x29ae…29de Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x001a, t01=0x0118}
0x29de…2a08 Head {h00=0x0026, h01=0x0050, text=» BNOK UPDR25 JUMP IF NO VALSTRING «, t00=0x001a, t01=0x0148}
0x2a08…2a3c Head {h00=0x0030, h01=0x0050, text=» CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND «, t00=0x001a, t01=0x0172}
0x2a3c…2a72 Head {h00=0x0032, h01=0x0050, text=» CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED «, t00=0x001b, t01=0x0016}
0x2a72…2a9e Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x001b, t01=0x004c}
0x2a9e…2aac Head {h00=0x000a, h01=0x0050, text=»UPDV10«, t00=0x001b, t01=0x0078}
0x2aac…2ac4 Head {h00=0x0014, h01=0x0050, text=» PERF DENVAL,W0 «, t00=0x001b, t01=0x0086}
0x2ac4…2ad2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x009e}
0x2ad2…2adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ac}
0x2adc…2afc Head {h00=0x001c, h01=0x0050, text=»* RETURN FROM VALIDATION«, t00=0x001b, t01=0x00b6}
0x2afc…2b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d6}
0x2b06…2b38 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH«, t00=0x001b, t01=0x00e0}
0x2b38…2b58 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ERROR-FLAG «, t00=0x001b, t01=0x0112}
0x2b58…2b6a Head {h00=0x000e, h01=0x0050, text=» BZ UPDR20«, t00=0x001b, t01=0x0132}
0x2b6a…2b78 Head {h00=0x000a, h01=0x0050, text=»UPDR12«, t00=0x001b, t01=0x0144}
0x2b78…2b98 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 L00K IF ALPHA «, t00=0x001b, t01=0x0152}
0x2b98…2bba Head {h00=0x001e, h01=0x0050, text=» BNZ UPDR16 JUMP IF ALPHA «, t00=0x001b, t01=0x0172}
0x2bba…2bde (28, 0, 400) Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,W15 POINTER TO + «, t00=0x001c, t01=0x0004}
0x2bde…2c0a Head {h00=0x0028, h01=0x0050, text=» MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 «, t00=0x001c, t01=0x0028}
0x2c0a…2c1e Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR16«, t00=0x001c, t01=0x0054}
0x2c1e…2c48 Head {h00=0x0026, h01=0x0050, text=» DLETE DEINPUT,W0,W1 DELETE + OR -«, t00=0x001c, t01=0x0068}
0x2c48…2c56 Head {h00=0x000a, h01=0x0050, text=»UPDR16«, t00=0x001c, t01=0x0092}
0x2c56…2c82 Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,W0,UPDR17 JUMP IF NOT MESS«, t00=0x001c, t01=0x00a0}
0x2c82…2cae Head {h00=0x0028, h01=0x0050, text=» CBE BIN11,W0,UPDR17 JUMP IF NO POOL«, t00=0x001c, t01=0x00cc}
0x2cae…2cdc Head {h00=0x002a, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN3«, t00=0x001c, t01=0x00f8}
0x2cdc…2cea Head {h00=0x000a, h01=0x0050, text=»UPDR17«, t00=0x001c, t01=0x0126}
0x2cea…2d16 Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,UPDR13 JUMP IF NOT BALACE«, t00=0x001c, t01=0x0134}
0x2d16…2d32 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x001c, t01=0x0160}
0x2d32…2d44 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001c, t01=0x017c}
0x2d44…2d52 Head {h00=0x000a, h01=0x0050, text=»UPDR13«, t00=0x001c, t01=0x018e}
0x2d52…2d70 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x001d, t01=0x000c}
0x2d70…2d86 Head {h00=0x0012, h01=0x0050, text=» BZ UPDR14 NO!«, t00=0x001d, t01=0x002a}
0x2d86…2db2 Head {h00=0x0028, h01=0x0050, text=» DUPL STR2A LOOK IF KEYED INPUT = N «, t00=0x001d, t01=0x0040}
0x2db2…2dca Head {h00=0x0014, h01=0x0050, text=» BOK UPDR18 YES!«, t00=0x001d, t01=0x006c}
0x2dca…2de6 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,UPDR14 «, t00=0x001d, t01=0x0084}
0x2de6…2df4 Head {h00=0x000a, h01=0x0050, text=»UPDR18«, t00=0x001d, t01=0x00a0}
0x2df4…2e1e Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTABI NO KEY INPUT «, t00=0x001d, t01=0x00ae}
0x2e1e…2e30 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x001d, t01=0x00d8}
0x2e30…2e3e Head {h00=0x000a, h01=0x0050, text=»UPDR14«, t00=0x001d, t01=0x00ea}
0x2e3e…2e5a Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABD«, t00=0x001d, t01=0x00f8}
0x2e5a…2e6c Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001d, t01=0x0114}
0x2e6c…2e7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0126}
0x2e7a…2e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e84…2eae Head {h00=0x0026, h01=0x0050, text=»* VALDATION SUCCESSFULLY PERFORMED«, t00=0x001d, t01=0x013e}
0x2eae…2eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0168}
0x2eb8…2ec6 Head {h00=0x000a, h01=0x0050, text=»UPDR15«, t00=0x001d, t01=0x0172}
0x2ec6…2ef2 Head {h00=0x0028, h01=0x0050, text=» UPDFLD 1,DEINPUT UNCONDITIONAL UPD.«, t00=0x001d, t01=0x0180}
0x2ef2…2f04 Head {h00=0x000e, h01=0x0050, text=» B UPDR28 «, t00=0x001e, t01=0x001c}
0x2f04…2f12 Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x001e, t01=0x002e}
0x2f12…2f3c Head {h00=0x0026, h01=0x0050, text=» IB DEBINW3,UPDR25,SETCREAD,UPDR12«, t00=0x001e, t01=0x003c}
0x2f3c…2f4a Head {h00=0x000a, h01=0x0050, text=»UPDR25«, t00=0x001e, t01=0x0066}
0x2f4a…2f76 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 «, t00=0x001e, t01=0x0074}
0x2f76…2f94 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W1,UPDR15«, t00=0x001e, t01=0x00a0}
0x2f94…2fca Head {h00=0x0032, h01=0x0050, text=» UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x001e, t01=0x00be}
0x2fca…2fd8 Head {h00=0x000a, h01=0x0050, text=»UPDR28«, t00=0x001e, t01=0x00f4}
0x2fd8…2fea Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x001e, t01=0x0102}
0x2fea…2ffc Head {h00=0x000e, h01=0x0050, text=» BZ UPDR30«, t00=0x001e, t01=0x0114}
0x2ffc…3018 Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,UPDR33 «, t00=0x001e, t01=0x0126}
0x3018…303c Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x001e, t01=0x0142}
0x303c…3054 Head {h00=0x0014, h01=0x0050, text=» BOK UPDR33 YES!«, t00=0x001e, t01=0x0166}
0x3054…3086 Head {h00=0x002e, h01=0x0050, text=»UPDR30 SET DECHANGE INDICATE CHANGED ITEM «, t00=0x001e, t01=0x017e}
0x3086…3094 Head {h00=0x000a, h01=0x0050, text=»UPDR33«, t00=0x001f, t01=0x0020}
0x3094…30c0 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,UPDR50 JUMP IF NOT ENTRY «, t00=0x001f, t01=0x002e}
0x30c0…30ce Head {h00=0x000a, h01=0x0050, text=»UPDR35«, t00=0x001f, t01=0x005a}
0x30ce…30f8 Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W12,UPDR40 ERASE-KEY «, t00=0x001f, t01=0x0068}
0x30f8…3120 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W9,UPDR40 ERASE-KEY«, t00=0x001f, t01=0x0092}
0x3120…313e Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W1,UPDR40«, t00=0x001f, t01=0x00ba}
0x313e…316e Head {h00=0x002c, h01=0x0050, text=» CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x001f, t01=0x00d8}
0x316e…3182 Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR50«, t00=0x001f, t01=0x0108}
0x3182…3196 Head {h00=0x0010, h01=0x0050, text=» PERF DEGEN «, t00=0x001f, t01=0x011c}
0x3196…31a4 Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x001f, t01=0x0130}
0x31a4…31b6 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x001f, t01=0x013e}
0x31b6…31c8 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR45«, t00=0x001f, t01=0x0150}
0x31c8…31e4 Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,UPDR50 «, t00=0x001f, t01=0x0162}
0x31e4…3208 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x001f, t01=0x017e}
0x3208…3220 Head {h00=0x0014, h01=0x0050, text=» BOK UPDR50 YES!«, t00=0x0020, t01=0x0012}
0x3220…322e Head {h00=0x000a, h01=0x0050, text=»UPDR45«, t00=0x0020, t01=0x002a}
0x322e…3244 Head {h00=0x0012, h01=0x0050, text=» SET DECHANGE «, t00=0x0020, t01=0x0038}
0x3244…3252 Head {h00=0x000a, h01=0x0050, text=»UPDR50«, t00=0x0020, t01=0x004e}
0x3252…327e Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGTH = 0«, t00=0x0020, t01=0x005c}
0x327e…32a2 Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,KTFWD,DUMMY, C «, t00=0x0020, t01=0x0088}
0x32a2…32c6 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0020, t01=0x00ac}
0x32c6…32f2 Head {h00=0x0028, h01=0x0050, text=» KTBWD,KTHOME,KERASE,KKEEP,KEOI, C«, t00=0x0020, t01=0x00d0}
0x32f2…3320 Head {h00=0x002a, h01=0x0050, text=» KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER «, t00=0x0020, t01=0x00fc}
0x3320…3338 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W24«, t00=0x0020, t01=0x012a}
0x3338…335a Head {h00=0x001e, h01=0x0050, text=» BE KASD JUMP IF ASD FLAG «, t00=0x0020, t01=0x0142}
0x335a…3388 Head {h00=0x002a, h01=0x0050, text=» SUB DEBINW2,W14 ADJUST EOI-KEY INDEX «, t00=0x0020, t01=0x0164}
0x3388…3396 (33, 0, 400) Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0021, t01=0x0004}
0x3396…33a4 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0021, t01=0x0012}
0x33a4…33b0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0020}
0x33b0…33be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x002c}
0x33be…33e2 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0021, t01=0x003a}
0x33e2…3408 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0021, t01=0x005e}
0x3408…342e Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0021, t01=0x0084}
0x342e…3462 Head {h00=0x0030, h01=0x0050, text=» TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE «, t00=0x0021, t01=0x00aa}
0x3462…349a Head {h00=0x0034, h01=0x0050, text=» TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH«, t00=0x0021, t01=0x00de}
0x349a…34be Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,STSAVE(W3) *** «, t00=0x0021, t01=0x0116}
0x34be…34ee Head {h00=0x002c, h01=0x0050, text=» BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE «, t00=0x0021, t01=0x013a}
0x34ee…3506 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0021, t01=0x016a}
0x3506…3518 Head {h00=0x000e, h01=0x0050, text=» B KENT04 «, t00=0x0021, t01=0x0182}
0x3518…352c (34, 0, 400) Head {h00=0x0010, h01=0x0050, text=»KEOI10 ***«, t00=0x0022, t01=0x0004}
0x352c…3552 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL5 ***CLEAR /SET CR «, t00=0x0022, t01=0x0018}
0x3552…3584 Head {h00=0x002e, h01=0x0050, text=» BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB«, t00=0x0022, t01=0x003e}
0x3584…35b8 Head {h00=0x0030, h01=0x0050, text=» CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB «, t00=0x0022, t01=0x0070}
0x35b8…35ea Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR «, t00=0x0022, t01=0x00a4}
0x35ea…3614 Head {h00=0x0026, h01=0x0050, text=» SUB DEBINW4,W1 ***ADJUST FOR TFWD«, t00=0x0022, t01=0x00d6}
0x3614…3622 Head {h00=0x000a, h01=0x0050, text=»KEOI15«, t00=0x0022, t01=0x0100}
0x3622…3650 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0022, t01=0x010e}
0x3650…366c Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0022, t01=0x013c}
0x366c…369e Head {h00=0x002e, h01=0x0050, text=» BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW «, t00=0x0022, t01=0x0158}
0x369e…36ba Head {h00=0x0018, h01=0x0050, text=» GETABX DEBINW4 *** «, t00=0x0022, t01=0x018a}
0x36ba…36d2 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0023, t01=0x0016}
0x36d2…36e4 Head {h00=0x000e, h01=0x0050, text=» B KEOI15 «, t00=0x0023, t01=0x002e}
0x36e4…36f8 Head {h00=0x0010, h01=0x0050, text=»KEOI20 ***«, t00=0x0023, t01=0x0040}
0x36f8…3718 Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW2,W11,KEOI30 «, t00=0x0023, t01=0x0054}
0x3718…372a Head {h00=0x000e, h01=0x0050, text=» B KKEEP2 «, t00=0x0023, t01=0x0074}
0x372a…3738 Head {h00=0x000a, h01=0x0050, text=»KEOI30«, t00=0x0023, t01=0x0086}
0x3738…375e Head {h00=0x0022, h01=0x0050, text=» TBT DOOL3,KEOI40 ENTRY SCREEN«, t00=0x0023, t01=0x0094}
0x375e…376c Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0023, t01=0x00ba}
0x376c…377e Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0023, t01=0x00c8}
0x377e…378c Head {h00=0x000a, h01=0x0050, text=»KEOI40«, t00=0x0023, t01=0x00da}
0x378c…37b6 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0023, t01=0x00e8}
0x37b6…37cc Head {h00=0x0012, h01=0x0050, text=» BZ KEOI45 NO!«, t00=0x0023, t01=0x0112}
0x37cc…37fe Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0023, t01=0x0128}
0x37fe…3816 Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x0023, t01=0x015a}
0x3816…3824 Head {h00=0x000a, h01=0x0050, text=»KEOI45«, t00=0x0023, t01=0x0172}
0x3824…383c Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0023, t01=0x0180}
0x383c…3854 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0024, t01=0x0008}
0x3854…3882 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0024, t01=0x0020}
0x3882…389e Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0024, t01=0x004e}
0x389e…38b2 Head {h00=0x0010, h01=0x0050, text=» BNE TSTTAB «, t00=0x0024, t01=0x006a}
0x38b2…38c0 Head {h00=0x000a, h01=0x0050, text=»KEOI50«, t00=0x0024, t01=0x007e}
0x38c0…38d2 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x0024, t01=0x008c}
0x38d2…38e6 Head {h00=0x0010, h01=0x0050, text=» BNZ TSTT05 «, t00=0x0024, t01=0x009e}
0x38e6…38f8 Head {h00=0x000e, h01=0x0050, text=» B TSTT10 «, t00=0x0024, t01=0x00b2}
0x38f8…3902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c4}
0x3902…392a Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0024, t01=0x00ce}
0x392a…3942 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0024, t01=0x00f6}
0x3942…3960 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W1,KTBWD2«, t00=0x0024, t01=0x010e}
0x3960…396e Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0024, t01=0x012c}
0x396e…3980 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0024, t01=0x013a}
0x3980…398e Head {h00=0x000a, h01=0x0050, text=»KTBWD2«, t00=0x0024, t01=0x014c}
0x398e…39aa Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W3 EOI«, t00=0x0024, t01=0x015a}
0x39aa…39b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0176}
0x39b4…39da Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0024, t01=0x0180}
0x39da…3a04 Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KTHOM4 JUMP IF BALANCE «, t00=0x0025, t01=0x0016}
0x3a04…3a1e Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,KTHOM2«, t00=0x0025, t01=0x0040}
0x3a1e…3a38 Head {h00=0x0016, h01=0x0050, text=» TBT KEYVER,KTKEY «, t00=0x0025, t01=0x005a}
0x3a38…3a46 Head {h00=0x000a, h01=0x0050, text=»KTHOM3«, t00=0x0025, t01=0x0074}
0x3a46…3a5e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0025, t01=0x0082}
0x3a5e…3a80 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 «, t00=0x0025, t01=0x009a}
0x3a80…3a90 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0025, t01=0x00bc}
0x3a90…3aa2 Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x0025, t01=0x00cc}
0x3aa2…3ab0 Head {h00=0x000a, h01=0x0050, text=»KTHOM4«, t00=0x0025, t01=0x00de}
0x3ab0…3ada Head {h00=0x0026, h01=0x0050, text=» SET ASDFLAG SET ASD WHEN BALANCE «, t00=0x0025, t01=0x00ec}
0x3ada…3ae8 Head {h00=0x000a, h01=0x0050, text=»KTHOM2«, t00=0x0025, t01=0x0116}
0x3ae8…3af6 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0025, t01=0x0124}
0x3af6…3b16 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0025, t01=0x0132}
0x3b16…3b2c Head {h00=0x0012, h01=0x0050, text=» BE TSTT10 OK «, t00=0x0025, t01=0x0152}
0x3b2c…3b48 Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0025, t01=0x0168}
0x3b48…3b74 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT15 EMPTY COMPULSORY FIELD «, t00=0x0025, t01=0x0184}
0x3b74…3b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0020}
0x3b7e…3b8c Head {h00=0x000a, h01=0x0050, text=»TSTT05«, t00=0x0026, t01=0x002a}
0x3b8c…3bb0 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0026, t01=0x0038}
0x3bb0…3bcc Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,TSTT15«, t00=0x0026, t01=0x005c}
0x3bcc…3bf0 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x0026, t01=0x0078}
0x3bf0…3c08 Head {h00=0x0014, h01=0x0050, text=» BOK TSTT07 YES!«, t00=0x0026, t01=0x009c}
0x3c08…3c24 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,TSTT15 «, t00=0x0026, t01=0x00b4}
0x3c24…3c32 Head {h00=0x000a, h01=0x0050, text=»TSTT07«, t00=0x0026, t01=0x00d0}
0x3c32…3c46 Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x0026, t01=0x00de}
0x3c46…3c64 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,TSTT15«, t00=0x0026, t01=0x00f2}
0x3c64…3c88 Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,DUMMY,DUMMY, C «, t00=0x0026, t01=0x0110}
0x3c88…3cae Head {h00=0x0022, h01=0x0050, text=» KTEOI,DUMMY,DUMMY,KTEOI, C «, t00=0x0026, t01=0x0134}
0x3cae…3cca Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTEOI,KKEEP «, t00=0x0026, t01=0x015a}
0x3cca…3cd8 Head {h00=0x000a, h01=0x0050, text=»TSTT15«, t00=0x0026, t01=0x0176}
0x3cd8…3cec Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0026, t01=0x0184}
0x3cec…3cfa Head {h00=0x000a, h01=0x0050, text=»TSTT10«, t00=0x0027, t01=0x0008}
0x3cfa…3d14 Head {h00=0x0016, h01=0x0050, text=» TBF AUTENT,TSTT15«, t00=0x0027, t01=0x0016}
0x3d14…3d3e Head {h00=0x0026, h01=0x0050, text=» TBF DOOL3,TSTT15 NOT ENTRY SCREEN«, t00=0x0027, t01=0x0030}
0x3d3e…3d66 Head {h00=0x0024, h01=0x0050, text=» TBT DOOLA,TSTT15 BALANCE FORMAT«, t00=0x0027, t01=0x005a}
0x3d66…3d88 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0027, t01=0x0082}
0x3d88…3da8 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,TSTT15 «, t00=0x0027, t01=0x00a4}
0x3da8…3dba Head {h00=0x000e, h01=0x0050, text=» B KENT06 «, t00=0x0027, t01=0x00c4}
0x3dba…3dc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00d6}
0x3dc8…3dd6 Head {h00=0x000a, h01=0x0050, text=»KTKEY «, t00=0x0027, t01=0x00e4}
0x3dd6…3dec Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x0027, t01=0x00f2}
0x3dec…3dfa Head {h00=0x000a, h01=0x0050, text=»KTKEY2«, t00=0x0027, t01=0x0108}
0x3dfa…3e10 Head {h00=0x0012, h01=0x0050, text=» ADD BIN11,W1 «, t00=0x0027, t01=0x0116}
0x3e10…3e4e Head {h00=0x003a, h01=0x0050, text=» CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER«, t00=0x0027, t01=0x012c}
0x3e4e…3e6a Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0027, t01=0x016a}
0x3e6a…3e92 Head {h00=0x0024, h01=0x0050, text=» BZ SETCREAD JUMP IF VERIFYFIELD«, t00=0x0027, t01=0x0186}
0x3e92…3ea4 Head {h00=0x000e, h01=0x0050, text=» B KTHOM3 «, t00=0x0028, t01=0x001e}
0x3ea4…3eb2 Head {h00=0x000a, h01=0x0050, text=»KTEOI «, t00=0x0028, t01=0x0030}
0x3eb2…3eca Head {h00=0x0014, h01=0x0050, text=» TBF DOOL3,KTFWD«, t00=0x0028, t01=0x003e}
0x3eca…3ee2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x0028, t01=0x0056}
0x3ee2…3ef0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x006e}
0x3ef0…3efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007c}
0x3efa…3f10 Head {h00=0x0012, h01=0x0050, text=»* DUPL KEY«, t00=0x0028, t01=0x0086}
0x3f10…3f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009c}
0x3f1a…3f28 Head {h00=0x000a, h01=0x0050, text=»KDUPL «, t00=0x0028, t01=0x00a6}
0x3f28…3f3c Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0028, t01=0x00b4}
0x3f3c…3f50 Head {h00=0x0010, h01=0x0050, text=» BNOK KTEOI2«, t00=0x0028, t01=0x00c8}
0x3f50…3f76 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,KTEOI,DUMMY,UPDATE«, t00=0x0028, t01=0x00dc}
0x3f76…3f84 Head {h00=0x000a, h01=0x0050, text=»KTEOI2«, t00=0x0028, t01=0x0102}
0x3f84…3fa2 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0028, t01=0x0110}
0x3fa2…3fba Head {h00=0x0014, h01=0x0050, text=» BNZ KTEOI4 YES!«, t00=0x0028, t01=0x012e}
0x3fba…3fc8 Head {h00=0x000a, h01=0x0050, text=»KTEOI3«, t00=0x0028, t01=0x0146}
0x3fc8…3ff0 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,KCOP10,ERRRET,ERRRET«, t00=0x0028, t01=0x0154}
0x3ff0…4004 Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0028, t01=0x017c}
0x4004…4012 Head {h00=0x000a, h01=0x0050, text=»KTEOI4«, t00=0x0028, t01=0x0190}
0x4012…403a Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET«, t00=0x0029, t01=0x000e}
0x403a…404e Head {h00=0x0010, h01=0x0050, text=» DUPL STR2A «, t00=0x0029, t01=0x0036}
0x404e…4062 Head {h00=0x0010, h01=0x0050, text=» BOK KENT20 «, t00=0x0029, t01=0x004a}
0x4062…407e Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KTEOI3 «, t00=0x0029, t01=0x005e}
0x407e…4090 Head {h00=0x000e, h01=0x0050, text=» B KENT20 «, t00=0x0029, t01=0x007a}
0x4090…409a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x008c}
0x409a…40b2 Head {h00=0x0014, h01=0x0050, text=»* STATUS KEY«, t00=0x0029, t01=0x0096}
0x40b2…40bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ae}
0x40bc…40d6 Head {h00=0x0016, h01=0x0050, text=»STATUS PERF DESTAT«, t00=0x0029, t01=0x00b8}
0x40d6…40ee Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0029, t01=0x00d2}
0x40ee…4100 Head {h00=0x000e, h01=0x0050, text=» B ERRP10 «, t00=0x0029, t01=0x00ea}
0x4100…410a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00fc}
0x410a…4122 Head {h00=0x0014, h01=0x0050, text=»* PRINT KEY «, t00=0x0029, t01=0x0106}
0x4122…412c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x011e}
0x412c…4146 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0029, t01=0x0128}
0x4146…416a Head {h00=0x0020, h01=0x0050, text=» PERF ATTPRT RESERVE PRINTER«, t00=0x0029, t01=0x0142}
0x416a…4180 Head {h00=0x0012, h01=0x0050, text=» BNOK ERRPRINT«, t00=0x0029, t01=0x0166}
0x4180…41a6 Head {h00=0x0022, h01=0x0050, text=» EDWRT DEDSPRT,FORMF FORMFEED «, t00=0x0029, t01=0x017c}
0x41a6…41be Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x002a, t01=0x0012}
0x41be…41e0 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x002a, t01=0x002a}
0x41e0…4204 Head {h00=0x0020, h01=0x0050, text=» PERF DETPRT RELEASE PRINTER«, t00=0x002a, t01=0x004c}
0x4204…4212 Head {h00=0x000a, h01=0x0050, text=»KCOP10«, t00=0x002a, t01=0x0070}
0x4212…423a Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x002a, t01=0x007e}
0x423a…4258 Head {h00=0x001a, h01=0x0050, text=»KASD ASD-KEY PRESSED«, t00=0x002a, t01=0x00a6}
0x4258…4284 Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,KASD2 JUMP IF NOT BALANCE«, t00=0x002a, t01=0x00c4}
0x4284…4298 Head {h00=0x0010, h01=0x0050, text=» SET ASDFLAG«, t00=0x002a, t01=0x00f0}
0x4298…42a8 Head {h00=0x000c, h01=0x0050, text=» B KASD3«, t00=0x002a, t01=0x0104}
0x42a8…42b6 Head {h00=0x000a, h01=0x0050, text=»KASD2 «, t00=0x002a, t01=0x0114}
0x42b6…42ca Head {h00=0x0010, h01=0x0050, text=» INV ASDFLAG«, t00=0x002a, t01=0x0122}
0x42ca…42d8 Head {h00=0x000a, h01=0x0050, text=»KASD3 «, t00=0x002a, t01=0x0136}
0x42d8…42f8 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W14,DEKTAB4«, t00=0x002a, t01=0x0144}
0x42f8…431e Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x002a, t01=0x0164}
0x431e…4330 Head {h00=0x000e, h01=0x0050, text=» B KEOI50 «, t00=0x002a, t01=0x018a}
0x4330…433e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x000c}
0x433e…4348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001a}
0x4348…4360 Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x002b, t01=0x0024}
0x4360…436a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003c}
0x436a…4378 Head {h00=0x000a, h01=0x0050, text=»KEDITX«, t00=0x002b, t01=0x0046}
0x4378…4396 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002b, t01=0x0054}
0x4396…43a8 Head {h00=0x000e, h01=0x0050, text=» BZ KED050«, t00=0x002b, t01=0x0072}
0x43a8…43d2 Head {h00=0x0026, h01=0x0050, text=» DUPL STR2A LOOK IF KEYED INPUT =N«, t00=0x002b, t01=0x0084}
0x43d2…43ea Head {h00=0x0014, h01=0x0050, text=» BOK KED025 YES!«, t00=0x002b, t01=0x00ae}
0x43ea…4406 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KED050 «, t00=0x002b, t01=0x00c6}
0x4406…4414 Head {h00=0x000a, h01=0x0050, text=»KED025«, t00=0x002b, t01=0x00e2}
0x4414…4432 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW2,W5 RBWD «, t00=0x002b, t01=0x00f0}
0x4432…444a Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x002b, t01=0x010e}
0x444a…445c Head {h00=0x000e, h01=0x0050, text=» B ERRET1 «, t00=0x002b, t01=0x0126}
0x445c…446a Head {h00=0x000a, h01=0x0050, text=»KED050«, t00=0x002b, t01=0x0138}
0x446a…4488 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW1,W0,KEDITY«, t00=0x002b, t01=0x0146}
0x4488…44a0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W1«, t00=0x002b, t01=0x0164}
0x44a0…44ae Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x002b, t01=0x017c}
0x44ae…44d0 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x002b, t01=0x018a}
0x44d0…44f0 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW3,W0,KED100 «, t00=0x002c, t01=0x001c}
0x44f0…451c Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x002c, t01=0x003c}
0x451c…4530 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x002c, t01=0x0068}
0x4530…453e Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x002c, t01=0x007c}
0x453e…4560 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x002c, t01=0x008a}
0x4560…4586 Head {h00=0x0022, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 MINUS «, t00=0x002c, t01=0x00ac}
0x4586…4598 Head {h00=0x000e, h01=0x0050, text=» BZ KED200«, t00=0x002c, t01=0x00d2}
0x4598…45c2 Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTABB,DEBINW1, C«, t00=0x002c, t01=0x00e4}
0x45c2…45dc Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x002c, t01=0x010e}
0x45dc…45ee Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x002c, t01=0x0128}
0x45ee…45fc Head {h00=0x000a, h01=0x0050, text=»KED200«, t00=0x002c, t01=0x013a}
0x45fc…4626 Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTAB3,DEBINW1, C«, t00=0x002c, t01=0x0148}
0x4626…4640 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x002c, t01=0x0172}
0x4640…4666 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x002c, t01=0x018c}
0x4666…4674 Head {h00=0x000a, h01=0x0050, text=»KEDITY«, t00=0x002d, t01=0x0022}
0x4674…4684 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x002d, t01=0x0030}
0x4684…4694 Head {h00=0x000c, h01=0x0050, text=» B KEDIT«, t00=0x002d, t01=0x0040}
0x4694…469e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0050}
0x469e…46b8 Head {h00=0x0016, h01=0x0050, text=»* ERASE KEY «, t00=0x002d, t01=0x005a}
0x46b8…46c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0074}
0x46c2…46d0 Head {h00=0x000a, h01=0x0050, text=»KERASE«, t00=0x002d, t01=0x007e}
0x46d0…46e8 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x002d, t01=0x008c}
0x46e8…4704 Head {h00=0x0018, h01=0x0050, text=» ERASE 10,DEBINW4,W0«, t00=0x002d, t01=0x00a4}
0x4704…471e Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x002d, t01=0x00c0}
0x471e…4738 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W12 «, t00=0x002d, t01=0x00da}
0x4738…474a Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x002d, t01=0x00f4}
0x474a…4754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0106}
0x4754…476a Head {h00=0x0012, h01=0x0050, text=»* KEEP KEY «, t00=0x002d, t01=0x0110}
0x476a…4774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0126}
0x4774…4782 Head {h00=0x000a, h01=0x0050, text=»KKEEP «, t00=0x002d, t01=0x0130}
0x4782…47ae Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,KENT03 JUMP IF NOT ENTRY «, t00=0x002d, t01=0x013e}
0x47ae…47bc Head {h00=0x000a, h01=0x0050, text=»KKEEP0«, t00=0x002d, t01=0x016a}
0x47bc…47e6 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KKEEP2 «, t00=0x002d, t01=0x0178}
0x47e6…47f4 Head {h00=0x000a, h01=0x0050, text=»KKEEP1«, t00=0x002e, t01=0x0012}
0x47f4…4816 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x002e, t01=0x0020}
0x4816…4834 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT07«, t00=0x002e, t01=0x0042}
0x4834…485e Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x002e, t01=0x0060}
0x485e…4874 Head {h00=0x0012, h01=0x0050, text=» BZ KKEEP3 NO!«, t00=0x002e, t01=0x008a}
0x4874…48a6 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x002e, t01=0x00a0}
0x48a6…48be Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x002e, t01=0x00d2}
0x48be…48cc Head {h00=0x000a, h01=0x0050, text=»KKEEP3«, t00=0x002e, t01=0x00ea}
0x48cc…48ee Head {h00=0x001e, h01=0x0050, text=» CMP DEBINW2,W12 ERASE KEY«, t00=0x002e, t01=0x00f8}
0x48ee…4900 Head {h00=0x000e, h01=0x0050, text=» BZ UPD040«, t00=0x002e, t01=0x011a}
0x4900…4912 Head {h00=0x000e, h01=0x0050, text=» B UPD020 «, t00=0x002e, t01=0x012c}
0x4912…4920 Head {h00=0x000a, h01=0x0050, text=»KKEEP2«, t00=0x002e, t01=0x013e}
0x4920…4932 Head {h00=0x000e, h01=0x0050, text=» SET DOOL5«, t00=0x002e, t01=0x014c}
0x4932…494a Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x002e, t01=0x015e}
0x494a…4962 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x002e, t01=0x0176}
0x4962…4990 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x002e, t01=0x018e}
0x4990…49ac Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x002f, t01=0x002c}
0x49ac…49be Head {h00=0x000e, h01=0x0050, text=» BE KKEEP5«, t00=0x002f, t01=0x0048}
0x49be…49d2 Head {h00=0x0010, h01=0x0050, text=» BL SETCREAD«, t00=0x002f, t01=0x005a}
0x49d2…49e6 Head {h00=0x0010, h01=0x0050, text=» BOFL KENT10«, t00=0x002f, t01=0x006e}
0x49e6…49f8 Head {h00=0x000e, h01=0x0050, text=» B KKEEP4 «, t00=0x002f, t01=0x0082}
0x49f8…4a06 Head {h00=0x000a, h01=0x0050, text=»KKEEP5«, t00=0x002f, t01=0x0094}
0x4a06…4a24 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002f, t01=0x00a2}
0x4a24…4a36 Head {h00=0x000e, h01=0x0050, text=» BZ KKEEP1«, t00=0x002f, t01=0x00c0}
0x4a36…4a5a Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x002f, t01=0x00d2}
0x4a5a…4a6e Head {h00=0x0010, h01=0x0050, text=» BOK KKEEP4 «, t00=0x002f, t01=0x00f6}
0x4a6e…4a8a Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KKEEP1 «, t00=0x002f, t01=0x010a}
0x4a8a…4a98 Head {h00=0x000a, h01=0x0050, text=»KKEEP4«, t00=0x002f, t01=0x0126}
0x4a98…4aac Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x002f, t01=0x0134}
0x4aac…4aca Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,KKEEP1«, t00=0x002f, t01=0x0148}
0x4aca…4af4 Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KKEEP1 JUMP IF BALANCE «, t00=0x002f, t01=0x0166}
0x4af4…4b1a Head {h00=0x0022, h01=0x0050, text=» CBE DEBINW2,W12,KKEEP1 ERASE «, t00=0x002f, t01=0x0190}
0x4b1a…4b2e Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0030, t01=0x0026}
0x4b2e…4b42 Head {h00=0x0010, h01=0x0050, text=» BNOK KENT20«, t00=0x0030, t01=0x003a}
0x4b42…4b6a Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KEEP «, t00=0x0030, t01=0x004e}
0x4b6a…4b7c Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x0030, t01=0x0076}
0x4b7c…4b8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0088}
0x4b8a…4b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0096}
0x4b94…4baa Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY «, t00=0x0030, t01=0x00a0}
0x4baa…4bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b6}
0x4bb4…4bc2 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0030, t01=0x00c0}
0x4bc2…4bdc Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x0030, t01=0x00ce}
0x4bdc…4bf6 Head {h00=0x0016, h01=0x0050, text=» TBT AUTENT,KKEEP0«, t00=0x0030, t01=0x00e8}
0x4bf6…4c18 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0030, t01=0x0102}
0x4c18…4c36 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT06«, t00=0x0030, t01=0x0124}
0x4c36…4c62 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0030, t01=0x0142}
0x4c62…4c76 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0030, t01=0x016e}
0x4c76…4c84 Head {h00=0x000a, h01=0x0050, text=»KENT06«, t00=0x0030, t01=0x0182}
0x4c84…4ca8 Head {h00=0x0020, h01=0x0050, text=» SET DECHANGE AT LEAST ONCE «, t00=0x0030, t01=0x0190}
0x4ca8…4cb6 Head {h00=0x000a, h01=0x0050, text=»KENT04«, t00=0x0031, t01=0x0024}
0x4cb6…4cec Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED «, t00=0x0031, t01=0x0032}
0x4cec…4cf8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0068}
0x4cf8…4d06 Head {h00=0x000a, h01=0x0050, text=»KENT03«, t00=0x0031, t01=0x0074}
0x4d06…4d34 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,W0 INDICATE NO CLEARING «, t00=0x0031, t01=0x0082}
0x4d34…4d74 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0031, t01=0x00b0}
0x4d74…4da0 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0031, t01=0x00f0}
0x4da0…4dca Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0031, t01=0x011c}
0x4dca…4de0 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0031, t01=0x0146}
0x4de0…4e12 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0031, t01=0x015c}
0x4e12…4e2a Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0031, t01=0x018e}
0x4e2a…4e38 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0032, t01=0x0016}
0x4e38…4e64 Head {h00=0x0028, h01=0x0050, text=» TBT DOOL3,KENT07 JUMP IF ENTRY-MODE«, t00=0x0032, t01=0x0024}
0x4e64…4e82 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W9,KENT07«, t00=0x0032, t01=0x0050}
0x4e82…4ea2 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW2,W10,KENT06«, t00=0x0032, t01=0x006e}
0x4ea2…4eb0 Head {h00=0x000a, h01=0x0050, text=»KENT07«, t00=0x0032, t01=0x008e}
0x4eb0…4eca Head {h00=0x0016, h01=0x0050, text=» TBT AUTENT,KENT06«, t00=0x0032, t01=0x009c}
0x4eca…4ede Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0032, t01=0x00b6}
0x4ede…4ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ca}
0x4ee8…4f12 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0032, t01=0x00d4}
0x4f12…4f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00fe}
0x4f1c…4f2a Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0032, t01=0x0108}
0x4f2a…4f64 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD«, t00=0x0032, t01=0x0116}
0x4f64…4f72 Head {h00=0x000a, h01=0x0050, text=»KENT15«, t00=0x0032, t01=0x0150}
0x4f72…4fa4 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND«, t00=0x0032, t01=0x015e}
0x4fa4…4fbc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0032, t01=0x0190}
0x4fbc…4fda Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0033, t01=0x0018}
0x4fda…4ff2 Head {h00=0x0014, h01=0x0050, text=» BZ ERRPRINT NO!«, t00=0x0033, t01=0x0036}
0x4ff2…5006 Head {h00=0x0010, h01=0x0050, text=» DUPL STR2A «, t00=0x0033, t01=0x004e}
0x5006…501e Head {h00=0x0014, h01=0x0050, text=» BOK KENT20 YES!«, t00=0x0033, t01=0x0062}
0x501e…503c Head {h00=0x001a, h01=0x0050, text=» TBF ASDFLAG,ERRPRINT «, t00=0x0033, t01=0x007a}
0x503c…5052 Head {h00=0x0012, h01=0x0050, text=»KENT20 YES! «, t00=0x0033, t01=0x0098}
0x5052…506e Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABI«, t00=0x0033, t01=0x00ae}
0x506e…5080 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x0033, t01=0x00ca}
0x5080…508e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00dc}
0x508e…5098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ea}
0x5098…50b6 Head {h00=0x001a, h01=0x0050, text=»* INDICATE FORCED ITEM«, t00=0x0033, t01=0x00f4}
0x50b6…50c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0112}
0x50c0…50ce Head {h00=0x000a, h01=0x0050, text=»KFORCE«, t00=0x0033, t01=0x011c}
0x50ce…50e2 Head {h00=0x0010, h01=0x0050, text=» PERF DEFORC«, t00=0x0033, t01=0x012a}
0x50e2…50f4 Head {h00=0x000e, h01=0x0050, text=» B UPDR30 «, t00=0x0033, t01=0x013e}
0x50f4…50fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0150}
0x50fe…5112 Head {h00=0x0010, h01=0x0050, text=»* VALID ITEM«, t00=0x0033, t01=0x015a}
0x5112…511c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x016e}
0x511c…512a Head {h00=0x000a, h01=0x0050, text=»KVALID«, t00=0x0033, t01=0x0178}
0x512a…5156 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW2,W3 RESTORE ITEMLENGTH «, t00=0x0033, t01=0x0186}
0x5156…5168 Head {h00=0x000e, h01=0x0050, text=» B UPDR25 «, t00=0x0034, t01=0x0022}
0x5168…5176 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0034}
0x5176…5184 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0034, t01=0x0042}
0x5184…519c Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W16«, t00=0x0034, t01=0x0050}
0x519c…51ba Head {h00=0x001a, h01=0x0050, text=» BE KEDIT JUMP IF EDIT«, t00=0x0034, t01=0x0068}
0x51ba…51ea Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1«, t00=0x0034, t01=0x0086}
0x51ea…521a Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2«, t00=0x0034, t01=0x00b6}
0x521a…523a Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x0034, t01=0x00e6}
0x523a…5258 Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x0034, t01=0x0106}
0x5258…526c Head {h00=0x0010, h01=0x0050, text=» BNZ DYK050 «, t00=0x0034, t01=0x0124}
0x526c…5276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0138}
0x5276…5292 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x0034, t01=0x0142}
0x5292…529c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x015e}
0x529c…52ac Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x0034, t01=0x0168}
0x52ac…52da Head {h00=0x002a, h01=0x0050, text=» TBF DOOLA,ERRP10 JUMP IF NOT BALANCE «, t00=0x0034, t01=0x0178}
0x52da…52f6 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0035, t01=0x0016}
0x52f6…5308 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0035, t01=0x0032}
0x5308…5316 Head {h00=0x000a, h01=0x0050, text=»ERRP10«, t00=0x0035, t01=0x0044}
0x5316…5332 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x0035, t01=0x0052}
0x5332…5340 Head {h00=0x000a, h01=0x0050, text=»ERRP20«, t00=0x0035, t01=0x006e}
0x5340…5368 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W1,ERRCAN CLEAR-KEY«, t00=0x0035, t01=0x007c}
0x5368…5376 Head {h00=0x000a, h01=0x0050, text=»ERRP25«, t00=0x0035, t01=0x00a4}
0x5376…53a8 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C«, t00=0x0035, t01=0x00b2}
0x53a8…53cc Head {h00=0x0020, h01=0x0050, text=» KVALID,KFORCE,KTBWD,KTHOME«, t00=0x0035, t01=0x00e4}
0x53cc…53da Head {h00=0x000a, h01=0x0050, text=»ERRRET«, t00=0x0035, t01=0x0108}
0x53da…53f2 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW2,W2 «, t00=0x0035, t01=0x0116}
0x53f2…540a Head {h00=0x0014, h01=0x0050, text=»ERRCAN PERF CANC«, t00=0x0035, t01=0x012e}
0x540a…541e Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL5«, t00=0x0035, t01=0x0146}
0x541e…543c Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0035, t01=0x015a}
0x543c…544e Head {h00=0x000e, h01=0x0050, text=» BZ ERRCA1«, t00=0x0035, t01=0x0178}
0x544e…546a Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,ERRET4 «, t00=0x0035, t01=0x018a}
0x546a…548e Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N «, t00=0x0036, t01=0x0016}
0x548e…54a6 Head {h00=0x0014, h01=0x0050, text=» BOK ERRET4 YES!«, t00=0x0036, t01=0x003a}
0x54a6…54b4 Head {h00=0x000a, h01=0x0050, text=»ERRCA1«, t00=0x0036, t01=0x0052}
0x54b4…54e0 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,CONT3 «, t00=0x0036, t01=0x0060}
0x54e0…54ee Head {h00=0x000a, h01=0x0050, text=»ERRET0«, t00=0x0036, t01=0x008c}
0x54ee…5520 Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2«, t00=0x0036, t01=0x009a}
0x5520…552e Head {h00=0x000a, h01=0x0050, text=»ERRET1«, t00=0x0036, t01=0x00cc}
0x552e…5548 Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,ERRET2 «, t00=0x0036, t01=0x00da}
0x5548…5560 Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x0036, t01=0x00f4}
0x5560…556e Head {h00=0x000a, h01=0x0050, text=»ERRET2«, t00=0x0036, t01=0x010c}
0x556e…557a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x011a}
0x557a…5588 Head {h00=0x000a, h01=0x0050, text=»ERRET4«, t00=0x0036, t01=0x0126}
0x5588…55b4 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,ERRET5«, t00=0x0036, t01=0x0134}
0x55b4…55c6 Head {h00=0x000e, h01=0x0050, text=» B ERRET0 «, t00=0x0036, t01=0x0160}
0x55c6…55d4 Head {h00=0x000a, h01=0x0050, text=»ERRET5«, t00=0x0036, t01=0x0172}
0x55d4…55fa Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W8 SIMULATE TBWD«, t00=0x0036, t01=0x0180}
0x55fa…560a Head {h00=0x000c, h01=0x0050, text=» B KTBWD«, t00=0x0037, t01=0x0016}
0x560a…5618 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x0026}
0x5618…5622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0034}
0x5622…5634 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0037, t01=0x003e}
0x5634…5640 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0037, t01=0x0050}
0x5640…5656 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0037, t01=0x005c}
0x5656…5664 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0037, t01=0x0072}
0x5664…5676 Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x0037, t01=0x0080}
0x5676…568a Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0037, t01=0x0092}
0x568a…5698 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0037, t01=0x00a6}
0x5698…56a4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0037, t01=0x00b4}
0x56a4…56a8 Head {h00=0x4004, h01=0x0000}
0x56a8…56ac 00 37 00 c0 ┆ 7 ┆
0x56ac…56b4 (56, 1, 8) 20 04 00 00 00 38 00 04 ┆ 8 ┆
0x56b4…5704 (57, 0, 400) 5f 66 82 04 22 08 50 00 eb 20 00 02 54 00 f6 a1 00 00 00 24 00 24 01 7c 00 2c 00 28 03 13 00 00 00 ad 00 00 57 00 82 04 22 10 50 00 82 20 ff ff 92 59 00 30 5d 88 02 08 a2 59 00 28 5f 72 82 04 22 20 58 96 00 25 00 1c 00 0e 00 0a 02 04 c2 54 ┆_f " P T $ $ | , ( W " P Y 0] Y (_r " X % T┆
0x5704…5754 3a 45 44 57 46 00 00 25 00 4c 00 2c 00 28 03 13 00 00 00 cd 20 00 5f 26 f6 a1 00 00 00 26 e3 58 00 2a 23 ff eb 20 00 0a 50 00 84 42 00 02 81 20 20 20 81 31 14 02 00 25 00 5e 00 10 00 0c 05 05 dc 54 3a 53 43 52 32 00 01 08 00 25 00 8e 00 2c ┆:EDWF % L , ( _& & X *# P B 1 % ^ T:SCR2 % ,┆
0x5754…57a4 00 28 03 13 00 00 00 eb 40 00 f6 a1 00 00 00 26 57 00 82 04 22 04 50 00 eb 20 00 0a 58 0e eb 20 00 0c 58 24 a0 43 00 10 f0 3a 00 25 00 a2 00 0e 00 0a 02 04 c2 54 3a 53 43 55 52 00 00 25 00 d2 00 2c 00 28 03 13 00 00 01 09 00 24 e1 58 00 2a ┆ ( @ &W " P X X$ C : % T:SCUR % , ( $ X *┆
0x57a4…57f4 21 ff e9 20 00 06 50 00 80 d8 00 0a 07 80 f6 a1 00 00 00 1c f6 a1 00 00 00 28 a0 43 00 25 00 e4 00 2c 00 28 03 13 00 00 01 25 00 00 00 10 57 00 01 40 a1 58 00 28 54 00 01 00 57 00 81 58 00 1a 81 79 00 36 81 20 80 00 a9 59 00 28 00 25 01 14 ┆! P ( C % , ( % W @ X (T W X y 6 Y ( % ┆
0x57f4…5844 00 10 00 0c 05 05 dc 54 3a 54 41 42 4e 00 01 46 00 25 01 44 00 0c 00 08 02 03 a2 54 3a 52 43 52 00 25 01 58 00 1a 00 16 03 0a 00 00 01 45 04 00 f0 3a 83 58 00 28 3b 6e 8f 20 00 00 00 2a 00 25 01 68 00 48 00 44 04 21 18 00 00 29 57 14 00 2d ┆ T:TABN F % D T:RCR % X E : X (;n * % h H D ! )W -┆
0x5844…5894 (58, 2, 120) 57 02 00 35 51 08 00 39 01 08 00 3d 01 06 00 49 50 04 00 87 51 68 00 8d 50 0e 00 93 50 32 00 99 56 68 00 a1 50 2c 00 a7 54 06 00 ad 57 54 00 b3 50 12 00 dd 50 10 00 ef 57 12 00 25 01 86 00 1c 00 18 04 0b 00 00 00 f5 50 0c 01 13 50 14 01 27 ┆W 5Q 9 = IP Qh P P2 Vh P, T WT P P W % P P '┆
0x5894…58bc 57 14 01 2f 54 04 01 33 57 04 00 26 00 42 00 0e 00 0a 07 04 00 00 00 00 01 50 00 00 00 26 00 62 40 04 00 00 00 26 00 74 ┆W /T 3W & B P & b@ & t┆
0x58bc…590c (59, 0, 398) 00 40 00 40 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 20 54 3a 45 4e 4c 49 20 20 20 20 20 50 2c 50 52 52 3d 34 2e 31 2c 37 39 2d 30 34 2d 30 39 2c 38 37 30 31 33 36 39 34 30 34 31 30 20 00 27 00 04 00 12 00 0e 01 06 a4 54 3a 44 4e 4c ┆ @ @ IDENT T:ENLI P,PRR=4.1,79-04-09,870136940410 ' T:DNL┆
0x590c…595c a4 54 3a 44 53 4c 00 27 00 48 00 0e 00 0a 02 04 c2 49 3a 45 56 4e 4f 00 00 27 00 5e 00 0e 00 0a 02 04 c2 49 3a 45 43 50 59 00 00 27 00 70 00 0e 00 0a 02 04 c2 49 3a 45 50 49 43 00 00 27 00 82 00 0e 00 0a 02 04 c2 49 3a 45 54 58 54 00 00 27 ┆ T:DSL ' H I:EVNO ' ^ I:ECPY ' p I:EPIC ' I:ETXT '┆
0x595c…59ac 00 94 00 0e 00 0a 02 04 c2 49 3a 45 54 41 42 00 00 27 00 a6 00 0e 00 0a 02 04 c2 49 3a 45 42 52 49 00 00 27 00 b8 00 0e 00 0a 02 04 c2 49 3a 45 42 52 42 00 00 27 00 ca 00 0c 00 08 02 03 a2 49 3a 45 42 52 00 27 00 dc 00 2a 00 26 03 12 00 00 ┆ I:ETAB ' I:EBRI ' I:EBRB ' I:EBR ' * & ┆
0x59ac…59fc 00 01 aa 94 00 00 00 02 00 00 00 04 00 00 00 06 00 00 00 08 00 00 00 0a 00 00 00 00 00 0c 00 00 00 0e 00 27 00 ec 00 0c 00 08 02 03 a2 49 3a 45 4f 52 00 27 01 1a 00 0e 00 0a 02 04 c2 49 3a 45 58 49 54 00 00 27 01 2a 00 0c 00 08 02 03 a2 49 ┆ ' I:EOR ' I:EXIT ' * I┆
0x59fc…5a4a 3a 45 43 57 00 27 01 3c 00 0e 00 0a 02 04 c2 49 3a 45 46 4c 41 00 00 27 01 4c 00 0e 00 0a 02 04 c2 54 3a 50 49 4e 50 00 00 27 01 5e 00 0c 00 08 02 03 a2 54 3a 50 4b 49 00 27 01 70 00 0e 00 0a 02 04 c2 49 3a 45 46 49 4c 00 00 27 01 80 ┆:ECW ' < I:EFLA ' L T:PINP ' ^ T:PKI ' p I:EFIL ' ┆
0x5a4a…5a9a (60, 0, 400) 00 2a 00 26 03 12 00 00 00 11 aa 94 00 00 00 10 00 00 00 12 00 00 00 14 00 00 00 16 00 00 00 18 00 00 00 00 00 1a 00 00 00 1c 00 28 00 04 00 0e 00 0a 02 04 c2 49 3a 45 53 4b 49 00 00 28 00 32 00 0e 00 0a 05 04 bc 54 3a 44 53 4c 00 26 00 28 ┆ * & ( I:ESKI ( 2 T:DSL & (┆
0x5a9a…5aea 00 44 00 0e 00 0a 02 04 c2 54 3a 47 52 46 43 00 00 28 00 56 00 0e 00 0a 05 04 bc 54 3a 44 4e 4c 00 32 00 28 00 68 00 2c 00 28 03 13 00 00 00 21 92 04 00 00 00 1e 00 00 00 00 00 20 f6 a1 00 00 00 22 02 01 82 59 00 2e 57 00 f6 a1 00 00 00 22 ┆ D T:GRFC ( V T:DNL 2 ( h , ( ! " Y .W "┆
0x5aea…5b3a 90 59 00 28 00 7a 00 2c 00 28 03 13 00 00 00 39 00 00 00 2e 81 58 00 28 82 04 83 58 00 2e 22 04 50 00 eb 58 00 30 52 00 54 00 02 0c ea 59 00 2a 50 00 00 28 00 aa 00 0e 00 0a 02 04 c2 54 3a 57 52 44 59 00 00 28 00 da 00 2c 00 28 03 13 00 08 ┆ Y ( z , ( 9 . X ( X ." P X 0R T Y *P ( T:WRDY ( , ( ┆
0x5b3a…5b8a 00 59 00 40 eb 20 00 01 55 00 1b 01 82 0c 3a 48 12 01 01 00 f6 a1 00 00 00 24 83 20 00 00 83 4b ff fa eb a0 00 28 00 ec 00 0c 00 08 02 03 a2 49 3a 45 4e 4c 00 28 01 1c 00 0c 00 08 02 03 a2 49 3a 45 53 4c 00 28 01 2c 00 2c 00 28 03 13 00 00 ┆ Y @ U :H $ K ( I:ENL ( I:ESL ( , , ( ┆
0x5b8a…5bda 00 77 11 00 00 e1 54 00 f6 a1 00 00 00 26 57 00 f6 a1 00 00 00 28 83 58 00 2e eb 58 00 32 51 00 01 0a e9 59 00 28 01 3c 00 0e 00 0a 02 04 c2 49 3a 45 43 54 52 00 00 28 01 6c 00 2c 00 28 03 13 00 00 00 93 08 00 00 2a 54 00 01 1e f6 a1 00 00 ┆ w T &W ( X . X 2Q Y ( < I:ECTR ( l , ( *T ┆