00010 * Include file for BIF
00020 * BIF Copyright 1989 Joel Matthew Rees (See BIF/ASM)
00030 *
05200 	FCC '(ABORT)'
05210 	FCB 7
05220 	FCB MFORE
05230 	FDB MESS-CFAOFF
05240 	FDB BIF+2
05250 	FDB XDOTQ-CFAOFF
05260 	FDB XDO-CFAOFF
05270 IABORT DOCOL	see fig-FORTH model
05280 	FDB ABORT
05290 	FDB SEMIS
05390 *
05400 	FCC 'ERROR'
05410 	FCB 5
05420 	FCB MFORE
05430 	FDB IABORT-CFAOFF
05440 	FDB BIF+2
05450 	FDB ERASE-CFAOFF
05460 	FDB EXEC-CFAOFF
05470 ERROR DOCOL
05480 	FDB WORDPD last WORD
05490 	FDB COUNT
05500 	FDB TYPE
05510 	FDB XDOTQ
05520 	FCB 3
05530 	FCC ' ? '
05540 	FDB MESS
05550 	FDB WARN
05560 	FDB FETCH
05570 	FDB ZLESS
05580 	FDB ZBR
05590 	FDB 2
05600 	FDB IABORT
05610 	FDB SPSTO
05620 	FDB IN
05630 	FDB FETCH
05640 	FDB BLK
05650 	FDB FETCH
05660 	FDB QUIT
05670 	FDB SEMIS
05680 *
05700 	FCC 'EDITOR'
05710 	FCB MIMM.OR.6
05720 	FCB MFORE
05730 	FDB ERROR-CFAOFF
05740 	FDB BIF+2 parent voc
05750 	FDB 0
05760 	FDB 0
05770 EDITOR	DOVOC
05780 	FDB EBLK-CFAOFF (NFA)
05790 *
05800 	FCC 'QSYNC'
05810 	FCB 5
05820 	FCB MFORE
05830 	FDB EDITOR-CFAOFF
05840 	FDB EDITOR+2
05850 	FDB 0
05860 	FDB 0
05870 QSYNC	LDX <UP
05880 	LDB URNUM+1,X
05890 	LDA #4
05900 	STD $88
05910 	NEXT
05990 *
06000 	FCC 'EBLK'
06010 	FCB 4
06020 	FCB MFORE
06030 	FDB QSYNC-CFAOFF
06040 	FDB EDITOR+2
06050 	FDB CURSOR-CFAOFF
06060 	FDB QDUMP-CFAOFF
06070 EBLK	DOUSER
06080 	FCB UEBLK
06090 *
06000 	FCC 'CURSOR'
06010 	FCB 6
06020 	FCB MFORE
06030 	FDB QSYNC-CFAOFF
06040 	FDB EDITOR+2
06050 	FDB 0
06060 	FDB 0
06070 CURSOR	DOCOL
06080 	FDB EBLK
06090 	FDB FETCH
06100 	FDB BLOCK
06110 	FDB RNUM
06120 	FDB FETCH
06130 	FDB ADD
06140 	FDB SEMIS
06190 *
06200 	FCC 'QDUMP'
06210 	FCB 5
06220 	FCB MFORE
06230 	FDB CURSOR-CFAOFF
06240 	FDB EDITOR+2
06250 	FDB QARROW-CFAOFF
06260 	FDB QUICK-CFAOFF
06270 QDUMP	PSHS Y
06280 	PULU Y
06290 	LDX #$400 screen
06300 	CLRA
06310 QDUMPL	LDB ,Y+
06320 	STB ,X+
06330 	DECA
06340 	BNE QDUMPL
06350 	PULS Y
06360 	NEXT
06390 *
06400 	FCC 'QARROW'
06410 	FCB 6
06420 	FCB MFORE
06430 	FDB QDUMP-CFAOFF
06440 	FDB EDITOR+2
06450 	FDB 0
06460 	FDB 0
06470 QARROW	LDB 1,U
06480 	LDA #4
06490 	LEAX QTBL,PCR
06500 QAROL	CMPB ,X+
06510 	BEQ QARODO
06520 	DECA
06530 	BNE QAROL
06540 	CMPB #21 shifted BS?
06550 	BNE QAROX
06552 	DOCOL
06554 	FDB CURSOR
06556 	FDB XMACH
06560 	LDD #$2060 spaces
06565 	STA [,U++] buffer
06570 	STB [$88] video
06580 	LDB #-1
06590 	BRA *+4
06600 QARODO	LDB 3,X
06610 	LDX <UP
06620 	ADDB URNUM+1,X
06630 	STB URNUM+1,X
06650 	LDD #0
06660 	STD ,U
06670 QAROX	NEXT
06700 QTBL	FCB '^ up
06710 	FCB 10 down
06720 	FCB 8 back
06730 	FCB 9 front
06740 	FCB -32 offsets
06750 	FCB 32
06760 	FCB -1
06770 	FCB 1
06790 *