Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/customboots/boisy/testmul.a @ 2772:0a3f4d8ea6d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Found ENDC in wrong location in dwread.asm and dwwrite.asm. Corrected. Moved the native 6309 code in dwread.asm and dwwrite.asm into the H6309 labeled area and changed IFEQ H6309 to IFNE H6309. Also moved the 57600bps 6809 code to the default location. This change had been done in the old dwread.asm and dwwrite.asm files to make it easier to follow. Though these two files were overwritten from the HDBDOS project dwread.asm and dwwrite.asm files. So this conversion needed to be done again so it made the source easier to follow.
author drencor-xeen
date Wed, 23 Jan 2013 12:36:55 -0600
parents 6bc8200fd0ba
children
line wrap: on
line source

tylg           set       $01     Prgrm+Objct
atrv           set       $80+rev ReEnt+rev
rev            set       $00
edition        set       5

               psect     testmul_a,tylg,atrv,edition,200,start

               vsect
multiplicand   rmb       1
multiplier     rmb       1
               endsect

* capture two parameters
start          clr       multiplicand,u
               clr       multiplier,u

* if no params, just go straight to multiplication
               lda       ,x
               cmpa      #C$CR
               beq       go
               
* get first number
               lbsr      DEC_BIN
               stb       multiplicand,u
               leax      ,y
               lbsr      TO_NON_SP

* if no second number, go straight to multiplication
               cmpb      #C$CR
               beq       go
               lbsr      DEC_BIN
               stb       multiplier,u

go               
               orcc      #IntMasks
top               
               ldd       multiplicand,u
               mul
               bra       top

 
               endsect