Show progress

tester-adc-sbc.mac

@@ -1,6 +1,9 @@
 .EXTERN ALL
 
 test_adc:
+	MOV	#what_adc,R0
+	CALL	print_start
+
 ; initial value
 	MOV	#32769.,R0
 ; number of additions
@@ -100,4 +103,8 @@ test_sbc_failed:
 	
 sbc_fail_text:
 	.ASCII	"SBC handling FAIL\r\n\x00"
+
+what_adc:
+	.ASCII	"ADC/SBC test\r\n\x00"
+
 .EVEN

tester-addressing.mac

@@ -1,6 +1,9 @@
 .EXTERN ALL
 
 test_addr_0:
+	MOV	#what_address,R0
+	CALL	print_start
+
 ; address mode 0 
 ; b1010101001010101
 ; 16 bit put/get
@@ -27,6 +30,7 @@ test_addr_0b_ok:
 	JMP	test_addr_fail
 
 test_addr_0c_ok:
+test_addr_1:
 ; address mode 1
 ; indirect get 16 bit
 	MOV	#v1234,R0
@@ -55,6 +59,7 @@ test_addr_1b_ok:
 	JMP	test_addr_fail
 
 test_addr_1c_ok:
+test_addr_2:
 ; address mode 2
 ; value did not change
 	MOV	#v1234,R0
@@ -91,6 +96,7 @@ test_addr_2b1_ok:
 	JMP	test_addr_fail
 
 test_addr_2b2_ok:
+test_addr_3:
 ; verify contents of addr1234 first
 	MOV	addr1234,r0
 	CMP	#1234.,(R0)
@@ -107,8 +113,59 @@ test_addr_3b_verify_ok:
 	JMP	test_addr_fail
 
 test_addr_3b2_ok:
-	; TODO
+test_addr_4:
 
+	; TODO
+; address mode 4
+; value did not change
+	MOV	#v1234,R0
+	MOV 	-(R0),R1
+	CMP	#4455.,R1
+	BEQ	test_addr_4a1_ok
+	MOV	#14.,R0
+	JMP	test_addr_fail
+;
+test_addr_4a1_ok:
+; address drecreased 2 bytes
+	MOV	#v4455before,R2
+	CMP	R0,R2
+	BEQ	test_addr_4a2_ok
+	MOV	#15.,R0
+	JMP	test_addr_fail
+
+test_addr_4a2_ok:
+; value did not change
+	MOV	#v1234,R0
+	MOVB 	-(R0),R1
+	CMPB	#17.,R1
+	BEQ	test_addr_4a3_ok
+	MOV	#16.,R0
+	JMP	test_addr_fail
+
+test_addr_4a3_ok:
+test_addr_5:
+; TODO
+
+
+test_addr_6:
+	MOV	#v1234,R0
+	MOV	2(R0),R1
+	CMP	#4321.,R1
+	BEQ	test_addr_6_ok
+	MOV	#17.,R0
+	JMP	test_addr_fail
+
+test_addr_6_ok:
+test_addr_7:
+; index deferred
+	MOV	#addr1234,R0
+	MOV	@2(R0),R1
+	CMP	#4321.,R1
+	BEQ	test_addr_7_ok
+	MOV	#18.,R0
+	JMP	test_addr_fail
+
+test_addr_7_ok:
 	RET
 
 test_addr_fail:
@@ -120,8 +177,13 @@ test_addr_fail:
 
 test_addr_fail_txt:
 	.ASCII	"addressing handling FAIL\r\n\x00"
+
+what_address:
+	.ASCII	"addressing tests\r\n\x00"
+
 .EVEN
 
+v4455before:	DW	4455.
 v1234:	DW	1234.
 v1234after:	DW	4321.
 

tester-psw.mac

@@ -1,6 +1,9 @@
 .EXTERN ALL
 
 psw_store_retrieve:
+	MOV	#what_psw,R0
+	CALL	print_start
+
 ; set PSW to all bits set
 	MOV	#65535,R1
 	MTPS	R1
@@ -198,4 +201,8 @@ psw_store_retrieve_fail_text:
 
 psw_trigger_fail_text:
 	.ASCII	"PSW trigger fail\r\n\x00"
+
+what_psw:
+	.ASCII	"PSW handling test\r\n\x00"
+
 .EVEN