6-1.asm

来自「TCP_USB试验平台下的几个常见的实验的相应要求与代码」· 汇编 代码 · 共 70 行

DATA SEGMENT
   ADCTL EQU  280H
   TAB DB 100(?)
DATA  ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
    XOR AL,AL
    MOV AX,DATA
    MOV DS,AX
    LEA  DI,TAB
    MOV CX,100
L0:
    MOV DX,ADCTL		;虚写
    MOV AL,0
    OUT DX,AL
    CALL DELAY
    MOV DX,ADCTL
    IN AL,DX
    MOV [DI],AL
    CALL SCREEN
    INC DI
    DEC CX
    CMP CX,0
    JNZ L0
    MOV AH,4CH
     INT 21H
     
     
DELAY PROC NEAR
 L2:MOV BX,10
    MOV CX,0FH
 L1:LOOP L1
    DEC BX
    CMP BX,0
    JNZ L2
    RET 
DELAY ENDP

screen proc near
    mov al,TAB
    mov cl,4
    shr al,cl
    and al,0fh
    cmp al,0ah
    jc hi
    add al,7h
hi:
    add al,30h
    mov dl,al
    mov ah,02h
    int 21h
    mov al,TAB
    and al,0fh
    cmp al,0ah
    jc lo
    add al,7h
lo:
    add al,30h
    mov dl,al
    mov ah,02h
    int 21h
    ret
screen endp  

CODE ENDS
END START