12b.asm

录音子程序 mov dx,offset news_2 显示放音提示

DATA SEGMENT

    ioport equ 0c000h-280h              ;实验箱驱动默认中断地址为C000H，此处设置偏移量
    ioport1 equ ioport+298h
    ioport2 equ ioport+299h

DATA ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START PROC FAR
STT:PUSH DS
    SUB AX,AX
    PUSH AX
;==============================
    MOV AX,DATA
    MOV DS,AX

    MOV AH,0
    MOV AL,6
    INT 10H

    MOV BH,0
    MOV BL,0
    MOV AH,11
    INT 10H
    MOV BH,1
    MOV BL,1
    MOV AH,11
    INT 10H


    MOV CX,1

CONTROL:MOV DX,ioport1
    MOV AL,0FFH
    OUT DX,AL
    CALL DELAY1S
    IN AL,DX
    MOV DL,AL
    MOV DH,0
    
    MOV AH,12
    MOV AL,3
    INT 10H
    ADD CX,20
;==============================
    MOV AH,0BH
    INT 21H
    CMP AL,00H
    JNE EXIT
    JMP CONTROL

EXIT:MOV AH,4CH
    INT 21H
;==============================
    RET
START ENDP

DELAY1S PROC NEAR
;8086延时1S子程序
     PUSHF
     PUSH BX
     PUSH CX

     MOV BX,3E8H
LP2: MOV CX,0BAH
LP1: PUSHF
     POPF
     LOOP LP1
     DEC BX
     JNZ LP2

     POP CX
     POP BX
     POPF
       
     RET
DELAY1S ENDP

CODE ENDS
END STT