cross_v/BIF5B.ASM

   1 00010 * Include file for BIF
   2 00020 * BIF Copyright 1989 Joel Matthew Rees (See BIF/ASM)
   3 00030 *
   4 05200   FCC '(ABORT)'
   5 05210   FCB 7
   6 05220   FCB MFORE
   7 05230   FDB MESS-CFAOFF
   8 05240   FDB BIF+2
   9 05250   FDB XDOTQ-CFAOFF
  10 05260   FDB XDO-CFAOFF
  11 05270 IABORT DOCOL      see fig-FORTH model
  12 05280   FDB ABORT
  13 05290   FDB SEMIS
  14 05390 *
  15 05400   FCC 'ERROR'
  16 05410   FCB 5
  17 05420   FCB MFORE
  18 05430   FDB IABORT-CFAOFF
  19 05440   FDB BIF+2
  20 05450   FDB ERASE-CFAOFF
  21 05460   FDB EXEC-CFAOFF
  22 05470 ERROR DOCOL
  23 05480   FDB WORDPD last WORD
  24 05490   FDB COUNT
  25 05500   FDB TYPE
  26 05510   FDB XDOTQ
  27 05520   FCB 3
  28 05530   FCC ' ? '
  29 05540   FDB MESS
  30 05550   FDB WARN
  31 05560   FDB FETCH
  32 05570   FDB ZLESS
  33 05580   FDB ZBR
  34 05590   FDB 2
  35 05600   FDB IABORT
  36 05610   FDB SPSTO
  37 05620   FDB IN
  38 05630   FDB FETCH
  39 05640   FDB BLK
  40 05650   FDB FETCH
  41 05660   FDB QUIT
  42 05670   FDB SEMIS
  43 05680 *
  44 05700   FCC 'EDITOR'
  45 05710   FCB MIMM|6
  46 05720   FCB MFORE
  47 05730   FDB ERROR-CFAOFF
  48 05740   FDB BIF+2 parent voc
  49 05750   FDB 0
  50 05760   FDB 0
  51 05770 EDITOR    DOVOC
  52 05780   FDB EBLK-CFAOFF (NFA)
  53 05790 *
  54 05800   FCC 'QSYNC'
  55 05810   FCB 5
  56 05820   FCB MFORE
  57 05830   FDB EDITOR-CFAOFF
  58 05840   FDB EDITOR+2
  59 05850   FDB 0
  60 05860   FDB 0
  61 05870 QSYNC     LDX <UP
  62 05880   LDB URNUM+1,X
  63 05890   LDA #4
  64 05900   STD $88
  65 05910   NEXT
  66 05990 *
  67 06000   FCC 'EBLK'
  68 06010   FCB 4
  69 06020   FCB MFORE
  70 06030   FDB QSYNC-CFAOFF
  71 06040   FDB EDITOR+2
  72 06050   FDB CURSOR-CFAOFF
  73 06060   FDB QDUMP-CFAOFF
  74 06070 EBLK      DOUSER
  75 06080   FCB UEBLK
  76 06090 *
  77 06000   FCC 'CURSOR'
  78 06010   FCB 6
  79 06020   FCB MFORE
  80 06030   FDB QSYNC-CFAOFF
  81 06040   FDB EDITOR+2
  82 06050   FDB 0
  83 06060   FDB 0
  84 06070 CURSOR    DOCOL
  85 06080   FDB EBLK
  86 06090   FDB FETCH
  87 06100   FDB BLOCK
  88 06110   FDB RNUM
  89 06120   FDB FETCH
  90 06130   FDB ADD
  91 06140   FDB SEMIS
  92 06190 *
  93 06200   FCC 'QDUMP'
  94 06210   FCB 5
  95 06220   FCB MFORE
  96 06230   FDB CURSOR-CFAOFF
  97 06240   FDB EDITOR+2
  98 06250   FDB QARROW-CFAOFF
  99 06260   FDB QUICK-CFAOFF
 100 06270 QDUMP     PSHS Y
 101 06280   PULU Y
 102 06290   LDX #$400 screen
 103 06300   CLRA
 104 06310 QDUMPL    LDB ,Y+
 105 06320   STB ,X+
 106 06330   DECA
 107 06340   BNE QDUMPL
 108 06350   PULS Y
 109 06360   NEXT
 110 06390 *
 111 06400   FCC 'QARROW'
 112 06410   FCB 6
 113 06420   FCB MFORE
 114 06430   FDB QDUMP-CFAOFF
 115 06440   FDB EDITOR+2
 116 06450   FDB 0
 117 06460   FDB 0
 118 06470 QARROW    LDB 1,U
 119 06480   LDA #4
 120 06490   LEAX QTBL,PCR
 121 06500 QAROL     CMPB ,X+
 122 06510   BEQ QARODO
 123 06520   DECA
 124 06530   BNE QAROL
 125 06540   CMPB #21 shifted BS?
 126 06550   BNE QAROX
 127 06552   DOCOL
 128 06554   FDB CURSOR
 129 06556   FDB XMACH
 130 06560   LDD #$2060 spaces
 131 06565   STA [,U++] buffer
 132 06570   STB [$88] video
 133 06580   LDB #-1
 134 06590   BRA *+4
 135 06600 QARODO    LDB 3,X
 136 06610   LDX <UP
 137 06620   ADDB URNUM+1,X
 138 06630   STB URNUM+1,X
 139 06650   LDD #0
 140 06660   STD ,U
 141 06670 QAROX     NEXT
 142 06700 QTBL      FCB '^ up
 143 06710   FCB 10 down
 144 06720   FCB 8 back
 145 06730   FCB 9 front
 146 06740   FCB -32 offsets
 147 06750   FCB 32
 148 06760   FCB -1
 149 06770   FCB 1
 150 06790 *