X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvax%2Fvs%2Fvsdefs.mud;fp=mim%2Fdevelopment%2Fmim%2Fvax%2Fvs%2Fvsdefs.mud;h=7a1e30646efe1a7bc0a10777bf293e91b3eabaa6;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07 diff --git a/mim/development/mim/vax/vs/vsdefs.mud b/mim/development/mim/vax/vs/vsdefs.mud new file mode 100644 index 0000000..7a1e306 --- /dev/null +++ b/mim/development/mim/vax/vs/vsdefs.mud @@ -0,0 +1,303 @@ + + + + + + +> + + + +> + > + <>>> + > + >)) + > + )> + .FIX -1> + KEY>>> + + [.FIX .VECTOR]>) + (T + <>>)> + >> + )>> + +; "Input packet types" + + + + +; "Error codes" + + + + + + + + + + + +; "Event codes" + + + + + + + + + + + + + + +> + +; "Key shift codes" + +> +> +> +> +> +> +> + +; "There are three kinds of keys--shift keys, function keys, and normal keys. +Shifts are shift, shift-lock, control, and symbol; function keys are everything +off the main keypad." + + + + + + + + + + + 4>> + + "OPTIONAL"
) + + + 8>> + '.NEW>>) + (T + + 8>>>)>>>) + (T + + + 8>> + '.NEW>>) + (T + + 8>>>)>>>)>> + +) (COMPILER? <>)) + #DECL ((NAME) ATOM (WHICH) FIX) + + 2>> + >>) + (T + > + )> + 2>> + )> + > + ) + (T + + "OPTIONAL" ) + + + '.NEW>) + (T + + '.NEW>)>>) + (T + >) + (T + >)>)) + > + ''.TEMP) + (T + )>>)>>>) + (T + + + '.NEW>) + (T + + '.NEW>)>>) + (T + >) + (T + >)>> + *100000*>>> + ) + (T '.TEMP)>)>>>)>)>> + + + ; "Fields of input packet" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ; "Fields of output packet" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + )> + + + + + + +> + + +>>> + + .X > + >>> + + + <1 .X>>>) + ()>)>)> + .Y > + >>> + + + <1 .Y>>>) + ()> !.L)>)> + > + )) + !.L)>>)>> + +