crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

experimental: start tie in of retro9 i/o code to putchar/getchar stubs

Browse source 
FossilOrigin-Name: f656e5d148998902ce7693bcbdd89d1bc9ab1b2960f1f2ecfaef4d2b73968c20
This commit is contained in:
crc 2018-01-31 04:21:16 +00:00
parent 757a4045fc
commit 343c381323
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
experimental/386.s
View file

@ -54,10 +54,16 @@ _start:
align 4 align 4
putchar: putchar:
mov eax, [esp-4]
call vEmit
ret ret
align 4 align 4
getchar: getchar:
call key
push eax
call vEmit
pop eax
ret ret
section .text section .text
@ -82,9 +88,6 @@ key:
jz .a ; Ignore 0's jz .a ; Ignore 0's
or dl,dl ; Filter for break code or dl,dl ; Filter for break code
jnz .a ; Ignore break code jnz .a ; Ignore break code
; dup
; call sys_emit
; ret
jmp .done jmp .done
.shift: mov ecx,[edx*4 + .shifts] ; Load the CAPITAL keymap .shift: mov ecx,[edx*4 + .shifts] ; Load the CAPITAL keymap
mov [board],ecx ; Store into BOARD pointer mov [board],ecx ; Store into BOARD pointer