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/sms/blk/622

11 lines
377B
Raw Blame History 

  1. : (spie) DROP ; ( always enabled )

  2. : (spix) ( x -- x, for port B )

  3.     0 SWAP ( rx tx ) 8 0 DO

  4.         ( send current bit to TRB, TR's output bit )

  5.         DUP 7 I - RSHIFT 1 AND _TRB!

  6.         1 _THB! ( CLK hi )

  7.         ( read into rx ) SWAP 1 LSHIFT _D1@ ( tx rx<< x )

  8.         0 _THB! ( CLK lo )

  9.         ( out bit is the 6th ) 6 RSHIFT 1 AND OR

  10.     SWAP LOOP ( rx tx ) DROP ;