cross_v/BIF1B.ASM

   1 00010 * Include file for BIF
   2 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
   3 00030 *
   4 05160   FCC 'TOGGLE'
   5 05170   FCB 6
   6 05180   FCB MFORE
   7 05190   FDB ADDSTO-CFAOFF
   8 05200   FDB BIF+2
   9 05210   FDB TIB-CFAOFF
  10 05220   FDB TYPE-CFAOFF
  11 05230 TOG       PULU D,X
  12 05240   EORB ,X
  13 05250   STB ,X
  14 05260   NEXT
  15 05270 *
  16 05280   FCC 'C@'
  17 05290   FCB 2
  18 05300   FCB MFORE
  19 05310   FDB TOG-CFAOFF
  20 05320   FDB BIF+2
  21 05330   FDB BUFFER-CFAOFF
  22 05340   FDB DADD-CFAOFF
  23 05350 CFEH      LDB [,U]
  24 05360   CLRA
  25 05370   STD ,U
  26 05380   NEXT
  27 05390 *
  28 05400   FCC 'C!'
  29 05410   FCB 2
  30 05420   FCB MFORE
  31 05430   FDB CFEH-CFAOFF
  32 05440   FDB BIF+2
  33 05450   FDB 0
  34 05460   FDB 0
  35 05470 CSTO      LDB 3,U
  36 05480   STB [,U]
  37 05490   LEAU 4,U
  38 05500   NEXT
  39 05510 *
  40 05520   FCC 'ROT'
  41 05530   FCB 3
  42 05540   FCB MFORE
  43 05550   FDB CSTO-CFAOFF
  44 05560   FDB BIF+2
  45 05570   FDB RFROM-CFAOFF
  46 05580   FDB SMUDGE-CFAOFF
  47 05590 ROT       PSHS Y
  48 05600   PULU D,X,Y
  49 05610   PSHU D,X
  50 05620   PSHU Y
  51 05630   PULS Y
  52 05640   NEXT
  53 05650 *
  54 05660   FCC 'BACK' back ref
  55 05670   FCB MCOMP|4
  56 05680   FCB MFORE
  57 05690   FDB ROT-CFAOFF
  58 05700   FDB BIF+2
  59 05710   FDB BPBUF-CFAOFF
  60 05720   FDB BEGIN-CFAOFF
  61 05730 BACK      LDX <UP
  62 05740   PULU D target
  63 05750   SUBD UDP,X here
  64 05755   SUBD #2 past
  65 05760   PSHU D
  66 05770   JMP COMMA
  67 05780 *
  68 05800   FCC 'NOT'
  69 05810   FCB 3
  70 05820   FCB MFORE
  71 05830   FDB BACK-CFAOFF
  72 05840   FDB BIF+2
  73 05850   FDB NDOT-CFAOFF
  74 05860   FDB 0
  75 05870 NOT       LDD ,U
  76 05880   COMB
  77 05890   COMA
  78 05900   STD ,U
  79 05910   NEXT
  80 05920 *
  81 05990   FCC /'/
  82 06000   FCB MIMM|1
  83 06010   FCB MFORE
  84 06020   FDB NOT-CFAOFF
  85 06030   FDB BIF+2
  86 06040   FDB HASHS-CFAOFF
  87 06050   FDB 0
  88 06055 * ' see fig-FORTH model
  89 06060 TICK      DOCOL
  90 06070   FDB DDFIND
  91 06080   FDB DROP
  92 06090   FDB DUP
  93 06100   FDB ZEQ
  94 06110   FDB ZERO
  95 06120   FDB QERR
  96 06130   FDB LITER
  97 06140   FDB SEMIS
  98 06150 *
  99 07000   FCC '-->'
 100 07010   FCB MIMM|3
 101 07020   FCB MFORE
 102 07030   FDB TICK-CFAOFF
 103 07040   FDB BIF+2
 104 07050   FDB PLOOP-CFAOFF
 105 07060   FDB DOT-CFAOFF
 106 07065 * --> see fig-FORTH model
 107 07070 NEXSCR    DOCOL
 108 07080   FDB QLOAD
 109 07090   FDB ZERO
 110 07100   FDB IN
 111 07110   FDB STORE
 112 07120   FDB BPSCR
 113 07130   FDB BLK
 114 07140   FDB FETCH
 115 07150   FDB OVER
 116 07160   FDB MOD remaining in screen
 117 07170   FDB SUB
 118 07180   FDB BLK
 119 07190   FDB ADDSTO to next
 120 07200   FDB SEMIS
 121 07290 *
 122 07300   FCC '1ARRAY'
 123 07310   FCB 6
 124 07320   FCB MFORE
 125 07330   FDB NEXSCR-CFAOFF
 126 07340   FDB BIF+2
 127 07350   FDB SUB1-CFAOFF
 128 07360   FDB TBR-CFAOFF
 129 07370 ONEARR    DOCOL
 130 07380   FDB CREATE
 131 07390   FDB IPCOM
 132 07400   DO1ARR
 133 07410   FDB XMACH
 134 07415   LDX ,U
 135 07420   CMPX #255       0<el-size<256
 136 07430   BLS ONEARW
 137 07440 ONEARE    LDD #$0D
 138 07450   PSHU D
 139 07460   LBRA ERROR
 140 07470 ONEARW    LDD 4,U         swap
 141 07480   STD ,U
 142 07490   STX 4,U
 143 07500   LDD 2,U         last
 144 07510   SUBD ,U         first
 145 07520   BLT ONEARE      real dimension?
 146 07530   ADDD #1 element count
 147 07540   STD 2,U
 148 07550   PSHU D,X
 149 07560   DOCOL
 150 07570   FDB USTAR
 151 07580   FDB LIT overflow?
 152 07590   FDB $0D
 153 07600   FDB QERR
 154 07610   FDB TOR byte count
 155 07620   FDB COMMA       base
 156 07630   FDB COMMA       width
 157 07640   FDB CCOMMA      element size
 158 07650   FDB RFROM
 159 07660   FDB ALLOT
 160 07670   FDB SMUDGE
 161 07680   FDB SEMIS
 162 07690 *
 163 07700   FCC 'UTILITIES'
 164 07710   FCB MIMM|9
 165 07720   FCB MFORE
 166 07730   FDB ONEARR-CFAOFF
 167 07740   FDB BIF+2
 168 07750   FDB 0
 169 07760   FDB 0
 170 07770 UTIL      DOVOC
 171 07780   FDB DPFEH-CFAOFF
 172 07890 *
 173 07900   FCC 'DP@'
 174 07910   FCB 3
 175 07920   FCB MFORE
 176 07930   FDB UTIL-CFAOFF
 177 07940   FDB UTIL+2
 178 07950   FDB 0
 179 07960   FDB 0
 180 07970 DPFEH     TFR DP,A
 181 07980   CLRB
 182 07990   PSHU D
 183 07992   NEXT
 184 07994 *
 185 08000   FCC 'DCONSTANT'
 186 08010   FCB 9
 187 08020   FCB MFORE
 188 08030   FDB DPFEH-CFAOFF
 189 08040   FDB BIF+2
 190 08050   FDB 0
 191 08060   FDB 0
 192 08070 DCON      DOCOL
 193 08080   FDB CREATE
 194 08090   FDB IPCOM
 195 08100   JSR <XDCON
 196 08110   FDB COMMA
 197 08120   FDB COMMA
 198 08130   FDB SMUDGE
 199 08140   FDB SEMIS
 200 08390 *
 201 08300   FCC 'SWAB'
 202 08310   FCB 4
 203 08320   FCB MFORE
 204 08330   FDB DCON-CFAOFF
 205 08340   FDB BIF+2
 206 08350   FDB 0
 207 08360   FDB SWAN-CFAOFF
 208 08370 SWAB      LDD ,U
 209 08380   STB ,U  LS byte
 210 08390   STA 1,U MS byte
 211 08400   NEXT
 212 08490 *
 213 08500   FCC 'SWAN'
 214 08510   FCB 4
 215 08520   FCB MFORE
 216 08530   FDB SWAB-CFAOFF
 217 08540   FDB BIF+2
 218 08550   FDB 0
 219 08560   FDB 0
 220 08570 SWAN      LDA 1,U
 221 08580   LDB 1,U
 222 08590   LSRA
 223 08600   RORB
 224 08610   LSRA
 225 08620   RORB
 226 08630   LSRA
 227 08640   RORB
 228 08650   LSRA
 229 08660   RORB
 230 08670   STB 1,U
 231 08680   LDA ,U
 232 08690   LDB ,U
 233 08700   LSRA
 234 08710   RORB
 235 08720   LSRA
 236 08730   RORB
 237 08740   LSRA
 238 08750   RORB
 239 08760   LSRA
 240 08770   RORB
 241 08780   STB ,U
 242 08790   NEXT
 243 08890 *