1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:58:05 +11:00
collapseos/blk/443

17 lines
246 B
Plaintext
Raw Normal View History

: ? @ . ;
: _
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
;