izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

trs80: make (key?) non-blocking

This commit is contained in:
Virgil Dupras 2021-01-02 09:15:33 -05:00
parent 475caf35f4
commit 1a48ff047f
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arch/z80/trs80/blk.fs
View File

@ -11,10 +11,10 @@ There is also the RECV program at B612.
( ----- 602 )
1 8 LOADR+
( ----- 603 )
CODE (key?) ( -- c? f ) ( TODO: make non-blocking )
A 0x01 LDri, ( @KEY )
CODE (key?) ( -- c? f )
A 0x08 LDri, ( @KBD )
0x28 RST,
PUSHA, PUSH1,
IFZ, PUSHA, THEN, PUSHZ,
;CODE
CODE (emit) EXX, ( protect BC )
BC POP, ( c == @DSP arg ) chkPS,

5
emul/z80/trs80.c
View File

@ -41,6 +41,11 @@ static void pchookfunc(Machine *m)
wmove(w, y, x-1);
}
break;
case 0x08: // @KBD TODO: make non-blocking
debug_panel();
m->cpu.R1.br.A = wgetch(w);
m->cpu.R1.br.F |= F_Z;
break;
case 0x0f: // @VDCTL
wmove(w, m->cpu.R1.br.H, m->cpu.R1.br.L);
break;