sw.asm

一个微机原理要做的试验程序

;386以上微机适用
;纯dos下才能使用
;tasm4.1或以上编译
;*********************;
;*       8253        *;
;*********************;
 io_plx_device_id	equ 05406h	;TPC卡设备ID
 io_plx_vendor_id	equ 010b5h	;TPC卡厂商ID
 IO_PLX_SUB_ID		EQU 0905410B5H	;TPC卡子设备及厂商ID
 pa55    equ 218h-200H	;8255端口地址
 pb55    equ 219h-200H
 pc55    equ 21ah-200H
 p55ctl  equ 21bh-200H
data segment
 io_base_address	db 4 DUP(0)	;TPC卡I/O基地址暂存空间
 pcicardnotfind		db 0dh,0ah,'TPC pci card not find or address/interrupt error !!!',0dh,0ah,'$'
 iobaseaddress		db 0dh,0ah,'TPC pci card I/O Base Address : ','$'
 enter_return		db 0dh,0ah,'$'
 tab  db '1  2  3  4  5  6  7  8  9  10 11 12 ',0dh,0ah,'$'
 mess db 'Please enter any key when ready!',0dh,0ah,'$'
 mes db 0dh,0ah,'$'
data ends
stacks segment
 db 100 dup (?)
 sta dw 50 dup(?)
stacks ends
code segment
        assume cs:code,ds:data,ss:stacks,es:data
start:
.386
        cli
        mov ax,data
        mov ds,ax
        mov es,ax
        mov ax,stacks
        mov ss,ax
	call	findtpc		;查找TPC卡资源并显示

	mov ah,09h
	mov dx,offset mess
	int 21h
	;mov ah,01h
	;int 21h

goon:
	MOV  DX,word ptr io_base_address	;初始化8255
	add  dx,p55ctl
	mov al,8bh
	out dx,al
	MOV  DX,word ptr io_base_address
	add  dx,pb55
	in al,dx
	mov bh,al
	MOV  DX,word ptr io_base_address
	add  dx,pc55
	in al,dx
	mov bl,al
	mov ah,09h
	mov dx,offset mes
	int 21h

	mov cl,04h
	shr bh,cl
a1:     mov dl,bh
	call disp
	shr bh,1
	dec cl
	jnz a1
	mov cx,0008h
bbb:    mov dl,bl
	call disp
	shr bl,1
	loop bbb

        sti
        mov ah,01h
        int 16h
	jz goon

	mov ax,4c00h
	int 21h		;退出

disp proc near
	push ax
	and dl,01h
	add dl,30h
	mov ah,02h
	int 21h
	mov dl,20h
	int 21h
	int 21h
	pop ax
	ret
disp endp

findtpc proc near		;查找TPC卡资源并显示
	pushad
	pushfd
	MOV	AX,0B101H
	INT	1AH
	JC	findtpc_notfind		;检查PCI BIOS是否存在

	MOV	AX,0B102H
	MOV	CX,io_plx_device_id
	MOV	DX,io_plx_vendor_id
	MOV	SI,0
	INT	1AH
	JC	findtpc_notfind		;检查TPC卡是否安装,设备号、厂商号

	MOV	AX,0B10AH
	MOV	DI,02CH
	INT	1AH
	JC	findtpc_notfind
	CMP	ECX,IO_PLX_SUB_ID
	JNZ	findtpc_notfind		;检查TPC卡是否安装,子设备号、厂商号

	MOV	AX,0B10AH
	MOV	DI,18H
	INT	1AH
	JC	findtpc_notfind		;读TPC卡I/O基址信息
	mov	dword ptr io_base_address,ecx
	and	ecx,1
	jz	findtpc_notfind		;检查是否为i/o基址信息
	mov	ecx,dword ptr io_base_address
	and	ecx,0fffffffeh
	mov	dword ptr io_base_address,ecx	;去除i/o指示位并保存

	mov	dx,offset iobaseaddress		;显示i/o提示信息
	mov	ah,09h
	int	21h
	mov	ax,word ptr io_base_address
	call	dispword			;显示i/o基地址

	mov	dx,offset enter_return		;加回车符,换行符
	mov	ah,09h
	int	21h
	popfd
	popad
	ret
findtpc_notfind:
	mov dx,offset pcicardnotfind		;显示未找到tpc卡提示信息
	mov ah,09h
	int 21h
	mov ax,4c00h
	int 21h		;退出
findtpc endp

dispword proc near		;显示子程序
	push dx
	push cx
	push bx
	mov cx,4
	mov bx,16
dispword_loop1:
	push ax
	push cx
	sub bx,4
	mov cx,bx
	shr ax,cl
	and al,0fh	;首先取低四位
	mov dl,al
	cmp dl,9	;判断是否<=9
	jle dispword_num		;若是则为'0'-'9',ASCII码加30H
	add dl,7	;否则为'A'-'F',ASCII码加37H
dispword_num:
	add dl,30h
	mov ah,02h	;显示
	int 21h
	pop cx
	pop ax
	loop dispword_loop1
	pop bx
	pop cx
	pop dx
	ret		;子程序返回
dispword endp
code ends
end start