|
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: 23898 (0x5d5a)
Notes: pts_type(SC)
Names: »DENTER.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DENTER.SC«
IDENT DENTER REL 10.0 80-04-11 UPD 80-11-06/DALI UPD 80-10-21/DALI UPD 80-06-28/DALI UPD 80-04-14/DALI ****************************************** * THIS ROUTINE HANDLE THE KEYBOARD INPUT * * AND IS A MODIFIED VERSION OF THE STAN- * * DARD S C R E E N - P A C K A G E. * ****************************************** * * RUNNING UNDER: CREDIT REL 10.0 * * TOSS REL 10.0 * ****************************************** DDUM DEDDIV PDIV * ENTRY DECLRA CLEAR ALL VARIABLE FIELDS ENTRY DECLRS CLEAR SOME VARIABLE FIELDS ENTRY DECLRN CLEAR NO VARIABLE FIELDS ENTRY DECLRD ENTRY DERR DENTER-ERROR EXT DERROR ERROR-MESSAGES EXT DEGEN GENERATION ROUTINE EXT CANC -ROUTINES * EXT DESTAT BUILD THE STATUSLINE EXT DEAPPL STANDARD ROUTINE TO HANDLE APPL VALUES EXT DETCHK USER ROUTINE TO EVALUATE CONDITIONAL TABULATION EXT DENVAL EXT DEEDIT EXT DENDUP EXT DEFORC HANDLE FORCEDITEM EXT DEVERI KEY-VERIFICATION * EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - TEST IF DATA ITEM IS EMPTY EXT FORCED ASSEMBLY SUBROUTINE FORCED - TEST IF DATA ITEM IS FORCED EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - ATTACH DESCRIPTORBLOCK EXT ATTPRT RESERVE PRINTER EXT ATTDEV RESERVE DEVICE EXT DETPRT RELEASE PRINTER EXT MASK EXT GETVAL LOOK FOR VALIDATION- STRING FOR CURRENT FIELD EXT GETGEN LOOK FOR GENERARTION- STRING FOR CURRENT FIELD EXT TESTB TEST FOR A BIT IN A BIN EXT CLEARB CLEAR A BIT IN A BIN ITEM EXT DELOCK TEST KEY-LOCKS EXT GETFWD ASSEMBLY SUBROUTINE GETFWD - EXECUTE GETFLD. NOTE THAT CONDITION=3, MEANING THAT EMPTY COMPULSURY FIELDS IS FOUND,WILL "NOT" BE INDICATED EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - ADJUST FORMATPOINTERS AFTER EXECUTION OF GETFWD EXT DELAST EJECT * INCLUDE DELITT,LIST EJECT * * CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE * DECLRA PROC PERF DENTER,W1 RET PEND * * CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRS PROC PERF DENTER,W2 RET PEND * * CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRN PROC PERF DENTER,W3 RET PEND * * CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST * OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE * DECLRD PROC * PERF DENTER,W4 RET PEND * * ERROR PRINTOUT * DERR PROC MOVE DEBINW1,W0 PERF DENTER,W0 RET PEND EJECT DENTER PROC OPT CLEAR DOOLC ERASEFLAG OFF MOVE DEBINW2,OPT MOVE TO VARIABLE TO ALLOW INSTR.S CMP AND IB CMP DEBINW2,W0 "DEERR" ENTRY ? BE ERRPRINT YES ! TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT SHOULD BE DIDELAYED * * ONLY VARIABLE FIELDS * IB DEBINW2 C CLEARA C CLEARS C CONT C CLEARD * CLEARA ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP B CONT * CLEARS ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP B CONT CLEARD TBT VERIFM,VERIF DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP B CONT VERIF TBF KEYVER,SIGHT DISPLAY 23,W1,W0 B CONT SIGHT DISPLAY 33,W1,W0 B CONT EJECT * * DISPLAY ENTIRE FORMAT * ENTIRE CLEAR DEPROMPT IB DEBINW2 JUMP C ECLRA ON C ECLRS ROUTINE C ECLRN INDEX C ECLRN * * CLEAR ALL VARIABLES * ECLRA ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP IN MEMORY B ECLRN CONTINUE * * CLEAR SOME VARIABLES * ECLRS ERASE 6,W1,W0 CLEAR SOME FIELDS FROM 1 AND UP IN MEMORY * * CLEAR NO VARIABLES IN MEMORY * ECLRN TBT VERIFM,EVERIF DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM B CONT EVERIF TBF KEYVER,ESIGHT DISPLAY 20,W1,W0 B CONT ESIGHT DISPLAY 30,W1,W0 EJECT * CONT MOVE DEBINW2,W8 HOME-KEY CONT3 GETABX DEBINW4 GET CURRENT INDEX BL KTHOME JUMP IF NO CURRENT FIELD TBF VERIFM,CONT5 B KTHOME CONT5 GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION BZ CONT6 JUMP IF FOUND BL KTHOME POSITION NOT FOUND * * COMPULSORY FIELD FOUND * MOVE DEBINW4,DEBINW3 CHANGE INDEX B CONT5 SEARCH AGAIN * CONT6 TSTCTL 5 LOOK IF CTAB BZ SETCREAD TEST DOOLA BZ CONT7 JUMP IF NOT BALANCE SET ASDFLAG MOVE DEBINW2,W9 B KTHOME CONT7 TBF ASDFLAG,SETCREAD B KTHOME GO HOME IF CTAB+ASD EJECT * * SET CURSOR AND READ KEYBOARD * SETCREAD SETCUR SET CURSOR ON CURRENT FIELD * * READ TO CURRENT FIELD ON DISPLAY * READIN TBF DENOCHAN,READ50 READ10 MOVE DEBINW1,W0 MOVE DEBINW3,W1 TBF VERIFM,READ12 NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 B READ14 READ12 NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 READ14 PERF DELOCK,W1,DEBINW2 IB DEBINW3,READ30,READ20,READ10 B READ40 * READ20 ERROR XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W64 BNZ READ10 EDWRT DEDSSCRN,BELL B READ10 * READ30 POWER OFF TBT VERIFM,EVERIF DISPLAY 0,W1,W0 B SETCREAD * READ40 IB DEBINW2,READ10,STATUS,KCOPY SUB DEBINW2,W3 TBT DOOL3,READ45 JUMP IF NOT WORKING CLEAR DENOCHAN WITTH THE DATA-FILE READ45 RET * READ50 TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION PERF DEVERI IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20 * RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT RET READ55 GETCTL 3,DEBINW3 GET SCHK CALL TESTB,DEBINW3,W15 BZ READ60 JUMP IF NOT SIGN DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C DEBINW2,DEBINW4 B DYKOUT READ60 DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C DEBINW2,DEBINW4 DYKOUT PERF DELOCK,W1,DEBINW2 IB DEBINW3,ECLRN,ERRPRT,DYK050 B DYK100 DYK050 MOVE DEBINW2,W2 B ERRCAN DYK070 GETABX DEBINW4 GET CURRENT TAB INDEX DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD B SETCREAD CONTINUE DYK100 CLEAR DOOL5 KEYED INPUT IB DEBINW2,UPDATE,DYK070 JUMP ON C UPDATE,ERRCAN,ERRCAN, C DYK150,UPDATE,UPDATE,UPDATE CONVERTED C UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C KCOPY,KDUPL,KEDIT B UPDATE DYK150 MOVE DEBINW2,W3 SET PLS = EOI EJECT *************************************** * VALIDATE ENTERED DATA IN THE ORDER: * * STANDARDCHECK * * APPLE-VALUE * * VALIDATION-STRING * * * * RETURNVALUES ARE PUT INTO DEBINW3. * *************************************** UPDATE CBNE DEBINW1,W0,UPD100 VALIDATION OF EMPTY FIELD IF SOME OF BELOW KEES PRESSED: * 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP CBG DEBINW2,W11,UPD010 CBG DEBINW2,W8,UPD005 CBG DEBINW2,W3,UPD010 UPD005 TBT DOOL3,UPD020 UPD010 B UPDR50 UPD020 MOVE DEBINW4,W6 FORCED ITEM MOVE BIN3,W0 USED FOR SAV ERRORINDEX CALL FORCED,:FMTITEM BOK UPD030 PERF DERROR,DEKTABF B ERRP20 UPD030 CALL EMPTYT,:FMTITEM BZ UPDVAL NO! UPD040 GETCTL 3,DEBINW4 GET SCHK CALL TESTB,DEBINW4,W13 LOOK IF COND ME BZ UPDR35 VALIDATION IF COND B UPDVAL EJECT * * ENTERED DATA FROM KEYBOARD * UPD100 GETCTL 3,DEBINW4 GET SCHK-NUMBER UPD105 IB DEBINW4 JUMP SCHK NUMBER C UPD110 =1 C UPD120 =2 C UPD120 =3 C UPD200 =4 C UPD110 =5 C UPD120 =6 C UPD120 =7 B UPD200 UPD110 CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS MOVE DEBINW2,W0 MOVE DEBINW3,W1 MOVE STR1A,='-' INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0 MOVE DEBINW2,W3 SIMULATE EOI UPD115 SUB DEBINW4,W1 B UPD105 UPD120 GETCTL 1,DEBINW3 GET MAXL SUB DEBINW3,DEBINW1 BZ UPD150 MAXL = INPUTLENGTH TSTCTL 0 LOOK IF ALPHA BZ UPD130 NO! MOVE STATSH,=X'20' PUT SPACE IN AREA B UPD140 UPD130 MOVE STATSH,=X'30' PUT ZERO IN ARTEA UPD140 RIGHT ADJUST CURRENT IPNPUT INSRT DEINPUT,W0,DEBINW3,STATSH,W0 UPD150 SUB DEBINW4,W2 B UPD105 UPD200 TBT DOOL3,UPDVAL ENTRY-MODE APPL- VALUE-HANDLING IS EXECUTED WITHIN DENVAL GETCTL 0,DEBINW3 GET APPL-VALUE CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE * * APPL-VALUE DIFFERENT FROM ZERO * PERF DEAPPL IB DEBINW3,UPDR15,SETCREAD,ERRPRINT B UPDR25 EJECT * * LOOK IF THERE ARE A VALIDATIONSTRING * WITHIN THE FORMAT AND EXECUTE IT. * UPDVAL CLEAR DOOL1 CLEAR DOOL4 CLEAR DOOL6 CLEAR DOOL7 CLEAR BOOL5 ***F=UNVALID/NO COND TAB CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH MOVE BIN14,W0 ***COND.TAB.-FIELD:=0 MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 MOVE DEBINW3,W0 CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 BNOK UPDR25 JUMP IF NO VALSTRING CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED SETCUR SET CURSOR ON CURRENT FIELD UPDV10 PERF DENVAL,W0 EJECT * * RETURN FROM VALIDATION * MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH CLEAR DOOLB ERROR-FLAG BZ UPDR20 UPDR12 TSTCTL 0 L00K IF ALPHA BNZ UPDR16 JUMP IF ALPHA MOVE BIN9,W15 POINTER TO + MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 BNOK UPDR16 DLETE DEINPUT,W0,W1 DELETE + OR - UPDR16 CBE BIN3,W0,UPDR17 JUMP IF NOT MESS CBE BIN11,W0,UPDR17 JUMP IF NO POOL XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN3 UPDR17 TBF DOOLA,UPDR13 JUMP IF NOT BALACE PERF DERROR,DEKTAB6 B ERRP20 UPDR13 TSTCTL 5 LOOK IF CTAB BZ UPDR14 NO! DUPL STR2A LOOK IF KEYED INPUT = N BOK UPDR18 YES! TBF ASDFLAG,UPDR14 UPDR18 PERF DERROR,DEKTABI NO KEY INPUT B ERRP25 UPDR14 PERF DERROR,DEKTABD B ERRP20 EJECT * * VALDATION SUCCESSFULLY PERFORMED * UPDR15 UPDFLD 1,DEINPUT UNCONDITIONAL UPD. B UPDR28 UPDR20 IB DEBINW3,UPDR25,SETCREAD,UPDR12 UPDR25 CBE DEBINW3,W1,UPDR15 CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING UPDR28 TSTCTL 5 BZ UPDR30 TBT ASDFLAG,UPDR33 DUPL STR2A KEYED INPUT = N? BOK UPDR33 YES! UPDR30 SET DECHANGE INDICATE CHANGED ITEM UPDR33 TBF DOOL3,UPDR50 JUMP IF NOT ENTRY UPDR35 CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 BNOK UPDR50 PERF DEGEN UPDR40 TSTCTL 5 BZ UPDR45 TBT ASDFLAG,UPDR50 DUPL STR2A KEYED INPUT = N? BOK UPDR50 YES! UPDR45 SET DECHANGE UPDR50 MOVE DEBINW1,W0 SET INPUTLENGTH = 0 IB DEBINW2,KTFWD,DUMMY, C KEOI,DUMMY,DUMMY,KTFWD, C KTBWD,KTHOME,KERASE,KKEEP,KEOI, C KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER CMP DEBINW2,W24 BE KASD JUMP IF ASD FLAG SUB DEBINW2,W14 ADJUST EOI-KEY INDEX DUMMY RETUR RET EJECT KTFWD TAB. FORWARD 1 STEP MOVE DEBINW2,W3 SIMULATE EOI KEOI COMMON END-OF-ITEM KEY TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH CALL EMPTYT,STSAVE(W3) *** BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE CLEAR DECHANGE B KENT04 KEOI10 *** CLEAR BOOL5 ***CLEAR /SET CR BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR SUB DEBINW4,W1 ***ADJUST FOR TFWD BE KTHOME JUMP IF GOTO FIELD 1 KEOI15 CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 CALL ADJUST,DKBIN1 BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW GETABX DEBINW4 *** ADD DEBINW4,W1 B KEOI15 KEOI20 *** CBL DEBINW2,W11,KEOI30 B KKEEP2 KEOI30 TBT DOOL3,KEOI40 ENTRY SCREEN TFWD B TSTTAB KEOI40 TSTCTL 2 LOOK IF COMPULSORY FIELD BZ KEOI45 NO! CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD BP KENT15 YES! KEOI45 GETABX DEBINW4 ADD DEBINW4,W1 CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 CALL ADJUST,DKBIN1 BNE TSTTAB KEOI50 TSTCTL 5 BNZ TSTT05 B TSTT10 * KTBWD TABULATION 1 STEP BACKW. GETABX DEBINW4 CBE DEBINW4,W1,KTBWD2 TBWD B TSTTAB KTBWD2 MOVE DEBINW2,W3 EOI * KTHOME TAB. TO HOME POSITION TBT DOOLA,KTHOM4 JUMP IF BALANCE TBF VERIFM,KTHOM2 TBT KEYVER,KTKEY KTHOM3 MOVE DEBINW1,W0 GETFLD 0,DEBINW1,DEBINW3 SETCUR B READ10 KTHOM4 SET ASDFLAG SET ASD WHEN BALANCE MOVE DEBINW1,W0 SET INPUT.LENGTH=0 WHEN BALANCE-FORMAT KTHOM2 THOME TSTTAB TEST TAB OUTPUT BE TSTT10 OK BL READIN NOT FOUND BOFL KENT15 EMPTY COMPULSORY FIELD * TSTT05 * CONDITIONAL TABULATION TBT DENOCHAN,TSTT15 DUPL STR2A KEYED INPUT = N? BOK TSTT07 YES! TBF ASDFLAG,TSTT15 TSTT07 PERF DETCHK CBE DEBINW3,W0,TSTT15 IB DEBINW2,DUMMY,DUMMY, C KTEOI,DUMMY,DUMMY,KTEOI, C KTBWD,KTEOI,KKEEP TSTT15 B SETCREAD TSTT10 TBF AUTENT,TSTT15 TBF DOOL3,TSTT15 NOT ENTRY SCREEN TBT DOOLA,TSTT15 BALANCE FORMAT GETCTL 1,DEBINW4 GET MAXL CBNE DEBINW4,W0,TSTT15 B KENT06 EJECT KTKEY MOVE BIN11,W0 KTKEY2 ADD BIN11,W1 CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER CALL ADJUST,DEBINW4 BZ SETCREAD JUMP IF VERIFYFIELD B KTHOM3 KTEOI TBF DOOL3,KTFWD MOVE DEBINW2,W3 EJECT * * DUPL KEY * KDUPL 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, 398) Head {h00=0x0024, h01=0x0050, text=» IDENT DENTER REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-11-06/DALI«, t00=0x0000, t01=0x002c}
0x0044…0060 Head {h00=0x0018, h01=0x0050, text=» UPD 80-10-21/DALI«, t00=0x0000, t01=0x0048}
0x0060…007c Head {h00=0x0018, h01=0x0050, text=» UPD 80-06-28/DALI«, t00=0x0000, t01=0x0064}
0x007c…0098 Head {h00=0x0018, h01=0x0050, text=» UPD 80-04-14/DALI«, t00=0x0000, t01=0x0080}
0x0098…00ca Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x009c}
0x00ca…00fc Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE HANDLE THE KEYBOARD INPUT *«, t00=0x0000, t01=0x00ce}
0x00fc…012e Head {h00=0x002e, h01=0x0050, text=»* AND IS A MODIFIED VERSION OF THE STAN- *«, t00=0x0000, t01=0x0100}
0x012e…0160 Head {h00=0x002e, h01=0x0050, text=»* DARD S C R E E N - P A C K A G E. *«, t00=0x0000, t01=0x0132}
0x0160…0192 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x0164}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01ce Head {h00=0x002e, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 10.0 *«, t00=0x0001, t01=0x0012}
0x01ce…0200 Head {h00=0x002e, h01=0x0050, text=»* TOSS REL 10.0 *«, t00=0x0001, t01=0x0044}
0x0200…0232 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0001, t01=0x0076}
0x0232…0246 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x00a8}
0x0246…0254 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x00bc}
0x0254…025e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x025e…028e Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0001, t01=0x00d4}
0x028e…02be Head {h00=0x002c, h01=0x0050, text=» ENTRY DECLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0001, t01=0x0104}
0x02be…02ec Head {h00=0x002a, h01=0x0050, text=» ENTRY DECLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x0134}
0x02ec…0302 Head {h00=0x0012, h01=0x0050, text=» ENTRY DECLRD «, t00=0x0001, t01=0x0162}
0x0302…0322 Head {h00=0x001c, h01=0x0050, text=» ENTRY DERR DENTER-ERROR«, t00=0x0001, t01=0x0178}
0x0322…0344 Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0002, t01=0x0008}
0x0344…036a Head {h00=0x0022, h01=0x0050, text=» EXT DEGEN GENERATION ROUTINE «, t00=0x0002, t01=0x002a}
0x036a…0386 Head {h00=0x0018, h01=0x0050, text=» EXT CANC -ROUTINES «, t00=0x0002, t01=0x0050}
0x0386…0390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0390…03b8 Head {h00=0x0024, h01=0x0050, text=» EXT DESTAT BUILD THE STATUSLINE«, t00=0x0002, t01=0x0076}
0x03b8…03e0 Head {h00=0x0024, h01=0x0050, text=» EXT DEAPPL STANDARD ROUTINE TO «, t00=0x0002, t01=0x009e}
0x03e0…03fe Head {h00=0x001a, h01=0x0050, text=» HANDLE APPL VALUES «, t00=0x0002, t01=0x00c6}
0x03fe…042a Head {h00=0x0028, h01=0x0050, text=» EXT DETCHK USER ROUTINE TO EVALUATE«, t00=0x0002, t01=0x00e4}
0x042a…044c Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x0110}
0x044c…0460 Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0002, t01=0x0132}
0x0460…0474 Head {h00=0x0010, h01=0x0050, text=» EXT DEEDIT «, t00=0x0002, t01=0x0146}
0x0474…0488 Head {h00=0x0010, h01=0x0050, text=» EXT DENDUP «, t00=0x0002, t01=0x015a}
0x0488…04ae Head {h00=0x0022, h01=0x0050, text=» EXT DEFORC HANDLE FORCEDITEM «, t00=0x0002, t01=0x016e}
0x04ae…04d2 (3, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EXT DEVERI KEY-VERIFICATION«, t00=0x0003, t01=0x0004}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0028}
0x04dc…050e Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x0032}
0x050e…0534 Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x0064}
0x0534…0566 Head {h00=0x002e, h01=0x0050, text=» EXT FORCED ASSEMBLY SUBROUTINE FORCED - «, t00=0x0003, t01=0x008a}
0x0566…058e Head {h00=0x0024, h01=0x0050, text=» TEST IF DATA ITEM IS FORCED «, t00=0x0003, t01=0x00bc}
0x058e…05bc Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0003, t01=0x00e4}
0x05bc…05de Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0003, t01=0x0112}
0x05de…0602 Head {h00=0x0020, h01=0x0050, text=» EXT ATTPRT RESERVE PRINTER «, t00=0x0003, t01=0x0134}
0x0602…0624 Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV RESERVE DEVICE«, t00=0x0003, t01=0x0158}
0x0624…0648 Head {h00=0x0020, h01=0x0050, text=» EXT DETPRT RELEASE PRINTER «, t00=0x0003, t01=0x017a}
0x0648…065a Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0004, t01=0x000e}
0x065a…0682 Head {h00=0x0024, h01=0x0050, text=» EXT GETVAL LOOK FOR VALIDATION-«, t00=0x0004, t01=0x0020}
0x0682…06a6 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x0048}
0x06a6…06d0 Head {h00=0x0026, h01=0x0050, text=» EXT GETGEN LOOK FOR GENERARTION- «, t00=0x0004, t01=0x006c}
0x06d0…06f4 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0004, t01=0x0096}
0x06f4…071e Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0004, t01=0x00ba}
0x071e…074c Head {h00=0x002a, h01=0x0050, text=» EXT CLEARB CLEAR A BIT IN A BIN ITEM «, t00=0x0004, t01=0x00e4}
0x074c…076e Head {h00=0x001e, h01=0x0050, text=» EXT DELOCK TEST KEY-LOCKS«, t00=0x0004, t01=0x0112}
0x076e…079e Head {h00=0x002c, h01=0x0050, text=» EXT GETFWD ASSEMBLY SUBROUTINE GETFWD -«, t00=0x0004, t01=0x0134}
0x079e…07b8 Head {h00=0x0016, h01=0x0050, text=» EXECUTE GETFLD.«, t00=0x0004, t01=0x0164}
0x07b8…07da Head {h00=0x001e, h01=0x0050, text=» NOTE THAT CONDITION=3, «, t00=0x0004, t01=0x017e}
0x07da…07f8 Head {h00=0x001a, h01=0x0050, text=» MEANING THAT EMPTY «, t00=0x0005, t01=0x0010}
0x07f8…0818 Head {h00=0x001c, h01=0x0050, text=» COMPULSURY FIELDS IS «, t00=0x0005, t01=0x002e}
0x0818…0836 Head {h00=0x001a, h01=0x0050, text=» FOUND,WILL "NOT" BE«, t00=0x0005, t01=0x004e}
0x0836…084a Head {h00=0x0010, h01=0x0050, text=» INDICATED«, t00=0x0005, t01=0x006c}
0x084a…087a Head {h00=0x002c, h01=0x0050, text=» EXT ADJUST ASSEMBLY SUBROUTINE ADJUST -«, t00=0x0005, t01=0x0080}
0x087a…08a0 Head {h00=0x0022, h01=0x0050, text=» ADJUST FORMATPOINTERS AFTER«, t00=0x0005, t01=0x00b0}
0x08a0…08be Head {h00=0x001a, h01=0x0050, text=» EXECUTION OF GETFWD«, t00=0x0005, t01=0x00d6}
0x08be…08d2 Head {h00=0x0010, h01=0x0050, text=» EXT DELAST «, t00=0x0005, t01=0x00f4}
0x08d2…08e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0108}
0x08e0…08ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ea…0906 Head {h00=0x0018, h01=0x0050, text=» INCLUDE DELITT,LIST«, t00=0x0005, t01=0x0120}
0x0906…0914 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x013c}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014a}
0x091e…0960 Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x0154}
0x0960…096a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096a…097e Head {h00=0x0010, h01=0x0050, text=»DECLRA PROC «, t00=0x0006, t01=0x0012}
0x097e…0996 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W1 «, t00=0x0006, t01=0x0026}
0x0996…09a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x003e}
0x09a2…09b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x004a}
0x09b0…09ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09ba…09fe Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0062}
0x09fe…0a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a08…0a1c Head {h00=0x0010, h01=0x0050, text=»DECLRS PROC «, t00=0x0006, t01=0x00b0}
0x0a1c…0a34 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W2 «, t00=0x0006, t01=0x00c4}
0x0a34…0a40 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00dc}
0x0a40…0a4e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00e8}
0x0a4e…0a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f6}
0x0a58…0a9a Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0006, t01=0x0100}
0x0a9a…0aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa4…0ab8 Head {h00=0x0010, h01=0x0050, text=»DECLRN PROC «, t00=0x0006, t01=0x014c}
0x0ab8…0ad0 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W3 «, t00=0x0006, t01=0x0160}
0x0ad0…0adc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0178}
0x0adc…0aea Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0184}
0x0aea…0af4 (7, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af4…0b30 Head {h00=0x0038, h01=0x0050, text=»* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST«, t00=0x0007, t01=0x000e}
0x0b30…0b70 Head {h00=0x003c, h01=0x0050, text=»* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0007, t01=0x004a}
0x0b70…0b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7a…0b8e Head {h00=0x0010, h01=0x0050, text=»DECLRD PROC «, t00=0x0007, t01=0x0094}
0x0b8e…0b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a8}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W4 «, t00=0x0007, t01=0x00b2}
0x0bb0…0bbc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00ca}
0x0bbc…0bca Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00d6}
0x0bca…0bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bd4…0bf0 Head {h00=0x0018, h01=0x0050, text=»* ERROR PRINTOUT«, t00=0x0007, t01=0x00ee}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0bfa…0c0c Head {h00=0x000e, h01=0x0050, text=»DERR PROC «, t00=0x0007, t01=0x0114}
0x0c0c…0c24 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0007, t01=0x0126}
0x0c24…0c3c Head {h00=0x0014, h01=0x0050, text=» PERF DENTER,W0 «, t00=0x0007, t01=0x013e}
0x0c3c…0c48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0156}
0x0c48…0c56 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0162}
0x0c56…0c64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0170}
0x0c64…0c7c Head {h00=0x0014, h01=0x0050, text=»DENTER PROC OPT «, t00=0x0007, t01=0x017e}
0x0c7c…0c9e Head {h00=0x001e, h01=0x0050, text=» CLEAR DOOLC ERASEFLAG OFF«, t00=0x0008, t01=0x0008}
0x0c9e…0cc8 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,OPT MOVE TO VARIABLE«, t00=0x0008, t01=0x002a}
0x0cc8…0cee Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0008, t01=0x0054}
0x0cee…0d16 Head {h00=0x0024, h01=0x0050, text=» CMP DEBINW2,W0 "DEERR" ENTRY ? «, t00=0x0008, t01=0x007a}
0x0d16…0d30 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0008, t01=0x00a2}
0x0d30…0d38 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00bc}
0x0d38…0d6a Head {h00=0x002e, h01=0x0050, text=» TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0008, t01=0x00c4}
0x0d6a…0d88 Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DIDELAYED«, t00=0x0008, t01=0x00f6}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0114}
0x0d92…0db4 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x011e}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dbe…0dd4 Head {h00=0x0012, h01=0x0050, text=» IB DEBINW2 C«, t00=0x0008, t01=0x014a}
0x0dd4…0de8 Head {h00=0x0010, h01=0x0050, text=» CLEARA C «, t00=0x0008, t01=0x0160}
0x0de8…0dfc Head {h00=0x0010, h01=0x0050, text=» CLEARS C «, t00=0x0008, t01=0x0174}
0x0dfc…0e0e Head {h00=0x000e, h01=0x0050, text=» CONT C «, t00=0x0008, t01=0x0188}
0x0e0e…0e1e Head {h00=0x000c, h01=0x0050, text=» CLEARD«, t00=0x0009, t01=0x000a}
0x0e1e…0e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001a}
0x0e28…0e36 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0009, t01=0x0024}
0x0e36…0e64 Head {h00=0x002a, h01=0x0050, text=» ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP«, t00=0x0009, t01=0x0032}
0x0e64…0e74 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0060}
0x0e74…0e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e7e…0e8c Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0009, t01=0x007a}
0x0e8c…0ebc Head {h00=0x002c, h01=0x0050, text=» ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP «, t00=0x0009, t01=0x0088}
0x0ebc…0ecc Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x00b8}
0x0ecc…0eda Head {h00=0x000a, h01=0x0050, text=»CLEARD«, t00=0x0009, t01=0x00c8}
0x0eda…0ef4 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,VERIF «, t00=0x0009, t01=0x00d6}
0x0ef4…0f22 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP«, t00=0x0009, t01=0x00f0}
0x0f22…0f32 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x011e}
0x0f32…0f40 Head {h00=0x000a, h01=0x0050, text=»VERIF «, t00=0x0009, t01=0x012e}
0x0f40…0f5a Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,SIGHT «, t00=0x0009, t01=0x013c}
0x0f5a…0f74 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 23,W1,W0 «, t00=0x0009, t01=0x0156}
0x0f74…0f84 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0170}
0x0f84…0f92 Head {h00=0x000a, h01=0x0050, text=»SIGHT «, t00=0x0009, t01=0x0180}
0x0f92…0fac Head {h00=0x0016, h01=0x0050, text=» DISPLAY 33,W1,W0 «, t00=0x0009, t01=0x018e}
0x0fac…0fbc Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0018}
0x0fbc…0fca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0028}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fd4…0ff6 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x000a, t01=0x0040}
0x0ff6…1000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1000…100e Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x000a, t01=0x006c}
0x100e…1026 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x000a, t01=0x007a}
0x1026…1040 Head {h00=0x0016, h01=0x0050, text=» IB DEBINW2 JUMP C«, t00=0x000a, t01=0x0092}
0x1040…1054 Head {h00=0x0010, h01=0x0050, text=» ECLRA ON C«, t00=0x000a, t01=0x00ac}
0x1054…106e Head {h00=0x0016, h01=0x0050, text=» ECLRS ROUTINE C «, t00=0x000a, t01=0x00c0}
0x106e…1086 Head {h00=0x0014, h01=0x0050, text=» ECLRN INDEX C «, t00=0x000a, t01=0x00da}
0x1086…1096 Head {h00=0x000c, h01=0x0050, text=» ECLRN «, t00=0x000a, t01=0x00f2}
0x1096…10a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a0…10c0 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x000a, t01=0x010c}
0x10c0…10ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10ca…10d8 Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x000a, t01=0x0136}
0x10d8…1106 Head {h00=0x002a, h01=0x0050, text=» ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP«, t00=0x000a, t01=0x0144}
0x1106…111a Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x000a, t01=0x0172}
0x111a…1134 Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x000a, t01=0x0186}
0x1134…113e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0010}
0x113e…1160 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x000b, t01=0x001a}
0x1160…116a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003c}
0x116a…1178 Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x000b, t01=0x0046}
0x1178…11a6 Head {h00=0x002a, h01=0x0050, text=» ERASE 6,W1,W0 CLEAR SOME FIELDS FROM «, t00=0x000b, t01=0x0054}
0x11a6…11c4 Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000b, t01=0x0082}
0x11c4…11ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a0}
0x11ce…11f8 Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000b, t01=0x00aa}
0x11f8…1202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d4}
0x1202…1210 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000b, t01=0x00de}
0x1210…122a Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000b, t01=0x00ec}
0x122a…1256 Head {h00=0x0028, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM«, t00=0x000b, t01=0x0106}
0x1256…1266 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0132}
0x1266…1274 Head {h00=0x000a, h01=0x0050, text=»EVERIF«, t00=0x000b, t01=0x0142}
0x1274…128e Head {h00=0x0016, h01=0x0050, text=» TBF KEYVER,ESIGHT«, t00=0x000b, t01=0x0150}
0x128e…12a8 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 20,W1,W0 «, t00=0x000b, t01=0x016a}
0x12a8…12b8 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0184}
0x12b8…12c6 (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=»ESIGHT«, t00=0x000c, t01=0x0004}
0x12c6…12e0 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 30,W1,W0 «, t00=0x000c, t01=0x0012}
0x12e0…12ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x002c}
0x12ee…12f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12f8…1304 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000c, t01=0x0044}
0x1304…1326 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W8 HOME-KEY «, t00=0x000c, t01=0x0050}
0x1326…1334 Head {h00=0x000a, h01=0x0050, text=»CONT3 «, t00=0x000c, t01=0x0072}
0x1334…135e Head {h00=0x0026, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT INDEX «, t00=0x000c, t01=0x0080}
0x135e…138a Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000c, t01=0x00aa}
0x138a…13a4 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,CONT5 «, t00=0x000c, t01=0x00d6}
0x13a4…13b6 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000c, t01=0x00f0}
0x13b6…13c4 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000c, t01=0x0102}
0x13c4…13fe Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION «, t00=0x000c, t01=0x0110}
0x13fe…141e Head {h00=0x001c, h01=0x0050, text=» BZ CONT6 JUMP IF FOUND «, t00=0x000c, t01=0x014a}
0x141e…1444 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000c, t01=0x016a}
0x1444…144e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x144e…1472 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000d, t01=0x000a}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x147c…14a6 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,DEBINW3 CHANGE INDEX«, t00=0x000d, t01=0x0038}
0x14a6…14c4 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000d, t01=0x0062}
0x14c4…14ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14ce…14dc Head {h00=0x000a, h01=0x0050, text=»CONT6 «, t00=0x000d, t01=0x008a}
0x14dc…14fa Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x000d, t01=0x0098}
0x14fa…150e Head {h00=0x0010, h01=0x0050, text=» BZ SETCREAD«, t00=0x000d, t01=0x00b6}
0x150e…1522 Head {h00=0x0010, h01=0x0050, text=» TEST DOOLA «, t00=0x000d, t01=0x00ca}
0x1522…1548 Head {h00=0x0022, h01=0x0050, text=» BZ CONT7 JUMP IF NOT BALANCE «, t00=0x000d, t01=0x00de}
0x1548…155c Head {h00=0x0010, h01=0x0050, text=» SET ASDFLAG«, t00=0x000d, t01=0x0104}
0x155c…1574 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W9«, t00=0x000d, t01=0x0118}
0x1574…1586 Head {h00=0x000e, h01=0x0050, text=» B KTHOME «, t00=0x000d, t01=0x0130}
0x1586…1594 Head {h00=0x000a, h01=0x0050, text=»CONT7 «, t00=0x000d, t01=0x0142}
0x1594…15b2 Head {h00=0x001a, h01=0x0050, text=» TBF ASDFLAG,SETCREAD «, t00=0x000d, t01=0x0150}
0x15b2…15d8 Head {h00=0x0022, h01=0x0050, text=» B KTHOME GO HOME IF CTAB+ASD «, t00=0x000d, t01=0x016e}
0x15d8…15e6 (14, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0004}
0x15e6…15f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f0…161a Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000e, t01=0x001c}
0x161a…1624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0046}
0x1624…1634 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000e, t01=0x0050}
0x1634…1660 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000e, t01=0x0060}
0x1660…1668 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x008c}
0x1668…1672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0094}
0x1672…16a0 Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000e, t01=0x009e}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16aa…16b8 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000e, t01=0x00d6}
0x16b8…16d4 Head {h00=0x0018, h01=0x0050, text=» TBF DENOCHAN,READ50«, t00=0x000e, t01=0x00e4}
0x16d4…16f2 Head {h00=0x001a, h01=0x0050, text=»READ10 MOVE DEBINW1,W0«, t00=0x000e, t01=0x0100}
0x16f2…170a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x000e, t01=0x011e}
0x170a…1724 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,READ12«, t00=0x000e, t01=0x0136}
0x1724…175e Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 «, t00=0x000e, t01=0x0150}
0x175e…1770 Head {h00=0x000e, h01=0x0050, text=» B READ14 «, t00=0x000e, t01=0x018a}
0x1770…177e Head {h00=0x000a, h01=0x0050, text=»READ12«, t00=0x000f, t01=0x000c}
0x177e…17b8 Head {h00=0x0036, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 «, t00=0x000f, t01=0x001a}
0x17b8…17c6 Head {h00=0x000a, h01=0x0050, text=»READ14«, t00=0x000f, t01=0x0054}
0x17c6…17e6 Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x000f, t01=0x0062}
0x17e6…180e Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,READ30,READ20,READ10«, t00=0x000f, t01=0x0082}
0x180e…1820 Head {h00=0x000e, h01=0x0050, text=» B READ40 «, t00=0x000f, t01=0x00aa}
0x1820…182a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x182a…1840 Head {h00=0x0012, h01=0x0050, text=»READ20 ERROR«, t00=0x000f, t01=0x00c6}
0x1840…1860 Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x000f, t01=0x00dc}
0x1860…187e Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x000f, t01=0x00fc}
0x187e…1892 Head {h00=0x0010, h01=0x0050, text=» BNZ READ10 «, t00=0x000f, t01=0x011a}
0x1892…18ae Head {h00=0x0018, h01=0x0050, text=» EDWRT DEDSSCRN,BELL«, t00=0x000f, t01=0x012e}
0x18ae…18c0 Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x000f, t01=0x014a}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18ca…18e4 Head {h00=0x0016, h01=0x0050, text=»READ30 POWER OFF«, t00=0x000f, t01=0x0166}
0x18e4…18fe Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,EVERIF«, t00=0x000f, t01=0x0180}
0x18fe…1916 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0010, t01=0x000a}
0x1916…192a Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0010, t01=0x0022}
0x192a…1934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1934…1962 Head {h00=0x002a, h01=0x0050, text=»READ40 IB DEBINW2,READ10,STATUS,KCOPY «, t00=0x0010, t01=0x0040}
0x1962…197a Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W3 «, t00=0x0010, t01=0x006e}
0x197a…19a8 Head {h00=0x002a, h01=0x0050, text=» TBT DOOL3,READ45 JUMP IF NOT WORKING «, t00=0x0010, t01=0x0086}
0x19a8…19d4 Head {h00=0x0028, h01=0x0050, text=» CLEAR DENOCHAN WITTH THE DATA-FILE «, t00=0x0010, t01=0x00b4}
0x19d4…19e2 Head {h00=0x000a, h01=0x0050, text=»READ45«, t00=0x0010, t01=0x00e0}
0x19e2…19ee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00ee}
0x19ee…19f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fa}
0x19f8…1a06 Head {h00=0x000a, h01=0x0050, text=»READ50«, t00=0x0010, t01=0x0104}
0x1a06…1a3e Head {h00=0x0034, h01=0x0050, text=» TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION «, t00=0x0010, t01=0x0112}
0x1a3e…1a52 Head {h00=0x0010, h01=0x0050, text=» PERF DEVERI«, t00=0x0010, t01=0x014a}
0x1a52…1a80 Head {h00=0x002a, h01=0x0050, text=» IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20«, t00=0x0010, t01=0x015e}
0x1a80…1ab8 Head {h00=0x0034, h01=0x0050, text=»* RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT «, t00=0x0010, t01=0x018c}
0x1ab8…1ac4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0034}
0x1ac4…1ad2 Head {h00=0x000a, h01=0x0050, text=»READ55«, t00=0x0011, t01=0x0040}
0x1ad2…1af4 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x0011, t01=0x004e}
0x1af4…1b14 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 «, t00=0x0011, t01=0x0070}
0x1b14…1b38 Head {h00=0x0020, h01=0x0050, text=» BZ READ60 JUMP IF NOT SIGN «, t00=0x0011, t01=0x0090}
0x1b38…1b6a Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C «, t00=0x0011, t01=0x00b4}
0x1b6a…1b84 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x00e6}
0x1b84…1b96 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x0011, t01=0x0100}
0x1b96…1ba4 Head {h00=0x000a, h01=0x0050, text=»READ60«, t00=0x0011, t01=0x0112}
0x1ba4…1bd6 Head {h00=0x002e, h01=0x0050, text=» DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C «, t00=0x0011, t01=0x0120}
0x1bd6…1bf0 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x0011, t01=0x0152}
0x1bf0…1bfe Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x0011, t01=0x016c}
0x1bfe…1c1e Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x0011, t01=0x017a}
0x1c1e…1c46 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,ECLRN,ERRPRT,DYK050 «, t00=0x0012, t01=0x000a}
0x1c46…1c58 Head {h00=0x000e, h01=0x0050, text=» B DYK100 «, t00=0x0012, t01=0x0032}
0x1c58…1c66 Head {h00=0x000a, h01=0x0050, text=»DYK050«, t00=0x0012, t01=0x0044}
0x1c66…1c7e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W2«, t00=0x0012, t01=0x0052}
0x1c7e…1c90 Head {h00=0x000e, h01=0x0050, text=» B ERRCAN «, t00=0x0012, t01=0x006a}
0x1c90…1c9e Head {h00=0x000a, h01=0x0050, text=»DYK070«, t00=0x0012, t01=0x007c}
0x1c9e…1ccc Head {h00=0x002a, h01=0x0050, text=» GETABX DEBINW4 GET CURRENT TAB INDEX «, t00=0x0012, t01=0x008a}
0x1ccc…1cfc Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD«, t00=0x0012, t01=0x00b8}
0x1cfc…1d18 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0012, t01=0x00e8}
0x1d18…1d26 Head {h00=0x000a, h01=0x0050, text=»DYK100«, t00=0x0012, t01=0x0104}
0x1d26…1d46 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOL5 KEYED INPUT«, t00=0x0012, t01=0x0112}
0x1d46…1d72 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,UPDATE,DYK070 JUMP ON C «, t00=0x0012, t01=0x0132}
0x1d72…1d94 Head {h00=0x001e, h01=0x0050, text=» UPDATE,ERRCAN,ERRCAN, C«, t00=0x0012, t01=0x015e}
0x1d94…1dc6 Head {h00=0x002e, h01=0x0050, text=» DYK150,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0012, t01=0x0180}
0x1dc6…1dfe Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,STATUS END-OF-ITEM-KEY C «, t00=0x0013, t01=0x0022}
0x1dfe…1e1a Head {h00=0x0018, h01=0x0050, text=» KCOPY,KDUPL,KEDIT «, t00=0x0013, t01=0x005a}
0x1e1a…1e2c Head {h00=0x000e, h01=0x0050, text=» B UPDATE «, t00=0x0013, t01=0x0076}
0x1e2c…1e3a Head {h00=0x000a, h01=0x0050, text=»DYK150«, t00=0x0013, t01=0x0088}
0x1e3a…1e60 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SET PLS = EOI«, t00=0x0013, t01=0x0096}
0x1e60…1e6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00bc}
0x1e6e…1e9e Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0013, t01=0x00ca}
0x1e9e…1ece Head {h00=0x002c, h01=0x0050, text=»* VALIDATE ENTERED DATA IN THE ORDER: * «, t00=0x0013, t01=0x00fa}
0x1ece…1efe Head {h00=0x002c, h01=0x0050, text=»* STANDARDCHECK * «, t00=0x0013, t01=0x012a}
0x1efe…1f2e Head {h00=0x002c, h01=0x0050, text=»* APPLE-VALUE * «, t00=0x0013, t01=0x015a}
0x1f2e…1f5e Head {h00=0x002c, h01=0x0050, text=»* VALIDATION-STRING * «, t00=0x0013, t01=0x018a}
0x1f5e…1f8e Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0014, t01=0x002a}
0x1f8e…1fbe Head {h00=0x002c, h01=0x0050, text=»* RETURNVALUES ARE PUT INTO DEBINW3. * «, t00=0x0014, t01=0x005a}
0x1fbe…1fee Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0014, t01=0x008a}
0x1fee…1ffc Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0014, t01=0x00ba}
0x1ffc…201c Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW1,W0,UPD100 «, t00=0x0014, t01=0x00c8}
0x201c…2040 Head {h00=0x0020, h01=0x0050, text=» VALIDATION OF EMPTY FIELD«, t00=0x0014, t01=0x00e8}
0x2040…206a Head {h00=0x0026, h01=0x0050, text=» IF SOME OF BELOW KEES PRESSED: «, t00=0x0014, t01=0x010c}
0x206a…20a6 Head {h00=0x0038, h01=0x0050, text=»* 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP«, t00=0x0014, t01=0x0136}
0x20a6…20c6 Head {h00=0x001c, h01=0x0050, text=» CBG DEBINW2,W11,UPD010 «, t00=0x0014, t01=0x0172}
0x20c6…20e4 (21, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W8,UPD005«, t00=0x0015, t01=0x0004}
0x20e4…2102 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W3,UPD010«, t00=0x0015, t01=0x0022}
0x2102…2110 Head {h00=0x000a, h01=0x0050, text=»UPD005«, t00=0x0015, t01=0x0040}
0x2110…212a Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,UPD020 «, t00=0x0015, t01=0x004e}
0x212a…2142 Head {h00=0x0014, h01=0x0050, text=»UPD010 B UPDR50 «, t00=0x0015, t01=0x0068}
0x2142…216c Head {h00=0x0026, h01=0x0050, text=»UPD020 MOVE DEBINW4,W6 FORCED ITEM«, t00=0x0015, t01=0x0080}
0x216c…219a Head {h00=0x002a, h01=0x0050, text=» MOVE BIN3,W0 USED FOR SAV ERRORINDEX «, t00=0x0015, t01=0x00aa}
0x219a…21b8 Head {h00=0x001a, h01=0x0050, text=» CALL FORCED,:FMTITEM «, t00=0x0015, t01=0x00d8}
0x21b8…21cc Head {h00=0x0010, h01=0x0050, text=» BOK UPD030 «, t00=0x0015, t01=0x00f6}
0x21cc…21e8 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABF«, t00=0x0015, t01=0x010a}
0x21e8…21fa Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0015, t01=0x0126}
0x21fa…2208 Head {h00=0x000a, h01=0x0050, text=»UPD030«, t00=0x0015, t01=0x0138}
0x2208…2226 Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0015, t01=0x0146}
0x2226…223c Head {h00=0x0012, h01=0x0050, text=» BZ UPDVAL NO!«, t00=0x0015, t01=0x0164}
0x223c…224a Head {h00=0x000a, h01=0x0050, text=»UPD040«, t00=0x0015, t01=0x017a}
0x224a…226c Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK«, t00=0x0015, t01=0x0188}
0x226c…229c Head {h00=0x002c, h01=0x0050, text=» CALL TESTB,DEBINW4,W13 LOOK IF COND ME «, t00=0x0016, t01=0x001a}
0x229c…22c2 Head {h00=0x0022, h01=0x0050, text=» BZ UPDR35 VALIDATION IF COND «, t00=0x0016, t01=0x004a}
0x22c2…22d4 Head {h00=0x000e, h01=0x0050, text=» B UPDVAL «, t00=0x0016, t01=0x0070}
0x22d4…22e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0082}
0x22e2…22ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22ec…2310 Head {h00=0x0020, h01=0x0050, text=»* ENTERED DATA FROM KEYBOARD«, t00=0x0016, t01=0x009a}
0x2310…231a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00be}
0x231a…2328 Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0016, t01=0x00c8}
0x2328…2352 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,DEBINW4 GET SCHK-NUMBER «, t00=0x0016, t01=0x00d6}
0x2352…2360 Head {h00=0x000a, h01=0x0050, text=»UPD105«, t00=0x0016, t01=0x0100}
0x2360…2386 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW4 JUMP SCHK NUMBER C«, t00=0x0016, t01=0x010e}
0x2386…239c Head {h00=0x0012, h01=0x0050, text=» UPD110 =1 C «, t00=0x0016, t01=0x0134}
0x239c…23b2 Head {h00=0x0012, h01=0x0050, text=» UPD120 =2 C «, t00=0x0016, t01=0x014a}
0x23b2…23c8 Head {h00=0x0012, h01=0x0050, text=» UPD120 =3 C «, t00=0x0016, t01=0x0160}
0x23c8…23de Head {h00=0x0012, h01=0x0050, text=» UPD200 =4 C «, t00=0x0016, t01=0x0176}
0x23de…23f4 Head {h00=0x0012, h01=0x0050, text=» UPD110 =5 C «, t00=0x0016, t01=0x018c}
0x23f4…240a Head {h00=0x0012, h01=0x0050, text=» UPD120 =6 C «, t00=0x0017, t01=0x0012}
0x240a…241e Head {h00=0x0010, h01=0x0050, text=» UPD120 =7 «, t00=0x0017, t01=0x0028}
0x241e…2430 Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0017, t01=0x003c}
0x2430…243e Head {h00=0x000a, h01=0x0050, text=»UPD110«, t00=0x0017, t01=0x004e}
0x243e…2472 Head {h00=0x0030, h01=0x0050, text=» CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS «, t00=0x0017, t01=0x005c}
0x2472…248a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0017, t01=0x0090}
0x248a…24a2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0017, t01=0x00a8}
0x24a2…24ba Head {h00=0x0014, h01=0x0050, text=» MOVE STR1A,='-'«, t00=0x0017, t01=0x00c0}
0x24ba…24ea Head {h00=0x002c, h01=0x0050, text=» INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0«, t00=0x0017, t01=0x00d8}
0x24ea…2510 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0017, t01=0x0108}
0x2510…251e Head {h00=0x000a, h01=0x0050, text=»UPD115«, t00=0x0017, t01=0x012e}
0x251e…2536 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W1 «, t00=0x0017, t01=0x013c}
0x2536…2548 Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0017, t01=0x0154}
0x2548…2556 Head {h00=0x000a, h01=0x0050, text=»UPD120«, t00=0x0017, t01=0x0166}
0x2556…2578 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x0017, t01=0x0174}
0x2578…2594 Head {h00=0x0018, h01=0x0050, text=» SUB DEBINW3,DEBINW1«, t00=0x0018, t01=0x0008}
0x2594…25ba Head {h00=0x0022, h01=0x0050, text=» BZ UPD150 MAXL = INPUTLENGTH «, t00=0x0018, t01=0x0024}
0x25ba…25da Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0018, t01=0x004a}
0x25da…25f0 Head {h00=0x0012, h01=0x0050, text=» BZ UPD130 NO!«, t00=0x0018, t01=0x006a}
0x25f0…261e Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'20' PUT SPACE IN AREA «, t00=0x0018, t01=0x0080}
0x261e…2630 Head {h00=0x000e, h01=0x0050, text=» B UPD140 «, t00=0x0018, t01=0x00ae}
0x2630…263e Head {h00=0x000a, h01=0x0050, text=»UPD130«, t00=0x0018, t01=0x00c0}
0x263e…266c Head {h00=0x002a, h01=0x0050, text=» MOVE STATSH,=X'30' PUT ZERO IN ARTEA «, t00=0x0018, t01=0x00ce}
0x266c…2698 Head {h00=0x0028, h01=0x0050, text=»UPD140 RIGHT ADJUST CURRENT IPNPUT«, t00=0x0018, t01=0x00fc}
0x2698…26c4 Head {h00=0x0028, h01=0x0050, text=» INSRT DEINPUT,W0,DEBINW3,STATSH,W0 «, t00=0x0018, t01=0x0128}
0x26c4…26d2 Head {h00=0x000a, h01=0x0050, text=»UPD150«, t00=0x0018, t01=0x0154}
0x26d2…26ea Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW4,W2 «, t00=0x0018, t01=0x0162}
0x26ea…26fc Head {h00=0x000e, h01=0x0050, text=» B UPD105 «, t00=0x0018, t01=0x017a}
0x26fc…270a Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0018, t01=0x018c}
0x270a…2734 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL3,UPDVAL ENTRY-MODE APPL-«, t00=0x0019, t01=0x000a}
0x2734…275a Head {h00=0x0022, h01=0x0050, text=» VALUE-HANDLING IS EXECUTED «, t00=0x0019, t01=0x0034}
0x275a…2772 Head {h00=0x0014, h01=0x0050, text=» WITHIN DENVAL«, t00=0x0019, t01=0x005a}
0x2772…279a Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL-VALUE«, t00=0x0019, t01=0x0072}
0x279a…27ce Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE«, t00=0x0019, t01=0x009a}
0x27ce…27d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ce}
0x27d8…2804 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0019, t01=0x00d8}
0x2804…280e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x280e…2822 Head {h00=0x0010, h01=0x0050, text=» PERF DEAPPL«, t00=0x0019, t01=0x010e}
0x2822…284e Head {h00=0x0028, h01=0x0050, text=» IB DEBINW3,UPDR15,SETCREAD,ERRPRINT«, t00=0x0019, t01=0x0122}
0x284e…2860 Head {h00=0x000e, h01=0x0050, text=» B UPDR25 «, t00=0x0019, t01=0x014e}
0x2860…286e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0160}
0x286e…2878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016e}
0x2878…28a6 Head {h00=0x002a, h01=0x0050, text=»* LOOK IF THERE ARE A VALIDATIONSTRING«, t00=0x0019, t01=0x0178}
0x28a6…28d2 Head {h00=0x0028, h01=0x0050, text=»* WITHIN THE FORMAT AND EXECUTE IT. «, t00=0x001a, t01=0x0016}
0x28d2…28dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28dc…28ea Head {h00=0x000a, h01=0x0050, text=»UPDVAL«, t00=0x001a, t01=0x004c}
0x28ea…28fe Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL1«, t00=0x001a, t01=0x005a}
0x28fe…2912 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x001a, t01=0x006e}
0x2912…2926 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL6«, t00=0x001a, t01=0x0082}
0x2926…293a Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL7«, t00=0x001a, t01=0x0096}
0x293a…2968 Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL5 ***F=UNVALID/NO COND TAB «, t00=0x001a, t01=0x00aa}
0x2968…299a Head {h00=0x002e, h01=0x0050, text=» CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH «, t00=0x001a, t01=0x00d8}
0x299a…29c6 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN14,W0 ***COND.TAB.-FIELD:=0«, t00=0x001a, t01=0x010a}
0x29c6…29fa Head {h00=0x0030, h01=0x0050, text=» MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 «, t00=0x001a, t01=0x0136}
0x29fa…2a12 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x001a, t01=0x016a}
0x2a12…2a42 Head {h00=0x002c, h01=0x0050, text=» CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x001a, t01=0x0182}
0x2a42…2a6c Head {h00=0x0026, h01=0x0050, text=» BNOK UPDR25 JUMP IF NO VALSTRING «, t00=0x001b, t01=0x0022}
0x2a6c…2aa0 Head {h00=0x0030, h01=0x0050, text=» CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND «, t00=0x001b, t01=0x004c}
0x2aa0…2ad6 Head {h00=0x0032, h01=0x0050, text=» CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED «, t00=0x001b, t01=0x0080}
0x2ad6…2b02 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x001b, t01=0x00b6}
0x2b02…2b10 Head {h00=0x000a, h01=0x0050, text=»UPDV10«, t00=0x001b, t01=0x00e2}
0x2b10…2b28 Head {h00=0x0014, h01=0x0050, text=» PERF DENVAL,W0 «, t00=0x001b, t01=0x00f0}
0x2b28…2b36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0108}
0x2b36…2b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b40…2b60 Head {h00=0x001c, h01=0x0050, text=»* RETURN FROM VALIDATION«, t00=0x001b, t01=0x0120}
0x2b60…2b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0140}
0x2b6a…2b9c Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH«, t00=0x001b, t01=0x014a}
0x2b9c…2bbc Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ERROR-FLAG «, t00=0x001b, t01=0x017c}
0x2bbc…2bce Head {h00=0x000e, h01=0x0050, text=» BZ UPDR20«, t00=0x001c, t01=0x000c}
0x2bce…2bdc Head {h00=0x000a, h01=0x0050, text=»UPDR12«, t00=0x001c, t01=0x001e}
0x2bdc…2bfc Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 L00K IF ALPHA «, t00=0x001c, t01=0x002c}
0x2bfc…2c1e Head {h00=0x001e, h01=0x0050, text=» BNZ UPDR16 JUMP IF ALPHA «, t00=0x001c, t01=0x004c}
0x2c1e…2c42 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,W15 POINTER TO + «, t00=0x001c, t01=0x006e}
0x2c42…2c6e Head {h00=0x0028, h01=0x0050, text=» MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 «, t00=0x001c, t01=0x0092}
0x2c6e…2c82 Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR16«, t00=0x001c, t01=0x00be}
0x2c82…2cac Head {h00=0x0026, h01=0x0050, text=» DLETE DEINPUT,W0,W1 DELETE + OR -«, t00=0x001c, t01=0x00d2}
0x2cac…2cba Head {h00=0x000a, h01=0x0050, text=»UPDR16«, t00=0x001c, t01=0x00fc}
0x2cba…2ce6 Head {h00=0x0028, h01=0x0050, text=» CBE BIN3,W0,UPDR17 JUMP IF NOT MESS«, t00=0x001c, t01=0x010a}
0x2ce6…2d12 Head {h00=0x0028, h01=0x0050, text=» CBE BIN11,W0,UPDR17 JUMP IF NO POOL«, t00=0x001c, t01=0x0136}
0x2d12…2d40 Head {h00=0x002a, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN3«, t00=0x001c, t01=0x0162}
0x2d40…2d4e Head {h00=0x000a, h01=0x0050, text=»UPDR17«, t00=0x001c, t01=0x0190}
0x2d4e…2d7a Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,UPDR13 JUMP IF NOT BALACE«, t00=0x001d, t01=0x000e}
0x2d7a…2d96 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x001d, t01=0x003a}
0x2d96…2da8 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001d, t01=0x0056}
0x2da8…2db6 Head {h00=0x000a, h01=0x0050, text=»UPDR13«, t00=0x001d, t01=0x0068}
0x2db6…2dd4 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x001d, t01=0x0076}
0x2dd4…2dea Head {h00=0x0012, h01=0x0050, text=» BZ UPDR14 NO!«, t00=0x001d, t01=0x0094}
0x2dea…2e16 Head {h00=0x0028, h01=0x0050, text=» DUPL STR2A LOOK IF KEYED INPUT = N «, t00=0x001d, t01=0x00aa}
0x2e16…2e2e Head {h00=0x0014, h01=0x0050, text=» BOK UPDR18 YES!«, t00=0x001d, t01=0x00d6}
0x2e2e…2e4a Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,UPDR14 «, t00=0x001d, t01=0x00ee}
0x2e4a…2e58 Head {h00=0x000a, h01=0x0050, text=»UPDR18«, t00=0x001d, t01=0x010a}
0x2e58…2e82 Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTABI NO KEY INPUT «, t00=0x001d, t01=0x0118}
0x2e82…2e94 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x001d, t01=0x0142}
0x2e94…2ea2 Head {h00=0x000a, h01=0x0050, text=»UPDR14«, t00=0x001d, t01=0x0154}
0x2ea2…2ebe Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABD«, t00=0x001d, t01=0x0162}
0x2ebe…2ed0 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x001d, t01=0x017e}
0x2ed0…2ede Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0190}
0x2ede…2ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2ee8…2f12 Head {h00=0x0026, h01=0x0050, text=»* VALDATION SUCCESSFULLY PERFORMED«, t00=0x001e, t01=0x0018}
0x2f12…2f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f1c…2f2a Head {h00=0x000a, h01=0x0050, text=»UPDR15«, t00=0x001e, t01=0x004c}
0x2f2a…2f56 Head {h00=0x0028, h01=0x0050, text=» UPDFLD 1,DEINPUT UNCONDITIONAL UPD.«, t00=0x001e, t01=0x005a}
0x2f56…2f68 Head {h00=0x000e, h01=0x0050, text=» B UPDR28 «, t00=0x001e, t01=0x0086}
0x2f68…2f76 Head {h00=0x000a, h01=0x0050, text=»UPDR20«, t00=0x001e, t01=0x0098}
0x2f76…2fa0 Head {h00=0x0026, h01=0x0050, text=» IB DEBINW3,UPDR25,SETCREAD,UPDR12«, t00=0x001e, t01=0x00a6}
0x2fa0…2fae Head {h00=0x000a, h01=0x0050, text=»UPDR25«, t00=0x001e, t01=0x00d0}
0x2fae…2fcc Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W1,UPDR15«, t00=0x001e, t01=0x00de}
0x2fcc…2ff8 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 «, t00=0x001e, t01=0x00fc}
0x2ff8…302e Head {h00=0x0032, h01=0x0050, text=» UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x001e, t01=0x0128}
0x302e…303c Head {h00=0x000a, h01=0x0050, text=»UPDR28«, t00=0x001e, t01=0x015e}
0x303c…304e Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x001e, t01=0x016c}
0x304e…3060 Head {h00=0x000e, h01=0x0050, text=» BZ UPDR30«, t00=0x001e, t01=0x017e}
0x3060…307c Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,UPDR33 «, t00=0x001e, t01=0x0190}
0x307c…30a0 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x001f, t01=0x001c}
0x30a0…30b8 Head {h00=0x0014, h01=0x0050, text=» BOK UPDR33 YES!«, t00=0x001f, t01=0x0040}
0x30b8…30ea Head {h00=0x002e, h01=0x0050, text=»UPDR30 SET DECHANGE INDICATE CHANGED ITEM «, t00=0x001f, t01=0x0058}
0x30ea…30f8 Head {h00=0x000a, h01=0x0050, text=»UPDR33«, t00=0x001f, t01=0x008a}
0x30f8…3124 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,UPDR50 JUMP IF NOT ENTRY «, t00=0x001f, t01=0x0098}
0x3124…3132 Head {h00=0x000a, h01=0x0050, text=»UPDR35«, t00=0x001f, t01=0x00c4}
0x3132…3162 Head {h00=0x002c, h01=0x0050, text=» CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x001f, t01=0x00d2}
0x3162…3176 Head {h00=0x0010, h01=0x0050, text=» BNOK UPDR50«, t00=0x001f, t01=0x0102}
0x3176…318a Head {h00=0x0010, h01=0x0050, text=» PERF DEGEN «, t00=0x001f, t01=0x0116}
0x318a…3198 Head {h00=0x000a, h01=0x0050, text=»UPDR40«, t00=0x001f, t01=0x012a}
0x3198…31aa Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x001f, t01=0x0138}
0x31aa…31bc Head {h00=0x000e, h01=0x0050, text=» BZ UPDR45«, t00=0x001f, t01=0x014a}
0x31bc…31d8 Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,UPDR50 «, t00=0x001f, t01=0x015c}
0x31d8…31fc Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x001f, t01=0x0178}
0x31fc…3214 Head {h00=0x0014, h01=0x0050, text=» BOK UPDR50 YES!«, t00=0x0020, t01=0x000c}
0x3214…3222 Head {h00=0x000a, h01=0x0050, text=»UPDR45«, t00=0x0020, t01=0x0024}
0x3222…3238 Head {h00=0x0012, h01=0x0050, text=» SET DECHANGE «, t00=0x0020, t01=0x0032}
0x3238…3246 Head {h00=0x000a, h01=0x0050, text=»UPDR50«, t00=0x0020, t01=0x0048}
0x3246…3272 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGTH = 0«, t00=0x0020, t01=0x0056}
0x3272…3296 Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,KTFWD,DUMMY, C «, t00=0x0020, t01=0x0082}
0x3296…32ba Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0020, t01=0x00a6}
0x32ba…32e6 Head {h00=0x0028, h01=0x0050, text=» KTBWD,KTHOME,KERASE,KKEEP,KEOI, C«, t00=0x0020, t01=0x00ca}
0x32e6…3314 Head {h00=0x002a, h01=0x0050, text=» KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER «, t00=0x0020, t01=0x00f6}
0x3314…332c Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W24«, t00=0x0020, t01=0x0124}
0x332c…334e Head {h00=0x001e, h01=0x0050, text=» BE KASD JUMP IF ASD FLAG «, t00=0x0020, t01=0x013c}
0x334e…337c Head {h00=0x002a, h01=0x0050, text=» SUB DEBINW2,W14 ADJUST EOI-KEY INDEX «, t00=0x0020, t01=0x015e}
0x337c…338a Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0020, t01=0x018c}
0x338a…3398 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0021, t01=0x000a}
0x3398…33a4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0018}
0x33a4…33b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0024}
0x33b2…33d6 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0021, t01=0x0032}
0x33d6…33fc Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x0021, t01=0x0056}
0x33fc…3422 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0021, t01=0x007c}
0x3422…3456 Head {h00=0x0030, h01=0x0050, text=» TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE «, t00=0x0021, t01=0x00a2}
0x3456…348e Head {h00=0x0034, h01=0x0050, text=» TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH«, t00=0x0021, t01=0x00d6}
0x348e…34b2 Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,STSAVE(W3) *** «, t00=0x0021, t01=0x010e}
0x34b2…34e2 Head {h00=0x002c, h01=0x0050, text=» BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE «, t00=0x0021, t01=0x0132}
0x34e2…34fa Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0021, t01=0x0162}
0x34fa…350c Head {h00=0x000e, h01=0x0050, text=» B KENT04 «, t00=0x0021, t01=0x017a}
0x350c…3520 Head {h00=0x0010, h01=0x0050, text=»KEOI10 ***«, t00=0x0021, t01=0x018c}
0x3520…3546 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL5 ***CLEAR /SET CR «, t00=0x0022, t01=0x0010}
0x3546…3578 Head {h00=0x002e, h01=0x0050, text=» BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB«, t00=0x0022, t01=0x0036}
0x3578…35ac Head {h00=0x0030, h01=0x0050, text=» CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB «, t00=0x0022, t01=0x0068}
0x35ac…35de Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR «, t00=0x0022, t01=0x009c}
0x35de…3608 Head {h00=0x0026, h01=0x0050, text=» SUB DEBINW4,W1 ***ADJUST FOR TFWD«, t00=0x0022, t01=0x00ce}
0x3608…3630 Head {h00=0x0024, h01=0x0050, text=» BE KTHOME JUMP IF GOTO FIELD 1 «, t00=0x0022, t01=0x00f8}
0x3630…363e Head {h00=0x000a, h01=0x0050, text=»KEOI15«, t00=0x0022, t01=0x0120}
0x363e…366c Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0022, t01=0x012e}
0x366c…3688 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0022, t01=0x015c}
0x3688…36ba Head {h00=0x002e, h01=0x0050, text=» BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW «, t00=0x0022, t01=0x0178}
0x36ba…36d6 Head {h00=0x0018, h01=0x0050, text=» GETABX DEBINW4 *** «, t00=0x0023, t01=0x001a}
0x36d6…36ee Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0023, t01=0x0036}
0x36ee…3700 Head {h00=0x000e, h01=0x0050, text=» B KEOI15 «, t00=0x0023, t01=0x004e}
0x3700…3714 Head {h00=0x0010, h01=0x0050, text=»KEOI20 ***«, t00=0x0023, t01=0x0060}
0x3714…3734 Head {h00=0x001c, h01=0x0050, text=» CBL DEBINW2,W11,KEOI30 «, t00=0x0023, t01=0x0074}
0x3734…3746 Head {h00=0x000e, h01=0x0050, text=» B KKEEP2 «, t00=0x0023, t01=0x0094}
0x3746…3754 Head {h00=0x000a, h01=0x0050, text=»KEOI30«, t00=0x0023, t01=0x00a6}
0x3754…377a Head {h00=0x0022, h01=0x0050, text=» TBT DOOL3,KEOI40 ENTRY SCREEN«, t00=0x0023, t01=0x00b4}
0x377a…3788 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0023, t01=0x00da}
0x3788…379a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0023, t01=0x00e8}
0x379a…37a8 Head {h00=0x000a, h01=0x0050, text=»KEOI40«, t00=0x0023, t01=0x00fa}
0x37a8…37d2 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0023, t01=0x0108}
0x37d2…37e8 Head {h00=0x0012, h01=0x0050, text=» BZ KEOI45 NO!«, t00=0x0023, t01=0x0132}
0x37e8…381a Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0023, t01=0x0148}
0x381a…3832 Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x0023, t01=0x017a}
0x3832…3840 (36, 0, 400) Head {h00=0x000a, h01=0x0050, text=»KEOI45«, t00=0x0024, t01=0x0004}
0x3840…3858 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0024, t01=0x0012}
0x3858…3870 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x0024, t01=0x002a}
0x3870…389e Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x0024, t01=0x0042}
0x389e…38ba Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x0024, t01=0x0070}
0x38ba…38ce Head {h00=0x0010, h01=0x0050, text=» BNE TSTTAB «, t00=0x0024, t01=0x008c}
0x38ce…38dc Head {h00=0x000a, h01=0x0050, text=»KEOI50«, t00=0x0024, t01=0x00a0}
0x38dc…38ee Head {h00=0x000e, h01=0x0050, text=» TSTCTL 5 «, t00=0x0024, t01=0x00ae}
0x38ee…3902 Head {h00=0x0010, h01=0x0050, text=» BNZ TSTT05 «, t00=0x0024, t01=0x00c0}
0x3902…3914 Head {h00=0x000e, h01=0x0050, text=» B TSTT10 «, t00=0x0024, t01=0x00d4}
0x3914…391e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e6}
0x391e…3946 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0024, t01=0x00f0}
0x3946…395e Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0024, t01=0x0118}
0x395e…397c Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W1,KTBWD2«, t00=0x0024, t01=0x0130}
0x397c…398a Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0024, t01=0x014e}
0x398a…399c Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0024, t01=0x015c}
0x399c…39aa Head {h00=0x000a, h01=0x0050, text=»KTBWD2«, t00=0x0024, t01=0x016e}
0x39aa…39c6 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W3 EOI«, t00=0x0024, t01=0x017c}
0x39c6…39d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0008}
0x39d0…39f6 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0025, t01=0x0012}
0x39f6…3a20 Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KTHOM4 JUMP IF BALANCE «, t00=0x0025, t01=0x0038}
0x3a20…3a3a Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,KTHOM2«, t00=0x0025, t01=0x0062}
0x3a3a…3a54 Head {h00=0x0016, h01=0x0050, text=» TBT KEYVER,KTKEY «, t00=0x0025, t01=0x007c}
0x3a54…3a62 Head {h00=0x000a, h01=0x0050, text=»KTHOM3«, t00=0x0025, t01=0x0096}
0x3a62…3a7a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0025, t01=0x00a4}
0x3a7a…3a9c Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 «, t00=0x0025, t01=0x00bc}
0x3a9c…3aac Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0025, t01=0x00de}
0x3aac…3abe Head {h00=0x000e, h01=0x0050, text=» B READ10 «, t00=0x0025, t01=0x00ee}
0x3abe…3acc Head {h00=0x000a, h01=0x0050, text=»KTHOM4«, t00=0x0025, t01=0x0100}
0x3acc…3af6 Head {h00=0x0026, h01=0x0050, text=» SET ASDFLAG SET ASD WHEN BALANCE «, t00=0x0025, t01=0x010e}
0x3af6…3b22 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUT.LENGTH=0«, t00=0x0025, t01=0x0138}
0x3b22…3b40 Head {h00=0x001a, h01=0x0050, text=» WHEN BALANCE-FORMAT«, t00=0x0025, t01=0x0164}
0x3b40…3b4e Head {h00=0x000a, h01=0x0050, text=»KTHOM2«, t00=0x0025, t01=0x0182}
0x3b4e…3b5c Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0025, t01=0x0190}
0x3b5c…3b7c Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0026, t01=0x000e}
0x3b7c…3b92 Head {h00=0x0012, h01=0x0050, text=» BE TSTT10 OK «, t00=0x0026, t01=0x002e}
0x3b92…3bae Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0026, t01=0x0044}
0x3bae…3bda Head {h00=0x0028, h01=0x0050, text=» BOFL KENT15 EMPTY COMPULSORY FIELD «, t00=0x0026, t01=0x0060}
0x3bda…3be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008c}
0x3be4…3bf2 Head {h00=0x000a, h01=0x0050, text=»TSTT05«, t00=0x0026, t01=0x0096}
0x3bf2…3c16 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0026, t01=0x00a4}
0x3c16…3c32 Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,TSTT15«, t00=0x0026, t01=0x00c8}
0x3c32…3c56 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x0026, t01=0x00e4}
0x3c56…3c6e Head {h00=0x0014, h01=0x0050, text=» BOK TSTT07 YES!«, t00=0x0026, t01=0x0108}
0x3c6e…3c8a Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,TSTT15 «, t00=0x0026, t01=0x0120}
0x3c8a…3c98 Head {h00=0x000a, h01=0x0050, text=»TSTT07«, t00=0x0026, t01=0x013c}
0x3c98…3cac Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x0026, t01=0x014a}
0x3cac…3cca Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,TSTT15«, t00=0x0026, t01=0x015e}
0x3cca…3cee Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,DUMMY,DUMMY, C «, t00=0x0026, t01=0x017c}
0x3cee…3d14 Head {h00=0x0022, h01=0x0050, text=» KTEOI,DUMMY,DUMMY,KTEOI, C «, t00=0x0027, t01=0x0010}
0x3d14…3d30 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTEOI,KKEEP «, t00=0x0027, t01=0x0036}
0x3d30…3d3e Head {h00=0x000a, h01=0x0050, text=»TSTT15«, t00=0x0027, t01=0x0052}
0x3d3e…3d52 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0027, t01=0x0060}
0x3d52…3d60 Head {h00=0x000a, h01=0x0050, text=»TSTT10«, t00=0x0027, t01=0x0074}
0x3d60…3d7a Head {h00=0x0016, h01=0x0050, text=» TBF AUTENT,TSTT15«, t00=0x0027, t01=0x0082}
0x3d7a…3da4 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL3,TSTT15 NOT ENTRY SCREEN«, t00=0x0027, t01=0x009c}
0x3da4…3dcc Head {h00=0x0024, h01=0x0050, text=» TBT DOOLA,TSTT15 BALANCE FORMAT«, t00=0x0027, t01=0x00c6}
0x3dcc…3dee Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0027, t01=0x00ee}
0x3dee…3e0e Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,TSTT15 «, t00=0x0027, t01=0x0110}
0x3e0e…3e20 Head {h00=0x000e, h01=0x0050, text=» B KENT06 «, t00=0x0027, t01=0x0130}
0x3e20…3e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0142}
0x3e2e…3e3c Head {h00=0x000a, h01=0x0050, text=»KTKEY «, t00=0x0027, t01=0x0150}
0x3e3c…3e52 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W0«, t00=0x0027, t01=0x015e}
0x3e52…3e60 Head {h00=0x000a, h01=0x0050, text=»KTKEY2«, t00=0x0027, t01=0x0174}
0x3e60…3e76 Head {h00=0x0012, h01=0x0050, text=» ADD BIN11,W1 «, t00=0x0027, t01=0x0182}
0x3e76…3eb4 Head {h00=0x003a, h01=0x0050, text=» CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER«, t00=0x0028, t01=0x0008}
0x3eb4…3ed0 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0028, t01=0x0046}
0x3ed0…3ef8 Head {h00=0x0024, h01=0x0050, text=» BZ SETCREAD JUMP IF VERIFYFIELD«, t00=0x0028, t01=0x0062}
0x3ef8…3f0a Head {h00=0x000e, h01=0x0050, text=» B KTHOM3 «, t00=0x0028, t01=0x008a}
0x3f0a…3f18 Head {h00=0x000a, h01=0x0050, text=»KTEOI «, t00=0x0028, t01=0x009c}
0x3f18…3f30 Head {h00=0x0014, h01=0x0050, text=» TBF DOOL3,KTFWD«, t00=0x0028, t01=0x00aa}
0x3f30…3f48 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x0028, t01=0x00c2}
0x3f48…3f56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00da}
0x3f56…3f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e8}
0x3f60…3f76 Head {h00=0x0012, h01=0x0050, text=»* DUPL KEY«, t00=0x0028, t01=0x00f2}
0x3f76…3f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0108}
0x3f80…3f8e Head {h00=0x000a, h01=0x0050, text=»KDUPL «, t00=0x0028, t01=0x0112}
0x3f8e…3fa2 Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0028, t01=0x0120}
0x3fa2…3fb6 Head {h00=0x0010, h01=0x0050, text=» BNOK KTEOI2«, t00=0x0028, t01=0x0134}
0x3fb6…3fdc Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,KTEOI,DUMMY,UPDATE«, t00=0x0028, t01=0x0148}
0x3fdc…3fea Head {h00=0x000a, h01=0x0050, text=»KTEOI2«, t00=0x0028, t01=0x016e}
0x3fea…4008 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0028, t01=0x017c}
0x4008…4020 Head {h00=0x0014, h01=0x0050, text=» BNZ KTEOI4 YES!«, t00=0x0029, t01=0x000a}
0x4020…402e Head {h00=0x000a, h01=0x0050, text=»KTEOI3«, t00=0x0029, t01=0x0022}
0x402e…4056 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,KCOP10,ERRRET,ERRRET«, t00=0x0029, t01=0x0030}
0x4056…406a Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0029, t01=0x0058}
0x406a…4078 Head {h00=0x000a, h01=0x0050, text=»KTEOI4«, t00=0x0029, t01=0x006c}
0x4078…40a0 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET«, t00=0x0029, t01=0x007a}
0x40a0…40b4 Head {h00=0x0010, h01=0x0050, text=» DUPL STR2A «, t00=0x0029, t01=0x00a2}
0x40b4…40c8 Head {h00=0x0010, h01=0x0050, text=» BOK KENT20 «, t00=0x0029, t01=0x00b6}
0x40c8…40e4 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KTEOI3 «, t00=0x0029, t01=0x00ca}
0x40e4…40f6 Head {h00=0x000e, h01=0x0050, text=» B KENT20 «, t00=0x0029, t01=0x00e6}
0x40f6…4100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f8}
0x4100…4118 Head {h00=0x0014, h01=0x0050, text=»* STATUS KEY«, t00=0x0029, t01=0x0102}
0x4118…4122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x011a}
0x4122…413c Head {h00=0x0016, h01=0x0050, text=»STATUS PERF DESTAT«, t00=0x0029, t01=0x0124}
0x413c…4154 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0029, t01=0x013e}
0x4154…4166 Head {h00=0x000e, h01=0x0050, text=» B ERRP10 «, t00=0x0029, t01=0x0156}
0x4166…4170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0168}
0x4170…4188 Head {h00=0x0014, h01=0x0050, text=»* PRINT KEY «, t00=0x0029, t01=0x0172}
0x4188…4192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x018a}
0x4192…41ac (42, 0, 400) Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x002a, t01=0x0004}
0x41ac…41d0 Head {h00=0x0020, h01=0x0050, text=» PERF ATTPRT RESERVE PRINTER«, t00=0x002a, t01=0x001e}
0x41d0…41e6 Head {h00=0x0012, h01=0x0050, text=» BNOK ERRPRINT«, t00=0x002a, t01=0x0042}
0x41e6…420c Head {h00=0x0022, h01=0x0050, text=» EDWRT DEDSPRT,FORMF FORMFEED «, t00=0x002a, t01=0x0058}
0x420c…4224 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x002a, t01=0x007e}
0x4224…4246 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x002a, t01=0x0096}
0x4246…426a Head {h00=0x0020, h01=0x0050, text=» PERF DETPRT RELEASE PRINTER«, t00=0x002a, t01=0x00b8}
0x426a…4278 Head {h00=0x000a, h01=0x0050, text=»KCOP10«, t00=0x002a, t01=0x00dc}
0x4278…42a0 Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x002a, t01=0x00ea}
0x42a0…42be Head {h00=0x001a, h01=0x0050, text=»KASD ASD-KEY PRESSED«, t00=0x002a, t01=0x0112}
0x42be…42ea Head {h00=0x0028, h01=0x0050, text=» TBF DOOLA,KASD2 JUMP IF NOT BALANCE«, t00=0x002a, t01=0x0130}
0x42ea…42fe Head {h00=0x0010, h01=0x0050, text=» SET ASDFLAG«, t00=0x002a, t01=0x015c}
0x42fe…430e Head {h00=0x000c, h01=0x0050, text=» B KASD3«, t00=0x002a, t01=0x0170}
0x430e…431c Head {h00=0x000a, h01=0x0050, text=»KASD2 «, t00=0x002a, t01=0x0180}
0x431c…4330 Head {h00=0x0010, h01=0x0050, text=» INV ASDFLAG«, t00=0x002a, t01=0x018e}
0x4330…433e Head {h00=0x000a, h01=0x0050, text=»KASD3 «, t00=0x002b, t01=0x0012}
0x433e…435e Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W14,DEKTAB4«, t00=0x002b, t01=0x0020}
0x435e…4384 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI «, t00=0x002b, t01=0x0040}
0x4384…4396 Head {h00=0x000e, h01=0x0050, text=» B KEOI50 «, t00=0x002b, t01=0x0066}
0x4396…43a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0078}
0x43a4…43ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0086}
0x43ae…43c6 Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x002b, t01=0x0090}
0x43c6…43d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a8}
0x43d0…43de Head {h00=0x000a, h01=0x0050, text=»KEDITX«, t00=0x002b, t01=0x00b2}
0x43de…43fc Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002b, t01=0x00c0}
0x43fc…440e Head {h00=0x000e, h01=0x0050, text=» BZ KED050«, t00=0x002b, t01=0x00de}
0x440e…4438 Head {h00=0x0026, h01=0x0050, text=» DUPL STR2A LOOK IF KEYED INPUT =N«, t00=0x002b, t01=0x00f0}
0x4438…4450 Head {h00=0x0014, h01=0x0050, text=» BOK KED025 YES!«, t00=0x002b, t01=0x011a}
0x4450…446c Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KED050 «, t00=0x002b, t01=0x0132}
0x446c…447a Head {h00=0x000a, h01=0x0050, text=»KED025«, t00=0x002b, t01=0x014e}
0x447a…4498 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW2,W5 RBWD «, t00=0x002b, t01=0x015c}
0x4498…44b0 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x002b, t01=0x017a}
0x44b0…44c2 (44, 0, 398) Head {h00=0x000e, h01=0x0050, text=» B ERRET1 «, t00=0x002c, t01=0x0004}
0x44c2…44d0 Head {h00=0x000a, h01=0x0050, text=»KED050«, t00=0x002c, t01=0x0016}
0x44d0…44ee Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW1,W0,KEDITY«, t00=0x002c, t01=0x0024}
0x44ee…4506 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W1«, t00=0x002c, t01=0x0042}
0x4506…4514 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x002c, t01=0x005a}
0x4514…4536 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW3 GET MAXL«, t00=0x002c, t01=0x0068}
0x4536…4556 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW3,W0,KED100 «, t00=0x002c, t01=0x008a}
0x4556…4582 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x002c, t01=0x00aa}
0x4582…4596 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x002c, t01=0x00d6}
0x4596…45a4 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x002c, t01=0x00ea}
0x45a4…45c6 Head {h00=0x001e, h01=0x0050, text=» GETCTL 3,DEBINW3 GET SCHK«, t00=0x002c, t01=0x00f8}
0x45c6…45ec Head {h00=0x0022, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 MINUS «, t00=0x002c, t01=0x011a}
0x45ec…45fe Head {h00=0x000e, h01=0x0050, text=» BZ KED200«, t00=0x002c, t01=0x0140}
0x45fe…4628 Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTABB,DEBINW1, C«, t00=0x002c, t01=0x0152}
0x4628…4642 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x002c, t01=0x017c}
0x4642…4654 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x002d, t01=0x0008}
0x4654…4662 Head {h00=0x000a, h01=0x0050, text=»KED200«, t00=0x002d, t01=0x001a}
0x4662…468c Head {h00=0x0026, h01=0x0050, text=» EDFLD DEINPUT,DEKTAB3,DEBINW1, C«, t00=0x002d, t01=0x0028}
0x468c…46a6 Head {h00=0x0016, h01=0x0050, text=» DEBINW2,DEBINW4 «, t00=0x002d, t01=0x0052}
0x46a6…46cc Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x002d, t01=0x006c}
0x46cc…46da Head {h00=0x000a, h01=0x0050, text=»KEDITY«, t00=0x002d, t01=0x0092}
0x46da…46ea Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x002d, t01=0x00a0}
0x46ea…46fa Head {h00=0x000c, h01=0x0050, text=» B KEDIT«, t00=0x002d, t01=0x00b0}
0x46fa…4704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c0}
0x4704…471e Head {h00=0x0016, h01=0x0050, text=»* ERASE KEY «, t00=0x002d, t01=0x00ca}
0x471e…4728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e4}
0x4728…4736 Head {h00=0x000a, h01=0x0050, text=»KERASE«, t00=0x002d, t01=0x00ee}
0x4736…474e Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x002d, t01=0x00fc}
0x474e…476a Head {h00=0x0018, h01=0x0050, text=» ERASE 10,DEBINW4,W0«, t00=0x002d, t01=0x0114}
0x476a…4784 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x002d, t01=0x0130}
0x4784…479e Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W12 «, t00=0x002d, t01=0x014a}
0x479e…47b0 Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x002d, t01=0x0164}
0x47b0…47ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0176}
0x47ba…47d0 Head {h00=0x0012, h01=0x0050, text=»* KEEP KEY «, t00=0x002d, t01=0x0180}
0x47d0…47da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0008}
0x47da…47e8 Head {h00=0x000a, h01=0x0050, text=»KKEEP «, t00=0x002e, t01=0x0012}
0x47e8…4814 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL3,KENT03 JUMP IF NOT ENTRY «, t00=0x002e, t01=0x0020}
0x4814…4822 Head {h00=0x000a, h01=0x0050, text=»KKEEP0«, t00=0x002e, t01=0x004c}
0x4822…484c Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KKEEP2 «, t00=0x002e, t01=0x005a}
0x484c…485a Head {h00=0x000a, h01=0x0050, text=»KKEEP1«, t00=0x002e, t01=0x0084}
0x485a…487c Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x002e, t01=0x0092}
0x487c…489a Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT07«, t00=0x002e, t01=0x00b4}
0x489a…48c4 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x002e, t01=0x00d2}
0x48c4…48da Head {h00=0x0012, h01=0x0050, text=» BZ KKEEP3 NO!«, t00=0x002e, t01=0x00fc}
0x48da…490c Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x002e, t01=0x0112}
0x490c…4924 Head {h00=0x0014, h01=0x0050, text=» BP KENT15 YES! «, t00=0x002e, t01=0x0144}
0x4924…4932 Head {h00=0x000a, h01=0x0050, text=»KKEEP3«, t00=0x002e, t01=0x015c}
0x4932…4954 Head {h00=0x001e, h01=0x0050, text=» CMP DEBINW2,W12 ERASE KEY«, t00=0x002e, t01=0x016a}
0x4954…4966 Head {h00=0x000e, h01=0x0050, text=» BZ UPD040«, t00=0x002e, t01=0x018c}
0x4966…4978 Head {h00=0x000e, h01=0x0050, text=» B UPD020 «, t00=0x002f, t01=0x000e}
0x4978…4986 Head {h00=0x000a, h01=0x0050, text=»KKEEP2«, t00=0x002f, t01=0x0020}
0x4986…4998 Head {h00=0x000e, h01=0x0050, text=» SET DOOL5«, t00=0x002f, t01=0x002e}
0x4998…49b0 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x002f, t01=0x0040}
0x49b0…49c8 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W1 «, t00=0x002f, t01=0x0058}
0x49c8…49f6 Head {h00=0x002a, h01=0x0050, text=» CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 «, t00=0x002f, t01=0x0070}
0x49f6…4a12 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DKBIN1 «, t00=0x002f, t01=0x009e}
0x4a12…4a24 Head {h00=0x000e, h01=0x0050, text=» BE KKEEP5«, t00=0x002f, t01=0x00ba}
0x4a24…4a38 Head {h00=0x0010, h01=0x0050, text=» BL SETCREAD«, t00=0x002f, t01=0x00cc}
0x4a38…4a4c Head {h00=0x0010, h01=0x0050, text=» BOFL KENT10«, t00=0x002f, t01=0x00e0}
0x4a4c…4a5e Head {h00=0x000e, h01=0x0050, text=» B KKEEP4 «, t00=0x002f, t01=0x00f4}
0x4a5e…4a6c Head {h00=0x000a, h01=0x0050, text=»KKEEP5«, t00=0x002f, t01=0x0106}
0x4a6c…4a8a Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x002f, t01=0x0114}
0x4a8a…4a9c Head {h00=0x000e, h01=0x0050, text=» BZ KKEEP1«, t00=0x002f, t01=0x0132}
0x4a9c…4ac0 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N?«, t00=0x002f, t01=0x0144}
0x4ac0…4ad4 Head {h00=0x0010, h01=0x0050, text=» BOK KKEEP4 «, t00=0x002f, t01=0x0168}
0x4ad4…4af0 Head {h00=0x0018, h01=0x0050, text=» TBF ASDFLAG,KKEEP1 «, t00=0x002f, t01=0x017c}
0x4af0…4afe Head {h00=0x000a, h01=0x0050, text=»KKEEP4«, t00=0x0030, t01=0x0008}
0x4afe…4b12 Head {h00=0x0010, h01=0x0050, text=» PERF DETCHK«, t00=0x0030, t01=0x0016}
0x4b12…4b30 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW3,W0,KKEEP1«, t00=0x0030, t01=0x002a}
0x4b30…4b5a Head {h00=0x0026, h01=0x0050, text=» TBT DOOLA,KKEEP1 JUMP IF BALANCE «, t00=0x0030, t01=0x0048}
0x4b5a…4b80 Head {h00=0x0022, h01=0x0050, text=» CBE DEBINW2,W12,KKEEP1 ERASE «, t00=0x0030, t01=0x0072}
0x4b80…4b94 Head {h00=0x0010, h01=0x0050, text=» PERF DENDUP«, t00=0x0030, t01=0x0098}
0x4b94…4ba8 Head {h00=0x0010, h01=0x0050, text=» BNOK KENT20«, t00=0x0030, t01=0x00ac}
0x4ba8…4bd0 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW2,W11 SIMULATE KEEP «, t00=0x0030, t01=0x00c0}
0x4bd0…4be2 Head {h00=0x000e, h01=0x0050, text=» B KKEEP1 «, t00=0x0030, t01=0x00e8}
0x4be2…4bf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00fa}
0x4bf0…4bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0108}
0x4bfa…4c10 Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY «, t00=0x0030, t01=0x0112}
0x4c10…4c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0128}
0x4c1a…4c28 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0030, t01=0x0132}
0x4c28…4c42 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,KENT03 «, t00=0x0030, t01=0x0140}
0x4c42…4c5c Head {h00=0x0016, h01=0x0050, text=» TBT AUTENT,KKEEP0«, t00=0x0030, t01=0x015a}
0x4c5c…4c7e Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,DEBINW4 GET MAXL«, t00=0x0030, t01=0x0174}
0x4c7e…4c9c Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,KENT06«, t00=0x0031, t01=0x0008}
0x4c9c…4cc8 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0031, t01=0x0026}
0x4cc8…4cdc Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0031, t01=0x0052}
0x4cdc…4cea Head {h00=0x000a, h01=0x0050, text=»KENT06«, t00=0x0031, t01=0x0066}
0x4cea…4d0e Head {h00=0x0020, h01=0x0050, text=» SET DECHANGE AT LEAST ONCE «, t00=0x0031, t01=0x0074}
0x4d0e…4d1c Head {h00=0x000a, h01=0x0050, text=»KENT04«, t00=0x0031, t01=0x0098}
0x4d1c…4d52 Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED «, t00=0x0031, t01=0x00a6}
0x4d52…4d5e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x00dc}
0x4d5e…4d6c Head {h00=0x000a, h01=0x0050, text=»KENT03«, t00=0x0031, t01=0x00e8}
0x4d6c…4d9a Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW1,W0 INDICATE NO CLEARING «, t00=0x0031, t01=0x00f6}
0x4d9a…4dda Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0031, t01=0x0124}
0x4dda…4e06 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0031, t01=0x0164}
0x4e06…4e30 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0031, t01=0x0190}
0x4e30…4e46 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0032, t01=0x002a}
0x4e46…4e78 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0032, t01=0x0040}
0x4e78…4e90 Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0032, t01=0x0072}
0x4e90…4e9e Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0032, t01=0x008a}
0x4e9e…4eca Head {h00=0x0028, h01=0x0050, text=» TBT DOOL3,KENT07 JUMP IF ENTRY-MODE«, t00=0x0032, t01=0x0098}
0x4eca…4ee8 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W9,KENT07«, t00=0x0032, t01=0x00c4}
0x4ee8…4f08 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW2,W10,KENT06«, t00=0x0032, t01=0x00e2}
0x4f08…4f16 Head {h00=0x000a, h01=0x0050, text=»KENT07«, t00=0x0032, t01=0x0102}
0x4f16…4f30 Head {h00=0x0016, h01=0x0050, text=» TBT AUTENT,KENT06«, t00=0x0032, t01=0x0110}
0x4f30…4f44 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0032, t01=0x012a}
0x4f44…4f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f4e…4f78 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0032, t01=0x0148}
0x4f78…4f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0172}
0x4f82…4f90 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0032, t01=0x017c}
0x4f90…4fca Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD«, t00=0x0032, t01=0x018a}
0x4fca…4fd8 Head {h00=0x000a, h01=0x0050, text=»KENT15«, t00=0x0033, t01=0x0034}
0x4fd8…500a Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND«, t00=0x0033, t01=0x0042}
0x500a…5022 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0033, t01=0x0074}
0x5022…5040 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0033, t01=0x008c}
0x5040…5058 Head {h00=0x0014, h01=0x0050, text=» BZ ERRPRINT NO!«, t00=0x0033, t01=0x00aa}
0x5058…506c Head {h00=0x0010, h01=0x0050, text=» DUPL STR2A «, t00=0x0033, t01=0x00c2}
0x506c…5084 Head {h00=0x0014, h01=0x0050, text=» BOK KENT20 YES!«, t00=0x0033, t01=0x00d6}
0x5084…50a2 Head {h00=0x001a, h01=0x0050, text=» TBF ASDFLAG,ERRPRINT «, t00=0x0033, t01=0x00ee}
0x50a2…50b8 Head {h00=0x0012, h01=0x0050, text=»KENT20 YES! «, t00=0x0033, t01=0x010c}
0x50b8…50d4 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABI«, t00=0x0033, t01=0x0122}
0x50d4…50e6 Head {h00=0x000e, h01=0x0050, text=» B ERRP25 «, t00=0x0033, t01=0x013e}
0x50e6…50f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0150}
0x50f4…50fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015e}
0x50fe…511c Head {h00=0x001a, h01=0x0050, text=»* INDICATE FORCED ITEM«, t00=0x0033, t01=0x0168}
0x511c…5126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0186}
0x5126…5134 Head {h00=0x000a, h01=0x0050, text=»KFORCE«, t00=0x0033, t01=0x0190}
0x5134…5148 Head {h00=0x0010, h01=0x0050, text=» PERF DEFORC«, t00=0x0034, t01=0x000e}
0x5148…515a Head {h00=0x000e, h01=0x0050, text=» B UPDR30 «, t00=0x0034, t01=0x0022}
0x515a…5164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0034}
0x5164…5178 Head {h00=0x0010, h01=0x0050, text=»* VALID ITEM«, t00=0x0034, t01=0x003e}
0x5178…5182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0052}
0x5182…5190 Head {h00=0x000a, h01=0x0050, text=»KVALID«, t00=0x0034, t01=0x005c}
0x5190…51bc Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW2,W3 RESTORE ITEMLENGTH «, t00=0x0034, t01=0x006a}
0x51bc…51ce Head {h00=0x000e, h01=0x0050, text=» B UPDR25 «, t00=0x0034, t01=0x0096}
0x51ce…51dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00a8}
0x51dc…51ea Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0034, t01=0x00b6}
0x51ea…5202 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W16«, t00=0x0034, t01=0x00c4}
0x5202…5220 Head {h00=0x001a, h01=0x0050, text=» BE KEDIT JUMP IF EDIT«, t00=0x0034, t01=0x00dc}
0x5220…5250 Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1«, t00=0x0034, t01=0x00fa}
0x5250…5280 Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2«, t00=0x0034, t01=0x012a}
0x5280…52a0 Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x0034, t01=0x015a}
0x52a0…52be Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W64«, t00=0x0034, t01=0x017a}
0x52be…52d2 Head {h00=0x0010, h01=0x0050, text=» BNZ DYK050 «, t00=0x0035, t01=0x0008}
0x52d2…52dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x001c}
0x52dc…52f8 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x0035, t01=0x0026}
0x52f8…5302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0042}
0x5302…5312 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x0035, t01=0x004c}
0x5312…5340 Head {h00=0x002a, h01=0x0050, text=» TBF DOOLA,ERRP10 JUMP IF NOT BALANCE «, t00=0x0035, t01=0x005c}
0x5340…535c Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0035, t01=0x008a}
0x535c…536e Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0035, t01=0x00a6}
0x536e…537c Head {h00=0x000a, h01=0x0050, text=»ERRP10«, t00=0x0035, t01=0x00b8}
0x537c…5398 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x0035, t01=0x00c6}
0x5398…53a6 Head {h00=0x000a, h01=0x0050, text=»ERRP20«, t00=0x0035, t01=0x00e2}
0x53a6…53ce Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W1,ERRCAN CLEAR-KEY«, t00=0x0035, t01=0x00f0}
0x53ce…53dc Head {h00=0x000a, h01=0x0050, text=»ERRP25«, t00=0x0035, t01=0x0118}
0x53dc…540e Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C«, t00=0x0035, t01=0x0126}
0x540e…5432 Head {h00=0x0020, h01=0x0050, text=» KVALID,KFORCE,KTBWD,KTHOME«, t00=0x0035, t01=0x0158}
0x5432…5440 Head {h00=0x000a, h01=0x0050, text=»ERRRET«, t00=0x0035, t01=0x017c}
0x5440…5458 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW2,W2 «, t00=0x0035, t01=0x018a}
0x5458…5470 Head {h00=0x0014, h01=0x0050, text=»ERRCAN PERF CANC«, t00=0x0036, t01=0x0012}
0x5470…5484 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL5«, t00=0x0036, t01=0x002a}
0x5484…54a2 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 5 LOOK IF CTAB«, t00=0x0036, t01=0x003e}
0x54a2…54b4 Head {h00=0x000e, h01=0x0050, text=» BZ ERRCA1«, t00=0x0036, t01=0x005c}
0x54b4…54d0 Head {h00=0x0018, h01=0x0050, text=» TBT ASDFLAG,ERRET4 «, t00=0x0036, t01=0x006e}
0x54d0…54f4 Head {h00=0x0020, h01=0x0050, text=» DUPL STR2A KEYED INPUT = N «, t00=0x0036, t01=0x008a}
0x54f4…550c Head {h00=0x0014, h01=0x0050, text=» BOK ERRET4 YES!«, t00=0x0036, t01=0x00ae}
0x550c…551a Head {h00=0x000a, h01=0x0050, text=»ERRCA1«, t00=0x0036, t01=0x00c6}
0x551a…5546 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,CONT3 «, t00=0x0036, t01=0x00d4}
0x5546…5554 Head {h00=0x000a, h01=0x0050, text=»ERRET0«, t00=0x0036, t01=0x0100}
0x5554…5586 Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2«, t00=0x0036, t01=0x010e}
0x5586…5594 Head {h00=0x000a, h01=0x0050, text=»ERRET1«, t00=0x0036, t01=0x0140}
0x5594…55ae Head {h00=0x0016, h01=0x0050, text=» TBT DOOL3,ERRET2 «, t00=0x0036, t01=0x014e}
0x55ae…55c6 Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x0036, t01=0x0168}
0x55c6…55d4 Head {h00=0x000a, h01=0x0050, text=»ERRET2«, t00=0x0036, t01=0x0180}
0x55d4…55e0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x018e}
0x55e0…55ee Head {h00=0x000a, h01=0x0050, text=»ERRET4«, t00=0x0037, t01=0x000a}
0x55ee…561a Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,SETCREAD,SETCREAD,ERRET5«, t00=0x0037, t01=0x0018}
0x561a…562c Head {h00=0x000e, h01=0x0050, text=» B ERRET0 «, t00=0x0037, t01=0x0044}
0x562c…563a Head {h00=0x000a, h01=0x0050, text=»ERRET5«, t00=0x0037, t01=0x0056}
0x563a…5660 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W8 SIMULATE TBWD«, t00=0x0037, t01=0x0064}
0x5660…5670 Head {h00=0x000c, h01=0x0050, text=» B KTBWD«, t00=0x0037, t01=0x008a}
0x5670…567e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x009a}
0x567e…5688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a8}
0x5688…569a Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0037, t01=0x00b2}
0x569a…56a6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0037, t01=0x00c4}
0x56a6…56bc Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0037, t01=0x00d0}
0x56bc…56ca Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0037, t01=0x00e6}
0x56ca…56dc Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x0037, t01=0x00f4}
0x56dc…56f0 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0037, t01=0x0106}
0x56f0…56fe Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0037, t01=0x011a}
0x56fe…570a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0037, t01=0x0128}
0x570a…570e Head {h00=0x4004, h01=0x0000}
0x570e…5712 00 37 01 34 ┆ 7 4┆
0x5712…571a (56, 1, 8) 20 04 00 00 00 38 00 04 ┆ 8 ┆
0x571a…576a (57, 0, 400) 00 20 00 0d 00 00 00 bc 44 45 32 33 53 54 00 e0 00 07 00 07 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 32 05 05 c8 44 45 32 33 53 54 00 00 00 02 1d a8 41 54 54 44 42 c8 41 54 54 50 52 54 54 a8 41 54 54 57 42 c8 44 45 32 31 53 ┆ DE23ST 801105 $$$TRA2 DE23ST ATTDB ATTPRTT ATTWB DE21S┆
0x576a…57ba 54 2d c8 44 45 43 4c 52 41 31 c8 44 45 44 49 53 43 4c c8 44 45 50 4f 4f 4c 30 88 44 45 52 52 31 02 1f c8 44 45 52 52 4f 52 00 c8 44 45 53 54 41 54 00 c8 44 45 54 50 52 54 00 a8 46 45 44 49 54 c8 50 52 46 47 55 46 00 c8 52 45 53 54 4f 52 00 ┆T- DECLRA1 DEDISCL DEPOOL0 DERR1 DERROR DESTAT DETPRT FEDIT PRFGUF RESTOR ┆
0x57ba…580a c8 54 3a 41 54 54 46 00 c8 54 3a 44 49 53 50 00 02 04 c8 54 3a 47 45 54 46 41 07 04 00 00 00 20 01 bd 00 00 00 8c 44 45 32 34 53 54 00 e7 00 04 00 04 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 32 05 05 c8 44 45 32 34 53 54 00 ┆ T:ATTF T:DISP T:GETFA DE24ST 801105 $$$TRA2 DE24ST ┆
0x580a…585a 00 00 02 1d a8 41 54 54 44 42 c8 44 45 43 4c 52 41 54 c8 44 45 44 49 53 43 20 c8 44 45 50 4f 4f 4c 30 88 44 45 52 52 31 c8 44 45 52 52 4f 52 4c a8 46 45 44 49 54 c8 52 45 53 54 4f 52 31 02 0c c8 54 3a 41 54 54 46 00 c8 54 3a 44 49 53 50 00 ┆ ATTDB DECLRAT DEDISC DEPOOL0 DERR1 DERRORL FEDIT RESTOR1 T:ATTF T:DISP ┆
0x585a…58aa c8 54 3a 47 45 54 46 00 07 04 00 00 00 20 00 a4 00 00 00 6e 44 45 33 30 53 54 00 eb 00 03 00 03 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 33 05 05 c8 44 45 33 30 53 54 00 00 00 02 1b c8 44 45 33 31 53 54 33 c8 44 45 43 4c 52 ┆ T:GETF nDE30ST 801105 $$$TRA3 DE30ST DE31ST3 DECLR┆
0x58aa…58fa (58, 0, 400) 41 41 c8 44 45 50 4d 53 4b 30 c8 44 45 50 52 55 54 46 88 44 45 52 52 31 c8 52 45 53 54 4f 52 31 c8 54 3a 41 54 54 46 30 07 04 00 00 00 20 00 4d 00 00 00 b6 44 45 33 31 53 54 00 ee 00 0d 00 0d 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 ┆AA DEPMSK0 DEPRUTF DERR1 RESTOR1 T:ATTF0 M DE31ST 801105 $$$┆
0x58fa…594a 54 52 41 33 05 0a c8 44 45 33 31 53 54 00 00 00 c8 44 45 41 50 33 41 00 01 a6 02 1e a8 41 54 54 57 42 c8 44 45 41 4e 4f 4b 54 c8 44 45 41 4f 4b 30 20 c8 44 45 43 4c 52 41 30 c8 44 45 43 4c 52 4e 31 c8 44 45 44 49 53 43 31 c8 44 45 50 4f 4f ┆TRA3 DE31ST DEAP3A ATTWB DEANOKT DEAOK0 DECLRA0 DECLRN1 DEDISC1 DEPOO┆
0x594a…599a 4c 30 88 44 45 52 52 20 02 1b c8 44 45 52 52 4f 52 00 c8 45 4d 50 54 59 54 33 c8 54 3a 41 54 54 46 00 c8 54 3a 44 49 53 50 00 c8 54 3a 45 52 41 53 00 c8 54 3a 47 45 54 46 00 a8 54 45 53 54 42 07 04 00 00 00 20 01 e7 00 00 00 9e 44 45 34 30 ┆L0 DERR DERROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GETF TESTB DE40┆
0x599a…59ea 53 54 00 fb 00 09 00 09 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 34 05 05 c8 44 45 34 30 53 54 00 00 00 02 1c c8 44 45 43 4c 52 41 34 c8 44 45 43 4c 52 4e 41 c8 44 45 43 4c 52 53 30 c8 44 45 4e 54 30 31 46 c8 44 45 4f 50 42 ┆ST 801105 $$$TRA4 DE40ST DECLRA4 DECLRNA DECLRS0 DENT01F DEOPB┆
0x59ea…5a3a 43 20 c8 44 45 50 4d 53 4b 2e c8 44 45 50 52 55 54 2d 02 16 88 44 45 52 52 53 c8 44 45 52 52 4f 52 00 88 4f 50 43 4c 00 c8 54 3a 41 54 54 46 00 c8 54 3a 47 45 54 41 00 c8 54 3a 47 45 54 46 00 07 04 00 00 00 20 00 c6 00 00 00 e0 44 45 32 30 ┆C DEPMSK. DEPRUT- DERRS DERROR OPCL T:ATTF T:GETA T:GETF DE20┆
0x5a3a…5a8a (59, 0, 400) 46 53 01 04 00 0c 00 0c 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 46 05 1f 88 46 41 43 43 46 00 f8 a8 46 43 4f 44 45 03 0c a8 46 43 4f 50 59 00 00 a8 46 44 55 50 4c 01 31 88 46 47 45 4e 31 00 bf a8 46 49 54 45 4d 03 2e 68 46 ┆FS 801105 $$$TRAF FACCF FCODE FCOPY FDUPL 1 FGEN1 FITEM .hF┆
0x5a8a…5ada 4b 49 02 8d a8 46 4c 49 4e 4b 01 64 05 1b a8 46 4d 45 4c 49 00 07 68 46 4e 4c 02 35 68 46 53 4c 02 12 88 46 54 41 42 46 00 69 a8 46 54 45 58 54 00 42 88 46 56 41 4c 46 00 86 c8 4e 4f 50 4f 4f 4c 49 03 44 02 1e c8 43 4f 4e 4e 55 4d f8 c8 44 ┆KI FLINK d FMELI hFNL 5hFSL FTABF i FTEXT B FVALF NOPOOLI D CONNUM D┆
0x5ada…5b2a 45 50 4f 4f 4c 0c c8 44 45 52 52 4f 52 00 a8 46 4d 4f 56 45 a8 4c 49 4e 49 54 c8 54 3a 44 49 53 50 54 c8 54 3a 45 52 41 53 49 c8 57 43 4e 54 52 4c 4b 07 04 00 00 00 20 03 65 00 00 00 9a 44 45 55 4e 50 46 01 10 00 08 00 08 38 30 31 31 30 35 ┆EPOOL DERROR FMOVE LINIT T:DISPT T:ERASI WCNTRLK e DEUNPF 801105┆
0x5b2a…5b7a 00 00 00 00 02 04 c8 24 24 24 54 52 41 55 05 0e c8 44 45 55 4e 50 46 00 00 00 c8 44 45 55 4e 50 4c 46 02 f7 a8 46 45 44 49 54 04 47 02 1f c8 41 44 4a 55 53 54 55 c8 42 49 4e 43 4f 4e 41 a8 46 4d 4f 56 45 c8 47 45 54 46 57 44 30 c8 4e 4f 50 ┆ $$$TRAU DEUNPF DEUNPLF FEDIT G ADJUSTU BINCONA FMOVE GETFWD0 NOP┆
0x5b7a…5bca 4f 4f 4c 31 c8 52 43 4e 54 52 4c 31 c8 54 3a 44 49 53 50 30 c8 54 3a 47 45 54 43 20 02 08 c8 54 3a 53 57 49 54 00 c8 54 3a 54 53 54 43 50 07 04 00 00 00 20 04 83 00 00 00 68 44 45 50 52 46 47 01 18 00 0b 00 0b 38 30 31 31 30 35 00 00 00 00 ┆OOL1 RCNTRL1 T:DISP0 T:GETC T:SWIT T:TSTCP hDEPRFG 801105 ┆
0x5bca…5c1a (60, 0, 400) 02 04 c8 24 24 24 54 52 41 50 05 05 c8 50 52 46 47 55 46 00 00 00 02 18 c8 44 45 52 52 4f 52 50 c8 44 45 55 4e 50 46 41 c8 45 4d 50 54 59 54 30 c8 4e 4f 50 4f 4f 4c 46 c8 54 3a 45 44 57 52 20 c8 54 3a 50 52 49 4e 2e 07 04 00 00 00 20 01 a2 ┆ $$$TRAP PRFGUF DERRORP DEUNPFA EMPTYT0 NOPOOLF T:EDWR T:PRIN. ┆
0x5c1a…5c6a 00 00 00 c8 44 45 50 52 4f 43 01 23 00 07 00 07 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 50 05 10 88 44 45 53 43 00 03 26 88 46 44 49 52 4c 02 9d a8 4c 49 4e 49 54 01 9c a8 4d 54 45 58 54 00 00 02 1d c8 44 45 50 4f 4f 4c 50 ┆ DEPROC # 801105 $$$TRAP DESC & FDIRL LINIT MTEXT DEPOOLP┆
0x5c6a…5cba c8 44 45 52 52 4f 52 41 c8 45 4d 50 54 59 54 30 88 46 41 43 43 39 a8 46 43 4f 50 59 a8 46 44 55 50 4c 88 46 47 45 4e 2e 68 46 4b 49 a8 46 4d 45 4c 49 02 1f 68 46 4e 4c 88 46 54 41 42 46 a8 46 54 45 58 54 88 46 56 41 4c 54 c8 4e 4f 50 4f 4f ┆ DERRORA EMPTYT0 FACC9 FCOPY FDUPL FGEN.hFKI FMELI hFNL FTABF FTEXT FVALT NOPOO┆
0x5cba…5d0a 4c 54 c8 54 3a 44 49 53 50 00 c8 54 3a 45 52 41 53 00 c8 54 3a 53 57 49 54 00 c8 55 50 44 42 4f 4c 00 07 04 00 00 03 85 03 8f 00 00 00 40 44 45 43 56 52 54 01 2a 00 0d 00 07 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 43 05 0a ┆LT T:DISP T:ERAS T:SWIT UPDBOL @DECVRT * 801105 $$$TRAC ┆
0x5d0a…5d5a c8 42 49 4e 43 4f 4e 00 01 bb c8 43 4f 4e 4e 55 4d 00 00 00 07 04 00 00 03 40 03 40 00 00 01 0c 44 45 35 30 53 54 01 37 00 12 00 12 38 30 31 31 30 35 00 00 00 00 02 04 c8 24 24 24 54 52 41 35 05 0a c8 44 45 35 30 53 54 00 00 00 c8 44 45 41 ┆ BINCON CONNUM @ @ DE50ST 7 801105 $$$TRA5 DE50ST DEA┆