mim/development/mim/vaxc/defmimops.mud

   1 <INIT-OPERATIONS>
   2 <DEFINE-MIMOP "FCN" ,FCN-PROCESS>
   3 <DEFINE-MIMOP "GFCN" ,FCN-PROCESS>
   4 <DEFINE-MIMOP "TEMP" ,TEMP-PROCESS>
   5 <DEFINE-MIMOP "ADD" ,ADDFIX-GEN T>
   6 <DEFINE-MIMOP "LESS?" ,LESSFIX-GEN>
   7 <DEFINE-MIMOP "GRTR?" ,GTFIX-GEN>
   8 <DEFINE-MIMOP "VEQUAL?" ,VEQUAL-GEN>
   9 <DEFINE-MIMOP "EQUAL?" ,EQUAL-GEN>
  10 <DEFINE-MIMOP "LOOP" ,LOOP-GEN>
  11 <DEFINE-MIMOP "JUMP" ,UCBRANCH-GEN>
  12 <DEFINE-MIMOP "SET" ,SET-GEN>
  13 <DEFINE-MIMOP "SETLR" ,SETLR-GEN>
  14 <DEFINE-MIMOP "SETRL" ,SETRL-GEN>
  15 <DEFINE-MIMOP "DEAD" ,SAFE-DEAD-VAR>
  16 <DEFINE-MIMOP "RETURN" ,RETURN-GEN>
  17 <DEFINE-MIMOP "NTHL" ,NTH-LIST-GEN T>
  18 <DEFINE-MIMOP "RESTL" ,REST-LIST-GEN T>
  19 <DEFINE-MIMOP "NTHUV" ,NTH-VECTOR-GEN T>
  20 <DEFINE-MIMOP "RESTUV" ,REST-VECTOR-GEN T>
  21 <DEFINE-MIMOP "LENL" ,LIST-LENGTH-GEN T>
  22 <DEFINE-MIMOP "LENUV" ,BLOCK-LENGTH-GEN T>
  23 <DEFINE-MIMOP "LENUS" ,BLOCK-LENGTH-GEN T>
  24 <DEFINE-MIMOP "LENUB" ,BLOCK-LENGTH-GEN T>
  25 <DEFINE-MIMOP "LENUU" ,BLOCK-LENGTH-GEN T>
  26 <DEFINE-MIMOP "LENU" ,BLOCK-LENGTH-GEN T>
  27 <DEFINE-MIMOP "LENR" ,BLOCK-LENGTH-GEN>
  28 <DEFINE-MIMOP "EMPL?" ,LIST-EMP-GEN T>
  29 <DEFINE-MIMOP "EMPUV?" ,BLOCK-EMP-GEN>
  30 <DEFINE-MIMOP "EMPUS?" ,BLOCK-EMP-GEN>
  31 <DEFINE-MIMOP "EMPUB?" ,BLOCK-EMP-GEN>
  32 <DEFINE-MIMOP "EMPUU?" ,BLOCK-EMP-GEN>
  33 <DEFINE-MIMOP "EMPR?" ,BLOCK-EMP-GEN>
  34 <DEFINE-MIMOP "PUTL" ,PUT-LIST-GEN T>
  35 <DEFINE-MIMOP "PUTREST" ,PUTREST-GEN T>
  36 <DEFINE-MIMOP "SUB" ,SUBFIX-GEN T>
  37 <DEFINE-MIMOP "PUTUV" ,PUT-VEC-GEN T>
  38 <DEFINE-MIMOP "TYPE?" ,TYPE-TST-GEN>
  39 <DEFINE-MIMOP "PUSH" ,PUSH-GEN>
  40 <DEFINE-MIMOP "FRAME" ,FRAME-GEN>
  41 <DEFINE-MIMOP "CALL" ,CALL-GEN>
  42 <DEFINE-MIMOP "CONS" ,CONS-GEN>
  43 <DEFINE-MIMOP "END" ,TIME>
  44 <DEFINE-MIMOP "GVAL" ,GVAL-GEN>
  45 <DEFINE-MIMOP "CHTYPE" ,CHTYPE-GEN>
  46 <DEFINE-MIMOP "SETG" ,SETG-GEN T>
  47 <DEFINE-MIMOP "ICALL" ,ICALL-GEN>
  48 <DEFINE-MIMOP "MUL" ,MULFIX-GEN T>
  49 <DEFINE-MIMOP "DIV" ,DIVFIX-GEN T>
  50 <DEFINE-MIMOP "MOD" ,MODFIX-GEN T>
  51 <DEFINE-MIMOP "OPT-DISPATCH" ,OPDISP-GEN>
  52 <DEFINE-MIMOP "MAKTUP" ,MAKTUP-GEN>
  53 <DEFINE-MIMOP "FIXBIND" ,FIXBIND-GEN>
  54 <DEFINE-MIMOP "UNBIND" ,UNBIND-GEN>
  55 <DEFINE-MIMOP "GETS" ,GETS-GEN>
  56 <DEFINE-MIMOP "SETS" ,SETS-GEN>
  57 <DEFINE-MIMOP "LIST" ,LIST-GEN>
  58 <DEFINE-MIMOP "RECORD" ,RECORD-GEN>
  59 <DEFINE-MIMOP "NTHR" ,NTH-RECORD-GEN T>
  60 <DEFINE-MIMOP "PUTR" ,PUTR-GEN T>
  61 <DEFINE-MIMOP "PUTUU" ,PUT-UVECTOR-GEN T>
  62 <DEFINE-MIMOP "PUTUS" ,PUT-STRING-GEN T>
  63 <DEFINE-MIMOP "PUTUB" ,PUT-BYTE-GEN T>
  64 <DEFINE-MIMOP "NTHUU" ,NTH-UVECTOR-GEN T>
  65 <DEFINE-MIMOP "NTHUS" ,NTH-STRING-GEN T>
  66 <DEFINE-MIMOP "NTHUB" ,NTH-BYTE-GEN T>
  67 <DEFINE-MIMOP "RESTUU" ,REST-UVECTOR-GEN T>
  68 <DEFINE-MIMOP "RESTUS" ,REST-STRING-GEN T>
  69 <DEFINE-MIMOP "RESTUB" ,REST-BYTE-GEN T>
  70 <DEFINE-MIMOP "CFRAME" ,CFRAME-GEN>
  71 <DEFINE-MIMOP "BIND" ,BIND-GEN>
  72 <DEFINE-MIMOP "POP" ,POP-GEN>
  73 <DEFINE-MIMOP "UBLOCK" ,UBLOCK-GEN>
  74 <DEFINE-MIMOP "ADDF" ,ADDF-GEN T>
  75 <DEFINE-MIMOP "SUBF" ,SUBF-GEN T>
  76 <DEFINE-MIMOP "MULF" ,MULF-GEN T>
  77 '<DEFINE-MIMOP "MODF" ,MODF-GEN T>
  78 <DEFINE-MIMOP "DIVF" ,DIVF-GEN T>
  79 <DEFINE-MIMOP "AGAIN" ,AGAIN-GEN>
  80 <DEFINE-MIMOP "RTUPLE" ,RTUPLE-GEN>
  81 <DEFINE-MIMOP "ACTIVATION" ,ACTIVATION-GEN>
  82 <DEFINE-MIMOP "RETRY" ,RETRY-GEN>
  83 <DEFINE-MIMOP "OR" ,OR-GEN T>
  84 <DEFINE-MIMOP "AND" ,AND-GEN T>
  85 <DEFINE-MIMOP "LSH" ,LSH-GEN T>
  86 <DEFINE-MIMOP "ASH" ,ASH-GEN T>
  87 <DEFINE-MIMOP "ROT" ,ROT-GEN T>
  88 <DEFINE-MIMOP "XOR" ,EOR-GEN T>
  89 <DEFINE-MIMOP "EQV" ,EQV-GEN T>
  90 <DEFINE-MIMOP "TUPLE" ,TUPLE-GEN>
  91 <DEFINE-MIMOP "INTGO" ,INTGO-GEN>
  92 <DEFINE-MIMOP "TYPE" ,TYPE-GEN T>
  93 <DEFINE-MIMOP "NEWTYPE" ,NEWTYPE-GEN>
  94 <DEFINE-MIMOP "OPEN" ,OPEN-GEN>
  95 <DEFINE-MIMOP "CLOSE" ,CLOSE-GEN>
  96 <DEFINE-MIMOP "READ" ,READ-GEN>
  97 <DEFINE-MIMOP "PRINT" ,PRINT-GEN>
  98 <DEFINE-MIMOP "SAVE" ,SAVE-GEN>
  99 <DEFINE-MIMOP "RESTORE" ,RESTORE-GEN>
 100 <DEFINE-MIMOP "FIX" ,FIX-GEN T>
 101 <DEFINE-MIMOP "FLOAT" ,FLOAT-GEN T>
 102 <DEFINE-MIMOP "RANDOM" ,RANDOM-GEN T>
 103 <DEFINE-MIMOP "COMPERR" ,COMPERR-GEN>
 104 <DEFINE-MIMOP "IRECORD" ,IRECORD-GEN>
 105 <DEFINE-MIMOP "ADJ" ,ADJ-GEN>
 106 <DEFINE-MIMOP "RFRAME" ,RETURN-GEN>
 107 <DEFINE-MIMOP "PFRAME" ,PFRAME-GEN>
 108 <DEFINE-MIMOP "ARGS" ,ARGS-GEN>
 109 <DEFINE-MIMOP "NTHU" ,NTHU-GEN>
 110 <DEFINE-MIMOP "RESTU" ,RESTU-GEN>
 111 <DEFINE-MIMOP "PUTU" ,PUTU-GEN>
 112 <DEFINE-MIMOP "BACKU" ,BACKU-GEN>
 113 <DEFINE-MIMOP "TOPU" ,TOPU-GEN>
 114 <DEFINE-MIMOP "TUPUV" ,TOPU-GEN>
 115 <DEFINE-MIMOP "TOPUS" ,TOPU-GEN>
 116 <DEFINE-MIMOP "TOPUB" ,TOPU-GEN>
 117 <DEFINE-MIMOP "RESET" ,RESET-GEN>
 118 <DEFINE-MIMOP "ATIC" ,ATIC-GEN>
 119 <DEFINE-MIMOP "VALUE" ,VALUE-GEN T>
 120 <DEFINE-MIMOP "NTH1" ,NTH1-GEN>
 121 <DEFINE-MIMOP "REST1" ,REST1-GEN T>
 122 <DEFINE-MIMOP "FGVAL" ,FGVAL-GEN>
 123 <DEFINE-MIMOP "MONAD?" ,MONAD?-GEN T>
 124 <DEFINE-MIMOP "EMPTY?" ,EMPTY?-GEN T>
 125 <DEFINE-MIMOP "GASSIGNED?" ,GASSIGNED?-GEN>
 126 <DEFINE-MIMOP "MARKL" ,MARKL-GEN>
 127 <DEFINE-MIMOP "MARKUV" ,MARKUV-GEN>
 128 <DEFINE-MIMOP "MARKUU" ,MARKUU-GEN>
 129 <DEFINE-MIMOP "MARKUS" ,MARKUS-GEN>
 130 <DEFINE-MIMOP "MARKUB" ,MARKUB-GEN>
 131 <DEFINE-MIMOP "MARKR" ,MARKR-GEN>
 132 <DEFINE-MIMOP "MARKL?" ,MARKL?-GEN>
 133 <DEFINE-MIMOP "MARKUV?" ,MARKUV?-GEN>
 134 <DEFINE-MIMOP "MARKUU?" ,MARKUU?-GEN>
 135 <DEFINE-MIMOP "MARKUS?" ,MARKUS?-GEN>
 136 <DEFINE-MIMOP "MARKUB?" ,MARKUB?-GEN>
 137 <DEFINE-MIMOP "MARKR?" ,MARKR?-GEN>
 138 <DEFINE-MIMOP "SWNEXT" ,SWNEXT-GEN>
 139 <DEFINE-MIMOP "NEXTS" ,NEXTS-GEN>
 140 <DEFINE-MIMOP "CONTENTS" ,CONTENTS-GEN>
 141 <DEFINE-MIMOP "OBJECT" ,OBJECT-GEN T>
 142 <DEFINE-MIMOP "RELL" ,RELL-GEN>
 143 <DEFINE-MIMOP "RELR" ,RELR-GEN>
 144 <DEFINE-MIMOP "RELU" ,RELU-GEN>
 145 <DEFINE-MIMOP "SYSCALL" ,SYSCALL-GEN>
 146 <DEFINE-MIMOP "QUIT" ,QUIT-GEN>
 147 <DEFINE-MIMOP "TEMPLATE-TABLE" ,TEMPLATE-TABLE-GEN>
 148 <DEFINE-MIMOP "SETZONE" ,SETZONE-GEN>
 149 <DEFINE-MIMOP "LEGAL?" ,LEGAL-GEN>
 150 <DEFINE-MIMOP "LOCATION" ,LOCATION-GEN>
 151 <DEFINE-MIMOP "UNWCNT" ,UNWCNT-GEN>
 152 <DEFINE-MIMOP "ALLOCR" ,ALLOCR-GEN>
 153 <DEFINE-MIMOP "ALLOCUU" ,ALLOCUU-GEN>
 154 <DEFINE-MIMOP "ALLOCUV" ,ALLOCUV-GEN>
 155 <DEFINE-MIMOP "ALLOCUS" ,ALLOCUS-GEN>
 156 <DEFINE-MIMOP "ALLOCUB" ,ALLOCUB-GEN>
 157 <DEFINE-MIMOP "ALLOCL" ,ALLOCL-GEN>
 158 <DEFINE-MIMOP "BLT" ,BLT-GEN>
 159 <DEFINE-MIMOP "PUTS" ,PUTS-GEN T>
 160 <DEFINE-MIMOP "MPAGES" ,MPAGES-GEN>
 161 <DEFINE-MIMOP "ACALL" ,ACALL-GEN>
 162 <DEFINE-MIMOP "RNTIME" ,RNTIME-GEN>
 163 <DEFINE-MIMOP "SCALL" ,SCALL-GEN>
 164 <DEFINE-MIMOP "MRETURN" ,MRETURN-GEN>
 165 <DEFINE-MIMOP "SFRAME" ,SFRAME-GEN>
 166 <DEFINE-MIMOP "TYPEW" ,TYPEW-GEN>
 167 <DEFINE-MIMOP "TYPEWC" ,TYPEWC-GEN>
 168 <DEFINE-MIMOP "SAVTTY" ,SAVTTY-GEN>
 169 <DEFINE-MIMOP "FATAL" ,FATAL-GEN>
 170 <DEFINE-MIMOP "GETTTY" ,GETTTY-GEN>
 171 <DEFINE-MIMOP "GETBITS" ,GETBITS-GEN T>
 172 <DEFINE-MIMOP "PUTBITS" ,PUTBITS-GEN T>
 173 <DEFINE-MIMOP "DISPATCH" ,DISPATCH-GEN>
 174 <DEFINE-MIMOP "PIPE" ,PIPE-GEN>
 175 <DEFINE-MIMOP "CGC-UVECTOR" ,CGC-UVECTOR-GEN>
 176 <DEFINE-MIMOP "CGC-STRING" ,CGC-STBYTE-GEN>
 177 <DEFINE-MIMOP "CGC-BYTES" ,CGC-STBYTE-GEN>
 178 <DEFINE-MIMOP "CGC-LIST" ,CGC-LIST-GEN>
 179 <DEFINE-MIMOP "CGC-VECTOR" ,CGC-VECTOR-GEN>
 180 <DEFINE-MIMOP "CGC-RECORD" ,CGC-RECORD-GEN>
 181 <DEFINE-MIMOP "ILDB" ,ILDB-GEN T>
 182 <DEFINE-MIMOP "IDPB" ,IDPB-GEN T>
 183 <DEFINE-MIMOP "MOVSTK" ,MOVSTK-GEN>
 184 <DEFINE-MIMOP "GETSTK" ,GETSTK-GEN>
 185 <DEFINE-MIMOP "ON-STACK?" ,ON-STACK?-GEN>       ; "Check for stack object"
 186 <DEFINE-MIMOP "UUBLOCK" ,UUBLOCK-GEN>           ; "Build uninitialized structure"
 187 <DEFINE-MIMOP "SBLOCK" ,SBLOCK-GEN>
 188 <DEFINE-MIMOP "USBLOCK" ,USBLOCK-GEN>           ; "Stack structures"
 189 <DEFINE-MIMOP "CHANNEL-OP" ,CHANNEL-OP-GEN>     ; "Open-compiled channel ops"
 190 <DEFINE-MIMOP "BBIND" ,GEN-BBIND>               ; "Bind an atom"
 191 <DEFINE-MIMOP "GEN-LVAL" ,GEN-LVAL>             ; "Get a special lval"
 192 <DEFINE-MIMOP "GEN-ASSIGNED?" ,GEN-ASSIGNED?>   ; "Assigned?"
 193 <DEFINE-MIMOP "GEN-SET" ,GEN-SET>               ; "Set a special"
 194 <DEFINE-MIMOP "MOVE-WORDS" ,MOVE-WORDS-GEN>     ; "Substruc vector/uvector"
 195 <DEFINE-MIMOP "MOVE-STRING" ,MOVE-STRING-GEN>   ; "Substruc string/bytes"
 196 <DEFINE-MIMOP "STRING-EQUAL?" ,STRING-EQUAL?-GEN>
 197 <DEFINE-MIMOP "STRCOMP" ,STRCOMP-GEN>
 198 <DEFINE-MIMOP "BIGSTACK" ,BIGSTACK-GEN>         ; "State of stack growth"
 199 ;<DEFINE-MIMOP "DOUBLE" ,DOUBLE-GEN>            ; "Experimental."
 200
 201 <SETG PASS-OPS <UVECTOR ,TEMP!-MIMOP ,MAKTUP!-MIMOP ,OPT-DISPATCH!-MIMOP
 202                  ,FCN!-MIMOP ,GFCN!-MIMOP ,LOOP!-MIMOP>>
 203
 204 <SETG MIM-PREDS [,LESS?!-MIMOP
 205                  ,GRTR?!-MIMOP
 206                  ,VEQUAL?!-MIMOP
 207                  ,EQUAL?!-MIMOP
 208                  ,JUMP!-MIMOP
 209                  ,EMPL?!-MIMOP
 210                  ,EMPUV?!-MIMOP
 211                  ,EMPR?!-MIMOP
 212                  ,EMPUU?!-MIMOP
 213                  ,TYPE?!-MIMOP
 214                  ,EMPTY?!-MIMOP
 215                  ,GASSIGNED?!-MIMOP
 216                  ,MARKL?!-MIMOP
 217                  ,MARKUU?!-MIMOP
 218                  ,MARKUV?!-MIMOP
 219                  ,MARKR?!-MIMOP
 220                  ,GEN-ASSIGNED?!-MIMOP
 221                  ,STRING-EQUAL?!-MIMOP]>
 222
 223 <MSETG SPSTO-LOC <- *17777777777* <* 12 512> 19>>
 224 <MSETG BINDID-LOC <- *17777777777* <* 12 512> 15>>
 225 <MSETG STKTOP-LOC <- *17777777777* <* 12 512> 11>>
 226 <MSETG STKBOT-LOC <- *17777777777* <* 12 512> 7>>
 227 <MSETG INTFLG-LOC <- *17777777777* <* 12 512> 3>>
 228 <MSETG DISPATCH-TABLE-START 8>
 229
 230 <INIT-CALL-DISPATCH>
 231
 232 <CREATE-CALL-DESC "FINIS" <> <>>
 233 <CREATE-CALL-DESC "IFRAME"  <> <>>
 234 <CREATE-CALL-DESC "MCALL" T
 235                   <CREATE-DATUM <> AC-0 AC-1>
 236                   <RTE-ARGS VALUE <> AC-0>
 237                   <RTE-ARGS VALUE <> AC-1>>
 238 <CREATE-CALL-DESC "ICONS" T
 239                   <CREATE-DATUM LIST <> AC-1>
 240                   <RTE-ARGS VALUE <> AC-3>
 241                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 242 <CREATE-CALL-DESC "INCALL" T <>>
 243 <CREATE-CALL-DESC "IGETS" <>
 244                   <CREATE-DATUM <> AC-0 AC-1>
 245                   <RTE-ARGS VALUE <> AC-1>>
 246 <CREATE-CALL-DESC "ISETS" <> <>
 247                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 248                   <RTE-ARGS VALUE <> AC-3>>
 249 <CREATE-CALL-DESC "IFIXBND" <> <>>
 250 <CREATE-CALL-DESC "IUNBIND" T <> <RTE-ARGS VALUE <> AC-1>>
 251 <CREATE-CALL-DESC "BRECORD" T <CREATE-DATUM <> AC-0 AC-1>
 252                   <RTE-ARGS VALUE <> AC-0>
 253                   <RTE-ARGS VALUE <> AC-1>>
 254 <CREATE-CALL-DESC "BVECTOR" T <CREATE-DATUM VECTOR AC-0 AC-1>>
 255 <CREATE-CALL-DESC "BLIST" T <CREATE-DATUM LIST <> AC-1>
 256                   <RTE-ARGS VALUE <> AC-1>>
 257 <CREATE-CALL-DESC "IBIND" <> <CREATE-DATUM T$LBIND <> AC-1>>
 258 <CREATE-CALL-DESC "IBLOCK" T <CREATE-DATUM VECTOR AC-0 AC-1>
 259                   <RTE-ARGS VALUE <> AC-1>>
 260 <CREATE-CALL-DESC "IACTIVATION" T <>>
 261 <CREATE-CALL-DESC "IAGAIN" <> <> <RTE-ARGS VALUE <> AC-1>>
 262 <CREATE-CALL-DESC "IRETRY" <> <> <RTE-ARGS VALUE <> AC-1>>
 263 <CREATE-CALL-DESC "IRTUPLE" <> <>
 264                   <RTE-ARGS VALUE <> AC-1>
 265                   <RTE-ARGS VALUE <> AC-2>>
 266 <CREATE-CALL-DESC "ITUPLE" T <CREATE-DATUM TUPLE AC-0 AC-1>
 267                   <RTE-ARGS VALUE <> AC-1>>
 268 <CREATE-CALL-DESC "LCKINT" <> <>>
 269 <CREATE-CALL-DESC "INEWTYPE" T <CREATE-DATUM FIX <> AC-1>
 270                   <RTE-ARGS VALUE <> AC-1>>
 271 <CREATE-CALL-DESC "IOPEN" T <CREATE-DATUM <> AC-0 AC-1>
 272                   <RTE-ARGS VALUE <> AC-3>
 273                   <RTE-ARGS VALUE <> AC-5>
 274                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 275 <CREATE-CALL-DESC "ICLOSE" T <>
 276                   <RTE-ARGS VALUE <> AC-1>>
 277 <CREATE-CALL-DESC "IREAD" T <CREATE-DATUM FIX <> AC-1>
 278                   <RTE-ARGS VALUE <> AC-5>
 279                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 280                   <RTE-ARGS VALUE <> AC-3>
 281                   <RTE-ARGS VALUE <> AC-7>>
 282 <CREATE-CALL-DESC "IPRINT" T <>
 283                  <RTE-ARGS VALUE <> AC-5>
 284                  <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 285                  <RTE-ARGS VALUE <> AC-3>>
 286 <CREATE-CALL-DESC "ISAVE" T <CREATE-DATUM TYPE-VALUE-PAIR AC-0 AC-1>
 287                   <RTE-ARGS VALUE <> AC-1>
 288                   <RTE-ARGS VALUE <> AC-2>
 289                   <RTE-ARGS VALUE <> AC-3>>
 290 <CREATE-CALL-DESC "IRESTORE" T <>
 291                   <RTE-ARGS VALUE <> AC-1>>
 292 <CREATE-CALL-DESC "IRANDOM" <> <CREATE-DATUM FIX <> AC-1>
 293                   <RTE-ARGS VALUE <> AC-1>>
 294 <CREATE-CALL-DESC "ICOMPERR" T <>>
 295 <CREATE-CALL-DESC "BIREC"  T <CREATE-DATUM <> AC-0 AC-1>
 296                   <RTE-ARGS VALUE <> AC-1>
 297                   <RTE-ARGS VALUE <> AC-3>
 298                   <RTE-ARGS VALUE <> AC-5>>
 299 <CREATE-CALL-DESC "INTHU" <> <CREATE-DATUM <> AC-0 AC-1>
 300                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 301                   <RTE-ARGS VALUE <> AC-3>>
 302 <CREATE-CALL-DESC "IRESTU" <> <CREATE-DATUM <> AC-0 AC-1>
 303                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 304                   <RTE-ARGS VALUE <> AC-3>>
 305 <CREATE-CALL-DESC "IPUTU" <> <>
 306                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 307                   <RTE-ARGS VALUE <> AC-3>
 308                   <RTE-ARGS TYPE-VALUE-PAIR AC-4 AC-5>>
 309 <CREATE-CALL-DESC "INTHR" <> <CREATE-DATUM <> AC-0 AC-1>
 310                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 311                   <RTE-ARGS VALUE <> AC-3>>
 312 <CREATE-CALL-DESC "IPUTR" <> <>
 313                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 314                   <RTE-ARGS VALUE <> AC-3>
 315                   <RTE-ARGS TYPE-VALUE-PAIR AC-4 AC-5>>
 316 <CREATE-CALL-DESC "IBACKU" <> <CREATE-DATUM <> AC-0 AC-1>
 317                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 318                   <RTE-ARGS VALUE <> AC-3>>
 319 <CREATE-CALL-DESC "ITOPU" <> <CREATE-DATUM <> AC-0 AC-1>
 320                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 321 <CREATE-CALL-DESC "IRESET" T <> <RTE-ARGS VALUE <> AC-1>>
 322 <CREATE-CALL-DESC "IATIC" T <CREATE-DATUM <> AC-0 AC-1>
 323                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 324 <CREATE-CALL-DESC "IARGS" T <CREATE-DATUM <> AC-0 AC-1>
 325                   <RTE-ARGS VALUE <> AC-1>>
 326 <CREATE-CALL-DESC "CIEMP" <> <> <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 327 <CREATE-CALL-DESC "CINTH" <> <CREATE-DATUM <> AC-0 AC-1>
 328                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 329 <CREATE-CALL-DESC "CIMON" <> <> <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 330 <CREATE-CALL-DESC "CIRST" <> <CREATE-DATUM <> AC-0 AC-1>
 331                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 332 <CREATE-CALL-DESC "CIGAS" <> <CREATE-DATUM <> AC-0 AC-1>
 333                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 334 <CREATE-CALL-DESC "CIGVL" <> <CREATE-DATUM <> AC-0 AC-1>
 335                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 336 <CREATE-CALL-DESC "ISWNEXT" <> <CREATE-DATUM <> AC-0 AC-1>
 337                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 338                   <RTE-ARGS VALUE <> AC-2>>
 339 <CREATE-CALL-DESC "INEXTS" <> <CREATE-DATUM FIX <> AC-1>
 340                   <RTE-ARGS VALUE <> AC-1>>
 341 <CREATE-CALL-DESC "IRELU" <> <>
 342                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 343 <CREATE-CALL-DESC "IRELR" <> <>
 344                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 345 <CREATE-CALL-DESC "IRELL" <> <> <RTE-ARGS VALUE <> AC-1>>
 346 <CREATE-CALL-DESC "ICONTENTS" <> <CREATE-DATUM <> AC-0 AC-1>
 347                   <RTE-ARGS VALUE <> AC-1>>
 348 <CREATE-CALL-DESC "IMARKR" <> <>
 349                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 350                   <RTE-ARGS VALUE <> AC-3>>
 351 <CREATE-CALL-DESC "IMARKR?" <> <CREATE-DATUM <> AC-0 AC-1>
 352                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 353 <CREATE-CALL-DESC "ISYSCALL" T <CREATE-DATUM <> AC-0 AC-1>
 354                   <RTE-ARGS VALUE <> AC-1>
 355                   <RTE-ARGS VALUE <> AC-3>>
 356 <CREATE-CALL-DESC "IQUIT" T <>
 357                   <RTE-ARGS VALUE <> AC-1>>
 358 <CREATE-CALL-DESC "ITTABLE" <> <> <RTE-ARGS VALUE <> AC-1>
 359                   <RTE-ARGS TYPE-VALUE-PAIR AC-2 AC-3>>
 360 <CREATE-CALL-DESC "ISETZONE" <> <CREATE-DATUM <> AC-0 AC-1>
 361                   <RTE-ARGS VALUE <> AC-1>>
 362 <CREATE-CALL-DESC "ILEGAL?" <> <CREATE-DATUM <> AC-0 AC-1>
 363                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 364 <CREATE-CALL-DESC "IUNWCNT" T <>>
 365 <CREATE-CALL-DESC "IMPAGES" T <CREATE-DATUM <> AC-0 AC-1>
 366                   <RTE-ARGS VALUE <> AC-1>>
 367 <CREATE-CALL-DESC "IPUTS" <> <> <RTE-ARGS VALUE <> AC-1>
 368                                 <RTE-ARGS TYPE-VALUE-PAIR AC-2 AC-3>>
 369
 370 <CREATE-CALL-DESC "IACALL" T
 371                   <CREATE-DATUM <> AC-0 AC-1>
 372                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>
 373                   <RTE-ARGS VALUE <> AC-3>>
 374 <CREATE-CALL-DESC "ISYSCALL" T <CREATE-DATUM <> AC-0 AC-1>
 375                   <RTE-ARGS VALUE <> AC-0>
 376                   <RTE-ARGS VALUE <> AC-1>>
 377 <CREATE-CALL-DESC "IRNTIME" T
 378                   <CREATE-DATUM FLOAT AC-0 AC-1>>
 379 <CREATE-CALL-DESC "ISFRAME" <> <>>
 380 <CREATE-CALL-DESC "IMRETURN" <> <>>
 381 <CREATE-CALL-DESC "ITYPEW" <> <CREATE-DATUM TYPE-W AC-0 AC-1>
 382                   <RTE-ARGS VALUE <> AC-0>
 383                   <RTE-ARGS VALUE <> AC-1>>
 384 <CREATE-CALL-DESC "ITYPEWC" <> <CREATE-DATUM TYPE-C AC-0 AC-1>
 385                   <RTE-ARGS VALUE <> AC-1>>
 386 <CREATE-CALL-DESC "ISAVTTY" <> <>
 387                   <RTE-ARGS VALUE <> AC-0>
 388                   <RTE-ARGS VALUE <> AC-1>>
 389 <CREATE-CALL-DESC "IFATAL" <> <>
 390                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 391 <CREATE-CALL-DESC "IGETTTY" <> <CREATE-DATUM <> AC-0 AC-1>
 392                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 393 <CREATE-CALL-DESC "IPIPE" T <CREATE-DATUM <> AC-0 AC-1>
 394                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 395 <CREATE-CALL-DESC "IGVERR" T <>
 396                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 397 <CREATE-CALL-DESC "IMOVSTK" T <>
 398                   <RTE-ARGS VALUE <> AC-0>>
 399 <CREATE-CALL-DESC "IGETSTK" <> <CREATE-DATUM UVECTOR AC-0 AC-1>
 400                   <RTE-ARGS TYPE-VALUE-PAIR AC-0 AC-1>>
 401 <CREATE-CALL-DESC "UIBLOCK" T <CREATE-DATUM VECTOR AC-0 AC-1>
 402                   <RTE-ARGS VALUE <> AC-1>>
 403 <CREATE-CALL-DESC "ISBLOCK" <> <CREATE-DATUM VECTOR AC-0 AC-1>
 404                   <RTE-ARGS VALUE <> AC-1>>
 405 <CREATE-CALL-DESC "UISBLOCK" <> <CREATE-DATUM VECTOR AC-0 AC-1>
 406                   <RTE-ARGS VALUE <> AC-1>>
 407 <CREATE-CALL-DESC "IASSQ" <> <CREATE-DATUM LBIND <> AC-1>
 408                   <RTE-ARGS VALUE <> AC-0>>
 409 <CREATE-CALL-DESC "ILVAL" T <CREATE-DATUM TYPE-VALUE-PAIR AC-0 AC-1>
 410                   <RTE-ARGS VALUE <> AC-0>>
 411 <CREATE-CALL-DESC "ISET" T <>
 412                   <RTE-ARGS VALUE <> AC-0>
 413                   <RTE-ARGS TYPE-VALUE-PAIR AC-2 AC-3>>
 414 <CREATE-CALL-DESC "IBIGSTK" <> <CREATE-DATUM FIX <> AC-1>
 415                   <RTE-ARGS VALUE <> AC-1>>
 416
 417 <SETG CASE-ENTRY-TABLE <VECTOR <CREATE-CASE-ENTRY ARGS 1 FIX>
 418                                <CREATE-CASE-ENTRY OBLIST 2 OBLIST>
 419                                <CREATE-CASE-ENTRY BIND 3 T$LBIND>
 420                                <CREATE-CASE-ENTRY ECALL 4 ATOM>
 421                                <CREATE-CASE-ENTRY NCALL 5 ATOM>
 422                                <CREATE-CASE-ENTRY UWATM 6 ATOM>
 423                                <CREATE-CASE-ENTRY PAGPTR 7 T$PAGET>
 424                                <CREATE-CASE-ENTRY MINF 8 T$MINF>
 425                                <CREATE-CASE-ENTRY ICALL 9 ATOM>
 426                                <CREATE-CASE-ENTRY MAPPER 10 ATOM>
 427                                <CREATE-CASE-ENTRY ENVIR 11 VECTOR>
 428                                <CREATE-CASE-ENTRY ARGV 12 VECTOR>
 429                                <CREATE-CASE-ENTRY HOMSTR 13 STRING>
 430                                <CREATE-CASE-ENTRY RUNINT 14 FIX>
 431                                <CREATE-CASE-ENTRY TBIND 15 T$LBIND>
 432                                <CREATE-CASE-ENTRY INGC 16 FIX>>>