mirror of https://github.com/hsoft/collapseos.git
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
|
||
|
|
;
|