izaya
/
collapseos
Mirror von https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Aktivität
Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
1258 Commits
4 Branches
13MB
Struktur: 7a38c3e228
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „7a38c3e228“
${ noResults }
collapseos/blk/364

15 Zeilen
379B
Originalformat Blame Verlauf 

  1. : C<? 0x06 RAM+ @ ;

  2. : C<

  3.     0x08 RAM+ @  ( 08 == C<* override )

  4.     ?DUP NOT IF 0x0c RAM+ @ THEN  ( 0c == C<* )

  5.     EXECUTE

  6. ;

  7. : , H@ ! H@ 2+ HERE ! ;

  8. : C, H@ C! H@ 1+ HERE ! ;

  9. : BIT@ ( bit addr -- f ) C@ SWAP RSHIFT 0x01 AND ;

  10. : BIT! ( f bit addr -- )

  11.     SWAP 0x01 SWAP LSHIFT ROT ( addr mask f )

  12.     IF OVER C@ OR

  13.     ELSE 0xff XOR OVER C@ AND THEN ( addr flg )

  14.     SWAP C! ;