Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!ucla-cs!zen!bryce
From: bryce@hoser.berkeley.edu (Bryce Nesbitt)
Newsgroups: comp.sys.amiga
Subject: Is the Amiga 1000 faster than the Amiga 500?, the program.
Message-ID: <3738@zen.berkeley.edu>
Date: Mon, 14-Sep-87 17:34:09 EDT
Article-I.D.: zen.3738
Posted: Mon Sep 14 17:34:09 1987
Date-Received: Tue, 15-Sep-87 07:21:24 EDT
Sender: news@zen.berkeley.edu
Reply-To: bryce@hoser.berkeley.edu (Bryce Nesbitt)
Organization: Tubular Transport Devices, Ltd.
Lines: 72
Keywords: A1000, A500, speed, memory, tests, Fat Agnus, expansion
Summary: A real program... not just speculation


begin 644 SpeedT
M```#\P`````````!```````````````L```#Z0```"PL>``$3J[_B`AY``$`H
MO^`!$_P`C`"_X0$3_`#_`+_C`2(\````$"`\``#__TYQ4<C__%')__((>0`!U
M`+_@`1/\`(,`O^$!(CP``!'`(#P``/__3G%1R/_\4<G_\@AY``$`O^`!(CP`Z
M```0(#P``/__3G%1R/_\4<G_\@AY``$`O^`!$_P`C`"_X0%.KO^"3G53<&5ES
@9"!T97-T+"!B>2!"<GEC92!.97-B:71T`````````_*_M
``
end
size 212

;
; Simple delay loop, used to compare RAM boards and absolute CPU speed.
; Use an "external" timer.  See instructions.
;
; Uses direct hardware writes... guaranteed to break on future Amiga
; models.
;
;   Bryce Nesbitt
;   bryce@hoser.Berkeley.EDU
;   ucbvax!hoser!bryce
;
; Usual disclaimer and notes about slime, sleaze and pond-scum apply.
;

jsrlib	MACRO
	xref	_LVO\1
	jsr	_LVO\1(a6)
	ENDM
blink	MACRO
	bchg.b	#1,$bfe001
	ENDM

		move.l	4,a6
		jsrlib	Disable

		blink			;get ready!
		move.b	#$8c,$bfe101	;B
		move.b	#$ff,$bfe301	;DDR
		move.l	#$10,d1
there		move.l	#$ffff,d0
here		nop
		dbra	d0,here
		dbra	d1,there

		blink			;go!
		move.b	#$83,$bfe101
		move.l	#$11c0,d1	;delay a bit more than 10 minutes
there2		move.l	#$ffff,d0
here2		nop
		dbra	d0,here2
		dbra	d1,there2
		blink
		move.l	#$10,d1 	;get ready!
there3		move.l	#$ffff,d0
here3		nop
		dbra	d0,here3
		dbra	d1,there3
		blink
		move.b	#$8c,$bfe101

		jsrlib	Enable
		rts

		dc.b	'Speed test, by Bryce Nesbitt',0



|\ /|  . Ack! (NAK, EOT, SOH)
{O o} . 
 (")	bryce@hoser.berkeley.EDU -or- ucbvax!hoser!bryce
  U