Mercurial > hg > Members > kono > nitros9-code
diff 3rdparty/customboots/boisy/testsync.a @ 2471:6bc8200fd0ba
Updatd
| author | boisy |
|---|---|
| date | Fri, 12 Mar 2010 13:24:13 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/customboots/boisy/testsync.a Fri Mar 12 13:24:13 2010 +0000 @@ -0,0 +1,165 @@ +tylg set $01 Prgrm+Objct +atrv set $80+rev ReEnt+rev +rev set $00 +edition set 5 + + psect testsync_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 + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + sync + bra top + + + + endsect