;**************************************************************** ;* * ;* FREEDOM 200 AlphaVUE TERMINAL TABLE * ;* * ;* by * ;* * ;* ULTRASCIENCE DIVISION OF GIBBS LABORATORIES * ;* * ;* Copyright Ultrascience 1984 (C) * ;* * ;* 1824 WILMETTE AVE, WILMETTE, IL 60091 * ;* * ;* 312/256-0080 * ;* * ;* REV. 5.1 LAST UPDATE 01/28/85 * ;* * ;**************************************************************** ; ; IMPORTANT MESSAGE: ; ; THIS PROGRAM OR ANY PART OF THIS PROGRAM MAY NOT BE COPIED FOR ; PROFIT BY ANYONE OTHER THAN ULTRASCIENCE. ANYONE WISHING TO ; USE THE PROGRAM MAY DO SO AT NO CHARGE, PROVIDED THEY NOTIFY ; ULTRASCIENCE THAT THEY ARE USING THE PROGRAM AND AGREE TO SEND ; INFORMATION ABOUT BUGS OR IMPROVEMENTS TO ULTRASCIENCE. THIS ; BUG AND IMPROVEMENT INFORMATION WILL BE AVAILABLE TO ALL USERS ; OF THE PROGRAM. ; ; The character directory table has an entry for every character in the ; ASCII table (from 1 to 127). There are also extra entries after the ; 127 th and these are used for function key handling. The unshifted ; function keys start at 128 and extend to 137 while the shifted function. ; keys start at 160 and go up to 169. The above is true only for the unlabeled ; function keys (F1-F10). The labeled functions are scattered over the rest ; of the table and do not follow any pattern. As can be seen, characters which ; do not require translation have an 'N' as their table entry. By finding ; label N: in the program it can be seen that it contains a null word which ; means that the character does not get translated. If it is desired to ; re-define a character simply replace the original pointer with a new ; label and put the replacement string at the label. It is possible to ; set up the table so that pressing one character may cause VUE to output ; a pre-defined string of characters. The only thing to remember is to ; place a null at the end of the string. ; If character "A" is to be re-defined in order to output a string ; such as "OP" the following steps are to be executed: ; Find entry location in the table for "A" (ASCII 65). It is the 65 th ; entry in the table. Change the null pointer 'N' with a new label (anything ; up to 6 chrs.) let's call it ADEF. The replacement string may be located ; anywhere AFTER the entry table. When a spot has been selected the following ; line should be typed in: ; ; ADEF: BYTE 'O,'P,0,0 ; ; Note however that the word ADEF: should begin in the first column and the ; semicolon (;) must NOT be used. ; Once this is done just execute M68.LIT on it and it should be ready to ; go (if it is in DSK0:[7,0] and it has the terminal driver's name). To ; test it just go into VUE (no need to re-boot the system) and press ; "A". Instead of an "A" you should get an "OP". The other keys can be ; re-defined the same way. ; NOTE: If the number of bytes in the re-defined string is even it must be ; followed by two nulls but if it is odd only one null should be used. Since ; the string "OP" contains an even number of bytes it was followed by two ; nulls. ; If you want to re-define a character to output a control code you can put ; the ASCII value for it instead of a character but do not use the leading ; apostrophe. If you wanted to re-define "A" to a ^B (control B) you could ; change "'O,'P,0,0" to "2,0" or "'B-100,0". As you can see, subtracting ; 100 (octal) from a character makes it a control character. ; ; The reason that the function keys are not located in the table where they ; should be is because the terminal driver converts them. For example, pressing ; f1 normally causes the terminal to send an "@". That's what happens out of ; VUE but if the terminal driver sees that the user is running VUE it converts ; the function keys. Pressing any function key (labeled or unlabeled) causes the ; driver to add 128 to the value so pressing f1 normally sends a "@" (ASCII 64) ; but the driver steps it up to ASCII 192. At this point if the function was ; an unlabeled function (f1-f10,F1-F10) it gets stepped down by 64 so that ; f1 gets converted to ASCII 128, f2 = ASCII 129, etc. Labeled function keys ; do not get stepped down. ; This conversion is made so that function keys will not be confused with ; regular character (f1 is not the same as "@"). This way the replacement ; table can convert f1 to something and "@" to something else without any ; connection between the two. SEARCH SYS OBJNAM FRE200.VUX LWORD 0 ; *** BEGINNING OF ENTRY TABLE *** ; No conversions on regular characters WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; 0-16 WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; 17-32 (SPACE) WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; 33-48 WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; 49-64 ("@") WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; "A"-"P" WORD N,N,N,N,N,N,N,N,N,N ; "Q"-"Z" WORD N,N,N,N,N,N ; 91-96 [,\,],^,-,` WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; "a"-"p" WORD N,N,N,N,N,N,N,N,N,N ; "q"-"z" WORD N,N,N,N,N ; 123-127 ; Unshifted function keys (f1-f10) WORD ESC,CB,CB,CB,CX,CO,CE,CT,CN,CW WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; Shifted function keys (F1-F10) WORD ESC,CB,CB,CB,CP,C$,CS,CR,CU,CA WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N ; Labeled function keys WORD N,N,N,N,N,N,N,N,N,N,N,EE,N,N,N,N,N WORD N,N,N,N,N,N,EF,ER,N,ET,N,N,EW,N,EY,N ; 218 WORD N,N,N,N,N,N,N,N,N,N,N,N,N,N,N,N WORD N,N,N,N,N,N,EQ,N,N,N,N,N,N,N,N,N WORD N,N,N,N,N ; *** END OF ENTRY TABLE *** ; DATA REPLACEMENTS ; NULLS USED FOR NON-TRANSLATIONS N: WORD 0 ; DUMMY CONTROL BYTE USED FOR TRAPPING UNUSED FUNCTION KEYS CB: BYTE ']-100,0 ; unused functions send ^] ; FUNCTION KEY TRANSLATION ESC: BYTE 33,0 ; f1 & F1 = ESC. escape CP: BYTE 'P-100,0 ; F5 = ^P mark CX: BYTE 'X-100,0 ; f5 = ^X match C$: BYTE '\-100,0 ; F6 = ^\ toggle line mode CO: BYTE 'O-100,0 ; f6 = ^O concatenate CS: BYTE 'S-100,0 ; F7 = ^S center file CE: BYTE 'E-100,0 ; f7 = ^E end of file CR: BYTE 'R-100,0 ; F8 = ^R previous page CT: BYTE 'T-100,0 ; f8 = ^T next page CU: BYTE 'U-100,0 ; F9 = ^U beginning of line CN: BYTE 'N-100,0 ; f9 = ^N end of line CA: BYTE 'A-100,0 ; F10 = ^A next word CW: BYTE 'W-100,0 ; f10 = ^W next word ; PRE-LABELED KEY TRANSLATION EY: BYTE 'Y-100,0 ET: BYTE 'V-100,0 ER: BYTE 'Z-100,0 EE: BYTE 'B-100,0 EW: BYTE 'D-100,0 EF: BYTE 'F-100,0 EQ: BYTE 'Q-100,0 WORD 0 END .