ibmlinc.a

汇编编程艺术

		PAGE	60,132
		NAME	IBMLFILE
		TITLE	IBM/L Version 2.1
;============================================



		include	stdlib.a
		includelib stdlib.lib


;	M A C R O S



		.XALL
;============================================
DSEG		segment	para public 'data'
;##
;
@OuterLoopCtr	dw	?
@InnerLoopCtr	dw	?

@XTFlag		DW	0	; 0 =AT
				; 1 =XT -- shr ax,2 will not work
@TimeStart	DW	0	; in ticks since midnight
@TimeStop	DW	0
@Overhead	DW	0

;	M E S S A G E S


DSEG		ends
;
;
;
;
CSEG		segment
		assume	cs:cseg, ds:dseg, es:dseg, ss:sseg
;
		public	PSP
PSP		dw	?
;
;
@Main		proc
		mov	cs:PSP, es		;Save pgm seg prefix
		mov	ax, seg dseg		;Set up the segment registers
		mov	ds, ax
		mov	es, ax
		mov	dx, 0
		MemInit				;Initialize Memory Manager
;
		mov	ax, seg dseg
		mov	ds, ax
		mov	es, ax
		print
		db	cr,lf,lf
		DB 	"           氨槽 IBM/L 2.1 鄄卑",cr,lf,lf
		DB 	"Public Domain Instruction Benchmarking Language",cr,lf
		dB 	"   by Randall Hyde,  inspired by Roedy Green",cr,lf
		DB 	"All times are measured in ticks, accurate "
		db	"only to