cross_v/BIF3B.ASM

   1 00010 * Include file for BIF
   2 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
   3 00030 *
   4 04110   FCC 'TYPE'
   5 04112   FCB 4
   6 04114   FCB MFORE
   7 04116   FDB XMACH-CFAOFF
   8 04118   FDB BIF+2
   9 04120   FDB 0
  10 04122   FDB 0
  11 04130 TYPE      LDD ,U
  12 04132   BEQ TYPEQ
  13 04135   ADDD 2,U
  14 04140   STD ,U for compare
  15 04145   LDX 2,U
  16 04150 TYPEL     LDB ,X+
  17 04155   STX 2,U
  18 04160   CLRA
  19 04165   PSHU D
  20 04170   DOCOL
  21 04175   FDB EMIT
  22 04180   FDB XMACH
  23 04185   LDX 2,U
  24 04190   CMPX ,U
  25 04195   BLO TYPEL
  26 04197 TYPEQ LEAU 4,U
  27 04200   NEXT
  28 04205 *
  29 04210   FCC '(.")'
  30 04212   FCB MCOMP|4
  31 04214   FCB MFORE
  32 04216   FDB TYPE-CFAOFF
  33 04218   FDB BIF+2
  34 04220   FDB XPLOOP-CFAOFF
  35 04222   FDB XSCODE-CFAOFF
  36 04230 XDOTQ     LDB ,Y+ count
  37 04235   CLRA
  38 04240   TFR Y,X string
  39 04245   LEAY D,Y past it
  40 04250   PSHU D,X
  41 04255   BRA TYPE
  42 04300 *
  43 04310   FCC 'ID.'
  44 04312   FCB 3
  45 04314   FCB MFORE
  46 04316   FDB XDOTQ-CFAOFF
  47 04318   FDB BIF+2
  48 04320   FDB 0
  49 04322   FDB 0
  50 04330 IDDOT     PULU X nfa
  51 04335   LDB ,X
  52 04340   ANDB #NLMASK
  53 04350   NEGB
  54 04360   LEAX B,X past it
  55 04370   NEGB
  56 04380   CLRA
  57 04390   PSHU D,X
  58 04400   BRA TYPE
  59 04410 *
  60 04510   FCC 'FILL-IN'
  61 04512   FCB MCOMP|7
  62 04514   FCB MFORE
  63 04516   FDB IDDOT-CFAOFF
  64 04518   FDB BIF+2
  65 04520   FDB 0
  66 04522   FDB 0
  67 04530 FILLIN    LDX <UP
  68 04540   LDD UDP,X
  69 04550   SUBD ,U adr
  70 04555   SUBD #2 past
  71 04560   STD [,U++]
  72 04570   NEXT
  73 04590 *
  74 04610   FCC 'BEGIN'
  75 04612   FCB MCOMP|MIMM|5
  76 04614   FCB MFORE
  77 04616   FDB FILLIN-CFAOFF
  78 04618   FDB BIF+2
  79 04620   FDB BASE-CFAOFF
  80 04622   FDB 0
  81 04630 BEGIN     DOCOL   see fig-FORTH model
  82 04640   FDB QCOMP
  83 04650   FDB HERE target
  84 04660   FDB LIT
  85 04670   FDB ('B)*256+'E
  86 04680   FDB SEMIS
  87 04690 *
  88 04710   FCC 'AGAIN'
  89 04712   FCB MCOMP|MIMM|5
  90 04714   FCB MFORE
  91 04716   FDB BEGIN-CFAOFF
  92 04718   FDB BIF+2
  93 04720   FDB 0
  94 04722   FDB 0
  95 04730 AGAIN     DOCOL   see fig-FORTH model
  96 04740   FDB LIT
  97 04750   FDB ('B)*256+'E
  98 04760   FDB QPAIRS
  99 04765   FDB COMP
 100 04770   FDB BRANCH
 101 04775   FDB BACK
 102 04780   FDB SEMIS
 103 04790 *
 104 04810   FCC 'UNTIL'
 105 04812   FCB MCOMP|MIMM|5
 106 04814   FCB MFORE
 107 04816   FDB AGAIN-CFAOFF
 108 04818   FDB BIF+2
 109 04820   FDB USLASH-CFAOFF
 110 04822   FDB 0
 111 04830 UNTIL     DOCOL   see fig-FORTH model
 112 04840   FDB LIT
 113 04850   FDB ('B)*256+'E
 114 04860   FDB QPAIRS
 115 04865   FDB COMP
 116 04870   FDB ZBR
 117 04875   FDB BACK
 118 04880   FDB SEMIS
 119 04890 *
 120 04910   FCC 'WHILE'
 121 04912   FCB MCOMP|MIMM|5
 122 04914   FCB MFORE
 123 04916   FDB UNTIL-CFAOFF
 124 04918   FDB BIF+2
 125 04920   FDB WARM-CFAOFF
 126 04922   FDB WORDPD-CFAOFF
 127 04930 WHILE     DOCOL
 128 04940   FDB DUP
 129 04950   FDB LIT
 130 04960   FDB ('B)*256+'E
 131 04970   FDB QPAIRS
 132 04980   FDB COMP
 133 04990   FDB ZBR
 134 05000   FDB HERE adr
 135 05010   FDB ZERO
 136 05020   FDB COMMA
 137 05030   FDB LIT
 138 05040   FDB ('W)*256+'H
 139 05050   FDB SEMIS
 140 05090 *
 141 05110   FCC 'REPEAT'
 142 05112   FCB MCOMP|MIMM|6
 143 05114   FCB MFORE
 144 05116   FDB WHILE-CFAOFF
 145 05118   FDB BIF+2
 146 05120   FDB REPEAL-CFAOFF
 147 05122   FDB ROOT-CFAOFF
 148 05130 REPEAT    DOCOL
 149 05140   FDB LIT
 150 05150   FDB ('W)*256+'H
 151 05160   FDB QPAIRS
 152 05170   FDB TOR
 153 05180   FDB AGAIN
 154 05190   FDB RFROM
 155 05200   FDB FILLIN
 156 05210   FDB SEMIS
 157 05290 *
 158 05310   FCC 'DO'
 159 05312   FCB MCOMP|MIMM|2
 160 05314   FCB MFORE
 161 05316   FDB WHILE-CFAOFF
 162 05318   FDB BIF+2
 163 05320   FDB CFEH-CFAOFF
 164 05322   FDB ENDIF-CFAOFF
 165 05330 DO        DOCOL   see fig-FORTH model
 166 05340   FDB COMP
 167 05350   FDB XDO
 168 05360   FDB HERE
 169 05370   FDB LIT
 170 05380   FDB ('D)*256+'O
 171 05390   FDB SEMIS
 172 05400 *