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
	CW 0x0278         ; IFx8
	ADDARN $AR0, $IX0

	LRI $IX0, #0x0200
	CW 0x0279         ; IFx9
	ADDARN $AR0, $IX0

	LRI $IX0, #0x0400
	CW 0x027A         ; IFxA
	ADDARN $AR0, $IX0

	LRI $IX0, #0x0800
	CW 0x027B         ; 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