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/613

16 lines
505B
Raw Blame History 

  1. BEGIN,

  2.     A 0xff LDri, (HL) A LDrr, ( default mask )

  3.     L1 BSET ( loop2 ) @GET, @PUT,

  4.     0x20 CPi, JRZ, L4 FWR ( escapechar )

  5. 	( not an escape char, just apply the mask and write )

  6.     (HL) ANDr, (HL) A LDrr,

  7.     HL INCd,

  8. JR, AGAIN,

  9. L4 FSET ( escapechar, adjust by setting (hl) to 0x7f )

  10. 7 (HL) RES, JR, L1 BWR ( loop2 )

  11. L2 FSET ( maybeerror, was it an error? )

  12. A ORr, JRZ, L1 BWR ( loop2, not an error )

  13. L3 FSET ( error )

  14. C A LDrr, ( error code from @GET/@PUT )

  15. A 0x1a LDri, ( @ERROR ) 0x28 RST, RET,