ASMB,R
*                                               <800822.0736> 
* 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
* 
*           NAME:   EDIT3 
*           SOURCE: 92074-18009 
*           RELOC:  PART OF 92074-12002 
*           PGMR:   J.D.J.
* 
* 
      NAM EDIT3,5,50 92074-1X009 REV.2034 800818
      ENT EDIT3 
      ENT ED%HE 
* 
      EXT .ENTR 
      EXT EHELP 
* 
*  ENTRY POINT IN THE MAIN
* 
      EXT SRTN
      EXT ECHL
      EXT CSTRP 
      EXT ECH 
      EXT PBKE
      EXT NUMIN 
* 
      EXT TTYLU 
      EXT LSTLU 
      EXT KEY 
      EXT KEYFG 
* 
A     EQU 0 
B     EQU 1 
* 
************************
* 
EDIT3 JMP SRTN      JUMP BACK TO MAIN 
* 
* 
* 
* 
*************** 
* 
EHP   BSS 3 
ED%HE NOP 
      JSB .ENTR 
      DEF EHP 
      JSB KYSET     SET KEY 
*     JSB NUMIN 
*     SZA,RSS 
*     LDA TTYLU 
*     STA LSTLU 
      JSB EHELP     GO GIVE HELP MESSAGES 
       DEF EHLPR
EHLPR EQU * 
      JMP ED%HE,I   RETURN
* 
* 
* 
* 
* 
* 
* 
KYSET NOP 
      JSB CSTRP    STRIP COMMA,BLANK
      JMP NONE        NONE SO GIVE SUMMARY
      JSB ECHL
      JMP NONE
      ALF,ALF       SHIFT TO UPPER BYTE 
      STA KEY       SAVE AS FIRST PART OF KEY 
      JSB ECHL      GET NEXT CHAR 
      LDA B40         NONE SO GET A BLANK 
      IOR KEY       OR IN HIGH PART 
KYST2 STA KEY       SET KEY 
* 
KYST3 JSB ECH       STRIP TO COMMA OR BLANK 
        JMP KYSET,I 
      CPA COMMA 
        JMP KYST4 
      CPA B40 
        JMP KYST4 
      JMP KYST3 
* 
KYST4 JSB PBKE
      JSB CSTRP 
      NOP 
      JMP KYSET,I   RETURN
* 
NONE  LDA SPSP
      JMP KYST2 
* 
B40   OCT 40
COMMA OCT 54
SPSP  ASC 1,
* 
* 
      END EDIT3 
                                                                                                                                                                                    