Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/customboots/boisy/testexg.a @ 3044:5a5cff419c0b
Fix up typos in level1 6309 code
Also a bsr needed long branch.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sat, 24 Jan 2015 01:01:55 +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