cross_v/BIF7.ASM

   1 00010 * Include file for BIF
   2 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
   3 00030 *
   4 01000   FCC 'CREATE'
   5 01010   FCB 6
   6 01020   FCB MFORE
   7 01030   FDB VLIST-CFAOFF
   8 01040   FDB BIF+2
   9 01050   FDB CR-CFAOFF
  10 01060   FDB CSP-CFAOFF
  11 01070 CREATE    DOCOL
  12 01080   FDB DDFIND
  13 01090   FDB OVER
  14 01100   FDB ZBR
  15 01110   FDB CREATN-*-2
  16 01120   FDB SWAP nfa
  17 01130   FDB IDDOT
  18 01135   FDB SPACE
  19 01140   FDB LIT
  20 01150   FDB 4
  21 01160   FDB MESS
  22 01170   FDB SPACE
  23 01190   FDB NFA vocab
  24 01200   FDB IDDOT
  25 01205   FDB CR
  26 01210   FDB BRANCH
  27 01220   FDB 4
  28 01230 CREATN    FDB DROP
  29 01240   FDB DROP
  30 01250   FDB NCOMMA
  31 01260   FDB CCOMMA length
  32 01270   FDB ZERO
  33 01280   FDB CCOMMA mode
  34 01290   FDB LATEST allocation link
  35 01300   FDB COMMA
  36 01310   FDB DUP nfa
  37 01320   FDB CURR
  38 01330   FDB STORE new LATEST
  39 01340   FDB ZERO vocab
  40 01350   FDB COMMA
  41 01360   FDB ZERO
  42 01370   FDB COMMA left
  43 01380   FDB ZERO
  44 01390   FDB COMMA right
  45 01400   FDB SMUDGE hide
  46 01410   FDB FOREMK
  47 01420   FDB DROOT
  48 01430   FDB FETCH
  49 01440   FDB PINSTA in vocab
  50 01450   FDB SEMIS
  51 01490 *
  52 01500   FCC 'CONSTANT'
  53 01510   FCB 8
  54 01520   FCB MFORE
  55 01530   FDB CREATE-CFAOFF
  56 01540   FDB BIF+2
  57 01550   FDB CMOVE-CFAOFF
  58 01560   FDB CREATE-CFAOFF
  59 01570 CONST     DOCOL
  60 01580   FDB CREATE
  61 01590   FDB IPCOM
  62 01600   DOCON
  63 01610   FDB COMMA
  64 01620   FDB SMUDGE visible
  65 01630   FDB SEMIS
  66 01690 *
  67 01700   FCC 'VARIABLE'
  68 01710   FCB 8
  69 01720   FCB MFORE
  70 01730   FDB CONST-CFAOFF
  71 01740   FDB BIF+2
  72 01750   FDB USTAR-CFAOFF
  73 01760   FDB WORD-CFAOFF
  74 01770 VAR       DOCOL
  75 01780   FDB CREATE
  76 01790   FDB IPCOM
  77 01800   DOVAR
  78 01810   FDB COMMA initial value
  79 01820   FDB SMUDGE visible
  80 01830   FDB SEMIS
  81 01890 *
  82 01900   FCC 'USER'
  83 01910   FCB 4
  84 01920   FCB MFORE
  85 01930   FDB VAR-CFAOFF
  86 01940   FDB BIF+2
  87 01950   FDB USE-CFAOFF
  88 01960   FDB UTIL-CFAOFF
  89 01970 USER      DOCOL
  90 01980   FDB CREATE
  91 01990   FDB IPCOM
  92 02000   DOUSER
  93 02010   FDB CCOMMA offset
  94 02020   FDB SMUDGE visible
  95 02030   FDB SEMIS
  96 02080 *
  97 02090 SCOMP     EQU MCOMP|MIMM
  98 02100   FCC ':'
  99 02110   FCB MIMM|1
 100 02120   FCB MFORE
 101 02130   FDB USER-CFAOFF
 102 02140   FDB BIF+2
 103 02150   FDB ADD-CFAOFF
 104 02160   FDB FETCH-CFAOFF
 105 02170 COLON     DOCOL
 106 02180   FDB QEXEC
 107 02190   FDB STOCSP
 108 02200   FDB CREATE
 109 02210   FDB IPCOM
 110 02220   DOCOL
 111 02230   FDB RBRAK
 112 02240   FDB SEMIS
 113 02290 *
 114 02300   FCC ';'
 115 02310   FCB MIMM|1
 116 02320   FCB MFORE
 117 02330   FDB COLON-CFAOFF
 118 02340   FDB BIF+2
 119 02350   FDB 0
 120 02360   FDB 0
 121 02370 SEMI      DOCOL   see fig-FORTH model
 122 02380   FDB QCSP
 123 02390   FDB COMP
 124 02400   FDB SEMIS
 125 02410   FDB SMUDGE
 126 02420   FDB LBRAK
 127 02430   FDB SEMIS
 128 02490 *
 129 02500   FCC '."'
 130 02510   FCB MIMM|2
 131 02520   FCB MFORE
 132 02530   FDB SEMI-CFAOFF
 133 02540   FDB BIF+2
 134 02550   FDB 0
 135 02560   FDB 0
 136 02570 DOTQ      DOCOL
 137 02572   FDB ONE past delimiter
 138 02574   FDB IN
 139 02576   FDB ADDSTO
 140 02580   FDB LIT
 141 02590   FDB '"
 142 02600   FDB WORD
 143 02610   FDB WORDPD
 144 02620   FDB QCST
 145 02630   FDB ZBR
 146 02640   FDB DOTQT-*-2
 147 02650   FDB COMP
 148 02660   FDB XDOTQ
 149 02670   FDB HERE
 150 02680   FDB OVER
 151 02690   FDB CFEH count
 152 02700   FDB ADD1
 153 02710   FDB DUP
 154 02720   FDB ALLOT
 155 02730   FDB CMOVE
 156 02732   FDB ONE past end quote
 157 02734   FDB IN
 158 02736   FDB ADDSTO
 159 02740   FDB BRANCH
 160 02750   FDB 4
 161 02760 DOTQT     FDB COUNT
 162 02770   FDB TYPE
 163 02780   FDB SEMIS
 164 02790 *
 165 02800   FCC '[COMPILE]'
 166 02810   FCB MIMM|9
 167 02820   FCB MFORE
 168 02830   FDB DOTQ-CFAOFF
 169 02840   FDB BIF+2
 170 02850   FDB LBRAK-CFAOFF
 171 02860   FDB RBRAK-CFAOFF
 172 02870 BCOMP     DOCOL
 173 02880   FDB DDFIND
 174 02890   FDB DROP vocab
 175 02900   FDB DUP
 176 02910   FDB ZEQ
 177 02920   FDB ZERO
 178 02930   FDB QERR
 179 02940   FDB CFA
 180 02950   FDB COMMA
 181 02960   FDB SEMIS
 182 03180 *
 183 03200   FCC 'INTERPRET'
 184 03210   FCB 9
 185 03220   FCB MFORE
 186 03230   FDB BCOMP-CFAOFF
 187 03240   FDB BIF+2
 188 03250   FDB 0 * INDEX-CFAOFF
 189 03260   FDB J-CFAOFF
 190 03270 INTERP    DOCOL
 191 03280   FDB DIFIND
 192 03290   FDB DROP
 193 03300   FDB DDUP
 194 03310   FDB ZBR
 195 03320   FDB INTERN-*-2
 196 03330   FDB DUP
 197 03340   FDB CFA
 198 03350   FDB SWAP
 199 03360   FDB CFEH length
 200 03370   FDB DUP
 201 03380   FDB NOT
 202 03390   FDB LIT
 203 03400   FDB MIMM
 204 03410   FDB AND
 205 03420   FDB QCST
 206 03430   FDB AND
 207 03440   FDB ZBR
 208 03450   FDB INTERX-*-2
 209 03460   FDB DROP length
 210 03470   FDB COMMA
 211 03480   FDB BRANCH
 212 03490   FDB INTERE-*-2
 213 03500 INTERX    FDB LIT
 214 03510   FDB MCOMP
 215 03520   FDB AND
 216 03530   FDB QCST
 217 03540   FDB NOT
 218 03550   FDB AND
 219 03560   FDB LIT
 220 03570   FDB $11
 221 03580   FDB QERR
 222 03590   FDB EXEC
 223 03600   FDB BRANCH
 224 03610   FDB INTERE-*-2
 225 03620 INTERN    FDB WORDPD
 226 03630   FDB NUMBER
 227 03640   FDB DPL
 228 03645   FDB FETCH
 229 03650   FDB ZLESS
 230 03660   FDB ZBR
 231 03670   FDB INTERE-*-4
 232 03680   FDB DROP
 233 03690   FDB LITER
 234 03700   FDB BRANCH
 235 03710   FDB INTERE-*-2
 236 03720   FDB DLITER
 237 03730 INTERE    FDB QSTACK
 238 03740   FDB BRANCH
 239 03750   FDB INTERP-*
 240 03790 *
 241 04200   FCC 'QUIT'
 242 04210   FCB 4
 243 04220   FCB MFORE
 244 04230   FDB INTERP-CFAOFF
 245 04240   FDB BIF+2
 246 04250   FDB 0
 247 04260   FDB 0
 248 04270 QUIT      DOCOL   see fig-FORTH model
 249 04280   FDB ZERO
 250 04290   FDB BLK
 251 04300   FDB STORE
 252 04310   FDB LBRAK
 253 04320 QUITL     FDB TNULL
 254 04325   FDB RPSTO
 255 04330   FDB CR
 256 04340   FDB QUERY
 257 04350   FDB INTERP
 258 04360   FDB QCST
 259 04370   FDB TBR
 260 04380   FDB QUITL-*-2
 261 04390   FDB XDOTQ
 262 04400   FCB 3
 263 04410   FCC ' OK'
 264 04420   FDB BRANCH
 265 04430   FDB QUITL-*-2
 266 04490 *