mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-20 05:58:27 +10:00
17 lines
246 B
Plaintext
17 lines
246 B
Plaintext
: ? @ . ;
|
|
: _
|
|
DUP 9 > IF 10 - 'a' +
|
|
ELSE '0' + THEN
|
|
;
|
|
( For hex display, there are no negatives )
|
|
: .x
|
|
256 MOD ( ensure < 0x100 )
|
|
16 /MOD ( l h )
|
|
_ EMIT ( l )
|
|
_ EMIT
|
|
;
|
|
: .X
|
|
256 /MOD ( l h )
|
|
.x .x
|
|
;
|