17 lines
566 B
Plaintext
17 lines
566 B
Plaintext
( We process the 0x20 exception by pre-putting a mask in the
|
|
(HL) we're going to write to. If it wasn't a 0x20, we put a
|
|
0xff mask. If it was a 0x20, we put a 0x7f mask. )
|
|
: @GET,
|
|
A 0x03 LDrn, ( @GET )
|
|
DE COM_DRV_ADDR LDddnn,
|
|
0x28 RSTn, JRNZ, L2 FWR ( maybeerror )
|
|
A ORr,
|
|
CZ RETcc, ( Sending a straight NULL ends the comm. ) ;
|
|
: @PUT, ( @PUT that char back )
|
|
C A LDrr,
|
|
A 0x04 LDrn, ( @PUT )
|
|
0x28 RSTn, JRNZ, L3 FWR ( error )
|
|
A C LDrr, ;
|
|
H@ ORG !
|
|
HL DEST_ADDR LDddnn, ( cont. )
|