922.asm

汇编 实现DA转换?惚? 实现DA转换

STACK   SEGMENT PARA STACK 'STACK'
        DB 256 DUP(0)
STACK   ENDS

CODE    SEGMENT PARA PUBLIC 'CODE'
        ASSUME CS:CODE

START:  MOV CX,0
        MOV AL,6
        CALL SETMODE  
        
  BEGIN:MOV AX,0
        MOV DX,2C0H
        OUT DX,AL  
        
     LA:MOV DX,2C1H
        IN  AL,DX
        CMP AL,0
        JZ  LA
        
        MOV DX,2C0H
        IN  AL,DX
       
        MOV DX,AX
        ADD DX,20
        MOV AL,1
        CALL SETXY
        INC CX
        CALL DELAY
        CMP CX,320
        JC  LB
        MOV CX,0
        MOV AL,6
        CALL SETMODE
     LB:MOV AH,1
        INT 16H
        JZ  BEGIN
        MOV AL,2
        CALL SETMODE
        MOV AH,4CH
        INT 21H

SETMODE PROC NEAR
    	MOV AH,0
	    INT 10H
	    RET
SETMODE ENDP

SETXY   PROC NEAR
        MOV AH,0CH
        INT 10H
        RET
SETXY   ENDP

DELAY   PROC NEAR
        PUSH BX
        PUSH CX
        MOV BX,04H
    LP2:MOV CX,0FFFH
    LP3:DEC CX
        JNZ LP3
        DEC BX
        JNZ LP2
        POP CX
        POP BX
        RET
DELAY   ENDP

CODE    ENDS
        END START