mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
1 line
4.0 KiB
Plaintext
Executable File
1 line
4.0 KiB
Plaintext
Executable File
\ 2Words Loadscreen hex &2 &3 thru decimal \ 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 \ : 2VARIABLE ( --) CREATE 4 ALLOT ; ( -- ADR) : 2CONSTANT ( D --) CREATE , , DOES> ( -- D) 2@ ; \ 2DUP EXISTS \ 2SWAP EXISTS \ 2DROP EXISTS |