PCjs Machines
Home of the original IBM PC emulator for browsers.
PC-SIG Diskette Library (Disk #352)
[PCjs Machine "ibm5170"]
Waiting for machine "ibm5170" to load....
Information about “TWO FORTHS”
Here are two FORTHS that are ready for the beginner to use. They also
include the documentation and source code for experienced programers
who want to extensively expand or modify their FORTH. Good examples
for those who want to write their own FORTH engine are provided in the
assembly language source files. MVPFORTH and FORTH-H can be assembled
using IBM's assembler.
System Requirements: MVPFORTH and FORTH-H source files can be assembled
IBM's assembler, but FORTH requires the Seattle Computer products
assembler.
How to Start: Read the accompanying .DOC file. To start MVPFORTH: type
MVPFORTH to load the MVPFORTH operating system from DOS. Then typing
VLIST will list the available FORTH words (FORTH-79 compatible ).
File Descriptions:
MVPFORTH DOC Documentation for MVPFORTH
MVPFORTH WDS List of code level words for MVPFORTH
MVPFORTH ASM Source code for MVPFORTH IBM assembler format
MVPFORTH COM FORTH-79 compatible forth interpiter
FORTH-H DOC Documentation for Glen Haydon's FORTH
FORTH-H COM Glen Haydon's FORTH interpreter
FORTH-H ASM Source for Glen Haydon's version of MVPFORTH
FILES352.TXT
--------------------------------------------------------------------------
Disk No 352 Two Forths v1.1
--------------------------------------------------------------------------
Here are two forths that are are ready for the beginner to use, but
along with the documentation and soruce code for experienced programers
who want to extensively expand or modify their forth. Also good examples
for those who want to write their own forth. MVPFORTH and FORTH-H can be
assembled IBM's assembler.
MVPFORTH WDS List of code level words for MVPFORTH
MVPFORTH DOC Documentation for MVPFORTH
MVPFORTH ASM Source code for MVPFORTH IBM assembler format
MVPFORTH COM FORTH-79 compatible forth interpiter
FORTH-H ASM Source for Glen Haydon's version of MVPFORTH
FORTH-H COM Glen Haydon's forth interpreter
FORTH-H DOC Documentation for Glen Haydon's forth
PC-SIG
1030D E. Duane Ave.
Sunnyvale, CA 94086
(408) 730-9291
(c) Copyright 1987 PC-SIG
FORTH-H.ASM
PAGE 60,96
TITLE 'MVPFORTH VERSION 1.0305.02 -10 AUG 82'
;
; MVPFORTH KERNEL VERSION 1.0305.02
;
; A FORTH OPERATING SYSSTEM
;
; FORTH THE IBM PERSONAL COMPUTER
;
;
; PREPARED FOR
;
; MOUNTAIN VIEW PRESS, INC.
; PO BOX 4656
; MOUNTAIN VIEW, CA 94040
;
; IMPLEMENTATION BY
;
; HAYDON ENTERPRISES
; BOX 429 ROUTE 2
; LA HONDA, CA 94020
;
;
;THIS PUBLICATION IS PLACED IN THE PUBLIC
;DOMAIN. PERMISSION TO DISTRIBUTE IS GRANTED
;BY THE INCLUSION OF CREDIT TO MOUNTAIN VIEW
;PRESS, INC., AND HAYDON ENTERPRISES.
;
;
;THIS IMPLEMENTATION INCLUDES THE ENTIRE
;FORTH-79 REQUIRED WORD SET. THE BOOK
;"ALL ABOUT FORTH" BY GLEN B. HAYDON FULLY
;DOCUMENTS MVPFORTH. IT IS AVAILABLE FROM
;MOUNTAIN VIEW PRESS, INC.
;
;THE IMPLEMENTATION HAS BEEN TRANSCRIBED FROM
;THE ORIGINAL CROSS COMPILER VER. 1.0000.02 .
;IT WILL ASSEMBLE WITH "MASM.COM" UNDER MDOS
;VER. 1.0 OR 1.1 .
;
;BECAUSE OF THE TYPE-AHEAD BUFFER OF THE IBM,
;?TERMINAL HAS A SLIGHTLY DIFFERENT FUNCTION
;FROM STANDARD MVPFORTH. THE TRUE FLAG IS
;THE ASCII VALUE OF THE KEY STRUCK (THE FALSE
;FLAG REMAINS 0). BY USING ?DUP BEFORE
;TESTING, THE VALUE OF THE STRUCK KEY WILL BE
;LEFT ON THE STACK. THUS IT IS NOT NECESSARY
;TO CLEAR THE STATUS FLAG WITH THE SEQUENCE
; - KEY DROP .
PAGE
;
;THE FORTH REGISTERS ARE ASSIGNED ACCORDING
;TO FIG-FORTH FOR THE 8086/88, VERSION 1.0,
;AS IMPLEMENTED BY THOMAS NEWMAN, 27444
;BERENDA WAY, HAYWARD, CA 94544, AND MADE
;AVAILABLE BY THE FORTH INTEREST GROUP,
;BOX 1105, SAN CARLOS, CA 94070.
;
;FORTH REGISTERS
;
;FORTH 8088 FORTH PRESERVATION RULES
;
; IP SI INTERPRETER POINTER.
; MUST BE PRESERVED
; ACROSS FORTH WORDS.
;
; W DX WORKING REGISTER.
; JUMP TO 'DPUSH' WILL
; PUSH CONTENTS ONTO THE
; PARAMETER STACK BEFORE
; EXECUTING 'APUSH'.
;
; SP SP PARAMETER STACK POINTER.
; MUST BE PRESERVED ACROSS
; FORTH WORDS. THIS IS ALSO
; THE SYSTEM STACK, WHICH
; IS SOMETIMES CALLED THE
; HARDWARE STACK -HS .
;
; RP BP RETURN STACK POINTER.
; MUST BE PRESERVED ACROSS
; FORTH WORDS.
;
;
;IN ADDITION, THE 8088 CODE SEGMENT, DATA
;SEGMENT AND STACK SEGMENT REGISTERS ( CS,
;DS, AND SS, MUST BE PRESERVED ACROSS
;FORTH WORDS.
;
;THE OTHER REGISTERS OF THE 8088 CPU MAY
;BE USED FREELY.
;
;10 AUGUST 1982
PAGE
;
; EQUATES:
;
ABL EQU 20H
ACR EQU 0DH
AMINUS EQU 2DH
ADOT EQU 2EH
BELL EQU 07H
ALF EQU 0AH
FFEED EQU 0CH
ADEL EQU 7FH
ADLE EQU 10H
BSOUT EQU 08H
BSIN EQU 08H
;
;
;
BPS EQU 80H
EM EQU 6000H
HDBT EQU 404H
NBUF EQU 02H
BUF1 EQU EM-HDBT*NBUF
US EQU 52H
INITR0 EQU BUF1-US
RTS EQU 0A0H
INITSP0 EQU INITR0-RTS
;
STACK SEGMENT PARA STACK
DB 200H DUP( 0 )
STACK ENDS
;
FSEG SEGMENT COMMON
ASSUME CS:FSEG,SS:STACK,DS:FSEG,ES:FSEG
PAGE
;
ORG 100H
;
ORIG: MOV AX,CS
MOV DS,AX
MOV SS,AX
MOV ES,AX
MOV SI,TCOLD
MOV SP,INITUSER
MOV BP,RPP
JMP NEXT
TCOLD DW TCOLD1
TCOLD1 DW COLD
;
;
INITFORTH DW RBRAC-4
INITUSER DW INITSP0
;
DW INITR0
DW INITSP0
DW 01FH
DW 01H
;
;
INITFENCE DW RBRAC-4
INITDP DW RBRAC+0CH
INITVOCLINK DW FORTH+6
;
;
DW ADFIND
DW AQTERM
DW AABORT
DW ABLOCK
DW ACRA
DW AEMIT
DW AEXPECT
DW AINTER
DW AKEY
DW ALOAD
DW ANUM
DW APAGE
DW ARSLW
DW ATSCALC
DW AV79
DW AWORD
UP DW INITR0
RPP DW INITR0
;
;
;
PAGE
;
;
;
DPUSH: PUSH DX
APUSH: PUSH AX
NEXT: MOV AX,[SI]
INC SI
INC SI
MOV BX,AX
NEXT1: MOV DX,BX
INC DX
JMP WORD PTR [BX]
;
;
;
DP0 DB 81H ; STORE
DB '!'+80H
DW 0
STORE DW $+2
POP BX
POP AX
MOV [BX],AX
JMP NEXT
;
DB 82H ; STOREL
DB '!'
DB 'L'+80H
DW STORE-4
STOREL DW $+2
POP BX
POP DS
POP AX
MOV [BX],AX
MOV BX,CS
MOV DS,BX
JMP NEXT
;
DB 81H ; #
DB '#'+80H
DW STOREL-5
DIG DW DOCOL
DW BASE
DW ATT
DW MSMOD
DW ROT
DW LIT
DW 9
DW OVER
DW LESS
DW ZBRAN
DW OFFSET DIG1-$
DW LIT
DW 7
DW PLUS
DIG1 DW LIT
DW 30H
DW PLUS
DW HOLD
DW EXIT
;
DB 82H ; #>
DB '#'
DB '>'+80H
DW DIG-4
EDIGS DW DOCOL
DW DDROP
DW HLD
DW ATT
DW PAD
DW OVER
DW SUBB
DW EXIT
;
DB 85H ; #BUFF
DB '#BUF'
DB 'F'+80H
DW EDIGS-5
NOBUF DW DOCON
DW NBUF
;
DB 82H ; #S
DB '#'
DB 'S'+80H
DW NOBUF-8
DIGS DW DOCOL
DIGS1 DW DIG
DW DDUP
DW ORR
DW NOTT
DW ZBRAN
DW OFFSET DIGS1-$
DW EXIT
;
DB 0C1H ; '
DB 0A7H
DW DIGS-5
TICK DW DOCOL
DW DFIND
DW NOTT
DW AABORTQ
DB 09H
DB 'NOT FOUND'
DW DROP
DW LITER
DW EXIT
;
DB 86H ; '-FIND
DB 27H,'-FIN'
DB 'D'+80H
DW TICK-4
TDFIND DW DOUSE
DW 16H
;
DB 8AH ; '?TERMINAL
DB 27H,'?TERMINA'
DB 'L'+80H
DW TDFIND-9
TQTERM DW DOUSE
DW 18H
;
DB 86H ; 'ABORT
DB 27H,'ABOR'
DB 'T'+80H
DW TQTERM-0DH
TABORT DW DOUSE
DW 1AH
;
DB 86H ; 'BLOCK
DB 27H,'BLOC'
DB 'K'+80H
DW TABORT-9
TBLOCK DW DOUSE
DW 1CH
;
DB 83H ; 'CR
DB 27H,'C'
DB 'R'+80H
DW TBLOCK-9
TCR DW DOUSE
DW 1EH
;
DB 85H ; 'EMIT
DB 27H,'EMI'
DB 'T'+80H
DW TCR-6
TEMIT DW DOUSE
DW 20H
;
DB 87H ; 'EXPECT
DB 27H,'EXPEC'
DB 'T'+80H
DW TEMIT-8
TEXPECT DW DOUSE
DW 22H
;
DB 8AH ; 'INTERPRET
DB 27H,'INTERPRE'
DB 'T'+80H
DW TEXPECT-0AH
TINTER DW DOUSE
DW 24H
;
DB 84H ; 'KEY
DB 27H,'KE'
DB 'Y'+80H
DW TINTER-0DH
TKEY DW DOUSE
DW 26H
;
DB 85H ; 'LOAD
DB 27H,'LOA'
DB 'D'+80H
DW TKEY-7
TLOAD DW DOUSE
DW 28H
;
DB 87H ; 'NUMBER
DB 27H,'NUMBE'
DB 'R'+80H
DW TLOAD-8
TNUM DW DOUSE
DW 2AH
;
DB 85H ; 'PAGE
DB 27H,'PAG'
DB 'E'+80H
DW TNUM-0AH
TPAGE DW DOUSE
DW 2CH
;
DB 84H ; 'R/W
DB 27H,'R/'
DB 'W'+80H
DW TPAGE-8
TRSLW DW DOUSE
DW 2EH
;
DB 87H ; 'STREAM
DB 27H,'STREA'
DB 'M'+80H
DW TRSLW-7
TSTREAM DW DOCOL
DW BLK
DW ATT
DW QDUP
DW ZBRAN
DW TSTRM1-$
DW BLOCK
DW BRAN
DW TSTRM2-$
TSTRM1 DW TIB
DW ATT
TSTRM2 DW TOIN
DW ATT
DW PLUS
DW EXIT
;
DB 88H ; 'T&SCALC
DB 27H,'T&SCAL'
DB 'C'+80H
DW TSTREAM-0AH
TTSCALC DW DOUSE
DW 30H
;
DB 8BH ; 'VOCABULARY
DB 27H,'VOCABULAR'
DB 'Y'+80H
DW TTSCALC-0BH
TVOCAB DW DOUSE
DW 32H
;
DB 85H ; 'WORD
DB 27H,'WOR'
DB 'D'+80H
DW TVOCAB-0EH
TWORD DW DOUSE
DW 34H
;
DB 0C1H ; (
DB '('+80H
DW TWORD-8
PAREN DW DOCOL
DW LIT
DW 0FFFFH
DW TOIN
DW PSTOR
DW LIT
DW 29H
DW WORDD
DW CAT
DW ONEP
DW HERE
DW PLUS
DW CAT
DW LIT
DW 29H
DW EQUAL
DW NOTT
DW QSTREAM
DW EXIT
;
DB 81H ; *
DB '*'+80H
DW PAREN-4
STAR DW DOCOL
DW USTAR
DW DROP
DW EXIT
;
DB 82H ; */
DB '*'
DB '/'+80H
DW STAR-4
SSLA DW DOCOL
DW SSMOD
DW SWAP
DW DROP
DW EXIT
;
DB 85H ; */MOD
DB '*/MO'
DB 'D'+80H
DW SSLA-5
SSMOD DW DOCOL
DW TOR
DW MSTAR
DW FROMR
DW MSLAS
DW EXIT
;
DB 81H ; +
DB '+'+80H
DW SSMOD-8
PLUS DW $+2
POP AX
POP BX
ADD AX,BX
JMP APUSH
;
DB 82H ; +STORE
DB '+'
DB '!'+80H
DW PLUS-4
PSTOR DW $+2
POP BX
POP AX
ADD [BX],AX
JMP NEXT
;
DB 82H ; +-
DB '+'
DB '-'+80H
DW PSTOR-5
PM DW DOCOL
DW ZLESS
DW ZBRAN
DW OFFSET PM1-$
DW NEG
PM1 DW EXIT
;
DB 84H ; +BUF
DB '+BU'
DB 'F'+80H
DW PM-5
PBUF DW DOCOL
DW LIT
DW HDBT
DW PLUS
DW DUPP
DW LIMIT
DW EQUAL
DW ZBRAN
DW OFFSET PBUF1-$
DW DROP
DW FIRST
PBUF1 DW DUPP
DW PREV
DW ATT
DW SUBB
DW EXIT
;
DB 0C5H ; +LOOP
DB '+LOO'
DB 'P'+80H
DW PBUF-7
PLOOP DW DOCOL
DW LIT
DW 3
DW QPAIR
DW COMP
DW APLOOP
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 81H ; ,
DB ','+80H
DW PLOOP-8
COMMA DW DOCOL
DW HERE
DW STORE
DW TWO
DW ALLOT
DW EXIT
;
DB 81H ; -
DB '-'+80H
DW COMMA-4
SUBB DW $+2
POP DX
POP AX
SUB AX,DX
JMP APUSH
;
DB 85H ; -FIND
DB '-FIN'
DB 'D'+80H
DW SUBB-4
DFIND DW DOCOL
DW TDFIND
DW ATT
DW EXEC
DW EXIT
;
DB 89H ; -TRAILING
DB '-TRAILIN'
DB 'G'+80H
DW DFIND-8
DTRAI DW DOCOL
DW DUPP
DW ZERO
DW ADO
DTRAI1 DW DDUP
DW PLUS
DW ONEM
DW CAT
DW BLL
DW SUBB
DW ZBRAN
DW OFFSET DTRAI2-$
DW LEAVE
DW BRAN
DW OFFSET DTRAI3-$
DTRAI2 DW ONEM
DTRAI3 DW ALOOP
DW OFFSET DTRAI1-$
DW EXIT
;
DB 81H ; .
DB '.'+80H
DW DTRAI-0CH
DOT DW DOCOL
DW STOD
DW DDOT
DW EXIT
;
DB 0C2H ; ."
DB '.'
DB '"'+80H
DW DOT-4
DOTQ DW DOCOL
DW TSTREAM
DW CAT
DW LIT
DW 22H
DW EQUAL
DW ZBRAN
DW OFFSET DOTQ1-$
DW ONE
DW TOIN
DW PSTOR
DW BRAN
DW OFFSET DOTQ2-$
DOTQ1 DW LIT
DW 22H
DW STATE
DW ATT
DW ZBRAN
DW OFFSET DOTQ3-$
DW COMP
DW ADOTQ
DOTQ3 DW WORDD
DW DUPP
DW CAT
DW ONEP
DW OVER
DW PLUS
DW CAT
DW LIT
DW 22H
DW EQUAL
DW NOTT
DW QSTREAM
DW STATE
DW ATT
DW ZBRAN
DW OFFSET DOTQ4-$
DW CAT
DW ONEP
DW ALLOT
DW BRAN
DW OFFSET DOTQ2-$
DOTQ4 DW COUNT
DW TYPEE
DOTQ2 DW EXIT
;
DB 85H ; .LINE
DB '.LIN'
DB 'E'+80H
DW DOTQ-5
DLINE DW DOCOL
DW ALINE
DW DTRAI
DW TYPEE
DW EXIT
;
DB 82H ; .R
DB '.'
DB 'R'+80H
DW DLINE-8
DOTR DW DOCOL
DW TOR
DW STOD
DW FROMR
DW DDOTR
DW EXIT
;
DB 81H ; /
DB '/'+80H
DW DOTR-5
SLASH DW DOCOL
DW SLMOD
DW SWAP
DW DROP
DW EXIT
;
DB 0C5H ; /LOOP
DB '/LOO'
DB 'P'+80H
DW SLASH-4
UPLOOP DW DOCOL
DW LIT
DW 3
DW QPAIR
DW COMP
DW AUPLOOP
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 84H ; /MOD
DB '/MO'
DB 'D'+80H
DW UPLOOP-8
SLMOD DW DOCOL
DW TOR
DW STOD
DW FROMR
DW MSLAS
DW EXIT
;
DB 81H ; 0
DB '0'+80H
DW SLMOD-7
ZERO DW DOCON
DW 00
;
DB 82H ; 0<
DB '0'
DB '<'+80H
DW ZERO-4
ZLESS DW $+2
POP AX
OR AX,AX
MOV AX,1
JS ZLES1
DEC AX
ZLES1: JMP APUSH
;
DB 82H ; 0=
DB '0'
DB '='+80H
DW ZLESS-5
ZEQU DW DOCOL
DW NOTT
DW EXIT
;
DB 82H ; 0>
DB '0'
DB '>'+80H
DW ZEQU-5
ZGREAT DW DOCOL
DW ZERO
DW GREAT
DW EXIT
;
DB 87H ; 0BRANCH
DB '0BRANC'
DB 'H'+80H
DW ZGREAT-5
ZBRAN DW $+2
POP AX
OR AX,AX
JZ ZBRAN1
INC SI
INC SI
JMP NEXT
ZBRAN1: JMP BRAN1
;
DB 81H ; 1
DB '1'+80H
DW ZBRAN-0AH
ONE DW DOCON
DW 01
;
DB 82H ; 1+
DB '1'
DB '+'+80H
DW ONE-4
ONEP DW $+2
POP AX
INC AX
JMP APUSH
;
DB 82H ; 1-
DB '1'
DB '-'+80H
DW ONEP-5
ONEM DW $+2
POP AX
DEC AX
JMP APUSH
;
DB 81H ; 2
DB '2'+80H
DW ONEM-5
TWO DW DOCON
DW 02
;
DB 82H ; 2*
DB '2'
DB '*'+80H
DW TWO-4
TWOST DW $+2
POP AX
ADD AX,AX
JMP APUSH
;
DB 82H ; 2+
DB '2'
DB '+'+80H
DW TWOST-5
TWOP DW $+2
POP AX
INC AX
INC AX
JMP APUSH
;
DB 82H ; 2-
DB '2'
DB '-'+80H
DW TWOP-5
TWOM DW $+2
POP AX
DEC AX
DEC AX
JMP APUSH
;
DB 82H ; 2/
DB '2'
DB '/'+80H
DW TWOM-5
TWOSL DW DOCOL
DW TWO
DW SLASH
DW EXIT
;
DB 8BH ; 79-STANDARD
DB '79-STANDAR'
DB 'D'+80H
DW TWOSL-5
STAND DW DOCOL
DW EXIT
;
DB 81H ; :
DB ':'+80H
DW STAND-0EH
COLON DW DOCOL
DW SPAT
DW CSP
DW STORE
DW CURR
DW ATT
DW CONT
DW STORE
DW CREATE
DW SMUDG
DW RBRAC
DW ASCODE
DOCOL: INC DX
DEC BP
DEC BP
MOV [BP],SI
MOV SI,DX
JMP NEXT
;
DB 0C1H ; ;
DB ';'+80H
DW COLON-4
SEMI DW DOCOL
DW QCSP
DW COMP
DW EXIT
DW SMUDG
DW LBRAC
DW EXIT
;
DB 81H ; <
DB '<'+80H
DW SEMI-4
LESS DW $+2
POP DX
POP AX
MOV BX,DX
XOR BX,AX
JS LES1
SUB AX,DX
LES1: OR AX,AX
MOV AX,0
JNS LES2
INC AX
LES2: JMP APUSH
;
DB 82H ; <#
DB '<'
DB '#'+80H
DW LESS-4
BDIGS DW DOCOL
DW PAD
DW HLD
DW STORE
DW EXIT
;
DB 87H ; <+LOOP>
DB '<+LOOP'
DB '>'+80H
DW BDIGS-5
APLOOP DW $+2
POP BX
JMP ALOOP1
;
DB 87H ; <-FIND>
DB '<-FIND'
DB '>'+80H
DW APLOOP-0AH
ADFIND DW DOCOL
DW BLL
DW WORDD
DW CONT
DW ATT
DW ATT
DW AFIND
DW EXIT
;
DB 84H ; <.">
DB '<."'
DB '>'+80H
DW ADFIND-0AH
ADOTQ DW DOCOL
DW RAT
DW COUNT
DW DUPP
DW ONEP
DW FROMR
DW PLUS
DW TOR
DW TYPEE
DW EXIT
;
DB 87H ; </LOOP>
DB '</LOOP'
DB '>'+80H
DW ADOTQ-7
AUPLOOP DW $+2
POP BX
ADD [BP],BX
JB AUPLO1
MOV AX,[BP]
SUB AX,2[BP]
JNB AUPLO1
JMP BRAN1
AUPLO1: ADD BP,4H
INC SI
INC SI
JMP NEXT
;
DB 87H ; <;CODE>
DB '<;CODE'
DB '>'+80H
DW AUPLOOP-0AH
ASCODE DW DOCOL
DW FROMR
DW LATES
DW PFA
DW CFA
DW STORE
DW EXIT
;
DB 88H ; <<CMOVE>
DB '<<CMOVE'
DB '>'+80H
DW ASCODE-0AH
ADCMOVE DW $+2
STD
MOV BX,SI
POP CX
POP DI
ADD DI,CX
POP SI
ADD SI,CX
MOV AX,DS
MOV ES,AX
REP MOVSB
MOV SI,BX
JMP NEXT
;
DB 8BH ; <?TERMINAL> ( --- C , F )
DB '<?TERMINAL'
DB '>'+80H
DW ADCMOVE-0BH
AQTERM DW $+2
PUSH DS
PUSH BX
MOV BX,40H
MOV DS,BX
MOV BX,1AH
MOV CX,[BX]
MOV AX,CX
MOV BX,1CH
SUB AX,[BX]
MOV [BX],CX
JZ AQTER1
MOV AX,[BX]
MOV BX,AX
MOV AX,[BX]
SUB AH,AH
AQTER1: POP BX
POP DS
JMP APUSH
;
DB 88H ; <ABORT">
DB '<ABORT"'
DB '>'+80H
DW AQTERM-0EH
AABORTQ DW DOCOL
DW ZBRAN
DW AABTQ1-$
DW WHERE
DW CR
DW RAT
DW COUNT
DW TYPEE
DW SPSTO
DW QUIT
DW BRAN
DW AABTQ2-$
AABTQ1 DW FROMR
DW DUPP
DW CAT
DW PLUS
DW ONEP
DW TOR
AABTQ2 DW EXIT
;
DB 87H ; <ABORT>
DB '<ABORT'
DB '>'+80H
DW AABORTQ-0BH
AABORT DW DOCOL
DW SPSTO
DW QSTAC
DW FORTH
DW DEFIN
DW QUIT
DW EXIT
;
DB 87H ; <BLOCK>
DB '<BLOCK'
DB '>'+80H
DW AABORT-0AH
ABLOCK DW DOCOL
DW OFSET
DW ATT
DW PLUS
DW TOR
DW PREV
DW ATT
DW DUPP
DW ATT
DW RAT
DW SUBB
DW TWOST
DW ZBRAN
DW OFFSET ABLOCK3-$
ABLOCK1 DW PBUF
DW NOTT
DW ZBRAN
DW OFFSET ABLOCK2-$
DW DROP
DW RAT
DW BUFFE
DW DUPP
DW RAT
DW ONE
DW RSLW
DW TWOM
ABLOCK2 DW DUPP
DW ATT
DW RAT
DW SUBB
DW TWOST
DW NOTT
DW ZBRAN
DW OFFSET ABLOCK1-$
DW DUPP
DW PREV
DW STORE
ABLOCK3 DW FROMR
DW DROP
DW TWOP
DW EXIT
;
DB 86H ; <CMOVE
DB '<CMOV'
DB 'E'+80H
DW ABLOCK-0AH
DCMOVE DW DOCOL
DW DUPP
DW ONE
DW LESS
DW ZBRAN
DW DCMOVE1-$
DW DDROP
DW DROP
DW BRAN
DW DCMOVE2-$
DCMOVE1 DW ADCMOVE
DCMOVE2 DW EXIT
;
DB 87H ; <CMOVE>
DB '<CMOVE'
DB '>'+80H
DW DCMOVE-09
ACMOVE DW $+2
CLD
MOV BX,SI
POP CX
POP DI
POP SI
MOV AX,DS
MOV ES,AX
REP MOVSB
MOV SI,BX
JMP NEXT
;
DB 84H ; <CR>
DB '<CR'
DB '>'+80H
DW ACMOVE-0AH
ACRA DW DOCOL
DW LIT
DW 0DH
DW EMIT
DW LIT
DW 0AH
DW EMIT
DW ZERO
DW OUTT
DW STORE
DW EXIT
;
DB 84H ; <DO>
DB '<DO'
DB '>'+80H
DW ACRA-7
ADO DW $+2
POP DX
POP AX
XCHG BP,SP
PUSH AX
PUSH DX
XCHG BP,SP
JMP NEXT
;
DB 86H ; <EMIT>
DB '<EMIT'
DB '>'+80H
DW ADO-7
AEMIT DW DOCOL
DW EPRINT
DW ATT
DW ZBRAN
DW OFFSET AEMIT1-$
DW DUPP
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 17H
DW INTCAL
DW DROP
AEMIT1 DW LIT
DW 0E00H
DW PLUS
DW LIT
DW 07H
DW ZERO
DW ZERO
DW LIT
DW 10H
DW INTCAL
DW DROP
DW ONE
DW OUTT
DW PSTOR
DW EXIT
;
DB 88H ; <EXPECT>
DB '<EXPECT'
DB '>'+80H
DW AEMIT-9
AEXPECT DW DOCOL
DW OVER
DW PLUS
DW OVER
DW ADO
AEXPEC1 DW KEY
DW DUPP
DW LIT
DW 8
DW EQUAL
DW OVER
DW LIT
DW 7FH
DW EQUAL
DW ORR
DW ZBRAN
DW OFFSET AEXPEC4-$
DW DROP
DW DUPP
DW IDO
DW EQUAL
DW DUPP
DW FROMR
DW TWOM
DW PLUS
DW TOR
DW ZBRAN
DW OFFSET AEXPEC2-$
DW LIT
DW 7
DW BRAN
DW OFFSET AEXPEC3-$
AEXPEC2 DW LIT
DW 8
DW DUPP
DW EMIT
DW LIT
DW 20H
DW EMIT
DW LIT
DW 0FFFDH
DW OUTT
DW PSTOR
AEXPEC3 DW BRAN
DW OFFSET AEXPEC7-$
AEXPEC4 DW DUPP
DW LIT
DW 0DH
DW EQUAL
DW ZBRAN
DW OFFSET AEXPEC5-$
DW LEAVE
DW DROP
DW BLL
DW ZERO
DW BRAN
DW OFFSET AEXPEC6-$
AEXPEC5 DW DUPP
AEXPEC6 DW IDO
DW CSTOR
DW ZERO
DW IDO
DW ONEP
DW STORE
AEXPEC7 DW EMIT
DW ONE
DW AUPLOOP
DW OFFSET AEXPEC1-$
DW DROP
DW EXIT
;
DB 86H ; <FILL>
DB '<FILL'
DB '>'+80H
DW AEXPECT-0BH
AFILL DW $+2
POP AX
POP CX
POP DI
MOV BX,DS
MOV ES,BX
CLD
REP STOSB
JMP NEXT
;
DB 86H ; <FIND>
DB '<FIND'
DB '>'+80H
DW AFILL-9
AFIND DW $+2
MOV AX,DS
MOV ES,AX
POP BX
POP CX
AFIND1: MOV DI,CX
MOV AL,[BX]
MOV DL,AL
XOR AL,[DI]
AND AL,3FH
JNZ AFIND3
AFIND2: INC BX
INC DI
MOV AL,[BX]
XOR AL,[DI]
ADD AL,AL
JNZ AFIND3
JNB AFIND2
ADD BX,5
PUSH BX
MOV AX,1
SUB DH,DH
JMP DPUSH
AFIND3: INC BX
JB AFIND4
MOV AL,[BX]
ADD AL,AL
JMP AFIND3
AFIND4: MOV BX,[BX]
OR BX,BX
JNZ AFIND1
MOV AX,0
JMP APUSH
;
DB 8BH ; <INTERPRET>
DB '<INTERPRET'
DB '>'+80H
DW AFIND-9
AINTER DW DOCOL
AINTER1 DW DFIND
DW ZBRAN
DW OFFSET AINTER4-$
DW STATE
DW ATT
DW LESS
DW ZBRAN
DW OFFSET AINTER2-$
DW CFA
DW COMMA
DW BRAN
DW OFFSET AINTER3-$
AINTER2 DW CFA
DW EXEC
AINTER3 DW BRAN
DW OFFSET AINTER6-$
AINTER4 DW HERE
DW NUM
DW DPL
DW ATT
DW ONEP
DW ZBRAN
DW OFFSET AINTER5-$
DW DLITE
DW BRAN
DW OFFSET AINTER6-$
AINTER5 DW DROP
DW LITER
AINTER6 DW QSTAC
DW BRAN
DW OFFSET AINTER1-$
DW EXIT
;
DB 85H ; <KEY>
DB '<KEY'
DB '>'+80H
DW AINTER-0EH
AKEY DW DOCOL
AKEY1 DW ZERO
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 16H
DW INTCAL
DW LIT
DW 0FFH
DW ANDD
DW DUPP
DW LIT
DW 10H
DW SUBB
DW NOTT
DW ZBRAN
DW OFFSET AKEY2-$
DW DROP
DW ONE
DW EPRINT
DW ATT
DW XORR
DW EPRINT
DW STORE
DW BRAN
DW OFFSET AKEY1-$
AKEY2 DW EXIT
;
DB 86H ; <LINE>
DB '<LINE'
DB '>'+80H
DW AKEY-8
ALINE DW DOCOL
DW BLOCK
DW SWAP
DW CSLL
DW STAR
DW PLUS
DW CSLL
DW EXIT
;
DB 86H ; <LOAD>
DB '<LOAD'
DB '>'+80H
DW ALINE-9
ALOAD DW DOCOL
DW QDUP
DW NOTT
DW AABORTQ
DB 0AH
DB 'UNLOADABLE'
DW BLK
DW ATT
DW TOR
DW TOIN
DW ATT
DW TOR
DW ZERO
DW TOIN
DW STORE
DW BLK
DW STORE
DW INTER
DW FROMR
DW TOIN
DW STORE
DW FROMR
DW BLK
DW STORE
DW EXIT
;
DB 86H ; <LOOP>
DB '<LOOP'
DB '>'+80H
DW ALOAD-9
ALOOP DW $+2
MOV BX,1H
ALOOP1: MOV CX,[BP]
ADD [BP],BX
JS ALOOP2
MOV AX,CX
AND AX,BX
JNS ALOOP3
ALOOP2: MOV AX,CX
OR AX,BX
JNS ALOOP8
ALOOP3: MOV AX,[BP]
SUB AX,2[BP]
JS ALOOP7
MOV AX,[BP]
AND AX,AX
JS ALOOP5
ALOOP4: MOV AX,BX
AND AX,AX
JNS ALOOP8
JMP BRAN1
ALOOP5: MOV AX,2[BP]
AND AX,AX
JS ALOOP4
ALOOP6: MOV AX,BX
AND AX,AX
JS ALOOP8
JMP BRAN1
ALOOP7: MOV AX,[BP]
AND AX,AX
JS ALOOP6
JMP ALOOP5
ALOOP8: ADD BP,4H
INC SI
INC SI
JMP NEXT
;
DB 88H ; <NUMBER>
DB '<NUMBER'
DB '>'+80H
DW ALOOP-9
ANUM DW DOCOL
DW ZERO
DW ZERO
DW ROT
DW DUPP
DW ONEP
DW CAT
DW LIT
DW 2DH
DW EQUAL
DW DUPP
DW TOR
DW PLUS
DW LIT
DW 0FFFFH
DW DPL
DW STORE
DW CONV
DW DUPP
DW CAT
DW BLL
DW GREAT
DW ZBRAN
DW OFFSET ANUM1-$
DW DUPP
DW CAT
DW LIT
DW 2EH
DW EQUAL
DW NOTT
DW AABORTQ
DB 0EH
DB 'NOT RECOGNIZED'
DW ZERO
DW DPL
DW STORE
DW CONV
DW DUPP
DW CAT
DW BLL
DW GREAT
DW AABORTQ
DB 0EH
DB 'NOT RECOGNIZED'
ANUM1 DW DROP
DW FROMR
DW ZBRAN
DW OFFSET ANUM2-$
DW DNEG
ANUM2 DW EXIT
;
DB 86H ; <PAGE>
DB '<PAGE'
DB '>'+80H
DW ANUM-0BH
APAGE DW DOCOL
DW ZERO
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 10H
DW INTCAL
DW DROP
DW EXIT
;
DB 85H ; <R/W>
DB '<R/W'
DB '>'+80H
DW APAGE-9
ARSLW DW DOCOL
DW USEE
DW ATT
DW TOR
DW ROT
DW USEE
DW STORE
DW SWAP
DW MAXDRV
DW ZERO
DW ADO
ARSLW1 DW IDO
DW DRDEN
DW DENSTY
DW STORE
DW DUPP
DW BPDRV
DW SLMOD
DW ZBRAN
DW ARSLW3-$
DW DROP
DW BPDRV
DW SUBB
DW IDO
DW ONEP
DW MAXDRV
DW EQUAL
DW ZBRAN
DW ARSLW2-$
DW FROMR
DW FROMR
DW DDROP
DW FROMR
DW USEE
DW STORE
DW ONE
DW AABORTQ
DB 12H
DB 'BLOCK OUT OF RANGE'
ARSLW2 DW BRAN
DW ARSLW4-$
ARSLW3 DW IDO
DW DRIVE
DW STORE
DW LEAVE
ARSLW4 DW ALOOP
DW ARSLW1-$
DW DROP
DW SPBLK
DW STAR
DW SPBLK
DW ZERO
DW ADO
ARSLW5 DW DDUP
DW TSCALC
DW ZBRAN
DW ARSLW6-$
DW SECRD
DW BRAN
DW ARSLW7-$
ARSLW6 DW SECWT
ARSLW7 DW ONEP
DW LIT
DW 404H
DW LIT
DW 4
DW SUBB
DW SPBLK
DW SLASH
DW USEE
DW PSTOR
DW ALOOP
DW ARSLW5-$
DW DDROP
DW FROMR
DW USEE
DW STORE
DW EXIT
;
DB 89H ; <T&SCALC>
DB '<T&SCALC'
DB '>'+80H
DW ARSLW-8
ATSCALC DW DOCOL
DW SPT
DW SLMOD
DW TRACK
DW STORE
DW ONEP
DW SEC
DW STORE
DW EXIT
;
DB 8EH ; <VOCABULARY79>
DB '<VOCABULARY79'
DB '>'+80H
DW ATSCALC-0CH
AV79 DW DOCOL
DW CREATE
DW LIT
DW 0A081H
DW COMMA
DW LIT
DW FORTH+2
DW COMMA
DW HERE
DW VOCL
DW ATT
DW COMMA
DW VOCL
DW STORE
DW ASCODE
DOVOC DB 0E8H
DW DODOES-$-2
DW TWOP
DW CONT
DW STORE
DW EXIT
;
DB 8FH ; <VOCABULARYFIG>
DB '<VOCABULARYFIG'
DB '>'+80H
DW AV79-11H
AVFIG DW DOCOL
DW CREATE
DW LIT
DW 0A081H
DW COMMA
DW CURR
DW ATT
DW CFA
DW COMMA
DW HERE
DW VOCL
DW ATT
DW COMMA
DW VOCL
DW STORE
DW ASCODE
DB 0E8H
DW DODOES-$-2
DW TWOP
DW CONT
DW STORE
DW EXIT
;
DB 86H ; <WORD>
DB '<WORD'
DB '>'+80H
DW AVFIG-12H
AWORD DW DOCOL
DW TSTREAM
DW SWAP
DW ENCL
DW DDUP
DW GREAT
DW ZBRAN
DW OFFSET AWORD1-$
DW DDROP
DW DDROP
DW ZERO
DW HERE
DW STORE
DW BRAN
DW OFFSET AWORD2-$
AWORD1 DW TOIN
DW PSTOR
DW OVER
DW SUBB
DW DUPP
DW TOR
DW HERE
DW CSTOR
DW PLUS
DW HERE
DW ONEP
DW FROMR
DW DUPP
DW LIT
DW 0FFH
DW GREAT
DW AABORTQ
DB 0BH
DB 'INPUT > 255'
DW ONEP
DW CMOVE
AWORD2 DW HERE
DW EXIT
;
DB 81H ; =
DB '='+80H
DW AWORD-9
EQUAL DW DOCOL
DW SUBB
DW NOTT
DW EXIT
;
DB 81H ; >
DB '>'+80H
DW EQUAL-4
GREAT DW DOCOL
DW SWAP
DW LESS
DW EXIT
;
DB 83H ; >IN
DB '>I'
DB 'N'+80H
DW GREAT-4
TOIN DW DOUSE
DW 36H
;
DB 82H ; >R
DB '>'
DB 'R'+80H
DW TOIN-6
TOR DW $+2
POP BX
DEC BP
DEC BP
MOV [BP],BX
JMP NEXT
;
DB 81H ; ?
DB '?'+80H
DW TOR-5
QUES DW DOCOL
DW ATT
DW DOT
DW EXIT
;
DB 85H ; ?COMP
DB '?COM'
DB 'P'+80H
DW QUES-4
QCOMP DW DOCOL
DW STATE
DW ATT
DW NOTT
DW AABORTQ
DB 0CH
DB 'COMPILE ONLY'
DW EXIT
;
DB 8AH ; ?CONFIGURE
DB '?CONFIGUR'
DB 'E'+80H
DW QCOMP-8
QCONF DW DOCOL
DW CR
DW CR
DW MAXDRV
DW DOT
DW ADOTQ
DB 16H
DB 'DRIVES WITH DENSITIES:'
DW MAXDRV
DW ZERO
DW ADO
QCONF1 DW IDO
DW DRDEN
DW TWO
DW SPACS
DW DOT
DW ALOOP
DW QCONF1-$
DW CR
DW CR
DW ADOTQ
DB 0CH
DB 'DENSITY CODE'
DW CR
DW ADOTQ
DB 0AH
DB '0 - 5-SSSD'
DW CR
DW ADOTQ
DB 0AH
DB '1 - 8-SSSD'
DW CR
DW ADOTQ
DB 0AH
DB '2 - 8-DSSD'
DW CR
DW ADOTQ
DB 0AH
DB '3 - 8-SSDD'
DW CR
DW ADOTQ
DB 0AH
DB '4 - 8-DSDD'
DW CR
DW ADOTQ
DB 0BH
DB '5 - 8-SSEXT'
DW CR
DW ADOTQ
DB 0BH
DB '6 - 8-DSEXT'
DW CR
DW EXIT
;
DB 84H ; ?CSP
DB '?CS'
DB 'P'+80H
DW QCONF-0DH
QCSP DW DOCOL
DW SPAT
DW CSP
DW ATT
DW SUBB
DW AABORTQ
DB 17H
DB 'DEFINITION NOT FINISHED'
DW EXIT
;
DB 84H ; ?DUP
DB '?DU'
DB 'P'+80H
DW QCSP-7
QDUP DW DOCOL
DW DUPP
DW ZBRAN
DW QDUP1-$
DW DUPP
QDUP1 DW EXIT
;
DB 88H ; ?LOADING
DB '?LOADIN'
DB 'G'+80H
DW QDUP-7
QLOAD DW DOCOL
DW BLK
DW ATT
DW NOTT
DW AABORTQ
DB 0CH
DB 'LOADING ONLY'
DW EXIT
;
DB 86H ; ?PAIRS
DB '?PAIR'
DB 'S'+80H
DW QLOAD-0BH
QPAIR DW DOCOL
DW SUBB
DW AABORTQ
DB 17H
DB 'CONDITIONALS NOT PAIRED'
DW EXIT
;
DB 86H ; ?STACK
DB '?STAC'
DB 'K'+80H
DW QPAIR-9
QSTAC DW DOCOL
DW SPAT
DW SZERO
DW SWAP
DW ULESS
DW AABORTQ
DB 0BH
DB 'EMPTY STACK'
DW SPAT
DW HERE
DW LIT
DW 80H
DW PLUS
DW ULESS
DW AABORTQ
DB 0AH
DB 'FULL STACK'
DW EXIT
;
DB 87H ; ?STREAM
DB '?STREA'
DB 'M'+80H
DW QSTAC-9
QSTREAM DW DOCOL
DW AABORTQ
DB 16H
DB 'INPUT STREAM EXHAUSTED'
DW EXIT
;
DB 89H ; ?TERMINAL
DB '?TERMINA'
DB 'L'+80H
DW QSTREAM-0AH
QTERM DW DOCOL
DW TQTERM
DW ATT
DW EXEC
DW EXIT
;
DB 81H ; @
DB '@'+80H
DW QTERM-0CH
ATT DW $+2
POP BX
MOV AX,[BX]
JMP APUSH
;
DB 82H ; @L
DB '@'
DB 'L'+80H
DW ATT-4
ATL DW $+2
POP BX
POP DS
MOV AX,[BX]
MOV BX,CS
MOV DS,BX
JMP APUSH
;
DB 85H ; ABORT
DB 'ABOR'
DB 'T'+80H
DW ATL-5
ABORT DW DOCOL
DW TABORT
DW ATT
DW EXEC
DW EXIT
;
DB 0C6H ; ABORT"
DB 'ABORT'
DB '"'+80H
DW ABORT-8
ABORTQ DW DOCOL
DW QCOMP
DW COMP
DW AABORTQ
DW TSTREAM
DW CAT
DW LIT
DW 22H
DW EQUAL
DW ZBRAN
DW ABORTQ1-$
DW ONE
DW TOIN
DW PSTOR
DW ZERO
DW CCOMM
DW BRAN
DW ABORTQ2-$
ABORTQ1 DW LIT
DW 22H
DW WORDD
DW DUPP
DW CAT
DW ONEP
DW SWAP
DW OVER
DW PLUS
DW CAT
DW LIT
DW 22H
DW EQUAL
DW NOTT
DW QSTREAM
DW ALLOT
ABORTQ2 DW EXIT
;
DB 83H ; ABS
DB 'AB'
DB 'S'+80H
DW ABORTQ-9
ABSS DW DOCOL
DW DUPP
DW PM
DW EXIT
;
DB 0C5H ; AGAIN
DB 'AGAI'
DB 'N'+80H
DW ABSS-6
AGAIN DW DOCOL
DW ONE
DW QPAIR
DW COMP
DW BRAN
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 85H ; ALLOT
DB 'ALLO'
DB 'T'+80H
DW AGAIN-8
ALLOT DW DOCOL
DW DP
DW PSTOR
DW EXIT
;
DB 83H ; AND
DB 'AN'
DB 'D'+80H
DW ALLOT-8
ANDD DW $+2
POP BX
POP AX
AND AX,BX
JMP APUSH
;
DB 85H ; APUSH
DB 'APUS'
DB 'H'+80H
DW ANDD-6
APUSHH DW DOCON
DW APUSH
;
DB 84H ; BASE
DB 'BAS'
DB 'E'+80H
DW APUSHH-8
BASE DW DOUSE
DW 38H
;
DB 0C5H ; BEGIN
DB 'BEGI'
DB 'N'+80H
DW BASE-7
BEGIN DW DOCOL
DW QCOMP
DW HERE
DW ONE
DW EXIT
;
DB 82H ; BL
DB 'B'
DB 'L'+80H
DW BEGIN-8
BLL DW DOCON
DW 20H
;
DB 85H ; BLANK
DB 'BLAN'
DB 'K'+80H
DW BLL-5
BLANK DW DOCOL
DW BLL
DW FILL
DW EXIT
;
DB 83H ; BLK
DB 'BL'
DB 'K'+80H
DW BLANK-8
BLK DW DOUSE
DW 3AH
;
DB 87H ; BLK/DRV
DB 'BLK/DR'
DB 'V'+80H
DW BLK-6
BPDR DW DOVAR
DW 0A0H
DW 0FAH
DW 1F4H
DW 1F4H
DW 3E8H
DW 268H
DW 4D0H
;
DB 85H ; BLOCK
DB 'BLOC'
DB 'K'+80H
DW BPDR-0AH
BLOCK DW DOCOL
DW TBLOCK
DW ATT
DW EXEC
DW EXIT
;
DB 85H ; BPDRV
DB 'BPDR'
DB 'V'+80H
DW BLOCK-8
BPDRV DW DOCOL
DW DENSTY
DW ATT
DW LIT
DW 6H
DW MIN
DW TWOST
DW BPDR
DW PLUS
DW ATT
DW EXIT
;
DB 86H ; BRANCH
DB 'BRANC'
DB 'H'+80H
DW BPDRV-8
BRAN DW $+2
BRAN1: ADD SI,[SI]
JMP NEXT
;
DB 86H ; BUFFER
DB 'BUFFE'
DB 'R'+80H
DW BRAN-9
BUFFE DW DOCOL
DW USEE
DW ATT
DW DUPP
DW TOR
BUFF1 DW PBUF
DW ZBRAN
DW OFFSET BUFF1-$
DW USEE
DW STORE
DW RAT
DW ATT
DW ZLESS
DW ZBRAN
DW OFFSET BUFF2-$
DW RAT
DW TWOP
DW RAT
DW ATT
DW LIT
DW 7FFFH
DW ANDD
DW ZERO
DW RSLW
BUFF2 DW RAT
DW STORE
DW RAT
DW PREV
DW STORE
DW FROMR
DW TWOP
DW EXIT
;
DB 83H ; BYE
DB 'BY'
DB 'E'+80H
DW BUFFE-9
BYE DW DOCOL
DW FREEZE
DW ZERO
DW ZERO
DW SYSCALL
DW EXIT
;
DB 82H ; CSTORE
DB 'C'
DB '!'+80H
DW BYE-6
CSTOR DW $+2
POP BX
POP AX
MOV [BX],AL
JMP NEXT
;
DB 83H ; CSTOREL
DB 'C!'
DB 'L'+80H
DW CSTOR-5
CSTORL DW $+2
POP BX
POP DS
POP AX
MOV [BX],AL
MOV BX,CS
MOV DS,BX
JMP NEXT
;
DB 82H ; C,
DB 'C'
DB ','+80H
DW CSTORL-6
CCOMM DW DOCOL
DW HERE
DW CSTOR
DW ONE
DW ALLOT
DW EXIT
;
DB 83H ; C/L
DB 'C/'
DB 'L'+80H
DW CCOMM-5
CSLL DW DOCON
DW 40H
;
DB 82H ; C@
DB 'C'
DB '@'+80H
DW CSLL-6
CAT DW $+2
POP BX
MOV AL,[BX]
SUB AH,AH
JMP APUSH
;
DB 83H ; C@L
DB 'C@'
DB 'L'+80H
DW CAT-5
CATL DW $+2
POP BX
POP DS
MOV AL,[BX]
SUB AH,AH
MOV BX,CS
MOV DS,BX
JMP APUSH
;
DB 83H ; CFA
DB 'CF'
DB 'A'+80H
DW CATL-6
CFA DW DOCOL
DW TWOM
DW EXIT
;
DB 86H ; CHANGE
DB 'CHANG'
DB 'E'+80H
DW CFA-6
CHANGE DW DOCOL
DW FREEZE
DW LIMIT
DW LIT
DW 404H
DW NOBUF
DW STAR
DW SUBB
DW DUPP
DW LIT
DW FIRST+2
DW STORE
DW LIT
DW US
DW SUBB
DW DUPP
DW LIT
DW RTS
DW SUBB
DW DUPP
DW LIT
DW INITUSER
DW STORE
DW LIT
DW INITUSER+4
DW STORE
DW DUPP
DW LIT
DW INITUSER+2
DW STORE
DW LIT
DW UP
DW OVER
DW LIT
DW RPP
DW LIT
DW ORIG
DW HERE
DW STORE
DW HERE
DW ROT
DW ROT
DW STORE
DW ROT
DW ROT
DW STORE
DW EXEC
DW EXIT
;
DB 85H ; CLEAR
DB 'CLEA'
DB 'R'+80H
DW CHANGE-9
CLEAR DW DOCOL
DW OFSET
DW ATT
DW PLUS
DW BUFFE
DW LIT
DW 400H
DW BLL
DW FILL
DW UPDAT
DW EXIT
;
DB 85H ; CMOVE
DB 'CMOV'
DB 'E'+80H
DW CLEAR-8
CMOVE DW DOCOL
DW DUPP
DW ONE
DW LESS
DW ZBRAN
DW CMOVE1-$
DW DDROP
DW DROP
DW BRAN
DW CMOVE2-$
CMOVE1 DW ACMOVE
CMOVE2 DW EXIT
;
DB 84H ; COLD
DB 'COL'
DB 'D'+80H
DW CMOVE-8
COLD DW DOCOL
DW MTBUF
DW LIT
DW INITUSER
DW LIT
DW UP
DW ATT
DW LIT
DW 6
DW PLUS
DW LIT
DW 30H
DW CMOVE
DW PAGEE
DW ADOTQ
DB 1DH
DB 'MVP-FORTH VERSION 1.0305.02'
DW CR
DW ONE
DW DENSTY
DW STORE
DW FIRST
DW USEE
DW STORE
DW FIRST
DW PREV
DW STORE
DW DR0
DW ZERO
DW EPRINT
DW STORE
DW LIT
DW INITFORTH
DW ATT
DW LIT
DW FORTH+2
DW TWOP
DW STORE
DW DEC
DW LIT
DW 40H
DW LIT
DW 40H
DW LIT
DW 17H
DW STOREL
DW ABORT
DW EXIT
;
DB 87H ; COMPILE
DB 'COMPIL'
DB 'E'+80H
DW COLD-7
COMP DW DOCOL
DW QCOMP
DW FROMR
DW DUPP
DW TWOP
DW TOR
DW ATT
DW COMMA
DW EXIT
;
DB 89H ; CONFIGURE
DB 'CONFIGUR'
DB 'E'+80H
DW COMP-0AH
CONF DW DOCOL
DW QCONF
DW CR
DW ADOTQ
DB 13H
DB 'NUMBER OF DRIVES ? '
DW KEY
DW LIT
DW 31H
DW SUBB
DW DUPP
DW LIT
DW 5
DW ULESS
DW NOTT
DW AABORTQ
DB 0FH
DB 'TOO MANY DRIVES'
DW DUPP
DW LIT
DW 31H
DW PLUS
DW EMIT
DW ONEP
DW LIT
DW MAXDRV+2
DW STORE
DW MAXDRV
DW ZERO
DW ADO
CONF1 DW CR
DW ADOTQ
DB 6
DB 'DRIVE '
DW IDO
DW DOT
DW ADOTQ
DB 2
DB '? '
DW KEY
DW LIT
DW 30H
DW SUBB
DW DUPP
DW LIT
DW 7
DW ULESS
DW NOTT
DW AABORTQ
DB 0CH
DB 'OUT OF RANGE'
DW DUPP
DW LIT
DW 30H
DW PLUS
DW EMIT
DW IDO
DW TWOST
DW DEN
DW PLUS
DW STORE
DW ALOOP
DW CONF1-$
DW DR0
DW CR
DW CR
DW ADOTQ
DB 0DH
DB 'DR0 SELECTED '
DW CR
DW EXIT
;
DB 88H ; CONSTANT
DB 'CONSTAN'
DB 'T'+80H
DW CONF-0CH
CON DW DOCOL
DW CREATE
DW COMMA
DW ASCODE
DOCON: INC DX
MOV BX,DX
MOV AX,[BX]
JMP APUSH
;
DB 87H ; CONTEXT
DB 'CONTEX'
DB 'T'+80H
DW CON-0BH
CONT DW DOUSE
DW 3CH
;
DB 87H ; CONVERT
DB 'CONVER'
DB 'T'+80H
DW CONT-0AH
CONV DW DOCOL
CONV1 DW ONEP
DW DUPP
DW TOR
DW CAT
DW BASE
DW ATT
DW DIGIT
DW ZBRAN
DW OFFSET CONV3-$
DW SWAP
DW BASE
DW ATT
DW USTAR
DW DROP
DW ROT
DW BASE
DW ATT
DW USTAR
DW DPLUS
DW DPL
DW ATT
DW ONEP
DW ZBRAN
DW OFFSET CONV2-$
DW ONE
DW DPL
DW PSTOR
CONV2 DW FROMR
DW BRAN
DW OFFSET CONV1-$
CONV3 DW FROMR
DW EXIT
;
DB 85H ; COUNT
DB 'COUN'
DB 'T'+80H
DW CONV-0AH
COUNT DW DOCOL
DW DUPP
DW ONEP
DW SWAP
DW CAT
DW EXIT
;
DB 82H ; CR
DB 'C'
DB 'R'+80H
DW COUNT-8
CR DW DOCOL
DW TCR
DW ATT
DW EXEC
DW EXIT
;
DB 86H ; CREATE
DB 'CREAT'
DB 'E'+80H
DW CR-5
CREATE DW DOCOL
DW BLL
DW WORDD
DW DUPP
DW DUPP
DW ONEP
DW CAT
DW ZERO
DW EQUAL
DW AABORTQ
DB 1AH
DB 'ATTEMPTED TO REDEFINE NULL'
DW DUPP
DW CONT
DW ATT
DW ATT
DW AFIND
DW ZBRAN
DW OFFSET CREA1-$
DW DDROP
DW WARN
DW ATT
DW ZBRAN
DW OFFSET CREA1-$
DW DUPP
DW COUNT
DW TYPEE
DW SPACE
DW ADOTQ
DB 0DH
DB 'ISN',27H,'T UNIQUE '
CREA1 DW CAT
DW WIDTHH
DW ATT
DW MIN
DW ONEP
DW ALLOT
DW DUPP
DW LIT
DW 80H
DW TOGGL
DW HERE
DW ONEM
DW LIT
DW 80H
DW TOGGL
DW LATES
DW COMMA
DW TWO
DW ALLOT
DW CURR
DW ATT
DW STORE
DW ASCODE
DOVAR: INC DX
PUSH DX
JMP NEXT
;
DB 83H ; CSP
DB 'CS'
DB 'P'+80H
DW CREATE-9
CSP DW DOUSE
DW 3EH
;
DB 87H ; CURRENT
DB 'CURREN'
DB 'T'+80H
DW CSP-6
CURR DW DOUSE
DW 40H
;
DB 82H ; DSTORE
DB 'D'
DB '!'+80H
DW CURR-0AH
DSTOR DW $+2
POP BX
POP AX
MOV [BX],AX
POP AX
MOV 2[BX],AX
JMP NEXT
;
DB 82H ; D+
DB 'D'
DB '+'+80H
DW DSTOR-5
DPLUS DW $+2
POP AX
POP DX
POP BX
POP CX
ADD DX,CX
ADC AX,BX
JMP DPUSH
;
DB 83H ; D+-
DB 'D+'
DB '-'+80H
DW DPLUS-5
DPM DW DOCOL
DW ZLESS
DW ZBRAN
DW OFFSET DPM1-$
DW DNEG
DPM1 DW EXIT
;
DB 82H ; D.
DB 'D'
DB '.'+80H
DW DPM-6
DDOT DW DOCOL
DW ZERO
DW DDOTR
DW SPACE
DW EXIT
;
DB 83H ; D.R
DB 'D.'
DB 'R'+80H
DW DDOT-5
DDOTR DW DOCOL
DW DEPTH
DW LIT
DW 3
DW LESS
DW AABORTQ
DB 0BH
DB 'EMPTY STACK'
DW TOR
DW SWAP
DW OVER
DW DUPP
DW DPM
DW BDIGS
DW DIGS
DW ROT
DW SIGN
DW EDIGS
DW FROMR
DW OVER
DW SUBB
DW SPACS
DW TYPEE
DW EXIT
;
DB 82H ; D<
DB 'D'
DB '<'+80H
DW DDOTR-6
DLESS DW DOCOL
DW ROT
DW DDUP
DW EQUAL
DW ZBRAN
DW DLESS1-$
DW ROT
DW ROT
DW DNEG
DW DPLUS
DW ZLESS
DW BRAN
DW DLESS2-$
DLESS1 DW SWAP
DW LESS
DW SWAP
DW DROP
DLESS2 DW SWAP
DW DROP
DW EXIT
;
DB 84H ; DABS
DB 'DAB'
DB 'S'+80H
DW DLESS-5
DABS DW DOCOL
DW DUPP
DW DPM
DW EXIT
;
DB 85H ; DDROP
DB 'DDRO'
DB 'P'+80H
DW DABS-7
DDROP DW $+2
POP BX
POP BX
JMP NEXT
;
DB 84H ; DDUP
DB 'DDU'
DB 'P'+80H
DW DDROP-8
DDUP DW $+2
POP AX
POP DX
PUSH DX
PUSH AX
JMP DPUSH
;
DB 87H ; DECIMAL
DB 'DECIMA'
DB 'L'+80H
DW DDUP-7
DEC DW DOCOL
DW LIT
DW 0AH
DW BASE
DW STORE
DW EXIT
;
DB 8BH ; DEFINITIONS
DB 'DEFINITION'
DB 'S'+80H
DW DEC-0AH
DEFIN DW DOCOL
DW CONT
DW ATT
DW CURR
DW STORE
DW EXIT
;
DB 83H ; DEN
DB 'DE'
DB 'N'+80H
DW DEFIN-0EH
DEN DW DOVAR
DW 0
DW 0
DW 1
DW 1
DW 1
;
DB 87H ; DENSITY
DB 'DENSIT'
DB 'Y'+80H
DW DEN-6
DENSTY DW DOVAR
DW 0
;
DB 85H ; DEPTH
DB 'DEPT'
DB 'H'+80H
DW DENSTY-0AH
DEPTH DW DOCOL
DW SPAT
DW SZERO
DW SWAP
DW SUBB
DW TWOSL
DW EXIT
;
DB 85H ; DIGIT
DB 'DIGI'
DB 'T'+80H
DW DEPTH-8
DIGIT DW $+2
POP DX
POP AX
SUB AL,'0'
JB DIGI2
CMP AL,9H
JBE DIGI1
SUB AL,7H
CMP AL,0AH
JB DIGI2
DIGI1: CMP AL,DL
JAE DIGI2
SUB DX,DX
MOV DL,AL
MOV AL,01H
JMP DPUSH
DIGI2: SUB AX,AX
JMP APUSH
;
DB 8AH ; DISK-ERROR
DB 'DISK-ERRO'
DB 'R'+80H
DW DIGIT-8
DSKERR DW DOVAR
DW 0
;
DB 0C8H ; DLITERAL
DB 'DLITERA'
DB 'L'+80H
DW DSKERR-0DH
DLITE DW DOCOL
DW STATE
DW ATT
DW ZBRAN
DW OFFSET DLITE1-$
DW SWAP
DW LITER
DW LITER
DLITE1 DW EXIT
;
DB 87H ; DNEGATE
DB 'DNEGAT'
DB 'E'+80H
DW DLITE-0BH
DNEG DW $+2
POP BX
POP CX
SUB AX,AX
MOV DX,AX
SUB DX,CX
SBB AX,BX
JMP DPUSH
;
DB 0C2H ; DO
DB 'D'
DB 'O'+80H
DW DNEG-0AH
DO DW DOCOL
DW COMP
DW ADO
DW HERE
DW LIT
DW 3
DW EXIT
;
DB 0C5H ; DOES>
DB 'DOES'
DB '>'+80H
DW DO-5
DOES DW DOCOL
DW QCSP
DW COMP
DW ASCODE
DW LIT
DW 0E8H
DW CCOMM
DW LIT
DW DODOES
DW HERE
DW TWOP
DW SUBB
DW COMMA
DW EXIT
;
DODOES: INC DX
DEC BP
DEC BP
MOV [BP],SI
POP SI
PUSH DX
JMP NEXT
;
DB 82H ; DP
DB 'D'
DB 'P'+80H
DW DOES-8
DP DW DOUSE
DW 12H
;
DB 83H ; DPL
DB 'DP'
DB 'L'+80H
DW DP-5
DPL DW DOUSE
DW 42H
;
DB 85H ; DPUSH
DB 'DPUS'
DB 'H'+80H
DW DPL-6
DPUS DW DOCON
DW DPUSH
;
DB 86H ; DR-DEN
DB 'DR-DE'
DB 'N'+80H
DW DPUS-8
DRDEN DW DOCOL
DW TWOST
DW DEN
DW PLUS
DW ATT
DW EXIT
;
DB 83H ; DR0
DB 'DR'
DB '0'+80H
DW DRDEN-9
DR0 DW DOCOL
DW ZERO
DW OFSET
DW STORE
DW EXIT
;
DB 83H ; DR1
DB 'DR'
DB '1'+80H
DW DR0-6
DR1 DW DOCOL
DW DR0
DW ZERO
DW SETDRX
DW EXIT
;
DB 83H ; DR2
DB 'DR'
DB '2'+80H
DW DR1-6
DR2 DW DOCOL
DW DR1
DW ONE
DW SETDRX
DW EXIT
;
DB 83H ; DR3
DB 'DR'
DB '3'+80H
DW DR2-6
DR3 DW DOCOL
DW DR2
DW TWO
DW SETDRX
DW EXIT
;
DB 83H ; DR4
DB 'DR'
DB '4'+80H
DW DR3-6
DR4 DW DOCOL
DW DR3
DW LIT
DW 3
DW SETDRX
DW EXIT
;
DB 85H ; DRIVE
DB 'DRIV'
DB 'E'+80H
DW DR4-6
DRIVE DW DOVAR
DW 00
;
DB 84H ; DROP
DB 'DRO'
DB 'P'+80H
DW DRIVE-8
DROP DW $+2
POP AX
JMP NEXT
;
DB 83H ; DUP
DB 'DU'
DB 'P'+80H
DW DROP-7
DUPP DW $+2
POP AX
PUSH AX
JMP APUSH
;
DB 0C4H ; ELSE
DB 'ELS'
DB 'E'+80H
DW DUPP-6
ELSEE DW DOCOL
DW TWO
DW QPAIR
DW COMP
DW BRAN
DW HERE
DW ZERO
DW COMMA
DW SWAP
DW TWO
DW THENN
DW TWO
DW EXIT
;
DB 84H ; EMIT
DB 'EMI'
DB 'T'+80H
DW ELSEE-7
EMIT DW DOCOL
DW TEMIT
DW ATT
DW EXEC
DW EXIT
;
DB 8DH ; EMPTY-BUFFERS
DB 'EMPTY-BUFFER'
DB 'S'+80H
DW EMIT-7
MTBUF DW DOCOL
DW FIRST
DW LIMIT
DW OVER
DW SUBB
DW ZERO
DW AFILL
DW NOBUF
DW ZERO
DW ADO
MTBUF1 DW LIT
DW 7FFFH
DW LIT
DW 404H
DW IDO
DW STAR
DW FIRST
DW PLUS
DW STORE
DW ALOOP
DW OFFSET MTBUF1-$
DW EXIT
;
DB 87H ; ENCLOSE
DB 'ENCLOS'
DB 'E'+80H
DW MTBUF-10H
ENCL DW $+2
POP AX
POP BX
PUSH BX
MOV DX,0FFFFH
DEC BX
ENCL1: INC BX
INC DX
CMP AL,[BX]
JZ ENCL1
PUSH DX
INC BYTE PTR [BX]
DEC BYTE PTR [BX]
JNZ ENCL2
INC DX
PUSH DX
DEC DX
PUSH DX
JMP NEXT
ENCL2: INC BX
INC DX
CMP AL,[BX]
JZ ENCL3
INC BYTE PTR [BX]
DEC BYTE PTR [BX]
JNZ ENCL2
PUSH DX
PUSH DX
JMP NEXT
ENCL3: PUSH DX
INC DX
PUSH DX
JMP NEXT
;
DB 86H ; EPRINT
DB 'EPRIN'
DB 'T'+80H
DW ENCL-0AH
EPRINT DW DOVAR
DW 0
;
DB 87H ; EXECUTE
DB 'EXECUT'
DB 'E'+80H
DW EPRINT-9
EXEC DW $+2
POP BX
JMP NEXT1
;
DB 84H ; EXIT
DB 'EXI'
DB 'T'+80H
DW EXEC-0AH
EXIT DW $+2
MOV SI,[BP]
INC BP
INC BP
JMP NEXT
;
DB 86H ; EXPECT
DB 'EXPEC'
DB 'T'+80H
DW EXIT-7
EXPEC DW DOCOL
DW TEXPECT
DW ATT
DW EXEC
DW EXIT
;
DB 85H ; FENCE
DB 'FENC'
DB 'E'+80H
DW EXPEC-9
FENCE DW DOUSE
DW 10H
;
DB 84H ; FILL
DB 'FIL'
DB 'L'+80H
DW FENCE-8
FILL DW DOCOL
DW OVER
DW ZGREAT
DW ZBRAN
DW FILL1-$
DW AFILL
DW BRAN
DW FILL2-$
FILL1 DW DDROP
DW DROP
FILL2 DW EXIT
;
DB 84H ; FIND
DB 'FIN'
DB 'D'+80H
DW FILL-7
FIND DW DOCOL
DW DFIND
DW ZBRAN
DW FIND1-$
DW DROP
DW CFA
DW BRAN
DW FIND2-$
FIND1 DW ZERO
FIND2 DW EXIT
;
DB 85H ; FIRST
DB 'FIRS'
DB 'T'+80H
DW FIND-7
FIRST DW DOCON
DW BUF1
;
DB 83H ; FLD
DB 'FL'
DB 'D'+80H
DW FIRST-8
FLD DW DOUSE
DW 44H
;
DB 86H ; FORGET
DB 'FORGE'
DB 'T'+80H
DW FLD-6
FORG DW DOCOL
DW BLL
DW WORDD
DW CURR
DW ATT
DW ATT
DW AFIND
DW ZEQU
DW AABORTQ
DB 19H
DB 'NOT IN CURRENT VOCABULARY'
DW DROP
DW NFA
DW DUPP
DW FENCE
DW ATT
DW ULESS
DW AABORTQ
DB 17H
DB 'IN PROTECTED DICTIONARY'
DW TOR
DW RAT
DW CONT
DW ATT
DW ULESS
DW ZBRAN
DW FORG1-$
DW FORTH
FORG1 DW RAT
DW CURR
DW ATT
DW ULESS
DW ZBRAN
DW FORG2-$
DW FORTH
DW DEFIN
FORG2 DW VOCL
DW ATT
FORG3 DW RAT
DW OVER
DW ULESS
DW ZBRAN
DW FORG4-$
DW ATT
DW BRAN
DW FORG3-$
FORG4 DW DUPP
DW VOCL
DW STORE
FORG5 DW DUPP
DW LIT
DW 4
DW SUBB
FORG6 DW PFA
DW LFA
DW ATT
DW DUPP
DW RAT
DW ULESS
DW ZBRAN
DW FORG6-$
DW OVER
DW TWOM
DW STORE
DW ATT
DW QDUP
DW ZEQU
DW ZBRAN
DW FORG5-$
DW FROMR
DW DP
DW STORE
DW EXIT
;
DB 0C5H ; FORTH
DB 'FORT'
DB 'H'+80H
DW FORG-9
FORTH DW DOVOC
DW 0A081H
DW RBRAC-4
DW 00
;
DB 86H ; FREEZE
DB 'FREEZ'
DB 'E'+80H
DW FORTH-8
FREEZE DW DOCOL
DW LIT
DW UP
DW ATT
DW LIT
DW 6
DW PLUS
DW LIT
DW INITUSER
DW LIT
DW 30H
DW CMOVE
DW LIT
DW FORTH+2
DW TWOP
DW ATT
DW LIT
DW INITFORTH
DW STORE
DW EXIT
;
DB 84H ; HERE
DB 'HER'
DB 'E'+80H
DW FREEZE-9
HERE DW DOCOL
DW DP
DW ATT
DW EXIT
;
DB 83H ; HEX
DB 'HE'
DB 'X'+80H
DW HERE-7
HEX DW DOCOL
DW LIT
DW 10H
DW BASE
DW STORE
DW EXIT
;
DB 83H ; HLD
DB 'HL'
DB 'D'+80H
DW HEX-6
HLD DW DOUSE
DW 46H
;
DB 84H ; HOLD
DB 'HOL'
DB 'D'+80H
DW HLD-6
HOLD DW DOCOL
DW LIT
DW 0FFFFH
DW HLD
DW PSTOR
DW HLD
DW ATT
DW CSTOR
DW EXIT
;
DB 81H ; I
DB 'I'+80H
DW HOLD-7
IDO DW $+2
MOV AX,[BP]
JMP APUSH
;
DB 82H ; I'
DB 'I'
DB 0A7H
DW IDO-4
IPDO DW $+2
MOV AX,[BP+2]
JMP APUSH
;
DB 0C2H ; IF
DB 'I'
DB 'F'+80H
DW IPDO-5
IFF DW DOCOL
DW COMP
DW ZBRAN
DW HERE
DW ZERO
DW COMMA
DW TWO
DW EXIT
;
DB 89H ; IMMEDIATE
DB 'IMMEDIAT'
DB 'E'+80H
DW IFF-5
IMMED DW DOCOL
DW LATES
DW LIT
DW 40H
DW TOGGL
DW EXIT
;
DB 8AH ; INIT-FORTH
DB 'INIT-FORT'
DB 'H'+80H
DW IMMED-0CH
IFORTH DW DOCON
DW INITFORTH
;
DB 89H ; INIT-USER
DB 'INIT-USE'
DB 'R'+80H
DW IFORTH-0DH
IUSER DW DOCON
DW INITUSER
;
DB 87H ; INTCALL
DB 'INTCAL'
DB 'L'+80H
DW IUSER-0CH
INTCAL DW DOCOL
DW LIT
DW INTCA2+1
DW CSTOR
DW LIT
DW INTCA1
DW EXEC
DW EXIT
;
INTCA1 DW $+2
POP DX
POP CX
POP BX
POP AX
PUSH SI
PUSH BP
INTCA2: INT 0
POP BP
POP SI
JMP APUSH
;
DB 89H ; INTERPRET
DB 'INTERPRE'
DB 'T'+80H
DW INTCAL-0AH
INTER DW DOCOL
DW TINTER
DW ATT
DW EXEC
DW EXIT
;
;
DB 81H ; J
DB 'J'+80H
DW INTER-0CH
JDO DW $+2
MOV AX,[BP+4]
JMP APUSH
;
DB 83H ; KEY
DB 'KE'
DB 'Y'+80H
DW JDO-4
KEY DW DOCOL
DW TKEY
DW ATT
DW EXEC
DW EXIT
;
DB 86H ; LATEST
DB 'LATES'
DB 'T'+80H
DW KEY-6
LATES DW DOCOL
DW CURR
DW ATT
DW ATT
DW EXIT
;
DB 85H ; LEAVE
DB 'LEAV'
DB 'E'+80H
DW LATES-9
LEAVE DW $+2
MOV AX,[BP]
MOV 2[BP],AX
JMP NEXT
;
DB 83H ; LFA
DB 'LF'
DB 'A'+80H
DW LEAVE-8
LFA DW DOCOL
DW LIT
DW 4
DW SUBB
DW EXIT
;
DB 85H ; LIMIT
DB 'LIMI'
DB 'T'+80H
DW LFA-6
LIMIT DW DOCON
DW EM
;
DB 84H ; LIST
DB 'LIS'
DB 'T'+80H
DW LIMIT-8
LIST DW DOCOL
DW CR
DW DUPP
DW SCR
DW STORE
DW ADOTQ
DB 5
DB 'SCR #'
DW DOT
DW LIT
DW 10H
DW ZERO
DW ADO
LIST1 DW CR
DW RAT
DW LIT
DW 3
DW DOTR
DW SPACE
DW RAT
DW SCR
DW ATT
DW DLINE
DW QTERM
DW ZBRAN
DW OFFSET LIST2-$
DW LEAVE
LIST2 DW ALOOP
DW OFFSET LIST1-$
DW CR
DW EXIT
;
DB 83H ; LIT
DB 'LI'
DB 'T'+80H
DW LIST-7
LIT DW $+2
MOV AX,[SI]
INC SI
INC SI
JMP APUSH
;
DB 0C7H ; LITERAL
DB 'LITERA'
DB 'L'+80H
DW LIT-6
LITER DW DOCOL
DW STATE
DW ATT
DW ZBRAN
DW OFFSET LITER1-$
DW COMP
DW LIT
DW COMMA
LITER1 DW EXIT
;
DB 84H ; LOAD
DB 'LOA'
DB 'D'+80H
DW LITER-0AH
LOAD DW DOCOL
DW TLOAD
DW ATT
DW EXEC
DW EXIT
;
DB 0C4H ; LOOP
DB 'LOO'
DB 'P'+80H
DW LOAD-7
LOOP DW DOCOL
DW LIT
DW 3
DW QPAIR
DW COMP
DW ALOOP
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 82H ; M*
DB 'M'
DB '*'+80H
DW LOOP-7
MSTAR DW DOCOL
DW DDUP
DW XORR
DW TOR
DW ABSS
DW SWAP
DW ABSS
DW USTAR
DW FROMR
DW DPM
DW EXIT
;
DB 83H ; M*/
DB 'M*'
DB '/'+80H
DW MSTAR-5
MSTARSL DW DOCOL
DW DDUP
DW XORR
DW SWAP
DW ABSS
DW TOR
DW SWAP
DW ABSS
DW TOR
DW OVER
DW XORR
DW ROT
DW ROT
DW DABS
DW SWAP
DW RAT
DW USTAR
DW ROT
DW FROMR
DW USTAR
DW ROT
DW ZERO
DW DPLUS
DW RAT
DW USLM
DW ROT
DW ROT
DW FROMR
DW USLM
DW SWAP
DW DROP
DW SWAP
DW ROT
DW DPM
DW EXIT
;
DB 82H ; M+
DB 'M'
DB '+'+80H
DW MSTARSL-6
MPLUS DW DOCOL
DW STOD
DW DPLUS
DW EXIT
;
DB 82H ; M/
DB 'M'
DB '/'+80H
DW MPLUS-5
MSLAS DW DOCOL
DW OVER
DW TOR
DW TOR
DW DUPP
DW DPM
DW RAT
DW ABSS
DW USLM
DW FROMR
DW RAT
DW XORR
DW PM
DW SWAP
DW FROMR
DW PM
DW SWAP
DW EXIT
;
DB 85H ; M/MOD
DB 'M/MO'
DB 'D'+80H
DW MSLAS-5
MSMOD DW DOCOL
DW TOR
DW ZERO
DW RAT
DW USLM
DW FROMR
DW SWAP
DW TOR
DW USLM
DW FROMR
DW EXIT
;
DB 83H ; MAX
DB 'MA'
DB 'X'+80H
DW MSMOD-8
MAX DW DOCOL
DW DDUP
DW LESS
DW ZBRAN
DW OFFSET MAX1-$
DW SWAP
MAX1 DW DROP
DW EXIT
;
DB 87H ; MAX-DRV
DB 'MAX-DR'
DB 'V'+80H
DW MAX-6
MAXDRV DW DOCON
DW 2
;
DB 83H ; MIN
DB 'MI'
DB 'N'+80H
DW MAXDRV-0AH
MIN DW DOCOL
DW DDUP
DW GREAT
DW ZBRAN
DW OFFSET MIN1-$
DW SWAP
MIN1 DW DROP
DW EXIT
;
DB 83H ; MOD
DB 'MO'
DB 'D'+80H
DW MIN-6
MODD DW DOCOL
DW SLMOD
DW DROP
DW EXIT
;
DB 84H ; MOVE
DB 'MOV'
DB 'E'+80H
DW MODD-6
MOVE DW DOCOL
DW ZERO
DW MAX
DW TWOST
DW ACMOVE
DW EXIT
;
DB 86H ; NEGATE
DB 'NEGAT'
DB 'E'+80H
DW MOVE-7
NEG DW $+2
POP AX
NEG AX
JMP APUSH
;
DB 84H ; NEXT
DB 'NEX'
DB 'T'+80H
DW NEG-9
CNEXT DW DOCON
DW NEXT
;
DB 85H ; NEXT1
DB 'NEXT'
DB '1'+80H
DW CNEXT-7
CNEXT1 DW DOCON
DW NEXT1
;
DB 83H ; NFA
DB 'NF'
DB 'A'+80H
DW CNEXT1-8
NFA DW DOCOL
DW LIT
DW 5
DW SUBB
DW LIT
DW 0FFFFH
DW TRAV
DW EXIT
;
DB 83H ; NOT
DB 'NO'
DB 'T'+80H
DW NFA-6
NOTT DW $+2
POP AX
OR AX,AX
MOV AX,1H
JZ NOT1
DEC AX
NOT1: JMP APUSH
;
DB 86H ; NUMBER
DB 'NUMBE'
DB 'R'+80H
DW NOTT-6
NUM DW DOCOL
DW TNUM
DW ATT
DW EXEC
DW EXIT
;
DB 86H ; OFFSET
DB 'OFFSE'
DB 'T'+80H
DW NUM-9
OFSET DW DOUSE
DW 48H
;
DB 82H ; OR
DB 'O'
DB 'R'+80H
DW OFSET-9
ORR DW $+2
POP AX
POP BX
OR AX,BX
JMP APUSH
;
DB 83H ; OUT
DB 'OU'
DB 'T'+80H
DW ORR-5
OUTT DW DOUSE
DW 4AH
;
DB 84H ; OVER
DB 'OVE'
DB 'R'+80H
DW OUTT-6
OVER DW $+2
POP DX
POP AX
PUSH AX
JMP DPUSH
;
DB 82H ; PSTORE
DB 'P'
DB '!'+80H
DW OVER-7
PTSTOR DW $+2
POP DX
POP AX
OUT DX,AL
JMP NEXT
;
DB 82H ; P@
DB 'P'
DB '@'+80H
DW PTSTOR-5
PTAT DW $+2
POP DX
IN AL,DX
SUB AH,AH
JMP APUSH
;
DB 83H ; PAD
DB 'PA'
DB 'D'+80H
DW PTAT-5
PAD DW DOCOL
DW HERE
DW LIT
DW 44H
DW PLUS
DW EXIT
;
DB 84H ; PAGE
DB 'PAG'
DB 'E'+80H
DW PAD-6
PAGEE DW DOCOL
DW TPAGE
DW ATT
DW EXEC
DW EXIT
;
DB 83H ; PFA
DB 'PF'
DB 'A'+80H
DW PAGEE-7
PFA DW DOCOL
DW ONE
DW TRAV
DW LIT
DW 5
DW PLUS
DW EXIT
;
DB 84H ; PICK
DB 'PIC'
DB 'K'+80H
DW PFA-6
PICK DW DOCOL
DW DUPP
DW ONE
DW LESS
DW AABORTQ
DB 11H
DB 'PICK ARGUMENT < 1'
DW TWOST
DW SPAT
DW PLUS
DW ATT
DW EXIT
;
DB 82H ; PP
DB 'P'
DB 'P'+80H
DW PICK-7
PP DW DOCOL
DW DUPP
DW LIT
DW 0FFF0H
DW ANDD
DW AABORTQ
DB 0AH
DB 'OFF SCREEN'
DW ONE
DW TEXT
DW PAD
DW ONEP
DW SWAP
DW SCR
DW ATT
DW ALINE
DW CMOVE
DW UPDAT
DW EXIT
;
DB 84H ; PREV
DB 'PRE'
DB 'V'+80H
DW PP-5
PREV DW DOVAR
DW BUF1
;
DB 83H ; PWSTORE
DB 'PW'
DB '!'+80H
DW PREV-7
PWSTOR DW $+2
POP DX
POP AX
OUT DX,AX
JMP NEXT
;
DB 83H ; PW@
DB 'PW'
DB '@'+80H
DW PWSTOR-6
PWAT DW $+2
POP DX
IN AX,DX
JMP APUSH
;
DB 85H ; QUERY
DB 'QUER'
DB 'Y'+80H
DW PWAT-6
QUERY DW DOCOL
DW TIB
DW ATT
DW LIT
DW 50H
DW EXPEC
DW ZERO
DW TOIN
DW STORE
DW EXIT
;
DB 84H ; QUIT
DB 'QUI'
DB 'T'+80H
DW QUERY-8
QUIT DW DOCOL
DW ZERO
DW BLK
DW STORE
DW LBRAC
QUIT1 DW CR
DW RPSTO
DW QUERY
DW INTER
DW STATE
DW ATT
DW NOTT
DW ZBRAN
DW OFFSET QUIT2-$
DW ADOTQ
DB 2
DB 'OK'
QUIT2 DW BRAN
DW QUIT1-$
DW EXIT
;
DB 82H ; R#
DB 'R'
DB '#'+80H
DW QUIT-7
RSHARP DW DOUSE
DW 4CH
;
DB 83H ; R/W
DB 'R/'
DB 'W'+80H
DW RSHARP-5
RSLW DW DOCOL
DW TRSLW
DW ATT
DW EXEC
DW EXIT
;
DB 82H ; R0
DB 'R'
DB '0'+80H
DW RSLW-6
RZERO DW DOUSE
DW 08
;
DB 82H ; R>
DB 'R'
DB '>'+80H
DW RZERO-5
FROMR DW $+2
MOV AX,[BP]
INC BP
INC BP
JMP APUSH
;
DB 82H ; R@
DB 'R'
DB '@'+80H
DW FROMR-5
RAT DW $+2
MOV AX,[BP]
JMP APUSH
;
DB 0C6H ; REPEAT
DB 'REPEA'
DB 'T'+80H
DW RAT-5
REPEA DW DOCOL
DW TOR
DW TOR
DW AGAIN
DW FROMR
DW FROMR
DW TWOM
DW THENN
DW EXIT
;
DB 84H ; ROLL
DB 'ROL'
DB 'L'+80H
DW REPEA-9
ROLL DW DOCOL
DW DUPP
DW ONE
DW LESS
DW AABORTQ
DB 11H
DB 'ROLL ARGUMENT < 1'
DW ONEP
DW DUPP
DW PICK
DW SWAP
DW TWOST
DW SPAT
DW PLUS
ROLL1 DW DUPP
DW TWOM
DW ATT
DW OVER
DW STORE
DW TWOM
DW SPAT
DW OVER
DW ULESS
DW NOTT
DW ZBRAN
DW ROLL1-$
DW DDROP
DW EXIT
;
DB 83H ; ROT
DB 'RO'
DB 'T'+80H
DW ROLL-7
ROT DW $+2
POP DX
POP BX
POP AX
PUSH BX
JMP DPUSH
;
DB 83H ; RPSTORE
DB 'RP'
DB '!'+80H
DW ROT-6
RPSTO DW $+2
MOV BX,UP
MOV BP,8[BX]
JMP NEXT
;
DB 83H ; RP@
DB 'RP'
DB '@'+80H
DW RPSTO-6
RPAT DW $+2
MOV AX,BP
JMP APUSH
;
DB 83H ; RPP
DB 'RP'
DB 'P'+80H
DW RPAT-6
RPPP DW DOCON
DW RPP
;
DB 84H ; S->D
DB 'S->'
DB 'D'+80H
DW RPPP-6
STOD DW $+2
POP DX
SUB AX,AX
OR DX,DX
JNS STOD1
DEC AX
STOD1: JMP DPUSH
;
DB 82H ; S0
DB 'S'
DB '0'+80H
DW STOD-7
SZERO DW DOCOL
DW SPZERO
DW ATT
DW EXIT
;
DB 8CH ; SAVE-BUFFERS
DB 'SAVE-BUFFER'
DB 'S'+80H
DW SZERO-5
SAVBUF DW DOCOL
DW NOBUF
DW ONEP
DW ZERO
DW ADO
SAVBUF1 DW LIT
DW 7FFFH
DW BUFFE
DW DROP
DW ALOOP
DW OFFSET SAVBUF1-$
DW EXIT
;
DB 83H ; SCR
DB 'SC'
DB 'R'+80H
DW SAVBUF-0FH
SCR DW DOUSE
DW 4EH
;
DB 83H ; SEC
DB 'SE'
DB 'C'+80H
DW SCR-6
SEC DW DOVAR
DW 0
;
DB 88H ; SEC-READ
DB 'SEC-REA'
DB 'D'+80H
DW SEC-6
SECRD DW DOCOL
DW LIT
DW 201H
DW LIT
DW SECRW
DW EXEC
DW EXIT
;
SECRW DW DOCOL
DW LIT
DW 3
DW ZERO
DW ADO
SECRW1 DW DUPP
DW USEE
DW ATT
DW TRACK
DW ATT
DW LIT
DW 100H
DW STAR
DW SEC
DW ATT
DW PLUS
DW DRIVE
DW ATT
DW LIT
DW 13H
DW INTCAL
DW DUPP
DW DSKERR
DW STORE
DW ZEQU
DW ZBRAN
DW OFFSET SECRW2-$
DW LEAVE
DW BRAN
DW OFFSET SECRW3-$
SECRW2 DW ZERO
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 13H
DW INTCAL
DW DROP
SECRW3 DW ALOOP
DW OFFSET SECRW1-$
DW DROP
DW EXIT
;
DB 89H ; SEC-WRITE
DB 'SEC-WRIT'
DB 'E'+80H
DW SECRD-0BH
SECWT DW DOCOL
DW LIT
DW 301H
DW LIT
DW SECRW
DW EXEC
DW EXIT
;
DB 87H ; SEC/BLK
DB 'SEC/BL'
DB 'K'+80H
DW SECWT-0CH
SPBL DW DOVAR
DW 2
DW 8
DW 8
DW 8
DW 8
DW 8
DW 8
;
DB 86H ; SEC/TR
DB 'SEC/T'
DB 'R'+80H
DW SPBL-0AH
SPTR DW DOVAR
DW 8H
DW 1AH
DW 1AH
DW 34H
DW 34H
DW 40H
DW 40H
;
DB 87H ; SET-DRX
DB 'SET-DR'
DB 'X'+80H
DW SPTR-9H
SETDRX DW DOCOL
DW DRDEN
DW DENSTY
DW STORE
DW BPDRV
DW OFSET
DW PSTOR
DW EXIT
;
DB 84H ; SIGN
DB 'SIG'
DB 'N'+80H
DW SETDRX-0AH
SIGN DW DOCOL
DW ZLESS
DW ZBRAN
DW OFFSET SIGN1-$
DW LIT
DW 2DH
DW HOLD
SIGN1 DW EXIT
;
DB 86H ; SMUDGE
DB 'SMUDG'
DB 'E'+80H
DW SIGN-7
SMUDG DW DOCOL
DW LATES
DW LIT
DW 20H
DW TOGGL
DW EXIT
;
DB 83H ; SPSTORE
DB 'SP'
DB '!'+80H
DW SMUDG-9
SPSTO DW $+2
MOV BX,UP
MOV SP,6[BX]
JMP NEXT
;
DB 83H ; SP0
DB 'SP'
DB '0'+80H
DW SPSTO-6
SPZERO DW DOUSE
DW 06
;
DB 83H ; SP@
DB 'SP'
DB '@'+80H
DW SPZERO-6
SPAT DW $+2
MOV AX,SP
JMP APUSH
;
DB 85H ; SPACE
DB 'SPAC'
DB 'E'+80H
DW SPAT-6
SPACE DW DOCOL
DW BLL
DW EMIT
DW EXIT
;
DB 86H ; SPACES
DB 'SPACE'
DB 'S'+80H
DW SPACE-8
SPACS DW DOCOL
DW ZERO
DW MAX
DW QDUP
DW ZBRAN
DW OFFSET SPACS2-$
DW ZERO
DW ADO
SPACS1 DW SPACE
DW ALOOP
DW OFFSET SPACS1-$
SPACS2 DW EXIT
;
DB 85H ; SPBLK
DB 'SPBL'
DB 'K'+80H
DW SPACS-9
SPBLK DW DOCOL
DW DENSTY
DW ATT
DW LIT
DW 6
DW MIN
DW TWOST
DW SPBL
DW PLUS
DW ATT
DW EXIT
;
DB 85H ; SPDRV
DB 'SPDR'
DB 'V'+80H
DW SPBLK-8
SPDRV DW DOCOL
DW BPDRV
DW SPBLK
DW STAR
DW EXIT
;
DB 83H ; SPT
DB 'SP'
DB 'T'+80H
DW SPDRV-8
SPT DW DOCOL
DW DENSTY
DW ATT
DW LIT
DW 6
DW MIN
DW TWOST
DW SPTR
DW PLUS
DW ATT
DW EXIT
;
DB 85H ; STATE
DB 'STAT'
DB 'E'+80H
DW SPT-6
STATE DW DOUSE
DW 50H
;
DB 84H ; SWAP
DB 'SWA'
DB 'P'+80H
DW STATE-8
SWAP DW $+2
POP DX
POP AX
JMP DPUSH
;
DB 87H ; SYSCALL
DB 'SYSCAL'
DB 'L'+80H
DW SWAP-7
SYSCALL DW DOCOL
DW SWAP
DW LIT
DW 100H
DW STAR
DW SWAP
DW ZERO
DW ZERO
DW ROT
DW LIT
DW 21H
DW INTCAL
DW EXIT
;
DB 87H ; T&SCALC
DB 'T&SCAL'
DB 'C'+80H
DW SYSCALL-0AH
TSCALC DW DOCOL
DW TTSCALC
DW ATT
DW EXEC
DW EXIT
;
DB 84H ; TEXT
DB 'TEX'
DB 'T'+80H
DW TSCALC-0AH
TEXT DW DOCOL
DW HERE
DW CSLL
DW ONEP
DW BLANK
DW WORDD
DW BLL
DW OVER
DW DUPP
DW CAT
DW PLUS
DW ONEP
DW CSTOR
DW PAD
DW CSLL
DW ONEP
DW CMOVE
DW EXIT
;
DB 0C4H ; THEN
DB 'THE'
DB 'N'+80H
DW TEXT-7
THENN DW DOCOL
DW QCOMP
DW TWO
DW QPAIR
DW HERE
DW OVER
DW SUBB
DW SWAP
DW STORE
DW EXIT
;
DB 83H ; TIB
DB 'TI'
DB 'B'+80H
DW THENN-7
TIB DW DOUSE
DW 0AH
;
DB 86H ; TOGGLE
DB 'TOGGL'
DB 'E'+80H
DW TIB-6
TOGGL DW $+2
POP AX
POP BX
XOR [BX],AL
JMP NEXT
;
DB 85H ; TRACK
DB 'TRAC'
DB 'K'+80H
DW TOGGL-9
TRACK DW DOVAR
DW 0
;
DB 88H ; TRAVERSE
DB 'TRAVERS'
DB 'E'+80H
DW TRACK-8
TRAV DW DOCOL
DW SWAP
TRAV1 DW OVER
DW PLUS
DW LIT
DW 07FH
DW OVER
DW CAT
DW LESS
DW ZBRAN
DW OFFSET TRAV1-$
DW SWAP
DW DROP
DW EXIT
;
DB 84H ; TYPE
DB 'TYP'
DB 'E'+80H
DW TRAV-0BH
TYPEE DW DOCOL
DW DUPP
DW ZGREAT
DW ZBRAN
DW OFFSET TYPE2-$
DW OVER
DW PLUS
DW SWAP
DW ADO
TYPE1 DW IDO
DW CAT
DW EMIT
DW ONE
DW AUPLOOP
DW OFFSET TYPE1-$
DW BRAN
DW OFFSET TYPE3-$
TYPE2 DW DDROP
TYPE3 DW EXIT
;
DB 82H ; U*
DB 'U'
DB '*'+80H
DW TYPEE-7
USTAR DW $+2
POP AX
POP BX
MUL BX
XCHG AX,DX
JMP DPUSH
;
DB 82H ; U.
DB 'U'
DB '.'+80H
DW USTAR-5
UDOT DW DOCOL
DW ZERO
DW DDOT
DW EXIT
;
DB 85H ; U/MOD
DB 'U/MO'
DB 'D'+80H
DW UDOT-5
USLM DW $+2
POP BX
POP DX
POP AX
DIV BX
JMP DPUSH
;
DB 82H ; U<
DB 'U'
DB '<'+80H
DW USLM-8
ULESS DW DOCOL
DW ZERO
DW SWAP
DW ZERO
DW DLESS
DW EXIT
;
DB 0C5H ; UNTIL
DB 'UNTI'
DB 'L'+80H
DW ULESS-5
UNTIL DW DOCOL
DW ONE
DW QPAIR
DW COMP
DW ZBRAN
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 82H ; UP
DB 'U'
DB 'P'+80H
DW UNTIL-8
UPP DW DOCON
DW UP
;
DB 86H ; UPDATE
DB 'UPDAT'
DB 'E'+80H
DW UPP-5
UPDAT DW DOCOL
DW PREV
DW ATT
DW ATT
DW LIT
DW 8000H
DW ORR
DW PREV
DW ATT
DW STORE
DW EXIT
;
DB 83H ; USE
DB 'US'
DB 'E'+80H
DW UPDAT-9
USEE DW DOVAR
DW BUF1
;
DB 84H ; USER
DB 'USE'
DB 'R'+80H
DW USEE-6
USER DW DOCOL
DW CON
DW ASCODE
DOUSE: INC DX
MOV BX,DX
MOV BL,[BX]
SUB BH,BH
MOV DI,UP
LEA AX,[BX+DI]
JMP APUSH
;
DB 88H ; VARIABLE
DB 'VARIABL'
DB 'E'+80H
DW USER-7
VAR DW DOCOL
DW CREATE
DW TWO
DW ALLOT
DW EXIT
;
DB 88H ; VOC-LINK
DB 'VOC-LIN'
DB 'K'+80H
DW VAR-0BH
VOCL DW DOUSE
DW 14H
;
DB 8AH ; VOCABULARY
DB 'VOCABULAR'
DB 'Y'+80H
DW VOCL-0BH
VOC DW DOCOL
DW TVOCAB
DW ATT
DW EXEC
DW EXIT
;
DB 87H ; WARNING
DB 'WARNIN'
DB 'G'+80H
DW VOC-0DH
WARN DW DOUSE
DW 0EH
;
DB 85H ; WHERE
DB 'WHER'
DB 'E'+80H
DW WARN-0AH
WHERE DW DOCOL
DW BLK
DW ATT
DW ZBRAN
DW WHERE1-$
DW BLK
DW ATT
DW DUPP
DW SCR
DW STORE
DW CR
DW CR
DW ADOTQ
DB 5
DB 'SCR# '
DW DUPP
DW DOT
DW TOIN
DW ATT
DW LIT
DW 3FFH
DW MIN
DW CSLL
DW SLMOD
DW DUPP
DW ADOTQ
DB 6
DB 'LINE# '
DW DOT
DW CSLL
DW STAR
DW ROT
DW BLOCK
DW PLUS
DW CR
DW CR
DW CSLL
DW DTRAI
DW TYPEE
DW TOIN
DW ATT
DW LIT
DW 3FFH
DW GREAT
DW PLUS
DW BRAN
DW WHERE2-$
WHERE1 DW TOIN
DW ATT
WHERE2 DW CR
DW HERE
DW CAT
DW DUPP
DW TOR
DW SUBB
DW HERE
DW RAT
DW PLUS
DW ONEP
DW CAT
DW LIT
DW 20H
DW EQUAL
DW ZBRAN
DW WHERE3-$
DW ONEM
WHERE3 DW SPACS
DW FROMR
DW ZERO
DW ADO
WHERE4 DW LIT
DW 5EH
DW EMIT
DW ALOOP
DW WHERE4-$
DW EXIT
;
DB 0C5H ; WHILE
DB 'WHIL'
DB 'E'+80H
DW WHERE-8
WHILE DW DOCOL
DW IFF
DW TWOP
DW EXIT
;
DB 85H ; WIDTH
DB 'WIDT'
DB 'H'+80H
DW WHILE-8
WIDTHH DW DOUSE
DW 0CH
;
DB 84H ; WORD
DB 'WOR'
DB 'D'+80H
DW WIDTHH-8
WORDD DW DOCOL
DW TWORD
DW ATT
DW EXEC
DW EXIT
;
DB 0C0H ; X (NULL)
DB 80H
DW WORDD-7
NULL DW DOCOL
DW BLK
DW ATT
DW ZBRAN
DW OFFSET NULL1-$
DW STATE
DW ATT
DW QSTREAM
NULL1 DW FROMR
DW DROP
DW EXIT
;
DB 83H ; XOR
DB 'XO'
DB 'R'+80H
DW NULL-4
XORR DW $+2
POP AX
POP BX
XOR AX,BX
JMP APUSH
;
DB 0C1H ; [
DB '['+80H
DW XORR-6
LBRAC DW DOCOL
DW ZERO
DW STATE
DW STORE
DW EXIT
;
DB 0C9H ; [COMPILE]
DB '[COMPILE'
DB ']'+80H
DW LBRAC-4
BCOMP DW DOCOL
DW QCOMP
DW DFIND
DW NOTT
DW AABORTQ
DB 9
DB 'NOT FOUND'
DW DROP
DW CFA
DW COMMA
DW EXIT
;
DB 81H ; ]
DB ']'+80H
DW BCOMP-0CH
RBRAC DW DOCOL
DW LIT
DW 0C0H
DW STATE
DW STORE
DW EXIT
;
FSEG ENDS
;
END ORIG
;
FORTH-H.DOC
**********************************************************************
THANKS TO GLEN HAYDON FOR CONTRIBUTING THIS VERSION OF FORTH
TO THE PUBLIC DOMAIN.
**********************************************************************
THE FILE ' FORTH ASM ' IS A VERSION OF
FORTH THAT SHOULD ASSEMBLE USING THE IBM MACRO ASSEMBLER.
THIS FILE HAS BEEN PLACED ON THE IBMPC DISK IN RESPONSE
TO A NUMBER OF QUERYS, BOTH FOR AND AGAINST, DIRECTED AT FORTH.
THE FOLLOWING FORTH FILES ARE NOW AVAILABLE ON THE IBMPC DISK
THIS FILE IS PROVIDED SO THAT ALL INTERESTED PARTIES MAY FORM THEIR OWN
OPINIONS CONCERNING FORTH.
******************* INSTALLATION NOTES ********************************
AFTER ASSEMBLING FORTH.ASM, THE FILE SHOULD BE LINKED AS FORTH.EXE
( OPTIONALLY THE FILE MAY BE CONVERTED TO A .COM FILE USING EXE2BIN.COM
AND THEN RENAMED COMMAND.COM. THEN USE THIS FORTH'COMMAND.COM' INSTEAD
OF THE IBM SUPPLIED 'COMMAND.COM'. YOU WILL THEN HAVE A BOOTABLE FORTH
SYSTEM DISK. YOU WILL STILL NEED TO HAVE THE TWO HIDDEN DOS FILES IN T
THERE PROPER PLACES ON THE DISK. THE DISK SHOULD BE SINGLE SIDED. )
THERE ARE SOME PROBLEMS WITH USING A DOUBLED SIDED DISKETTE--
A FIX IS IN THE WORKS,-- IN MY SPARE TIME
THE SINGLE SIDED DISKETTS ARE ACCESSED IN FORTH SCREENS.
A SCREEN IS 1024 BYTES, OR TWO DISK SECTORS
SCREEN 0 IS SECTORS 1 & 2, SCREEN 1 IS SECTORS 3 & 4, AND SO ON.
FORTH WILL LET YOU READ,OR WRITE, ANY WHERE ON THE DISK.
FORTH DOES NOT RECOGNIZE ANY DOS FILES--THIS MEANS THAT THE WHOLE DISK
IS FAIR GAME--
IT ALSO MEANS A FULL DISK STILL ONLY SHOWS COMMAND.COM IN THE DIRECTORY
IF YOUTELL FORTH TO WRITE ON SECTOR 0, THE BOOT RECORD, THEN SECTOR 0
WILL BE DISTROYED!!!!!!!
THIS MEANS KEEP A BACKUP---
I STRONGLY SUGGEST THE BOOK, STARTING FORTH, AS AN EXCELENT
INTRODUCTION TO FORTH.
THE BOOK "ALL ABOUT FORTH" FULLY DOCUMENTS THIS IMPLEMENTATION OF FORTH
***********************************************************************
THE FILES THAT ARE AVAILABLE ON THE IBMPC DISK ARE;
FORTH INFO ---- THIS FILE
FORTH ASM ----- AN ASSEMBLY LISTING OF MVP-FORTH
FORTH ASMEX3 -- AN ASSEMBLY LISTING IN EXPORT FORMAT
FORTH COMTBH -- A COMPILED VERSION,(WITH EDITOR) FOR B3101
FORTH COMEX3 -- A COMPILED VERSION,(WITH EDITOR) IN EXPORT3
***********************************************************************
MAY THE FORTH BE WITH YOU...
************ MARK SEHORNE DLSVMFE2(SEHORNEM) 8-641-5337 **************
This disk copy was originally provided by "The Public Library",
the software library of the Houston Area League of PC Users.
Programs are available from the Public Library at $2 per disk
on user-provided disks. To get a listing of the disks in the
Public Library, send a self-addressed, stamped envelope to
Nelson Ford, P.O.Box 61565, Houston, TX 77208.
MVPFORTH.ASM
PAGE 60,96
TITLE 'MVPFORTH VERSION 1.0305.02 -10 AUG 82'
;
; MVPFORTH KERNEL VERSION 1.0305.02
;
; A FORTH OPERATING SYSSTEM
;
; FORTH THE IBM PERSONAL COMPUTER
;
;
; PREPARED FOR
;
; MOUNTAIN VIEW PRESS, INC.
; PO BOX 4656
; MOUNTAIN VIEW, CA 94040
;
; IMPLEMENTATION BY
;
; HAYDON ENTERPRISES
; BOX 429 ROUTE 2
; LA HONDA, CA 94020
;
;
;THIS PUBLICATION IS PLACED IN THE PUBLIC
;DOMAIN. PERMISSION TO DISTRIBUTE IS GRANTED
;BY THE INCLUSION OF CREDIT TO MOUNTAIN VIEW
;PRESS, INC., AND HAYDON ENTERPRISES.
;
;
;THIS IMPLEMENTATION INCLUDES THE ENTIRE
;FORTH-79 REQUIRED WORD SET. THE BOOK
;"ALL ABOUT FORTH" BY GLEN B. HAYDON FULLY
;DOCUMENTS MVPFORTH. IT IS AVAILABLE FROM
;MOUNTAIN VIEW PRESS, INC.
;
;THE IMPLEMENTATION HAS BEEN TRANSCRIBED FROM
;THE ORIGINAL CROSS COMPILER VER. 1.0000.02 .
;IT WILL ASSEMBLE WITH "MASM.COM" UNDER MDOS
;VER. 1.0 OR 1.1 .
;
;BECAUSE OF THE TYPE-AHEAD BUFFER OF THE IBM,
;?TERMINAL HAS A SLIGHTLY DIFFERENT FUNCTION
;FROM STANDARD MVPFORTH. THE TRUE FLAG IS
;THE ASCII VALUE OF THE KEY STRUCK (THE FALSE
;FLAG REMAINS 0). BY USING ?DUP BEFORE
;TESTING, THE VALUE OF THE STRUCK KEY WILL BE
;LEFT ON THE STACK. THUS IT IS NOT NECESSARY
;TO CLEAR THE STATUS FLAG WITH THE SEQUENCE
; - KEY DROP .
PAGE
;
;THE FORTH REGISTERS ARE ASSIGNED ACCORDING
;TO FIG-FORTH FOR THE 8086/88, VERSION 1.0,
;AS IMPLEMENTED BY THOMAS NEWMAN, 27444
;BERENDA WAY, HAYWARD, CA 94544, AND MADE
;AVAILABLE BY THE FORTH INTEREST GROUP,
;BOX 1105, SAN CARLOS, CA 94070.
;
;FORTH REGISTERS
;
;FORTH 8088 FORTH PRESERVATION RULES
;
; IP SI INTERPRETER POINTER.
; MUST BE PRESERVED
; ACROSS FORTH WORDS.
;
; W DX WORKING REGISTER.
; JUMP TO 'DPUSH' WILL
; PUSH CONTENTS ONTO THE
; PARAMETER STACK BEFORE
; EXECUTING 'APUSH'.
;
; SP SP PARAMETER STACK POINTER.
; MUST BE PRESERVED ACROSS
; FORTH WORDS. THIS IS ALSO
; THE SYSTEM STACK, WHICH
; IS SOMETIMES CALLED THE
; HARDWARE STACK -HS .
;
; RP BP RETURN STACK POINTER.
; MUST BE PRESERVED ACROSS
; FORTH WORDS.
;
;
;IN ADDITION, THE 8088 CODE SEGMENT, DATA
;SEGMENT AND STACK SEGMENT REGISTERS ( CS,
;DS, AND SS, MUST BE PRESERVED ACROSS
;FORTH WORDS.
;
;THE OTHER REGISTERS OF THE 8088 CPU MAY
;BE USED FREELY.
;
;10 AUGUST 1982
PAGE
;
; EQUATES:
;
ABL EQU 20H
ACR EQU 0DH
AMINUS EQU 2DH
ADOT EQU 2EH
BELL EQU 07H
ALF EQU 0AH
FFEED EQU 0CH
ADEL EQU 7FH
ADLE EQU 10H
BSOUT EQU 08H
BSIN EQU 08H
;
;
;
BPS EQU 80H
EM EQU 6000H
HDBT EQU 404H
NBUF EQU 02H
BUF1 EQU EM-HDBT*NBUF
US EQU 52H
INITR0 EQU BUF1-US
RTS EQU 0A0H
INITSP0 EQU INITR0-RTS
;
STACK SEGMENT PARA STACK
DB 200H DUP( 0 )
STACK ENDS
;
FSEG SEGMENT COMMON
ASSUME CS:FSEG,SS:STACK,DS:FSEG,ES:FSEG
PAGE
;
ORG 100H
;
ORIG: MOV AX,CS
MOV DS,AX
MOV SS,AX
MOV ES,AX
MOV SI,TCOLD
MOV SP,INITUSER
MOV BP,RPP
JMP NEXT
TCOLD DW TCOLD1
TCOLD1 DW COLD
;
;
INITFORTH DW RBRAC-4
INITUSER DW INITSP0
;
DW INITR0
DW INITSP0
DW 01FH
DW 01H
;
;
INITFENCE DW RBRAC-4
INITDP DW RBRAC+0CH
INITVOCLINK DW FORTH+6
;
;
DW ADFIND
DW AQTERM
DW AABORT
DW ABLOCK
DW ACRA
DW AEMIT
DW AEXPECT
DW AINTER
DW AKEY
DW ALOAD
DW ANUM
DW APAGE
DW ARSLW
DW ATSCALC
DW AV79
DW AWORD
UP DW INITR0
RPP DW INITR0
;
;
;
PAGE
;
;
;
DPUSH: PUSH DX
APUSH: PUSH AX
NEXT: MOV AX,[SI]
INC SI
INC SI
MOV BX,AX
NEXT1: MOV DX,BX
INC DX
JMP WORD PTR [BX]
;
;
;
DP0 DB 81H ; STORE
DB '!'+80H
DW 0
STORE DW $+2
POP BX
POP AX
MOV [BX],AX
JMP NEXT
;
DB 82H ; STOREL
DB '!'
DB 'L'+80H
DW STORE-4
STOREL DW $+2
POP BX
POP DS
POP AX
MOV [BX],AX
MOV BX,CS
MOV DS,BX
JMP NEXT
;
DB 81H ; #
DB '#'+80H
DW STOREL-5
DIG DW DOCOL
DW BASE
DW ATT
DW MSMOD
DW ROT
DW LIT
DW 9
DW OVER
DW LESS
DW ZBRAN
DW OFFSET DIG1-$
DW LIT
DW 7
DW PLUS
DIG1 DW LIT
DW 30H
DW PLUS
DW HOLD
DW EXIT
;
DB 82H ; #>
DB '#'
DB '>'+80H
DW DIG-4
EDIGS DW DOCOL
DW DDROP
DW HLD
DW ATT
DW PAD
DW OVER
DW SUBB
DW EXIT
;
DB 85H ; #BUFF
DB '#BUF'
DB 'F'+80H
DW EDIGS-5
NOBUF DW DOCON
DW NBUF
;
DB 82H ; #S
DB '#'
DB 'S'+80H
DW NOBUF-8
DIGS DW DOCOL
DIGS1 DW DIG
DW DDUP
DW ORR
DW NOTT
DW ZBRAN
DW OFFSET DIGS1-$
DW EXIT
;
DB 0C1H ; '
DB 0A7H
DW DIGS-5
TICK DW DOCOL
DW DFIND
DW NOTT
DW AABORTQ
DB 09H
DB 'NOT FOUND'
DW DROP
DW LITER
DW EXIT
;
DB 86H ; '-FIND
DB 27H,'-FIN'
DB 'D'+80H
DW TICK-4
TDFIND DW DOUSE
DW 16H
;
DB 8AH ; '?TERMINAL
DB 27H,'?TERMINA'
DB 'L'+80H
DW TDFIND-9
TQTERM DW DOUSE
DW 18H
;
DB 86H ; 'ABORT
DB 27H,'ABOR'
DB 'T'+80H
DW TQTERM-0DH
TABORT DW DOUSE
DW 1AH
;
DB 86H ; 'BLOCK
DB 27H,'BLOC'
DB 'K'+80H
DW TABORT-9
TBLOCK DW DOUSE
DW 1CH
;
DB 83H ; 'CR
DB 27H,'C'
DB 'R'+80H
DW TBLOCK-9
TCR DW DOUSE
DW 1EH
;
DB 85H ; 'EMIT
DB 27H,'EMI'
DB 'T'+80H
DW TCR-6
TEMIT DW DOUSE
DW 20H
;
DB 87H ; 'EXPECT
DB 27H,'EXPEC'
DB 'T'+80H
DW TEMIT-8
TEXPECT DW DOUSE
DW 22H
;
DB 8AH ; 'INTERPRET
DB 27H,'INTERPRE'
DB 'T'+80H
DW TEXPECT-0AH
TINTER DW DOUSE
DW 24H
;
DB 84H ; 'KEY
DB 27H,'KE'
DB 'Y'+80H
DW TINTER-0DH
TKEY DW DOUSE
DW 26H
;
DB 85H ; 'LOAD
DB 27H,'LOA'
DB 'D'+80H
DW TKEY-7
TLOAD DW DOUSE
DW 28H
;
DB 87H ; 'NUMBER
DB 27H,'NUMBE'
DB 'R'+80H
DW TLOAD-8
TNUM DW DOUSE
DW 2AH
;
DB 85H ; 'PAGE
DB 27H,'PAG'
DB 'E'+80H
DW TNUM-0AH
TPAGE DW DOUSE
DW 2CH
;
DB 84H ; 'R/W
DB 27H,'R/'
DB 'W'+80H
DW TPAGE-8
TRSLW DW DOUSE
DW 2EH
;
DB 87H ; 'STREAM
DB 27H,'STREA'
DB 'M'+80H
DW TRSLW-7
TSTREAM DW DOCOL
DW BLK
DW ATT
DW QDUP
DW ZBRAN
DW TSTRM1-$
DW BLOCK
DW BRAN
DW TSTRM2-$
TSTRM1 DW TIB
DW ATT
TSTRM2 DW TOIN
DW ATT
DW PLUS
DW EXIT
;
DB 88H ; 'T&SCALC
DB 27H,'T&SCAL'
DB 'C'+80H
DW TSTREAM-0AH
TTSCALC DW DOUSE
DW 30H
;
DB 8BH ; 'VOCABULARY
DB 27H,'VOCABULAR'
DB 'Y'+80H
DW TTSCALC-0BH
TVOCAB DW DOUSE
DW 32H
;
DB 85H ; 'WORD
DB 27H,'WOR'
DB 'D'+80H
DW TVOCAB-0EH
TWORD DW DOUSE
DW 34H
;
DB 0C1H ; (
DB '('+80H
DW TWORD-8
PAREN DW DOCOL
DW LIT
DW 0FFFFH
DW TOIN
DW PSTOR
DW LIT
DW 29H
DW WORDD
DW CAT
DW ONEP
DW HERE
DW PLUS
DW CAT
DW LIT
DW 29H
DW EQUAL
DW NOTT
DW QSTREAM
DW EXIT
;
DB 81H ; *
DB '*'+80H
DW PAREN-4
STAR DW DOCOL
DW USTAR
DW DROP
DW EXIT
;
DB 82H ; */
DB '*'
DB '/'+80H
DW STAR-4
SSLA DW DOCOL
DW SSMOD
DW SWAP
DW DROP
DW EXIT
;
DB 85H ; */MOD
DB '*/MO'
DB 'D'+80H
DW SSLA-5
SSMOD DW DOCOL
DW TOR
DW MSTAR
DW FROMR
DW MSLAS
DW EXIT
;
DB 81H ; +
DB '+'+80H
DW SSMOD-8
PLUS DW $+2
POP AX
POP BX
ADD AX,BX
JMP APUSH
;
DB 82H ; +STORE
DB '+'
DB '!'+80H
DW PLUS-4
PSTOR DW $+2
POP BX
POP AX
ADD [BX],AX
JMP NEXT
;
DB 82H ; +-
DB '+'
DB '-'+80H
DW PSTOR-5
PM DW DOCOL
DW ZLESS
DW ZBRAN
DW OFFSET PM1-$
DW NEG
PM1 DW EXIT
;
DB 84H ; +BUF
DB '+BU'
DB 'F'+80H
DW PM-5
PBUF DW DOCOL
DW LIT
DW HDBT
DW PLUS
DW DUPP
DW LIMIT
DW EQUAL
DW ZBRAN
DW OFFSET PBUF1-$
DW DROP
DW FIRST
PBUF1 DW DUPP
DW PREV
DW ATT
DW SUBB
DW EXIT
;
DB 0C5H ; +LOOP
DB '+LOO'
DB 'P'+80H
DW PBUF-7
PLOOP DW DOCOL
DW LIT
DW 3
DW QPAIR
DW COMP
DW APLOOP
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 81H ; ,
DB ','+80H
DW PLOOP-8
COMMA DW DOCOL
DW HERE
DW STORE
DW TWO
DW ALLOT
DW EXIT
;
DB 81H ; -
DB '-'+80H
DW COMMA-4
SUBB DW $+2
POP DX
POP AX
SUB AX,DX
JMP APUSH
;
DB 85H ; -FIND
DB '-FIN'
DB 'D'+80H
DW SUBB-4
DFIND DW DOCOL
DW TDFIND
DW ATT
DW EXEC
DW EXIT
;
DB 89H ; -TRAILING
DB '-TRAILIN'
DB 'G'+80H
DW DFIND-8
DTRAI DW DOCOL
DW DUPP
DW ZERO
DW ADO
DTRAI1 DW DDUP
DW PLUS
DW ONEM
DW CAT
DW BLL
DW SUBB
DW ZBRAN
DW OFFSET DTRAI2-$
DW LEAVE
DW BRAN
DW OFFSET DTRAI3-$
DTRAI2 DW ONEM
DTRAI3 DW ALOOP
DW OFFSET DTRAI1-$
DW EXIT
;
DB 81H ; .
DB '.'+80H
DW DTRAI-0CH
DOT DW DOCOL
DW STOD
DW DDOT
DW EXIT
;
DB 0C2H ; ."
DB '.'
DB '"'+80H
DW DOT-4
DOTQ DW DOCOL
DW TSTREAM
DW CAT
DW LIT
DW 22H
DW EQUAL
DW ZBRAN
DW OFFSET DOTQ1-$
DW ONE
DW TOIN
DW PSTOR
DW BRAN
DW OFFSET DOTQ2-$
DOTQ1 DW LIT
DW 22H
DW STATE
DW ATT
DW ZBRAN
DW OFFSET DOTQ3-$
DW COMP
DW ADOTQ
DOTQ3 DW WORDD
DW DUPP
DW CAT
DW ONEP
DW OVER
DW PLUS
DW CAT
DW LIT
DW 22H
DW EQUAL
DW NOTT
DW QSTREAM
DW STATE
DW ATT
DW ZBRAN
DW OFFSET DOTQ4-$
DW CAT
DW ONEP
DW ALLOT
DW BRAN
DW OFFSET DOTQ2-$
DOTQ4 DW COUNT
DW TYPEE
DOTQ2 DW EXIT
;
DB 85H ; .LINE
DB '.LIN'
DB 'E'+80H
DW DOTQ-5
DLINE DW DOCOL
DW ALINE
DW DTRAI
DW TYPEE
DW EXIT
;
DB 82H ; .R
DB '.'
DB 'R'+80H
DW DLINE-8
DOTR DW DOCOL
DW TOR
DW STOD
DW FROMR
DW DDOTR
DW EXIT
;
DB 81H ; /
DB '/'+80H
DW DOTR-5
SLASH DW DOCOL
DW SLMOD
DW SWAP
DW DROP
DW EXIT
;
DB 0C5H ; /LOOP
DB '/LOO'
DB 'P'+80H
DW SLASH-4
UPLOOP DW DOCOL
DW LIT
DW 3
DW QPAIR
DW COMP
DW AUPLOOP
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 84H ; /MOD
DB '/MO'
DB 'D'+80H
DW UPLOOP-8
SLMOD DW DOCOL
DW TOR
DW STOD
DW FROMR
DW MSLAS
DW EXIT
;
DB 81H ; 0
DB '0'+80H
DW SLMOD-7
ZERO DW DOCON
DW 00
;
DB 82H ; 0<
DB '0'
DB '<'+80H
DW ZERO-4
ZLESS DW $+2
POP AX
OR AX,AX
MOV AX,1
JS ZLES1
DEC AX
ZLES1: JMP APUSH
;
DB 82H ; 0=
DB '0'
DB '='+80H
DW ZLESS-5
ZEQU DW DOCOL
DW NOTT
DW EXIT
;
DB 82H ; 0>
DB '0'
DB '>'+80H
DW ZEQU-5
ZGREAT DW DOCOL
DW ZERO
DW GREAT
DW EXIT
;
DB 87H ; 0BRANCH
DB '0BRANC'
DB 'H'+80H
DW ZGREAT-5
ZBRAN DW $+2
POP AX
OR AX,AX
JZ ZBRAN1
INC SI
INC SI
JMP NEXT
ZBRAN1: JMP BRAN1
;
DB 81H ; 1
DB '1'+80H
DW ZBRAN-0AH
ONE DW DOCON
DW 01
;
DB 82H ; 1+
DB '1'
DB '+'+80H
DW ONE-4
ONEP DW $+2
POP AX
INC AX
JMP APUSH
;
DB 82H ; 1-
DB '1'
DB '-'+80H
DW ONEP-5
ONEM DW $+2
POP AX
DEC AX
JMP APUSH
;
DB 81H ; 2
DB '2'+80H
DW ONEM-5
TWO DW DOCON
DW 02
;
DB 82H ; 2*
DB '2'
DB '*'+80H
DW TWO-4
TWOST DW $+2
POP AX
ADD AX,AX
JMP APUSH
;
DB 82H ; 2+
DB '2'
DB '+'+80H
DW TWOST-5
TWOP DW $+2
POP AX
INC AX
INC AX
JMP APUSH
;
DB 82H ; 2-
DB '2'
DB '-'+80H
DW TWOP-5
TWOM DW $+2
POP AX
DEC AX
DEC AX
JMP APUSH
;
DB 82H ; 2/
DB '2'
DB '/'+80H
DW TWOM-5
TWOSL DW DOCOL
DW TWO
DW SLASH
DW EXIT
;
DB 8BH ; 79-STANDARD
DB '79-STANDAR'
DB 'D'+80H
DW TWOSL-5
STAND DW DOCOL
DW EXIT
;
DB 81H ; :
DB ':'+80H
DW STAND-0EH
COLON DW DOCOL
DW SPAT
DW CSP
DW STORE
DW CURR
DW ATT
DW CONT
DW STORE
DW CREATE
DW SMUDG
DW RBRAC
DW ASCODE
DOCOL: INC DX
DEC BP
DEC BP
MOV [BP],SI
MOV SI,DX
JMP NEXT
;
DB 0C1H ; ;
DB ';'+80H
DW COLON-4
SEMI DW DOCOL
DW QCSP
DW COMP
DW EXIT
DW SMUDG
DW LBRAC
DW EXIT
;
DB 81H ; <
DB '<'+80H
DW SEMI-4
LESS DW $+2
POP DX
POP AX
MOV BX,DX
XOR BX,AX
JS LES1
SUB AX,DX
LES1: OR AX,AX
MOV AX,0
JNS LES2
INC AX
LES2: JMP APUSH
;
DB 82H ; <#
DB '<'
DB '#'+80H
DW LESS-4
BDIGS DW DOCOL
DW PAD
DW HLD
DW STORE
DW EXIT
;
DB 87H ; <+LOOP>
DB '<+LOOP'
DB '>'+80H
DW BDIGS-5
APLOOP DW $+2
POP BX
JMP ALOOP1
;
DB 87H ; <-FIND>
DB '<-FIND'
DB '>'+80H
DW APLOOP-0AH
ADFIND DW DOCOL
DW BLL
DW WORDD
DW CONT
DW ATT
DW ATT
DW AFIND
DW EXIT
;
DB 84H ; <.">
DB '<."'
DB '>'+80H
DW ADFIND-0AH
ADOTQ DW DOCOL
DW RAT
DW COUNT
DW DUPP
DW ONEP
DW FROMR
DW PLUS
DW TOR
DW TYPEE
DW EXIT
;
DB 87H ; </LOOP>
DB '</LOOP'
DB '>'+80H
DW ADOTQ-7
AUPLOOP DW $+2
POP BX
ADD [BP],BX
JB AUPLO1
MOV AX,[BP]
SUB AX,2[BP]
JNB AUPLO1
JMP BRAN1
AUPLO1: ADD BP,4H
INC SI
INC SI
JMP NEXT
;
DB 87H ; <;CODE>
DB '<;CODE'
DB '>'+80H
DW AUPLOOP-0AH
ASCODE DW DOCOL
DW FROMR
DW LATES
DW PFA
DW CFA
DW STORE
DW EXIT
;
DB 88H ; <<CMOVE>
DB '<<CMOVE'
DB '>'+80H
DW ASCODE-0AH
ADCMOVE DW $+2
STD
MOV BX,SI
POP CX
POP DI
ADD DI,CX
POP SI
ADD SI,CX
MOV AX,DS
MOV ES,AX
REP MOVSB
MOV SI,BX
JMP NEXT
;
DB 8BH ; <?TERMINAL> ( --- C , F )
DB '<?TERMINAL'
DB '>'+80H
DW ADCMOVE-0BH
AQTERM DW $+2
PUSH DS
PUSH BX
MOV BX,40H
MOV DS,BX
MOV BX,1AH
MOV CX,[BX]
MOV AX,CX
MOV BX,1CH
SUB AX,[BX]
MOV [BX],CX
JZ AQTER1
MOV AX,[BX]
MOV BX,AX
MOV AX,[BX]
SUB AH,AH
AQTER1: POP BX
POP DS
JMP APUSH
;
DB 88H ; <ABORT">
DB '<ABORT"'
DB '>'+80H
DW AQTERM-0EH
AABORTQ DW DOCOL
DW ZBRAN
DW AABTQ1-$
DW WHERE
DW CR
DW RAT
DW COUNT
DW TYPEE
DW SPSTO
DW QUIT
DW BRAN
DW AABTQ2-$
AABTQ1 DW FROMR
DW DUPP
DW CAT
DW PLUS
DW ONEP
DW TOR
AABTQ2 DW EXIT
;
DB 87H ; <ABORT>
DB '<ABORT'
DB '>'+80H
DW AABORTQ-0BH
AABORT DW DOCOL
DW SPSTO
DW QSTAC
DW FORTH
DW DEFIN
DW QUIT
DW EXIT
;
DB 87H ; <BLOCK>
DB '<BLOCK'
DB '>'+80H
DW AABORT-0AH
ABLOCK DW DOCOL
DW OFSET
DW ATT
DW PLUS
DW TOR
DW PREV
DW ATT
DW DUPP
DW ATT
DW RAT
DW SUBB
DW TWOST
DW ZBRAN
DW OFFSET ABLOCK3-$
ABLOCK1 DW PBUF
DW NOTT
DW ZBRAN
DW OFFSET ABLOCK2-$
DW DROP
DW RAT
DW BUFFE
DW DUPP
DW RAT
DW ONE
DW RSLW
DW TWOM
ABLOCK2 DW DUPP
DW ATT
DW RAT
DW SUBB
DW TWOST
DW NOTT
DW ZBRAN
DW OFFSET ABLOCK1-$
DW DUPP
DW PREV
DW STORE
ABLOCK3 DW FROMR
DW DROP
DW TWOP
DW EXIT
;
DB 86H ; <CMOVE
DB '<CMOV'
DB 'E'+80H
DW ABLOCK-0AH
DCMOVE DW DOCOL
DW DUPP
DW ONE
DW LESS
DW ZBRAN
DW DCMOVE1-$
DW DDROP
DW DROP
DW BRAN
DW DCMOVE2-$
DCMOVE1 DW ADCMOVE
DCMOVE2 DW EXIT
;
DB 87H ; <CMOVE>
DB '<CMOVE'
DB '>'+80H
DW DCMOVE-09
ACMOVE DW $+2
CLD
MOV BX,SI
POP CX
POP DI
POP SI
MOV AX,DS
MOV ES,AX
REP MOVSB
MOV SI,BX
JMP NEXT
;
DB 84H ; <CR>
DB '<CR'
DB '>'+80H
DW ACMOVE-0AH
ACRA DW DOCOL
DW LIT
DW 0DH
DW EMIT
DW LIT
DW 0AH
DW EMIT
DW ZERO
DW OUTT
DW STORE
DW EXIT
;
DB 84H ; <DO>
DB '<DO'
DB '>'+80H
DW ACRA-7
ADO DW $+2
POP DX
POP AX
XCHG BP,SP
PUSH AX
PUSH DX
XCHG BP,SP
JMP NEXT
;
DB 86H ; <EMIT>
DB '<EMIT'
DB '>'+80H
DW ADO-7
AEMIT DW DOCOL
DW EPRINT
DW ATT
DW ZBRAN
DW OFFSET AEMIT1-$
DW DUPP
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 17H
DW INTCAL
DW DROP
AEMIT1 DW LIT
DW 0E00H
DW PLUS
DW LIT
DW 07H
DW ZERO
DW ZERO
DW LIT
DW 10H
DW INTCAL
DW DROP
DW ONE
DW OUTT
DW PSTOR
DW EXIT
;
DB 88H ; <EXPECT>
DB '<EXPECT'
DB '>'+80H
DW AEMIT-9
AEXPECT DW DOCOL
DW OVER
DW PLUS
DW OVER
DW ADO
AEXPEC1 DW KEY
DW DUPP
DW LIT
DW 8
DW EQUAL
DW OVER
DW LIT
DW 7FH
DW EQUAL
DW ORR
DW ZBRAN
DW OFFSET AEXPEC4-$
DW DROP
DW DUPP
DW IDO
DW EQUAL
DW DUPP
DW FROMR
DW TWOM
DW PLUS
DW TOR
DW ZBRAN
DW OFFSET AEXPEC2-$
DW LIT
DW 7
DW BRAN
DW OFFSET AEXPEC3-$
AEXPEC2 DW LIT
DW 8
DW DUPP
DW EMIT
DW LIT
DW 20H
DW EMIT
DW LIT
DW 0FFFDH
DW OUTT
DW PSTOR
AEXPEC3 DW BRAN
DW OFFSET AEXPEC7-$
AEXPEC4 DW DUPP
DW LIT
DW 0DH
DW EQUAL
DW ZBRAN
DW OFFSET AEXPEC5-$
DW LEAVE
DW DROP
DW BLL
DW ZERO
DW BRAN
DW OFFSET AEXPEC6-$
AEXPEC5 DW DUPP
AEXPEC6 DW IDO
DW CSTOR
DW ZERO
DW IDO
DW ONEP
DW STORE
AEXPEC7 DW EMIT
DW ONE
DW AUPLOOP
DW OFFSET AEXPEC1-$
DW DROP
DW EXIT
;
DB 86H ; <FILL>
DB '<FILL'
DB '>'+80H
DW AEXPECT-0BH
AFILL DW $+2
POP AX
POP CX
POP DI
MOV BX,DS
MOV ES,BX
CLD
REP STOSB
JMP NEXT
;
DB 86H ; <FIND>
DB '<FIND'
DB '>'+80H
DW AFILL-9
AFIND DW $+2
MOV AX,DS
MOV ES,AX
POP BX
POP CX
AFIND1: MOV DI,CX
MOV AL,[BX]
MOV DL,AL
XOR AL,[DI]
AND AL,3FH
JNZ AFIND3
AFIND2: INC BX
INC DI
MOV AL,[BX]
XOR AL,[DI]
ADD AL,AL
JNZ AFIND3
JNB AFIND2
ADD BX,5
PUSH BX
MOV AX,1
SUB DH,DH
JMP DPUSH
AFIND3: INC BX
JB AFIND4
MOV AL,[BX]
ADD AL,AL
JMP AFIND3
AFIND4: MOV BX,[BX]
OR BX,BX
JNZ AFIND1
MOV AX,0
JMP APUSH
;
DB 8BH ; <INTERPRET>
DB '<INTERPRET'
DB '>'+80H
DW AFIND-9
AINTER DW DOCOL
AINTER1 DW DFIND
DW ZBRAN
DW OFFSET AINTER4-$
DW STATE
DW ATT
DW LESS
DW ZBRAN
DW OFFSET AINTER2-$
DW CFA
DW COMMA
DW BRAN
DW OFFSET AINTER3-$
AINTER2 DW CFA
DW EXEC
AINTER3 DW BRAN
DW OFFSET AINTER6-$
AINTER4 DW HERE
DW NUM
DW DPL
DW ATT
DW ONEP
DW ZBRAN
DW OFFSET AINTER5-$
DW DLITE
DW BRAN
DW OFFSET AINTER6-$
AINTER5 DW DROP
DW LITER
AINTER6 DW QSTAC
DW BRAN
DW OFFSET AINTER1-$
DW EXIT
;
DB 85H ; <KEY>
DB '<KEY'
DB '>'+80H
DW AINTER-0EH
AKEY DW DOCOL
AKEY1 DW ZERO
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 16H
DW INTCAL
DW LIT
DW 0FFH
DW ANDD
DW DUPP
DW LIT
DW 10H
DW SUBB
DW NOTT
DW ZBRAN
DW OFFSET AKEY2-$
DW DROP
DW ONE
DW EPRINT
DW ATT
DW XORR
DW EPRINT
DW STORE
DW BRAN
DW OFFSET AKEY1-$
AKEY2 DW EXIT
;
DB 86H ; <LINE>
DB '<LINE'
DB '>'+80H
DW AKEY-8
ALINE DW DOCOL
DW BLOCK
DW SWAP
DW CSLL
DW STAR
DW PLUS
DW CSLL
DW EXIT
;
DB 86H ; <LOAD>
DB '<LOAD'
DB '>'+80H
DW ALINE-9
ALOAD DW DOCOL
DW QDUP
DW NOTT
DW AABORTQ
DB 0AH
DB 'UNLOADABLE'
DW BLK
DW ATT
DW TOR
DW TOIN
DW ATT
DW TOR
DW ZERO
DW TOIN
DW STORE
DW BLK
DW STORE
DW INTER
DW FROMR
DW TOIN
DW STORE
DW FROMR
DW BLK
DW STORE
DW EXIT
;
DB 86H ; <LOOP>
DB '<LOOP'
DB '>'+80H
DW ALOAD-9
ALOOP DW $+2
MOV BX,1H
ALOOP1: MOV CX,[BP]
ADD [BP],BX
JS ALOOP2
MOV AX,CX
AND AX,BX
JNS ALOOP3
ALOOP2: MOV AX,CX
OR AX,BX
JNS ALOOP8
ALOOP3: MOV AX,[BP]
SUB AX,2[BP]
JS ALOOP7
MOV AX,[BP]
AND AX,AX
JS ALOOP5
ALOOP4: MOV AX,BX
AND AX,AX
JNS ALOOP8
JMP BRAN1
ALOOP5: MOV AX,2[BP]
AND AX,AX
JS ALOOP4
ALOOP6: MOV AX,BX
AND AX,AX
JS ALOOP8
JMP BRAN1
ALOOP7: MOV AX,[BP]
AND AX,AX
JS ALOOP6
JMP ALOOP5
ALOOP8: ADD BP,4H
INC SI
INC SI
JMP NEXT
;
DB 88H ; <NUMBER>
DB '<NUMBER'
DB '>'+80H
DW ALOOP-9
ANUM DW DOCOL
DW ZERO
DW ZERO
DW ROT
DW DUPP
DW ONEP
DW CAT
DW LIT
DW 2DH
DW EQUAL
DW DUPP
DW TOR
DW PLUS
DW LIT
DW 0FFFFH
DW DPL
DW STORE
DW CONV
DW DUPP
DW CAT
DW BLL
DW GREAT
DW ZBRAN
DW OFFSET ANUM1-$
DW DUPP
DW CAT
DW LIT
DW 2EH
DW EQUAL
DW NOTT
DW AABORTQ
DB 0EH
DB 'NOT RECOGNIZED'
DW ZERO
DW DPL
DW STORE
DW CONV
DW DUPP
DW CAT
DW BLL
DW GREAT
DW AABORTQ
DB 0EH
DB 'NOT RECOGNIZED'
ANUM1 DW DROP
DW FROMR
DW ZBRAN
DW OFFSET ANUM2-$
DW DNEG
ANUM2 DW EXIT
;
DB 86H ; <PAGE>
DB '<PAGE'
DB '>'+80H
DW ANUM-0BH
APAGE DW DOCOL
DW ZERO
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 10H
DW INTCAL
DW DROP
DW EXIT
;
DB 85H ; <R/W>
DB '<R/W'
DB '>'+80H
DW APAGE-9
ARSLW DW DOCOL
DW USEE
DW ATT
DW TOR
DW ROT
DW USEE
DW STORE
DW SWAP
DW MAXDRV
DW ZERO
DW ADO
ARSLW1 DW IDO
DW DRDEN
DW DENSTY
DW STORE
DW DUPP
DW BPDRV
DW SLMOD
DW ZBRAN
DW ARSLW3-$
DW DROP
DW BPDRV
DW SUBB
DW IDO
DW ONEP
DW MAXDRV
DW EQUAL
DW ZBRAN
DW ARSLW2-$
DW FROMR
DW FROMR
DW DDROP
DW FROMR
DW USEE
DW STORE
DW ONE
DW AABORTQ
DB 12H
DB 'BLOCK OUT OF RANGE'
ARSLW2 DW BRAN
DW ARSLW4-$
ARSLW3 DW IDO
DW DRIVE
DW STORE
DW LEAVE
ARSLW4 DW ALOOP
DW ARSLW1-$
DW DROP
DW SPBLK
DW STAR
DW SPBLK
DW ZERO
DW ADO
ARSLW5 DW DDUP
DW TSCALC
DW ZBRAN
DW ARSLW6-$
DW SECRD
DW BRAN
DW ARSLW7-$
ARSLW6 DW SECWT
ARSLW7 DW ONEP
DW LIT
DW 404H
DW LIT
DW 4
DW SUBB
DW SPBLK
DW SLASH
DW USEE
DW PSTOR
DW ALOOP
DW ARSLW5-$
DW DDROP
DW FROMR
DW USEE
DW STORE
DW EXIT
;
DB 89H ; <T&SCALC>
DB '<T&SCALC'
DB '>'+80H
DW ARSLW-8
ATSCALC DW DOCOL
DW SPT
DW SLMOD
DW TRACK
DW STORE
DW ONEP
DW SEC
DW STORE
DW EXIT
;
DB 8EH ; <VOCABULARY79>
DB '<VOCABULARY79'
DB '>'+80H
DW ATSCALC-0CH
AV79 DW DOCOL
DW CREATE
DW LIT
DW 0A081H
DW COMMA
DW LIT
DW FORTH+2
DW COMMA
DW HERE
DW VOCL
DW ATT
DW COMMA
DW VOCL
DW STORE
DW ASCODE
DOVOC DB 0E8H
DW DODOES-$-2
DW TWOP
DW CONT
DW STORE
DW EXIT
;
DB 8FH ; <VOCABULARYFIG>
DB '<VOCABULARYFIG'
DB '>'+80H
DW AV79-11H
AVFIG DW DOCOL
DW CREATE
DW LIT
DW 0A081H
DW COMMA
DW CURR
DW ATT
DW CFA
DW COMMA
DW HERE
DW VOCL
DW ATT
DW COMMA
DW VOCL
DW STORE
DW ASCODE
DB 0E8H
DW DODOES-$-2
DW TWOP
DW CONT
DW STORE
DW EXIT
;
DB 86H ; <WORD>
DB '<WORD'
DB '>'+80H
DW AVFIG-12H
AWORD DW DOCOL
DW TSTREAM
DW SWAP
DW ENCL
DW DDUP
DW GREAT
DW ZBRAN
DW OFFSET AWORD1-$
DW DDROP
DW DDROP
DW ZERO
DW HERE
DW STORE
DW BRAN
DW OFFSET AWORD2-$
AWORD1 DW TOIN
DW PSTOR
DW OVER
DW SUBB
DW DUPP
DW TOR
DW HERE
DW CSTOR
DW PLUS
DW HERE
DW ONEP
DW FROMR
DW DUPP
DW LIT
DW 0FFH
DW GREAT
DW AABORTQ
DB 0BH
DB 'INPUT > 255'
DW ONEP
DW CMOVE
AWORD2 DW HERE
DW EXIT
;
DB 81H ; =
DB '='+80H
DW AWORD-9
EQUAL DW DOCOL
DW SUBB
DW NOTT
DW EXIT
;
DB 81H ; >
DB '>'+80H
DW EQUAL-4
GREAT DW DOCOL
DW SWAP
DW LESS
DW EXIT
;
DB 83H ; >IN
DB '>I'
DB 'N'+80H
DW GREAT-4
TOIN DW DOUSE
DW 36H
;
DB 82H ; >R
DB '>'
DB 'R'+80H
DW TOIN-6
TOR DW $+2
POP BX
DEC BP
DEC BP
MOV [BP],BX
JMP NEXT
;
DB 81H ; ?
DB '?'+80H
DW TOR-5
QUES DW DOCOL
DW ATT
DW DOT
DW EXIT
;
DB 85H ; ?COMP
DB '?COM'
DB 'P'+80H
DW QUES-4
QCOMP DW DOCOL
DW STATE
DW ATT
DW NOTT
DW AABORTQ
DB 0CH
DB 'COMPILE ONLY'
DW EXIT
;
DB 8AH ; ?CONFIGURE
DB '?CONFIGUR'
DB 'E'+80H
DW QCOMP-8
QCONF DW DOCOL
DW CR
DW CR
DW MAXDRV
DW DOT
DW ADOTQ
DB 16H
DB 'DRIVES WITH DENSITIES:'
DW MAXDRV
DW ZERO
DW ADO
QCONF1 DW IDO
DW DRDEN
DW TWO
DW SPACS
DW DOT
DW ALOOP
DW QCONF1-$
DW CR
DW CR
DW ADOTQ
DB 0CH
DB 'DENSITY CODE'
DW CR
DW ADOTQ
DB 0AH
DB '0 - 5-SSSD'
DW CR
DW ADOTQ
DB 0AH
DB '1 - 8-SSSD'
DW CR
DW ADOTQ
DB 0AH
DB '2 - 8-DSSD'
DW CR
DW ADOTQ
DB 0AH
DB '3 - 8-SSDD'
DW CR
DW ADOTQ
DB 0AH
DB '4 - 8-DSDD'
DW CR
DW ADOTQ
DB 0BH
DB '5 - 8-SSEXT'
DW CR
DW ADOTQ
DB 0BH
DB '6 - 8-DSEXT'
DW CR
DW EXIT
;
DB 84H ; ?CSP
DB '?CS'
DB 'P'+80H
DW QCONF-0DH
QCSP DW DOCOL
DW SPAT
DW CSP
DW ATT
DW SUBB
DW AABORTQ
DB 17H
DB 'DEFINITION NOT FINISHED'
DW EXIT
;
DB 84H ; ?DUP
DB '?DU'
DB 'P'+80H
DW QCSP-7
QDUP DW DOCOL
DW DUPP
DW ZBRAN
DW QDUP1-$
DW DUPP
QDUP1 DW EXIT
;
DB 88H ; ?LOADING
DB '?LOADIN'
DB 'G'+80H
DW QDUP-7
QLOAD DW DOCOL
DW BLK
DW ATT
DW NOTT
DW AABORTQ
DB 0CH
DB 'LOADING ONLY'
DW EXIT
;
DB 86H ; ?PAIRS
DB '?PAIR'
DB 'S'+80H
DW QLOAD-0BH
QPAIR DW DOCOL
DW SUBB
DW AABORTQ
DB 17H
DB 'CONDITIONALS NOT PAIRED'
DW EXIT
;
DB 86H ; ?STACK
DB '?STAC'
DB 'K'+80H
DW QPAIR-9
QSTAC DW DOCOL
DW SPAT
DW SZERO
DW SWAP
DW ULESS
DW AABORTQ
DB 0BH
DB 'EMPTY STACK'
DW SPAT
DW HERE
DW LIT
DW 80H
DW PLUS
DW ULESS
DW AABORTQ
DB 0AH
DB 'FULL STACK'
DW EXIT
;
DB 87H ; ?STREAM
DB '?STREA'
DB 'M'+80H
DW QSTAC-9
QSTREAM DW DOCOL
DW AABORTQ
DB 16H
DB 'INPUT STREAM EXHAUSTED'
DW EXIT
;
DB 89H ; ?TERMINAL
DB '?TERMINA'
DB 'L'+80H
DW QSTREAM-0AH
QTERM DW DOCOL
DW TQTERM
DW ATT
DW EXEC
DW EXIT
;
DB 81H ; @
DB '@'+80H
DW QTERM-0CH
ATT DW $+2
POP BX
MOV AX,[BX]
JMP APUSH
;
DB 82H ; @L
DB '@'
DB 'L'+80H
DW ATT-4
ATL DW $+2
POP BX
POP DS
MOV AX,[BX]
MOV BX,CS
MOV DS,BX
JMP APUSH
;
DB 85H ; ABORT
DB 'ABOR'
DB 'T'+80H
DW ATL-5
ABORT DW DOCOL
DW TABORT
DW ATT
DW EXEC
DW EXIT
;
DB 0C6H ; ABORT"
DB 'ABORT'
DB '"'+80H
DW ABORT-8
ABORTQ DW DOCOL
DW QCOMP
DW COMP
DW AABORTQ
DW TSTREAM
DW CAT
DW LIT
DW 22H
DW EQUAL
DW ZBRAN
DW ABORTQ1-$
DW ONE
DW TOIN
DW PSTOR
DW ZERO
DW CCOMM
DW BRAN
DW ABORTQ2-$
ABORTQ1 DW LIT
DW 22H
DW WORDD
DW DUPP
DW CAT
DW ONEP
DW SWAP
DW OVER
DW PLUS
DW CAT
DW LIT
DW 22H
DW EQUAL
DW NOTT
DW QSTREAM
DW ALLOT
ABORTQ2 DW EXIT
;
DB 83H ; ABS
DB 'AB'
DB 'S'+80H
DW ABORTQ-9
ABSS DW DOCOL
DW DUPP
DW PM
DW EXIT
;
DB 0C5H ; AGAIN
DB 'AGAI'
DB 'N'+80H
DW ABSS-6
AGAIN DW DOCOL
DW ONE
DW QPAIR
DW COMP
DW BRAN
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 85H ; ALLOT
DB 'ALLO'
DB 'T'+80H
DW AGAIN-8
ALLOT DW DOCOL
DW DP
DW PSTOR
DW EXIT
;
DB 83H ; AND
DB 'AN'
DB 'D'+80H
DW ALLOT-8
ANDD DW $+2
POP BX
POP AX
AND AX,BX
JMP APUSH
;
DB 85H ; APUSH
DB 'APUS'
DB 'H'+80H
DW ANDD-6
APUSHH DW DOCON
DW APUSH
;
DB 84H ; BASE
DB 'BAS'
DB 'E'+80H
DW APUSHH-8
BASE DW DOUSE
DW 38H
;
DB 0C5H ; BEGIN
DB 'BEGI'
DB 'N'+80H
DW BASE-7
BEGIN DW DOCOL
DW QCOMP
DW HERE
DW ONE
DW EXIT
;
DB 82H ; BL
DB 'B'
DB 'L'+80H
DW BEGIN-8
BLL DW DOCON
DW 20H
;
DB 85H ; BLANK
DB 'BLAN'
DB 'K'+80H
DW BLL-5
BLANK DW DOCOL
DW BLL
DW FILL
DW EXIT
;
DB 83H ; BLK
DB 'BL'
DB 'K'+80H
DW BLANK-8
BLK DW DOUSE
DW 3AH
;
DB 87H ; BLK/DRV
DB 'BLK/DR'
DB 'V'+80H
DW BLK-6
BPDR DW DOVAR
DW 0A0H
DW 0FAH
DW 1F4H
DW 1F4H
DW 3E8H
DW 268H
DW 4D0H
;
DB 85H ; BLOCK
DB 'BLOC'
DB 'K'+80H
DW BPDR-0AH
BLOCK DW DOCOL
DW TBLOCK
DW ATT
DW EXEC
DW EXIT
;
DB 85H ; BPDRV
DB 'BPDR'
DB 'V'+80H
DW BLOCK-8
BPDRV DW DOCOL
DW DENSTY
DW ATT
DW LIT
DW 6H
DW MIN
DW TWOST
DW BPDR
DW PLUS
DW ATT
DW EXIT
;
DB 86H ; BRANCH
DB 'BRANC'
DB 'H'+80H
DW BPDRV-8
BRAN DW $+2
BRAN1: ADD SI,[SI]
JMP NEXT
;
DB 86H ; BUFFER
DB 'BUFFE'
DB 'R'+80H
DW BRAN-9
BUFFE DW DOCOL
DW USEE
DW ATT
DW DUPP
DW TOR
BUFF1 DW PBUF
DW ZBRAN
DW OFFSET BUFF1-$
DW USEE
DW STORE
DW RAT
DW ATT
DW ZLESS
DW ZBRAN
DW OFFSET BUFF2-$
DW RAT
DW TWOP
DW RAT
DW ATT
DW LIT
DW 7FFFH
DW ANDD
DW ZERO
DW RSLW
BUFF2 DW RAT
DW STORE
DW RAT
DW PREV
DW STORE
DW FROMR
DW TWOP
DW EXIT
;
DB 83H ; BYE
DB 'BY'
DB 'E'+80H
DW BUFFE-9
BYE DW DOCOL
DW FREEZE
DW ZERO
DW ZERO
DW SYSCALL
DW EXIT
;
DB 82H ; CSTORE
DB 'C'
DB '!'+80H
DW BYE-6
CSTOR DW $+2
POP BX
POP AX
MOV [BX],AL
JMP NEXT
;
DB 83H ; CSTOREL
DB 'C!'
DB 'L'+80H
DW CSTOR-5
CSTORL DW $+2
POP BX
POP DS
POP AX
MOV [BX],AL
MOV BX,CS
MOV DS,BX
JMP NEXT
;
DB 82H ; C,
DB 'C'
DB ','+80H
DW CSTORL-6
CCOMM DW DOCOL
DW HERE
DW CSTOR
DW ONE
DW ALLOT
DW EXIT
;
DB 83H ; C/L
DB 'C/'
DB 'L'+80H
DW CCOMM-5
CSLL DW DOCON
DW 40H
;
DB 82H ; C@
DB 'C'
DB '@'+80H
DW CSLL-6
CAT DW $+2
POP BX
MOV AL,[BX]
SUB AH,AH
JMP APUSH
;
DB 83H ; C@L
DB 'C@'
DB 'L'+80H
DW CAT-5
CATL DW $+2
POP BX
POP DS
MOV AL,[BX]
SUB AH,AH
MOV BX,CS
MOV DS,BX
JMP APUSH
;
DB 83H ; CFA
DB 'CF'
DB 'A'+80H
DW CATL-6
CFA DW DOCOL
DW TWOM
DW EXIT
;
DB 86H ; CHANGE
DB 'CHANG'
DB 'E'+80H
DW CFA-6
CHANGE DW DOCOL
DW FREEZE
DW LIMIT
DW LIT
DW 404H
DW NOBUF
DW STAR
DW SUBB
DW DUPP
DW LIT
DW FIRST+2
DW STORE
DW LIT
DW US
DW SUBB
DW DUPP
DW LIT
DW RTS
DW SUBB
DW DUPP
DW LIT
DW INITUSER
DW STORE
DW LIT
DW INITUSER+4
DW STORE
DW DUPP
DW LIT
DW INITUSER+2
DW STORE
DW LIT
DW UP
DW OVER
DW LIT
DW RPP
DW LIT
DW ORIG
DW HERE
DW STORE
DW HERE
DW ROT
DW ROT
DW STORE
DW ROT
DW ROT
DW STORE
DW EXEC
DW EXIT
;
DB 85H ; CLEAR
DB 'CLEA'
DB 'R'+80H
DW CHANGE-9
CLEAR DW DOCOL
DW OFSET
DW ATT
DW PLUS
DW BUFFE
DW LIT
DW 400H
DW BLL
DW FILL
DW UPDAT
DW EXIT
;
DB 85H ; CMOVE
DB 'CMOV'
DB 'E'+80H
DW CLEAR-8
CMOVE DW DOCOL
DW DUPP
DW ONE
DW LESS
DW ZBRAN
DW CMOVE1-$
DW DDROP
DW DROP
DW BRAN
DW CMOVE2-$
CMOVE1 DW ACMOVE
CMOVE2 DW EXIT
;
DB 84H ; COLD
DB 'COL'
DB 'D'+80H
DW CMOVE-8
COLD DW DOCOL
DW MTBUF
DW LIT
DW INITUSER
DW LIT
DW UP
DW ATT
DW LIT
DW 6
DW PLUS
DW LIT
DW 30H
DW CMOVE
DW PAGEE
DW ADOTQ
DB 1DH
DB 'MVP-FORTH VERSION 1.0305.02'
DW CR
DW ONE
DW DENSTY
DW STORE
DW FIRST
DW USEE
DW STORE
DW FIRST
DW PREV
DW STORE
DW DR0
DW ZERO
DW EPRINT
DW STORE
DW LIT
DW INITFORTH
DW ATT
DW LIT
DW FORTH+2
DW TWOP
DW STORE
DW DEC
DW LIT
DW 40H
DW LIT
DW 40H
DW LIT
DW 17H
DW STOREL
DW ABORT
DW EXIT
;
DB 87H ; COMPILE
DB 'COMPIL'
DB 'E'+80H
DW COLD-7
COMP DW DOCOL
DW QCOMP
DW FROMR
DW DUPP
DW TWOP
DW TOR
DW ATT
DW COMMA
DW EXIT
;
DB 89H ; CONFIGURE
DB 'CONFIGUR'
DB 'E'+80H
DW COMP-0AH
CONF DW DOCOL
DW QCONF
DW CR
DW ADOTQ
DB 13H
DB 'NUMBER OF DRIVES ? '
DW KEY
DW LIT
DW 31H
DW SUBB
DW DUPP
DW LIT
DW 5
DW ULESS
DW NOTT
DW AABORTQ
DB 0FH
DB 'TOO MANY DRIVES'
DW DUPP
DW LIT
DW 31H
DW PLUS
DW EMIT
DW ONEP
DW LIT
DW MAXDRV+2
DW STORE
DW MAXDRV
DW ZERO
DW ADO
CONF1 DW CR
DW ADOTQ
DB 6
DB 'DRIVE '
DW IDO
DW DOT
DW ADOTQ
DB 2
DB '? '
DW KEY
DW LIT
DW 30H
DW SUBB
DW DUPP
DW LIT
DW 7
DW ULESS
DW NOTT
DW AABORTQ
DB 0CH
DB 'OUT OF RANGE'
DW DUPP
DW LIT
DW 30H
DW PLUS
DW EMIT
DW IDO
DW TWOST
DW DEN
DW PLUS
DW STORE
DW ALOOP
DW CONF1-$
DW DR0
DW CR
DW CR
DW ADOTQ
DB 0DH
DB 'DR0 SELECTED '
DW CR
DW EXIT
;
DB 88H ; CONSTANT
DB 'CONSTAN'
DB 'T'+80H
DW CONF-0CH
CON DW DOCOL
DW CREATE
DW COMMA
DW ASCODE
DOCON: INC DX
MOV BX,DX
MOV AX,[BX]
JMP APUSH
;
DB 87H ; CONTEXT
DB 'CONTEX'
DB 'T'+80H
DW CON-0BH
CONT DW DOUSE
DW 3CH
;
DB 87H ; CONVERT
DB 'CONVER'
DB 'T'+80H
DW CONT-0AH
CONV DW DOCOL
CONV1 DW ONEP
DW DUPP
DW TOR
DW CAT
DW BASE
DW ATT
DW DIGIT
DW ZBRAN
DW OFFSET CONV3-$
DW SWAP
DW BASE
DW ATT
DW USTAR
DW DROP
DW ROT
DW BASE
DW ATT
DW USTAR
DW DPLUS
DW DPL
DW ATT
DW ONEP
DW ZBRAN
DW OFFSET CONV2-$
DW ONE
DW DPL
DW PSTOR
CONV2 DW FROMR
DW BRAN
DW OFFSET CONV1-$
CONV3 DW FROMR
DW EXIT
;
DB 85H ; COUNT
DB 'COUN'
DB 'T'+80H
DW CONV-0AH
COUNT DW DOCOL
DW DUPP
DW ONEP
DW SWAP
DW CAT
DW EXIT
;
DB 82H ; CR
DB 'C'
DB 'R'+80H
DW COUNT-8
CR DW DOCOL
DW TCR
DW ATT
DW EXEC
DW EXIT
;
DB 86H ; CREATE
DB 'CREAT'
DB 'E'+80H
DW CR-5
CREATE DW DOCOL
DW BLL
DW WORDD
DW DUPP
DW DUPP
DW ONEP
DW CAT
DW ZERO
DW EQUAL
DW AABORTQ
DB 1AH
DB 'ATTEMPTED TO REDEFINE NULL'
DW DUPP
DW CONT
DW ATT
DW ATT
DW AFIND
DW ZBRAN
DW OFFSET CREA1-$
DW DDROP
DW WARN
DW ATT
DW ZBRAN
DW OFFSET CREA1-$
DW DUPP
DW COUNT
DW TYPEE
DW SPACE
DW ADOTQ
DB 0DH
DB 'ISN',27H,'T UNIQUE '
CREA1 DW CAT
DW WIDTHH
DW ATT
DW MIN
DW ONEP
DW ALLOT
DW DUPP
DW LIT
DW 80H
DW TOGGL
DW HERE
DW ONEM
DW LIT
DW 80H
DW TOGGL
DW LATES
DW COMMA
DW TWO
DW ALLOT
DW CURR
DW ATT
DW STORE
DW ASCODE
DOVAR: INC DX
PUSH DX
JMP NEXT
;
DB 83H ; CSP
DB 'CS'
DB 'P'+80H
DW CREATE-9
CSP DW DOUSE
DW 3EH
;
DB 87H ; CURRENT
DB 'CURREN'
DB 'T'+80H
DW CSP-6
CURR DW DOUSE
DW 40H
;
DB 82H ; DSTORE
DB 'D'
DB '!'+80H
DW CURR-0AH
DSTOR DW $+2
POP BX
POP AX
MOV [BX],AX
POP AX
MOV 2[BX],AX
JMP NEXT
;
DB 82H ; D+
DB 'D'
DB '+'+80H
DW DSTOR-5
DPLUS DW $+2
POP AX
POP DX
POP BX
POP CX
ADD DX,CX
ADC AX,BX
JMP DPUSH
;
DB 83H ; D+-
DB 'D+'
DB '-'+80H
DW DPLUS-5
DPM DW DOCOL
DW ZLESS
DW ZBRAN
DW OFFSET DPM1-$
DW DNEG
DPM1 DW EXIT
;
DB 82H ; D.
DB 'D'
DB '.'+80H
DW DPM-6
DDOT DW DOCOL
DW ZERO
DW DDOTR
DW SPACE
DW EXIT
;
DB 83H ; D.R
DB 'D.'
DB 'R'+80H
DW DDOT-5
DDOTR DW DOCOL
DW DEPTH
DW LIT
DW 3
DW LESS
DW AABORTQ
DB 0BH
DB 'EMPTY STACK'
DW TOR
DW SWAP
DW OVER
DW DUPP
DW DPM
DW BDIGS
DW DIGS
DW ROT
DW SIGN
DW EDIGS
DW FROMR
DW OVER
DW SUBB
DW SPACS
DW TYPEE
DW EXIT
;
DB 82H ; D<
DB 'D'
DB '<'+80H
DW DDOTR-6
DLESS DW DOCOL
DW ROT
DW DDUP
DW EQUAL
DW ZBRAN
DW DLESS1-$
DW ROT
DW ROT
DW DNEG
DW DPLUS
DW ZLESS
DW BRAN
DW DLESS2-$
DLESS1 DW SWAP
DW LESS
DW SWAP
DW DROP
DLESS2 DW SWAP
DW DROP
DW EXIT
;
DB 84H ; DABS
DB 'DAB'
DB 'S'+80H
DW DLESS-5
DABS DW DOCOL
DW DUPP
DW DPM
DW EXIT
;
DB 85H ; DDROP
DB 'DDRO'
DB 'P'+80H
DW DABS-7
DDROP DW $+2
POP BX
POP BX
JMP NEXT
;
DB 84H ; DDUP
DB 'DDU'
DB 'P'+80H
DW DDROP-8
DDUP DW $+2
POP AX
POP DX
PUSH DX
PUSH AX
JMP DPUSH
;
DB 87H ; DECIMAL
DB 'DECIMA'
DB 'L'+80H
DW DDUP-7
DEC DW DOCOL
DW LIT
DW 0AH
DW BASE
DW STORE
DW EXIT
;
DB 8BH ; DEFINITIONS
DB 'DEFINITION'
DB 'S'+80H
DW DEC-0AH
DEFIN DW DOCOL
DW CONT
DW ATT
DW CURR
DW STORE
DW EXIT
;
DB 83H ; DEN
DB 'DE'
DB 'N'+80H
DW DEFIN-0EH
DEN DW DOVAR
DW 0
DW 0
DW 1
DW 1
DW 1
;
DB 87H ; DENSITY
DB 'DENSIT'
DB 'Y'+80H
DW DEN-6
DENSTY DW DOVAR
DW 0
;
DB 85H ; DEPTH
DB 'DEPT'
DB 'H'+80H
DW DENSTY-0AH
DEPTH DW DOCOL
DW SPAT
DW SZERO
DW SWAP
DW SUBB
DW TWOSL
DW EXIT
;
DB 85H ; DIGIT
DB 'DIGI'
DB 'T'+80H
DW DEPTH-8
DIGIT DW $+2
POP DX
POP AX
SUB AL,'0'
JB DIGI2
CMP AL,9H
JBE DIGI1
SUB AL,7H
CMP AL,0AH
JB DIGI2
DIGI1: CMP AL,DL
JAE DIGI2
SUB DX,DX
MOV DL,AL
MOV AL,01H
JMP DPUSH
DIGI2: SUB AX,AX
JMP APUSH
;
DB 8AH ; DISK-ERROR
DB 'DISK-ERRO'
DB 'R'+80H
DW DIGIT-8
DSKERR DW DOVAR
DW 0
;
DB 0C8H ; DLITERAL
DB 'DLITERA'
DB 'L'+80H
DW DSKERR-0DH
DLITE DW DOCOL
DW STATE
DW ATT
DW ZBRAN
DW OFFSET DLITE1-$
DW SWAP
DW LITER
DW LITER
DLITE1 DW EXIT
;
DB 87H ; DNEGATE
DB 'DNEGAT'
DB 'E'+80H
DW DLITE-0BH
DNEG DW $+2
POP BX
POP CX
SUB AX,AX
MOV DX,AX
SUB DX,CX
SBB AX,BX
JMP DPUSH
;
DB 0C2H ; DO
DB 'D'
DB 'O'+80H
DW DNEG-0AH
DO DW DOCOL
DW COMP
DW ADO
DW HERE
DW LIT
DW 3
DW EXIT
;
DB 0C5H ; DOES>
DB 'DOES'
DB '>'+80H
DW DO-5
DOES DW DOCOL
DW QCSP
DW COMP
DW ASCODE
DW LIT
DW 0E8H
DW CCOMM
DW LIT
DW DODOES
DW HERE
DW TWOP
DW SUBB
DW COMMA
DW EXIT
;
DODOES: INC DX
DEC BP
DEC BP
MOV [BP],SI
POP SI
PUSH DX
JMP NEXT
;
DB 82H ; DP
DB 'D'
DB 'P'+80H
DW DOES-8
DP DW DOUSE
DW 12H
;
DB 83H ; DPL
DB 'DP'
DB 'L'+80H
DW DP-5
DPL DW DOUSE
DW 42H
;
DB 85H ; DPUSH
DB 'DPUS'
DB 'H'+80H
DW DPL-6
DPUS DW DOCON
DW DPUSH
;
DB 86H ; DR-DEN
DB 'DR-DE'
DB 'N'+80H
DW DPUS-8
DRDEN DW DOCOL
DW TWOST
DW DEN
DW PLUS
DW ATT
DW EXIT
;
DB 83H ; DR0
DB 'DR'
DB '0'+80H
DW DRDEN-9
DR0 DW DOCOL
DW ZERO
DW OFSET
DW STORE
DW EXIT
;
DB 83H ; DR1
DB 'DR'
DB '1'+80H
DW DR0-6
DR1 DW DOCOL
DW DR0
DW ZERO
DW SETDRX
DW EXIT
;
DB 83H ; DR2
DB 'DR'
DB '2'+80H
DW DR1-6
DR2 DW DOCOL
DW DR1
DW ONE
DW SETDRX
DW EXIT
;
DB 83H ; DR3
DB 'DR'
DB '3'+80H
DW DR2-6
DR3 DW DOCOL
DW DR2
DW TWO
DW SETDRX
DW EXIT
;
DB 83H ; DR4
DB 'DR'
DB '4'+80H
DW DR3-6
DR4 DW DOCOL
DW DR3
DW LIT
DW 3
DW SETDRX
DW EXIT
;
DB 85H ; DRIVE
DB 'DRIV'
DB 'E'+80H
DW DR4-6
DRIVE DW DOVAR
DW 00
;
DB 84H ; DROP
DB 'DRO'
DB 'P'+80H
DW DRIVE-8
DROP DW $+2
POP AX
JMP NEXT
;
DB 83H ; DUP
DB 'DU'
DB 'P'+80H
DW DROP-7
DUPP DW $+2
POP AX
PUSH AX
JMP APUSH
;
DB 0C4H ; ELSE
DB 'ELS'
DB 'E'+80H
DW DUPP-6
ELSEE DW DOCOL
DW TWO
DW QPAIR
DW COMP
DW BRAN
DW HERE
DW ZERO
DW COMMA
DW SWAP
DW TWO
DW THENN
DW TWO
DW EXIT
;
DB 84H ; EMIT
DB 'EMI'
DB 'T'+80H
DW ELSEE-7
EMIT DW DOCOL
DW TEMIT
DW ATT
DW EXEC
DW EXIT
;
DB 8DH ; EMPTY-BUFFERS
DB 'EMPTY-BUFFER'
DB 'S'+80H
DW EMIT-7
MTBUF DW DOCOL
DW FIRST
DW LIMIT
DW OVER
DW SUBB
DW ZERO
DW AFILL
DW NOBUF
DW ZERO
DW ADO
MTBUF1 DW LIT
DW 7FFFH
DW LIT
DW 404H
DW IDO
DW STAR
DW FIRST
DW PLUS
DW STORE
DW ALOOP
DW OFFSET MTBUF1-$
DW EXIT
;
DB 87H ; ENCLOSE
DB 'ENCLOS'
DB 'E'+80H
DW MTBUF-10H
ENCL DW $+2
POP AX
POP BX
PUSH BX
MOV DX,0FFFFH
DEC BX
ENCL1: INC BX
INC DX
CMP AL,[BX]
JZ ENCL1
PUSH DX
INC BYTE PTR [BX]
DEC BYTE PTR [BX]
JNZ ENCL2
INC DX
PUSH DX
DEC DX
PUSH DX
JMP NEXT
ENCL2: INC BX
INC DX
CMP AL,[BX]
JZ ENCL3
INC BYTE PTR [BX]
DEC BYTE PTR [BX]
JNZ ENCL2
PUSH DX
PUSH DX
JMP NEXT
ENCL3: PUSH DX
INC DX
PUSH DX
JMP NEXT
;
DB 86H ; EPRINT
DB 'EPRIN'
DB 'T'+80H
DW ENCL-0AH
EPRINT DW DOVAR
DW 0
;
DB 87H ; EXECUTE
DB 'EXECUT'
DB 'E'+80H
DW EPRINT-9
EXEC DW $+2
POP BX
JMP NEXT1
;
DB 84H ; EXIT
DB 'EXI'
DB 'T'+80H
DW EXEC-0AH
EXIT DW $+2
MOV SI,[BP]
INC BP
INC BP
JMP NEXT
;
DB 86H ; EXPECT
DB 'EXPEC'
DB 'T'+80H
DW EXIT-7
EXPEC DW DOCOL
DW TEXPECT
DW ATT
DW EXEC
DW EXIT
;
DB 85H ; FENCE
DB 'FENC'
DB 'E'+80H
DW EXPEC-9
FENCE DW DOUSE
DW 10H
;
DB 84H ; FILL
DB 'FIL'
DB 'L'+80H
DW FENCE-8
FILL DW DOCOL
DW OVER
DW ZGREAT
DW ZBRAN
DW FILL1-$
DW AFILL
DW BRAN
DW FILL2-$
FILL1 DW DDROP
DW DROP
FILL2 DW EXIT
;
DB 84H ; FIND
DB 'FIN'
DB 'D'+80H
DW FILL-7
FIND DW DOCOL
DW DFIND
DW ZBRAN
DW FIND1-$
DW DROP
DW CFA
DW BRAN
DW FIND2-$
FIND1 DW ZERO
FIND2 DW EXIT
;
DB 85H ; FIRST
DB 'FIRS'
DB 'T'+80H
DW FIND-7
FIRST DW DOCON
DW BUF1
;
DB 83H ; FLD
DB 'FL'
DB 'D'+80H
DW FIRST-8
FLD DW DOUSE
DW 44H
;
DB 86H ; FORGET
DB 'FORGE'
DB 'T'+80H
DW FLD-6
FORG DW DOCOL
DW BLL
DW WORDD
DW CURR
DW ATT
DW ATT
DW AFIND
DW ZEQU
DW AABORTQ
DB 19H
DB 'NOT IN CURRENT VOCABULARY'
DW DROP
DW NFA
DW DUPP
DW FENCE
DW ATT
DW ULESS
DW AABORTQ
DB 17H
DB 'IN PROTECTED DICTIONARY'
DW TOR
DW RAT
DW CONT
DW ATT
DW ULESS
DW ZBRAN
DW FORG1-$
DW FORTH
FORG1 DW RAT
DW CURR
DW ATT
DW ULESS
DW ZBRAN
DW FORG2-$
DW FORTH
DW DEFIN
FORG2 DW VOCL
DW ATT
FORG3 DW RAT
DW OVER
DW ULESS
DW ZBRAN
DW FORG4-$
DW ATT
DW BRAN
DW FORG3-$
FORG4 DW DUPP
DW VOCL
DW STORE
FORG5 DW DUPP
DW LIT
DW 4
DW SUBB
FORG6 DW PFA
DW LFA
DW ATT
DW DUPP
DW RAT
DW ULESS
DW ZBRAN
DW FORG6-$
DW OVER
DW TWOM
DW STORE
DW ATT
DW QDUP
DW ZEQU
DW ZBRAN
DW FORG5-$
DW FROMR
DW DP
DW STORE
DW EXIT
;
DB 0C5H ; FORTH
DB 'FORT'
DB 'H'+80H
DW FORG-9
FORTH DW DOVOC
DW 0A081H
DW RBRAC-4
DW 00
;
DB 86H ; FREEZE
DB 'FREEZ'
DB 'E'+80H
DW FORTH-8
FREEZE DW DOCOL
DW LIT
DW UP
DW ATT
DW LIT
DW 6
DW PLUS
DW LIT
DW INITUSER
DW LIT
DW 30H
DW CMOVE
DW LIT
DW FORTH+2
DW TWOP
DW ATT
DW LIT
DW INITFORTH
DW STORE
DW EXIT
;
DB 84H ; HERE
DB 'HER'
DB 'E'+80H
DW FREEZE-9
HERE DW DOCOL
DW DP
DW ATT
DW EXIT
;
DB 83H ; HEX
DB 'HE'
DB 'X'+80H
DW HERE-7
HEX DW DOCOL
DW LIT
DW 10H
DW BASE
DW STORE
DW EXIT
;
DB 83H ; HLD
DB 'HL'
DB 'D'+80H
DW HEX-6
HLD DW DOUSE
DW 46H
;
DB 84H ; HOLD
DB 'HOL'
DB 'D'+80H
DW HLD-6
HOLD DW DOCOL
DW LIT
DW 0FFFFH
DW HLD
DW PSTOR
DW HLD
DW ATT
DW CSTOR
DW EXIT
;
DB 81H ; I
DB 'I'+80H
DW HOLD-7
IDO DW $+2
MOV AX,[BP]
JMP APUSH
;
DB 82H ; I'
DB 'I'
DB 0A7H
DW IDO-4
IPDO DW $+2
MOV AX,[BP+2]
JMP APUSH
;
DB 0C2H ; IF
DB 'I'
DB 'F'+80H
DW IPDO-5
IFF DW DOCOL
DW COMP
DW ZBRAN
DW HERE
DW ZERO
DW COMMA
DW TWO
DW EXIT
;
DB 89H ; IMMEDIATE
DB 'IMMEDIAT'
DB 'E'+80H
DW IFF-5
IMMED DW DOCOL
DW LATES
DW LIT
DW 40H
DW TOGGL
DW EXIT
;
DB 8AH ; INIT-FORTH
DB 'INIT-FORT'
DB 'H'+80H
DW IMMED-0CH
IFORTH DW DOCON
DW INITFORTH
;
DB 89H ; INIT-USER
DB 'INIT-USE'
DB 'R'+80H
DW IFORTH-0DH
IUSER DW DOCON
DW INITUSER
;
DB 87H ; INTCALL
DB 'INTCAL'
DB 'L'+80H
DW IUSER-0CH
INTCAL DW DOCOL
DW LIT
DW INTCA2+1
DW CSTOR
DW LIT
DW INTCA1
DW EXEC
DW EXIT
;
INTCA1 DW $+2
POP DX
POP CX
POP BX
POP AX
PUSH SI
PUSH BP
INTCA2: INT 0
POP BP
POP SI
JMP APUSH
;
DB 89H ; INTERPRET
DB 'INTERPRE'
DB 'T'+80H
DW INTCAL-0AH
INTER DW DOCOL
DW TINTER
DW ATT
DW EXEC
DW EXIT
;
;
DB 81H ; J
DB 'J'+80H
DW INTER-0CH
JDO DW $+2
MOV AX,[BP+4]
JMP APUSH
;
DB 83H ; KEY
DB 'KE'
DB 'Y'+80H
DW JDO-4
KEY DW DOCOL
DW TKEY
DW ATT
DW EXEC
DW EXIT
;
DB 86H ; LATEST
DB 'LATES'
DB 'T'+80H
DW KEY-6
LATES DW DOCOL
DW CURR
DW ATT
DW ATT
DW EXIT
;
DB 85H ; LEAVE
DB 'LEAV'
DB 'E'+80H
DW LATES-9
LEAVE DW $+2
MOV AX,[BP]
MOV 2[BP],AX
JMP NEXT
;
DB 83H ; LFA
DB 'LF'
DB 'A'+80H
DW LEAVE-8
LFA DW DOCOL
DW LIT
DW 4
DW SUBB
DW EXIT
;
DB 85H ; LIMIT
DB 'LIMI'
DB 'T'+80H
DW LFA-6
LIMIT DW DOCON
DW EM
;
DB 84H ; LIST
DB 'LIS'
DB 'T'+80H
DW LIMIT-8
LIST DW DOCOL
DW CR
DW DUPP
DW SCR
DW STORE
DW ADOTQ
DB 5
DB 'SCR #'
DW DOT
DW LIT
DW 10H
DW ZERO
DW ADO
LIST1 DW CR
DW RAT
DW LIT
DW 3
DW DOTR
DW SPACE
DW RAT
DW SCR
DW ATT
DW DLINE
DW QTERM
DW ZBRAN
DW OFFSET LIST2-$
DW LEAVE
LIST2 DW ALOOP
DW OFFSET LIST1-$
DW CR
DW EXIT
;
DB 83H ; LIT
DB 'LI'
DB 'T'+80H
DW LIST-7
LIT DW $+2
MOV AX,[SI]
INC SI
INC SI
JMP APUSH
;
DB 0C7H ; LITERAL
DB 'LITERA'
DB 'L'+80H
DW LIT-6
LITER DW DOCOL
DW STATE
DW ATT
DW ZBRAN
DW OFFSET LITER1-$
DW COMP
DW LIT
DW COMMA
LITER1 DW EXIT
;
DB 84H ; LOAD
DB 'LOA'
DB 'D'+80H
DW LITER-0AH
LOAD DW DOCOL
DW TLOAD
DW ATT
DW EXEC
DW EXIT
;
DB 0C4H ; LOOP
DB 'LOO'
DB 'P'+80H
DW LOAD-7
LOOP DW DOCOL
DW LIT
DW 3
DW QPAIR
DW COMP
DW ALOOP
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 82H ; M*
DB 'M'
DB '*'+80H
DW LOOP-7
MSTAR DW DOCOL
DW DDUP
DW XORR
DW TOR
DW ABSS
DW SWAP
DW ABSS
DW USTAR
DW FROMR
DW DPM
DW EXIT
;
DB 83H ; M*/
DB 'M*'
DB '/'+80H
DW MSTAR-5
MSTARSL DW DOCOL
DW DDUP
DW XORR
DW SWAP
DW ABSS
DW TOR
DW SWAP
DW ABSS
DW TOR
DW OVER
DW XORR
DW ROT
DW ROT
DW DABS
DW SWAP
DW RAT
DW USTAR
DW ROT
DW FROMR
DW USTAR
DW ROT
DW ZERO
DW DPLUS
DW RAT
DW USLM
DW ROT
DW ROT
DW FROMR
DW USLM
DW SWAP
DW DROP
DW SWAP
DW ROT
DW DPM
DW EXIT
;
DB 82H ; M+
DB 'M'
DB '+'+80H
DW MSTARSL-6
MPLUS DW DOCOL
DW STOD
DW DPLUS
DW EXIT
;
DB 82H ; M/
DB 'M'
DB '/'+80H
DW MPLUS-5
MSLAS DW DOCOL
DW OVER
DW TOR
DW TOR
DW DUPP
DW DPM
DW RAT
DW ABSS
DW USLM
DW FROMR
DW RAT
DW XORR
DW PM
DW SWAP
DW FROMR
DW PM
DW SWAP
DW EXIT
;
DB 85H ; M/MOD
DB 'M/MO'
DB 'D'+80H
DW MSLAS-5
MSMOD DW DOCOL
DW TOR
DW ZERO
DW RAT
DW USLM
DW FROMR
DW SWAP
DW TOR
DW USLM
DW FROMR
DW EXIT
;
DB 83H ; MAX
DB 'MA'
DB 'X'+80H
DW MSMOD-8
MAX DW DOCOL
DW DDUP
DW LESS
DW ZBRAN
DW OFFSET MAX1-$
DW SWAP
MAX1 DW DROP
DW EXIT
;
DB 87H ; MAX-DRV
DB 'MAX-DR'
DB 'V'+80H
DW MAX-6
MAXDRV DW DOCON
DW 2
;
DB 83H ; MIN
DB 'MI'
DB 'N'+80H
DW MAXDRV-0AH
MIN DW DOCOL
DW DDUP
DW GREAT
DW ZBRAN
DW OFFSET MIN1-$
DW SWAP
MIN1 DW DROP
DW EXIT
;
DB 83H ; MOD
DB 'MO'
DB 'D'+80H
DW MIN-6
MODD DW DOCOL
DW SLMOD
DW DROP
DW EXIT
;
DB 84H ; MOVE
DB 'MOV'
DB 'E'+80H
DW MODD-6
MOVE DW DOCOL
DW ZERO
DW MAX
DW TWOST
DW ACMOVE
DW EXIT
;
DB 86H ; NEGATE
DB 'NEGAT'
DB 'E'+80H
DW MOVE-7
NEG DW $+2
POP AX
NEG AX
JMP APUSH
;
DB 84H ; NEXT
DB 'NEX'
DB 'T'+80H
DW NEG-9
CNEXT DW DOCON
DW NEXT
;
DB 85H ; NEXT1
DB 'NEXT'
DB '1'+80H
DW CNEXT-7
CNEXT1 DW DOCON
DW NEXT1
;
DB 83H ; NFA
DB 'NF'
DB 'A'+80H
DW CNEXT1-8
NFA DW DOCOL
DW LIT
DW 5
DW SUBB
DW LIT
DW 0FFFFH
DW TRAV
DW EXIT
;
DB 83H ; NOT
DB 'NO'
DB 'T'+80H
DW NFA-6
NOTT DW $+2
POP AX
OR AX,AX
MOV AX,1H
JZ NOT1
DEC AX
NOT1: JMP APUSH
;
DB 86H ; NUMBER
DB 'NUMBE'
DB 'R'+80H
DW NOTT-6
NUM DW DOCOL
DW TNUM
DW ATT
DW EXEC
DW EXIT
;
DB 86H ; OFFSET
DB 'OFFSE'
DB 'T'+80H
DW NUM-9
OFSET DW DOUSE
DW 48H
;
DB 82H ; OR
DB 'O'
DB 'R'+80H
DW OFSET-9
ORR DW $+2
POP AX
POP BX
OR AX,BX
JMP APUSH
;
DB 83H ; OUT
DB 'OU'
DB 'T'+80H
DW ORR-5
OUTT DW DOUSE
DW 4AH
;
DB 84H ; OVER
DB 'OVE'
DB 'R'+80H
DW OUTT-6
OVER DW $+2
POP DX
POP AX
PUSH AX
JMP DPUSH
;
DB 82H ; PSTORE
DB 'P'
DB '!'+80H
DW OVER-7
PTSTOR DW $+2
POP DX
POP AX
OUT DX,AL
JMP NEXT
;
DB 82H ; P@
DB 'P'
DB '@'+80H
DW PTSTOR-5
PTAT DW $+2
POP DX
IN AL,DX
SUB AH,AH
JMP APUSH
;
DB 83H ; PAD
DB 'PA'
DB 'D'+80H
DW PTAT-5
PAD DW DOCOL
DW HERE
DW LIT
DW 44H
DW PLUS
DW EXIT
;
DB 84H ; PAGE
DB 'PAG'
DB 'E'+80H
DW PAD-6
PAGEE DW DOCOL
DW TPAGE
DW ATT
DW EXEC
DW EXIT
;
DB 83H ; PFA
DB 'PF'
DB 'A'+80H
DW PAGEE-7
PFA DW DOCOL
DW ONE
DW TRAV
DW LIT
DW 5
DW PLUS
DW EXIT
;
DB 84H ; PICK
DB 'PIC'
DB 'K'+80H
DW PFA-6
PICK DW DOCOL
DW DUPP
DW ONE
DW LESS
DW AABORTQ
DB 11H
DB 'PICK ARGUMENT < 1'
DW TWOST
DW SPAT
DW PLUS
DW ATT
DW EXIT
;
DB 82H ; PP
DB 'P'
DB 'P'+80H
DW PICK-7
PP DW DOCOL
DW DUPP
DW LIT
DW 0FFF0H
DW ANDD
DW AABORTQ
DB 0AH
DB 'OFF SCREEN'
DW ONE
DW TEXT
DW PAD
DW ONEP
DW SWAP
DW SCR
DW ATT
DW ALINE
DW CMOVE
DW UPDAT
DW EXIT
;
DB 84H ; PREV
DB 'PRE'
DB 'V'+80H
DW PP-5
PREV DW DOVAR
DW BUF1
;
DB 83H ; PWSTORE
DB 'PW'
DB '!'+80H
DW PREV-7
PWSTOR DW $+2
POP DX
POP AX
OUT DX,AX
JMP NEXT
;
DB 83H ; PW@
DB 'PW'
DB '@'+80H
DW PWSTOR-6
PWAT DW $+2
POP DX
IN AX,DX
JMP APUSH
;
DB 85H ; QUERY
DB 'QUER'
DB 'Y'+80H
DW PWAT-6
QUERY DW DOCOL
DW TIB
DW ATT
DW LIT
DW 50H
DW EXPEC
DW ZERO
DW TOIN
DW STORE
DW EXIT
;
DB 84H ; QUIT
DB 'QUI'
DB 'T'+80H
DW QUERY-8
QUIT DW DOCOL
DW ZERO
DW BLK
DW STORE
DW LBRAC
QUIT1 DW CR
DW RPSTO
DW QUERY
DW INTER
DW STATE
DW ATT
DW NOTT
DW ZBRAN
DW OFFSET QUIT2-$
DW ADOTQ
DB 2
DB 'OK'
QUIT2 DW BRAN
DW QUIT1-$
DW EXIT
;
DB 82H ; R#
DB 'R'
DB '#'+80H
DW QUIT-7
RSHARP DW DOUSE
DW 4CH
;
DB 83H ; R/W
DB 'R/'
DB 'W'+80H
DW RSHARP-5
RSLW DW DOCOL
DW TRSLW
DW ATT
DW EXEC
DW EXIT
;
DB 82H ; R0
DB 'R'
DB '0'+80H
DW RSLW-6
RZERO DW DOUSE
DW 08
;
DB 82H ; R>
DB 'R'
DB '>'+80H
DW RZERO-5
FROMR DW $+2
MOV AX,[BP]
INC BP
INC BP
JMP APUSH
;
DB 82H ; R@
DB 'R'
DB '@'+80H
DW FROMR-5
RAT DW $+2
MOV AX,[BP]
JMP APUSH
;
DB 0C6H ; REPEAT
DB 'REPEA'
DB 'T'+80H
DW RAT-5
REPEA DW DOCOL
DW TOR
DW TOR
DW AGAIN
DW FROMR
DW FROMR
DW TWOM
DW THENN
DW EXIT
;
DB 84H ; ROLL
DB 'ROL'
DB 'L'+80H
DW REPEA-9
ROLL DW DOCOL
DW DUPP
DW ONE
DW LESS
DW AABORTQ
DB 11H
DB 'ROLL ARGUMENT < 1'
DW ONEP
DW DUPP
DW PICK
DW SWAP
DW TWOST
DW SPAT
DW PLUS
ROLL1 DW DUPP
DW TWOM
DW ATT
DW OVER
DW STORE
DW TWOM
DW SPAT
DW OVER
DW ULESS
DW NOTT
DW ZBRAN
DW ROLL1-$
DW DDROP
DW EXIT
;
DB 83H ; ROT
DB 'RO'
DB 'T'+80H
DW ROLL-7
ROT DW $+2
POP DX
POP BX
POP AX
PUSH BX
JMP DPUSH
;
DB 83H ; RPSTORE
DB 'RP'
DB '!'+80H
DW ROT-6
RPSTO DW $+2
MOV BX,UP
MOV BP,8[BX]
JMP NEXT
;
DB 83H ; RP@
DB 'RP'
DB '@'+80H
DW RPSTO-6
RPAT DW $+2
MOV AX,BP
JMP APUSH
;
DB 83H ; RPP
DB 'RP'
DB 'P'+80H
DW RPAT-6
RPPP DW DOCON
DW RPP
;
DB 84H ; S->D
DB 'S->'
DB 'D'+80H
DW RPPP-6
STOD DW $+2
POP DX
SUB AX,AX
OR DX,DX
JNS STOD1
DEC AX
STOD1: JMP DPUSH
;
DB 82H ; S0
DB 'S'
DB '0'+80H
DW STOD-7
SZERO DW DOCOL
DW SPZERO
DW ATT
DW EXIT
;
DB 8CH ; SAVE-BUFFERS
DB 'SAVE-BUFFER'
DB 'S'+80H
DW SZERO-5
SAVBUF DW DOCOL
DW NOBUF
DW ONEP
DW ZERO
DW ADO
SAVBUF1 DW LIT
DW 7FFFH
DW BUFFE
DW DROP
DW ALOOP
DW OFFSET SAVBUF1-$
DW EXIT
;
DB 83H ; SCR
DB 'SC'
DB 'R'+80H
DW SAVBUF-0FH
SCR DW DOUSE
DW 4EH
;
DB 83H ; SEC
DB 'SE'
DB 'C'+80H
DW SCR-6
SEC DW DOVAR
DW 0
;
DB 88H ; SEC-READ
DB 'SEC-REA'
DB 'D'+80H
DW SEC-6
SECRD DW DOCOL
DW LIT
DW 201H
DW LIT
DW SECRW
DW EXEC
DW EXIT
;
SECRW DW DOCOL
DW LIT
DW 3
DW ZERO
DW ADO
SECRW1 DW DUPP
DW USEE
DW ATT
DW TRACK
DW ATT
DW LIT
DW 100H
DW STAR
DW SEC
DW ATT
DW PLUS
DW DRIVE
DW ATT
DW LIT
DW 13H
DW INTCAL
DW DUPP
DW DSKERR
DW STORE
DW ZEQU
DW ZBRAN
DW OFFSET SECRW2-$
DW LEAVE
DW BRAN
DW OFFSET SECRW3-$
SECRW2 DW ZERO
DW ZERO
DW ZERO
DW ZERO
DW LIT
DW 13H
DW INTCAL
DW DROP
SECRW3 DW ALOOP
DW OFFSET SECRW1-$
DW DROP
DW EXIT
;
DB 89H ; SEC-WRITE
DB 'SEC-WRIT'
DB 'E'+80H
DW SECRD-0BH
SECWT DW DOCOL
DW LIT
DW 301H
DW LIT
DW SECRW
DW EXEC
DW EXIT
;
DB 87H ; SEC/BLK
DB 'SEC/BL'
DB 'K'+80H
DW SECWT-0CH
SPBL DW DOVAR
DW 2
DW 8
DW 8
DW 8
DW 8
DW 8
DW 8
;
DB 86H ; SEC/TR
DB 'SEC/T'
DB 'R'+80H
DW SPBL-0AH
SPTR DW DOVAR
DW 8H
DW 1AH
DW 1AH
DW 34H
DW 34H
DW 40H
DW 40H
;
DB 87H ; SET-DRX
DB 'SET-DR'
DB 'X'+80H
DW SPTR-9H
SETDRX DW DOCOL
DW DRDEN
DW DENSTY
DW STORE
DW BPDRV
DW OFSET
DW PSTOR
DW EXIT
;
DB 84H ; SIGN
DB 'SIG'
DB 'N'+80H
DW SETDRX-0AH
SIGN DW DOCOL
DW ZLESS
DW ZBRAN
DW OFFSET SIGN1-$
DW LIT
DW 2DH
DW HOLD
SIGN1 DW EXIT
;
DB 86H ; SMUDGE
DB 'SMUDG'
DB 'E'+80H
DW SIGN-7
SMUDG DW DOCOL
DW LATES
DW LIT
DW 20H
DW TOGGL
DW EXIT
;
DB 83H ; SPSTORE
DB 'SP'
DB '!'+80H
DW SMUDG-9
SPSTO DW $+2
MOV BX,UP
MOV SP,6[BX]
JMP NEXT
;
DB 83H ; SP0
DB 'SP'
DB '0'+80H
DW SPSTO-6
SPZERO DW DOUSE
DW 06
;
DB 83H ; SP@
DB 'SP'
DB '@'+80H
DW SPZERO-6
SPAT DW $+2
MOV AX,SP
JMP APUSH
;
DB 85H ; SPACE
DB 'SPAC'
DB 'E'+80H
DW SPAT-6
SPACE DW DOCOL
DW BLL
DW EMIT
DW EXIT
;
DB 86H ; SPACES
DB 'SPACE'
DB 'S'+80H
DW SPACE-8
SPACS DW DOCOL
DW ZERO
DW MAX
DW QDUP
DW ZBRAN
DW OFFSET SPACS2-$
DW ZERO
DW ADO
SPACS1 DW SPACE
DW ALOOP
DW OFFSET SPACS1-$
SPACS2 DW EXIT
;
DB 85H ; SPBLK
DB 'SPBL'
DB 'K'+80H
DW SPACS-9
SPBLK DW DOCOL
DW DENSTY
DW ATT
DW LIT
DW 6
DW MIN
DW TWOST
DW SPBL
DW PLUS
DW ATT
DW EXIT
;
DB 85H ; SPDRV
DB 'SPDR'
DB 'V'+80H
DW SPBLK-8
SPDRV DW DOCOL
DW BPDRV
DW SPBLK
DW STAR
DW EXIT
;
DB 83H ; SPT
DB 'SP'
DB 'T'+80H
DW SPDRV-8
SPT DW DOCOL
DW DENSTY
DW ATT
DW LIT
DW 6
DW MIN
DW TWOST
DW SPTR
DW PLUS
DW ATT
DW EXIT
;
DB 85H ; STATE
DB 'STAT'
DB 'E'+80H
DW SPT-6
STATE DW DOUSE
DW 50H
;
DB 84H ; SWAP
DB 'SWA'
DB 'P'+80H
DW STATE-8
SWAP DW $+2
POP DX
POP AX
JMP DPUSH
;
DB 87H ; SYSCALL
DB 'SYSCAL'
DB 'L'+80H
DW SWAP-7
SYSCALL DW DOCOL
DW SWAP
DW LIT
DW 100H
DW STAR
DW SWAP
DW ZERO
DW ZERO
DW ROT
DW LIT
DW 21H
DW INTCAL
DW EXIT
;
DB 87H ; T&SCALC
DB 'T&SCAL'
DB 'C'+80H
DW SYSCALL-0AH
TSCALC DW DOCOL
DW TTSCALC
DW ATT
DW EXEC
DW EXIT
;
DB 84H ; TEXT
DB 'TEX'
DB 'T'+80H
DW TSCALC-0AH
TEXT DW DOCOL
DW HERE
DW CSLL
DW ONEP
DW BLANK
DW WORDD
DW BLL
DW OVER
DW DUPP
DW CAT
DW PLUS
DW ONEP
DW CSTOR
DW PAD
DW CSLL
DW ONEP
DW CMOVE
DW EXIT
;
DB 0C4H ; THEN
DB 'THE'
DB 'N'+80H
DW TEXT-7
THENN DW DOCOL
DW QCOMP
DW TWO
DW QPAIR
DW HERE
DW OVER
DW SUBB
DW SWAP
DW STORE
DW EXIT
;
DB 83H ; TIB
DB 'TI'
DB 'B'+80H
DW THENN-7
TIB DW DOUSE
DW 0AH
;
DB 86H ; TOGGLE
DB 'TOGGL'
DB 'E'+80H
DW TIB-6
TOGGL DW $+2
POP AX
POP BX
XOR [BX],AL
JMP NEXT
;
DB 85H ; TRACK
DB 'TRAC'
DB 'K'+80H
DW TOGGL-9
TRACK DW DOVAR
DW 0
;
DB 88H ; TRAVERSE
DB 'TRAVERS'
DB 'E'+80H
DW TRACK-8
TRAV DW DOCOL
DW SWAP
TRAV1 DW OVER
DW PLUS
DW LIT
DW 07FH
DW OVER
DW CAT
DW LESS
DW ZBRAN
DW OFFSET TRAV1-$
DW SWAP
DW DROP
DW EXIT
;
DB 84H ; TYPE
DB 'TYP'
DB 'E'+80H
DW TRAV-0BH
TYPEE DW DOCOL
DW DUPP
DW ZGREAT
DW ZBRAN
DW OFFSET TYPE2-$
DW OVER
DW PLUS
DW SWAP
DW ADO
TYPE1 DW IDO
DW CAT
DW EMIT
DW ONE
DW AUPLOOP
DW OFFSET TYPE1-$
DW BRAN
DW OFFSET TYPE3-$
TYPE2 DW DDROP
TYPE3 DW EXIT
;
DB 82H ; U*
DB 'U'
DB '*'+80H
DW TYPEE-7
USTAR DW $+2
POP AX
POP BX
MUL BX
XCHG AX,DX
JMP DPUSH
;
DB 82H ; U.
DB 'U'
DB '.'+80H
DW USTAR-5
UDOT DW DOCOL
DW ZERO
DW DDOT
DW EXIT
;
DB 85H ; U/MOD
DB 'U/MO'
DB 'D'+80H
DW UDOT-5
USLM DW $+2
POP BX
POP DX
POP AX
DIV BX
JMP DPUSH
;
DB 82H ; U<
DB 'U'
DB '<'+80H
DW USLM-8
ULESS DW DOCOL
DW ZERO
DW SWAP
DW ZERO
DW DLESS
DW EXIT
;
DB 0C5H ; UNTIL
DB 'UNTI'
DB 'L'+80H
DW ULESS-5
UNTIL DW DOCOL
DW ONE
DW QPAIR
DW COMP
DW ZBRAN
DW HERE
DW SUBB
DW COMMA
DW EXIT
;
DB 82H ; UP
DB 'U'
DB 'P'+80H
DW UNTIL-8
UPP DW DOCON
DW UP
;
DB 86H ; UPDATE
DB 'UPDAT'
DB 'E'+80H
DW UPP-5
UPDAT DW DOCOL
DW PREV
DW ATT
DW ATT
DW LIT
DW 8000H
DW ORR
DW PREV
DW ATT
DW STORE
DW EXIT
;
DB 83H ; USE
DB 'US'
DB 'E'+80H
DW UPDAT-9
USEE DW DOVAR
DW BUF1
;
DB 84H ; USER
DB 'USE'
DB 'R'+80H
DW USEE-6
USER DW DOCOL
DW CON
DW ASCODE
DOUSE: INC DX
MOV BX,DX
MOV BL,[BX]
SUB BH,BH
MOV DI,UP
LEA AX,[BX+DI]
JMP APUSH
;
DB 88H ; VARIABLE
DB 'VARIABL'
DB 'E'+80H
DW USER-7
VAR DW DOCOL
DW CREATE
DW TWO
DW ALLOT
DW EXIT
;
DB 88H ; VOC-LINK
DB 'VOC-LIN'
DB 'K'+80H
DW VAR-0BH
VOCL DW DOUSE
DW 14H
;
DB 8AH ; VOCABULARY
DB 'VOCABULAR'
DB 'Y'+80H
DW VOCL-0BH
VOC DW DOCOL
DW TVOCAB
DW ATT
DW EXEC
DW EXIT
;
DB 87H ; WARNING
DB 'WARNIN'
DB 'G'+80H
DW VOC-0DH
WARN DW DOUSE
DW 0EH
;
DB 85H ; WHERE
DB 'WHER'
DB 'E'+80H
DW WARN-0AH
WHERE DW DOCOL
DW BLK
DW ATT
DW ZBRAN
DW WHERE1-$
DW BLK
DW ATT
DW DUPP
DW SCR
DW STORE
DW CR
DW CR
DW ADOTQ
DB 5
DB 'SCR# '
DW DUPP
DW DOT
DW TOIN
DW ATT
DW LIT
DW 3FFH
DW MIN
DW CSLL
DW SLMOD
DW DUPP
DW ADOTQ
DB 6
DB 'LINE# '
DW DOT
DW CSLL
DW STAR
DW ROT
DW BLOCK
DW PLUS
DW CR
DW CR
DW CSLL
DW DTRAI
DW TYPEE
DW TOIN
DW ATT
DW LIT
DW 3FFH
DW GREAT
DW PLUS
DW BRAN
DW WHERE2-$
WHERE1 DW TOIN
DW ATT
WHERE2 DW CR
DW HERE
DW CAT
DW DUPP
DW TOR
DW SUBB
DW HERE
DW RAT
DW PLUS
DW ONEP
DW CAT
DW LIT
DW 20H
DW EQUAL
DW ZBRAN
DW WHERE3-$
DW ONEM
WHERE3 DW SPACS
DW FROMR
DW ZERO
DW ADO
WHERE4 DW LIT
DW 5EH
DW EMIT
DW ALOOP
DW WHERE4-$
DW EXIT
;
DB 0C5H ; WHILE
DB 'WHIL'
DB 'E'+80H
DW WHERE-8
WHILE DW DOCOL
DW IFF
DW TWOP
DW EXIT
;
DB 85H ; WIDTH
DB 'WIDT'
DB 'H'+80H
DW WHILE-8
WIDTHH DW DOUSE
DW 0CH
;
DB 84H ; WORD
DB 'WOR'
DB 'D'+80H
DW WIDTHH-8
WORDD DW DOCOL
DW TWORD
DW ATT
DW EXEC
DW EXIT
;
DB 0C0H ; X (NULL)
DB 80H
DW WORDD-7
NULL DW DOCOL
DW BLK
DW ATT
DW ZBRAN
DW OFFSET NULL1-$
DW STATE
DW ATT
DW QSTREAM
NULL1 DW FROMR
DW DROP
DW EXIT
;
DB 83H ; XOR
DB 'XO'
DB 'R'+80H
DW NULL-4
XORR DW $+2
POP AX
POP BX
XOR AX,BX
JMP APUSH
;
DB 0C1H ; [
DB '['+80H
DW XORR-6
LBRAC DW DOCOL
DW ZERO
DW STATE
DW STORE
DW EXIT
;
DB 0C9H ; [COMPILE]
DB '[COMPILE'
DB ']'+80H
DW LBRAC-4
BCOMP DW DOCOL
DW QCOMP
DW DFIND
DW NOTT
DW AABORTQ
DB 9
DB 'NOT FOUND'
DW DROP
DW CFA
DW COMMA
DW EXIT
;
DB 81H ; ]
DB ']'+80H
DW BCOMP-0CH
RBRAC DW DOCOL
DW LIT
DW 0C0H
DW STATE
DW STORE
DW EXIT
;
FSEG ENDS
;
END ORIG
;
MVPFORTH.DOC
Thanks to glen haydon for contributing this version of FORTH
to the public domain.
The file 'MVPFORTH ASM ' is a version of
FORTH that should assemble using the IBM Macro Assembler.
Installation Notes:
After assembling MVPFORTH.ASM, THE FILE SHOULD BE LINKED AS MVPFORTH.EXE
Optionally the file may be converted to a .COM file using EXE2BIN
and then renamed COMMAND.COM. Then use this FORTH 'COMMAND.COM' instead
of the IBM supplied 'COMMAND.COM'. You will then have a bootable FORTH
system disk. You will still need to have the two hidden DOS files in
their proper places on the disk.
FORTH will let you read, or write, any where on the disk. FORTH does not
recognize any DOS files -- this means that the whole disk is fair game--
It also means a full disk still only shows COMMAND.COM in the directory
If you tell FORTH to write on sector 0, the boot record, then sector 0
will be destroyed!!!!!!!
This means keep a backup!!!!
I strongly suggest the book, Starting Forth, as an excellent
introduction to FORTH.
The book "All About FORTH" fully documents this implementation of FORTH.
From the source code:
MVPFORTH KERNEL VERSION 1.0305.02
A FORTH OPERATING SYSSTEM
FORTH THE IBM PERSONAL COMPUTER
PREPARED FOR
MOUNTAIN VIEW PRESS, INC.
PO BOX 4656
MOUNTAIN VIEW, CA 94040
IMPLEMENTATION BY
HAYDON ENTERPRISES
BOX 429 ROUTE 2
LA HONDA, CA 94020
This publication is placed in the publicdomain. Permission to
distribute is granted by the inclusion of credit to Mountain
View Press, Inc., and Haydon Enterprises.
This implementation includes the entire FORTH-79 required word
set. The book "All About FORTH" by Glen B. Haydon fully
documents MVPFORTH. It is available from Mountain View Press, Inc.
The implementation has been transcribed from the original cross
compiler Ver. 1.0000.02. It will assemble with "MASM.COM" under
MSDOS Ver. 1.0 OR 1.1 .
Here is a summary of how to get started with the MVPFORTH
public domain program.
With MVPFORTH.COM in the default drive, type MVPFORTH to load
the MVPFORTH operating system from DOS. Then typing VLIST will list
the available FORTH words ( FORTH-79 compatible ) and typing BYE
will return DOS.
If it is desired to have MVPFORTH loaded automatically upon
power-on, use the RENAME command in DOS to change the name of MVPFORTH.
COM to COMMAND.COM. In this case, the BYE word will be ineffective.
Examples of some of the more useful FORTH editing words:
100 LIST Lists block 100 and makes it the current screen
0 T Types Line 0 of current screen
P xxx Puts xxx as the current line
U xxx puts xxx as line Under current line
101 7 M Moves current line to under block 101 line 7
X deletes current line
F xxx Finds xxx in current line & makes it currnt cursr positn
3 S xxx Searches for xxx in 3 blks starting at curr blk
E after F, erases the string just found
D xxx Deletes the next occurrence of xxx in curr line
TILL xxx deletes all from curr cursor positn 'Til & including xxx
I xxx Inserts xxx beginning just before cursor
R xxx after F yyy, replaces yyy with xxx
Note: FORTH words are divided into "vocabularies", not all of which
are available at once. FORTH, EDITOR, and ASSEMBLER are words that
select the correponding vocab as the current vocab. You can define
your own vocabs by using the FORTH words VOCABULARY and DEFINITIONS.
Example:
VOCABULARY MATH
MATH DEFINITIONS
: SUM ( n1 n2 -> ) + . ;
FORTH
This creates a new vocab, MATH, containing the word SUM, and which
may be extended by entering more definitions while MATH is current.
Any existing vocab, say XXX, is made current just by typing its name.
Caution: The same word-name can be assigned totally different definitons
in different vocabs, and only the current vocab will be active.
A tip: When listing on the screen, e.g., XXX VLIST, hit any key to halt,
again to resume, and hold down to cancel.
Another caution: If line 0 of a block is all blanks, that block
will fail to load, but no message will be issued! It's a FORTH
convention to begin each block on line 0 (eg, with a comment).
This disk copy was originally provided by "The Public Library",
the software library of the Houston Area League of PC Users.
Programs are available from the Public Library at $2 per disk
on user-provided disks. To get a listing of the disks in the
Public Library, send a self-addressed, stamped envelope to
Nelson Ford, P.O.Box 61565, Houston, TX 77208.
Directory of PC-SIG Library Disk #0352
Volume in drive A has no label
Directory of A:\
MVPFORTH WDS 5476 1-28-87 7:11p
MVPFORTH DOC 4848 1-28-87 7:11p
MVPFORTH ASM 57099 1-28-87 7:12p
MVPFORTH COM 19968 1-28-87 7:12p
FORTH-H ASM 57099 1-28-87 7:12p
FORTH-H COM 23424 1-28-87 7:12p
FORTH-H DOC 2977 1-28-87 7:12p
FILES352 TXT 1017 1-28-87 7:15p
GO BAT 754 1-28-87 7:49p
9 file(s) 172662 bytes
147456 bytes free