view 3rdparty/customboots/boisy/testmul0000.asm @ 2425:375bbafa44fa

Updated with new tests
author boisy
date Wed, 03 Feb 2010 04:57:52 +0000
parents
children
line wrap: on
line source

         ifp1
         use   os9defs
         endc

tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $00
edition  set   1

         mod   eom,name,tylg,atrv,start,size

stack    rmb   200
size     equ   .

name     fcs   /testmul/
         fcb   edition

start
         orcc  #IntMasks

* set up appropriate registers for test

* measure mul multiplying 0
         lda   #0
         ldb   #0

top
* 100 instructions in series
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         mul
         bra   top

         clrb
         os9   F$Exit

         emod
eom      equ   *
         end