MIPS is used for
measuring the speed in mips. I tested MIPS with a background process 
(PRIM 1,1000) and get the result of 0.155 mips. If there is one process 
(MIPS) it gives 0.365 mips of speed. I guess this MIPS command is useful 
for testing the performance of different version of a program in LUNIX.

  You can get these LUNIX programs I documented so far from this URL:

http://newton.physics.metu.edu.tr/~filker/cbmsoft.html

  Also I included the uuencoded version of LUNIX MIPS and its
documentation below:

begin 664 MIPS
M__\``0(`'QP&`"Q`````````````````````````````````````````````
M`````````````````$U)4%,@("`@J1`@49!,Q1!,%1%,11%,51!,;1#JJ0"B
M$`8>)A\JQ2"0`N4@)APF'<K0[F#JH`"B$*D`!AXF'RK)"I`"Z0HF'"8=RM#N
M2,BE'(4>I1V%'P4<T-RI`,`$D`*(:`DP(&F0J2X@:9#``[`.J3`@:9#``=`%
MJ3`@:9!H"3`@:9"(T/=@ZNKJZJD`($@0J=F%'JECA1\@3A"E'(4>I1V%'ZD*
MA2`@3A"E'(4>I1V%'ZD-(&F0(%$0J2`@:9"I32!ID*E)(&F0J5`@:9"I4R!I
MD*D-(&F08.KJC0C=K0C=T/NM"=TI#X4?($L0K0C=A2"M"=TI#SCE'[`":0J%
M'PH*91\*92"%(&#JH%NB_[$5$=(I#VG_Y0&*F,T`!ZT`(<K0ZR!D$8C0XV`"
:````````````````````````````````````
`
end



MIPS  
====

 Speed measurement of a C64 system in MIPS


  MIPS stands for Million Instructions Per Second, and it is widely used
for the speed references among different computer systems. As the name
implies it gives the rough number of instructions, performed in a CPU or
CPUs for one second. It is rough because different instuctions may have
different execution times, cache may affect the result (eg. SCPU case),
and the instructions used for the test may not be a good representation
of the parent distrubution of an application program. But it is still
enough to have an approximate idea about the MIPS speed of a machine.

  Below (or above) implementation of the MIPS speed test is for LUnix 
operating system running on a C64. 
 To execute it simply type  'mips'  (without quotes of course) on the 
command line of LUnix shell. 

  I measured the MIPS for different situations in a c128 in c64 mode.
Here are the results:

at 1MHz VIC is on  : 0.365 mips
at 1MHz VIC is off : 0.426 mips
at 2MHz mode       : 0.852 mips
with speedy is on  : 0.511 mips  
with a bg process  : 0.150-0.182 mips

note: speedy runs the c64mode of a c128 at 2MHz in the borders.
      poke53296,1 activates 2MHz mode and poke53296,0 deactivates it.
      poke53265,11 closes the screen (VIC), poke53265,27 opens it again.

      

  Below, you can find commented and disassembled MIPS code for c64.
I coded it using a monitor program, so the source is what you see.


Ilker Ficicilar


;;  MIPS program ( LUnix implementation )
;;
;;  Given jump table is:
;;
;;  1045 : Kips, main routine
;;  1048 : Timing
;;  104b : Dummy test routine
;;  104e : Division
;;  1051 : Floascii routine
;;


; Definition block:
.
.:  1000 00 01 02 00 1f 1c 06 00 2c 40 00 00 00 00 00 00
.:  1010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
.:  1020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
.:  1030 00 00 00 00 00 00 00 00 4d 49 50 53 20 20 20 20
.
; Beginning of the code
;
.,  1040  a9 10      lda #$10
.,  1042  20 51 90   jsr $9051
.,  1045  4c c5 10   jmp $10c5
.,  1048  4c 15 11   jmp $1115
.,  104b  4c 45 11   jmp $1145
.,  104e  4c 55 10   jmp $1055
.,  1051  4c 6d 10   jmp $106d
.,  1054  ea         nop  
;;
;;   This routine simply divides a 2 byte unsigned number by 1 byte unsigned
;;  number. It accepts the numbers at $1e,1f and $20, returns the result in
;;  $14,15 and the residue in A.
;;

.,  1055  a9 00      lda #$00
.,  1057  a2 10      ldx #$10
.,  1059  06 1e      asl $1e
.,  105b  26 1f      rol $1f
.,  105d  2a         rol a
.,  105e  c5 20      cmp $20
.,  1060  90 02      bcc $1064
.,  1062  e5 20      sbc $20
.,  1064  26 1c      rol $1c
.,  1066  26 1d      rol $1d
.,  1068  ca         dex  
.,  1069  d0 ee      bne $1059
.,  106b  60         rts  
.,  106c  ea         nop  
;;
;;   Below is the floascii routine, which takes a 16bit unsigned number
;;  and prints it in a floating point form, to give the sound of
;;  division by 1000. For instance, if you give it a number like 1234
;;  it prints 1.234, or for the number 12 it prints 0.012. But it gives
;;  buggy results if you try to print a number higher than 9999.
;;

.,  106d  a0 00      ldy #$00
.,  106f  a2 10      ldx #$10
.,  1071  a9 00      lda #$00
.,  1073  06 1e      asl $1e
.,  1075  26 1f      rol $1f
.,  1077  2a         rol a
.,  1078  c9 0a      cmp #$0a
.,  107a  90 02      bcc $107e
.,  107c  e9 0a      sbc #$0a
.,  107e  26 1c      rol $1c
.,  1080  26 1d      rol $1d
.,  1082  ca         dex  
.,  1083  d0 ee      bne $1073
.,  1085  48         pha  
.,  1086  c8         iny  
.,  1087  a5 1c      lda $1c
.,  1089  85 1e      sta $1e
.,  108b  a5 1d      lda $1d
.,  108d  85 1f      sta $1f
.,  108f  05 1c      ora $1c
.,  1091  d0 dc      bne $106f
.,  1093  a9 00      lda #$00
.,  1095  c0 04      cpy #$04
.,  1097  90 02      bcc $109b
.,  1099  88         dey  
.,  109a  68         pla  
.,  109b  09 30      ora #$30
.,  109d  20 69 90   jsr $9069
.,  10a0  a9 2e      lda #$2e
.,  10a2  20 69 90   jsr $9069
.,  10a5  c0 03      cpy #$03
.,  10a7  b0 0e      bcs $10b7
.,  10a9  a9 30      lda #$30
.,  10ab  20 69 90   jsr $9069
.,  10ae  c0 01      cpy #$01
.,  10b0  d0 05      bne $10b7
.,  10b2  a9 30      lda #$30
.,  10b4  20 69 90   jsr $9069
.,  10b7  68         pla  
.,  10b8  09 30      ora #$30
.,  10ba  20 69 90   jsr $9069
.,  10bd  88         dey  
.,  10be  d0 f7      bne $10b7
.,  10c0  60         rts  
.,  10c1  ea         nop  
.,  10c2  ea         nop  
.,  10c3  ea         nop  
.,  10c4  ea         nop  
;;
;;   This is the main program. It calls the timing routine, then calculates
;;  the TIPS (thousand instructions per second), and calls the floascii
;;  routine, to print the result in mips.
;;
.,  10c5  a9 00      lda #$00
.,  10c7  20 48 10   jsr $1048
.,  10ca  a9 d9      lda #$d9
.,  10cc  85 1e      sta $1e
.,  10ce  a9 63      lda #$63
.,  10d0  85 1f      sta $1f
.,  10d2  20 4e 10   jsr $104e
.,  10d5  a5 1c      lda $1c
.,  10d7  85 1e      sta $1e
.,  10d9  a5 1d      lda $1d
.,  10db  85 1f      sta $1f
.,  10dd  a9 0a      lda #$0a
.,  10df  85 20      sta $20
.,  10e1  20 4e 10   jsr $104e
.,  10e4  a5 1c      lda $1c
.,  10e6  85 1e      sta $1e
.,  10e8  a5 1d      lda $1d
.,  10ea  85 1f      sta $1f
.,  10ec  a9 0d      lda #$0d
.,  10ee  20 69 90   jsr $9069
.,  10f1  20 51 10   jsr $1051
.,  10f4  a9 20      lda #$20
.,  10f6  20 69 90   jsr $9069
.,  10f9  a9 4d      lda #$4d
.,  10fb  20 69 90   jsr $9069
.,  10fe  a9 49      lda #$49
.,  1100  20 69 90   jsr $9069
.,  1103  a9 50      lda #$50
.,  1105  20 69 90   jsr $9069
.,  1108  a9 53      lda #$53
.,  110a  20 69 90   jsr $9069
.,  110d  a9 0d      lda #$0d
.,  110f  20 69 90   jsr $9069
.,  1112  60         rts  
.,  1113  ea         nop  
.,  1114  ea         nop  
;;
;;   This routine measures the time passed for execution of the dummy
;;  instructions. It starts the TOD timer (if it is already started
;;  there is no problem), the is in the units of tens of second 
;;
.,  1115  8d 08 dd   sta $dd08
.,  1118  ad 08 dd   lda $dd08
.,  111b  d0 fb      bne $1118
.,  111d  ad 09 dd   lda $dd09
.,  1120  29 0f      and #$0f
.,  1122  85 1f      sta $1f
.,  1124  20 4b 10   jsr $104b
.,  1127  ad 08 dd   lda $dd08
.,  112a  85 20      sta $20
.,  112c  ad 09 dd   lda $dd09
.,  112f  29 0f      and #$0f
.,  1131  38         sec  
.,  1132  e5 1f      sbc $1f
.,  1134  b0 02      bcs $1138
.,  1136  69 0a      adc #$0a
.,  1138  85 1f      sta $1f
.,  113a  0a         asl a
.,  113b  0a         asl a
.,  113c  65 1f      adc $1f
.,  113e  0a         asl a
.,  113f  65 20      adc $20
.,  1141  85 20      sta $20
.,  1143  60         rts  
.,  1144  ea         nop  
;;
;;   Here at c200 the dummy test routine executes approximately 
;;  (11*255+4)*91=255619 = 25562*10 = $63D9 * $0a instructions.
;;
.,  1145  a0 5b      ldy #$5b
.,  1147  a2 ff      ldx #$ff
.,  1149  b1 15      lda ($15),y
.,  114b  11 d2      ora ($d2),y
.,  114d  29 0f      and #$0f
.,  114f  69 ff      adc #$ff
.,  1151  e5 01      sbc $01
.,  1153  8a         txa  
.,  1154  98         tya  
.,  1155  cd 00 07   cmp $0700
.,  1158  ad 00 21   lda $2100
.,  115b  ca         dex  
.,  115c  d0 eb      bne $1149
.,  115e  20 64 11   jsr $1164
.,  1161  88         dey  
.,  1162  d0 e3      bne $1147
.,  1164  60         rts  
.,  1165  02         asl???
.,  1166  00         brk  
.,  1167  00         brk 

 
Ilker Ficicilar

---