version 1.4, 2000/08/14 19:15:54
|
version 1.6, 2003/09/14 21:16:48
|
Line 119 end-macros
|
Line 119 end-macros
|
|
|
Code ?branch ( f -- ) \ jump on f<>0 |
Code ?branch ( f -- ) \ jump on f<>0 |
tos tos or, tos pop, \ check and get new tos |
tos tos or, tos pop, \ check and get new tos |
0= IF, fip ) fip add, next, \ jump |
0= IF, fip ) fip mov, next, \ jump |
ELSE, fip inc, fip inc, next, THEN, \ skip |
ELSE, fip inc, fip inc, next, THEN, \ skip |
End-Code |
End-Code |
|
|
Line 258 end-macros
|
Line 258 end-macros
|
|
|
\ branch and literal |
\ branch and literal |
Code branch ( -- ) \ unconditional branch |
Code branch ( -- ) \ unconditional branch |
fip ) fip add, |
fip ) fip mov, |
next, |
next, |
End-Code |
End-Code |
|
|
Line 432 end-macros
|
Line 432 end-macros
|
\ ======================== not ready ============================ |
\ ======================== not ready ============================ |
[ENDIF] |
[ENDIF] |
|
|
Code bye ( -- ) \ back to DOS |
Code (bye) ( -- ) \ back to DOS |
0 # al mov, $4c # ah mov, $21 int, |
ax pop, $4c # ah mov, $21 int, |
End-Code |
End-Code |
|
|
-9 Alias: :doesjump |
: bye ( -- ) 0 (bye) ; |
|
|
|
Code: :doesjump |
|
end-code |