izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1619 Commits
4 Branches
13MB
Tree: 532bcc7e78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '532bcc7e78'
${ noResults }
collapseos/arch/z80/trs80/blk/612

17 lines
561B
Raw Blame History 

  1. ( We process the 0x20 exception by pre-putting a mask in the

  2.   (HL) we're going to write to. If it wasn't a 0x20, we put a

  3.   0xff mask. If it was a 0x20, we put a 0x7f mask. )

  4. : @GET,

  5.     A 0x03 LDri, ( @GET )

  6.     DE COM_DRV_ADDR LDdi,

  7.     0x28 RST, JRNZ, L2 FWR ( maybeerror )

  8.     A ORr,

  9.     CZ RETc, ( Sending a straight NULL ends the comm. ) ;

  10. : @PUT, ( @PUT that char back )

  11.         C A LDrr,

  12.         A 0x04 LDri, ( @PUT )

  13.         0x28 RST, JRNZ, L3 FWR ( error )

  14.         A C LDrr, ;

  15. H@ ORG !

  16. HL DEST_ADDR LDdi,                                    ( cont. )