API tools faq
paste
Guest User

Untitled

a guest
Aug 1st, 2018
3,626
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
M68000 Assembler 0.48 KB | None | 0 0
raw download clone embed print report
  1. LAB1 START 1000
  2. LDX #0
  3. LDA #0
  4. LDT #0
  5. LDS #0
  6. OUTLOOP LDCH STR,X
  7.     STCH CHAR1
  8.     RMO X,T
  9.     LDX #1
  10. INERLOOP LDCH STR,X
  11.     COMP    CHAR1
  12.     JLT     SWAP
  13. J NOSWAP
  14. SWAP STCH CHAR2
  15. LDCH CHAR1
  16. STCH STR,X
  17. RMO X,S
  18. RMO X,A
  19. SUB #1
  20. RMO A,X
  21. LDCH CHAR2
  22. STCH STR,X
  23. LDA #1
  24. STA BOOLEAN
  25. RMO S,X
  26. NOSWAP TIX #4
  27. JLT INERLOOP
  28. LDX #0
  29. LDA #0
  30. COMP BOOLEAN
  31. JLT OUTLOOP
  32. LDX #0
  33. WHILE LDCH STR,X
  34. TIX #4
  35. JLT WHILE
  36. J ENP
  37. STR BYTE C’DCBA'
  38. CHAR1 RESB 1
  39. CHAR2 RESB 1
  40. BOOLEAN WORD 1
  41. ENP END LAB1
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!