X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Fumc-defs.mud;fp=mim%2Fdevelopment%2Fmim%2Fvax%2Fmimlib%2Fumc-defs.mud;h=7a161ee749b5f8a321f85c0060ec173abb9db3cd;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07 diff --git a/mim/development/mim/vax/mimlib/umc-defs.mud b/mim/development/mim/vax/mimlib/umc-defs.mud new file mode 100644 index 0000000..7a161ee --- /dev/null +++ b/mim/development/mim/vax/mimlib/umc-defs.mud @@ -0,0 +1,70 @@ +; "VERSION FOR USER CODE" + +; "Definitions of macros to access slots in mudchans, for use by READ + and PRINT. Assume that third arg is literally either true or false-- + EVALed at compile time. Similarly, if second arg is T, it is assumed + to not be there." + +)> + + + + +
)) + #DECL ((SU) MUD-CHAN) + + ) + ()>>) + (T + + .OFFS>>)>)>> + +)) + >> + +)) + >> + +)) + >> + +)) + >> + +)) + >> + +)) + >> + +)) + >> + +)) + >> + +)) + >> + +)) + + )) + #DECL ((SU) MUD-CHAN) + + >>>) + (.NEW + .WHICH>>) + (T + + >>>)>>) + (T + + >>)>)>> + +>>> + +