1 00010 * Include file for BIF
\r00020 * BIF Copyright 1989 Joel Matthew Rees (See BIF/ASM)
\r00030 *
\r05200 FCC '(ABORT)'
\r05210 FCB 7
\r05220 FCB MFORE
\r05230 FDB MESS-CFAOFF
\r05240 FDB BIF+2
\r05250 FDB XDOTQ-CFAOFF
\r05260 FDB XDO-CFAOFF
\r05270 IABORT DOCOL see fig-FORTH model
\r05280 FDB ABORT
\r05290 FDB SEMIS
\r05390 *
\r05400 FCC 'ERROR'
\r05410 FCB 5
\r05420 FCB MFORE
\r05430 FDB IABORT-CFAOFF
\r05440 FDB BIF+2
\r05450 FDB ERASE-CFAOFF
\r05460 FDB EXEC-CFAOFF
\r05470 ERROR DOCOL
\r05480 FDB WORDPD last WORD
\r05490 FDB COUNT
\r05500 FDB TYPE
\r05510 FDB XDOTQ
\r05520 FCB 3
\r05530 FCC ' ? '
\r05540 FDB MESS
\r05550 FDB WARN
\r05560 FDB FETCH
\r05570 FDB ZLESS
\r05580 FDB ZBR
\r05590 FDB 2
\r05600 FDB IABORT
\r05610 FDB SPSTO
\r05620 FDB IN
\r05630 FDB FETCH
\r05640 FDB BLK
\r05650 FDB FETCH
\r05660 FDB QUIT
\r05670 FDB SEMIS
\r05680 *
\r05700 FCC 'EDITOR'
\r05710 FCB MIMM.OR.6
\r05720 FCB MFORE
\r05730 FDB ERROR-CFAOFF
\r05740 FDB BIF+2 parent voc
\r05750 FDB 0
\r05760 FDB 0
\r05770 EDITOR DOVOC
\r05780 FDB EBLK-CFAOFF (NFA)
\r05790 *
\r05800 FCC 'QSYNC'
\r05810 FCB 5
\r05820 FCB MFORE
\r05830 FDB EDITOR-CFAOFF
\r05840 FDB EDITOR+2
\r05850 FDB 0
\r05860 FDB 0
\r05870 QSYNC LDX <UP
\r05880 LDB URNUM+1,X
\r05890 LDA #4
\r05900 STD $88
\r05910 NEXT
\r05990 *
\r06000 FCC 'EBLK'
\r06010 FCB 4
\r06020 FCB MFORE
\r06030 FDB QSYNC-CFAOFF
\r06040 FDB EDITOR+2
\r06050 FDB CURSOR-CFAOFF
\r06060 FDB QDUMP-CFAOFF
\r06070 EBLK DOUSER
\r06080 FCB UEBLK
\r06090 *
\r06000 FCC 'CURSOR'
\r06010 FCB 6
\r06020 FCB MFORE
\r06030 FDB QSYNC-CFAOFF
\r06040 FDB EDITOR+2
\r06050 FDB 0
\r06060 FDB 0
\r06070 CURSOR DOCOL
\r06080 FDB EBLK
\r06090 FDB FETCH
\r06100 FDB BLOCK
\r06110 FDB RNUM
\r06120 FDB FETCH
\r06130 FDB ADD
\r06140 FDB SEMIS
\r06190 *
\r06200 FCC 'QDUMP'
\r06210 FCB 5
\r06220 FCB MFORE
\r06230 FDB CURSOR-CFAOFF
\r06240 FDB EDITOR+2
\r06250 FDB QARROW-CFAOFF
\r06260 FDB QUICK-CFAOFF
\r06270 QDUMP PSHS Y
\r06280 PULU Y
\r06290 LDX #$400 screen
\r06300 CLRA
\r06310 QDUMPL LDB ,Y+
\r06320 STB ,X+
\r06330 DECA
\r06340 BNE QDUMPL
\r06350 PULS Y
\r06360 NEXT
\r06390 *
\r06400 FCC 'QARROW'
\r06410 FCB 6
\r06420 FCB MFORE
\r06430 FDB QDUMP-CFAOFF
\r06440 FDB EDITOR+2
\r06450 FDB 0
\r06460 FDB 0
\r06470 QARROW LDB 1,U
\r06480 LDA #4
\r06490 LEAX QTBL,PCR
\r06500 QAROL CMPB ,X+
\r06510 BEQ QARODO
\r06520 DECA
\r06530 BNE QAROL
\r06540 CMPB #21 shifted BS?
\r06550 BNE QAROX
\r06552 DOCOL
\r06554 FDB CURSOR
\r06556 FDB XMACH
\r06560 LDD #$2060 spaces
\r06565 STA [,U++] buffer
\r06570 STB [$88] video
\r06580 LDB #-1
\r06590 BRA *+4
\r06600 QARODO LDB 3,X
\r06610 LDX <UP
\r06620 ADDB URNUM+1,X
\r06630 STB URNUM+1,X
\r06650 LDD #0
\r06660 STD ,U
\r06670 QAROX NEXT
\r06700 QTBL FCB '^ up
\r06710 FCB 10 down
\r06720 FCB 8 back
\r06730 FCB 9 front
\r06740 FCB -32 offsets
\r06750 FCB 32
\r06760 FCB -1
\r06770 FCB 1
\r06790 *
\r
OSDN Git Service
