KFORTH

KC87 - FIG-FORTH 1.2 © by LUBI-soft 30.03.90

aufgetaucht 2026 auf ROMs.

das ist ein FIG-Forth erweitert um einen Line-Editor, und Wörter zum Laden/Schreiben von/auf Kassette/Magnetband.

1K-Screens, 16 Zeilen a 64 Zeichen.

Start mit KFORTH

• Binary, reass. Quellcode, Marken etc. vgl. Listing FIG-FORTH 1.1 CP/M.

TASK CLEAR F D S [S] H E [E] P R [ECHO] [-MOVE] [LINE] [TEXT] LOOK BYE FDOS .CPU TRIAD INDEX LIST VLIST U. ? . D. .R D.R #S # SIGN #> <# SPACES WHILE ELSE IF REPEAT AGAIN END UNTIL +LOOP LOOP DO THEN ENDIF BEGIN BACK FORGET ' VERIFY CSAVE CLOAD –> LOAD FLUSH R/W BLOCK BUFFER EMPTY-BUFFERS UPDATE +BUF #BUFF SEC/BLK MESSAGE .LINE (LINE) M/MOD */ */MOD MOD / /MOD * M/ M* MAX MIN DABS ABS D+- +- S→D COLD WARM ABORT QUIT ( DEFINITIONS FORTH VOCABULARY IMMEDIATE INTERPRET ?STACK DLITERAL LITERAL [COMPILE] CREATE ID. ERROR (ABORT) -FIND NUMBER (NUMBER) WORD PAD HOLD BLANKS ERASE FILL QUERY EXPECT .„ (.“) -TRAILING TYPE COUNT DOES> <BUILDS ;CODE (;CODE) DECIMAL HEX SMUDGE ] [ COMPILE ?LOADING ?CSP ?PAIRS ?EXEC ?COMP ?ERROR !CSP PFA NFA CFA LFA LATEST TRAVERSE -DUP SPACE ROT > U< < = - C, , ALLOT HERE 2+ 1+ REC PREV-FILE DISK-ERROR DENSITY PREV USE TRACK SEC DRIVE HLD R# CSP FLD DPL BASE STATE CURRENT CONTEXT OFFSET SCR OUT IN BLK VOC-LINK DP FENCE WARNING WIDTH TIB R0 S0 +ORIGIN B/SCR B/BUF LIMIT FIRST C/L BL 3 2 1 0 USER VARIABLE CONSTANT ; : 2! C! ! 2@ C@ @ TOGGLE +! ASCII 2+ 2- 2DROP PICK ?DUP 2DUP DUP SWAP DROP OVER DMINUS MINUS D+ + 0< 0= R R> >R LEAVE ;S RP! RP@ SP! SP@ XOR OR AND U/ U* CMOVE CR ?TERMINAL KEY EMIT ENCLOSE (FIND) DIGIT I (DO) (+LOOP) (LOOP) 0BRANCH BRANCH EXECUTE LIT

.CPU U880 OK

LOOK Anzeige Base dezimal

MB-Wörter:

aadr eadr CSAVE, Filename wird abefragt; Endung .SCR
aadr CLOAD
aadr VERIFY

Zeilen-Editor:

 
1 CLEAR
1 LIST

n S		select screen #n
n P text	put line n
n F
D
H
E n		empty line n
R