mim/development/mim/vaxc/crecord.mima

   1
   2 #WORD *35254067162*
   3                     <GFCN \1aINIT-RECORD-DEFS ("VALUE" <LIST [REST RECORD-DESCRIPTOR]>)>
   4                     <TEMP>
   5                     <INTGO>
   6                     <SETG 'RECORD-TABLE ()>
   7                     <RETURN ()>
   8                     <END \1aINIT-RECORD-DEFS>
   9
  10 #WORD *12453261556*
  11                     <GFCN \1aDEFINE-RECORD ("VALUE" <LIST [REST RECORD-DESCRIPTOR]> ANY ANY "TUPLE" ANY) TYP4 STACK5>
  12                     <MAKTUP ELEMENTS6 TEMP11 = ELEMENTS6>
  13                     <INTGO>
  14                     <SET TEMP11 0 (TYPE FIX)>
  15                     <LOOP (ELEMENTS6 VALUE LENGTH) (TEMP11 VALUE)>
  16 TAG12
  17                     <INTGO>
  18                     <EMPUV? ELEMENTS6 + TAG9>
  19                     <NTHUV ELEMENTS6 1 = STACK>
  20                     <RESTUV ELEMENTS6 1 = ELEMENTS6 (TYPE VECTOR)>
  21                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
  22                     <JUMP + TAG12>
  23 TAG9
  24                     <LIST TEMP11 = ELEMENTS6 (TYPE LIST)>
  25                     <DEAD TEMP11>
  26                     <PUSH TYP4>
  27                     <DEAD TYP4>
  28                     <PUSH ELEMENTS6>
  29                     <DEAD ELEMENTS6>
  30                     <PUSH STACK5>
  31                     <DEAD STACK5>
  32                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP11 (TYPE VECTOR)>
  33                     <CHTYPE TEMP11 <TYPE-CODE RECORD-DESCRIPTOR> = ELEMENTS6>
  34                     <DEAD TEMP11>
  35                     <GVAL 'RECORD-TABLE = TEMP11>
  36                     <CONS ELEMENTS6 TEMP11 = TEMP11>
  37                     <DEAD ELEMENTS6>
  38                     <SETG 'RECORD-TABLE TEMP11>
  39                     <RETURN TEMP11>
  40                     <DEAD TEMP11>
  41                     <END \1aDEFINE-RECORD>
  42
  43 #WORD *12232172037*
  44                     <GFCN \1aPARSE-RED ("VALUE" RECORD-ELEMENT-DESCRIPTOR ATOM FIX "OPTIONAL" FIX <OR FALSE FIX> BOOLEAN) TYP8 OFFSET9 ALTOFF10 LEN?11 SBOOL?12>
  45                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
  46 OPT4
  47                     <PUSH 0>
  48 OPT5
  49                     <PUSH %<>>
  50 OPT6
  51                     <PUSH %<>>
  52 OPT7
  53                     <TEMP RES13:VECTOR TEMP26 TEMP31 TEMP32>
  54                     <INTGO>
  55                     <VEQUAL? TYP8 'ANY - PHRASE15>
  56                     <PUSH OFFSET9>
  57                     <DEAD OFFSET9>
  58                     <PUSH ALTOFF10>
  59                     <DEAD ALTOFF10>
  60                     <PUSH 'ANY>
  61                     <PUSH 0>
  62                     <PUSH %<>>
  63                     <PUSH %<>>
  64                     <PUSH %<>>
  65                     <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
  66                     <JUMP + PHRASE34>
  67 PHRASE15
  68                     <VEQUAL? TYP8 'BYTE + BOOL18>
  69                     <VEQUAL? TYP8 'SMALL-INT + BOOL18>
  70                     <VEQUAL? TYP8 'SMALL-POS-INT + BOOL18>
  71                     <VEQUAL? TYP8 'SMALL-FR-OFFSET - PHRASE17>
  72 BOOL18
  73                     <PUSH OFFSET9>
  74                     <DEAD OFFSET9>
  75                     <PUSH 0>
  76                     <PUSH TYP8>
  77                     <DEAD TYP8>
  78                     <PUSH 0>
  79                     <PUSH %<>>
  80                     <PUSH %<>>
  81                     <PUSH %<>>
  82                     <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
  83                     <JUMP + PHRASE34>
  84 PHRASE17
  85                     <VEQUAL? TYP8 'BOOLEAN - PHRASE20>
  86                     <PUSH OFFSET9>
  87                     <DEAD OFFSET9>
  88                     <PUSH 0>
  89                     <PUSH 'BOOLEAN>
  90                     <PUSH ALTOFF10>
  91                     <DEAD ALTOFF10>
  92                     <PUSH %<>>
  93                     <PUSH %<>>
  94                     <PUSH %<>>
  95                     <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
  96                     <JUMP + PHRASE34>
  97 PHRASE20
  98                     <VEQUAL? TYP8 'TYPE-C - PHRASE22>
  99                     <PUSH OFFSET9>
 100                     <DEAD OFFSET9>
 101                     <PUSH 0>
 102                     <PUSH 'TYPE-C>
 103                     <PUSH 0>
 104                     <PUSH SBOOL?12>
 105                     <DEAD SBOOL?12>
 106                     <PUSH %<>>
 107                     <PUSH TYP8>
 108                     <DEAD TYP8>
 109                     <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
 110                     <JUMP + PHRASE34>
 111 PHRASE22
 112                     <NTHR TYP8 5 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE24)>
 113                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE24>
 114                     <DEAD TEMP26>
 115                     <FRAME '\1aTYPEPRIM>
 116                     <PUSH TYP8>
 117                     <CALL '\1aTYPEPRIM 1 = TEMP26>
 118                     <SET TEMP31 [VECTOR STRING UVECTOR BYTES] (TYPE VECTOR)>
 119                     <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE24>
 120                     <LOOP (TEMP26 VALUE) (TEMP31 LENGTH VALUE)>
 121 TAG28
 122                     <NTHUV TEMP31 1 = TEMP32>
 123                     <VEQUAL? TEMP32 TEMP26 + TAG27>
 124                     <DEAD TEMP32>
 125                     <RESTUV TEMP31 1 = TEMP31 (TYPE VECTOR)>
 126                     <EMPUV? TEMP31 - TAG28>
 127                     <JUMP + PHRASE24>
 128 TAG27
 129                     <TYPE? LEN?11 <TYPE-CODE FALSE> - PHRASE24>
 130                     <PUSH OFFSET9>
 131                     <DEAD OFFSET9>
 132                     <PUSH ALTOFF10>
 133                     <DEAD ALTOFF10>
 134                     <PUSH 'COUNTVWORD>
 135                     <PUSH 0>
 136                     <PUSH SBOOL?12>
 137                     <DEAD SBOOL?12>
 138                     <PUSH %<>>
 139                     <PUSH TYP8>
 140                     <DEAD TYP8>
 141                     <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
 142                     <JUMP + PHRASE34>
 143 PHRASE24
 144                     <TYPE? LEN?11 <TYPE-CODE FALSE> - BOOL35>
 145                     <SET TEMP31 [ATOM LBIND T$MSUBR GBIND FRAME OBLIST] (TYPE VECTOR)>
 146                     <LOOP (TYP8 VALUE) (TEMP31 LENGTH VALUE)>
 147 TAG37
 148                     <NTHUV TEMP31 1 = TEMP26>
 149                     <VEQUAL? TEMP26 TYP8 + BOOL35>
 150                     <DEAD TEMP26>
 151                     <RESTUV TEMP31 1 = TEMP31 (TYPE VECTOR)>
 152                     <EMPUV? TEMP31 - TAG37>
 153                     <FRAME '\1aTYPEPRIM>
 154                     <PUSH TYP8>
 155                     <CALL '\1aTYPEPRIM 1 = TEMP31>
 156                     <EQUAL? TEMP31 'LIST + BOOL35>
 157                     <DEAD TEMP31>
 158                     <FRAME '\1aTYPEPRIM>
 159                     <PUSH TYP8>
 160                     <CALL '\1aTYPEPRIM 1 = TEMP31>
 161                     <EQUAL? TEMP31 'FIX - PHRASE34>
 162                     <DEAD TEMP31>
 163 BOOL35
 164                     <PUSH OFFSET9>
 165                     <DEAD OFFSET9>
 166                     <PUSH 0>
 167                     <PUSH 'VWORD1>
 168                     <PUSH 0>
 169                     <PUSH SBOOL?12>
 170                     <DEAD SBOOL?12>
 171                     <PUSH LEN?11>
 172                     <DEAD LEN?11>
 173                     <PUSH TYP8>
 174                     <DEAD TYP8>
 175                     <UBLOCK <TYPE-CODE VECTOR> 7 = RES13 (TYPE VECTOR)>
 176 PHRASE34
 177                     <CHTYPE RES13 <TYPE-CODE RECORD-ELEMENT-DESCRIPTOR> = TEMP31>
 178                     <DEAD RES13>
 179                     <RETURN TEMP31>
 180                     <DEAD TEMP31>
 181                     <END \1aPARSE-RED>
 182
 183 #WORD *21614737714*
 184                     <GFCN \1aGET-RELE-DESCRIPTOR ("VALUE" <OR FALSE RECORD-ELEMENT-DESCRIPTOR> FIX <OR ATOM HINT>) NUM4 HINT5>
 185                     <TEMP RTYP6 TEMP20 TEMP22:LIST ELE23:RECORD-DESCRIPTOR TEMP30 TEMP31 TEMP37>
 186                     <INTGO>
 187                     <TYPE? HINT5 <TYPE-CODE ATOM> - PHRASE9>
 188                     <SET RTYP6 HINT5>
 189                     <DEAD HINT5>
 190                     <JUMP + COND8>
 191 PHRASE9
 192                     <FRAME '\1aPARSE-HINT>
 193                     <PUSH HINT5>
 194                     <DEAD HINT5>
 195                     <PUSH 'RECORD-TYPE>
 196                     <CALL '\1aPARSE-HINT 2 = RTYP6>
 197 COND8
 198                     <SET TEMP20 %<> (TYPE FALSE)>
 199                     <GVAL 'RECORD-TABLE = TEMP22>
 200                     <LOOP>
 201 MAP12
 202                     <INTGO>
 203                     <EMPL? TEMP22 + MAPAP15>
 204                     <NTHL TEMP22 1 = ELE23>
 205                     <NTHUV ELE23 1 = TEMP20 (TYPE VECTOR)>
 206                     <SET TEMP30 TEMP20>
 207                     <TYPE? RTYP6 <TYPE-CODE ATOM> - TAG27>
 208                     <EMPUV? TEMP30 + TAG27>
 209                     <LOOP (RTYP6 VALUE) (TEMP30 LENGTH VALUE)>
 210 TAG28
 211                     <NTHUV TEMP30 1 = TEMP31>
 212                     <VEQUAL? TEMP31 RTYP6 + TAG33>
 213                     <DEAD TEMP31>
 214                     <RESTUV TEMP30 1 = TEMP30 (TYPE VECTOR)>
 215                     <EMPUV? TEMP30 - TAG28>
 216 TAG27
 217                     <FRAME '\1aCLEAN-DECL>
 218                     <PUSH RTYP6>
 219                     <CALL '\1aCLEAN-DECL 1 = TEMP30>
 220                     <TYPE TEMP30 = TEMP31>
 221                     <EMPUV? TEMP20 + TAG32>
 222                     <LOOP (TEMP30 VALUE) (TEMP31 VALUE) (TEMP20 LENGTH VALUE)>
 223 TAG34
 224                     <NTHUV TEMP20 1 = TEMP37>
 225                     <TYPE? TEMP37 TEMP31 - TAG35>
 226                     <VEQUAL? TEMP37 TEMP30 + TAG33>
 227                     <DEAD TEMP37>
 228 TAG35
 229                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
 230                     <EMPUV? TEMP20 - TAG34>
 231 TAG32
 232                     <SET TEMP20 %<> (TYPE FALSE)>
 233                     <JUMP + PHRASE25>
 234 TAG33
 235                     <NTHUV ELE23 2 = TEMP30 (TYPE LIST)>
 236                     <DEAD ELE23>
 237                     <SET TEMP37 NUM4>
 238                     <DEAD NUM4>
 239                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
 240                     <GRTR? TEMP37 0 - RESTL39 (TYPE FIX)>
 241                     <LOOP (TEMP30 VALUE) (TEMP37 VALUE)>
 242 RESTL38
 243                     <INTGO>
 244                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
 245                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
 246                     <GRTR? TEMP37 0 + RESTL38 (TYPE FIX)>
 247 RESTL39
 248                     <NTHL TEMP30 1 = TEMP20 (TYPE RECORD-ELEMENT-DESCRIPTOR)>
 249                     <DEAD TEMP30>
 250                     <RETURN TEMP20>
 251                     <DEAD TEMP20>
 252 PHRASE25
 253                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
 254                     <JUMP + MAP12>
 255 MAPAP15
 256                     <RETURN TEMP20>
 257                     <DEAD TEMP20>
 258                     <END \1aGET-RELE-DESCRIPTOR>
 259
 260 #WORD *17770023064*
 261                     <GFCN \1aGET-RSTACK? ("VALUE" <OR ATOM FALSE> <OR ATOM HINT>) HINT4>
 262                     <TEMP RTYP5 TEMP19 TEMP21:LIST ELE22:RECORD-DESCRIPTOR TEMP29 TEMP30 TEMP36>
 263                     <INTGO>
 264                     <TYPE? HINT4 <TYPE-CODE ATOM> - PHRASE8>
 265                     <SET RTYP5 HINT4>
 266                     <DEAD HINT4>
 267                     <JUMP + COND7>
 268 PHRASE8
 269                     <FRAME '\1aPARSE-HINT>
 270                     <PUSH HINT4>
 271                     <DEAD HINT4>
 272                     <PUSH 'RECORD-TYPE>
 273                     <CALL '\1aPARSE-HINT 2 = RTYP5>
 274 COND7
 275                     <SET TEMP19 %<> (TYPE FALSE)>
 276                     <GVAL 'RECORD-TABLE = TEMP21>
 277                     <LOOP>
 278 MAP11
 279                     <INTGO>
 280                     <EMPL? TEMP21 + MAPAP14>
 281                     <NTHL TEMP21 1 = ELE22>
 282                     <NTHUV ELE22 1 = TEMP19 (TYPE VECTOR)>
 283                     <SET TEMP29 TEMP19>
 284                     <TYPE? RTYP5 <TYPE-CODE ATOM> - TAG26>
 285                     <EMPUV? TEMP29 + TAG26>
 286                     <LOOP (RTYP5 VALUE) (TEMP29 LENGTH VALUE)>
 287 TAG27
 288                     <NTHUV TEMP29 1 = TEMP30>
 289                     <VEQUAL? TEMP30 RTYP5 + TAG32>
 290                     <DEAD TEMP30>
 291                     <RESTUV TEMP29 1 = TEMP29 (TYPE VECTOR)>
 292                     <EMPUV? TEMP29 - TAG27>
 293 TAG26
 294                     <FRAME '\1aCLEAN-DECL>
 295                     <PUSH RTYP5>
 296                     <CALL '\1aCLEAN-DECL 1 = TEMP29>
 297                     <TYPE TEMP29 = TEMP30>
 298                     <EMPUV? TEMP19 + TAG31>
 299                     <LOOP (TEMP29 VALUE) (TEMP30 VALUE) (TEMP19 LENGTH VALUE)>
 300 TAG33
 301                     <NTHUV TEMP19 1 = TEMP36>
 302                     <TYPE? TEMP36 TEMP30 - TAG34>
 303                     <VEQUAL? TEMP36 TEMP29 + TAG32>
 304                     <DEAD TEMP36>
 305 TAG34
 306                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
 307                     <EMPUV? TEMP19 - TAG33>
 308 TAG31
 309                     <SET TEMP19 %<> (TYPE FALSE)>
 310                     <JUMP + PHRASE24>
 311 TAG32
 312                     <NTHUV ELE22 3 = TEMP19>
 313                     <DEAD ELE22>
 314                     <RETURN TEMP19>
 315                     <DEAD TEMP19>
 316 PHRASE24
 317                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
 318                     <JUMP + MAP11>
 319 MAPAP14
 320                     <RETURN TEMP19>
 321                     <DEAD TEMP19>
 322                     <END \1aGET-RSTACK?>
 323
 324 #WORD *3235530501*
 325                     <GFCN \1aGET-RELE-BRANCH? ("VALUE" <OR FALSE <LIST [1 ANY]>> <OR FALSE HINT>) HINT24>
 326                     <TEMP TEMP7 CP13:LIST TEMP24>
 327                     <INTGO>
 328                     <SET TEMP7 HINT24>
 329                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
 330                     <NTHL HINT24 1 = TEMP7>
 331                     <EQUAL? TEMP7 'BRANCH-FALSE + TAG11>
 332                     <DEAD TEMP7>
 333                     <NTHL HINT24 1 = TEMP7>
 334                     <EQUAL? TEMP7 'BRANCH-TAG + TAG11>
 335                     <DEAD TEMP7>
 336                     <RETURN %<>>
 337 TAG11
 338                     <GEN-LVAL 'CODPTR = CP13>
 339                     <LOOP>
 340 AGAIN18
 341                     <INTGO>
 342                     <EMPL? CP13 + PHRASE26 (TYPE LIST)>
 343                     <NTHL CP13 1 = TEMP7>
 344                     <TYPE? TEMP7 <TYPE-CODE FORM> - PHRASE26>
 345                     <NTHL TEMP7 1 = TEMP24>
 346                     <EQUAL? TEMP24 'DEAD!-MIMOP + PHRASE23>
 347                     <DEAD TEMP24>
 348                     <FRAME '\1aPUTPROP>
 349                     <PUSH TEMP7>
 350                     <DEAD TEMP7>
 351                     <PUSH 'DONE>
 352                     <PUSH 'T>
 353                     <CALL '\1aPUTPROP 3>
 354                     <JUMP + PHRASE26>
 355 PHRASE23
 356                     <RESTL CP13 1 = CP13 (TYPE LIST)>
 357                     <JUMP + AGAIN18>
 358 PHRASE26
 359                     <RESTL HINT24 1 = TEMP7 (TYPE LIST)>
 360                     <DEAD HINT24>
 361 PHRASE6
 362                     <RETURN TEMP7>
 363                     <DEAD TEMP7>
 364                     <END \1aGET-RELE-BRANCH?>
 365
 366 #WORD *13015364121*
 367                     <GFCN \1aINIT-REC-DEFS ("VALUE" <LIST [REST RECORD-DESCRIPTOR]>)>
 368                     <TEMP TEMP35:LIST>
 369                     <INTGO>
 370                     <FRAME '\1aINIT-RECORD-DEFS>
 371                     <CALL '\1aINIT-RECORD-DEFS 0>
 372                     <FRAME '\1aDEFINE-RECORD>
 373                     <PUSH 'ATOM>
 374                     <PUSH 'LINK>
 375                     <PUSH 'GVAL>
 376                     <PUSH 'LVAL>
 377                     <PUSH 'ATOM>
 378                     <PUSH 'LINK>
 379                     <PUSH 'GVAL>
 380                     <PUSH 'LVAL>
 381                     <UBLOCK <TYPE-CODE VECTOR> 8 = STACK>
 382                     <PUSH %<>>
 383                     <FRAME '\1aPARSE-RED>
 384                     <PUSH 'GBIND>
 385                     <PUSH 0>
 386                     <PUSH 0>
 387                     <PUSH %<>>
 388                     <PUSH 'T>
 389                     <CALL '\1aPARSE-RED 5 = STACK>
 390                     <FRAME '\1aPARSE-RED>
 391                     <PUSH 'LBIND>
 392                     <PUSH 4>
 393                     <PUSH 0>
 394                     <PUSH %<>>
 395                     <PUSH 'T>
 396                     <CALL '\1aPARSE-RED 5 = STACK>
 397                     <FRAME '\1aPARSE-RED>
 398                     <PUSH 'STRING>
 399                     <PUSH 12>
 400                     <PUSH 10>
 401                     <PUSH %<>>
 402                     <PUSH %<>>
 403                     <CALL '\1aPARSE-RED 5 = STACK>
 404                     <FRAME '\1aPARSE-RED>
 405                     <PUSH 'OBLIST>
 406                     <PUSH 16>
 407                     <PUSH 0>
 408                     <PUSH %<>>
 409                     <PUSH 'T>
 410                     <CALL '\1aPARSE-RED 5 = STACK>
 411                     <FRAME '\1aPARSE-RED>
 412                     <PUSH 'TYPE-C>
 413                     <PUSH 8>
 414                     <PUSH 0>
 415                     <PUSH %<>>
 416                     <PUSH 'T>
 417                     <CALL '\1aPARSE-RED 5 = STACK>
 418                     <CALL '\1aDEFINE-RECORD 7>
 419                     <FRAME '\1aDEFINE-RECORD>
 420                     <PUSH 'FRAME>
 421                     <PUSH 'FRAME>
 422                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 423                     <PUSH 'T>
 424                     <FRAME '\1aPARSE-RED>
 425                     <PUSH 'T$MSUBR>
 426                     <PUSH -24>
 427                     <PUSH 0>
 428                     <PUSH 4>
 429                     <PUSH %<>>
 430                     <CALL '\1aPARSE-RED 5 = STACK>
 431                     <FRAME '\1aPARSE-RED>
 432                     <PUSH 'FIX>
 433                     <PUSH -20>
 434                     <PUSH 0>
 435                     <PUSH %<>>
 436                     <PUSH %<>>
 437                     <CALL '\1aPARSE-RED 5 = STACK>
 438                     <FRAME '\1aPARSE-RED>
 439                     <PUSH 'SMALL-POS-INT>
 440                     <PUSH -16>
 441                     <PUSH 0>
 442                     <PUSH %<>>
 443                     <PUSH %<>>
 444                     <CALL '\1aPARSE-RED 5 = STACK>
 445                     <FRAME '\1aPARSE-RED>
 446                     <PUSH 'SMALL-POS-INT>
 447                     <PUSH -14>
 448                     <PUSH 0>
 449                     <PUSH %<>>
 450                     <PUSH %<>>
 451                     <CALL '\1aPARSE-RED 5 = STACK>
 452                     <FRAME '\1aPARSE-RED>
 453                     <PUSH 'FRAME>
 454                     <PUSH -12>
 455                     <PUSH 0>
 456                     <PUSH %<>>
 457                     <PUSH %<>>
 458                     <CALL '\1aPARSE-RED 5 = STACK>
 459                     <FRAME '\1aPARSE-RED>
 460                     <PUSH 'SMALL-POS-INT>
 461                     <PUSH -6>
 462                     <PUSH 0>
 463                     <PUSH 0>
 464                     <PUSH %<>>
 465                     <CALL '\1aPARSE-RED 5 = STACK>
 466                     <FRAME '\1aPARSE-RED>
 467                     <PUSH 'SMALL-FR-OFFSET>
 468                     <PUSH -8>
 469                     <PUSH 0>
 470                     <PUSH %<>>
 471                     <PUSH %<>>
 472                     <CALL '\1aPARSE-RED 5 = STACK>
 473                     <FRAME '\1aPARSE-RED>
 474                     <PUSH 'FIX>
 475                     <PUSH -4>
 476                     <PUSH 0>
 477                     <PUSH %<>>
 478                     <PUSH %<>>
 479                     <CALL '\1aPARSE-RED 5 = STACK>
 480                     <CALL '\1aDEFINE-RECORD 10>
 481                     <FRAME '\1aDEFINE-RECORD>
 482                     <PUSH 'LBIND>
 483                     <PUSH 'LBIND>
 484                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 485                     <PUSH 'T>
 486                     <FRAME '\1aPARSE-RED>
 487                     <PUSH 'ANY>
 488                     <PUSH 4>
 489                     <PUSH 0>
 490                     <PUSH %<>>
 491                     <PUSH %<>>
 492                     <CALL '\1aPARSE-RED 5 = STACK>
 493                     <FRAME '\1aPARSE-RED>
 494                     <PUSH 'ATOM>
 495                     <PUSH 8>
 496                     <PUSH 0>
 497                     <PUSH %<>>
 498                     <PUSH %<>>
 499                     <CALL '\1aPARSE-RED 5 = STACK>
 500                     <FRAME '\1aPARSE-RED>
 501                     <PUSH 'ANY>
 502                     <PUSH 16>
 503                     <PUSH 12>
 504                     <PUSH %<>>
 505                     <PUSH %<>>
 506                     <CALL '\1aPARSE-RED 5 = STACK>
 507                     <FRAME '\1aPARSE-RED>
 508                     <PUSH 'LBIND>
 509                     <PUSH 20>
 510                     <PUSH 0>
 511                     <PUSH %<>>
 512                     <PUSH 'T>
 513                     <CALL '\1aPARSE-RED 5 = STACK>
 514                     <FRAME '\1aPARSE-RED>
 515                     <PUSH 'LBIND>
 516                     <PUSH 24>
 517                     <PUSH 0>
 518                     <PUSH %<>>
 519                     <PUSH 'T>
 520                     <CALL '\1aPARSE-RED 5 = STACK>
 521                     <FRAME '\1aPARSE-RED>
 522                     <PUSH 'FIX>
 523                     <PUSH 28>
 524                     <PUSH 0>
 525                     <PUSH %<>>
 526                     <PUSH %<>>
 527                     <CALL '\1aPARSE-RED 5 = STACK>
 528                     <CALL '\1aDEFINE-RECORD 8>
 529                     <FRAME '\1aDEFINE-RECORD>
 530                     <PUSH 'GBIND>
 531                     <PUSH 'GBIND>
 532                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 533                     <PUSH %<>>
 534                     <FRAME '\1aPARSE-RED>
 535                     <PUSH 'ANY>
 536                     <PUSH 4>
 537                     <PUSH 0>
 538                     <PUSH %<>>
 539                     <PUSH %<>>
 540                     <CALL '\1aPARSE-RED 5 = STACK>
 541                     <FRAME '\1aPARSE-RED>
 542                     <PUSH 'ATOM>
 543                     <PUSH 8>
 544                     <PUSH 0>
 545                     <PUSH %<>>
 546                     <PUSH %<>>
 547                     <CALL '\1aPARSE-RED 5 = STACK>
 548                     <FRAME '\1aPARSE-RED>
 549                     <PUSH 'ANY>
 550                     <PUSH 16>
 551                     <PUSH 12>
 552                     <PUSH %<>>
 553                     <PUSH %<>>
 554                     <CALL '\1aPARSE-RED 5 = STACK>
 555                     <CALL '\1aDEFINE-RECORD 5 = TEMP35>
 556                     <RETURN TEMP35>
 557                     <DEAD TEMP35>
 558                     <END \1aINIT-REC-DEFS>