izaya
/
collapseos
peilaus alkaen https://github.com/hsoft/collapseos.git
1
1
Fork 0
Koodi Ongelmat 0 Julkaisut 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.
1411 Commitit
4 Branchit
13MB
Puu: 49d7a7f435
Branchit Tagit
${ item.name }
Create branch ${ searchTerm }
from '49d7a7f435'
${ noResults }
collapseos/blk/641

17 lines
491B
Raaka Blame Historia 

  1. : (ps2kcB) ( for port B )

  2. 	( Port B TL is bit 2 )

  3.     0xdd PC@ 0x04 AND IF 0 EXIT ( nothing ) THEN

  4.     0x3f PC@ DROP 0b01110111 ( Port B TH output, low ) 0x3f PC!

  5.     0xdc PC@ ( bit 7:6 go in 1:0 ) 6 RSHIFT ( n )

  6.     0xdd PC@ ( bit 1:0 go in 3:2 ) 0x03 AND 2 LSHIFT OR ( n )

  7.     0b11110111 ( Port B TH output, high ) 0x3f PC!

  8.     0xdc PC@ ( bit 7:6 go in 5:4 ) 0xc0 AND 2 RSHIFT OR ( n )

  9.     0xdd PC@ ( bit 1:0 go in 7:6 ) 0x03 AND 6 LSHIFT OR ( n )

  10. 	( Port A/B reset ) 0xff 0x3f PC!

  11. ;

  12. 

  13. 

  14. 

  15.