Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/customboots/boisy/testexg.a @ 2772:0a3f4d8ea6d5
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 | 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