XGKB1 ;SFISC/VYD - Read with Escape Processing cont. ;11/06/08 15:08
;;8.0;KERNEL;**244,514**;Jul 10, 1995;Build 8
;;Special thanks to MELDRUM.KEVIN@ISC-SLC.DOMAIN.EXT
;
VAXDSM ; $ZB ($KEY) values for VAX DSM
MSM ; $ZB ($KEY) values for MSM
F I=2:1:31 D
. S X=$TR($T(KBD+I)," ","")
. S ^XUTL("XGKB",$P(X,";",4))=$P(X,";",3)
F I=29:1 S X=$TR($T(KBD+I)," ","") Q:$P(X,";",3)="ZZZ" D
. S ^XUTL("XGKB",$P(X,";",4)*256+27)=$P(X,";",3)
Q
;
;
GTM ; $ZB ($KEY) values for GT.M
DTM ; $ZB ($KEY) values for DTM
F I=2:1 S X=$TR($T(KBD+I)," ","") Q:$P(X,";",3)="ZZZ" D
. S @("^XUTL(""XGKB"",$C("_$P(X,";",5)_"))=$P(X,"";"",3)")
Q
;
;
KBD ; $KEY values for DSM, MSM, and DTM when using escape processing
; Key ;DSM ;DTM (MSM is the same as DSM)
;;^A ;1 ;1
;;^B ;2 ;2
;;^C ;3 ;3
;;^D ;4 ;4
;;^E ;5 ;5
;;^F ;6 ;6
;;^G ;7 ;7
;;^H ;8 ;8
;;TAB ;9 ;9
;;^J ;10 ;10
;;^K ;11 ;11
;;^L ;12 ;12
;;CR ;13 ;13
;;^N ;14 ;14
;;^O ;15 ;15
;;^P ;16 ;16
;;^Q ;17 ;17
;;^R ;18 ;18
;;^S ;19 ;19
;;^T ;20 ;20
;;^U ;21 ;21
;;^V ;22 ;22
;;^W ;23 ;23
;;^X ;24 ;24
;;^Y ;25 ;25
;;^Z ;26 ;26
;;^\ ;28 ;28
;;^] ;29 ;29
;;^6 ;30 ;30
;;^_ ;31 ;31
;;KP0 ;0 ;27,79,112
;;KP1 ;1 ;27,79,113
;;KP2 ;2 ;27,79,114
;;KP3 ;3 ;27,79,115
;;KP4 ;4 ;27,79,116
;;KP5 ;5 ;27,79,117
;;KP6 ;6 ;27,79,118
;;KP7 ;7 ;27,79,119
;;KP8 ;8 ;27,79,120
;;KP9 ;9 ;27,79,121
;;UP ;17 ;27,91,65
;;DOWN ;18 ;27,91,66
;;RIGHT ;19 ;27,91,67
;;LEFT ;20 ;27,91,68
;;FIND ;21 ;27,91,49,126
;;INSERT ;22 ;27,91,50,126
;;REMOVE ;23 ;27,91,51,126
;;SELECT ;24 ;27,91,52,126
;;PREV ;25 ;27,91,53,126
;;NEXT ;26 ;27,91,54,126
;;KPENTER ;29 ;27,79,77
;;PF1 ;32 ;27,79,80
;;PF2 ;33 ;27,79,81
;;PF3 ;34 ;27,79,82
;;PF4 ;35 ;27,79,83
;;F6 ;37 ;27,91,49,55,126
;;F7 ;38 ;27,91,49,56,126
;;F8 ;39 ;27,91,49,57,126
;;F9 ;40 ;27,91,50,48,126
;;F10 ;41 ;27,91,50,49,126
;;F11 ;43 ;27,91,50,51,126
;;F12 ;44 ;27,91,50,52,126
;;F13 ;45 ;27,91,50,53,126
;;F14 ;46 ;27,91,50,54,126
;;HELP ;48 ;27,91,50,56,126
;;DO ;49 ;27,91,50,57,126
;;F17 ;51 ;27,91,51,49,126
;;F18 ;52 ;27,91,51,50,126
;;F19 ;53 ;27,91,51,51,126
;;F20 ;54 ;27,91,51,52,126
;;KP- ;60 ;27,79,109
;;KP+ ;61 ;27,79,108
;;KP. ;62 ;27,79,110
;;ZZZ
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXGKB1 2791 printed Nov 22, 2024@17:12:30 Page 2
XGKB1 ;SFISC/VYD - Read with Escape Processing cont. ;11/06/08 15:08
+1 ;;8.0;KERNEL;**244,514**;Jul 10, 1995;Build 8
+2 ;;Special thanks to MELDRUM.KEVIN@ISC-SLC.DOMAIN.EXT
+3 ;
VAXDSM ; $ZB ($KEY) values for VAX DSM
MSM ; $ZB ($KEY) values for MSM
+1 FOR I=2:1:31
Begin DoDot:1
+2 SET X=$TRANSLATE($TEXT(KBD+I)," ","")
+3 SET ^XUTL("XGKB",$PIECE(X,";",4))=$PIECE(X,";",3)
End DoDot:1
+4 FOR I=29:1
SET X=$TRANSLATE($TEXT(KBD+I)," ","")
if $PIECE(X,";",3)="ZZZ"
QUIT
Begin DoDot:1
+5 SET ^XUTL("XGKB",$PIECE(X,";",4)*256+27)=$PIECE(X,";",3)
End DoDot:1
+6 QUIT
+7 ;
+8 ;
GTM ; $ZB ($KEY) values for GT.M
DTM ; $ZB ($KEY) values for DTM
+1 FOR I=2:1
SET X=$TRANSLATE($TEXT(KBD+I)," ","")
if $PIECE(X,";",3)="ZZZ"
QUIT
Begin DoDot:1
+2 SET @("^XUTL(""XGKB"",$C("_$PIECE(X,";",5)_"))=$P(X,"";"",3)")
End DoDot:1
+3 QUIT
+4 ;
+5 ;
KBD ; $KEY values for DSM, MSM, and DTM when using escape processing
+1 ; Key ;DSM ;DTM (MSM is the same as DSM)
+2 ;;^A ;1 ;1
+3 ;;^B ;2 ;2
+4 ;;^C ;3 ;3
+5 ;;^D ;4 ;4
+6 ;;^E ;5 ;5
+7 ;;^F ;6 ;6
+8 ;;^G ;7 ;7
+9 ;;^H ;8 ;8
+10 ;;TAB ;9 ;9
+11 ;;^J ;10 ;10
+12 ;;^K ;11 ;11
+13 ;;^L ;12 ;12
+14 ;;CR ;13 ;13
+15 ;;^N ;14 ;14
+16 ;;^O ;15 ;15
+17 ;;^P ;16 ;16
+18 ;;^Q ;17 ;17
+19 ;;^R ;18 ;18
+20 ;;^S ;19 ;19
+21 ;;^T ;20 ;20
+22 ;;^U ;21 ;21
+23 ;;^V ;22 ;22
+24 ;;^W ;23 ;23
+25 ;;^X ;24 ;24
+26 ;;^Y ;25 ;25
+27 ;;^Z ;26 ;26
+28 ;;^\ ;28 ;28
+29 ;;^] ;29 ;29
+30 ;;^6 ;30 ;30
+31 ;;^_ ;31 ;31
+32 ;;KP0 ;0 ;27,79,112
+33 ;;KP1 ;1 ;27,79,113
+34 ;;KP2 ;2 ;27,79,114
+35 ;;KP3 ;3 ;27,79,115
+36 ;;KP4 ;4 ;27,79,116
+37 ;;KP5 ;5 ;27,79,117
+38 ;;KP6 ;6 ;27,79,118
+39 ;;KP7 ;7 ;27,79,119
+40 ;;KP8 ;8 ;27,79,120
+41 ;;KP9 ;9 ;27,79,121
+42 ;;UP ;17 ;27,91,65
+43 ;;DOWN ;18 ;27,91,66
+44 ;;RIGHT ;19 ;27,91,67
+45 ;;LEFT ;20 ;27,91,68
+46 ;;FIND ;21 ;27,91,49,126
+47 ;;INSERT ;22 ;27,91,50,126
+48 ;;REMOVE ;23 ;27,91,51,126
+49 ;;SELECT ;24 ;27,91,52,126
+50 ;;PREV ;25 ;27,91,53,126
+51 ;;NEXT ;26 ;27,91,54,126
+52 ;;KPENTER ;29 ;27,79,77
+53 ;;PF1 ;32 ;27,79,80
+54 ;;PF2 ;33 ;27,79,81
+55 ;;PF3 ;34 ;27,79,82
+56 ;;PF4 ;35 ;27,79,83
+57 ;;F6 ;37 ;27,91,49,55,126
+58 ;;F7 ;38 ;27,91,49,56,126
+59 ;;F8 ;39 ;27,91,49,57,126
+60 ;;F9 ;40 ;27,91,50,48,126
+61 ;;F10 ;41 ;27,91,50,49,126
+62 ;;F11 ;43 ;27,91,50,51,126
+63 ;;F12 ;44 ;27,91,50,52,126
+64 ;;F13 ;45 ;27,91,50,53,126
+65 ;;F14 ;46 ;27,91,50,54,126
+66 ;;HELP ;48 ;27,91,50,56,126
+67 ;;DO ;49 ;27,91,50,57,126
+68 ;;F17 ;51 ;27,91,51,49,126
+69 ;;F18 ;52 ;27,91,51,50,126
+70 ;;F19 ;53 ;27,91,51,51,126
+71 ;;F20 ;54 ;27,91,51,52,126
+72 ;;KP- ;60 ;27,79,109
+73 ;;KP+ ;61 ;27,79,108
+74 ;;KP. ;62 ;27,79,110
+75 ;;ZZZ
