( cow-glider.s):00001 ( cow-glider.s):00002 ;;; gcc for m6809 : Mar 27 2025 02:43:37 ( cow-glider.s):00003 ;;; 4.6.4 (gcc6809lw pl9) ( cow-glider.s):00004 ;;; ABI version 1 ( cow-glider.s):00005 ;;; -mint16 ( cow-glider.s):00006 .module cow_glider.c ( cow-glider.s):00007 ( cow-glider.s):00008 .area .text 0000 ( cow-glider.s):00009 _PPutHex: 0000 3440 ( cow-glider.s):00010 pshs u 0002 327E ( cow-glider.s):00011 leas -2,s 0004 EE66 ( cow-glider.s):00012 ldu 6,s 0006 1183000F ( cow-glider.s):00013 cmpu #15 ;cmphi: 000A 2311 ( cow-glider.s):00014 bls L2 000C 1F30 ( cow-glider.s):00015 tfr u,d 000E 44 ( cow-glider.s):00016 lsra 000F 56 ( cow-glider.s):00017 rorb 0010 44 ( cow-glider.s):00018 lsra 0011 56 ( cow-glider.s):00019 rorb 0012 44 ( cow-glider.s):00020 lsra 0013 56 ( cow-glider.s):00021 rorb 0014 44 ( cow-glider.s):00022 lsra 0015 56 ( cow-glider.s):00023 rorb 0016 3406 ( cow-glider.s):00024 pshs d 0018 BD0000 ( cow-glider.s):00025 jsr _PPutHex 001B 3262 ( cow-glider.s):00026 leas 2,s 001D ( cow-glider.s):00027 L2: 001D 1F30 ( cow-glider.s):00028 tfr u,d 001F 8400 ( cow-glider.s):00029 anda #0 0021 C40F ( cow-glider.s):00030 andb #15 0023 1F03 ( cow-glider.s):00031 tfr d,u 0025 E6C90000 ( cow-glider.s):00032 ldb _PHexAlphabet,u 0029 E780 ( cow-glider.s):00033 stb ,x+ 002B 3262 ( cow-glider.s):00034 leas 2,s 002D 35C0 ( cow-glider.s):00035 puls u,pc 002F ( cow-glider.s):00036 _PDivMod10: 002F CC0000 ( cow-glider.s):00037 ldd #0 0032 2007 ( cow-glider.s):00038 bra L4 0034 ( cow-glider.s):00039 L5: 0034 3089D8F0 ( cow-glider.s):00040 leax -10000,x 0038 C303E8 ( cow-glider.s):00041 addd #1000 003B ( cow-glider.s):00042 L4: 003B 8C270F ( cow-glider.s):00043 cmpx #9999 ;cmphi: 003E 22F4 ( cow-glider.s):00044 bhi L5 0040 2007 ( cow-glider.s):00045 bra L12 0042 ( cow-glider.s):00046 L7: 0042 3089FC18 ( cow-glider.s):00047 leax -1000,x 0046 C30064 ( cow-glider.s):00048 addd #100 0049 ( cow-glider.s):00049 L12: 0049 8C03E7 ( cow-glider.s):00050 cmpx #999 ;cmphi: 004C 22F4 ( cow-glider.s):00051 bhi L7 004E 2006 ( cow-glider.s):00052 bra L13 0050 ( cow-glider.s):00053 L9: 0050 30889C ( cow-glider.s):00054 leax -100,x 0053 C3000A ( cow-glider.s):00055 addd #10 0056 ( cow-glider.s):00056 L13: 0056 8C0063 ( cow-glider.s):00057 cmpx #99 ;cmphi: 0059 22F5 ( cow-glider.s):00058 bhi L9 005B 2005 ( cow-glider.s):00059 bra L14 005D ( cow-glider.s):00060 L11: 005D 3016 ( cow-glider.s):00061 leax -10,x 005F C30001 ( cow-glider.s):00062 addd #1 0062 ( cow-glider.s):00063 L14: 0062 8C0009 ( cow-glider.s):00064 cmpx #9 ;cmphi: 0065 22F6 ( cow-glider.s):00065 bhi L11 0067 EDF802 ( cow-glider.s):00066 std [2,s] 006A 1F10 ( cow-glider.s):00067 tfr x,d ;movlsbqihi: R:x -> R:b 006C 39 ( cow-glider.s):00068 rts 006D ( cow-glider.s):00069 _PPutDec: 006D 3460 ( cow-glider.s):00070 pshs y,u 006F 327C ( cow-glider.s):00071 leas -4,s 0071 33E4 ( cow-glider.s):00072 leau ,s 0073 AFC4 ( cow-glider.s):00073 stx ,u 0075 10AE6A ( cow-glider.s):00074 ldy 10,s 0078 108C0009 ( cow-glider.s):00075 cmpy #9 ;cmphi: 007C 231B ( cow-glider.s):00076 bls L16 007E CC0002 ( cow-glider.s):00077 ldd #2 0081 3440 ( cow-glider.s):00078 pshs u ;addhi: R:d += R:u 0083 E3E1 ( cow-glider.s):00079 addd ,s++ 0085 3406 ( cow-glider.s):00080 pshs d 0087 30A4 ( cow-glider.s):00081 leax ,y 0089 BD0000 ( cow-glider.s):00082 jsr _PDivMod10 008C AE42 ( cow-glider.s):00083 ldx 2,u 008E AFE3 ( cow-glider.s):00084 stx ,--s 0090 AEC4 ( cow-glider.s):00085 ldx ,u 0092 BD0000 ( cow-glider.s):00086 jsr _PPutDec 0095 AFC4 ( cow-glider.s):00087 stx ,u 0097 3264 ( cow-glider.s):00088 leas 4,s 0099 ( cow-glider.s):00089 L16: 0099 CC0002 ( cow-glider.s):00090 ldd #2 009C 3440 ( cow-glider.s):00091 pshs u ;addhi: R:d += R:u 009E E3E1 ( cow-glider.s):00092 addd ,s++ 00A0 3406 ( cow-glider.s):00093 pshs d 00A2 30A4 ( cow-glider.s):00094 leax ,y 00A4 BD0000 ( cow-glider.s):00095 jsr _PDivMod10 00A7 AEC4 ( cow-glider.s):00096 ldx ,u 00A9 CB30 ( cow-glider.s):00097 addb #48 00AB E780 ( cow-glider.s):00098 stb ,x+ 00AD 3266 ( cow-glider.s):00099 leas 6,s 00AF 35E0 ( cow-glider.s):00100 puls y,u,pc 00B1 ( cow-glider.s):00101 _drawMod96: 00B1 3460 ( cow-glider.s):00102 pshs y,u 00B3 327B ( cow-glider.s):00103 leas -5,s 00B5 E7E4 ( cow-glider.s):00104 stb ,s 00B7 2A04 ( cow-glider.s):00105 bpl L18 00B9 CB60 ( cow-glider.s):00106 addb #96 00BB E7E4 ( cow-glider.s):00107 stb ,s 00BD ( cow-glider.s):00108 L18: 00BD E66B ( cow-glider.s):00109 ldb 11,s 00BF 2A06 ( cow-glider.s):00110 bpl L19 00C1 E6E4 ( cow-glider.s):00111 ldb ,s 00C3 CB60 ( cow-glider.s):00112 addb #96 00C5 E7E4 ( cow-glider.s):00113 stb ,s 00C7 ( cow-glider.s):00114 L19: 00C7 E6E4 ( cow-glider.s):00115 ldb ,s 00C9 C15F ( cow-glider.s):00116 cmpb #95 ;cmpqi: 00CB 2F04 ( cow-glider.s):00117 ble L20 00CD CBA0 ( cow-glider.s):00118 addb #-96 00CF E7E4 ( cow-glider.s):00119 stb ,s 00D1 ( cow-glider.s):00120 L20: 00D1 E66B ( cow-glider.s):00121 ldb 11,s 00D3 C15F ( cow-glider.s):00122 cmpb #95 ;cmpqi: 00D5 2F06 ( cow-glider.s):00123 ble L21 00D7 E6E4 ( cow-glider.s):00124 ldb ,s 00D9 CBA0 ( cow-glider.s):00125 addb #-96 00DB E7E4 ( cow-glider.s):00126 stb ,s 00DD ( cow-glider.s):00127 L21: 00DD E66B ( cow-glider.s):00128 ldb 11,s 00DF 4F ( cow-glider.s):00129 clra ;zero_extendqihi: R:b -> R:d 00E0 58 ( cow-glider.s):00130 aslb 00E1 49 ( cow-glider.s):00131 rola 00E2 58 ( cow-glider.s):00132 aslb 00E3 49 ( cow-glider.s):00133 rola 00E4 58 ( cow-glider.s):00134 aslb 00E5 49 ( cow-glider.s):00135 rola 00E6 58 ( cow-glider.s):00136 aslb 00E7 49 ( cow-glider.s):00137 rola 00E8 58 ( cow-glider.s):00138 aslb 00E9 49 ( cow-glider.s):00139 rola 00EA 1F01 ( cow-glider.s):00140 tfr d,x 00EC 33893400 ( cow-glider.s):00141 leau 13312,x 00F0 E6E4 ( cow-glider.s):00142 ldb ,s 00F2 54 ( cow-glider.s):00143 lsrb 00F3 54 ( cow-glider.s):00144 lsrb 00F4 4F ( cow-glider.s):00145 clra ;zero_extendqihi: R:b -> R:d 00F5 ED62 ( cow-glider.s):00146 std 2,s 00F7 33CB ( cow-glider.s):00147 leau d,u 00F9 E6C4 ( cow-glider.s):00148 ldb ,u 00FB E764 ( cow-glider.s):00149 stb 4,s 00FD E66C ( cow-glider.s):00150 ldb 12,s 00FF 4F ( cow-glider.s):00151 clra ;zero_extendqihi: R:b -> R:d 0100 ED62 ( cow-glider.s):00152 std 2,s 0102 E6E4 ( cow-glider.s):00153 ldb ,s 0104 C403 ( cow-glider.s):00154 andb #3 0106 E7E4 ( cow-glider.s):00155 stb ,s 0108 4F ( cow-glider.s):00156 clra ;zero_extendqihi: R:b -> R:d 0109 1F01 ( cow-glider.s):00157 tfr d,x 010B 108E0003 ( cow-glider.s):00158 ldy #3 010F 1F20 ( cow-glider.s):00159 tfr y,d 0111 3410 ( cow-glider.s):00160 pshs x ;subhi: R:d -= R:x 0113 A3E1 ( cow-glider.s):00161 subd ,s++ 0115 58 ( cow-glider.s):00162 aslb 0116 49 ( cow-glider.s):00163 rola 0117 1F01 ( cow-glider.s):00164 tfr d,x 0119 EC62 ( cow-glider.s):00165 ldd 2,s 011B BD0000 ( cow-glider.s):00166 jsr _ashlhi3 011E E763 ( cow-glider.s):00167 stb 3,s 0120 E664 ( cow-glider.s):00168 ldb 4,s 0122 E863 ( cow-glider.s):00169 eorb 3,s 0124 E7C4 ( cow-glider.s):00170 stb ,u 0126 3265 ( cow-glider.s):00171 leas 5,s 0128 35E0 ( cow-glider.s):00172 puls y,u,pc 012A ( cow-glider.s):00173 _XorOldTanks: 012A 3440 ( cow-glider.s):00174 pshs u 012C 3279 ( cow-glider.s):00175 leas -7,s 012E 6F63 ( cow-glider.s):00176 clr 3,s 0130 7E0000 ( cow-glider.s):00177 jmp L23 0133 ( cow-glider.s):00178 L25: 0133 E663 ( cow-glider.s):00179 ldb 3,s 0135 4F ( cow-glider.s):00180 clra ;zero_extendqihi: R:b -> R:d 0136 EDE4 ( cow-glider.s):00181 std ,s 0138 58 ( cow-glider.s):00182 aslb 0139 49 ( cow-glider.s):00183 rola 013A 58 ( cow-glider.s):00184 aslb 013B 49 ( cow-glider.s):00185 rola 013C 58 ( cow-glider.s):00186 aslb 013D 49 ( cow-glider.s):00187 rola 013E CE0000 ( cow-glider.s):00188 ldu #_OldState 0141 30CB ( cow-glider.s):00189 leax d,u 0143 E684 ( cow-glider.s):00190 ldb ,x 0145 E764 ( cow-glider.s):00191 stb 4,s 0147 E602 ( cow-glider.s):00192 ldb 2,x 0149 E765 ( cow-glider.s):00193 stb 5,s 014B C603 ( cow-glider.s):00194 ldb #3 014D E762 ( cow-glider.s):00195 stb 2,s 014F E663 ( cow-glider.s):00196 ldb 3,s 0151 F10000 ( cow-glider.s):00197 cmpb _Player ;cmpqi: 0154 2604 ( cow-glider.s):00198 bne L24 0156 C602 ( cow-glider.s):00199 ldb #2 0158 E762 ( cow-glider.s):00200 stb 2,s 015A ( cow-glider.s):00201 L24: 015A E662 ( cow-glider.s):00202 ldb 2,s 015C 3404 ( cow-glider.s):00203 pshs b 015E E666 ( cow-glider.s):00204 ldb 6,s 0160 3404 ( cow-glider.s):00205 pshs b 0162 E666 ( cow-glider.s):00206 ldb 6,s 0164 BD0000 ( cow-glider.s):00207 jsr _drawMod96 0167 E666 ( cow-glider.s):00208 ldb 6,s 0169 5A ( cow-glider.s):00209 decb 016A E768 ( cow-glider.s):00210 stb 8,s 016C E664 ( cow-glider.s):00211 ldb 4,s 016E 3404 ( cow-glider.s):00212 pshs b 0170 E668 ( cow-glider.s):00213 ldb 8,s 0172 3404 ( cow-glider.s):00214 pshs b 0174 E66A ( cow-glider.s):00215 ldb 10,s 0176 BD0000 ( cow-glider.s):00216 jsr _drawMod96 0179 E668 ( cow-glider.s):00217 ldb 8,s 017B 5C ( cow-glider.s):00218 incb 017C E76A ( cow-glider.s):00219 stb 10,s 017E E666 ( cow-glider.s):00220 ldb 6,s 0180 3404 ( cow-glider.s):00221 pshs b 0182 E66A ( cow-glider.s):00222 ldb 10,s 0184 3404 ( cow-glider.s):00223 pshs b 0186 E66C ( cow-glider.s):00224 ldb 12,s 0188 BD0000 ( cow-glider.s):00225 jsr _drawMod96 018B E668 ( cow-glider.s):00226 ldb 8,s 018D 3404 ( cow-glider.s):00227 pshs b 018F E66C ( cow-glider.s):00228 ldb 12,s 0191 5A ( cow-glider.s):00229 decb 0192 3404 ( cow-glider.s):00230 pshs b 0194 E66C ( cow-glider.s):00231 ldb 12,s 0196 BD0000 ( cow-glider.s):00232 jsr _drawMod96 0199 3268 ( cow-glider.s):00233 leas 8,s 019B E662 ( cow-glider.s):00234 ldb 2,s 019D 3404 ( cow-glider.s):00235 pshs b 019F E666 ( cow-glider.s):00236 ldb 6,s 01A1 5C ( cow-glider.s):00237 incb 01A2 3404 ( cow-glider.s):00238 pshs b 01A4 E666 ( cow-glider.s):00239 ldb 6,s 01A6 BD0000 ( cow-glider.s):00240 jsr _drawMod96 01A9 6C65 ( cow-glider.s):00241 inc 5,s 01AB 3262 ( cow-glider.s):00242 leas 2,s 01AD ( cow-glider.s):00243 L23: 01AD E663 ( cow-glider.s):00244 ldb 3,s 01AF F10000 ( cow-glider.s):00245 cmpb _NumberOfPlayers ;cmpqi: 01B2 1025FF7D ( cow-glider.s):00246 lblo L25 01B6 3267 ( cow-glider.s):00247 leas 7,s 01B8 35C0 ( cow-glider.s):00248 puls u,pc 01BA ( cow-glider.s):00249 _Sprintf: 01BA 3460 ( cow-glider.s):00250 pshs y,u 01BC 3275 ( cow-glider.s):00251 leas -11,s 01BE AEE811 ( cow-glider.s):00252 ldx 17,s 01C1 10AEE813 ( cow-glider.s):00253 ldy 19,s 01C5 33E815 ( cow-glider.s):00254 leau 21,s 01C8 EF64 ( cow-glider.s):00255 stu 4,s 01CA CE001F ( cow-glider.s):00256 ldu #31 01CD EF68 ( cow-glider.s):00257 stu 8,s 01CF 10AF66 ( cow-glider.s):00258 sty 6,s 01D2 10AE64 ( cow-glider.s):00259 ldy 4,s 01D5 7E0000 ( cow-glider.s):00260 jmp L28 01D8 ( cow-glider.s):00261 L44: 01D8 EC68 ( cow-glider.s):00262 ldd 8,s 01DA C3FFFF ( cow-glider.s):00263 addd #-1 01DD ED68 ( cow-glider.s):00264 std 8,s 01DF 2607 ( cow-glider.s):00265 bne L29 01E1 C65C ( cow-glider.s):00266 ldb #92 01E3 E780 ( cow-glider.s):00267 stb ,x+ 01E5 7E0000 ( cow-glider.s):00268 jmp L30 01E8 ( cow-glider.s):00269 L29: 01E8 E664 ( cow-glider.s):00270 ldb 4,s 01EA C11F ( cow-glider.s):00271 cmpb #31 ;cmpqi: 01EC 2204 ( cow-glider.s):00272 bhi L31 01EE C60A ( cow-glider.s):00273 ldb #10 01F0 2006 ( cow-glider.s):00274 bra L46 01F2 ( cow-glider.s):00275 L31: 01F2 E664 ( cow-glider.s):00276 ldb 4,s 01F4 C125 ( cow-glider.s):00277 cmpb #37 ;cmpqi: 01F6 2709 ( cow-glider.s):00278 beq L33 01F8 ( cow-glider.s):00279 L46: 01F8 E780 ( cow-glider.s):00280 stb ,x+ 01FA EE66 ( cow-glider.s):00281 ldu 6,s 01FC EF64 ( cow-glider.s):00282 stu 4,s 01FE 7E0000 ( cow-glider.s):00283 jmp L32 0201 ( cow-glider.s):00284 L33: 0201 EE66 ( cow-glider.s):00285 ldu 6,s 0203 3341 ( cow-glider.s):00286 leau 1,u 0205 EF64 ( cow-glider.s):00287 stu 4,s 0207 EE66 ( cow-glider.s):00288 ldu 6,s 0209 E641 ( cow-glider.s):00289 ldb 1,u 020B C173 ( cow-glider.s):00290 cmpb #115 ;cmpqi: 020D 2752 ( cow-glider.s):00291 beq L36 020F 2208 ( cow-glider.s):00292 bhi L39 0211 C164 ( cow-glider.s):00293 cmpb #100 ;cmpqi: 0213 1026008E ( cow-glider.s):00294 lbne L34 0217 200C ( cow-glider.s):00295 bra L48 0219 ( cow-glider.s):00296 L39: 0219 C175 ( cow-glider.s):00297 cmpb #117 ;cmpqi: 021B 2726 ( cow-glider.s):00298 beq L37 021D C178 ( cow-glider.s):00299 cmpb #120 ;cmpqi: 021F 10260082 ( cow-glider.s):00300 lbne L34 0223 202B ( cow-glider.s):00301 bra L49 0225 ( cow-glider.s):00302 L48: 0225 3322 ( cow-glider.s):00303 leau 2,y 0227 EF66 ( cow-glider.s):00304 stu 6,s 0229 EEA4 ( cow-glider.s):00305 ldu ,y 022B 2A0C ( cow-glider.s):00306 bpl L40 022D 1E03 ( cow-glider.s):00307 exg d,u 022F 40 ( cow-glider.s):00308 nega 0230 50 ( cow-glider.s):00309 negb 0231 8200 ( cow-glider.s):00310 sbca #0 0233 1E03 ( cow-glider.s):00311 exg d,u 0235 C62D ( cow-glider.s):00312 ldb #45 0237 E780 ( cow-glider.s):00313 stb ,x+ 0239 ( cow-glider.s):00314 L40: 0239 3440 ( cow-glider.s):00315 pshs u 023B BD0000 ( cow-glider.s):00316 jsr _PPutDec 023E 3262 ( cow-glider.s):00317 leas 2,s 0240 7E0000 ( cow-glider.s):00318 jmp L45 0243 ( cow-glider.s):00319 L37: 0243 3322 ( cow-glider.s):00320 leau 2,y 0245 10AEA4 ( cow-glider.s):00321 ldy ,y 0248 10AFE3 ( cow-glider.s):00322 sty ,--s 024B BD0000 ( cow-glider.s):00323 jsr _PPutDec 024E 200B ( cow-glider.s):00324 bra L47 0250 ( cow-glider.s):00325 L49: 0250 3322 ( cow-glider.s):00326 leau 2,y 0252 10AEA4 ( cow-glider.s):00327 ldy ,y 0255 10AFE3 ( cow-glider.s):00328 sty ,--s 0258 BD0000 ( cow-glider.s):00329 jsr _PPutHex 025B ( cow-glider.s):00330 L47: 025B 3262 ( cow-glider.s):00331 leas 2,s 025D 31C4 ( cow-glider.s):00332 leay ,u 025F 2046 ( cow-glider.s):00333 bra L32 0261 ( cow-glider.s):00334 L36: 0261 3322 ( cow-glider.s):00335 leau 2,y 0263 EF66 ( cow-glider.s):00336 stu 6,s 0265 10AEA4 ( cow-glider.s):00337 ldy ,y 0268 10AF62 ( cow-glider.s):00338 sty 2,s 026B CE001E ( cow-glider.s):00339 ldu #30 026E AFE4 ( cow-glider.s):00340 stx ,s 0270 201C ( cow-glider.s):00341 bra L41 0272 ( cow-glider.s):00342 L43: 0272 E66A ( cow-glider.s):00343 ldb 10,s 0274 10AEE4 ( cow-glider.s):00344 ldy ,s 0277 E7A4 ( cow-glider.s):00345 stb ,y 0279 3101 ( cow-glider.s):00346 leay 1,x 027B 10AFE4 ( cow-glider.s):00347 sty ,s 027E 11830000 ( cow-glider.s):00348 cmpu #0 ;cmphi: 0282 2608 ( cow-glider.s):00349 bne L42 0284 C65C ( cow-glider.s):00350 ldb #92 0286 E701 ( cow-glider.s):00351 stb 1,x 0288 3002 ( cow-glider.s):00352 leax 2,x 028A 2014 ( cow-glider.s):00353 bra L45 028C ( cow-glider.s):00354 L42: 028C 335F ( cow-glider.s):00355 leau -1,u 028E ( cow-glider.s):00356 L41: 028E AEE4 ( cow-glider.s):00357 ldx ,s 0290 10AE62 ( cow-glider.s):00358 ldy 2,s 0293 3121 ( cow-glider.s):00359 leay 1,y 0295 10AF62 ( cow-glider.s):00360 sty 2,s 0298 313F ( cow-glider.s):00361 leay -1,y 029A E6A0 ( cow-glider.s):00362 ldb ,y+ 029C E76A ( cow-glider.s):00363 stb 10,s 029E 26D2 ( cow-glider.s):00364 bne L43 02A0 ( cow-glider.s):00365 L45: 02A0 10AE66 ( cow-glider.s):00366 ldy 6,s 02A3 2002 ( cow-glider.s):00367 bra L32 02A5 ( cow-glider.s):00368 L34: 02A5 E780 ( cow-glider.s):00369 stb ,x+ 02A7 ( cow-glider.s):00370 L32: 02A7 EE64 ( cow-glider.s):00371 ldu 4,s 02A9 3341 ( cow-glider.s):00372 leau 1,u 02AB EF66 ( cow-glider.s):00373 stu 6,s 02AD ( cow-glider.s):00374 L28: 02AD EE66 ( cow-glider.s):00375 ldu 6,s 02AF E6C4 ( cow-glider.s):00376 ldb ,u 02B1 E764 ( cow-glider.s):00377 stb 4,s 02B3 1026FF21 ( cow-glider.s):00378 lbne L44 02B7 ( cow-glider.s):00379 L30: 02B7 6F84 ( cow-glider.s):00380 clr ,x 02B9 326B ( cow-glider.s):00381 leas 11,s 02BB 35E0 ( cow-glider.s):00382 puls y,u,pc 02BD ( cow-glider.s):00383 _PMode1DrawSpot: 02BD 3440 ( cow-glider.s):00384 pshs u 02BF 327A ( cow-glider.s):00385 leas -6,s 02C1 E762 ( cow-glider.s):00386 stb 2,s 02C3 102B0048 ( cow-glider.s):00387 lbmi L50 02C7 E66A ( cow-glider.s):00388 ldb 10,s 02C9 C15F ( cow-glider.s):00389 cmpb #95 ;cmpqi: 02CB 10220040 ( cow-glider.s):00390 lbhi L50 02CF E662 ( cow-glider.s):00391 ldb 2,s 02D1 54 ( cow-glider.s):00392 lsrb 02D2 54 ( cow-glider.s):00393 lsrb 02D3 4F ( cow-glider.s):00394 clra ;zero_extendqihi: R:b -> R:d 02D4 ED64 ( cow-glider.s):00395 std 4,s 02D6 308B ( cow-glider.s):00396 leax d,x 02D8 E66A ( cow-glider.s):00397 ldb 10,s 02DA 4F ( cow-glider.s):00398 clra ;zero_extendqihi: R:b -> R:d 02DB EDE4 ( cow-glider.s):00399 std ,s 02DD 58 ( cow-glider.s):00400 aslb 02DE 49 ( cow-glider.s):00401 rola 02DF 58 ( cow-glider.s):00402 aslb 02E0 49 ( cow-glider.s):00403 rola 02E1 58 ( cow-glider.s):00404 aslb 02E2 49 ( cow-glider.s):00405 rola 02E3 58 ( cow-glider.s):00406 aslb 02E4 49 ( cow-glider.s):00407 rola 02E5 58 ( cow-glider.s):00408 aslb 02E6 49 ( cow-glider.s):00409 rola 02E7 338B ( cow-glider.s):00410 leau d,x 02E9 E6C4 ( cow-glider.s):00411 ldb ,u 02EB E7E4 ( cow-glider.s):00412 stb ,s 02ED E662 ( cow-glider.s):00413 ldb 2,s 02EF 53 ( cow-glider.s):00414 comb 02F0 C403 ( cow-glider.s):00415 andb #3 02F2 58 ( cow-glider.s):00416 aslb 02F3 4F ( cow-glider.s):00417 clra ;zero_extendqihi: R:b -> R:d 02F4 ED62 ( cow-glider.s):00418 std 2,s 02F6 CC0003 ( cow-glider.s):00419 ldd #3 02F9 AE62 ( cow-glider.s):00420 ldx 2,s 02FB BD0000 ( cow-glider.s):00421 jsr _ashlhi3 02FE 53 ( cow-glider.s):00422 comb 02FF E4E4 ( cow-glider.s):00423 andb ,s 0301 E7E4 ( cow-glider.s):00424 stb ,s 0303 E66B ( cow-glider.s):00425 ldb 11,s 0305 4F ( cow-glider.s):00426 clra ;zero_extendqihi: R:b -> R:d 0306 ED64 ( cow-glider.s):00427 std 4,s 0308 BD0000 ( cow-glider.s):00428 jsr _ashlhi3 ( cow-glider.s):00429 ;movlsbqihi: D->B 030B EAE4 ( cow-glider.s):00430 orb ,s 030D E7C4 ( cow-glider.s):00431 stb ,u 030F ( cow-glider.s):00432 L50: 030F 3266 ( cow-glider.s):00433 leas 6,s 0311 35C0 ( cow-glider.s):00434 puls u,pc 0313 ( cow-glider.s):00435 _PMode1DrawDigit3x5.constprop.2: 0313 3460 ( cow-glider.s):00436 pshs y,u 0315 3279 ( cow-glider.s):00437 leas -7,s 0317 E766 ( cow-glider.s):00438 stb 6,s 0319 E66F ( cow-glider.s):00439 ldb 15,s 031B 4F ( cow-glider.s):00440 clra ;zero_extendqihi: R:b -> R:d 031C 1F01 ( cow-glider.s):00441 tfr d,x 031E E6890000 ( cow-glider.s):00442 ldb _DigitTimes15,x 0322 4F ( cow-glider.s):00443 clra ;zero_extendqihi: R:b -> R:d 0323 C30000 ( cow-glider.s):00444 addd #_Digit3x5CharGen 0326 ED62 ( cow-glider.s):00445 std 2,s 0328 8E0000 ( cow-glider.s):00446 ldx #0 032B AFE4 ( cow-glider.s):00447 stx ,s 032D 2046 ( cow-glider.s):00448 bra L53 032F ( cow-glider.s):00449 L55: 032F E6A0 ( cow-glider.s):00450 ldb ,y+ 0331 C120 ( cow-glider.s):00451 cmpb #32 ;cmpqi: 0333 2724 ( cow-glider.s):00452 beq L54 0335 1F30 ( cow-glider.s):00453 tfr u,d ;movlsbqihi: R:u -> R:b 0337 E764 ( cow-glider.s):00454 stb 4,s 0339 E666 ( cow-glider.s):00455 ldb 6,s 033B EB64 ( cow-glider.s):00456 addb 4,s 033D E764 ( cow-glider.s):00457 stb 4,s 033F E66E ( cow-glider.s):00458 ldb 14,s 0341 3404 ( cow-glider.s):00459 pshs b 0343 EC61 ( cow-glider.s):00460 ldd 1,s 0345 E766 ( cow-glider.s):00461 stb 6,s ;movlsbqihi: R:d -> 6,s 0347 E66E ( cow-glider.s):00462 ldb 14,s 0349 E066 ( cow-glider.s):00463 subb 6,s 034B E766 ( cow-glider.s):00464 stb 6,s 034D 3404 ( cow-glider.s):00465 pshs b 034F E666 ( cow-glider.s):00466 ldb 6,s 0351 8E3400 ( cow-glider.s):00467 ldx #13312 0354 BD0000 ( cow-glider.s):00468 jsr _PMode1DrawSpot 0357 3262 ( cow-glider.s):00469 leas 2,s 0359 ( cow-glider.s):00470 L54: 0359 3341 ( cow-glider.s):00471 leau 1,u 035B 11830003 ( cow-glider.s):00472 cmpu #3 ;cmphi: 035F 26CE ( cow-glider.s):00473 bne L55 0361 EC62 ( cow-glider.s):00474 ldd 2,s 0363 C30003 ( cow-glider.s):00475 addd #3 0366 ED62 ( cow-glider.s):00476 std 2,s 0368 ECE4 ( cow-glider.s):00477 ldd ,s 036A C3FFFF ( cow-glider.s):00478 addd #-1 036D EDE4 ( cow-glider.s):00479 std ,s 036F 1083FFFB ( cow-glider.s):00480 cmpd #-5 ;cmphi: 0373 2708 ( cow-glider.s):00481 beq L52 0375 ( cow-glider.s):00482 L53: 0375 10AE62 ( cow-glider.s):00483 ldy 2,s 0378 CE0000 ( cow-glider.s):00484 ldu #0 037B 20B2 ( cow-glider.s):00485 bra L55 037D ( cow-glider.s):00486 L52: 037D 3267 ( cow-glider.s):00487 leas 7,s 037F 35E0 ( cow-glider.s):00488 puls y,u,pc 0381 ( cow-glider.s):00489 _PMode1DrawDecimal3x5Unsigned.constprop.3: 0381 3440 ( cow-glider.s):00490 pshs u 0383 3278 ( cow-glider.s):00491 leas -8,s 0385 E764 ( cow-glider.s):00492 stb 4,s 0387 AF61 ( cow-glider.s):00493 stx 1,s 0389 6FE4 ( cow-glider.s):00494 clr ,s 038B 1F10 ( cow-glider.s):00495 tfr x,d 038D 2005 ( cow-glider.s):00496 bra L59 038F ( cow-glider.s):00497 L60: 038F 6CE4 ( cow-glider.s):00498 inc ,s 0391 C3D8F0 ( cow-glider.s):00499 addd #-10000 0394 ( cow-glider.s):00500 L59: 0394 1083270F ( cow-glider.s):00501 cmpd #9999 ;cmphi: 0398 22F5 ( cow-glider.s):00502 bhi L60 039A ED61 ( cow-glider.s):00503 std 1,s 039C 6F65 ( cow-glider.s):00504 clr 5,s 039E EC61 ( cow-glider.s):00505 ldd 1,s 03A0 2005 ( cow-glider.s):00506 bra L61 03A2 ( cow-glider.s):00507 L62: 03A2 6C65 ( cow-glider.s):00508 inc 5,s 03A4 C3FC18 ( cow-glider.s):00509 addd #-1000 03A7 ( cow-glider.s):00510 L61: 03A7 108303E7 ( cow-glider.s):00511 cmpd #999 ;cmphi: 03AB 22F5 ( cow-glider.s):00512 bhi L62 03AD ED61 ( cow-glider.s):00513 std 1,s 03AF 6F66 ( cow-glider.s):00514 clr 6,s 03B1 EC61 ( cow-glider.s):00515 ldd 1,s 03B3 2005 ( cow-glider.s):00516 bra L63 03B5 ( cow-glider.s):00517 L64: 03B5 6C66 ( cow-glider.s):00518 inc 6,s 03B7 C3FF9C ( cow-glider.s):00519 addd #-100 03BA ( cow-glider.s):00520 L63: 03BA 10830063 ( cow-glider.s):00521 cmpd #99 ;cmphi: 03BE 22F5 ( cow-glider.s):00522 bhi L64 03C0 ED61 ( cow-glider.s):00523 std 1,s 03C2 6F67 ( cow-glider.s):00524 clr 7,s 03C4 EC61 ( cow-glider.s):00525 ldd 1,s 03C6 2005 ( cow-glider.s):00526 bra L65 03C8 ( cow-glider.s):00527 L66: 03C8 6C67 ( cow-glider.s):00528 inc 7,s 03CA C3FFF6 ( cow-glider.s):00529 addd #-10 03CD ( cow-glider.s):00530 L65: 03CD 10830009 ( cow-glider.s):00531 cmpd #9 ;cmphi: 03D1 22F5 ( cow-glider.s):00532 bhi L66 03D3 ED61 ( cow-glider.s):00533 std 1,s 03D5 E6E4 ( cow-glider.s):00534 ldb ,s 03D7 2719 ( cow-glider.s):00535 beq L78 03D9 3404 ( cow-glider.s):00536 pshs b 03DB E66D ( cow-glider.s):00537 ldb 13,s 03DD 3404 ( cow-glider.s):00538 pshs b 03DF E666 ( cow-glider.s):00539 ldb 6,s 03E1 3404 ( cow-glider.s):00540 pshs b 03E3 C668 ( cow-glider.s):00541 ldb #104 03E5 BD0000 ( cow-glider.s):00542 jsr _PMode1DrawDigit3x5.constprop.2 03E8 3263 ( cow-glider.s):00543 leas 3,s 03EA C601 ( cow-glider.s):00544 ldb #1 03EC E763 ( cow-glider.s):00545 stb 3,s 03EE C668 ( cow-glider.s):00546 ldb #104 03F0 2004 ( cow-glider.s):00547 bra L79 03F2 ( cow-glider.s):00548 L78: 03F2 6F63 ( cow-glider.s):00549 clr 3,s 03F4 C6FF ( cow-glider.s):00550 ldb #-1 03F6 ( cow-glider.s):00551 L79: 03F6 E7E4 ( cow-glider.s):00552 stb ,s 03F8 E665 ( cow-glider.s):00553 ldb 5,s 03FA 2604 ( cow-glider.s):00554 bne L68 03FC E663 ( cow-glider.s):00555 ldb 3,s 03FE 2729 ( cow-glider.s):00556 beq L69 0400 ( cow-glider.s):00557 L68: 0400 E665 ( cow-glider.s):00558 ldb 5,s 0402 3404 ( cow-glider.s):00559 pshs b 0404 E66D ( cow-glider.s):00560 ldb 13,s 0406 3404 ( cow-glider.s):00561 pshs b 0408 E666 ( cow-glider.s):00562 ldb 6,s 040A 3404 ( cow-glider.s):00563 pshs b 040C C66C ( cow-glider.s):00564 ldb #108 040E BD0000 ( cow-glider.s):00565 jsr _PMode1DrawDigit3x5.constprop.2 0411 E663 ( cow-glider.s):00566 ldb 3,s 0413 4F ( cow-glider.s):00567 clra ;zero_extendqihi: R:b -> R:d 0414 1F03 ( cow-glider.s):00568 tfr d,u 0416 3263 ( cow-glider.s):00569 leas 3,s 0418 1083006C ( cow-glider.s):00570 cmpd #108 ;cmphi: 041C 2F03 ( cow-glider.s):00571 ble L70 041E CE006C ( cow-glider.s):00572 ldu #108 0421 ( cow-glider.s):00573 L70: 0421 1F30 ( cow-glider.s):00574 tfr u,d ;movlsbqihi: R:u -> R:b 0423 E7E4 ( cow-glider.s):00575 stb ,s 0425 C601 ( cow-glider.s):00576 ldb #1 0427 E763 ( cow-glider.s):00577 stb 3,s 0429 ( cow-glider.s):00578 L69: 0429 E666 ( cow-glider.s):00579 ldb 6,s 042B 2604 ( cow-glider.s):00580 bne L71 042D E663 ( cow-glider.s):00581 ldb 3,s 042F 2729 ( cow-glider.s):00582 beq L72 0431 ( cow-glider.s):00583 L71: 0431 E666 ( cow-glider.s):00584 ldb 6,s 0433 3404 ( cow-glider.s):00585 pshs b 0435 E66D ( cow-glider.s):00586 ldb 13,s 0437 3404 ( cow-glider.s):00587 pshs b 0439 E666 ( cow-glider.s):00588 ldb 6,s 043B 3404 ( cow-glider.s):00589 pshs b 043D C670 ( cow-glider.s):00590 ldb #112 043F BD0000 ( cow-glider.s):00591 jsr _PMode1DrawDigit3x5.constprop.2 0442 E663 ( cow-glider.s):00592 ldb 3,s 0444 4F ( cow-glider.s):00593 clra ;zero_extendqihi: R:b -> R:d 0445 1F03 ( cow-glider.s):00594 tfr d,u 0447 3263 ( cow-glider.s):00595 leas 3,s 0449 10830070 ( cow-glider.s):00596 cmpd #112 ;cmphi: 044D 2F03 ( cow-glider.s):00597 ble L73 044F CE0070 ( cow-glider.s):00598 ldu #112 0452 ( cow-glider.s):00599 L73: 0452 1F30 ( cow-glider.s):00600 tfr u,d ;movlsbqihi: R:u -> R:b 0454 E7E4 ( cow-glider.s):00601 stb ,s 0456 C601 ( cow-glider.s):00602 ldb #1 0458 E763 ( cow-glider.s):00603 stb 3,s 045A ( cow-glider.s):00604 L72: 045A E667 ( cow-glider.s):00605 ldb 7,s 045C 2604 ( cow-glider.s):00606 bne L74 045E E663 ( cow-glider.s):00607 ldb 3,s 0460 2725 ( cow-glider.s):00608 beq L75 0462 ( cow-glider.s):00609 L74: 0462 E667 ( cow-glider.s):00610 ldb 7,s 0464 3404 ( cow-glider.s):00611 pshs b 0466 E66D ( cow-glider.s):00612 ldb 13,s 0468 3404 ( cow-glider.s):00613 pshs b 046A E666 ( cow-glider.s):00614 ldb 6,s 046C 3404 ( cow-glider.s):00615 pshs b 046E C674 ( cow-glider.s):00616 ldb #116 0470 BD0000 ( cow-glider.s):00617 jsr _PMode1DrawDigit3x5.constprop.2 0473 E663 ( cow-glider.s):00618 ldb 3,s 0475 4F ( cow-glider.s):00619 clra ;zero_extendqihi: R:b -> R:d 0476 1F03 ( cow-glider.s):00620 tfr d,u 0478 3263 ( cow-glider.s):00621 leas 3,s 047A 10830074 ( cow-glider.s):00622 cmpd #116 ;cmphi: 047E 2F03 ( cow-glider.s):00623 ble L76 0480 CE0074 ( cow-glider.s):00624 ldu #116 0483 ( cow-glider.s):00625 L76: 0483 1F30 ( cow-glider.s):00626 tfr u,d ;movlsbqihi: R:u -> R:b 0485 E7E4 ( cow-glider.s):00627 stb ,s 0487 ( cow-glider.s):00628 L75: 0487 E662 ( cow-glider.s):00629 ldb 2,s ;movlsbqihi: msb:1,s -> R:b 0489 3404 ( cow-glider.s):00630 pshs b 048B E66D ( cow-glider.s):00631 ldb 13,s 048D 3404 ( cow-glider.s):00632 pshs b 048F E666 ( cow-glider.s):00633 ldb 6,s 0491 3404 ( cow-glider.s):00634 pshs b 0493 C678 ( cow-glider.s):00635 ldb #120 0495 BD0000 ( cow-glider.s):00636 jsr _PMode1DrawDigit3x5.constprop.2 0498 E663 ( cow-glider.s):00637 ldb 3,s 049A 4F ( cow-glider.s):00638 clra ;zero_extendqihi: R:b -> R:d 049B 1F01 ( cow-glider.s):00639 tfr d,x 049D 3263 ( cow-glider.s):00640 leas 3,s 049F 10830078 ( cow-glider.s):00641 cmpd #120 ;cmphi: 04A3 2F03 ( cow-glider.s):00642 ble L77 04A5 8E0078 ( cow-glider.s):00643 ldx #120 04A8 ( cow-glider.s):00644 L77: 04A8 1F10 ( cow-glider.s):00645 tfr x,d ;movlsbqihi: R:x -> R:b 04AA 3268 ( cow-glider.s):00646 leas 8,s 04AC 35C0 ( cow-glider.s):00647 puls u,pc 04AE ( cow-glider.s):00648 _DrawScores: 04AE 3440 ( cow-glider.s):00649 pshs u 04B0 3279 ( cow-glider.s):00650 leas -7,s 04B2 7F061E ( cow-glider.s):00651 clr _gScore+19 04B5 C602 ( cow-glider.s):00652 ldb #2 04B7 E763 ( cow-glider.s):00653 stb 3,s 04B9 6F64 ( cow-glider.s):00654 clr 4,s 04BB 7E0000 ( cow-glider.s):00655 jmp L81 04BE ( cow-glider.s):00656 L88: 04BE CE0000 ( cow-glider.s):00657 ldu #0 04C1 ( cow-glider.s):00658 L83: 04C1 1F30 ( cow-glider.s):00659 tfr u,d ;movlsbqihi: R:u -> R:b 04C3 E7E4 ( cow-glider.s):00660 stb ,s 04C5 E663 ( cow-glider.s):00661 ldb 3,s 04C7 EBE4 ( cow-glider.s):00662 addb ,s 04C9 E7E4 ( cow-glider.s):00663 stb ,s 04CB C664 ( cow-glider.s):00664 ldb #100 04CD E762 ( cow-glider.s):00665 stb 2,s 04CF ( cow-glider.s):00666 L82: 04CF 6FE2 ( cow-glider.s):00667 clr ,-s 04D1 E661 ( cow-glider.s):00668 ldb 1,s 04D3 3404 ( cow-glider.s):00669 pshs b 04D5 E664 ( cow-glider.s):00670 ldb 4,s 04D7 8E3400 ( cow-glider.s):00671 ldx #13312 04DA BD0000 ( cow-glider.s):00672 jsr _PMode1DrawSpot 04DD 6C64 ( cow-glider.s):00673 inc 4,s 04DF 3262 ( cow-glider.s):00674 leas 2,s 04E1 E662 ( cow-glider.s):00675 ldb 2,s 04E3 C17C ( cow-glider.s):00676 cmpb #124 ;cmpqi: 04E5 26E8 ( cow-glider.s):00677 bne L82 04E7 3341 ( cow-glider.s):00678 leau 1,u 04E9 11830005 ( cow-glider.s):00679 cmpu #5 ;cmphi: 04ED 26D2 ( cow-glider.s):00680 bne L83 04EF C603 ( cow-glider.s):00681 ldb #3 04F1 E762 ( cow-glider.s):00682 stb 2,s 04F3 E664 ( cow-glider.s):00683 ldb 4,s 04F5 F10000 ( cow-glider.s):00684 cmpb _Player ;cmpqi: 04F8 2604 ( cow-glider.s):00685 bne L84 04FA C602 ( cow-glider.s):00686 ldb #2 04FC E762 ( cow-glider.s):00687 stb 2,s 04FE ( cow-glider.s):00688 L84: 04FE E664 ( cow-glider.s):00689 ldb 4,s 0500 4F ( cow-glider.s):00690 clra ;zero_extendqihi: R:b -> R:d 0501 EDE4 ( cow-glider.s):00691 std ,s 0503 58 ( cow-glider.s):00692 aslb 0504 49 ( cow-glider.s):00693 rola 0505 1F03 ( cow-glider.s):00694 tfr d,u 0507 30C9061F ( cow-glider.s):00695 leax _gScore+20,u 050B AE84 ( cow-glider.s):00696 ldx ,x 050D 102A005E ( cow-glider.s):00697 lbpl L85 0511 1E01 ( cow-glider.s):00698 exg d,x 0513 40 ( cow-glider.s):00699 nega 0514 50 ( cow-glider.s):00700 negb 0515 8200 ( cow-glider.s):00701 sbca #0 0517 1E01 ( cow-glider.s):00702 exg d,x 0519 E662 ( cow-glider.s):00703 ldb 2,s 051B 3404 ( cow-glider.s):00704 pshs b 051D E664 ( cow-glider.s):00705 ldb 4,s 051F BD0000 ( cow-glider.s):00706 jsr _PMode1DrawDecimal3x5Unsigned.constprop.3 0522 E761 ( cow-glider.s):00707 stb 1,s 0524 E664 ( cow-glider.s):00708 ldb 4,s 0526 5C ( cow-glider.s):00709 incb 0527 E766 ( cow-glider.s):00710 stb 6,s 0529 E661 ( cow-glider.s):00711 ldb 1,s 052B CBFE ( cow-glider.s):00712 addb #-2 052D E767 ( cow-glider.s):00713 stb 7,s 052F E663 ( cow-glider.s):00714 ldb 3,s 0531 3404 ( cow-glider.s):00715 pshs b 0533 E667 ( cow-glider.s):00716 ldb 7,s 0535 3404 ( cow-glider.s):00717 pshs b 0537 E669 ( cow-glider.s):00718 ldb 9,s 0539 8E3400 ( cow-glider.s):00719 ldx #13312 053C BD0000 ( cow-glider.s):00720 jsr _PMode1DrawSpot 053F E663 ( cow-glider.s):00721 ldb 3,s 0541 CBFD ( cow-glider.s):00722 addb #-3 0543 E769 ( cow-glider.s):00723 stb 9,s 0545 E665 ( cow-glider.s):00724 ldb 5,s 0547 3404 ( cow-glider.s):00725 pshs b 0549 E669 ( cow-glider.s):00726 ldb 9,s 054B 3404 ( cow-glider.s):00727 pshs b 054D E66B ( cow-glider.s):00728 ldb 11,s 054F 8E3400 ( cow-glider.s):00729 ldx #13312 0552 BD0000 ( cow-glider.s):00730 jsr _PMode1DrawSpot 0555 E665 ( cow-glider.s):00731 ldb 5,s 0557 CBFC ( cow-glider.s):00732 addb #-4 0559 E765 ( cow-glider.s):00733 stb 5,s 055B E667 ( cow-glider.s):00734 ldb 7,s 055D 3404 ( cow-glider.s):00735 pshs b 055F E66B ( cow-glider.s):00736 ldb 11,s 0561 3404 ( cow-glider.s):00737 pshs b 0563 E667 ( cow-glider.s):00738 ldb 7,s 0565 8E3400 ( cow-glider.s):00739 ldx #13312 0568 BD0000 ( cow-glider.s):00740 jsr _PMode1DrawSpot 056B 3267 ( cow-glider.s):00741 leas 7,s 056D 200B ( cow-glider.s):00742 bra L86 056F ( cow-glider.s):00743 L85: 056F E662 ( cow-glider.s):00744 ldb 2,s 0571 3404 ( cow-glider.s):00745 pshs b 0573 E664 ( cow-glider.s):00746 ldb 4,s 0575 BD0000 ( cow-glider.s):00747 jsr _PMode1DrawDecimal3x5Unsigned.constprop.3 0578 3261 ( cow-glider.s):00748 leas 1,s 057A ( cow-glider.s):00749 L86: 057A 6C64 ( cow-glider.s):00750 inc 4,s 057C E663 ( cow-glider.s):00751 ldb 3,s 057E CB07 ( cow-glider.s):00752 addb #7 0580 E763 ( cow-glider.s):00753 stb 3,s 0582 ( cow-glider.s):00754 L81: 0582 E664 ( cow-glider.s):00755 ldb 4,s 0584 F10000 ( cow-glider.s):00756 cmpb _NumberOfPlayers ;cmpqi: 0587 1025FF33 ( cow-glider.s):00757 lblo L88 058B 3267 ( cow-glider.s):00758 leas 7,s 058D 35C0 ( cow-glider.s):00759 puls u,pc 058F ( cow-glider.s):00760 _loop: 058F 3460 ( cow-glider.s):00761 pshs y,u 0591 327B ( cow-glider.s):00762 leas -5,s 0593 10BE0000 ( cow-glider.s):00763 ldy _loops 0597 3021 ( cow-glider.s):00764 leax 1,y 0599 BF0000 ( cow-glider.s):00765 stx _loops 059C F60000 ( cow-glider.s):00766 ldb _decis 059F E762 ( cow-glider.s):00767 stb 2,s 05A1 F10021 ( cow-glider.s):00768 cmpb _gMono+1 ;cmpqi:(R) 05A4 102702CB ( cow-glider.s):00769 lbeq L91 05A8 7C0000 ( cow-glider.s):00770 inc _counter 05AB 8C0013 ( cow-glider.s):00771 cmpx #19 ;cmphi: 05AE 2325 ( cow-glider.s):00772 bls L93 05B0 F60021 ( cow-glider.s):00773 ldb _gMono+1 05B3 4F ( cow-glider.s):00774 clra ;zero_extendqihi: R:b -> R:d 05B4 1F03 ( cow-glider.s):00775 tfr d,u 05B6 E662 ( cow-glider.s):00776 ldb 2,s 05B8 4F ( cow-glider.s):00777 clra ;zero_extendqihi: R:b -> R:d 05B9 1F02 ( cow-glider.s):00778 tfr d,y 05BB 3021 ( cow-glider.s):00779 leax 1,y 05BD 3410 ( cow-glider.s):00780 pshs x ;cmphi: R:x with R:u 05BF 11A3E1 ( cow-glider.s):00781 cmpu ,s++ ;cmphi: 05C2 2711 ( cow-glider.s):00782 beq L93 05C4 F60021 ( cow-glider.s):00783 ldb _gMono+1 05C7 2606 ( cow-glider.s):00784 bne L94 05C9 E662 ( cow-glider.s):00785 ldb 2,s 05CB C109 ( cow-glider.s):00786 cmpb #9 ;cmpqi: 05CD 2706 ( cow-glider.s):00787 beq L93 05CF ( cow-glider.s):00788 L94: 05CF 7C3FE4 ( cow-glider.s):00789 inc 16356 05D2 F63FE4 ( cow-glider.s):00790 ldb 16356 05D5 ( cow-glider.s):00791 L93: 05D5 F60021 ( cow-glider.s):00792 ldb _gMono+1 05D8 F70000 ( cow-glider.s):00793 stb _decis 05DB C602 ( cow-glider.s):00794 ldb #2 05DD E762 ( cow-glider.s):00795 stb 2,s 05DF F60021 ( cow-glider.s):00796 ldb _gMono+1 05E2 2625 ( cow-glider.s):00797 bne L125 05E4 7F0000 ( cow-glider.s):00798 clr _packet.1719+1 05E7 C601 ( cow-glider.s):00799 ldb #1 05E9 F70000 ( cow-glider.s):00800 stb _packet.1719+2 05EC CC0008 ( cow-glider.s):00801 ldd #8 05EF EDE3 ( cow-glider.s):00802 std ,--s 05F1 BE0000 ( cow-glider.s):00803 ldx _mytank 05F4 AFE3 ( cow-glider.s):00804 stx ,--s 05F6 8E0000 ( cow-glider.s):00805 ldx #_packet.1719+3 05F9 BD08C5 ( cow-glider.s):00806 jsr _memcpy 05FC C609 ( cow-glider.s):00807 ldb #9 05FE 8E0000 ( cow-glider.s):00808 ldx #_packet.1719 0601 BD0C9E ( cow-glider.s):00809 jsr _gSendCast 0604 3264 ( cow-glider.s):00810 leas 4,s 0606 7E0000 ( cow-glider.s):00811 jmp L96 0609 ( cow-glider.s):00812 L125: 0609 BD074C ( cow-glider.s):00813 jsr _gReceiveCast64 060C 3384 ( cow-glider.s):00814 leau ,x 060E 8C0000 ( cow-glider.s):00815 cmpx #0 ;cmphi: 0611 2733 ( cow-glider.s):00816 beq L97 0613 E602 ( cow-glider.s):00817 ldb 2,x 0615 C101 ( cow-glider.s):00818 cmpb #1 ;cmpqi: 0617 2622 ( cow-glider.s):00819 bne L98 0619 E684 ( cow-glider.s):00820 ldb ,x 061B F10000 ( cow-glider.s):00821 cmpb _Player ;cmpqi: 061E 271B ( cow-glider.s):00822 beq L98 0620 4F ( cow-glider.s):00823 clra ;zero_extendqihi: R:b -> R:d 0621 58 ( cow-glider.s):00824 aslb 0622 49 ( cow-glider.s):00825 rola 0623 58 ( cow-glider.s):00826 aslb 0624 49 ( cow-glider.s):00827 rola 0625 58 ( cow-glider.s):00828 aslb 0626 49 ( cow-glider.s):00829 rola 0627 108E0000 ( cow-glider.s):00830 ldy #_State 062B 30AB ( cow-glider.s):00831 leax d,y 062D CC0008 ( cow-glider.s):00832 ldd #8 0630 EDE3 ( cow-glider.s):00833 std ,--s 0632 3143 ( cow-glider.s):00834 leay 3,u 0634 3420 ( cow-glider.s):00835 pshs y 0636 BD08C5 ( cow-glider.s):00836 jsr _memcpy 0639 3264 ( cow-glider.s):00837 leas 4,s 063B ( cow-glider.s):00838 L98: 063B 30C4 ( cow-glider.s):00839 leax ,u 063D BD06DF ( cow-glider.s):00840 jsr _gFree64 0640 6A62 ( cow-glider.s):00841 dec 2,s 0642 E662 ( cow-glider.s):00842 ldb 2,s 0644 26C3 ( cow-glider.s):00843 bne L125 0646 ( cow-glider.s):00844 L97: 0646 8E0000 ( cow-glider.s):00845 ldx #0 0649 F6065B ( cow-glider.s):00846 ldb _gKern+4 064C 10270197 ( cow-glider.s):00847 lbeq L96 0650 108E0008 ( cow-glider.s):00848 ldy #8 0654 10AF63 ( cow-glider.s):00849 sty 3,s 0657 C601 ( cow-glider.s):00850 ldb #1 0659 E762 ( cow-glider.s):00851 stb 2,s 065B ( cow-glider.s):00852 L102: ( cow-glider.s):00853 ;----- asm ----- ( cow-glider.s):00854 ; 67 "../../nekotos/lib/keyscan_arrows_0to7.h" 1 065B 1A10 ( cow-glider.s):00855 orcc #$10 ( cow-glider.s):00856 ;--- end asm --- 065D E662 ( cow-glider.s):00857 ldb 2,s 065F 53 ( cow-glider.s):00858 comb 0660 F7FF02 ( cow-glider.s):00859 stb -254 0663 F6FF00 ( cow-glider.s):00860 ldb -256 ( cow-glider.s):00861 ;----- asm ----- ( cow-glider.s):00862 ; 70 "../../nekotos/lib/keyscan_arrows_0to7.h" 1 0666 1CEF ( cow-glider.s):00863 andcc #^$10 ( cow-glider.s):00864 ;--- end asm --- 0668 4F ( cow-glider.s):00865 clra ;zero_extendqihi: R:b -> R:d 0669 1F03 ( cow-glider.s):00866 tfr d,u 066B 8400 ( cow-glider.s):00867 anda #0 066D C408 ( cow-glider.s):00868 andb #8 066F 1F02 ( cow-glider.s):00869 tfr d,y 0671 108C0000 ( cow-glider.s):00870 cmpy #0 ;cmphi: 0675 261A ( cow-glider.s):00871 bne L100 0677 1F10 ( cow-glider.s):00872 tfr x,d 0679 1F89 ( cow-glider.s):00873 tfr a,b 067B 4F ( cow-glider.s):00874 clra ;zero_extendqihi: R:b -> R:d 067C EA62 ( cow-glider.s):00875 orb 2,s 067E 1F98 ( cow-glider.s):00876 tfr b,a 0680 5F ( cow-glider.s):00877 clrb 0681 1F02 ( cow-glider.s):00878 tfr d,y 0683 1F10 ( cow-glider.s):00879 tfr x,d 0685 8400 ( cow-glider.s):00880 anda #0 0687 C4FF ( cow-glider.s):00881 andb #255 0689 3420 ( cow-glider.s):00882 pshs y 068B AAE0 ( cow-glider.s):00883 ora ,s+ 068D EAE0 ( cow-glider.s):00884 orb ,s+ 068F 1F01 ( cow-glider.s):00885 tfr d,x 0691 ( cow-glider.s):00886 L100: 0691 1F30 ( cow-glider.s):00887 tfr u,d 0693 8400 ( cow-glider.s):00888 anda #0 0695 C410 ( cow-glider.s):00889 andb #16 0697 1F03 ( cow-glider.s):00890 tfr d,u 0699 11830000 ( cow-glider.s):00891 cmpu #0 ;cmphi: 069D 2615 ( cow-glider.s):00892 bne L101 069F 1F10 ( cow-glider.s):00893 tfr x,d ;movlsbqihi: R:x -> R:b 06A1 EA62 ( cow-glider.s):00894 orb 2,s 06A3 4F ( cow-glider.s):00895 clra ;zero_extendqihi: R:b -> R:d 06A4 1F03 ( cow-glider.s):00896 tfr d,u 06A6 1F10 ( cow-glider.s):00897 tfr x,d 06A8 84FF ( cow-glider.s):00898 anda #255 06AA C400 ( cow-glider.s):00899 andb #0 06AC 3440 ( cow-glider.s):00900 pshs u 06AE AAE0 ( cow-glider.s):00901 ora ,s+ 06B0 EAE0 ( cow-glider.s):00902 orb ,s+ 06B2 1F01 ( cow-glider.s):00903 tfr d,x 06B4 ( cow-glider.s):00904 L101: 06B4 6862 ( cow-glider.s):00905 asl 2,s 06B6 EC63 ( cow-glider.s):00906 ldd 3,s 06B8 C3FFFF ( cow-glider.s):00907 addd #-1 06BB ED63 ( cow-glider.s):00908 std 3,s 06BD 269C ( cow-glider.s):00909 bne L102 06BF 8C0000 ( cow-glider.s):00910 cmpx #0 ;cmphi: 06C2 10270121 ( cow-glider.s):00911 lbeq L96 06C6 1F10 ( cow-glider.s):00912 tfr x,d 06C8 8400 ( cow-glider.s):00913 anda #0 06CA C401 ( cow-glider.s):00914 andb #1 06CC 10830000 ( cow-glider.s):00915 cmpd #0 ;cmphi: 06D0 270D ( cow-glider.s):00916 beq L103 06D2 FE060E ( cow-glider.s):00917 ldu _gScore+3 06D5 3341 ( cow-glider.s):00918 leau 1,u 06D7 FF060E ( cow-glider.s):00919 stu _gScore+3 06DA C601 ( cow-glider.s):00920 ldb #1 06DC F7060D ( cow-glider.s):00921 stb _gScore+2 06DF ( cow-glider.s):00922 L103: 06DF 1F10 ( cow-glider.s):00923 tfr x,d 06E1 8400 ( cow-glider.s):00924 anda #0 06E3 C402 ( cow-glider.s):00925 andb #2 06E5 10830000 ( cow-glider.s):00926 cmpd #0 ;cmphi: 06E9 270D ( cow-glider.s):00927 beq L104 06EB FE0610 ( cow-glider.s):00928 ldu _gScore+5 06EE 3341 ( cow-glider.s):00929 leau 1,u 06F0 FF0610 ( cow-glider.s):00930 stu _gScore+5 06F3 C601 ( cow-glider.s):00931 ldb #1 06F5 F7060D ( cow-glider.s):00932 stb _gScore+2 06F8 ( cow-glider.s):00933 L104: 06F8 1F10 ( cow-glider.s):00934 tfr x,d 06FA 8400 ( cow-glider.s):00935 anda #0 06FC C404 ( cow-glider.s):00936 andb #4 06FE 10830000 ( cow-glider.s):00937 cmpd #0 ;cmphi: 0702 270D ( cow-glider.s):00938 beq L105 0704 FE0612 ( cow-glider.s):00939 ldu _gScore+7 0707 3341 ( cow-glider.s):00940 leau 1,u 0709 FF0612 ( cow-glider.s):00941 stu _gScore+7 070C C601 ( cow-glider.s):00942 ldb #1 070E F7060D ( cow-glider.s):00943 stb _gScore+2 0711 ( cow-glider.s):00944 L105: 0711 1F10 ( cow-glider.s):00945 tfr x,d 0713 8400 ( cow-glider.s):00946 anda #0 0715 C408 ( cow-glider.s):00947 andb #8 0717 10830000 ( cow-glider.s):00948 cmpd #0 ;cmphi: 071B 270D ( cow-glider.s):00949 beq L106 071D FE0614 ( cow-glider.s):00950 ldu _gScore+9 0720 3341 ( cow-glider.s):00951 leau 1,u 0722 FF0614 ( cow-glider.s):00952 stu _gScore+9 0725 C601 ( cow-glider.s):00953 ldb #1 0727 F7060D ( cow-glider.s):00954 stb _gScore+2 072A ( cow-glider.s):00955 L106: 072A 1F10 ( cow-glider.s):00956 tfr x,d 072C 8400 ( cow-glider.s):00957 anda #0 072E C410 ( cow-glider.s):00958 andb #16 0730 10830000 ( cow-glider.s):00959 cmpd #0 ;cmphi: 0734 270D ( cow-glider.s):00960 beq L107 0736 FE0616 ( cow-glider.s):00961 ldu _gScore+11 0739 3341 ( cow-glider.s):00962 leau 1,u 073B FF0616 ( cow-glider.s):00963 stu _gScore+11 073E C601 ( cow-glider.s):00964 ldb #1 0740 F7060D ( cow-glider.s):00965 stb _gScore+2 0743 ( cow-glider.s):00966 L107: 0743 1F10 ( cow-glider.s):00967 tfr x,d 0745 8400 ( cow-glider.s):00968 anda #0 0747 C420 ( cow-glider.s):00969 andb #32 0749 10830000 ( cow-glider.s):00970 cmpd #0 ;cmphi: 074D 270D ( cow-glider.s):00971 beq L108 074F FE0618 ( cow-glider.s):00972 ldu _gScore+13 0752 3341 ( cow-glider.s):00973 leau 1,u 0754 FF0618 ( cow-glider.s):00974 stu _gScore+13 0757 C601 ( cow-glider.s):00975 ldb #1 0759 F7060D ( cow-glider.s):00976 stb _gScore+2 075C ( cow-glider.s):00977 L108: 075C 1F10 ( cow-glider.s):00978 tfr x,d 075E 8400 ( cow-glider.s):00979 anda #0 0760 C440 ( cow-glider.s):00980 andb #64 0762 10830000 ( cow-glider.s):00981 cmpd #0 ;cmphi: 0766 270D ( cow-glider.s):00982 beq L109 0768 FE061A ( cow-glider.s):00983 ldu _gScore+15 076B 3341 ( cow-glider.s):00984 leau 1,u 076D FF061A ( cow-glider.s):00985 stu _gScore+15 0770 C601 ( cow-glider.s):00986 ldb #1 0772 F7060D ( cow-glider.s):00987 stb _gScore+2 0775 ( cow-glider.s):00988 L109: 0775 1F10 ( cow-glider.s):00989 tfr x,d 0777 8400 ( cow-glider.s):00990 anda #0 0779 C480 ( cow-glider.s):00991 andb #128 077B 10830000 ( cow-glider.s):00992 cmpd #0 ;cmphi: 077F 270D ( cow-glider.s):00993 beq L110 0781 FE061C ( cow-glider.s):00994 ldu _gScore+17 0784 3341 ( cow-glider.s):00995 leau 1,u 0786 FF061C ( cow-glider.s):00996 stu _gScore+17 0789 C601 ( cow-glider.s):00997 ldb #1 078B F7060D ( cow-glider.s):00998 stb _gScore+2 078E ( cow-glider.s):00999 L110: 078E 1F10 ( cow-glider.s):01000 tfr x,d 0790 8420 ( cow-glider.s):01001 anda #32 0792 C400 ( cow-glider.s):01002 andb #0 0794 10830000 ( cow-glider.s):01003 cmpd #0 ;cmphi: 0798 270A ( cow-glider.s):01004 beq L111 079A FE0000 ( cow-glider.s):01005 ldu _mytank 079D EC44 ( cow-glider.s):01006 ldd 4,u 079F C3FFF0 ( cow-glider.s):01007 addd #-16 07A2 ED44 ( cow-glider.s):01008 std 4,u 07A4 ( cow-glider.s):01009 L111: 07A4 1F10 ( cow-glider.s):01010 tfr x,d 07A6 8440 ( cow-glider.s):01011 anda #64 07A8 C400 ( cow-glider.s):01012 andb #0 07AA 10830000 ( cow-glider.s):01013 cmpd #0 ;cmphi: 07AE 270A ( cow-glider.s):01014 beq L112 07B0 FE0000 ( cow-glider.s):01015 ldu _mytank 07B3 EC44 ( cow-glider.s):01016 ldd 4,u 07B5 C30010 ( cow-glider.s):01017 addd #16 07B8 ED44 ( cow-glider.s):01018 std 4,u 07BA ( cow-glider.s):01019 L112: 07BA 1F10 ( cow-glider.s):01020 tfr x,d 07BC 8408 ( cow-glider.s):01021 anda #8 07BE C400 ( cow-glider.s):01022 andb #0 07C0 10830000 ( cow-glider.s):01023 cmpd #0 ;cmphi: 07C4 270A ( cow-glider.s):01024 beq L113 07C6 FE0000 ( cow-glider.s):01025 ldu _mytank 07C9 EC46 ( cow-glider.s):01026 ldd 6,u 07CB C3FFF0 ( cow-glider.s):01027 addd #-16 07CE ED46 ( cow-glider.s):01028 std 6,u 07D0 ( cow-glider.s):01029 L113: 07D0 1F10 ( cow-glider.s):01030 tfr x,d 07D2 8410 ( cow-glider.s):01031 anda #16 07D4 C400 ( cow-glider.s):01032 andb #0 07D6 1F01 ( cow-glider.s):01033 tfr d,x 07D8 8C0000 ( cow-glider.s):01034 cmpx #0 ;cmphi: 07DB 270A ( cow-glider.s):01035 beq L96 07DD BE0000 ( cow-glider.s):01036 ldx _mytank 07E0 EC06 ( cow-glider.s):01037 ldd 6,x 07E2 C30010 ( cow-glider.s):01038 addd #16 07E5 ED06 ( cow-glider.s):01039 std 6,x 07E7 ( cow-glider.s):01040 L96: 07E7 BD0000 ( cow-glider.s):01041 jsr _XorOldTanks 07EA F60000 ( cow-glider.s):01042 ldb _NumberOfPlayers 07ED E762 ( cow-glider.s):01043 stb 2,s 07EF 108E0000 ( cow-glider.s):01044 ldy #0 07F3 2054 ( cow-glider.s):01045 bra L114 07F5 ( cow-glider.s):01046 L123: 07F5 1F20 ( cow-glider.s):01047 tfr y,d 07F7 58 ( cow-glider.s):01048 aslb 07F8 49 ( cow-glider.s):01049 rola 07F9 58 ( cow-glider.s):01050 aslb 07FA 49 ( cow-glider.s):01051 rola 07FB 58 ( cow-glider.s):01052 aslb 07FC 49 ( cow-glider.s):01053 rola 07FD 1F03 ( cow-glider.s):01054 tfr d,u 07FF 30C90000 ( cow-glider.s):01055 leax _State,u 0803 EC84 ( cow-glider.s):01056 ldd ,x 0805 E304 ( cow-glider.s):01057 addd 4,x 0807 ED84 ( cow-glider.s):01058 std ,x 0809 EC02 ( cow-glider.s):01059 ldd 2,x 080B E306 ( cow-glider.s):01060 addd 6,x 080D ED02 ( cow-glider.s):01061 std 2,x 080F 2006 ( cow-glider.s):01062 bra L115 0811 ( cow-glider.s):01063 L116: 0811 33C96000 ( cow-glider.s):01064 leau 24576,u 0815 EF84 ( cow-glider.s):01065 stu ,x 0817 ( cow-glider.s):01066 L115: 0817 EE84 ( cow-glider.s):01067 ldu ,x 0819 2BF6 ( cow-glider.s):01068 bmi L116 081B 2006 ( cow-glider.s):01069 bra L128 081D ( cow-glider.s):01070 L118: 081D 33C96000 ( cow-glider.s):01071 leau 24576,u 0821 EF02 ( cow-glider.s):01072 stu 2,x 0823 ( cow-glider.s):01073 L128: 0823 EE02 ( cow-glider.s):01074 ldu 2,x 0825 2BF6 ( cow-glider.s):01075 bmi L118 0827 2006 ( cow-glider.s):01076 bra L129 0829 ( cow-glider.s):01077 L120: 0829 33C9A000 ( cow-glider.s):01078 leau -24576,u 082D EF84 ( cow-glider.s):01079 stu ,x 082F ( cow-glider.s):01080 L129: 082F EE84 ( cow-glider.s):01081 ldu ,x 0831 11835FFF ( cow-glider.s):01082 cmpu #24575 ;cmphi: 0835 2EF2 ( cow-glider.s):01083 bgt L120 0837 2006 ( cow-glider.s):01084 bra L130 0839 ( cow-glider.s):01085 L122: 0839 33C9A000 ( cow-glider.s):01086 leau -24576,u 083D EF02 ( cow-glider.s):01087 stu 2,x 083F ( cow-glider.s):01088 L130: 083F EE02 ( cow-glider.s):01089 ldu 2,x 0841 11835FFF ( cow-glider.s):01090 cmpu #24575 ;cmphi: 0845 2EF2 ( cow-glider.s):01091 bgt L122 0847 3121 ( cow-glider.s):01092 leay 1,y 0849 ( cow-glider.s):01093 L114: 0849 1F20 ( cow-glider.s):01094 tfr y,d ;movlsbqihi: R:y -> R:b 084B E763 ( cow-glider.s):01095 stb 3,s 084D E662 ( cow-glider.s):01096 ldb 2,s 084F E163 ( cow-glider.s):01097 cmpb 3,s ;cmpqi: 0851 1022FFA0 ( cow-glider.s):01098 lbhi L123 0855 CC0040 ( cow-glider.s):01099 ldd #64 0858 EDE3 ( cow-glider.s):01100 std ,--s 085A 8E0000 ( cow-glider.s):01101 ldx #_State 085D AFE3 ( cow-glider.s):01102 stx ,--s 085F 8E0000 ( cow-glider.s):01103 ldx #_OldState 0862 BD08C5 ( cow-glider.s):01104 jsr _memcpy 0865 BD0000 ( cow-glider.s):01105 jsr _XorOldTanks 0868 F6061E ( cow-glider.s):01106 ldb _gScore+19 086B 3264 ( cow-glider.s):01107 leas 4,s 086D 5D ( cow-glider.s):01108 tstb ;cmpqi:(ZERO) 086E 2703 ( cow-glider.s):01109 beq L91 0870 BD0000 ( cow-glider.s):01110 jsr _DrawScores 0873 ( cow-glider.s):01111 L91: 0873 3265 ( cow-glider.s):01112 leas 5,s 0875 35E0 ( cow-glider.s):01113 puls y,u,pc 0877 ( cow-glider.s):01114 LC0: 0877 7365747570206E61 ( cow-glider.s):01115 .ascii "setup nando\0" 6E646F00 0883 ( cow-glider.s):01116 LC1: 0883 494E20474C494445 ( cow-glider.s):01117 .ascii "IN GLIDER GAME P %d COUNT %d\0" 522047414D452050 20256420434F554E 5420256400 ( cow-glider.s):01118 ( cow-glider.s):01119 .area .text.startup ( cow-glider.s):01120 ( cow-glider.s):01121 .globl _main 0000 ( cow-glider.s):01122 _main: 0000 3460 ( cow-glider.s):01123 pshs y,u 0002 327B ( cow-glider.s):01124 leas -5,s ( cow-glider.s):01125 ;----- asm ----- ( cow-glider.s):01126 ; 5 "../kernel/game_postlude.h" 1 ( cow-glider.s):01127 .globl __n1pre_entry ( cow-glider.s):01128 ;--- end asm --- 0004 8E0000 ( cow-glider.s):01129 ldx #__n1pre_entry 0007 BF0000 ( cow-glider.s):01130 stx 0 ( cow-glider.s):01131 ;----- asm ----- ( cow-glider.s):01132 ; 8 "../kernel/game_postlude.h" 1 ( cow-glider.s):01133 .globl __n1pre_final ( cow-glider.s):01134 ;--- end asm --- 000A 108E0000 ( cow-glider.s):01135 ldy #__n1pre_final 000E 10BF0000 ( cow-glider.s):01136 sty 0 ( cow-glider.s):01137 ;----- asm ----- ( cow-glider.s):01138 ; 11 "../kernel/game_postlude.h" 1 ( cow-glider.s):01139 .globl __n1pre_final_startup ( cow-glider.s):01140 ;--- end asm --- 0012 8E0000 ( cow-glider.s):01141 ldx #__n1pre_final_startup 0015 BF0000 ( cow-glider.s):01142 stx 0 0018 F6060B ( cow-glider.s):01143 ldb _gScore 001B F70000 ( cow-glider.s):01144 stb _NumberOfPlayers 001E F6060C ( cow-glider.s):01145 ldb _gScore+1 0021 4F ( cow-glider.s):01146 clra ;zero_extendqihi: R:b -> R:d 0022 F70000 ( cow-glider.s):01147 stb _Player ;movlsbqihi: R:d -> _Player 0025 58 ( cow-glider.s):01148 aslb 0026 49 ( cow-glider.s):01149 rola 0027 58 ( cow-glider.s):01150 aslb 0028 49 ( cow-glider.s):01151 rola 0029 58 ( cow-glider.s):01152 aslb 002A 49 ( cow-glider.s):01153 rola 002B C30000 ( cow-glider.s):01154 addd #_State 002E FD0000 ( cow-glider.s):01155 std _mytank 0031 8E0000 ( cow-glider.s):01156 ldx #LC0 0034 BD0C68 ( cow-glider.s):01157 jsr _gNetworkLog 0037 F60000 ( cow-glider.s):01158 ldb _NumberOfPlayers 003A 4F ( cow-glider.s):01159 clra ;zero_extendqihi: R:b -> R:d 003B 3406 ( cow-glider.s):01160 pshs d 003D F60000 ( cow-glider.s):01161 ldb _Player 0040 4F ( cow-glider.s):01162 clra ;zero_extendqihi: R:b -> R:d 0041 3406 ( cow-glider.s):01163 pshs d 0043 8E0000 ( cow-glider.s):01164 ldx #LC1 0046 AFE3 ( cow-glider.s):01165 stx ,--s 0048 108E0000 ( cow-glider.s):01166 ldy #_logbuf 004C 10AFE3 ( cow-glider.s):01167 sty ,--s 004F BD0000 ( cow-glider.s):01168 jsr _Sprintf 0052 3268 ( cow-glider.s):01169 leas 8,s 0054 30A4 ( cow-glider.s):01170 leax ,y 0056 BD0C68 ( cow-glider.s):01171 jsr _gNetworkLog 0059 CC0040 ( cow-glider.s):01172 ldd #64 005C EDE3 ( cow-glider.s):01173 std ,--s 005E CC0000 ( cow-glider.s):01174 ldd #0 0061 EDE3 ( cow-glider.s):01175 std ,--s 0063 8E0000 ( cow-glider.s):01176 ldx #_State 0066 BD089F ( cow-glider.s):01177 jsr _memset 0069 F60000 ( cow-glider.s):01178 ldb _NumberOfPlayers 006C E766 ( cow-glider.s):01179 stb 6,s 006E 3264 ( cow-glider.s):01180 leas 4,s 0070 CE0005 ( cow-glider.s):01181 ldu #5 0073 CC0000 ( cow-glider.s):01182 ldd #0 0076 EDE4 ( cow-glider.s):01183 std ,s 0078 202C ( cow-glider.s):01184 bra L132 007A ( cow-glider.s):01185 L133: 007A ECE4 ( cow-glider.s):01186 ldd ,s 007C 58 ( cow-glider.s):01187 aslb 007D 49 ( cow-glider.s):01188 rola 007E 58 ( cow-glider.s):01189 aslb 007F 49 ( cow-glider.s):01190 rola 0080 58 ( cow-glider.s):01191 aslb 0081 49 ( cow-glider.s):01192 rola 0082 1F02 ( cow-glider.s):01193 tfr d,y 0084 30A90000 ( cow-glider.s):01194 leax _State,y 0088 108E1400 ( cow-glider.s):01195 ldy #5120 008C 10AF84 ( cow-glider.s):01196 sty ,x 008F 1F30 ( cow-glider.s):01197 tfr u,d 0091 1F98 ( cow-glider.s):01198 tfr b,a 0093 5F ( cow-glider.s):01199 clrb 0094 ED02 ( cow-glider.s):01200 std 2,x 0096 CC0000 ( cow-glider.s):01201 ldd #0 0099 ED04 ( cow-glider.s):01202 std 4,x 009B ED06 ( cow-glider.s):01203 std 6,x 009D ECE4 ( cow-glider.s):01204 ldd ,s 009F C30001 ( cow-glider.s):01205 addd #1 00A2 EDE4 ( cow-glider.s):01206 std ,s 00A4 334A ( cow-glider.s):01207 leau 10,u 00A6 ( cow-glider.s):01208 L132: 00A6 ECE4 ( cow-glider.s):01209 ldd ,s 00A8 E763 ( cow-glider.s):01210 stb 3,s ;movlsbqihi: R:d -> 3,s 00AA E662 ( cow-glider.s):01211 ldb 2,s 00AC E163 ( cow-glider.s):01212 cmpb 3,s ;cmpqi: 00AE 22CA ( cow-glider.s):01213 bhi L133 00B0 8E3400 ( cow-glider.s):01214 ldx #13312 00B3 ( cow-glider.s):01215 L134: 00B3 CC0000 ( cow-glider.s):01216 ldd #0 00B6 ED81 ( cow-glider.s):01217 std ,x++ 00B8 8C4000 ( cow-glider.s):01218 cmpx #16384 ;cmphi: 00BB 26F6 ( cow-glider.s):01219 bne L134 00BD 8E3400 ( cow-glider.s):01220 ldx #13312 00C0 BD0A54 ( cow-glider.s):01221 jsr _gPMode1Screen 00C3 6F62 ( cow-glider.s):01222 clr 2,s 00C5 ( cow-glider.s):01223 L135: 00C5 C601 ( cow-glider.s):01224 ldb #1 00C7 E7E2 ( cow-glider.s):01225 stb ,-s 00C9 6FE2 ( cow-glider.s):01226 clr ,-s 00CB E664 ( cow-glider.s):01227 ldb 4,s 00CD 8E3400 ( cow-glider.s):01228 ldx #13312 00D0 BD0000 ( cow-glider.s):01229 jsr _PMode1DrawSpot 00D3 6C64 ( cow-glider.s):01230 inc 4,s 00D5 3262 ( cow-glider.s):01231 leas 2,s 00D7 E662 ( cow-glider.s):01232 ldb 2,s 00D9 C160 ( cow-glider.s):01233 cmpb #96 ;cmpqi: 00DB 26E8 ( cow-glider.s):01234 bne L135 00DD 6F62 ( cow-glider.s):01235 clr 2,s 00DF ( cow-glider.s):01236 L136: 00DF C601 ( cow-glider.s):01237 ldb #1 00E1 E7E2 ( cow-glider.s):01238 stb ,-s 00E3 E7E2 ( cow-glider.s):01239 stb ,-s 00E5 E664 ( cow-glider.s):01240 ldb 4,s 00E7 8E3400 ( cow-glider.s):01241 ldx #13312 00EA BD0000 ( cow-glider.s):01242 jsr _PMode1DrawSpot 00ED 6C64 ( cow-glider.s):01243 inc 4,s 00EF 3262 ( cow-glider.s):01244 leas 2,s 00F1 E662 ( cow-glider.s):01245 ldb 2,s 00F3 C160 ( cow-glider.s):01246 cmpb #96 ;cmpqi: 00F5 26E8 ( cow-glider.s):01247 bne L136 00F7 6F62 ( cow-glider.s):01248 clr 2,s 00F9 ( cow-glider.s):01249 L137: 00F9 C601 ( cow-glider.s):01250 ldb #1 00FB E7E2 ( cow-glider.s):01251 stb ,-s 00FD C65E ( cow-glider.s):01252 ldb #94 00FF E7E2 ( cow-glider.s):01253 stb ,-s 0101 E664 ( cow-glider.s):01254 ldb 4,s 0103 8E3400 ( cow-glider.s):01255 ldx #13312 0106 BD0000 ( cow-glider.s):01256 jsr _PMode1DrawSpot 0109 6C64 ( cow-glider.s):01257 inc 4,s 010B 3262 ( cow-glider.s):01258 leas 2,s 010D E662 ( cow-glider.s):01259 ldb 2,s 010F C160 ( cow-glider.s):01260 cmpb #96 ;cmpqi: 0111 26E6 ( cow-glider.s):01261 bne L137 0113 6F62 ( cow-glider.s):01262 clr 2,s 0115 ( cow-glider.s):01263 L138: 0115 C601 ( cow-glider.s):01264 ldb #1 0117 E7E2 ( cow-glider.s):01265 stb ,-s 0119 C65F ( cow-glider.s):01266 ldb #95 011B E7E2 ( cow-glider.s):01267 stb ,-s 011D E664 ( cow-glider.s):01268 ldb 4,s 011F 8E3400 ( cow-glider.s):01269 ldx #13312 0122 BD0000 ( cow-glider.s):01270 jsr _PMode1DrawSpot 0125 6C64 ( cow-glider.s):01271 inc 4,s 0127 3262 ( cow-glider.s):01272 leas 2,s 0129 E662 ( cow-glider.s):01273 ldb 2,s 012B C160 ( cow-glider.s):01274 cmpb #96 ;cmpqi: 012D 26E6 ( cow-glider.s):01275 bne L138 012F 6F62 ( cow-glider.s):01276 clr 2,s 0131 ( cow-glider.s):01277 L139: 0131 C601 ( cow-glider.s):01278 ldb #1 0133 E7E2 ( cow-glider.s):01279 stb ,-s 0135 E663 ( cow-glider.s):01280 ldb 3,s 0137 3404 ( cow-glider.s):01281 pshs b 0139 5F ( cow-glider.s):01282 clrb 013A 8E3400 ( cow-glider.s):01283 ldx #13312 013D BD0000 ( cow-glider.s):01284 jsr _PMode1DrawSpot 0140 6C64 ( cow-glider.s):01285 inc 4,s 0142 3262 ( cow-glider.s):01286 leas 2,s 0144 E662 ( cow-glider.s):01287 ldb 2,s 0146 C160 ( cow-glider.s):01288 cmpb #96 ;cmpqi: 0148 26E7 ( cow-glider.s):01289 bne L139 014A 6F62 ( cow-glider.s):01290 clr 2,s 014C ( cow-glider.s):01291 L140: 014C C601 ( cow-glider.s):01292 ldb #1 014E E7E2 ( cow-glider.s):01293 stb ,-s 0150 E663 ( cow-glider.s):01294 ldb 3,s 0152 3404 ( cow-glider.s):01295 pshs b 0154 C601 ( cow-glider.s):01296 ldb #1 0156 8E3400 ( cow-glider.s):01297 ldx #13312 0159 BD0000 ( cow-glider.s):01298 jsr _PMode1DrawSpot 015C 6C64 ( cow-glider.s):01299 inc 4,s 015E 3262 ( cow-glider.s):01300 leas 2,s 0160 E662 ( cow-glider.s):01301 ldb 2,s 0162 C160 ( cow-glider.s):01302 cmpb #96 ;cmpqi: 0164 26E6 ( cow-glider.s):01303 bne L140 0166 6F62 ( cow-glider.s):01304 clr 2,s 0168 ( cow-glider.s):01305 L141: 0168 C601 ( cow-glider.s):01306 ldb #1 016A E7E2 ( cow-glider.s):01307 stb ,-s 016C E663 ( cow-glider.s):01308 ldb 3,s 016E 3404 ( cow-glider.s):01309 pshs b 0170 C65E ( cow-glider.s):01310 ldb #94 0172 8E3400 ( cow-glider.s):01311 ldx #13312 0175 BD0000 ( cow-glider.s):01312 jsr _PMode1DrawSpot 0178 6C64 ( cow-glider.s):01313 inc 4,s 017A 3262 ( cow-glider.s):01314 leas 2,s 017C E662 ( cow-glider.s):01315 ldb 2,s 017E C160 ( cow-glider.s):01316 cmpb #96 ;cmpqi: 0180 26E6 ( cow-glider.s):01317 bne L141 0182 6F62 ( cow-glider.s):01318 clr 2,s 0184 ( cow-glider.s):01319 L142: 0184 C601 ( cow-glider.s):01320 ldb #1 0186 E7E2 ( cow-glider.s):01321 stb ,-s 0188 E663 ( cow-glider.s):01322 ldb 3,s 018A 3404 ( cow-glider.s):01323 pshs b 018C C65F ( cow-glider.s):01324 ldb #95 018E 8E3400 ( cow-glider.s):01325 ldx #13312 0191 BD0000 ( cow-glider.s):01326 jsr _PMode1DrawSpot 0194 6C64 ( cow-glider.s):01327 inc 4,s 0196 3262 ( cow-glider.s):01328 leas 2,s 0198 E662 ( cow-glider.s):01329 ldb 2,s 019A C160 ( cow-glider.s):01330 cmpb #96 ;cmpqi: 019C 26E6 ( cow-glider.s):01331 bne L142 019E CC0040 ( cow-glider.s):01332 ldd #64 01A1 EDE3 ( cow-glider.s):01333 std ,--s 01A3 8E0000 ( cow-glider.s):01334 ldx #_State 01A6 AFE3 ( cow-glider.s):01335 stx ,--s 01A8 8E0000 ( cow-glider.s):01336 ldx #_OldState 01AB BD08C5 ( cow-glider.s):01337 jsr _memcpy 01AE BD0000 ( cow-glider.s):01338 jsr _XorOldTanks 01B1 BD0000 ( cow-glider.s):01339 jsr _DrawScores 01B4 108E0000 ( cow-glider.s):01340 ldy #__n1pre_final_startup 01B8 10AFE3 ( cow-glider.s):01341 sty ,--s 01BB 8E0000 ( cow-glider.s):01342 ldx #__n1pre_final 01BE AFE3 ( cow-glider.s):01343 stx ,--s 01C0 8E0000 ( cow-glider.s):01344 ldx #_loop 01C3 BD06FF ( cow-glider.s):01345 jsr _xAfterSetup 01C6 8E0000 ( cow-glider.s):01346 ldx #0 01C9 326D ( cow-glider.s):01347 leas 13,s 01CB 35E0 ( cow-glider.s):01348 puls y,u,pc ( cow-glider.s):01349 ( cow-glider.s):01350 .area .text.entry 0000 ( cow-glider.s):01351 __n1pre_entry: 0000 7E ( cow-glider.s):01352 .byte 126 0001 0000 ( cow-glider.s):01353 .word _main ( cow-glider.s):01354 ( cow-glider.s):01355 .area .final 0000 ( cow-glider.s):01356 __n1pre_final: 0000 AEEE ( cow-glider.s):01357 .word -20754 ( cow-glider.s):01358 ( cow-glider.s):01359 .area .final.setup 0000 ( cow-glider.s):01360 __n1pre_final_startup: 0000 AEEF ( cow-glider.s):01361 .word -20753 ( cow-glider.s):01362 ( cow-glider.s):01363 .area .bss 0000 ( cow-glider.s):01364 _loops: .blkb 2 0002 ( cow-glider.s):01365 _decis: .blkb 1 0003 ( cow-glider.s):01366 _counter: .blkb 1 0004 ( cow-glider.s):01367 _packet.1719: .blkb 64 0044 ( cow-glider.s):01368 _mytank: .blkb 2 0046 ( cow-glider.s):01369 _Player: .blkb 1 ( cow-glider.s):01370 ( cow-glider.s):01371 .area .data.more 0000 ( cow-glider.s):01372 _State: 0000 0000000000000000 ( cow-glider.s):01373 zmb 64 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0040 ( cow-glider.s):01374 _OldState: 0040 0000000000000000 ( cow-glider.s):01375 zmb 64 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 ( cow-glider.s):01376 ( cow-glider.s):01377 .area .bss 0047 ( cow-glider.s):01378 _NumberOfPlayers: .blkb 1 ( cow-glider.s):01379 ( cow-glider.s):01380 .area .text 08A0 ( cow-glider.s):01381 _DigitTimes15: 08A0 00 ( cow-glider.s):01382 .byte 0 08A1 0F ( cow-glider.s):01383 .byte 15 08A2 1E ( cow-glider.s):01384 .byte 30 08A3 2D ( cow-glider.s):01385 .byte 45 08A4 3C ( cow-glider.s):01386 .byte 60 08A5 4B ( cow-glider.s):01387 .byte 75 08A6 5A ( cow-glider.s):01388 .byte 90 08A7 69 ( cow-glider.s):01389 .byte 105 08A8 78 ( cow-glider.s):01390 .byte 120 08A9 87 ( cow-glider.s):01391 .byte -121 ( cow-glider.s):01392 ( cow-glider.s):01393 .area .data 0000 ( cow-glider.s):01394 _Digit3x5CharGen: 0000 2030203020303020 ( cow-glider.s):01395 .ascii " 0 0 00 00 0 0 1 1 1 1 1 22 2 2 2 22233 " 3030203020302020 3120203120203120 2031202031203232 2020203220322032 2020323232333320 0030 2020333333202020 ( cow-glider.s):01396 .ascii " 333 333 4 44 4444 4 45555 55 555 666 " 3333332034203434 2034343434202034 2020343535353520 2035352020203535 3520203636362020 0060 3636363620363636 ( cow-glider.s):01397 .ascii "6666 6666777 7 7 7 78888 88888 88889999 9999" 3637373720203720 2037202037202037 3838383820383838 3838203838383839 3939392039393939 0090 20203920203900 ( cow-glider.s):01398 .ascii " 9 9\0" ( cow-glider.s):01399 ( cow-glider.s):01400 .area .data.more 0080 ( cow-glider.s):01401 _logbuf: 0080 0000000000000000 ( cow-glider.s):01402 zmb 66 ;skip space 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000 ( cow-glider.s):01403 ( cow-glider.s):01404 .area .text 08AA ( cow-glider.s):01405 _PHexAlphabet: 08AA 3031323334353637 ( cow-glider.s):01406 .ascii "0123456789ABCDEF\0" 3839414243444546 00 ( cow-glider.s):01407 .area .absolute ( cow-glider.s):01408 .globl _gAlloc64 0D66 ( cow-glider.s):01409 _gAlloc64 EQU $0D66 ( cow-glider.s):01410 .globl _gConfig 0607 ( cow-glider.s):01411 _gConfig EQU $0607 ( cow-glider.s):01412 .globl _gFatal 0AB8 ( cow-glider.s):01413 _gFatal EQU $0AB8 ( cow-glider.s):01414 .globl _gFatalFIRQ 0B09 ( cow-glider.s):01415 _gFatalFIRQ EQU $0B09 ( cow-glider.s):01416 .globl _gFatalNMI 0B1F ( cow-glider.s):01417 _gFatalNMI EQU $0B1F ( cow-glider.s):01418 .globl _gFatalSWI1 0B63 ( cow-glider.s):01419 _gFatalSWI1 EQU $0B63 ( cow-glider.s):01420 .globl _gFatalSWI2 0B4D ( cow-glider.s):01421 _gFatalSWI2 EQU $0B4D ( cow-glider.s):01422 .globl _gFatalSWI3 0B36 ( cow-glider.s):01423 _gFatalSWI3 EQU $0B36 ( cow-glider.s):01424 .globl _gFree64 06DF ( cow-glider.s):01425 _gFree64 EQU $06DF ( cow-glider.s):01426 .globl _gIrqRestore 06D4 ( cow-glider.s):01427 _gIrqRestore EQU $06D4 ( cow-glider.s):01428 .globl _gIrqSaveAndDisable 06C7 ( cow-glider.s):01429 _gIrqSaveAndDisable EQU $06C7 ( cow-glider.s):01430 .globl _gKern 0657 ( cow-glider.s):01431 _gKern EQU $0657 ( cow-glider.s):01432 .globl _gModeScreen 0A81 ( cow-glider.s):01433 _gModeScreen EQU $0A81 ( cow-glider.s):01434 .globl _gMono 0020 ( cow-glider.s):01435 _gMono EQU $0020 ( cow-glider.s):01436 .globl _gNetworkLog 0C68 ( cow-glider.s):01437 _gNetworkLog EQU $0C68 ( cow-glider.s):01438 .globl _gPMode1Screen 0A54 ( cow-glider.s):01439 _gPMode1Screen EQU $0A54 ( cow-glider.s):01440 .globl _gReceiveCast64 074C ( cow-glider.s):01441 _gReceiveCast64 EQU $074C ( cow-glider.s):01442 .globl _gScore 060B ( cow-glider.s):01443 _gScore EQU $060B ( cow-glider.s):01444 .globl _gSendCast 0C9E ( cow-glider.s):01445 _gSendCast EQU $0C9E ( cow-glider.s):01446 .globl _gTextScreen 09BE ( cow-glider.s):01447 _gTextScreen EQU $09BE ( cow-glider.s):01448 .globl _gWall 0637 ( cow-glider.s):01449 _gWall EQU $0637 ( cow-glider.s):01450 .globl _memcpy 08C5 ( cow-glider.s):01451 _memcpy EQU $08C5 ( cow-glider.s):01452 .globl _memcpy_words 0769 ( cow-glider.s):01453 _memcpy_words EQU $0769 ( cow-glider.s):01454 .globl _memset 089F ( cow-glider.s):01455 _memset EQU $089F ( cow-glider.s):01456 .globl _memset_words 0857 ( cow-glider.s):01457 _memset_words EQU $0857 ( cow-glider.s):01458 .globl _strlen 08E7 ( cow-glider.s):01459 _strlen EQU $08E7 ( cow-glider.s):01460 .globl _xAfterSetup 06FF ( cow-glider.s):01461 _xAfterSetup EQU $06FF ( cow-glider.s):01462 .globl _xSendControlPacket 0C81 ( cow-glider.s):01463 _xSendControlPacket EQU $0C81