|
2824
|
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
|
