izaya
/
collapseos
espelhamento de https://github.com/hsoft/collapseos.git
1
1
Fork 0
Código Issues 0 Versões 0 Wiki Atividade
Mirror of CollapseOS
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
1411 Commits
4 Branches
13MB
Tag: 49d7a7f435
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de 49d7a7f435
${ noResults }
collapseos/blk/671

17 linhas
537B
Original Anotar Histórico 

  1. ( L1 LBL! .. L1 ' RJMP LBL, )

  2. : LBL! ( l -- ) PC SWAP ! ;

  3. : LBL, ( l op -- ) SWAP @ 1- SWAP EXECUTE A,, ;

  4. : SKIP, PC 0 A,, ;

  5. : TO, ( opw pc )

  6.     ( warning: pc is a PC offset, not a mem addr! )

  7.     2 * ORG @ + PC 1- H@ ( opw addr tgt hbkp )

  8.     ROT HERE ! ( opw tgt hbkp ) SWAP ROT EXECUTE H@ ! ( hbkp )

  9.     HERE ! ;

  10. ( L1 FLBL, .. L1 ' RJMP FLBL! )

  11. : FLBL, ( l -- ) LBL! 0 A,, ;

  12. : FLBL! ( l opw -- ) SWAP @ TO, ;

  13. : BEGIN, PC ; : AGAIN?, ( op ) SWAP 1- SWAP EXECUTE A,, ;

  14. : AGAIN, ['] RJMP AGAIN?, ;

  15. : IF, ['] BREQ SKIP, ; : THEN, TO, ;