cpu.asm

CPU特性检测程序源代码 1.17。VB编写的对于系统编程感兴趣的朋友

; ----------------------------------------------------------------------------
; CPU.ASM  Simple program that demonstates use of the 
;	   Too-Much-In-One-So-Don't-Get-Lost(tm) library
;
; Copyright(c) 1992-95 by B-coolWare,  Written by Bobby Z.
; ----------------------------------------------------------------------------
;
; to assemble this:
;
; tasm /t/m cpu
; tlink /t/x cpu
; del cpu.obj
;

	model	tiny, pascal
	.code
	org	100h

	LOCALS
	JUMPS
Start:
	jmp	Prg_Begin
INCLUDE	UNIDEF.INC		; macros
INCLUDE	LSTRING.ASH		; Lstring macro
__WriteStr__	EQU	1	; compile WriteStr routine
__PRINT_CPU__	EQU	1	; compile print_CPU routine
__PRINT_FPU__	EQU	1	; compile print_FPU routine
;__PRINT_STEP__	EQU	1	; compile print_Step routine
__PRINT_SPEED__	EQU	1	; compile MHz reporting routines
INCLUDE	CPU_TYPE.ASH		; include TMi0SDGL(tm) routines
INCLUDE	DOSINOUT.ASH		; include DOS input/output routines

Prg_Begin:
	ldx	Cprt
	call	WriteStr
	ldx	CPUIs
	call	WriteStr
	call	print_CPU
	int	20h
Lstring Cprt,<CPU Type Identifier/Asm  Version 1.17  Copyright(c) 1992-95 by B-coolWare.>,CrLf
Lstring CPUis,<  Processor: >
	end	Start