2020-05-06 12:15:56 +10:00
|
|
|
( 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,
|
2020-06-28 12:01:56 +10:00
|
|
|
A 0x03 LDri, ( @GET )
|
|
|
|
DE COM_DRV_ADDR LDdn,
|
|
|
|
0x28 RST, JRNZ, L2 FWR ( maybeerror )
|
2020-05-06 12:15:56 +10:00
|
|
|
A ORr,
|
2020-06-28 12:01:56 +10:00
|
|
|
CZ RETc, ( Sending a straight NULL ends the comm. ) ;
|
2020-05-06 12:15:56 +10:00
|
|
|
: @PUT, ( @PUT that char back )
|
|
|
|
C A LDrr,
|
2020-06-28 12:01:56 +10:00
|
|
|
A 0x04 LDri, ( @PUT )
|
|
|
|
0x28 RST, JRNZ, L3 FWR ( error )
|
2020-05-06 12:15:56 +10:00
|
|
|
A C LDrr, ;
|
|
|
|
H@ ORG !
|
2020-06-28 12:01:56 +10:00
|
|
|
HL DEST_ADDR LDdn, ( cont. )
|