!
! Declare all key variables
!
DCL PF1   /OP/
DCL PF2   /OQ/
DCL PF3   /OR/
DCL PF4   /OS/
DCL KEY00 /Op/
DCL KEY01 /Oq/
DCL KEY02 /Or/
DCL KEY03 /Os/
DCL KEY04 /Ot/
DCL KEY05 /Ou/
DCL KEY06 /Ov/
DCL KEY07 /Ow/
DCL KEY08 /Ox/
DCL KEY09 /Oy/
DCL DASH  /Om/
DCL COMMA /Ol/
DCL DOT   /On/
DCL ENTER /OM/
DCL UP    /[A/
DCL DOWN  /[B/
DCL RIGHT /[C/
DCL LEFT  /[D/
DCL RETURN //
DCL DELETE //
DCL CTRLAT / /
DCL CTRLA  //
DCL CTRLB  //
DCL CTRLD  //
DCL CTRLE  //
DCL CTRLF  //
DCL CTRLH  //
DCL CTRLJ  /
/
DCL CTRLK  //
DCL CTRLR  //
DCL CTRLT  //
DCL CTRLU  //
DCL CTRLX  //
DCL CTRLW  //
DCL CTRLZ  //
DCL RESET  /RESET/
!
! Key Defintions
!
KEY RESET CAL 12 /Key$Set_Escape/
KEY PF1   RET //   +, SET(1)
KEY PF2   CAL 1 /Help Key/ 	,IFNOT(1)
KEY PF2   RET /Help / +		,IF(1)
KEY PF3 RET /Set Trace / +		,IFNOT(1)
KEY PF3 RET /Cancel Trace / +		,IF(1),CLEAR(1),SET(3)
KEY PF4 RET /Set Language / +		,IFNOT(1)
KEY PF4 RET /Set Language MACRO/	,IF(1),CLEAR(1)
!
! Control keys
!
KEY CTRLJ CAL 8 /CALL_DCL/		,IFNOT(1)
KEY CTRLJ CAL 9 /CALL_EDIT/		,IF(1),CLEAR(1)
KEY CTRLK CAL 5 /Key$define_key_prompt/ ,IF(1),CLEAR(1)
KEY CTRLR CAL 2 /SET_SCREEN_UP/ +
KEY CTRLT CAL 10 /DBG$SHOW_TIME/
KEY CTRLU CAL 3 /KEY$ZERO_BUFFER/ +
KEY CTRLW CAL 2 /SET_SCREEN_UP/ +
KEY CTRLZ RET /Exit/
KEY DELETE CAL 4 /KEY$DELETE/ +
!
! Normal Keypad
!
KEY KEY00 RET /Step/		,IFNOT(1,16)
KEY KEY01 RET @Step/Into@ 	,IFNOT(1,16)
KEY KEY02 RET @Step/Over@ 	,IFNOT(1,16)
KEY KEY03 RET /Go/		,IFNOT(1,16)
KEY KEY04 RET /Examine /   +    ,IFNOT(1,16),SET(16)
KEY KEY05 RET /Deposit /   +    ,IFNOT(1,16),SET(16)
KEY KEY06 RET /Evaluate /  +    ,IFNOT(1,16),SET(16)
KEY KEY07 RET /Set Break / +	,IFNOT(1,16),SET(16)
KEY KEY08 RET /Set Watch / +	,IFNOT(1,16),SET(16)
KEY KEY09 RET /Show / +		,IFNOT(1,16),SET(16)
KEY DASH  RET /Set Mode / +	,IFNOT(1,16),SET(16)
KEY COMMA RET @Examine/Ascii @ +,IFNOT(1,16),SET(16)
KEY DOT   CAL 3 /KEY$ZERO_BUFFER/ +
!
! GOLD key functions
!
KEY KEY00 RET /Step / 	      +	,IF(1),CLEAR(1),SET(16)
KEY KEY01 RET @Set Step Into@ 	,IF(1),CLEAR(1)
KEY KEY02 RET @Set Step Over@ 	,IF(1),CLEAR(1)
KEY KEY03 RET /Walk / 	      +	,IF(1),CLEAR(1),SET(16)
KEY KEY04 RET /Examine @./ 	,IF(1),CLEAR(1)
KEY KEY05 RET /Deposit .=/    +	,IF(1),CLEAR(1),SET(16)
KEY KEY06 RET /Evaluate ./ 	,IF(1),CLEAR(1)
KEY KEY07 RET /Cancel Break / +	,IF(1),CLEAR(1),SET(3,16)
KEY KEY08 RET /Cancel Watch / +	,IF(1),CLEAR(1),SET(3,16)
KEY KEY09 RET /Set / +		,IF(1),CLEAR(1),SET(16)
KEY DASH  RET /Set Module / +	,IF(1),CLEAR(1),SET(16)
KEY COMMA RET /Examine .:.+/ +	,IF(1),CLEAR(1),SET(16)
!
! Numbers in state 16
!
KEY KEY00 RET /0/ +, IF(16)
KEY KEY01 RET /1/ +, IF(16)
KEY KEY02 RET /2/ +, IF(16)
KEY KEY03 RET /3/ +, IF(16)
KEY KEY04 RET /4/ +, IF(16)
KEY KEY05 RET /5/ +, IF(16)
KEY KEY06 RET /6/ +, IF(16)
KEY KEY07 RET /7/ +, IF(16)
KEY KEY08 RET /8/ +, IF(16)
KEY KEY09 RET /9/ +, IF(16)
!
! State 3 provides /ALL when enter is hit
!
KEY ENTER RET ./All. ,IF(3),CLEAR(1,3,16)
KEY ENTER RET //           ,CLEAR(1,3,16)
KEY RETURN RET ./All. ,IF(3),CLEAR(1,3,16)
KEY RETURN RET //           ,CLEAR(1,3,16)
!
! Arrow Keys
!
KEY UP    RET .Examine/Ins @PC.
KEY DOWN  RET .Examine/Ins.
KEY LEFT  RET /Examine .-4/
KEY RIGHT RET /Examine/
!
!
! HELP KEYS
! 
HELP PF1 /[7m        /  GOLD  /        [0m/
HELP PF2 /[7m DEBUG  [0m/  Help  / Keypad /  
HELP PF3 /[7mCan Trac[0m/      /Set Trac/
HELP PF4 /[7m MACRO  [0m/  Set /Language/
HELP DASH /[7m Module [0m/   Set /  Mode/
HELP COMA *[7m /ASCII [0m*Examine*  .:.+*
HELP KEY7 /[7mCan Brk [0m/      /Set Brk/
HELP KEY8 /[7mCan Watc[0m/      /Set Watc/
HELP KEY9 /[7m   Set  [0m/        /  Show  /
HELP KEY4 /[7m Exam @.[0m/       / Examine/
HELP KEY5 /[7m Dep .= [0m/       / Deposit/
HELP KEY6 /[7m Eval . [0m/       /Evaluate/
HELP KEY1 /[7m  Set   [0m/  Step/  Into/
HELP KEY2 /[7m  Set   [0m/  Step/  Over/
HELP KEY3 /[7m  Walk  [0m/       /   Go  /
HELP KEY0 /[7m      STEP n     [0m/            /      STEP  /
HELP DOT  /Same as/     / CTRL U/
!HELP ENTR
!
! Left hand portion of HELP screen
!
HELP PF1 /   [7mKeypad DEBUGGER V1.1 VMS V3.0[0m/
HELP PF1 .

^      Examine/Instruction @PC.
HELP PF1 .


v      Examine/Instruction.
HELP PF1 /


<      Examine .-4/
HELP PF1 /


>      Examine/
HELP KEY4 .ENTER  /ALL for Can Break or Can Watch.
HELP KEY4 /
<LF>   Call DCL (Not operational)/
HELP KEY4 /

[7m<LF>[0m   Call Edit (Not operational)/
HELP KEY4 /


^K     Define Key (Not operational)/
HELP KEY4 /


^R     Repaint Screen/
HELP KEY4 /


^T     Show Time/
HELP KEY4 /


^U     Erase Line/
HELP KEY4 /


^W     Repaint Screen/
HELP KEY4 /


^Z     Exit/