view 3rdparty/customboots/boisy/testexg.a @ 3140:03b580a02945

Allow CoCo3FPGA-specific build of superdesc.asm Added new conditional CC3FPGA and code to "level1/modules/superdesc.asm" to reflect changes needed to build the new SD card descriptors for the Coco3FPGA.
author Bill Pierce <merlinious999@gmail.com>
date Sat, 04 Feb 2017 11:06:26 +0100
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     testexg_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            
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               exg       x,y
               lbra      top
               

 
               endsect