OBJNAM IBAM60.VUX ; 1.4(5) 19-Sept-84
; New AlphaVUE keycode translation file for AM-60 terminal
; Install the assembled VUX file to LIB: account. Then log into DVR:
; and COPY IBAM60=ALPHA.TDV. Then log into SYS: and change AMOSL.INI
; so that the appropriate TRMDEF lines are changed to use IBAM60 instead
; of ALPHA or AM60 terminal driver.
; Written by Irv Bromberg, Medic/OS Consultants, Toronto, CANADA
; Note: It was not easy dreaming up things for 32 different function keys
; to do! The definitions contained herein are intended as examples only.
RADIX 10
CR=13
ESC=27
CTRL=-64
BLKL 1 ; storage used by VUE, next are 128 unconverted keys:
WORD Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z
WORD Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z
WORD Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z
WORD Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z,Z
; function keys F5-F12 (lead-in = SOH) X=ignore
; @ A B C D E F G H I J K L M N O
WORD F5,F6,F7,F8,F9,F10,F11,F12,sF5,sF6,sF7,sF8,sF9,sF10,sF11,sF12
; P Q R S T U V W X Y Z [ \ ] ^ _ space
WORD X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X ; there are no keys for these codes
; editing keys (lead-in = ESCAPE)
; New-Line, shifted numeric keypad:
; ! " # $ % & ' ( ) * + , - . /
WORD NewLn,sNewLn,N7,N8,N9,Nminus,N4,N5,N6,Ncomma,N1,N2,N3,N0,Ndecimal
; 0 1 2 3 4 5 6 7 8 9 : ;
WORD X,WORDins,WORDdel,sScroll,F2,F1,sF2,sF1,sHelp,Help,X,X
; < = > ? @ A B C D E F G H I J K L
WORD Exec,X,sExec,X,F4,X,sCancel,X,X,F13,X,X,X,sTab,X,LINEdel,Cancel
; M N O P Q R S T U V
WORD X,CHARins,CHARdel,sF4,WORDprev,F14,F3,F15,X,sNxtScr
; W X Y Z [ \ ] ^ _ ` a b c d e f g h
WORD X,X,F16,X,sLeft,sRight,X,sUp,sDown,X,X,X,X,X,X,X,X,LINEins
; i j k l m n o p q r s t u v w
WORD X,X,X,X,X,X,X,X,sPrvScr,PrvScr,sF3,sF15,X,NxtScr,WORDnext
; x y z { | } ~ rubout
WORD X,sF16,X,sHome,sF13,X,sF14,X
X: BYTE CTRL+'_ ; key to be ignored --> US not used by VUE
Z: BYTE 0 ; not to be converted
; editing keys conversion sequences
; Note WORD insert does something -- inserts 5 spaces, allows for a 4-letter
; word plus a space, also useful for indenting paragraphs.
WORDins:BYTE CTRL+'F,CTRL+'F,CTRL+'F,CTRL+'F,CTRL+'F,0
sScroll:BYTE CTRL+'S,0 ; shift scroll = center page
sTab: BYTE CTRL+'I,0 ; shift tab = unshifted tab
sCancel:
Cancel: BYTE CTRL+'C,0 ; cancel command = ^C
sHome: BYTE CTRL+'E,0 ; last page
sNxtScr:
NxtScr: BYTE CTRL+'T,0 ; next page
sPrvScr:
PrvScr: BYTE CTRL+'R,0 ; prev page
CHARins:BYTE CTRL+'F,0 ; insert a space
CHARdel:BYTE CTRL+'D,0 ; delete char
LINEins:BYTE CTRL+'B,0 ; insert line
LINEdel:BYTE CTRL+'Z,0 ; delete line
ClrEol: BYTE CTRL+'Y,0 ; clear to end of line
sLeft: BYTE CTRL+'U,0 ; shifted left arrow = beginning of line
sRight: BYTE CTRL+'N,0 ; shifted right arrow = end of line
sUp: BYTE CTRL+'O,0 ; shifted up arrow = concatenate
sDown: BYTE CTRL+'J,0 ; shifted down arrow = linefeed
sExec: ; shifted execute = RETURN
Exec: ; execute = RETURN
sNewLn: ; shifted new line = RETURN
NewLn: BYTE CTRL+'M,0 ; new line = RETURN
WORDdel:BYTE CTRL+'V,0 ; delete word
WORDprev:BYTE CTRL+'A,0 ; previous word
WORDnext:BYTE CTRL+'W,0 ; next word
sHelp: BYTE ESC ; shifted help = ESC help
Help: ASCIZ |help | ; help = help
; function keys conversion sequences
; (C) means use only in Command Mode, (T) means use only in Text Mode
F1: ASCII |dir| ; (C)
BYTE CR,0
sF1: BYTE ESC
ASCII |save| ; (T)
BYTE CR,ESC,0
F2: ASCII |fold off| ; (C)
BYTE CR,0
sF2: ASCII |fold on| ; (C)
BYTE CR,0
F3: ASCII |modem off| ; (C)
BYTE CR,0
sF3: ASCII |modem on| ; (C)
BYTE CR,0
F4: ASCII |smart on| ; (C)
BYTE CR,0
sF4: ASCII |smart off| ; (C)
BYTE CR,0
