Mirror of CollapseOS
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

17 lines
642B

  1. ( BOOT DICT: There are only 3 words in the boot dict, but
  2. these words' offset need to be stable, so they're part of
  3. the "stable ABI" )
  4. 'E' A, 'X' A, 'I' A, 'T' A, 0 A,, ( prev ) 4 A, ( len )
  5. H@ XCURRENT ! ( set current tip of dict, 0x42 )
  6. 0 A, ( native )
  7. DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
  8. ;CODE NOP,
  9. CODE (br) ( 0x53 ) L2 BSET ( used in br? )
  10. DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx,
  11. ;CODE NOP, NOP,
  12. CODE (?br) ( 0x67 )
  13. AX POPx, AX AX ORxx, JZ, L2 @ RPCs, ( False, branch )
  14. ( True, skip next 2 bytes and don't branch )
  15. L1 BSET ( loop will jump here ) DX INCx, DX INCx,
  16. ;CODE NOP, NOP, NOP, NOP, NOP,