mirror of https://github.com/hsoft/collapseos.git
17 lines
394 B
Plaintext
17 lines
394 B
Plaintext
(cont.)
|
|
> : F! SWAP 1 + SWAP C! ;
|
|
> 8 H@ DUMP
|
|
:54 0000 0000 0000 0000 ........
|
|
> 9 H@ A!
|
|
> 8 H@ DUMP
|
|
:54 0900 0000 0000 0000 ........
|
|
> ' F! A!* !
|
|
> 9 H@ 1 + A!
|
|
> 8 H@ DUMP
|
|
:54 090a 0000 0000 0000 ........
|
|
> H@ H@ 2 + 2 AMOVE
|
|
> 8 H@ DUMP
|
|
:54 090a 0a0b 0000 0000 ........
|
|
>
|
|
(cont.)
|