;//*****************************************************
;文件名: Voice for 8088

;功能: 音頻驅(qū)動(dòng)實(shí)驗(yàn)

;接線: 用導(dǎo)線連接語音接口模塊的VOICE到8255模塊的PC0；
;      用導(dǎo)線連接CPU模塊的200H到8255模塊的CS_8255。
;//*****************************************************

PA8255    EQU 200H        ;8255PA口地址
PB8255    EQU 201H        ;8255PB口地址

PC8255    EQU 202H        ;8255PC口地址
PCTL8255  EQU 203H        ;8255控制口地址

CODE    SEGMENT
ASSUME  CS:CODE,DS:CODE
START:   
        PUSH    CS
        POP     DS                           
        MOV     DX,PCTL8255;設(shè)置8255口為輸出口
        MOV     AL,80H
        OUT     DX,AL
BEGIN: 

        MOV     CX,020H
LOW:
        MOV     DX,PCTL8255        
        MOV     AL,00H     ;PC0:DIN 置“0”
       	OUT     DX,AL 
       	CALL    DELAY1
    
        MOV     DX,PCTL8255        
        MOV     AL,01H     ;PC0:DIN 置“1”
       	OUT     DX,AL 
       	CALL    DELAY1   
       	LOOP    LOW
        MOV     CX,030H       	
HIGH:	
        MOV     DX,PCTL8255        
        MOV     AL,00H     ;PC0:DIN 置“0”
       	OUT     DX,AL 
       	CALL    DELAY2
    
        MOV     DX,PCTL8255        
        MOV     AL,01H     ;PC0:DIN 置“1”
       	OUT     DX,AL 
       	CALL    DELAY2
       	LOOP    HIGH

       	JMP     BEGIN    	
       	
delay1   proc   near
         push   cx
         mov    cx,03FFh
         loop   $
         pop    cx
         ret
         delay1 endp
         
delay2   proc   near
         push   cx
         mov    cx,02FFh
         loop   $
         pop    cx
         ret
         delay2 endp         

	 	 CODE  ENDS
END      START