t-mac.s 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. # mach: all
  2. # output:
  3. # sim: --environment operating
  4. .include "t-macros.i"
  5. start
  6. ;; clear FX
  7. loadpsw2 0x8005
  8. loadacc2 a1 0x7f 0xffff 0xffff
  9. load r8 0xffff
  10. load r9 0x8001
  11. test_macu1:
  12. MACU a1, r9, r8
  13. checkacc2 1 a1 0x80 0x8000 0x7FFE
  14. ;; set FX
  15. loadpsw2 0x8085
  16. loadacc2 a1 0x7f 0xffff 0xffff
  17. load r8 0xffff
  18. load r9 0x8001
  19. test_macu2:
  20. MACU a1, r9, r8
  21. checkacc2 2 a1 0x81 0x0000 0xfffd
  22. ;; clear FX
  23. ldi r2, #0x8005
  24. mvtc r2, cr0
  25. loadacc2 a1 0x7f 0xffff 0xffff
  26. ldi r8, #0xffff
  27. ldi r9, #0x7FFF
  28. test_macsu1:
  29. MACSU a1, r9, r8
  30. checkacc2 3 a1 0x80 0x7FFE 0x8000
  31. ;; set FX
  32. ldi r2, #0x8085
  33. mvtc r2, cr0
  34. loadacc2 a1 0x7f 0xffff 0xffff
  35. ldi r8, #0xffff
  36. ldi r9, #0x7FFF
  37. test_macsu2:
  38. MACSU a1, r9, r8
  39. checkacc2 4 a1 0x80 0xfffd 0x0001
  40. ;; clear FX
  41. ldi r2, #0x8005
  42. mvtc r2, cr0
  43. loadacc2 a1 0x7f 0xffff 0xffff
  44. ldi r8, 0xffff
  45. ldi r9, 0x8001
  46. test_macsu3:
  47. MACSU a1, r9, r8
  48. checkacc2 5 a1 0x7F 0x8001 0x7FFE
  49. ;; set FX
  50. ldi r2, #0x8085
  51. mvtc r2, cr0
  52. loadacc2 a1 0x7f 0xffff 0xffff
  53. ldi r8, #0xffff
  54. ldi r9, #0x8001
  55. test_macsu4:
  56. MACSU a1, r9, r8
  57. checkacc2 6 a1 0x7f 0x0002 0xFFFD
  58. exit0