view 3rdparty/customboots/boisy/testtfr.a @ 3210:6353bb024571

Created makefile and defsfile for NoCan RAMMER module driver and descriptor Updated rammer.asm in the NoCan driver folder to build the NoCan version of the Driver Updated r0.asm file to create the 6MB version of the descriptor. The makefile creates a disk image with two sets of the required drivers for the 6309 and 6809's in their respective module folders. /NITROS9/6309_L2/MODULES/RBF for the 6309 files and /NITROS9/6809_L2/MODULES/RBF for the 6809 files. This will make it easier for doing a dsave from this disk image into a normal distro disk image so people have these drivers ready for when new memory upgrades allow compatible usage of the NoCan registers.
author David Ladd <drencor-xeen@users.sourceforge.net>
date Wed, 20 Dec 2017 15:15:49 -0600
parents 69b4e5d37906
children
line wrap: on
line source

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

               psect     testtfr_a,tylg,atrv,edition,200,start

               vsect
reg1           rmb       2
reg2           rmb       2
               endsect

* capture two parameters
start          ldd       #0000
               std       reg1,u
               std       reg2,u

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

* if no second number, go straight to multiplication
               cmpb      #C$CR
               beq       go
               lbsr      DEC_BIN
               std       reg2,u
               
               ldx       reg1,u
               ldy       reg2,u

go
               orcc      #IntMasks
top            
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               tfr       x,y
               lbra      top
               

 
               endsect