izaya
/
collapseos
kopie van https://github.com/hsoft/collapseos.git
1
1
Vork 0
Code Kwesties 0 Publicaties 0 Wiki Activiteit
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.
1577 Commits
4 Branches
13MB
Tree: adea75e50a
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van 'adea75e50a'
${ noResults }
collapseos/blk/287

13 lines
492B
Ruw Blame Geschiedenis 

  1. lblexec BSET L1 FSET ( B284 ) L2 FSET ( B286 )

  2.     ( DE -> wordref )

  3.     LDA(DE), DE INCd, EXDEHL, ( HL points to PFA )

  4.     A ORr, IFZ, JP(HL), THEN,

  5.     A DECr, ( compiled? ) IFNZ, ( no )

  6.     3 CPi, IFZ, ( alias ) LDDE(HL), JR, lblexec BWR THEN,

  7.     IFNC, ( switch )

  8.         LDDE(HL), EXDEHL, LDDE(HL), JR, lblexec BWR THEN,

  9.     ( cell or does. push PFA ) HL PUSH,

  10.     A DECr, JRZ, lblnext BWR ( cell )

  11.     HL INCd, HL INCd, LDDE(HL), EXDEHL, ( does )

  12.     THEN, ( continue to compiledWord )