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

17 lines
295B
Raw Blame History 

  1. CODE @WRSEC ( drv cylsec addr -- f ) EXX, ( protect BC )

  2.     HL POP,

  3.     DE POP,

  4.     BC POP,

  5.     chkPS,

  6.     A 0x35 LDri, ( @WRSEC )

  7.     0x28 RST,

  8.     PUSHZ,

  9. EXX, ( unprotect BC ) ;CODE

  10. CODE @GET ( a -- c f )

  11.     DE POP,

  12.     chkPS,

  13.     A 0x03 LDri, ( @GET )

  14.     0x28 RST,

  15.     PUSHA, PUSHZ,

  16. ;CODE