Mercurial > hg > Members > kono > nitros9-code
changeset 2427:69b4e5d37906
Updates
| author | boisy |
|---|---|
| date | Thu, 04 Feb 2010 15:18:04 +0000 |
| parents | 5ade5dd9c3cb |
| children | 7710f25f2efe |
| files | 3rdparty/customboots/boisy/testadd.a 3rdparty/customboots/boisy/testexg.a 3rdparty/customboots/boisy/testnop.a 3rdparty/customboots/boisy/testtfr.a |
| diffstat | 4 files changed, 646 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/customboots/boisy/testadd.a Thu Feb 04 15:18:04 2010 +0000 @@ -0,0 +1,242 @@ +tylg set $01 Prgrm+Objct +atrv set $80+rev ReEnt+rev +rev set $00 +edition set 5 + + psect testadd_a,tylg,atrv,edition,200,start + + vsect +a rmb 2 +b rmb 2 + endsect + +* capture two parameters +start ldd #0000 + std a,u + std b,u + +* if no params, just go straight to multiplication + lda ,x + cmpa #C$CR + beq go + +* get first number + lbsr DEC_BIN + std a,u + leax ,y + lbsr TO_NON_SP + +* if no second number, go straight to multiplication + cmpb #C$CR + beq go + lbsr DEC_BIN + std b,u + +go + orcc #IntMasks +top + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + ldd a,u + addd b,u + lbra top + + + + endsect \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/customboots/boisy/testexg.a Thu Feb 04 15:18:04 2010 +0000 @@ -0,0 +1,145 @@ +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 \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/customboots/boisy/testnop.a Thu Feb 04 15:18:04 2010 +0000 @@ -0,0 +1,114 @@ +tylg set $01 Prgrm+Objct +atrv set $80+rev ReEnt+rev +rev set $00 +edition set 5 + + psect testnop_a,tylg,atrv,edition,200,start + + +start + orcc #IntMasks +top + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + nop + bra top + + endsect
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/customboots/boisy/testtfr.a Thu Feb 04 15:18:04 2010 +0000 @@ -0,0 +1,145 @@ +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 \ No newline at end of file