<mdl.comp>/rest.gen.1

   1
   2
   3         <TITLE REST-GEN>
   4
   5         <DECLARE ("VALUE" DATUM!-COMPDEC!-PACKAGE NODE!-COMPDEC!-PACKAGE ANY)>
   6         <PUSH   TP* (AB) >
   7         <PUSH   TP* (AB) 1>
   8         <PUSH   TP* (AB) 2>
   9         <PUSH   TP* (AB) 3>
  10         <PUSHJ  P* TAG1>
  11         <JRST   |FINIS >
  12 TAG1    <SUBM   M* (P) >                                    ; 6
  13         <PUSH   TP* [0]>                                    ; [4]
  14         <PUSH   TP* [0]>                                    ; [5]
  15         <PUSH   TP* [0]>                                    ; [6]
  16         <PUSH   TP* [0]>                                    ; [7]
  17         <MOVE   B* (TP) -6>                                 ; (1)
  18         <PUSH   TP* <TYPE-WORD LIST>>                       ; [8]
  19         <PUSH   TP* (B) 9>                                  ; [9]
  20         <MOVE   D* (TP) >                                   ; (9)
  21         <MOVE   PVP* (D) 1>
  22         <PUSH   TP* (PVP) 4>                                ; [10]
  23         <PUSH   TP* (PVP) 5>                                ; [11]
  24         <PUSH   TP* (TP) -1>                                ; (10) [12]
  25         <PUSH   TP* (TP) -1>                                ; (11) [13]
  26         <MCALL  1 STRUCTYP>
  27         <PUSH   TP* A>                                      ; [12]
  28         <PUSH   TP* B>                                      ; [13]
  29         <MOVE   B* (TP) -4>                                 ; (9)
  30         <HRRZ   D* (B) >
  31         <PUSH   TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [14]
  32         <PUSH   TP* (D) 1>                                  ; [15]
  33         <PUSH   TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [16]
  34         <PUSH   TP* (B) 1>                                  ; [17]
  35         <PUSH   TP* (TP) -1>                                ; (16) [18]
  36         <PUSH   TP* (TP) -1>                                ; (17) [19]
  37         <MCALL  1 NTH-REST-PUT?>
  38         <PUSH   TP* A>                                      ; [18]
  39         <PUSH   TP* B>                                      ; [19]
  40         <MOVE   B* (TP) -4>                                 ; (15)
  41         <MOVE   D* (B) 1>
  42         <CAIE   D* 2 >
  43         <JRST   TAG2>
  44         <MOVE   PVP* <MQUOTE T> -1>
  45         <MOVE   TVP* <MQUOTE T>>
  46         <JRST   TAG3>
  47 TAG2    <MOVE   PVP* <TYPE-WORD FALSE>>                     ; 41
  48         <MOVEI  TVP* 0>
  49 TAG3    <PUSH   TP* PVP>                                    ; 43 [20]
  50         <PUSH   TP* TVP>                                    ; [21]
  51         <SKIPL  (TP) >                                      ; (21)
  52         <JRST   TAG4>
  53         <MOVE   PVP* (B) 7>
  54         <JRST   TAG5>
  55 TAG4    <MOVEI  PVP* 0>                                     ; 49
  56 TAG5    <PUSH   TP* <TYPE-WORD FIX>>                        ; 50 [22]
  57         <PUSH   TP* PVP>                                    ; [23]
  58         <PUSH   TP* (B) 4>                                  ; [24]
  59         <PUSH   TP* (B) 5>                                  ; [25]
  60         <MCALL  1 GET-RANGE>
  61         <PUSH   TP* A>                                      ; [24]
  62         <PUSH   TP* B>                                      ; [25]
  63         <INTGO>
  64         <PUSH   TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [26]
  65         <PUSH   TP* (TP) -25>                               ; (1) [27]
  66         <MCALL  1 FIND-COMMON>
  67         <MOVEM  A* (TP) -19>                                ; (6)
  68         <MOVEM  B* (TP) -18>                                ; (7)
  69         <JUMPGE B* TAG6>
  70         <PUSH   TP* A>                                      ; [26]
  71         <PUSH   TP* B>                                      ; [27]
  72         <MCALL  1 GET-COMMON-DATUM>
  73         <PUSH   TP* A>                                      ; [26]
  74         <PUSH   TP* B>                                      ; [27]
  75         <PUSH   TP* (TP) -25>                               ; (2) [28]
  76         <PUSH   TP* (TP) -25>                               ; (3) [29]
  77         <MCALL  2 MOVE:ARG>
  78         <MOVEM  A* (TP) -21>                                ; (4)
  79         <MOVEM  B* (TP) -20>                                ; (5)
  80         <JRST   TAG7>
  81 TAG6    <PUSH   TP* [<(%<TYPE-CODE ATOM>) -1>]>             ; 76 [26]
  82         <PUSH   TP* <MQUOTE COMMON-SUB>>                    ; [27]
  83         <PUSH   TP* <TYPE-WORD FALSE>>                      ; [28]
  84         <PUSH   TP* [0]>                                    ; [29]
  85         <PUSH   TP* <MQUOTE (<OR FALSE COMMON!-COMPDEC!-PACKAGE>)> -1>; [30]
  86         <PUSH   TP* <MQUOTE (<OR FALSE COMMON!-COMPDEC!-PACKAGE>)>>; [31]
  87         <PUSHJ  P* |SPECBN >
  88         <MOVE   B* <MQUOTE %<RGLOC RESTERS T>>>
  89         <ADD    B* |GLOTOP 1>
  90         <MOVE   D* <MQUOTE %<RGLOC STYPES!-COMPDEC!-PACKAGE T>>>
  91         <ADD    D* |GLOTOP 1>
  92         <MOVE   PVP* <TYPE-WORD UVECTOR>>
  93         <MOVE   TVP* (D) 1>
  94         <MOVE   D* (TP) -18>                                ; (13)
  95         <JUMPGE TVP* TAG8>
  96 TAG10   <CAMN   D* (TVP) >                                  ; 91
  97         <JRST   TAG9>
  98         <AOBJN  TVP* TAG10>
  99 TAG8    <MOVE   D* <TYPE-WORD FALSE>>                       ; 94
 100         <MOVEI  PVP* 0>
 101         <JRST   TAG11>
 102 TAG9    <MOVE   D* <TYPE-WORD UVECTOR>>                     ; 97
 103         <MOVE   PVP* TVP>
 104 TAG11   <HLRE   D* PVP>                                     ; 99
 105         <MOVNS  O* D>
 106         <MOVE   PVP* (B) 1>
 107         <JUMPLE D* |CERR1 >
 108         <ASH    D* A>
 109         <HRLI   D* (D) 0>
 110         <ADD    D* PVP>
 111         <CAILE  D* -1 >
 112         <JRST   |CERR2 >
 113         <PUSH   TP* (D) -2>                                 ; [32]
 114         <PUSH   TP* (D) -1>                                 ; [33]
 115         <PUSH   TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [34]
 116         <PUSH   TP* (TP) -33>                               ; (1) [35]
 117         <PUSH   TP* (TP) -33>                               ; (2) [36]
 118         <PUSH   TP* (TP) -33>                               ; (3) [37]
 119         <PUSH   TP* (TP) -27>                               ; (10) [38]
 120         <PUSH   TP* (TP) -27>                               ; (11) [39]
 121         <PUSH   TP* (TP) -27>                               ; (12) [40]
 122         <PUSH   TP* (TP) -27>                               ; (13) [41]
 123         <PUSH   TP* (TP) -21>                               ; (20) [42]
 124         <PUSH   TP* (TP) -21>                               ; (21) [43]
 125         <PUSH   TP* (TP) -21>                               ; (22) [44]
 126         <PUSH   TP* (TP) -21>                               ; (23) [45]
 127         <MOVE   B* (TP) -36>                                ; (9)
 128         <PUSH   TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [46]
 129         <PUSH   TP* (B) 1>                                  ; [47]
 130         <PUSH   TP* (TP) -33>                               ; (14) [48]
 131         <PUSH   TP* (TP) -33>                               ; (15) [49]
 132         <PUSH   TP* <MQUOTE T> -1>                          ; [50]
 133         <PUSH   TP* <MQUOTE T>>                             ; [51]
 134         <PUSH   TP* <TYPE-WORD FALSE>>                      ; [52]
 135         <PUSH   TP* [0]>                                    ; [53]
 136         <PUSH   TP* (TP) -29>                               ; (24) [54]
 137         <PUSH   TP* (TP) -29>                               ; (25) [55]
 138         <MCALL  *14* APPLY>
 139         <MOVE   D* (TP) -3>                                 ; (28)
 140         <MOVE   PVP* (TP) -2>                               ; (29)
 141         <SUB    TP* [<(6) 6>]>
 142         <PUSHJ  P* |SSPECS >
 143         <MOVEM  A* (TP) -21>                                ; (4)
 144         <MOVEM  B* (TP) -20>                                ; (5)
 145         <MOVEM  D* (TP) -19>                                ; (6)
 146         <MOVEM  PVP* (TP) -18>                              ; (7)
 147 TAG7    <PUSH   TP* <MQUOTE REST> -1>                       ; 142 [26]
 148         <PUSH   TP* <MQUOTE REST>>                          ; [27]
 149         <PUSH   TP* (TP) -11>                               ; (16) [28]
 150         <PUSH   TP* (TP) -11>                               ; (17) [29]
 151         <PUSH   TP* (TP) -23>                               ; (6) [30]
 152         <PUSH   TP* (TP) -23>                               ; (7) [31]
 153         <PUSH   TP* (TP) -29>                               ; (2) [32]
 154         <PUSH   TP* (TP) -29>                               ; (3) [33]
 155         <PUSH   TP* (TP) -29>                               ; (4) [34]
 156         <PUSH   TP* (TP) -29>                               ; (5) [35]
 157         <PUSH   TP* (TP) -15>                               ; (20) [36]
 158         <PUSH   TP* (TP) -15>                               ; (21) [37]
 159         <PUSH   TP* (TP) -15>                               ; (22) [38]
 160         <PUSH   TP* (TP) -15>                               ; (23) [39]
 161         <PUSH   TP* (TP) -27>                               ; (12) [40]
 162         <PUSH   TP* (TP) -27>                               ; (13) [41]
 163         <PUSH   TP* (TP) -23>                               ; (18) [42]
 164         <PUSH   TP* (TP) -23>                               ; (19) [43]
 165         <MCALL  *11* HACK-COMMON>
 166         <MOVE   B* (TP) -20>                                ; (5)
 167         <SUB    TP* [<(26) 26>]>
 168         <MOVE   A* <MQUOTE %<TYPE-W DATUM!-COMPDEC!-PACKAGE LIST>>>
 169         <JRST   |MPOPJ >
 170         <0>
 171         <(*47*) -1>
 172         <(6) 6>
 173         <(26) 26>
 174         <(2) 6>
 175         <(*65523*) *200067*>
 176         <0>
 177         <(1) 2>