izaya
/
collapseos
spegling av https://github.com/hsoft/collapseos.git
1
1
Förgrening 0
Kod Ärenden 0 Släpp 0 Wiki Aktiviteter
Mirror of CollapseOS
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
1619 Incheckningar
4 Grenar
13MB
Träd: 532bcc7e78
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från '532bcc7e78'
${ noResults }
collapseos/arch/z80/trs80/blk/606

17 lines
295B
Rå Blame Historik 

  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