izaya
/
collapseos
mirror da https://github.com/hsoft/collapseos.git
1
1
Forka 0
Codice Problemi 0 Rilasci 0 Wiki Attività
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 Commit
4 Rami (Branch)
13MB
Albero (Tree): 532bcc7e78
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da '532bcc7e78'
${ noResults }
collapseos/blk/308

17 lines
416B
Originale Blame Cronologia 

  1. CODE ROT ( a b c -- b c a )

  2.     HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,

  3.     DE PUSH, ( B ) HL PUSH, ( C ) IY PUSH, ( A )

  4. ;CODE

  5. CODE ROT> ( a b c -- c a b )

  6.     HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,

  7.     HL PUSH, ( C ) IY PUSH, ( A ) DE PUSH, ( B )

  8. ;CODE

  9. CODE DUP ( a -- a a )

  10.     HL POP, chkPS,

  11.     HL PUSH, HL PUSH,

  12. ;CODE

  13. CODE ?DUP

  14.     HL POP, chkPS, HL PUSH,

  15.     HLZ, IFNZ, HL PUSH, THEN,

  16. ;CODE