Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/customboots/boisy/testadd.a @ 2724:05b648103e78 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed dw3.sb to dwio.sb and rbdw3 to rbdw
author Boisy Pitre <boisy.pitre@nuance.com>
date Mon, 30 Jul 2012 19:35:05 -0500
parents 6bc8200fd0ba
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2427
69b4e5d37906 Updates
boisy
parents:
diff changeset
1 tylg set $01 Prgrm+Objct
69b4e5d37906 Updates
boisy
parents:
diff changeset
2 atrv set $80+rev ReEnt+rev
69b4e5d37906 Updates
boisy
parents:
diff changeset
3 rev set $00
69b4e5d37906 Updates
boisy
parents:
diff changeset
4 edition set 5
69b4e5d37906 Updates
boisy
parents:
diff changeset
5
69b4e5d37906 Updates
boisy
parents:
diff changeset
6 psect testadd_a,tylg,atrv,edition,200,start
69b4e5d37906 Updates
boisy
parents:
diff changeset
7
69b4e5d37906 Updates
boisy
parents:
diff changeset
8 vsect
69b4e5d37906 Updates
boisy
parents:
diff changeset
9 a rmb 2
69b4e5d37906 Updates
boisy
parents:
diff changeset
10 b rmb 2
69b4e5d37906 Updates
boisy
parents:
diff changeset
11 endsect
69b4e5d37906 Updates
boisy
parents:
diff changeset
12
69b4e5d37906 Updates
boisy
parents:
diff changeset
13 * capture two parameters
69b4e5d37906 Updates
boisy
parents:
diff changeset
14 start ldd #0000
69b4e5d37906 Updates
boisy
parents:
diff changeset
15 std a,u
69b4e5d37906 Updates
boisy
parents:
diff changeset
16 std b,u
69b4e5d37906 Updates
boisy
parents:
diff changeset
17
69b4e5d37906 Updates
boisy
parents:
diff changeset
18 * if no params, just go straight to multiplication
69b4e5d37906 Updates
boisy
parents:
diff changeset
19 lda ,x
69b4e5d37906 Updates
boisy
parents:
diff changeset
20 cmpa #C$CR
69b4e5d37906 Updates
boisy
parents:
diff changeset
21 beq go
69b4e5d37906 Updates
boisy
parents:
diff changeset
22
69b4e5d37906 Updates
boisy
parents:
diff changeset
23 * get first number
69b4e5d37906 Updates
boisy
parents:
diff changeset
24 lbsr DEC_BIN
69b4e5d37906 Updates
boisy
parents:
diff changeset
25 std a,u
69b4e5d37906 Updates
boisy
parents:
diff changeset
26 leax ,y
69b4e5d37906 Updates
boisy
parents:
diff changeset
27 lbsr TO_NON_SP
69b4e5d37906 Updates
boisy
parents:
diff changeset
28
69b4e5d37906 Updates
boisy
parents:
diff changeset
29 * if no second number, go straight to multiplication
69b4e5d37906 Updates
boisy
parents:
diff changeset
30 cmpb #C$CR
69b4e5d37906 Updates
boisy
parents:
diff changeset
31 beq go
69b4e5d37906 Updates
boisy
parents:
diff changeset
32 lbsr DEC_BIN
69b4e5d37906 Updates
boisy
parents:
diff changeset
33 std b,u
69b4e5d37906 Updates
boisy
parents:
diff changeset
34
69b4e5d37906 Updates
boisy
parents:
diff changeset
35 go
69b4e5d37906 Updates
boisy
parents:
diff changeset
36 orcc #IntMasks
69b4e5d37906 Updates
boisy
parents:
diff changeset
37 top
69b4e5d37906 Updates
boisy
parents:
diff changeset
38 ldd a,u
69b4e5d37906 Updates
boisy
parents:
diff changeset
39 addd b,u
2471
boisy
parents: 2427
diff changeset
40 bra top
2427
69b4e5d37906 Updates
boisy
parents:
diff changeset
41
2471
boisy
parents: 2427
diff changeset
42 endsect