|
1542
|
1 ********************************************************************
|
|
|
2 * MegaRead - Disk Performance Utility
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
1544
|
6 * Modified from an original program by Caveh Jalali
|
|
1542
|
7 *
|
|
|
8 * Edt/Rev YYYY/MM/DD Modified by
|
|
|
9 * Comment
|
|
|
10 * ------------------------------------------------------------------
|
|
1544
|
11 * 01/01 1987/05/30 Bruce Isted (CIS PPN 76625,2273)
|
|
|
12 * Released to the public domain
|
|
1542
|
13 *
|
|
1544
|
14 * 01/00 2004/04/22 Boisy G. Pitre
|
|
|
15 * Ported to NitrOS-9 style, no error on exit
|
|
|
16 *
|
|
|
17 * 01/01 2004/04/22 Rodney V. Hamilton
|
|
|
18 * Added EOF check for floppy
|
|
1528
|
19
|
|
1542
|
20 nam MegaRead
|
|
|
21 ttl Disk Performance Utilty
|
|
|
22
|
|
|
23 IFP1
|
|
|
24 use defsfile
|
|
|
25 ENDC
|
|
|
26
|
|
|
27 tylg set Prgrm+Objct
|
|
|
28 atrv set ReEnt+rev
|
|
1544
|
29 rev set $01
|
|
1542
|
30 edition set 1
|
|
|
31
|
|
|
32 ReadK equ 1024 1024K is 1 megabyte (modify as desired)
|
|
|
33
|
|
|
34 mod eom,name,tylg,atrv,start,size
|
|
|
35
|
|
|
36 org 0
|
|
|
37 KiloBuff rmb $0400
|
|
|
38 rmb 200 stack space
|
|
|
39 size equ .
|
|
|
40
|
|
|
41 name fcs /MegaRead/
|
|
|
42 fcb edition
|
|
|
43
|
|
|
44 start ldx #ReadK
|
|
|
45 loop pshs x save counter
|
|
|
46 leax KiloBuff,u point (X) to buffer
|
|
|
47 ldy #$0400 read 1K
|
|
|
48 clra std input
|
|
|
49 os9 I$Read
|
|
1544
|
50 bcs eofchk
|
|
1542
|
51 puls x recover counter
|
|
|
52 leax -1,x done yet?
|
|
|
53 bne loop no, go get another 1K
|
|
1544
|
54 bra exitok yes, exit
|
|
1554
|
55 eofchk cmpb #E$EOF end of media?
|
|
1544
|
56 bne exit no, a real error
|
|
|
57 exitok clrb
|
|
|
58 exit os9 F$Exit
|
|
|
59
|
|
1542
|
60 emod
|
|
|
61 eom equ *
|
|
|
62 end
|
