mirror of https://github.com/hsoft/collapseos.git
14 lines
632 B
Plaintext
14 lines
632 B
Plaintext
( kbd - implement (ps2kc) for SMS PS/2 adapter )
|
|
: (ps2kcA) ( for port A )
|
|
( Before reading a character, we must first verify that there
|
|
is something to read. When the adapter is finished filling its
|
|
'164 up, it resets the latch, which output's is connected to
|
|
TL. When the '164 is full, TL is low. Port A TL is bit 4 )
|
|
0xdc PC@ 0x10 AND IF 0 EXIT ( nothing ) THEN
|
|
0x3f PC@ DROP 0b11011101 ( Port A TH output, low ) 0x3f PC!
|
|
0xdc PC@ ( bit 3:0 go in 3:0 ) 0x0f AND ( n )
|
|
0b11111101 ( Port A TH output, high ) 0x3f PC!
|
|
0xdc PC@ ( bit 3:0 go in 7:4 ) 0x0f AND 4 LSHIFT OR ( n )
|
|
( Port A/B reset ) 0xff 0x3f PC!
|
|
;
|