2020-12-30 05:08:05 +00:00
|
|
|
# Primitives for screen control.
|
2021-01-16 04:30:07 +00:00
|
|
|
#
|
|
|
|
# We need to do this in machine code because Mu doesn't have global variables
|
|
|
|
# yet (for the start of video memory).
|
2020-12-30 05:08:05 +00:00
|
|
|
|
2021-01-14 05:41:45 +00:00
|
|
|
== code
|
|
|
|
|
2021-01-16 04:30:07 +00:00
|
|
|
pixel-on-real-screen: # x: int, y: int, color: int
|
2020-12-30 05:08:05 +00:00
|
|
|
# . prologue
|
|
|
|
55/push-ebp
|
|
|
|
89/<- %ebp 4/r32/esp
|
|
|
|
# . save registers
|
|
|
|
50/push-eax
|
2020-12-30 05:16:28 +00:00
|
|
|
51/push-ecx
|
2021-01-16 04:30:07 +00:00
|
|
|
# bounds checks
|
|
|
|
8b/-> *(ebp+8) 0/r32/eax
|
|
|
|
3d/compare-eax-and 0/imm32
|
|
|
|
7c/jump-if-< $pixel-on-real-screen:end/disp8
|
2021-01-17 18:49:23 +00:00
|
|
|
3d/compare-eax-and 0x400/imm32/screen-width=1024
|
2021-01-16 04:30:07 +00:00
|
|
|
7d/jump-if->= $pixel-on-real-screen:end/disp8
|
|
|
|
8b/-> *(ebp+0xc) 0/r32/eax
|
|
|
|
3d/compare-eax-and 0/imm32
|
|
|
|
7c/jump-if-< $pixel-on-real-screen:end/disp8
|
2021-01-17 18:49:23 +00:00
|
|
|
3d/compare-eax-and 0x300/imm32/screen-height=768
|
2021-01-16 04:30:07 +00:00
|
|
|
7d/jump-if->= $pixel-on-real-screen:end/disp8
|
|
|
|
# eax = y*1024 + x
|
|
|
|
8b/-> *(ebp+0xc) 0/r32/eax
|
|
|
|
c1/shift 4/subop/left %eax 0xa/imm8
|
|
|
|
03/add-> *(ebp+8) 0/r32/eax
|
|
|
|
# eax += location of frame buffer
|
2021-03-16 03:32:26 +00:00
|
|
|
03/add-> *Video-memory-addr 0/r32/eax
|
2021-01-16 04:30:07 +00:00
|
|
|
# *eax = color
|
|
|
|
8b/-> *(ebp+0x10) 1/r32/ecx
|
|
|
|
88/byte<- *eax 1/r32/CL
|
|
|
|
$pixel-on-real-screen:end:
|
2020-12-30 05:08:05 +00:00
|
|
|
# . restore registers
|
2020-12-30 05:16:28 +00:00
|
|
|
59/pop-to-ecx
|
2020-12-30 05:08:05 +00:00
|
|
|
58/pop-to-eax
|
|
|
|
# . epilogue
|
|
|
|
89/<- %esp 5/r32/ebp
|
|
|
|
5d/pop-to-ebp
|
|
|
|
c3/return
|