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

(8086pc) Implemented POSTPONE, VALUE and TO

Browse Source
This commit is contained in:
Carsten Strotmann 2021-04-19 19:05:25 +02:00
parent 38c3914fc4
commit 497e0ab489
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1160,10 +1160,16 @@ Target Forth also definitions
( ----- 081 )
\ depth rdepth postpone value to
: rdepth ( -- +n ) r0 @ rp@ 2+ - 2/ ;
: depth ( -- +n ) sp@ s0 @ swap - 2/ ;
: postpone
' dup >name c@ $40 and
IF , ELSE [compile] compile compile , THEN ; immediate
: value create , DOES> @ ;
: TO ( x "<spaces>name" -- )
' >body state @
IF [compile] Literal ! ELSE ! THEN ; immediate
( ----- 082 )
\ prompt quit ks 16 sep 88
@ -1253,7 +1259,7 @@ Target Forth also definitions
: .s sp@ s0 @ over - $20 umin bounds ?DO I @ u. 2 +LOOP ;
( ----- 088 )
\ c/l l/s
\ c/l l/s
&64 Constant c/l \ Screen line length
&16 Constant l/s \ lines per screen
@ -1452,16 +1458,8 @@ Target Forth also definitions
( ----- 109 )
\ bye ks 11 m„r 89
Variable return_code return_code off
: bye empty poweroff ;
| Code (bye cli A A xor A E: mov #segs # call
C: D mov D R add R D: mov 0 # I mov I W mov
$200 # C mov rep movs sti \ restore interrupts
\ $4C # A+ mov C: seg return_code #) A- mov $21 int
warmboot # call
end-code
: bye empty page (bye ;
( ----- 110 )
\ cold ks 09 m„r 89
@ -1523,7 +1521,7 @@ Target Forth also definitions
( ----- 115 )
\ APM PC Shutdown - poweroff
CODE poweroff ( -- )
\ Connect to APM API
$5301 # A mov R R xor $15 int