Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/packages/sierra/objs_lsl/scrn.asm @ 3295:6b7a7b233925 default tip
makefile: Allow PORTS with level1/2 mix
https://sourceforge.net/p/nitros9/feature-requests/10/
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Tue, 19 Apr 2022 18:12:17 +0200 |
| parents | cacdf4a5aee1 |
| children |
| rev | line source |
|---|---|
| 2529 | 1 ******************************************************************** |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
2 * scrn - Kings Quest III screen module |
| 2529 | 3 * |
| 4 * $Id$ | |
| 5 * | |
| 6 * Note the header shows a data size of 0 called from the sierra module | |
| 7 * and accesses data set up in that module. | |
| 8 * | |
| 9 * Header for : scrn | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
10 * Module size: $7CC #1996 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
11 * Module CRC : $887015 (Good) |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
12 * Hdr parity : $E3 |
| 2529 | 13 * Exec. off : $0012 #18 |
| 14 * Data size : $0000 #0 | |
| 15 * Edition : $00 #0 | |
| 16 * Ty/La At/Rv: $11 $81 | |
| 17 * Prog mod, 6809 Obj, re-ent, R/O | |
| 18 * | |
| 19 * Edt/Rev YYYY/MM/DD Modified by | |
| 20 * Comment | |
| 21 * ------------------------------------------------------------------ | |
| 22 * 0 2003/03/06 Paul W. Zibaila | |
| 23 * Disassembly of original distribution. | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
24 * |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
25 * 1 2010/04/10 Robert Gault |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
26 * Disassembly of Leisure Suit Larry version and transfer of comments |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
27 * from Paul's disassembly. |
| 777 | 28 |
| 2529 | 29 nam scrn |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
30 ttl program module |
| 2529 | 31 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
32 * Disassembled 2010/04/10 11:01:53 by Disasm v1.5 (C) 1988 by RML |
| 2529 | 33 |
| 34 ifp1 | |
| 35 use defsfile | |
| 36 endc | |
| 37 | |
| 38 tylg set Prgrm+Objct | |
| 39 atrv set ReEnt+rev | |
| 40 rev set $01 | |
| 41 | |
| 42 mod eom,name,tylg,atrv,start,size | |
| 43 | |
| 44 * equates for common data used in this module | |
| 45 | |
| 46 u0012 EQU $0012 map block value (word) | |
| 47 u001C EQU $001C | |
| 48 u001E EQU $001E | |
| 49 u0024 EQU $0024 | |
| 50 u002C EQU $002C | |
| 51 u0030 EQU $0030 | |
| 52 u0038 EQU $0038 | |
| 53 u003E EQU $003E | |
| 54 u0040 EQU $0040 | |
| 55 u0041 EQU $0041 | |
| 56 u0042 EQU $0042 Sierra process descriptor block | |
| 57 u0043 EQU $0043 Sierra 2nd 8K data block | |
| 58 u0045 EQU $0045 flag for palettes in sierra | |
| 59 u0046 EQU $0046 first byte of hi res screen mem addr | |
| 60 u0047 EQU $0047 second byte of hi res screen mem addr | |
| 61 u007E EQU $007E | |
| 62 u0080 EQU $0080 | |
| 63 u0081 EQU $0081 | |
| 64 u009E EQU $009E busy address here | |
| 65 u009F EQU $009F | |
| 66 u00A0 EQU $00A0 | |
| 67 u00A1 EQU $00A1 | |
| 68 u00A2 EQU $00A2 | |
| 69 u00A3 EQU $00A3 | |
| 70 u00A4 EQU $00A4 | |
| 71 u00A5 EQU $00A5 | |
| 72 u00A6 EQU $00A6 | |
| 73 u00A7 EQU $00A7 | |
| 74 u00A8 EQU $00A8 | |
| 75 u00A9 EQU $00A9 | |
| 76 u00AA EQU $00AA | |
| 77 u00AB EQU $00AB | |
| 78 u00AC EQU $00AC | |
| 79 u00C0 EQU $00C0 | |
| 80 u00C6 EQU $00C6 | |
| 81 u00CC EQU $00CC | |
| 82 u00DE EQU $00DE | |
| 83 u00E0 EQU $00E0 | |
| 84 u00F6 EQU $00F6 | |
| 85 u00F8 EQU $00F8 | |
| 86 u00FC EQU $00FC | |
| 87 u00FE EQU $00FE | |
| 88 u00FF EQU $00FF | |
| 89 | |
| 90 X0100 equ $0100 pic_visible | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
91 X024E equ $024E |
| 2529 | 92 XFFA9 equ $FFA9 |
| 93 | |
| 94 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
95 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
96 u0000 rmb 0 |
| 2529 | 97 size equ . |
| 98 name equ * | |
| 99 fcs /scrn/ | |
| 100 fcb $00 | |
| 101 | |
| 102 * This module is linked to in sierra | |
| 103 * upon entry | |
| 104 * a -> type language | |
| 105 * b -> attributes / revision level | |
| 106 * x -> address of the last byte of the module name + 1 | |
| 107 * y -> module entry point absolute address | |
| 108 * u -> module header absolute address | |
| 109 | |
| 110 start equ * | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
111 lbra L015A |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
112 lbra L014C |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
113 lbra L009C |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
114 lbra L00B3 |
| 2529 | 115 lbra L00D2 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
116 lbra L074C |
| 2529 | 117 lbra L0209 |
| 118 lbra L00C5 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
119 lbra L0264 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
120 lbra L02A7 |
| 2529 | 121 |
| 122 L0030 fcc 'AGI (c) copyright 1988 SIERRA On-Line' | |
| 123 fcc 'CoCo3 version by Chris Iden' | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
124 fcb 0 |
| 2529 | 125 |
| 126 * map block check and sets | |
| 127 * u0012 is set in code in L015A sub | |
| 128 * entry: | |
| 129 * a -> value to be tested | |
| 130 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
131 L0071 cmpa <u0012 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
132 beq L008B |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
133 orcc #$50 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
134 sta <u0012 store the value passed in by a |
| 2529 | 135 lda <u0042 get sierra process descriptor map block |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
136 sta >$FFA9 map it in to $2000-$3FFF |
| 2529 | 137 ldx <u0043 2nd 8K data block in Sierra |
| 138 lda <u0012 get mmu block num | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
139 sta ,x |
| 2529 | 140 stb $02,x |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
141 std >$FFA9 why not stb $FFAA ?? RG |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
142 andcc #$AF |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
143 L008B rts |
| 2529 | 144 |
| 145 * 16 marker bytes for some thing | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
146 * coco_view_pal[] vid_render.c |
| 2529 | 147 L008C fcb $00 |
| 148 fcb $11 | |
| 149 fcb $22 | |
| 150 fcb $33 | |
| 151 fcb $44 | |
| 152 fcb $55 | |
| 153 fcb $66 | |
| 154 fcb $77 | |
| 155 fcb $88 | |
| 156 fcb $99 | |
| 157 fcb $AA | |
| 158 fcb $BB | |
| 159 fcb $CC | |
| 160 fcb $DD | |
| 161 fcb $EE | |
| 162 fcb $FF | |
| 163 | |
| 164 * Clears the area allocated to the screen in sierra | |
| 165 * entry: | |
| 166 * d -> value to be written to screen | |
| 167 * x -> may contain a value so we save it | |
| 168 * exit: | |
| 169 * d -> preserved | |
| 170 * x -> restored to initial value | |
| 171 * u -> contains starting address of the screen | |
| 172 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
173 L009C pshs x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
174 L009E ldu #$D800 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
175 ldx #$7800 end address of high res screen |
| 2529 | 176 L00A4 std ,--u set it to value passed us in d & dec d |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
177 leax -$02,x |
| 2529 | 178 bne L00A4 keep going till all of screen is cleared |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
179 puls x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
180 rts |
| 2529 | 181 |
| 182 * Loads D to clear screen | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
183 L00AD ldd #$0000 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
184 bsr L009C |
| 2529 | 185 rts |
| 186 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
187 L00B3 bsr L00AD clear the screen |
| 2529 | 188 ldd #$A8A0 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
189 pshs b,a |
| 2529 | 190 ldd #$00A7 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
191 pshs b,a |
| 2529 | 192 lbsr L015A |
| 193 leas $04,s | |
| 194 rts | |
| 195 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
196 L00C5 lda >$024D |
| 2529 | 197 tfr a,b |
| 198 bsr L009C | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
199 ldd #$0000 |
| 2529 | 200 std <u0040 |
| 201 rts | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
202 |
| 2529 | 203 L00D2 ldd $06,s |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
204 pshs b,a |
| 2529 | 205 ldd $06,s |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
206 pshs b,a |
| 2529 | 207 ldd $06,s |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
208 pshs b,a |
| 2529 | 209 lbsr L01D4 |
| 210 leas $06,s | |
| 211 clra | |
| 212 ldb $06,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
213 pshs b,a |
| 2529 | 214 lda #$01 |
| 215 ldb $07,s | |
| 216 subb #$02 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
217 pshs b,a |
| 2529 | 218 ldd $06,s |
| 219 inca | |
| 220 decb | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
221 pshs b,a |
| 2529 | 222 lbsr L01D4 |
| 223 leas $06,s | |
| 224 clra | |
| 225 ldb $06,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
226 pshs b,a |
| 2529 | 227 lda $06,s |
| 228 suba #$04 | |
| 229 ldb #$01 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
230 pshs b,a |
| 2529 | 231 ldd $06,s |
| 232 adda $09,s | |
| 233 suba #$02 | |
| 234 subb #$02 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
235 pshs b,a |
| 2529 | 236 lbsr L01D4 |
| 237 leas $06,s | |
| 238 clra | |
| 239 ldb $06,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
240 pshs b,a |
| 2529 | 241 lda #$01 |
| 242 ldb $07,s | |
| 243 subb #$02 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
244 pshs b,a |
| 2529 | 245 ldd $06,s |
| 246 inca | |
| 247 subb $08,s | |
| 248 addb #$02 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
249 pshs b,a |
| 2529 | 250 lbsr L01D4 |
| 251 leas $06,s | |
| 252 clra | |
| 253 ldb $06,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
254 pshs b,a |
| 2529 | 255 lda $06,s |
| 256 suba #$04 | |
| 257 ldb #$01 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
258 pshs b,a |
| 2529 | 259 ldd $06,s |
| 260 inca | |
| 261 subb #$02 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
262 pshs b,a |
| 2529 | 263 lbsr L01D4 |
| 264 leas $06,s | |
| 265 rts | |
| 266 | |
| 267 L014C ldd $04,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
268 pshs b,a |
| 2529 | 269 ldd $04,s |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
270 pshs b,a |
| 2529 | 271 lbsr L015A |
| 272 leas $04,s | |
| 273 rts | |
| 274 | |
| 275 * first call in module is here | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
276 L015A pshs y |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
277 ldd $04,s |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
278 sta <u0047 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
279 incb |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
280 subb $06,s |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
281 lda #$A0 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
282 mul |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
283 addd <u0046 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
284 tfr d,x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
285 addd <u002C |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
286 tfr d,y |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
287 leax <$40,x |
| 2529 | 288 ldd $06,s |
| 289 std <u00A0 | |
| 290 ldb #$A0 | |
| 291 subb <u00A1 | |
| 292 clra | |
| 293 std <u00A2 | |
| 294 sta <u0012 twiddle with the map block value | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
295 orcc #$50 |
| 2529 | 296 lda <u0042 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
297 sta >$FFA9 |
| 2529 | 298 cmpx #$A000 |
| 299 bcs L0192 | |
| 300 ldd <u001E | |
| 301 leax >-$8000,x | |
| 302 bra L0198 | |
| 303 L0192 ldd <u001C | |
| 304 leax >-$4000,x | |
| 305 L0198 ldu <u0043 | |
| 306 sta ,u | |
| 307 stb $02,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
308 std >$FFA9 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
309 andcc #$AF |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
310 leau >L008C,pcr |
| 2529 | 311 L01A7 ldb <u00A1 |
| 312 L01A9 lda ,x+ | |
| 313 anda #$0F | |
| 314 lda a,u | |
| 315 sta ,y+ | |
| 316 decb | |
| 317 bne L01A9 | |
| 318 dec <u00A0 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
319 beq L01D1 |
| 2529 | 320 ldd <u00A2 |
| 321 leay d,y | |
| 322 abx | |
| 323 cmpx #$6000 | |
| 324 bcs L01A7 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
325 orcc #$50 |
| 2529 | 326 lda <u0042 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
327 sta >$FFA9 |
| 2529 | 328 ldd <u001E |
| 329 leax >-$4000,x | |
| 330 bra L0198 | |
| 331 L01D1 puls y | |
| 332 rts | |
| 333 | |
| 334 L01D4 ldd $02,s | |
| 335 sta <u0047 | |
| 336 incb | |
| 337 subb $04,s | |
| 338 lda #$A0 | |
| 339 mul | |
| 340 addd <u0046 Hi res screen mem address ($6000) | |
| 341 addd <u002C | |
| 342 tfr d,x | |
| 343 ldd $04,s | |
| 344 std <u00A0 | |
| 345 ldb #$A0 | |
| 346 subb <u00A1 | |
| 347 stb <u00A2 | |
| 348 leau >L008C,pcr | |
| 349 lda $07,s | |
| 350 anda #$0F | |
| 351 lda a,u | |
| 352 L01F8 ldb <u00A1 | |
| 353 L01FA sta ,x+ | |
| 354 decb | |
| 355 bne L01FA | |
| 356 dec <u00A0 | |
| 357 beq L0208 | |
| 358 ldb <u00A2 | |
| 359 abx | |
| 360 bra L01F8 | |
| 361 L0208 rts | |
| 362 L0209 leas -$04,s | |
| 363 ldd $0A,s | |
| 364 std $02,s | |
| 365 ldd $08,s | |
| 366 std ,s | |
| 367 lda $07,s | |
| 368 lsla | |
| 369 lsla | |
| 370 lsla | |
| 371 ldb #$A0 | |
| 372 mul | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
373 std <u00A4 changed value from older version |
| 2529 | 374 clra |
| 375 ldb $01,s | |
| 376 lslb | |
| 377 lslb | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
378 addd <u00A4 new line of code |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
379 tfr d,u new line of code |
| 2529 | 380 leau >$6000,u |
| 381 ldb $02,s | |
| 382 lslb | |
| 383 lslb | |
| 384 lslb | |
| 385 lda #$A0 | |
| 386 mul | |
| 387 leax d,u | |
| 388 lda $03,s | |
| 389 lsla | |
| 390 lsla | |
| 391 lsla | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
392 ldb ,s new line of code |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
393 subb $01,s new line of code |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
394 incb new line of code |
| 2529 | 395 lslb |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
396 lslb |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
397 * This is all new |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
398 abx |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
399 exg u,x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
400 abx |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
401 exg u,x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
402 * Now code out of sync with older version. This line was L023F |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
403 L0246 pshs u,x,b,a |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
404 L0248 lda ,-x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
405 sta ,-u |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
406 decb |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
407 bne L0248 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
408 puls u,x,b,a |
| 2529 | 409 leau >$00A0,u |
| 410 leax >$00A0,x | |
| 411 cmpx #$D800 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
412 bcc L0261 |
| 2529 | 413 deca |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
414 bne L0246 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
415 L0261 leas $04,s |
| 2529 | 416 rts |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
417 L0264 leas -$04,s |
| 2529 | 418 ldx $06,s |
| 419 ldu ,x | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
420 L026A stu ,s |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
421 beq L02A4 |
| 2529 | 422 ldu $04,u |
| 423 stu $02,s | |
| 424 pshs u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
425 lbsr L02A7 |
| 2529 | 426 leas $02,s |
| 427 ldu $02,s | |
| 428 lda $01,u | |
| 429 cmpa ,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
430 bne L029E |
| 2529 | 431 ldd $03,u |
| 432 cmpd <$1A,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
433 bne L0293 |
| 2529 | 434 lda <$25,u |
| 435 ora #$40 | |
| 436 sta <$25,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
437 bra L029E |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
438 L0293 std <$1A,u |
| 2529 | 439 lda <$25,u |
| 440 anda #$BF | |
| 441 sta <$25,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
442 L029E ldu ,s |
| 2529 | 443 ldu ,u |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
444 bra L026A |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
445 L02A4 leas $04,s |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
446 rts |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
447 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
448 L02A7 lda >$0100 pic_visible |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
449 lbeq L034B |
| 2529 | 450 ldu $02,s |
| 451 ldd $08,u | |
| 452 lbsr L0071 | |
| 453 ldx <$10,u | |
| 454 ldd ,x | |
| 455 std <u00A2 | |
| 456 ldd <$14,u | |
| 457 lbsr L0071 | |
| 458 ldx <$12,u | |
| 459 ldd ,x | |
| 460 std <u00A0 | |
| 461 ldd <$10,u | |
| 462 std <$12,u | |
| 463 ldd $08,u | |
| 464 std <$14,u | |
| 465 lda $04,u | |
| 466 ldb <u00A3 | |
| 467 cmpa <$1B,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
468 bcs L02E8 |
| 2529 | 469 sta <u00A5 |
| 470 stb <u00A6 | |
| 471 lda <$1B,u | |
| 472 ldb <u00A1 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
473 bra L02F3 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
474 L02E8 ldb <$1B,u |
| 2529 | 475 stb <u00A5 |
| 476 ldb <u00A1 | |
| 477 stb <u00A6 | |
| 478 ldb <u00A3 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
479 L02F3 stb <u00AA |
| 2529 | 480 inca |
| 481 suba <u00AA | |
| 482 ldb <u00A5 | |
| 483 incb | |
| 484 subb <u00A6 | |
| 485 stb <u00A9 | |
| 486 cmpa <u00A9 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
487 bcs L0305 |
| 2529 | 488 lda <u00A9 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
489 L0305 nega |
| 2529 | 490 adda <u00A5 |
| 491 inca | |
| 492 sta <u00A6 | |
| 493 lda $03,u | |
| 494 ldb <u00A2 | |
| 495 cmpa <$1A,u | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
496 bhi L031F |
| 2529 | 497 sta <u00A4 |
| 498 stb <u00AB | |
| 499 lda <$1A,u | |
| 500 ldb <u00A0 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
501 bra L032A |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
502 L031F ldb <$1A,u |
| 2529 | 503 stb <u00A4 |
| 504 ldb <u00A0 | |
| 505 stb <u00AB | |
| 506 ldb <u00A2 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
507 L032A stb <u00AC |
| 2529 | 508 adda <u00AC |
| 509 sta <u00A8 | |
| 510 lda <u00A4 | |
| 511 adda <u00AB | |
| 512 cmpa <u00A8 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
513 bhi L033A |
| 2529 | 514 lda <u00A8 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
515 L033A suba <u00A4 |
| 2529 | 516 sta <u00A7 |
| 517 ldd <u00A6 | |
| 518 pshs b,a | |
| 519 ldd <u00A4 | |
| 520 pshs b,a | |
| 521 lbsr L015A | |
| 522 leas $04,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
523 L034B rts |
| 2529 | 524 |
| 525 * This jumbled mass of bytes disassembles | |
| 526 * but looks like a data block | |
| 527 * or probably a bit map ??? | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
528 * L034C - L074B is 1024 bytes of data |
| 2529 | 529 |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
530 L034C fcb $00,$00,$00,$00 |
| 2529 | 531 fcb $00,$00,$00,$00 |
| 532 fcb $7E,$81,$A5,$81 | |
| 533 fcb $BD,$99,$81,$7E | |
| 534 fcb $7E,$FF,$DB,$FF | |
| 535 fcb $C3,$E7,$FF,$7E | |
| 536 fcb $6C,$FE,$FE,$FE | |
| 537 fcb $7C,$38,$10,$00 | |
| 538 fcb $10,$38,$7C,$FE | |
| 539 fcb $7C,$38,$10,$00 | |
| 540 fcb $38,$7C,$38,$FE | |
| 541 fcb $FE,$7C,$38,$7C | |
| 542 fcb $10,$10,$38,$7C | |
| 543 fcb $FE,$7C,$38,$7C | |
| 544 fcb $00,$00,$18,$3C | |
| 545 fcb $3C,$18,$00,$00 | |
| 546 fcb $FF,$FF,$E7,$C3 | |
| 547 fcb $C3,$E7,$FF,$FF | |
| 548 fcb $00,$3C,$66,$42 | |
| 549 fcb $42,$66,$3C,$00 | |
| 550 fcb $FF,$C3,$99,$BD | |
| 551 fcb $BD,$99,$C3,$FF | |
| 552 fcb $0F,$07,$0F,$7D | |
| 553 fcb $CC,$CC,$CC,$78 | |
| 554 fcb $3C,$66,$66,$66 | |
| 555 fcb $3C,$18,$7E,$18 | |
| 556 fcb $3F,$33,$3F,$30 | |
| 557 fcb $30,$70,$F0,$E0 | |
| 558 fcb $7F,$63,$7F,$63 | |
| 559 fcb $63,$67,$E6,$C0 | |
| 560 fcb $99,$5A,$3C,$E7 | |
| 561 fcb $E7,$3C,$5A,$99 | |
| 562 fcb $80,$E0,$F8,$FE | |
| 563 fcb $F8,$E0,$80,$00 | |
| 564 fcb $02,$0E,$3E,$FE | |
| 565 fcb $3E,$0E,$02,$00 | |
| 566 fcb $18,$3C,$7E,$18 | |
| 567 fcb $18,$7E,$3C,$18 | |
| 568 fcb $66,$66,$66,$66 | |
| 569 fcb $66,$00,$66,$00 | |
| 570 fcb $7F,$DB,$DB,$7B | |
| 571 fcb $1B,$1B,$1B,$00 | |
| 572 fcb $3E,$63,$38,$6C | |
| 573 fcb $6C,$38,$CC,$78 | |
| 574 fcb $00,$00,$00,$00 | |
| 575 fcb $7E,$7E,$7E,$00 | |
| 576 fcb $18,$3C,$7E,$18 | |
| 577 fcb $7E,$3C,$18,$FF | |
| 578 fcb $18,$3C,$7E,$18 | |
| 579 fcb $18,$18,$18,$00 | |
| 580 fcb $18,$18,$18,$18 | |
| 581 fcb $7E,$3C,$18,$00 | |
| 582 fcb $00,$18,$0C,$FE | |
| 583 fcb $0C,$18,$00,$00 | |
| 584 fcb $00,$30,$60,$FE | |
| 585 fcb $60,$30,$00,$00 | |
| 586 fcb $00,$00,$C0,$C0 | |
| 587 fcb $C0,$FE,$00,$00 | |
| 588 fcb $00,$24,$66,$FF | |
| 589 fcb $66,$24,$00,$00 | |
| 590 fcb $00,$18,$3C,$7E | |
| 591 fcb $FF,$FF,$00,$00 | |
| 592 fcb $00,$FF,$FF,$7E | |
| 593 fcb $3C,$18,$00,$00 | |
| 594 fcb $00,$00,$00,$00 | |
| 595 fcb $00,$00,$00,$00 | |
| 596 fcb $30,$78,$78,$30 | |
| 597 fcb $30,$00,$30,$00 | |
| 598 fcb $6C,$6C,$6C,$00 | |
| 599 fcb $00,$00,$00,$00 | |
| 600 fcb $6C,$6C,$FE,$6C | |
| 601 fcb $FE,$6C,$6C,$00 | |
| 602 fcb $30,$7C,$C0,$78 | |
| 603 fcb $0C,$F8,$30,$00 | |
| 604 fcb $00,$C6,$CC,$18 | |
| 605 fcb $30,$66,$C6,$00 | |
| 606 fcb $38,$6C,$38,$76 | |
| 607 fcb $DC,$CC,$76,$00 | |
| 608 fcb $60,$60,$C0,$00 | |
| 609 fcb $00,$00,$00,$00 | |
| 610 fcb $18,$30,$60,$60 | |
| 611 fcb $60,$30,$18,$00 | |
| 612 fcb $60,$30,$18,$18 | |
| 613 fcb $18,$30,$60,$00 | |
| 614 fcb $00,$66,$3C,$FF | |
| 615 fcb $3C,$66,$00,$00 | |
| 616 fcb $00,$30,$30,$FC | |
| 617 fcb $30,$30,$00,$00 | |
| 618 fcb $00,$00,$00,$00 | |
| 619 fcb $00,$30,$30,$60 | |
| 620 fcb $00,$00,$00,$FC | |
| 621 fcb $00,$00,$00,$00 | |
| 622 fcb $00,$00,$00,$00 | |
| 623 fcb $00,$30,$30,$00 | |
| 624 fcb $06,$0C,$18,$30 | |
| 625 fcb $60,$C0,$80,$00 | |
| 626 fcb $7C,$C6,$CE,$DE | |
| 627 fcb $F6,$E6,$7C,$00 | |
| 628 fcb $30,$70,$30,$30 | |
| 629 fcb $30,$30,$FC,$00 | |
| 630 fcb $78,$CC,$0C,$38 | |
| 631 fcb $60,$CC,$FC,$00 | |
| 632 fcb $78,$CC,$0C,$38 | |
| 633 fcb $0C,$CC,$78,$00 | |
| 634 fcb $1C,$3C,$6C,$CC | |
| 635 fcb $FE,$0C,$1E,$00 | |
| 636 fcb $FC,$C0,$F8,$0C | |
| 637 fcb $0C,$CC,$78,$00 | |
| 638 fcb $38,$60,$C0,$F8 | |
| 639 fcb $CC,$CC,$78,$00 | |
| 640 fcb $FC,$CC,$0C,$18 | |
| 641 fcb $30,$30,$30,$00 | |
| 642 fcb $78,$CC,$CC,$78 | |
| 643 fcb $CC,$CC,$78,$00 | |
| 644 fcb $78,$CC,$CC,$7C | |
| 645 fcb $0C,$18,$70,$00 | |
| 646 fcb $00,$30,$30,$00 | |
| 647 fcb $00,$30,$30,$00 | |
| 648 fcb $00,$30,$30,$00 | |
| 649 fcb $00,$30,$30,$60 | |
| 650 fcb $18,$30,$60,$C0 | |
| 651 fcb $60,$30,$18,$00 | |
| 652 fcb $00,$00,$FC,$00 | |
| 653 fcb $00,$FC,$00,$00 | |
| 654 fcb $60,$30,$18,$0C | |
| 655 fcb $18,$30,$60,$00 | |
| 656 fcb $78,$CC,$0C,$18 | |
| 657 fcb $30,$00,$30,$00 | |
| 658 fcb $7C,$C6,$DE,$DE | |
| 659 fcb $DE,$C0,$78,$00 | |
| 660 fcb $30,$78,$CC,$CC | |
| 661 fcb $FC,$CC,$CC,$00 | |
| 662 fcb $FC,$66,$66,$7C | |
| 663 fcb $66,$66,$FC,$00 | |
| 664 fcb $3C,$66,$C0,$C0 | |
| 665 fcb $C0,$66,$3C,$00 | |
| 666 fcb $F8,$6C,$66,$66 | |
| 667 fcb $66,$6C,$F8,$00 | |
| 668 fcb $FE,$62,$68,$78 | |
| 669 fcb $68,$62,$FE,$00 | |
| 670 fcb $FE,$62,$68,$78 | |
| 671 fcb $68,$60,$F0,$00 | |
| 672 fcb $3C,$66,$C0,$C0 | |
| 673 fcb $CE,$66,$3E,$00 | |
| 674 fcb $CC,$CC,$CC,$FC | |
| 675 fcb $CC,$CC,$CC,$00 | |
| 676 fcb $78,$30,$30,$30 | |
| 677 fcb $30,$30,$78,$00 | |
| 678 fcb $1E,$0C,$0C,$0C | |
| 679 fcb $CC,$CC,$78,$00 | |
| 680 fcb $E6,$66,$6C,$78 | |
| 681 fcb $6C,$66,$E6,$00 | |
| 682 fcb $F0,$60,$60,$60 | |
| 683 fcb $62,$66,$FE,$00 | |
| 684 fcb $C6,$EE,$FE,$FE | |
| 685 fcb $D6,$C6,$C6,$00 | |
| 686 fcb $C6,$E6,$F6,$DE | |
| 687 fcb $CE,$C6,$C6,$00 | |
| 688 fcb $38,$6C,$C6,$C6 | |
| 689 fcb $C6,$6C,$38,$00 | |
| 690 fcb $FC,$66,$66,$7C | |
| 691 fcb $60,$60,$F0,$00 | |
| 692 fcb $78,$CC,$CC,$CC | |
| 693 fcb $DC,$78,$1C,$00 | |
| 694 fcb $FC,$66,$66,$7C | |
| 695 fcb $6C,$66,$E6,$00 | |
| 696 fcb $78,$CC,$E0,$70 | |
| 697 fcb $1C,$CC,$78,$00 | |
| 698 fcb $FC,$B4,$30,$30 | |
| 699 fcb $30,$30,$78,$00 | |
| 700 fcb $CC,$CC,$CC,$CC | |
| 701 fcb $CC,$CC,$FC,$00 | |
| 702 fcb $CC,$CC,$CC,$CC | |
| 703 fcb $CC,$78,$30,$00 | |
| 704 fcb $C6,$C6,$C6,$D6 | |
| 705 fcb $FE,$EE,$C6,$00 | |
| 706 fcb $C6,$C6,$6C,$38 | |
| 707 fcb $38,$6C,$C6,$00 | |
| 708 fcb $CC,$CC,$CC,$78 | |
| 709 fcb $30,$30,$78,$00 | |
| 710 fcb $FE,$C6,$8C,$18 | |
| 711 fcb $32,$66,$FE,$00 | |
| 712 fcb $78,$60,$60,$60 | |
| 713 fcb $60,$60,$78,$00 | |
| 714 fcb $C0,$60,$30,$18 | |
| 715 fcb $0C,$06,$02,$00 | |
| 716 fcb $78,$18,$18,$18 | |
| 717 fcb $18,$18,$78,$00 | |
| 718 fcb $10,$38,$6C,$C6 | |
| 719 fcb $00,$00,$00,$00 | |
| 720 fcb $00,$00,$00,$00 | |
| 721 fcb $00,$00,$00,$FF | |
| 722 fcb $30,$30,$18,$00 | |
| 723 fcb $00,$00,$00,$00 | |
| 724 fcb $00,$00,$78,$0C | |
| 725 fcb $7C,$CC,$76,$00 | |
| 726 fcb $E0,$60,$60,$7C | |
| 727 fcb $66,$66,$DC,$00 | |
| 728 fcb $00,$00,$78,$CC | |
| 729 fcb $C0,$CC,$78,$00 | |
| 730 fcb $1C,$0C,$0C,$7C | |
| 731 fcb $CC,$CC,$76,$00 | |
| 732 fcb $00,$00,$78,$CC | |
| 733 fcb $FC,$C0,$78,$00 | |
| 734 fcb $38,$6C,$60,$F0 | |
| 735 fcb $60,$60,$F0,$00 | |
| 736 fcb $00,$00,$76,$CC | |
| 737 fcb $CC,$7C,$0C,$F8 | |
| 738 fcb $E0,$60,$6C,$76 | |
| 739 fcb $66,$66,$E6,$00 | |
| 740 fcb $30,$00,$70,$30 | |
| 741 fcb $30,$30,$78,$00 | |
| 742 fcb $0C,$00,$0C,$0C | |
| 743 fcb $0C,$CC,$CC,$78 | |
| 744 fcb $E0,$60,$66,$6C | |
| 745 fcb $78,$6C,$E6,$00 | |
| 746 fcb $70,$30,$30,$30 | |
| 747 fcb $30,$30,$78,$00 | |
| 748 fcb $00,$00,$CC,$FE | |
| 749 fcb $FE,$D6,$C6,$00 | |
| 750 fcb $00,$00,$F8,$CC | |
| 751 fcb $CC,$CC,$CC,$00 | |
| 752 fcb $00,$00,$78,$CC | |
| 753 fcb $CC,$CC,$78,$00 | |
| 754 fcb $00,$00,$DC,$66 | |
| 755 fcb $66,$7C,$60,$F0 | |
| 756 fcb $00,$00,$76,$CC | |
| 757 fcb $CC,$7C,$0C,$1E | |
| 758 fcb $00,$00,$DC,$76 | |
| 759 fcb $66,$60,$F0,$00 | |
| 760 fcb $00,$00,$7C,$C0 | |
| 761 fcb $78,$0C,$F8,$00 | |
| 762 fcb $10,$30,$7C,$30 | |
| 763 fcb $30,$34,$18,$00 | |
| 764 fcb $00,$00,$CC,$CC | |
| 765 fcb $CC,$CC,$76,$00 | |
| 766 fcb $00,$00,$CC,$CC | |
| 767 fcb $CC,$78,$30,$00 | |
| 768 fcb $00,$00,$C6,$D6 | |
| 769 fcb $FE,$FE,$6C,$00 | |
| 770 fcb $00,$00,$C6,$6C | |
| 771 fcb $38,$6C,$C6,$00 | |
| 772 fcb $00,$00,$CC,$CC | |
| 773 fcb $CC,$7C,$0C,$F8 | |
| 774 fcb $00,$00,$FC,$98 | |
| 775 fcb $30,$64,$FC,$00 | |
| 776 fcb $1C,$30,$30,$E0 | |
| 777 fcb $30,$30,$1C,$00 | |
| 778 fcb $18,$18,$18,$00 | |
| 779 fcb $18,$18,$18,$00 | |
| 780 fcb $E0,$30,$30,$1C | |
| 781 fcb $30,$30,$E0,$00 | |
| 782 fcb $76,$DC,$00,$00 | |
| 783 fcb $00,$00,$00,$00 | |
| 784 fcb $00,$10,$38,$6C | |
| 785 fcb $C6,$C6,$FE,$00 | |
| 786 | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
787 L074C leas -2,s |
| 2529 | 788 pshs y |
| 789 ldx $06,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
790 ldu #$024D |
| 2529 | 791 lda <u0040 |
| 792 lsla | |
| 793 lsla | |
| 794 lsla | |
| 795 ldb #$A0 | |
| 796 mul | |
| 797 tfr d,y | |
| 798 clra | |
| 799 ldb <u0041 | |
| 800 lslb | |
| 801 lslb | |
| 802 addd #$6000 | |
| 803 leay d,y | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
804 L0769 tst ,x |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
805 lbeq L07B7 |
| 2529 | 806 ldb ,x+ |
| 807 stx $06,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
808 leax >L034C,pcr |
| 2529 | 809 lslb |
| 810 abx | |
| 811 abx | |
| 812 abx | |
| 813 abx | |
| 814 lda #$08 | |
| 815 sta $02,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
816 L0780 ldb ,x+ |
| 2529 | 817 lda #$04 |
| 818 sta $03,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
819 L0786 sex |
| 2529 | 820 lda a,u |
| 821 anda #$F0 | |
| 822 sta ,y | |
| 823 lslb | |
| 824 sex | |
| 825 lda a,u | |
| 826 anda #$0F | |
| 827 ora ,y | |
| 828 ora <u0045 flag for palettes set in sierra | |
| 829 sta ,y+ | |
| 830 lslb | |
| 831 dec $03,s | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
832 bne L0786 |
| 2529 | 833 lda <u0045 flag for palettes set in sierra |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
834 beq L07A5 |
| 2529 | 835 coma |
| 836 sta <u0045 flag for palettes set in sierra | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
837 L07A5 leay >$009C,y |
| 2529 | 838 dec $02,s |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
839 bne L0780 |
| 2529 | 840 ldx $06,s |
| 841 inc <u0041 | |
| 842 leay >-$04FC,y | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
843 bra L0769 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
844 L07B7 puls y |
| 2529 | 845 leas $02,s |
| 846 rts | |
|
2531
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
847 L07BC fcb 0,0,0,0 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
848 fcb 0,0,0,0 |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
849 L07C4 fcc /scrn/ |
|
cacdf4a5aee1
The obj and obj_lsl versions are not the same. This is the lsl version. RG
robertgault
parents:
2529
diff
changeset
|
850 L07C8 fcb 0 |
| 2529 | 851 |
| 852 emod | |
| 853 eom equ * | |
| 854 end |