KEK/tester-adc-sbc.mac
folkert van heusden 337bbc836d ADD/ADC
2022-03-13 14:55:47 +01:00

44 lines
493 B
Text

.EXTERN ALL
test_adc:
; initial value
MOV #32769.,R0
; number of additions
MOV #257.,R1
test_adc_loop:
ADD #1003.,R0
ADC R0
DEC R1
TST R1
BNE test_adc_loop
CMP #28400.,R0
BNE test_adc_failed
; test 8 bit
MOV #32769.,R0
MOV #257.,R1
test_adc_loop8b:
ADD #13.,R0
ADCB R0
DEC R1
TST R1
BNE test_adc_loop8b
CMP #36110.,R0
BNE test_adc_failed
RET
test_adc_failed:
MOV #adc_fail_text,R0
CALL print_start
RET
adc_fail_text:
.ASCII "ADC handling FAIL\r\n\x00"
.EVEN