6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-11 11:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Fix in source

Browse Source
This commit is contained in:
Carsten Strotmann 2021-04-12 14:36:28 +02:00
parent baabc46391
commit 6a3c1a30ac
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
8086/pc-baremetal/kernel.fth
View File

@ -22,7 +22,7 @@ Port to 8088/86 and MS-DOS by K.Schleisiek dez 87
warning on
flush \ close FORTH.COM
cr .( new kernel as "FORTH.COM" written) cr bell ( bye )
cr .( new kernel as "FORTH.COM" written) cr bell bye
( ----- 002 )
\\ The use of the 8088/86 register ks 27 oct 86
@ -757,7 +757,7 @@ swap ]? C >in #) add
\ source word parse name ks 03 aug 87
defer source
: (source ( -- addr len ) tib #tib @ exit ;
: (source ( -- addr len ) tib #tib @ ;
' source Is (source
: word ( char -- addr ) source (word ;
@ -1482,7 +1482,6 @@ Target Forth also definitions
\ System patchup ks 16 sep 88
1 &9 +thru \ MS-DOS interface
: forth-83 ; \ last word in Dictionary
0 ' limit >body ! $DFF6 s0 ! $E77C r0 !
@ -1527,7 +1526,7 @@ Target Forth also definitions
\ BDOS keyboard input ks 16 sep 88
\ it really needs to be this complicated, else ^C und ^P would
\ not work
\\
| Variable newkey newkey off
Code (key@ ( -- 8b ) D push newkey #) D mov D+ D+ or
0= ?[ $7 # A+ mov $21 int A- D- mov ]?
@ -1542,7 +1541,7 @@ Target Forth also definitions
end-code
( ----- 115 )
\ empty-keys (key ks 16 sep 88
\\
Code empty-keys $C00 # A mov $21 int
0 # newkey 1+ #) byte mov Next end-code
@ -1550,7 +1549,7 @@ Target Forth also definitions
(key@ ?dup ?exit (key? IF (key@ negate exit THEN 0 ;
( ----- 116 )
\ BIOS keyboard input ks 16 sep 88
\\
Code (key@ ( -- 8b ) D push A+ A+ xor $16 int
A- D- xchg 0 # D+ mov Next end-code