;*; Updated on 13-Sep-89 at 1:01 AM by James A. Jarboe IV; edit time: 2:01:59 ;*************************** AMUS Program Label ****************************** ; Filename: AM65VX.M68 Date: 13-Sep-89 ; Category: d/VUE Hash Code: 116-010-340-052 Version: ; Initials: GR/AM Name: James A. Jarboe IV ; Company: Educational Video Network, Inc. Telephone #: 409-295-5767 ; Related Files: AM65.TDV, d/VUE.LIT ; Min. Op. Sys.: 1.3 Expertise Level: BEG ; Special: Must have an AM65 terminal and AM65 terminal driver. ; Description: A modifiable Function key translation file for the AM65 ; terminal and d/SOFT's d/VUE.LIT program. ;***************************************************************************** ;**************************************************************************** ;* * ;* AM65VX.M68 * ;* * ;* Written By: James A. Jarboe IV * ;* 1401 19th Street * ;* Huntsville, TX 77340 * ;* 409-295-5767 * ;* * ;* 09-Sep-89 * ;* GR/AM * ;**************************************************************************** ; Description: A d/VUE .VUX file for AM65 terminal. ; ; Notes: Supports d/SOFT's d/VUE.LIT ; Can be modified for other terminal drivers that are Alpha-Micro ; compatible. Change OBJNAM's argument to the name of the target ; terminal driver. ; Make sure function keys to be pressed correspond with function ; desired. ; ; Note: Gathered and modified from IBAM60.M68 by Irv Bromberg. ; ; Edit History: ; ;[100] 09-Sep-89 by James A. Jarboe IV. ; OBJNAM AM65.VUX ; Name of .VUX file ;************************************************************************** ; * ; U S E R C O N S T A N T S * ; * ;************************************************************************** ; $CR = 13. ; CR = Carriage Return. $ESC = 27. ; ESC = Escape. ;************************************************************************** ; * ; O F F S E T S * ; * ;************************************************************************** ; STORGE: BLKL 1 ; d/VUE storage area. ; The order of the WORDS below are significant in that ASCCHR: begins ; the ascii representation of characters in octal from 0-177. ; The label C200: to C377: represent the octal value of functions keys ; from 200-377. Do not change the order of these labels. ; ; The order of the labels after the TABLE OF KEY FUNCTIONS, (beginning ; with NOCVT: can be changed as these are the offsets of the desired ; key functions. ; ; 128 Ascii characters - not modified. ; ASCCHR: WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT WORD NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT, NOCVT ; Offset table for function keys. ; ; Where: ; C???: = Octal value of a key. ; WORD value = New value of key when returned to d/VUE. ; ; For example: ; ; KEY Octal Label WORD OFFSET Does ; Pressed Value offset value ; -------------------------------------------------------------------- ; F5 200 C200: F5: ^S4 Plays macro 5. ; F6 201 C201: F6: ^S5 Plays macro 6. ; F7 202 C202: F7: ^S6 Plays macro 7. ; Shift HOME 373 C373: sHOME: ^E Go to end of file. ; ; Some Octal codes do not have a corresponding function key or ; some Octal codes are combinations of pressing the Fancy Function key ; and pressing another key at the same time. Keys that are not defined, ; or keys that user wants a "not recognized" error to occur in d/VUE ; should use the NOTHIN label. ; The NOCVT label will do absolutely no translation of the key press. ; C200: WORD F5 ; F5 key press. C201: WORD F6 ; F6 key press. C202: WORD F7 ; F7 key press. C203: WORD F8 ; F8 key press. C204: WORD F9 ; F9 key press. C205: WORD F10 ; F10 key press. C206: WORD F11 ; F11 key press. C207: WORD F12 ; F12 key press. C210: WORD SF5 ; Shift F5 key press. C211: WORD SF6 ; Shift F6 key press. C212: WORD SF7 ; Shift F7 key press. C213: WORD SF8 ; Shift F8 key press. C214: WORD SF9 ; Shift F9 key press. C215: WORD SF10 ; Shift F10 key press. C216: WORD SF11 ; Shift F11 key press. C217: WORD SF12 ; Shift F12 key press. C220: WORD NOTHIN ; Function key + P. C221: WORD NOTHIN ; Function key + Q. C222: WORD NOTHIN ; Function key + R. C223: WORD NOTHIN ; Function key + S. C224: WORD NOTHIN ; Function key + T. C225: WORD NOTHIN ; Function key + U. C226: WORD NOTHIN ; Function key + V. C227: WORD NOTHIN ; Function key + W. C230: WORD NOTHIN ; Function key + X. C231: WORD NOTHIN ; Function key + Y. C232: WORD NOTHIN ; Function key + Z. C233: WORD NOTHIN ; Function key + [. C234: WORD NOTHIN ; Function key + \. C235: WORD NOTHIN ; Function key + ]. C236: WORD NOTHIN ; Function key + ^. C237: WORD NOTHIN ; Function key + _. C240: WORD NOTHIN ; Function key + `. C241: WORD NEWLN ; Shift NO SCROLL key press. C242: WORD NOTHIN ; Function key + b. C243: WORD N7 ; Shift numeric keypad 7. C244: WORD N8 ; Shift numeric keypad 8. C245: WORD N9 ; Shift numeric keypad 9. C246: WORD NOTHIN ; Function key + f. C247: WORD N4 ; Shift numeric keypad 4. C250: WORD N5 ; Shift numeric keypad 5. C251: WORD N6 ; Shift numeric keypad 6. C252: WORD NOTHIN ; Function key + j. C253: WORD N1 ; Shift numeric keypad 1. C254: WORD N2 ; Shift numeric keypad 2. C255: WORD N3 ; Shift numeric keypad 3. C256: WORD N0 ; Shift numeric keypad 0. C257: WORD NPERIOD ; Shift numeric keypad period. C260: WORD NOTHIN ; Function key + p. C261: WORD WORDINS ; WORD INSERT key. C262: WORD WORDDEL ; WORD DELETE key. C263: WORD NOTHIN ; Function key + s. C264: WORD F2 ; F2 key press. C265: WORD F1 ; F1 key press. C266: WORD SF2 ; Shift F2 key press. C267: WORD SF1 ; Shift F1 key press. C270: WORD NOTHIN ; Function key + x. C271: WORD HELP ; HELP key press. C272: WORD NOTHIN ; Function key + z. C273: WORD NOTHIN ; Function key + {. C274: WORD EXEC ; EXECUTE key press. C275: WORD NOTHIN ; Function key + }. C276: WORD SEXEC ; Shift EXECUTE key press. C277: WORD NOTHIN ; Function key + DEL. C300: WORD F4 ; F4 key press. C301: WORD NOTHIN ; Function key + ^A. C302: WORD SCANCEL ; Shift CANCEL key press. C303: WORD NOTHIN ; Function key + ^C. C304: WORD NOTHIN ; Function key + ^D. C305: WORD F13 ; F13 key press. C306: WORD NOTHIN ; Function key + ^F. C307: WORD NOTHIN ; Function key + ^G. C310: WORD NOTHIN ; Function key + ^H. C311: WORD NOTHIN ; Function key + ^I. C312: WORD NOTHIN ; Function key + ^J. C313: WORD LINEDEL ; LINE DELETE key press. C314: WORD CANCEL ; CANCEL key press. C315: WORD NOTHIN ; Function key + ^M. C316: WORD CHARINS ; CHAR INSERT key press. C317: WORD CHARDEL ; Shift CHAR INSERT key press. C320: WORD SF4 ; Shift F4 key press. C321: WORD WORDPRV ; PREV WORD key press. C322: WORD F14 ; F14 key press. C323: WORD F3 ; F3 key press. C324: WORD F15 ; F15 key press. C325: WORD NOTHIN ; Function key + ^U. C326: WORD SNXTSCR ; Shift NEXT SCREEN key press. C327: WORD SWRDPRV ; Shift PREV WORD key press. C330: WORD NOTHIN ; Function key + ^X. C331: WORD F16 ; F16 key press. C332: WORD NOTHIN ; Function key + ^Z. C333: WORD SLEFT ; Shift LEFT ARROW key press. C334: WORD SRIGHT ; Shift RIGHT ARROW key press. C335: WORD NOTHIN ; Function key + ^]. C336: WORD SUP ; Shift UP ARROW key press. C337: WORD SDOWN ; Shift DOWN ARROW key press. C340: WORD NOTHIN ; Function key + space key. C341: WORD NOTHIN ; Not used on AM65. C342: WORD NOTHIN ; Function key + ". C343: WORD NOTHIN ; Function key + #. C344: WORD NOTHIN ; Function key + $. C345: WORD NOTHIN ; Function key + %. C346: WORD NOTHIN ; Function key + &. C347: WORD SWRDNXT ; Shift NEXT WORD key press. C350: WORD LINEINS ; LINE INSERT key press. C351: WORD NOTHIN ; Function key + ). C352: WORD STAB ; Shift TAB key press. C353: WORD NOTHIN ; Function key + +. C354: WORD SHELP ; Shift HELP key press. C355: WORD NOTHIN ; Function key + -. C356: WORD NOTHIN ; Function key + .. C357: WORD NOTHIN ; Function key + /. C360: WORD NOTHIN ; Function key + 0. C361: WORD SPRVSCR ; Shift PREV SCREEN key press. C362: WORD PRVSCR ; PREV SCREEN key press. C363: WORD SF3 ; Shift F3 key press. C364: WORD SF15 ; Shift F15 key press. C365: WORD NOTHIN ; Function key + 5. C366: WORD NXTSCR ; NEXT SCREEN key press. C367: WORD WORDNXT ; NEXT WORD key press. C370: WORD NOTHIN ; Function key + 8. C371: WORD SF16 ; Shift F16 key press. C372: WORD NOTHIN ; Not used on AM65. C373: WORD SHOME ; Shift HOME key press. C374: WORD SF13 ; Shift F13 key press. C375: WORD NOTHIN ; Function key + =. C376: WORD SF14 ; Shift F14 key press. C377: WORD NOTHIN ; Function key + ?. ;************************************************************************** ; * ; T A B L E O F K E Y F U N C T I O N C O N V E R S I O N S * ; * ;************************************************************************** ; The C???: labels above correspond with the octal value of a key pressed. ; The labels below reflect what the converted function key will do. ; If pressing the function key F1 produces octal 265 and the label ; C265: WORD is F1 and the corresponding label F1: (below) is defined ; as BYTE 'D-100, 0 then pressing F1 in d/VUE will produce a ^D . ; Each label sequence below must end with a "0" byte to terminate the ; desired function. ; NOCVT: BYTE 0 ; Not to be converted. NOTHIN: BYTE '_-100 ; Key to be ignored, reports not recognized. ; Shifted numeric keypad conversion to unshifted values. ; N0: BYTE '0, 0 ; Shift keypad 0. N1: BYTE '1, 0 ; Shift keypad 1. N2: BYTE '2, 0 ; Shift keypad 2. N3: BYTE '3, 0 ; Shift keypad 3. N4: BYTE '4, 0 ; Shift keypad 4. N5: BYTE '5, 0 ; Shift keypad 5. N6: BYTE '6, 0 ; Shift keypad 6. N7: BYTE '7, 0 ; Shift keypad 7. N8: BYTE '8, 0 ; Shift keypad 8. N9: BYTE '9, 0 ; Shift keypad 9. NCOMMA: BYTE ',, 0 ; Shift keypad , - not used AM65. NPERIOD:BYTE '., 0 ; Shift keypad . - not used AM65. NMINUS: BYTE '-, 0 ; Shift keypad - - not used AM65. ; Editing keys conversion sequences. ; WORDINS:BYTE 'F-100, 'L-100 ; Insert space, move right. BYTE 0 ; End of sequence. SSCROLL:BYTE '0 ; Shift scroll, not defined on AM65. STAB: BYTE 'A-100, 0 ; Shift TAB = previous word SCANCEL:BYTE 'C-100, 0 ; Shift CANCEL = ^C. CANCEL: BYTE 'C-100, 0 ; CANCEL command = ^C. SHOME: BYTE 'E-100, 0 ; Last page. SNXTSCR:BYTE 'T-100, 0 ; Next page. NXTSCR: BYTE 'T-100, 0 ; Next page SPRVSCR:BYTE 'R-100, 0 ; Previous page. PRVSCR: BYTE 'R-100, 0 ; Previous page. CHARINS:BYTE 'F-100, 0 ; Insert a space CHARDEL:BYTE 'D-100, 0 ; Delete character. LINEINS:BYTE 'B-100, 0 ; Insert a line at current location. LINEDEL:BYTE 'Z-100, 0 ; Delete line. CLREOL: BYTE 'Y-100, 0 ; Clear to end of line. SLEFT: BYTE 'U-100, 0 ; Shifted left arrow = beginning of line SRIGHT: BYTE 'N-100, 0 ; Shifted right arrow = end of line SUP: BYTE 'K-100, 0 ; Shifted up arrow = up one line. SDOWN: BYTE 'J-100, 0 ; Shifted down arrow = linefeed. SEXEC: BYTE $CR, 0 ; CR only, To close to SHIFT key. EXEC: BYTE $CR, 0 ; CR only, To close to SHIFT key. SNEWLN: BYTE 0 ; Not defined on AM65. NEWLN: BYTE 'U-100, 'B-100 ; Insert a complete new line. BYTE 0 ; End of sequence. WORDDEL:BYTE 'V-100, 0 ; ^V Delete word. SWRDPRV:BYTE 'A-100, 0 ; ^A Previous word. WORDPRV:BYTE 'A-100, 0 ; ^A Previous word. SWRDNXT:BYTE 'W-100, 0 ; ^W Next word. WORDNXT:BYTE 'W-100, 0 ; ^W Next word. SHELP: BYTE 'S-100, 'T-100 ; Push location. BYTE '^-100, $ESC ; Home, escape to command level. ASCII |PRINT marked| ; Print marked area or all. BYTE $CR ; CR to activate command. BYTE $ESC ; Escape to text mode. BYTE 'S-100, 'A-100 ; Pop to location. BYTE 0 ; End of sequence. HELP: BYTE $ESC ; Escape to command mode. ASCIZ |HELP | ; Type "HELP " BYTE 0 ; Wait for CR or request. ; Function keys conversion sequences. ; ; F1-F9 perform d/VUE macro playback appropriate stored macro. ; Shift F1 - Shift F9 perform the "on the fly" store macro sequence. ; F16 will end all stored macro sequences. ; F1: BYTE 'S-100, '1, 0 ; Use macro 1. SF1: BYTE 'S-100, 'M-100, '1, 0 ; Store macro 1. F2: BYTE 'S-100, '2, 0 ; Use macro 2. SF2: BYTE 'S-100, 'M-100, '2, 0 ; Store macro 2. F3: BYTE 'S-100, '3, 0 ; Use macro 3. SF3: BYTE 'S-100, 'M-100, '3, 0 ; Store macro 3. F4: BYTE 'S-100, '4, 0 ; Use macro 4. SF4: BYTE 'S-100, 'M-100, '4, 0 ; Store macro 4. F5: BYTE 'S-100, '5, 0 ; Use macro 5. SF5: BYTE 'S-100, 'M-100, '5, 0 ; Store macro 5. F6: BYTE 'S-100, '6, 0 ; Use macro 6. SF6: BYTE 'S-100, 'M-100, '6, 0 ; Store macro 6. F7: BYTE 'S-100, '7, 0 ; Use macro 7. SF7: BYTE 'S-100, 'M-100, '7, 0 ; Store macro 7. F8: BYTE 'S-100, '8, 0 ; Use macro 8. SF8: BYTE 'S-100, 'M-100, '8, 0 ; Store macro 8. F9: BYTE 'S-100, '9, 0 ; Use macro 9. SF9: BYTE 'S-100, 'M-100, '9, 0 ; Store macro 9. F10: BYTE 'S-100, '0, 0 ; Use macro 10. SF10: BYTE 'S-100, 'M-100, '0, 0 ; Store macro 10. F11: BYTE 'S-100, 'N-100, 0 ; Hotkey display. SF11: BYTE '_-100, 0 ; Do nothing. F12: BYTE $ESC ; Escape to command mode. ASCII |MENU| ; Do a D/VUE yank MENU. BYTE $CR, 0 ; Activate with carriage return. SF12: BYTE '_-100, 0 ; Do nothing. ; Do an Alpha Micro MENU key quit. ; F13: BYTE '^-100, $ESC, 'Q, $CR ; Escape and Quit d/VUE. BYTE 0 ; End of sequence. ; Use ESP DESK accessory utilities. ; SF13: BYTE 'S-100, 'T-100, '^-100 ; Push location, home. BYTE $ESC ; Command mode. ASCII |.DESK| ; Do DESK. BYTE $CR ; CR to activate desk. BYTE $ESC, 'S-100, 'A-100 ; Pop back to where we where. BYTE 0 ; End of sequence. F14: BYTE 'S-100, 'T-100, 0 ; Push a level. SF14: BYTE 'S-100, 'T-100, 0 ; Push a level. F15: BYTE 'S-100, 'A-100, 0 ; Pop a level. SF15: BYTE 'S-100, 'A-100, 0 ; Pop a level. F16: BYTE 'S-100, 'M-100, 0 ; End macro sequence. SF16: BYTE 'S-100, 'M-100, 0 ; End macro sequence. EVEN END END .