*--------------------------------------
*             AD_TST.ASM
*--------------------------------------
$INCLUDE 'REGS.INC'
*$INCLUDE 'LCD.INC'
$INCLUDE 'SIMLCD.INC'

AD0     EQU    %00000000   ; ingang PE0
*|       |         |            |    |
*|       |         |            |    |
AD7     EQU    %00000111   ; ingang PE7

*  l.s. bit is 20 mV indien VRH = 5,1 V en VRL = 0 V.

*-----------------------------------------
        ORG    $C000
        LDS    #$00FF
        LDX    #REGBAS
        CLRB
        JSR    LCD
*-----------------------------------------
        LDAA   #ADPU      ; enable 
        STAA   OPTION,X   ; AD-convertor

        LDAA   #{SCAN+AD0} ; single mode ; PE0
        STAA   ADCTL,X    ; continu meting.

L00     JSR    DELAY1     ; meting duurt 32 mS.
        LDAB   ADR1,X
*------------------------------------------------
*       omzetting registerinhoud naar spanning.
*       omzetting HEX ---> DEC        
*       omzetting DEC ---> ASCII 
*       afdrukken op display
*       delay ter verbetering van de leesbaarheid

        LDX    #REGBAS
        BRA    L00
*------------------------------------------------
DELAY1  LDAA   #$20
L01     DECA
        BNE    L01
        RTS
*------------------------------------------------