API tools faq
paste
SirCmpwn

Untitled

SirCmpwn
Apr 26th, 2012
53
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.91 KB | None | 0 0
raw download clone embed print report
  1. ; Some output from my spec 1.5 assembler, needs checking
  2. ; now less retarded
  3.  
  4. :autoinit SET c, SP ; 6c41
  5. SUB c, 0x100 ; 7c43 0100
  6. :autostart JSR main ; 7c20 003a
  7. :autohalt SET PC, autohalt ; 9781
  8. :fib SUB c, 12 ; b043
  9. SET [10 + c], x ; 0e41 000a
  10. SET [8 + c], 1 ; 8641 0008
  11. SET [6 + c], 1 ; 8641 0006
  12. SET [4 + c], 0 ; 8241 0004
  13. SET [0 + c], x ; 0e41 0000
  14. :LBB0_1 SET j, [4 + c] ; 48e1 0004
  15. SET z, [10 + c] ; 48a1 000a
  16. SET O, 0xffff ; 7fa1 ffff
  17. IFE j, z ; 14f2
  18. SET O, 0 ; 83a1
  19. IFG j, z ; 14f4
  20. SET O, 1 ; 87a1
  21. IFN O, 0xffff ; 7fb3 ffff
  22. SET PC, LBB0_4 ; 7f81 0036
  23. SET PC, LBB0_2 ; 7f81 0021
  24. :LBB0_2 SET j, [8 + c] ; 48e1 0008
  25. SET z, [6 + c] ; 48a1 0006
  26. ADD j, z ; 14e2
  27. SET [2 + c], j ; 1e41 0002
  28. SET j, [8 + c] ; 48e1 0008
  29. SET [6 + c], j ; 1e41 0006
  30. SET j, [2 + c] ; 48e1 0002
  31. SET [8 + c], j ; 1e41 0008
  32. SET j, [4 + c] ; 48e1 0004
  33. ADD j, 1 ; 84e2
  34. SET [4 + c], j ; 1e41 0004
  35. SET PC, LBB0_1 ; c781
  36. :LBB0_4 SET x, [8 + c] ; 4861 0008
  37. ADD c, 12 ; b042
  38. SET PC, POP ; 6381
  39. :main SUB c, 2 ; 8843
  40. SET [0 + c], 0 ; 8241 0000
  41. SET x, 5 ; 9461
  42. JSR fib ; 9820
  43. ADD c, 2 ; 8842
  44. SET PC, POP ; 6381
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!