Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/setbase.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Kreidier C library
author Boisy Pitre <boisy.pitre@nuance.com>
date Thu, 23 May 2013 05:49:13 -0500
parents
children
comparison
equal deleted inserted replaced
2823:ad769d2a03e4 2824:1647f1874cdf
1 * Disassembly by Os9disasm of setbase.r
2
3 section code
4
5 _setbase: pshs u
6 ldu 4,s
7 ldb 7,u
8 bitb #$c0
9 bne L0029
10 leas -32,s
11 leax ,s
12 ldd 8,u
13 pshs d,x
14 clra
15 clrb
16 pshs d
17 lbsr getstat
18 ldb #$40
19 lda 6,s
20 beq L0022
21 ldb #$80
22 L0022 leas 38,s
23 orb 7,u
24 stb 7,u
25 L0029 lda 6,u
26 ora #$80
27 sta 6,u
28 andb #$0c
29 bne L006c
30 ldd 11,u
31 bne L003c
32 ldd #$0100
33 std 11,u
34 L003c ldd 2,u
35 bne L0051
36 ldd 11,u
37 pshs d
38 lbsr ibrk
39 leas 2,s
40 std 2,u
41 cmpd #-1
42 beq L0055
43 L0051 ldb #8
44 bra L0060
45 L0055 leax 10,u
46 stx 2,u
47 ldd #1
48 std 11,u
49 ldb #4
50 L0060 orb 7,u
51 stb 7,u
52 ldd 2,u
53 addd 11,u
54 std 4,u
55 std ,u
56 L006c puls u,pc
57
58 endsect
59