mu/ex8.mu

13 lines
383 B
Forth
Raw Normal View History

2021-03-28 04:52:16 +00:00
# Demo of floating-point support.
2021-03-16 04:59:08 +00:00
#
# To build a disk image:
2021-04-17 03:26:42 +00:00
# ./translate ex8.mu # emits code.img
2021-03-16 04:59:08 +00:00
# To run:
2021-04-17 03:26:42 +00:00
# bochs -f bochsrc # bochsrc loads code.img
2021-03-16 04:59:08 +00:00
# Set a breakpoint at 0x7c00 and start stepping.
2021-02-11 08:12:08 +00:00
2021-03-28 00:47:23 +00:00
fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
2021-02-11 08:12:08 +00:00
var n/eax: int <- copy 0
var result/xmm0: float <- convert n
}