249 lines
4.8 KiB
Plaintext
249 lines
4.8 KiB
Plaintext
incdir "tests"
|
|
include "dsp_base.inc"
|
|
|
|
test_main:
|
|
CLR $acc0
|
|
CLR $acc1
|
|
CALL test_cond
|
|
; 1. ar0: 9969. ac0.h: 0000. sr: 2224
|
|
|
|
LRI $ac0.h, #0x0050
|
|
CALL test_cond
|
|
; 2. ar0: 9969. ac0.h: 0050. sr: 2224. LRI doesn't change sr.
|
|
|
|
TST $acc0
|
|
CALL test_cond
|
|
; 3. ar0: 9655. ac0.h: 0050. sr: 2230
|
|
|
|
LRI $ac1.h, #0x0050
|
|
ADD $acc0, $acc1 ; Causes acc0 to overflow, and thus also become negative
|
|
CALL test_cond
|
|
; 4. ar0: d655. ac0.h: ffa0. sr: 22ba
|
|
|
|
ADD $acc0, $acc1 ; acc0 is now negative, but not overflowed
|
|
CALL test_cond
|
|
; 5. ar0: 965a. ac0.h: fff0. sr: 22b8
|
|
|
|
ADD $acc0, $acc1 ; Triggers carry
|
|
CALL test_cond
|
|
; 6. ar0: 9695. ac0.h: 0040. sr: 22b1
|
|
|
|
CLR $acc1
|
|
ADD $acc0, $acc1 ; Adding 0 should do nothing
|
|
CALL test_cond
|
|
; 7. ar0: 9655. ac0.h: 0040. sr: 22b0
|
|
|
|
SUB $acc0, $acc1 ; Subtracting 0 sets the carry flag
|
|
CALL test_cond
|
|
; 8. ar0: 9695. ac0.h: 0040. sr: 22b1
|
|
|
|
LRI $ac1.h, #0x0050
|
|
SUB $acc0, $acc1 ; No carry
|
|
CALL test_cond
|
|
; 9. ar0: 965a. ac0.h: fff0. sr: 22b8
|
|
|
|
SUB $acc0, $acc1 ; Carry
|
|
CALL test_cond
|
|
; 10. ar0: 969a. ac0.h: ffa0. sr: 22b9
|
|
|
|
SUB $acc0, $acc1 ; Carry and overflow
|
|
CALL test_cond
|
|
; 11. ar0: d69a. ac0.h: 0050. sr: 22b3
|
|
|
|
SUB $acc0, $acc1 ; Carry
|
|
CALL test_cond
|
|
; 12. ar0: 99a9. ac0.h: 0000. sr: 22a5
|
|
|
|
LRI $ac1.h, #0xffb0 ; -0x50
|
|
SUB $acc0, $acc1 ; No carry or overflow
|
|
CALL test_cond
|
|
; 13. ar0: 9655. ac0.h: 0050. sr: 22b0
|
|
|
|
SUB $acc0, $acc1 ; Overflow, no carry
|
|
CALL test_cond
|
|
; 14. ar0: d655. ac0.h: ffa0. sr: 22ba
|
|
|
|
SUB $acc0, $acc1 ; No carry or overflow
|
|
CALL test_cond
|
|
; 15. ar0: 965a. ac0.h: fff0. sr: 22b8
|
|
|
|
SUB $acc0, $acc1 ; Carry
|
|
CALL test_cond
|
|
; 16. ar0: 9695. ac0.h: 0040. sr: 22b1
|
|
|
|
LRI $ac1.h, #0xff80
|
|
SUB $acc0, $acc1 ; Overflow, no carry
|
|
CALL test_cond
|
|
; 17. ar0: d655. ac0.h: ffc0. sr: 22ba
|
|
|
|
ADD $acc0, $acc1 ; Overflow and carry
|
|
CALL test_cond
|
|
; 18. ar0: d69a. ac0.h: 0040. sr: 22b3
|
|
|
|
LRI $ac1.h, #0xffb0
|
|
ADD $acc0, $acc1 ; No overflow or carry
|
|
CALL test_cond
|
|
; 19. ar0: 965a. ac0.h: fff0. sr: 22b8
|
|
|
|
ADD $acc0, $acc1 ; Carry
|
|
CALL test_cond
|
|
; 20. ar0: 969a. ac0.h: ffa0. sr: 22b9
|
|
|
|
ADD $acc0, $acc1 ; Overflow and carry
|
|
CALL test_cond
|
|
; 21. ar0: d69a. ac0.h: 0050. sr: 22b3
|
|
|
|
ADD $acc0, $acc1 ; Carry
|
|
CALL test_cond
|
|
; 22. ar0: 99a9. ac0.h: 0000. sr: 22a5
|
|
|
|
CLR $acc1
|
|
CMP ; Compare 0 with 0. Results in 0 and carry.
|
|
CALL test_cond
|
|
; 23. ar0: 99a9. sr: 22a5
|
|
|
|
; Logic zero tests
|
|
LRIS $ac0.m, #0x01
|
|
ANDF $ac0.m, #0x0000
|
|
CALL test_cond
|
|
; 24. ar0: a9a9. sr: 22e5
|
|
|
|
ANDCF $ac0.m, #0x0000
|
|
CALL test_cond
|
|
; 25. ar0: a9a9. sr: 22e5
|
|
|
|
ANDF $ac0.m, #0x0001
|
|
CALL test_cond
|
|
; 26. ar0: 99a9. sr: 22a5
|
|
|
|
ANDCF $ac0.m, #0x0001
|
|
CALL test_cond
|
|
; 27. ar0: a9a9. sr: 22e5
|
|
|
|
ANDF $ac0.m, #0x0002
|
|
CALL test_cond
|
|
; 28. ar0: a9a9. sr: 22e5
|
|
|
|
ANDCF $ac0.m, #0x0002
|
|
CALL test_cond
|
|
; 29. ar0: 99a9. sr: 22a5
|
|
|
|
ANDF $ac0.m, #0x0003
|
|
CALL test_cond
|
|
; 30. ar0: 99a9. sr: 22a5
|
|
|
|
ANDCF $ac0.m, #0x0003
|
|
CALL test_cond
|
|
; 31. ar0: 99a9. sr: 22a5
|
|
|
|
CLR $acc0
|
|
NEG $acc0 ; 0 - 0, marked as carry
|
|
CALL test_cond
|
|
; 32. ar0: 99a9. ac0.h: 0000. sr: 22a5
|
|
|
|
LRI $ac0.h, #0x0010
|
|
NEG $acc0
|
|
CALL test_cond
|
|
; 33. ar0: 965a. ac0.h: fff0. sr: 22b8
|
|
|
|
NEG $acc0
|
|
CALL test_cond
|
|
; 34. ar0: 9655. ac0.h: 0010. sr: 22b0
|
|
|
|
LRI $ac0.h, #0xff80
|
|
NEG $acc0 ; -INT_MIN is INT_MIN. This generates an overflow.
|
|
CALL test_cond
|
|
; 35. ar0: d655. ac0.h: ff80. sr: 22ba
|
|
|
|
CMP ; Compare INT_MIN with 0. Carry but no overflow.
|
|
CALL test_cond
|
|
; 36. ar0: 969a. ac0.h: ff80. sr: 22b9
|
|
|
|
MOV $acc1, $acc0
|
|
CALL test_cond
|
|
; 37. ar0: 965a. ac0.h: ff80. sr: 22b8
|
|
|
|
TST $acc1
|
|
CALL test_cond
|
|
; 38. ar0: 965a. ac0.h: ff80. sr: 22b8
|
|
|
|
CLR $acc0
|
|
CMP ; Compare 0 with INT_MIN. Overflow but no carry.
|
|
CALL test_cond
|
|
; 39. ar0: d655. ac0.h: 0000. sr: 22ba
|
|
|
|
; We're done, DO NOT DELETE THIS LINE
|
|
JMP end_of_test
|
|
|
|
; Test all conditionals, setting bits in $AR0 based on it.
|
|
; $AR0 is used because ADDARN does not update flags.
|
|
test_cond:
|
|
LRI $AR0, #0x0000
|
|
|
|
LRI $IX0, #0x0001
|
|
IFGE
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0002
|
|
IFL
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0004
|
|
IFG
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0008
|
|
IFLE
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0010
|
|
IFNZ
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0020
|
|
IFZ
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0040
|
|
IFNC
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0080
|
|
IFC
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0100
|
|
IFx8
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0200
|
|
IFx9
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0400
|
|
IFxA
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x0800
|
|
IFxB
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x1000
|
|
IFLNZ
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x2000
|
|
IFLZ
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x4000
|
|
IFO
|
|
ADDARN $AR0, $IX0
|
|
|
|
LRI $IX0, #0x8000
|
|
IF ; Always true
|
|
ADDARN $AR0, $IX0
|
|
|
|
CALL send_back
|
|
RET
|