1

;*************************;
;*  8253方式0计数器实验  *;
;*************************;
	include io.inc
	.model small
	.stack
	.data
	.code
start:
    mov al,10h    ;设置8253通道0为工作方式0,二进制计数
    mov dx,283h
     out dx,al
     mov dx,280h      ;送计数初值为5
     mov al,5
     out dx,al
	mov ah,al	;用于避免重复显示计数值
again:	call wait
    in al,dx      ;读计数值
	cmp al,ah	;用于避免重复显示计数值
	jz again	;用于避免重复显示计数值
    push ax
	call dispuib        ;调显示子程序
	call dispcrlf
    pop ax
	mov ah,al	;用于避免重复显示计数值
    cmp al,0
     jnz again
     .exit 0           ;退出
wait	proc
	push cx
	mov cx,1000
wait1:	loop wait1
	pop cx
	ret
wait	endp 
    end start

;*******************
;*    8253分频     *
;*******************
	include io.inc
	.model small
	.stack
	.data
	.code
start:

    mov dx,283h      ;向8253写控制字
    mov al,36h       ;使通道0为工作方式3
    out dx,al
    mov ax,1000      ;写入循环计数初值1000
    mov dx,280h
    out dx,al        ;先写入低字节
    mov al,ah
    out dx,al        ;后写入高字节
    ;
    mov dx,283h
    mov al,76h       ;设8253通道1工作方式3
    out dx,al
    mov ax,1000      ;写入循环计数初值1000
    mov dx,281h
    out dx,al        ;先写低字节
    mov al,ah
    out dx,al        ;后写高字节

    .exit 0      ;程序退出
    end start

;********************************
;*  8253定时1秒中断，显示信息   *
;********************************
	include io.inc
	.model small
	.stack
	.data
msg    byte 'one second passed !',0dh,0ah,0
counter    byte 0
intseg    word ?
intoff    word ?
intimr    byte ?
	.code
start:    mov ax,@data
    mov ds,ax

        mov ax,350bh
        int 21h
        mov intseg,es
        mov intoff,bx
        ;
        cli
        push ds
        mov dx,offset intproc
        mov ax,seg intproc
        mov ds,ax
        mov ax,250bh
        int 21h
        pop ds
        ;
        in al,21h
        mov intimr,al
        and al,0f7h
        out 21h,al
        ;
    mov dx,283h      ;向8253写控制字
    mov al,36h       ;使通道0为工作方式3
    out dx,al
    mov ax,1000      ;写入循环计数初值1000
    mov dx,280h
    out dx,al        ;先写入低字节
    mov al,ah
    out dx,al        ;后写入高字节
    ;
    mov dx,283h
    mov al,76h       ;设8253通道1工作方式3
    out dx,al
    mov ax,1000      ;写入循环计数初值1000
    mov dx,281h
    out dx,al        ;先写低字节
    mov al,ah
    out dx,al        ;后写高字节
    ;
        mov byte ptr counter,0
        sti
        ;
again:  cmp byte ptr counter,5
        jb again
        ;
        cli
        mov al,intimr
        out 21h,al
        mov dx,intoff
        mov ax,intseg
        mov ds,ax
        mov ax,250bh
        int 21h
        sti
    .exit 0

intproc proc
        sti
        push ax
        push si
        push ds
        ;
        mov ax,@data
        mov ds,ax
        ;
        inc byte ptr counter
        mov si,offset msg
        call dpstri
        ;
        mov al,20h
        out 20h,al
        pop ds
        pop si
        pop ax
        iret
intproc endp
;
dpstri	proc
    push bx
disp1:    mov al,[si]
    test al,al
    jz disp2
        mov bx,0
        mov ah,0eh
        int 10h
        inc si
        jmp disp1
disp2:    pop bx
    ret
dpstri	endp
    end start