OPTION  EQU $1039       :INITIALIZATION OF REGISTERS AND SUBROUTINES
INPUT   EQU $FFAC
OUTPUT  EQU $FFAF
.OUTSTR EQU $FFC7
.OUTCRL EQU $FFC4
ADCTL   EQU $1030
ADR1    EQU $1031
ADR2    EQU $1032
ADR3    EQU $1033
ADR4    EQU $1034
RESULT  FDB $0000
MESSAGE FCC /THE INPUT VOLTAGE IS: /
 FCB $04

 ORG $C000
 LDAB #$80			;7th place bit
 STAB OPTION     	;Start the system by sending OPTION a bit in the 7th place
 LDX #1000
WARMUP  DEX     	;loop for warmup
 BNE WARMUP



START   LDX #MESSAGE
 JSR .OUTSTR    	;Display "The input voltage is:"

 LDX #ADCTL
 LDAA #$01
 STAA ADCTL      ;I'm assuming we'll read from channel A, non-continuous, and only read one channel

WAIT    BRCLR 0,X #$80 WAIT     :WAIT FOR CCF TO SET
 LDAB ADR1        :READ CONTENTS OF ADR1

CONVERT CLRA     :CONVERT HEX TO DECIMAL
 LDX #51
 IDIV
 STX RESULT
 LDX #5
 IDIV
 XGDX
 LDAA RESULT+1
 ADDA #$30       :CONVERT DEC. TO ASCII
 ADDB #$30
 JSR OUTPUT      :DISPLAY THE ANSWER
 LDAA #'.
 JSR OUTPUT
 TBA
 JSR OUTPUT
 LDAA #$20
 JSR OUTPUT
 LDAA #$56
 JSR OUTPUT
 JSR .OUTCRL

INTRPT  CLRA
 JSR INPUT       :GET INPUT
 TSTA
 BEQ INTRPT
 CMPA #$01       :CHECK FOR INTERRUPT SIGNAL
 BEQ DONE        :IF YES GO TO DONE
 BRA START

DONE    RTS
END