1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-15 04:28:06 +11:00
collapseos/blk/384

17 lines
246 B
Plaintext
Raw Permalink Normal View History

2020-05-13 23:02:44 +10:00
: ? @ . ;
: _
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
;