mim/development/mim/vaxc/mvec.mima

   1
   2 #WORD *12712313301*
   3                     <GFCN \1aXCOP-PRINT ("VALUE" CHARACTER ANY) X4>
   4                     <TEMP OUTCHAN5>
   5                     <INTGO>
   6                     <GEN-LVAL 'OUTCHAN = OUTCHAN5>
   7                     <FRAME '\1aPRINC>
   8                     <PUSH "%<CHANNEL-OPERATION ">
   9                     <PUSH OUTCHAN5>
  10                     <CALL '\1aPRINC 2>
  11                     <FRAME '\1aPRIN1>
  12                     <NTH1 X4 = STACK>
  13                     <PUSH OUTCHAN5>
  14                     <CALL '\1aPRIN1 2>
  15                     <FRAME '\1aPRINC>
  16                     <PUSH !\ >
  17                     <PUSH OUTCHAN5>
  18                     <CALL '\1aPRINC 2>
  19                     <FRAME '\1aPRIN1>
  20                     <FRAME '\1aNTH>
  21                     <PUSH X4>
  22                     <DEAD X4>
  23                     <PUSH 2>
  24                     <CALL '\1aNTH 2 = STACK>
  25                     <PUSH OUTCHAN5>
  26                     <CALL '\1aPRIN1 2>
  27                     <FRAME '\1aPRINC>
  28                     <PUSH !\>>
  29                     <PUSH OUTCHAN5>
  30                     <DEAD OUTCHAN5>
  31                     <CALL '\1aPRINC 2 = OUTCHAN5>
  32                     <RETURN OUTCHAN5>
  33                     <DEAD OUTCHAN5>
  34                     <END \1aXCOP-PRINT>
  35
  36 #WORD *33066344523*
  37                     <GFCN \1aXGLOC-PRINT ("VALUE" <OR CHARACTER STRING> XGLOC) X4>
  38                     <TEMP OUTCHAN5 TEMP10>
  39                     <INTGO>
  40                     <GEN-LVAL 'OUTCHAN = OUTCHAN5>
  41                     <GVAL 'BOOT-MODE = TEMP10>
  42                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
  43                     <DEAD TEMP10>
  44                     <FRAME '\1aPRIN1>
  45                     <CHTYPE X4 <TYPE-CODE ATOM> = STACK>
  46                     <DEAD X4>
  47                     <PUSH OUTCHAN5>
  48                     <CALL '\1aPRIN1 2>
  49                     <FRAME '\1aPRINC>
  50                     <PUSH !\ >
  51                     <PUSH OUTCHAN5>
  52                     <DEAD OUTCHAN5>
  53                     <CALL '\1aPRINC 2 = TEMP10>
  54                     <RETURN TEMP10>
  55                     <DEAD TEMP10>
  56 PHRASE9
  57                     <FRAME '\1aPRINC>
  58                     <PUSH "%<GBIND ">
  59                     <PUSH OUTCHAN5>
  60                     <CALL '\1aPRINC 2>
  61                     <FRAME '\1aPRIN1>
  62                     <CHTYPE X4 <TYPE-CODE ATOM> = STACK>
  63                     <DEAD X4>
  64                     <PUSH OUTCHAN5>
  65                     <CALL '\1aPRIN1 2>
  66                     <FRAME '\1aPRINC>
  67                     <PUSH " T> ">
  68                     <PUSH OUTCHAN5>
  69                     <DEAD OUTCHAN5>
  70                     <CALL '\1aPRINC 2 = TEMP10>
  71                     <RETURN TEMP10>
  72                     <DEAD TEMP10>
  73                     <END \1aXGLOC-PRINT>
  74
  75 #WORD *31740575777*
  76                     <GFCN \1aXTYPE-C-PRINT ("VALUE" STRING XTYPE-C) X4>
  77                     <TEMP OUTCHAN6 ATM5:ATOM>
  78                     <INTGO>
  79                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
  80                     <CHTYPE X4 <TYPE-CODE ATOM> = ATM5>
  81                     <DEAD X4>
  82                     <FRAME '\1aPRINC>
  83                     <PUSH "%<TYPE-C ">
  84                     <PUSH OUTCHAN6>
  85                     <CALL '\1aPRINC 2>
  86                     <FRAME '\1aPRIN1>
  87                     <PUSH ATM5>
  88                     <PUSH OUTCHAN6>
  89                     <CALL '\1aPRIN1 2>
  90                     <FRAME '\1aPRINC>
  91                     <PUSH !\ >
  92                     <PUSH OUTCHAN6>
  93                     <CALL '\1aPRINC 2>
  94                     <FRAME '\1aPRIN1>
  95                     <FRAME '\1aTYPEPRIM>
  96                     <PUSH ATM5>
  97                     <DEAD ATM5>
  98                     <CALL '\1aTYPEPRIM 1 = STACK>
  99                     <PUSH OUTCHAN6>
 100                     <CALL '\1aPRIN1 2>
 101                     <FRAME '\1aPRINC>
 102                     <PUSH ">">
 103                     <PUSH OUTCHAN6>
 104                     <DEAD OUTCHAN6>
 105                     <CALL '\1aPRINC 2 = OUTCHAN6>
 106                     <RETURN OUTCHAN6>
 107                     <DEAD OUTCHAN6>
 108                     <END \1aXTYPE-C-PRINT>
 109
 110 #WORD *34740735777*
 111                     <GFCN \1aXTYPE-W-PRINT ("VALUE" STRING XTYPE-W) X4>
 112                     <TEMP OUTCHAN6 ATM5:ATOM>
 113                     <INTGO>
 114                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
 115                     <CHTYPE X4 <TYPE-CODE ATOM> = ATM5>
 116                     <DEAD X4>
 117                     <FRAME '\1aPRINC>
 118                     <PUSH "%<TYPE-W ">
 119                     <PUSH OUTCHAN6>
 120                     <CALL '\1aPRINC 2>
 121                     <FRAME '\1aPRIN1>
 122                     <PUSH ATM5>
 123                     <PUSH OUTCHAN6>
 124                     <CALL '\1aPRIN1 2>
 125                     <FRAME '\1aPRINC>
 126                     <PUSH !\ >
 127                     <PUSH OUTCHAN6>
 128                     <CALL '\1aPRINC 2>
 129                     <FRAME '\1aPRIN1>
 130                     <FRAME '\1aTYPEPRIM>
 131                     <PUSH ATM5>
 132                     <DEAD ATM5>
 133                     <CALL '\1aTYPEPRIM 1 = STACK>
 134                     <PUSH OUTCHAN6>
 135                     <CALL '\1aPRIN1 2>
 136                     <FRAME '\1aPRINC>
 137                     <PUSH ">">
 138                     <PUSH OUTCHAN6>
 139                     <DEAD OUTCHAN6>
 140                     <CALL '\1aPRINC 2 = OUTCHAN6>
 141                     <RETURN OUTCHAN6>
 142                     <DEAD OUTCHAN6>
 143                     <END \1aXTYPE-W-PRINT>
 144
 145 <COND (<GASSIGNED? XCOP-PRINT> <PRINTTYPE XCHANNEL-OP ,XCOP-PRINT> <PRINTTYPE XGLOC ,XGLOC-PRINT> <PRINTTYPE XTYPE-C ,XTYPE-C-PRINT> <PRINTTYPE XTYPE-W ,XTYPE-W-PRINT>)>
 146
 147 #WORD *26407762532*
 148                     <GFCN \1aTYPE-CODE ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP6 LENGTH7>
 149                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 150 OPT4
 151                     <PUSH 'LONG>
 152 OPT5
 153                     <TEMP L8 TEMP21>
 154                     <INTGO>
 155                     <LOOP>
 156 AGAIN14
 157                     <INTGO>
 158                     <GVAL 'TYPE-WORDS = L8>
 159                     <EMPUV? L8 + TAG17>
 160                     <LOOP (TYP6 VALUE) (L8 LENGTH VALUE)>
 161 TAG19
 162                     <NTHUV L8 1 = TEMP21>
 163                     <TYPE? TEMP21 <TYPE-CODE ATOM> - TAG20>
 164                     <VEQUAL? TEMP21 TYP6 + TAG18>
 165                     <DEAD TEMP21>
 166 TAG20
 167                     <RESTUV L8 1 = L8 (TYPE VECTOR)>
 168                     <EMPUV? L8 - TAG19>
 169 TAG17
 170                     <SET L8 %<> (TYPE FALSE)>
 171 TAG18
 172                     <VEQUAL? L8 0 + PHRASE16>
 173                     <EQUAL? LENGTH7 'VALUE - PHRASE23>
 174                     <DEAD LENGTH7>
 175                     <NTHUV L8 2 = L8>
 176                     <RETURN L8>
 177                     <DEAD L8>
 178 PHRASE23
 179                     <FRAME '\1aMA-IMM>
 180                     <NTHUV L8 2 = STACK (TYPE FIX)>
 181                     <DEAD L8>
 182                     <CALL '\1aMA-IMM 1 = L8>
 183                     <RETURN L8>
 184                     <DEAD L8>
 185 PHRASE16
 186                     <NTHR TYP6 5 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE25)>
 187                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
 188                     <DEAD TEMP21>
 189                     <FRAME '\1aADD-MVEC>
 190                     <CHTYPE TYP6 <TYPE-CODE XTYPE-C> = STACK>
 191                     <DEAD TYP6>
 192                     <CALL '\1aADD-MVEC 1 = L8>
 193                     <FRAME '\1aADDR-VALUE-M>
 194                     <PUSH L8>
 195                     <DEAD L8>
 196                     <PUSH LENGTH7>
 197                     <DEAD LENGTH7>
 198                     <CALL '\1aADDR-VALUE-M 2 = L8>
 199                     <RETURN L8>
 200                     <DEAD L8>
 201 PHRASE25
 202                     <FRAME '\1aCHECK-MIMOP-TYPE>
 203                     <PUSH TYP6>
 204                     <CALL '\1aCHECK-MIMOP-TYPE 1 = L8>
 205                     <TYPE? L8 <TYPE-CODE FALSE> + PHRASE28>
 206                     <SET TYP6 L8>
 207                     <DEAD L8>
 208                     <JUMP + AGAIN14>
 209 PHRASE28
 210                     <FRAME '\1aERROR>
 211                     <PUSH "UNDEFINED-TYPE">
 212                     <PUSH TYP6>
 213                     <DEAD TYP6>
 214                     <CALL '\1aERROR 2 = L8>
 215                     <RETURN L8>
 216                     <DEAD L8>
 217                     <END \1aTYPE-CODE>
 218
 219 #WORD *13561467160*
 220                     <GFCN \1aTYPE-WORD ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP6 EXTWORD7>
 221                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 222 OPT4
 223                     <PUSH %<>>
 224 OPT5
 225                     <TEMP L8 TEMP23 VAL9:FIX>
 226                     <INTGO>
 227                     <LOOP>
 228 AGAIN16
 229                     <INTGO>
 230                     <GVAL 'TYPE-WORDS = L8>
 231                     <EMPUV? L8 + TAG19>
 232                     <LOOP (TYP6 VALUE) (L8 LENGTH VALUE)>
 233 TAG21
 234                     <NTHUV L8 1 = TEMP23>
 235                     <TYPE? TEMP23 <TYPE-CODE ATOM> - TAG22>
 236                     <VEQUAL? TEMP23 TYP6 + TAG20>
 237                     <DEAD TEMP23>
 238 TAG22
 239                     <RESTUV L8 1 = L8 (TYPE VECTOR)>
 240                     <EMPUV? L8 - TAG21>
 241 TAG19
 242                     <SET L8 %<> (TYPE FALSE)>
 243 TAG20
 244                     <VEQUAL? L8 0 + PHRASE18>
 245                     <NTHUV L8 2 = VAL9 (TYPE FIX)>
 246                     <DEAD L8>
 247                     <GVAL 'TYPE-LENGTHS = L8>
 248                     <EMPUV? L8 + TAG26>
 249                     <LOOP (TYP6 VALUE) (L8 LENGTH VALUE)>
 250 TAG28
 251                     <NTHUV L8 1 = TEMP23>
 252                     <TYPE? TEMP23 <TYPE-CODE ATOM> - TAG29>
 253                     <VEQUAL? TEMP23 TYP6 + TAG27>
 254                     <DEAD TEMP23>
 255 TAG29
 256                     <RESTUV L8 1 = L8 (TYPE VECTOR)>
 257                     <EMPUV? L8 - TAG28>
 258 TAG26
 259                     <SET L8 %<> (TYPE FALSE)>
 260 TAG27
 261                     <VEQUAL? L8 0 + PHRASE25>
 262                     <NTHUV L8 2 = TEMP23 (TYPE FIX)>
 263                     <DEAD L8>
 264                     <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
 265                     <OR VAL9 TEMP23 = VAL9>
 266                     <DEAD TEMP23>
 267 PHRASE25
 268                     <FRAME '\1aMA-IMM>
 269                     <PUSH VAL9>
 270                     <DEAD VAL9>
 271                     <CALL '\1aMA-IMM 1 = L8>
 272                     <RETURN L8>
 273                     <DEAD L8>
 274 PHRASE18
 275                     <NTHR TYP6 5 = TEMP23 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE31)>
 276                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE31>
 277                     <DEAD TEMP23>
 278                     <FRAME '\1aADD-MVEC>
 279                     <CHTYPE TYP6 <TYPE-CODE XTYPE-W> = STACK>
 280                     <DEAD TYP6>
 281                     <CALL '\1aADD-MVEC 1 = VAL9>
 282                     <FRAME '\1aADDR-VALUE-M>
 283                     <PUSH VAL9>
 284                     <DEAD VAL9>
 285                     <CALL '\1aADDR-VALUE-M 1 = L8>
 286                     <RETURN L8>
 287                     <DEAD L8>
 288 PHRASE31
 289                     <FRAME '\1aCHECK-MIMOP-TYPE>
 290                     <PUSH TYP6>
 291                     <CALL '\1aCHECK-MIMOP-TYPE 1 = L8>
 292                     <TYPE? L8 <TYPE-CODE FALSE> + PHRASE34>
 293                     <SET TYP6 L8>
 294                     <DEAD L8>
 295                     <JUMP + AGAIN16>
 296 PHRASE34
 297                     <FRAME '\1aERROR>
 298                     <PUSH "UNDEFINED-TYPE">
 299                     <PUSH TYP6>
 300                     <DEAD TYP6>
 301                     <CALL '\1aERROR 2 = L8>
 302                     <RETURN L8>
 303                     <DEAD L8>
 304                     <END \1aTYPE-WORD>
 305
 306 <GDECL (TYPE-WORDS TYPE-LENGTHS) <VECTOR [REST ATOM FIX]>>
 307
 308 #WORD *10551346647*
 309                     <GFCN \1aINIT-MVEC-STUFF ("VALUE" LIST)>
 310                     <TEMP>
 311                     <INTGO>
 312                     <SETG 'MVEC-OFF 16>
 313                     <SETG 'MVEC-LIST ()>
 314                     <RETURN ()>
 315                     <END \1aINIT-MVEC-STUFF>
 316
 317 #WORD *13075012011*
 318                     <GFCN \1aPRINT-MVEC-ELEMENTS ("VALUE" <OR CHARACTER FALSE> "OPTIONAL" CHANNEL) OUTCHAN6>
 319                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
 320 OPT4
 321                     <PUSH #T$UNBOUND 0>
 322 OPT5
 323                     <TEMP TEMP3:LBIND TEMP9 TEMP23:LIST>
 324                     <INTGO>
 325                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 326                     <TYPE? OUTCHAN6 <TYPE-CODE UNBOUND> - TAG7>
 327                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
 328 TAG7
 329                     <BBIND 'OUTCHAN 'CHANNEL 'FIX OUTCHAN6>
 330                     <DEAD OUTCHAN6>
 331                     <FIXBIND>
 332                     <SET TEMP9 %<> (TYPE FALSE)>
 333                     <GVAL 'MVEC-LIST = TEMP23>
 334                     <LOOP>
 335 MAP13
 336                     <INTGO>
 337                     <EMPL? TEMP23 + MAPAP16>
 338                     <NTHL TEMP23 1 = TEMP9>
 339                     <FRAME '\1aPRIN1>
 340                     <PUSH TEMP9>
 341                     <DEAD TEMP9>
 342                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
 343                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
 344                     <DEAD TEMP9>
 345                     <CALL '\1aPRIN1 2>
 346                     <FRAME '\1aPRINC>
 347                     <PUSH !\ >
 348                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
 349                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
 350                     <DEAD TEMP9>
 351                     <CALL '\1aPRINC 2 = TEMP9>
 352                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 353                     <JUMP + MAP13>
 354 MAPAP16
 355                     <UNBIND TEMP3>
 356                     <DEAD TEMP3>
 357                     <ADJ -9>
 358                     <RETURN TEMP9>
 359                     <DEAD TEMP9>
 360                     <END \1aPRINT-MVEC-ELEMENTS>
 361
 362 <MSETG START-MVEC-OFF 16>
 363
 364 #WORD *7216140465*
 365                     <GFCN \1aADD-MVEC ("VALUE" FIX ANY) ITM4>
 366                     <TEMP OFF5:FIX LST6 TLST7>
 367                     <INTGO>
 368                     <GVAL 'MVEC-OFF = OFF5>
 369                     <GVAL 'MVEC-LIST = LST6>
 370                     <FRAME '\1aMEMBER>
 371                     <PUSH ITM4>
 372                     <GVAL 'MVEC-LIST = STACK>
 373                     <CALL '\1aMEMBER 2 = TLST7>
 374                     <TYPE? TLST7 <TYPE-CODE FALSE> + PHRASE9>
 375                     <FRAME '\1aLENGTH>
 376                     <PUSH TLST7>
 377                     <DEAD TLST7>
 378                     <CALL '\1aLENGTH 1 = TLST7>
 379                     <LSH TLST7 3 = TLST7 (TYPE FIX)>
 380                     <SUB OFF5 TLST7 = OFF5 (TYPE FIX)>
 381                     <DEAD TLST7>
 382                     <RETURN OFF5>
 383                     <DEAD OFF5>
 384 PHRASE9
 385                     <EMPL? LST6 - PHRASE15 (TYPE LIST)>
 386                     <CONS ITM4 () = TLST7>
 387                     <DEAD ITM4>
 388                     <SETG 'MVEC-LIST TLST7>
 389                     <DEAD TLST7>
 390                     <JUMP + COND14>
 391 PHRASE15
 392                     <SET TLST7 LST6>
 393                     <DEAD LST6>
 394                     <LOOP (TLST7 VALUE)>
 395 TAG16
 396                     <RESTL TLST7 1 = LST6 (TYPE LIST)>
 397                     <EMPL? LST6 + TAG18>
 398                     <SET TLST7 LST6>
 399                     <DEAD LST6>
 400                     <JUMP + TAG16>
 401 TAG18
 402                     <CONS ITM4 () = LST6>
 403                     <DEAD ITM4>
 404                     <PUTREST TLST7 LST6>
 405                     <DEAD TLST7 LST6>
 406 COND14
 407                     <ADD OFF5 8 = LST6 (TYPE FIX)>
 408                     <SETG 'MVEC-OFF LST6>
 409                     <DEAD LST6>
 410                     <RETURN OFF5>
 411                     <DEAD OFF5>
 412                     <END \1aADD-MVEC>
 413
 414 #WORD *16550161053*
 415                     <GFCN \1aPRINT-MREF ("VALUE" STRING FIX) NUM4>
 416                     <TEMP OUTCHAN6 TEMP9 RNUM5:FIX>
 417                     <INTGO>
 418                     <GEN-LVAL 'OUTCHAN = OUTCHAN6>
 419                     <SUB NUM4 16 = TEMP9 (TYPE FIX)>
 420                     <DIV TEMP9 8 = TEMP9 (TYPE FIX)>
 421                     <ADD TEMP9 1 = RNUM5 (TYPE FIX)>
 422                     <DEAD TEMP9>
 423                     <FRAME '\1aPRINC>
 424                     <PUSH "<MQUOTE ">
 425                     <PUSH OUTCHAN6>
 426                     <CALL '\1aPRINC 2>
 427                     <FRAME '\1aPRIN1>
 428                     <GVAL 'MVEC-LIST = TEMP9>
 429                     <SUB RNUM5 1 = RNUM5 (TYPE FIX)>
 430                     <GRTR? RNUM5 0 - RESTL14 (TYPE FIX)>
 431                     <LOOP (TEMP9 VALUE) (RNUM5 VALUE)>
 432 RESTL13
 433                     <INTGO>
 434                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
 435                     <SUB RNUM5 1 = RNUM5 (TYPE FIX)>
 436                     <GRTR? RNUM5 0 + RESTL13 (TYPE FIX)>
 437 RESTL14
 438                     <NTHL TEMP9 1 = STACK>
 439                     <DEAD TEMP9>
 440                     <PUSH OUTCHAN6>
 441                     <CALL '\1aPRIN1 2>
 442                     <FRAME '\1aPRINC>
 443                     <PUSH " ">
 444                     <PUSH OUTCHAN6>
 445                     <CALL '\1aPRINC 2>
 446                     <FRAME '\1aPRIN1>
 447                     <AND NUM4 7 = STACK>
 448                     <DEAD NUM4>
 449                     <PUSH OUTCHAN6>
 450                     <CALL '\1aPRIN1 2>
 451                     <FRAME '\1aPRINC>
 452                     <PUSH ">">
 453                     <PUSH OUTCHAN6>
 454                     <CALL '\1aPRINC 2>
 455                     <FRAME '\1aPRINC>
 456                     <PUSH " ">
 457                     <PUSH OUTCHAN6>
 458                     <DEAD OUTCHAN6>
 459                     <CALL '\1aPRINC 2 = TEMP9>
 460                     <RETURN TEMP9>
 461                     <DEAD TEMP9>
 462                     <END \1aPRINT-MREF>
 463
 464 #WORD *7663644447*
 465                     <GFCN \1aADDR-VALUE-M ("VALUE" <OR EFF-ADDR LADDR> FIX "OPTIONAL" ANY) OFF6 LEN7>
 466                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 467 OPT4
 468                     <PUSH 'LONG>
 469 OPT5
 470                     <TEMP TEMP11>
 471                     <INTGO>
 472                     <EQUAL? LEN7 'LONG - PHRASE9>
 473                     <DEAD LEN7>
 474                     <FRAME '\1aMA-DISP>
 475                     <GVAL 'AC-M = STACK>
 476                     <ADD OFF6 4 = STACK (TYPE FIX)>
 477                     <DEAD OFF6>
 478                     <CALL '\1aMA-DISP 2 = TEMP11>
 479                     <RETURN TEMP11>
 480                     <DEAD TEMP11>
 481 PHRASE9
 482                     <FRAME '\1aMA-DISP>
 483                     <GVAL 'AC-M = STACK>
 484                     <ADD OFF6 4 = STACK (TYPE FIX)>
 485                     <DEAD OFF6>
 486                     <CALL '\1aMA-DISP 2 = TEMP11>
 487                     <RETURN TEMP11>
 488                     <DEAD TEMP11>
 489                     <END \1aADDR-VALUE-M>
 490
 491 #WORD *213311770*
 492                     <GFCN \1aADDR-VALUE-MQUOTE ("VALUE" <OR EFF-ADDR LADDR> ANY) OBJ4>
 493                     <TEMP TEMP7>
 494                     <INTGO>
 495                     <FRAME '\1aADDR-VALUE-M>
 496                     <FRAME '\1aADD-MVEC>
 497                     <PUSH OBJ4>
 498                     <DEAD OBJ4>
 499                     <CALL '\1aADD-MVEC 1 = STACK>
 500                     <CALL '\1aADDR-VALUE-M 1 = TEMP7>
 501                     <RETURN TEMP7>
 502                     <DEAD TEMP7>
 503                     <END \1aADDR-VALUE-MQUOTE>
 504
 505 #WORD *3262176075*
 506                     <GFCN \1aADDR-TYPE-MQUOTE ("VALUE" <OR EFF-ADDR LADDR> ANY) OBJ4>
 507                     <TEMP TEMP7>
 508                     <INTGO>
 509                     <FRAME '\1aADDR-TYPE-M>
 510                     <FRAME '\1aADD-MVEC>
 511                     <PUSH OBJ4>
 512                     <DEAD OBJ4>
 513                     <CALL '\1aADD-MVEC 1 = STACK>
 514                     <CALL '\1aADDR-TYPE-M 1 = TEMP7>
 515                     <RETURN TEMP7>
 516                     <DEAD TEMP7>
 517                     <END \1aADDR-TYPE-MQUOTE>
 518
 519 #WORD *2133661110*
 520                     <GFCN \1aADDR-TYPE-M ("VALUE" <OR EFF-ADDR LADDR> FIX) OFF4>
 521                     <TEMP TEMP6>
 522                     <INTGO>
 523                     <FRAME '\1aMA-DISP>
 524                     <GVAL 'AC-M = STACK>
 525                     <PUSH OFF4>
 526                     <DEAD OFF4>
 527                     <CALL '\1aMA-DISP 2 = TEMP6>
 528                     <RETURN TEMP6>
 529                     <DEAD TEMP6>
 530                     <END \1aADDR-TYPE-M>
 531
 532 #WORD *1077736754*
 533                     <GFCN \1aADDR-COUNT-M ("VALUE" <OR EFF-ADDR LADDR> FIX) OFF4>
 534                     <TEMP TEMP6>
 535                     <INTGO>
 536                     <FRAME '\1aMA-DISP>
 537                     <GVAL 'AC-M = STACK>
 538                     <ADD OFF4 2 = STACK (TYPE FIX)>
 539                     <DEAD OFF4>
 540                     <CALL '\1aMA-DISP 2 = TEMP6>
 541                     <RETURN TEMP6>
 542                     <DEAD TEMP6>
 543                     <END \1aADDR-COUNT-M>