Mirror of CollapseOS
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
630B

  1. lblexec BSET ( DI -> wordref )
  2. AL [DI] MOVr[], DI INCx, ( PFA )
  3. AL AL ORrr, IFZ, DI JMPr, THEN, ( native )
  4. AL DECr, IFNZ, ( not compiled )
  5. AL DECr, IFZ, ( cell )
  6. DI PUSHx, JMPs, lblnext @ RPCs, THEN,
  7. AL DECr, IFZ, ( does )
  8. DI PUSHx, DI INCx, DI INCx, DI [DI] MOVx[], THEN,
  9. ( alias or switch ) DI [DI] MOVx[],
  10. AL DECr, IFNZ, ( switch ) DI [DI] MOVx[], THEN,
  11. JMPs, lblexec @ RPCs,
  12. THEN, ( continue to compiled )
  13. BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )
  14. DX DI MOVxx, DX INCx, DX INCx, ( --> IP )
  15. DI [DI] MOVx[], JMPs, lblexec @ RPCs,