.MCall .Module .Module KEDHL1 RELEASE=V02 VERSION=12 COMMENT=,IDENT=NO,AUDIT=NO,GLOBAL=.KEDH1 ; Copyright (c) 1998 by Mentec, Inc., Nashua, NH. ; All rights reserved ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only with the ; inclusion of the above copyright notice. This software, or ; any other copies thereof, may not be provided or otherwise ; made available to any other person except for use on such ; system and to one who agrees to these license terms. Title ; to and ownership of the software shall at all times remain ; in Mentec, Inc. ; ; The information in this document is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation, or Mentec, Inc. ; ; Digital and Mentec assume no responsibility for the use or ; reliability of its software on equipment which is not supplied ; by Digital or Mentec, and listed in the Software Product ; Description. .Enabl LC .Enabl GBL ; ;MODULE: KEDHL1 ; ;ABSTRACT: ; ; This module is the Keypad Help frame for the Keypad Editor. ; ;AUTHOR: DARRELL DUFFY ; ;DATE: 3-July-1979 ; ;REVISION HISTORY: ; ; Jim Williams 27-December-1979 ; ; change help frame for VT52 to reflect new key assignments .SbTtl Assembly parameters ; ; VT10$0 NE VT100 support, ANSI escape sequences, auto ; screen sizing, auto repeat keyboard turned ; off when editor busy ; ; VT10$0 EQ VT52 support, setup sequence sets VT100 in ; VT52 mode (ignored by VT52) ; .IIf NDF,VT10$0, VT10$0 = 1 ;Default to VT100 support .IIf NDF VT62$ VT62$ = 0 ;default to no VT62 support ; ; DISPLAY APPROPRIATE SUBTITLES FOR OPTIONS ; .SbTtl .If NE,VT10$0 ;VT100 Terminal .SbTtl VT100 Version .IfF; NE,VT10$0 ;VT100 Terminal .SbTtl VT52 Version .EndC; NE,VT10$0 ;VT100 Terminal .SbTtl .SbTtl VT52 Keypad layout for help .NList BEX .MCall PSect PSect $HLP1$ $GtHl1:: ;~x~ Call @(SP)+ ;~x~Pop stack and return to caller ; with data address on stack .Ascii " " .Byte ,, .Ascii " " .Byte ,, .Ascii "." .Byte , PatHlp:: ;PATCH LEVEL FOR HELP DISPLAY .Byte ;TO BE UPDATED WITH EACH PATCH .Byte , .Ascii \ Lower Function is GOLD\ .Byte ,, .If NE VT10$0 .Macro A Data,Last .IRpC X,^\DATA\ .IIf IDN ^\X\,^\%\, .Byte ,,, .IIf IDN ^\X\,^\#\, .Byte ,, .If DIF ^\X\,^\%\ .If DIF ^\X\,^\#\ .Byte ''X .EndC .EndC .EndR .IIf B .Byte , .If NB .IIf IDN , .Byte .EndC .EndM .IfF; NE VT10$0 .If NE VT62$ .Macro A Data,Last .IRpC X,^\DATA\ ;;;.IIf IDN ^\X\,^\%\ .Byte ,'<,,,,,,,,, .IIf IDN ^\X\,^\%\ .Byte , ;;;.IIf IDN ^\X\,^\#\ .Byte ,'<,,,,,,,, .IIf IDN ^\X\,^\#\ .Byte , .If DIF ^\X\,^\%\ .If DIF ^\X\,^\#\ .Byte ''X .EndC .EndC .EndR .IIf B .Byte , .If NB .IIf IDN , .Byte .EndC .EndM .IfF; NE VT62$ .Macro A Data,Last .IRpC X,^\DATA\ .If DIF ^\X\,^\%\ .If DIF ^\X\,^\#\ .Byte ''X .EndC .EndC .EndR .IIf B .Byte , .If NB .IIf IDN , .Byte .EndC .EndM .EndC; NE VT62$ .EndC; NE VT10$0 .If EQ,VT10$0 ;If VT52 A ^\ +-----------------------------------------------+\ A ^\ !% #! ! DELLINE ! ^ ! DELETE Erase char left\ A ^\ !% GOLD #! HELP ! ! ! ! LINEFEED Erase word left\ A ^\ !% BL#! RD!%UNDELLIN GY#!% REPLACE #! CTRL/U Erase line left\ A ^\ !-----------------------------------------------! CTRL/C Cancel\ A ^\ ! PAGE ! FIND NEXT ! DELWORD ! ! ! CTRL/Z Cancel\ A ^\ ! ! ! ! V ! CTRL/R Restore screen\ A ^\ !% COMMAND 7#!% FIND 8#!%UNDELWORD 9#!% SECTION #! and keypad\ A ^\ !-----------------------------------------------! CTRL/W Restore screen\ A ^\ ! ADVANCE ! BACKUP ! DELCHAR ! ----> ! and keypad\ A ^\ ! ! ! ! !\ A ^\ !% BOTTOM 4#!% TOP 5#!%UNDELCHAR 6#!% SPECINS #! %nnn# Repeat\ A ^\ !-----------------------------------------------! %DEL# UNDELCHAR\ A ^\ ! WORD ! EOL ! CUT ! <---- ! %LF# UNDELWORD \ A ^\ ! ! ! ! ! %CTRL/U# UNDELLINE\ A ^\ !%CHNGCASE 1#!% DELEOL 2#!% PASTE 3#!% APPEND #!\ A ^\ !-----------------------------------------------! To return to display,\ A ^\ ! BLINE ! SELECT ! ENTER ! press ENTER or use any\ A ^\ ! ! ! ! function.\ A ^\ !% OPENLINE #!% RESET #!% SUBS #!\ A ^\ +-----------------------------------------------+\,END .EndC ;EQ,VT10$0 .SbTtl VT100 Keypad layout for help .If NE,VT10$0 ;If VT100 .Byte A ^\ lqqqqqqqqqqqwqqqqqqqqqqqwqqqqqqqqqqqwqqqqqqqqqqqk\ A ^\ x% #x x FINDNEXT x DELLINE x\,CONT .Byte A ^\ DELETE Erase char left\ .Byte A ^\ x% GOLD #x HELP x x x\,CONT .Byte A ^\ LINEFEED Erase word left\ .Byte A ^\ x% PF1#x PF2x% FIND PF3#x% UNDELLINE #x\,CONT .Byte A ^\ CTRL/U Erase line left\ .Byte A ^\ tqqqqqqqqqqqnqqqqqqqqqqqnqqqqqqqqqqqnqqqqqqqqqqqu\,CONT .Byte A ^\ CTRL/C Cancel\ .Byte A ^\ x PAGE x SECTION x APPEND x DELWORD x\,CONT .Byte A ^\ CTRL/Z Cancel\ .Byte A ^\ x x x x x\,CONT .Byte A ^\ CTRL/R Restore screen\ .Byte A ^\ x% COMMAND 7#x% FILL 8#x% REPLACE 9#x% UNDELWORD #x\,CONT .Byte A ^\ and keypad\ .Byte A ^\ tqqqqqqqqqqqnqqqqqqqqqqqnqqqqqqqqqqqnqqqqqqqqqqqu\,CONT .Byte A ^\ CTRL/W Restore screen\ .Byte A ^\ x ADVANCE x BACKUP x CUT x DELCHAR x\,CONT .Byte A ^\ and keypad\ .Byte A ^\ x x x x x\ A ^\ x% BOTTOM 4#x% TOP 5#x% PASTE 6#x% UNDELCHAR #x\,CONT .Byte A ^\ %nnn# Repeat\ .Byte A ^\ tqqqqqqqqqqqnqqqqqqqqqqqnqqqqqqqqqqqnqqqqqqqqqqqu\,CONT A ^\ %DEL# UNDELCHAR\ A ^\ x WORD x EOL x CHAR x x\,CONT A ^\ %LF# UNDELWORD\ A ^\ x x x x x\,CONT A ^\ %CTRL/U# UNDELLINE\ A ^\ x% CHNGCASE 1#x% DELEOL 2#x% SPECINS 3#x ENTER x\ A ^\ tqqqqqqqqqqqvqqqqqqqqqqqnqqqqqqqqqqqu x\,CONT .Byte A ^\ To return to display,\ .Byte A ^\ x BLINE x SELECT x x\,CONT .Byte A ^\ press ENTER or use any\ .Byte A ^\ x x x x\,CONT .Byte A ^\ function.\ .Byte A ^\ x% OPENLINE 0#x% RESET .#x% SUBS #x\ A ^\ mqqqqqqqqqqqqqqqqqqqqqqqvqqqqqqqqqqqvqqqqqqqqqqqj\,CONT .Byte .EndC ;NE,VT10$0 .Byte .End