SNAD02C
8-CHANNEL 10-BIT ADC
@@:
;;***************************************
@Clock
;; READ DIO and SAVE 1-bit DATA in ad_out_l.3
mov tmp1 #1000b
@Read_DIO
caje #0 @f
mov
or
a
ad_out_l
a
tmp1
mov ad_out_l a
@@:
;;***************************************
@Clock
;; READ DIO and SAVE 1-bit DATA in ad_out_l.2
mov tmp1 #0100b
@Read_DIO
caje #0 @f
mov
or
a
ad_out_l
a
tmp1
mov ad_out_l a
@@:
;;***************************************
@Clock
;; READ DIO and SAVE 1-bit DATA in ad_out_l.1
mov tmp1 #0010b
@Read_DIO
caje #0 @f
mov
or
a
ad_out_l
a
tmp1
mov ad_out_l a
@@:
;;***************************************
@Clock
;; READ DIO and SAVE 1-bit DATA in ad_out_l.0
mov tmp1 #0001b
@Read_DIO
caje #0 @f
mov
or
a
ad_out_l
a
tmp1
mov ad_out_l a
@@:
;;***************************************
@Clock
@OFF_START
endm
;; SET START=1
;;*****************************************************************
;; Read Digital Input:
*
*
;; 8-bit Data Æ (port_h, port_l)
;;*****************************************************************
@Read_Port macro
@P20_Out_mode
@ON_START
;; SWITCH P2 TO OUTPUT MODE
;; SET START=0
@Send_1
@Clock
;; SET COMMAND (101)
@Send_0
@Clock
@Send_1
@Clock
@P20_In_mode ;; SWITCH P2.0 TO INPUT MODE
mov port_l #0
mov port_h #0
;;***************************************
@Clock
;; READ DIO and SAVE 1-bit DATA in port_h.3
mov tmp1
@Read_DIO
#1000b
Version: 1.3
July 31, 2003
21