cross_v/BIF2B.ASM

   1 00010 * Include file for BIF
   2 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
   3 00030 *
   4 05030   FCC 'HERE'
   5 05040   FCB 4
   6 05050   FCB MFORE
   7 05060   FDB DROOT-CFAOFF
   8 05070   FDB BIF+2
   9 05080   FDB FOREMK-CFAOFF
  10 05090   FDB I-CFAOFF
  11 05100 HERE      LDX <UP
  12 05110   LDD UDP,X
  13 05120   PSHU D
  14 05122 HERERR    LDX <UP
  15 05124   CMPU UDP,X
  16 05128   BLS ALLERR
  17 05130   NEXT
  18 05132 ALLERR    LDD #2
  19 05134   PSHU D
  20 05136   JMP ERROR
  21 05140 *
  22 05150   FCC 'ALLOT'
  23 05160   FCB 5
  24 05170   FCB MFORE
  25 05180   FDB HERE-CFAOFF
  26 05190   FDB BIF+2
  27 05200   FDB AGAIN-CFAOFF
  28 05210   FDB 0
  29 05220 ALLOT     LDX <UP
  30 05222   LDD UDP,X
  31 05223   BMI ALLERR
  32 05224   ADDD ,U++
  33 05226   STD UDP,X
  34 05228   BRA HERERR
  35 05230 *
  36 05238   FCC ','
  37 05240   FCB 1
  38 05250   FCB MFORE
  39 05260   FDB ALLOT-CFAOFF
  40 05270   FDB BIF+2
  41 05280   FDB PORIG-CFAOFF
  42 05290   FDB SUB-CFAOFF
  43 05300 COMMA     PULU D allocate and store
  44 05310   PSHS Y
  45 05320   LDY <UP
  46 05330   LDX UDP,Y
  47 05340   STD ,X++
  48 05350 COMSTO    STX UDP,Y
  49 05360   PULS Y
  50 05375   BRA HERERR
  51 05380 *
  52 05390   FCC 'C,'
  53 05400   FCB 2
  54 05410   FCB MFORE
  55 05420   FDB COMMA-CFAOFF
  56 05430   FDB BIF+2
  57 05440   FDB CSTO-CFAOFF
  58 05450   FDB CPERL-CFAOFF
  59 05460 CCOMMA    PULU D
  60 05470   PSHS Y
  61 05480   LDY <UP
  62 05490   LDX UDP,Y
  63 05500   STB ,X+
  64 05510   BRA COMSTO
  65 05520 *
  66 05530   FCC 'SPACE'
  67 05540   FCB 5
  68 05550   FCB MFORE
  69 05560   FDB CCOMMA-CFAOFF
  70 05570   FDB BIF+2
  71 05580   FDB SPFEH-CFAOFF
  72 05590   FDB STATE-CFAOFF
  73 05600 SPACE     LDB BL+3,PCR
  74 05610   LBRA EMIT+2
  75 05620 *
  76 05630   FCC '-DUP'
  77 05640   FCB 4
  78 05650   FCB MFORE
  79 05660   FDB SPACE-CFAOFF
  80 05670   FDB BIF+2
  81 05680   FDB MONE-CFAOFF
  82 05690   FDB DTRAIL-CFAOFF
  83 05700 DDUP      LDD ,U
  84 05710   BEQ *+4
  85 05720   PSHU D
  86 05730   NEXT
  87 05740 *
  88 05750   FCC '?CST'
  89 05760   FCB 4
  90 05770   FCB MFORE
  91 05780   FDB DDUP-CFAOFF
  92 05790   FDB BIF+2
  93 05800   FDB QCSP-CFAOFF
  94 05810   FDB QERR-CFAOFF
  95 05820 QCST      LDX <UP
  96 05830   LDB USTATE+1,X
  97 05840   ANDB #SCOMP
  98 05850   CLRA
  99 05860   PSHU D
 100 05870   NEXT
 101 05890 *
 102 05900   FCC 'IF'
 103 05910   FCB MIMM|MCOMP|2
 104 05920   FCB MFORE
 105 05930   FDB QCST-CFAOFF
 106 05940   FDB BIF+2
 107 05950   FDB DO-CFAOFF
 108 05960   FDB QUERY-CFAOFF
 109 05965 * IF see fig-FORTH model
 110 05970 IF        DOCOL
 111 05980   FDB COMP
 112 05990   FDB ZBR
 113 06000   FDB HERE adr
 114 06010   FDB ZERO
 115 06020   FDB COMMA
 116 06030   FDB LIT
 117 06040   FDB ('I)*256+'F
 118 06060   FDB SEMIS
 119 06090 *
 120 06100   FCC 'ELSE'
 121 06110   FCB MIMM|MCOMP|4
 122 06120   FCB MFORE
 123 06130   FDB IF-CFAOFF
 124 06140   FDB BIF+2
 125 06150   FDB EDITOR-CFAOFF
 126 06160   FDB 0
 127 06170 ELSE      DOCOL
 128 06172   FDB DUP
 129 06173   FDB LIT
 130 06175   FDB ('I)*256+'F
 131 06178   FDB QPAIRS
 132 06180   FDB COMP
 133 06190   FDB BRANCH
 134 06200   FDB HERE adr
 135 06205   FDB ZERO
 136 06210   FDB COMMA
 137 06220   FDB ROT
 138 06230   FDB FILLIN IF adr
 139 06250   FDB SWAP for ENDIF
 140 06260   FDB SEMIS
 141 06290 *
 142 06300   FCC 'ENDIF'
 143 06310   FCB MIMM|MCOMP|5
 144 06320   FCB MFORE
 145 06330   FDB ELSE-CFAOFF
 146 06340   FDB BIF+2
 147 06350   FDB DROP-CFAOFF
 148 06360   FDB FIND-CFAOFF
 149 06370 ENDIF     DOCOL
 150 06380   FDB QCOMP
 151 06390   FDB LIT
 152 06400   FDB ('I)*256+'F
 153 06410   FDB QPAIRS
 154 06420   FDB FILLIN
 155 06470   FDB SEMIS
 156 06490 *