izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 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.
1409 Commits
4 Branches
13MB
Tree: 94ed01086a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '94ed01086a'
${ noResults }
collapseos/blk/810

16 lines
532B
Raw Blame History 

  1. lblexec BSET PC 0x36 - ORG @ 0x34 + ! ( DI -> wordref )

  2.     AL [DI] MOVr[], DI INCx, ( PFA )

  3.     AL AL ORrr, IFZ, DI JMPr, THEN, ( native )

  4.     AL DECr, IFNZ, ( cell or does )

  5.         DI PUSHx, ( push PFA )

  6.         AL DECr, IFZ, ( cell ) JMPs, lblnext @ RPCs, THEN,

  7.         ( does, see B302 )

  8.         DI INCx, DI INCx, DI [DI] MOVx[],

  9.     THEN, ( continue to compiled )

  10.     ( compiled )

  11.     BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )

  12.     DX DI MOVxx, DX INCx, DX INCx, ( --> IP )

  13.     DI [DI] MOVx[],

  14.     JMPs, lblexec @ RPCs,