Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/pflinit.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 pflinit.r
2
3 * class D external label equates
4
5 D003b equ $003b
6
7 section bss
8
9 * Uninitialized data (class B)
10 B0000 rmb 20
11 * Initialized Data (class G)
12 G0000 fcb $3b
13 fcb $9a
14 fcb $ca
15 fcb $00
16 fcb $05
17 fcb $f5
18 fcb $e1
19 fcb $00
20 fcb $00
21 fcb $98
22 fcb $96
23 fcb $80
24 fcb $00
25 fcb $0f
26 fcb $42
27 fcb $40
28 fcb $00
29 fcb $01
30 fcb $86
31 fcb $a0
32 fcb $00
33 fcb $00
34 fcb $27
35 fcb $10
36 fcb $00
37 fcb $00
38 fcb $03
39 fcb $e8
40 fcb $00
41 fcb $00
42 fcb $00
43 fcb $64
44 fcb $00
45 fcb $00
46 fcb $00
47 fcb $0a
48
49 endsect
50
51 section code
52
53 pflinit: rts
54 pflong: pshs u
55 leau B0000,y
56 pshs u
57 ldb 7,s
58 cmpb #$64
59 beq L0074
60 cmpb #$6f
61 beq L0023
62 cmpb #$78
63 beq L0049
64 cmpb #$58
65 beq L0049
66 lda #$6c
67 std ,u++
68 L001f clr ,u
69 puls d,u,pc
70 L0023 leax 8,s
71 L0025 ldb 3,x
72 andb #7
73 addb #$30
74 stb ,u+
75 ldb #3
76 bsr L0035
77 bne L0025
78 bra L006b
79 L0035 lsr ,x
80 ror 1,x
81 ror 2,x
82 ror 3,x
83 decb
84 bne L0035
85 lda ,x
86 ora 1,x
87 ora 2,x
88 ora 3,x
89 rts
90 L0049 andb #$20
91 pshs b
92 leax 9,s
93 L004f ldb 3,x
94 andb #$0f
95 pshs b
96 lda #$30
97 cmpb #9
98 ble L005f
99 lda #$37
100 adda 1,s
101 L005f adda ,s+
102 sta ,u+
103 ldb #4
104 bsr L0035
105 bne L004f
106 leas 1,s
107 L006b ldx ,s
108 clr ,u
109 lbsr frevers
110 puls d,u,pc
111 L0074 ldb 8,s
112 bpl L00a3
113 ldd #0
114 subd 10,s
115 std 10,s
116 ldd #0
117 sbcb 9,s
118 sbca 8,s
119 std 8,s
120 cmpd #$8000
121 bne L009f
122 ldd 2,x
123 bne L009f
124 leax >L00f1,pcr
125 L0096 lda ,x+
126 sta ,u+
127 bne L0096
128 L009c lbra L001f
129 L009f ldb #$2d
130 stb ,u+
131 L00a3 leax G0000,y
132 clra
133 ldb #$0a
134 pshs a
135 pshs d
136 bra L00e3
137 L00b0 inc ,s
138 L00b2 ldd 13,s
139 subd 2,x
140 std 13,s
141 ldd 11,s
142 sbcb 1,x
143 sbca ,x
144 std 11,s
145 bcc L00b0
146 ldd 13,s
147 addd 2,x
148 std 13,s
149 ldd 11,s
150 adcb 1,x
151 adca ,x
152 std 11,s
153 ldb ,s
154 tst 2,s
155 bne L00db
156 tstb
157 beq L00df
158 inc 2,s
159 L00db addb #$30
160 stb ,u+
161 L00df leax 4,x
162 clr ,s
163 L00e3 dec 1,s
164 bne L00b2
165 ldb 14,s
166 addb #$30
167 stb ,u+
168 leas 3,s
169 bra L009c
170 L00f1 blt L0125
171 leay -12,y
172 pulu b,x,y
173 fcb $38
174 leau -10,y
175 pshs dp,x,y
176 fcb $00
177
178 endsect
179