sy7-3.asm

硬件电路测试参考数据包

;      实验七  A/D转换实验      SY7-3.ASM

DATA    SEGMENT
ADPORT  EQU     298H
INR     DB ?
RESULT  DB ?
DATA    ENDS

STAC    SEGMENT PARA STACK 'STACK'
STA     DB      20 DUP(?)
TOP     EQU     LENGTH STA
STAC    ENDS

CODE    SEGMENT
ASSUME  CS:CODE,DS:DATA,SS:STAC,ES:DATA
START:  MOV     AX,DATA
	MOV     DS,AX
	MOV     AX,STAC
	MOV     SS,AX
	MOV     AX,TOP
	MOV     SP,AX
	MOV     CX,300

LOP0:   MOV     DX,ADPORT
	OUT     DX,AL
	CALL    DELAY2
	IN      AL,DX

LOP:    MOV     BL,AL
	AND     AL,0F0H
	PUSH    CX
	MOV     CL,04H
	SHR     AL,CL
	POP     CX
	ADD     AL,30H
	CMP     AL,39H
	JBE     LOP1
	ADD     AL,07H
LOP1:   MOV     DL,AL
	MOV     AH,02H
	INT     21H

	MOV     AL,BL
	AND     AL,0FH
	ADD     AL,30H
	CMP     AL,39H
	JBE     LOP2
	ADD     AL,07H
LOP2:   MOV     DL,AL
	MOV     AH,02H
	INT     21H

	MOV     DL,20H
	MOV     AH,02H
	INT     21H
	INT     21H

	PUSH    AX
	PUSH    DX
	MOV     DL,0FFH
	MOV     AH,06H
	INT     21H
	POP     DX
	POP     AX
	JZ      LOP0

	MOV     AX,4C00H
	INT     21H

DELAY1  PROC    NEAR
	PUSH    CX
	MOV     CX,0F000H
	LOOP    $
	POP     CX
	RET
DELAY1  ENDP
DELAY2  PROC    NEAR
	PUSH    AX
	PUSH    CX
	MOV     CX,020H
DL21:   CALL    DELAY1
	LOOP    DL21
	POP     CX
	POP     AX
	RET
DELAY2  ENDP

CODE    ENDS
	END     START