mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-05-29 02:41:32 +00:00
69 lines
4.2 KiB
Forth
69 lines
4.2 KiB
Forth
\ *** Block No. 0 Hexblock 0
|
|
\ Additional definitions for 32bit values cas 26jan06
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
\ *** Block No. 1 Hexblock 1
|
|
\ 2Words Loadscreen cas 26jan06
|
|
|
|
hex
|
|
&2 &3 thru
|
|
decimal
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
\ *** Block No. 2 Hexblock 2
|
|
\ 2! 2@ 2VARIABLE 2CONSTANT 08JUL85RE)
|
|
|
|
CODE 2! ( D ADR --)
|
|
TYA SETUP JSR 3 # LDY
|
|
[[ SP )Y LDA N )Y STA DEY 0< ?]
|
|
1 # LDY POPTWO JMP END-CODE
|
|
|
|
CODE 2@ ( ADR -- D)
|
|
SP X) LDA N STA SP )Y LDA N 1+ STA
|
|
SP 2DEC 3 # LDY
|
|
[[ N )Y LDA SP )Y STA DEY 0< ?]
|
|
XYNEXT JMP END-CODE
|
|
|
|
|
|
|
|
|
|
\ *** Block No. 3 Hexblock 3
|
|
\
|
|
|
|
: 2VARIABLE ( --) CREATE 4 ALLOT ;
|
|
( -- ADR)
|
|
|
|
: 2CONSTANT ( D --) CREATE , , DOES> ( -- D) 2@ ;
|
|
|
|
\ 2DUP EXISTS
|
|
\ 2SWAP EXISTS
|
|
\ 2DROP EXISTS
|
|
|
|
|
|
|
|
|
|
|
|
|