bryce@hoser.berkeley.edu (Bryce Nesbitt) (09/15/87)
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