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