Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/customboots/boisy/testadd.a @ 3282:5d33751fd9f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
level2/3: Generate motd in makefile so LEVEL is right Also add the NitrOS-9 version because that becomes easy then.
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 19 Apr 2020 14:42:50 +0200
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