Freeware assember ASxx.EXE Ver 1.03. 0001 0002 org $0002 0002 0002 _data_s equ * 0003 1000 PORTA equ $1000 0004 1002 PIOC equ $1002 0005 1003 PORTC equ $1003 0006 1004 PORTB equ $1004 0007 1005 PORTCL equ $1005 0008 1007 DDRC equ $1007 0009 1008 PORTD equ $1008 0010 1009 DDRD equ $1009 0011 100a PORTE equ $100a 0012 1024 TMSK2 equ $1024 0013 1025 TFLG2 equ $1025 0014 1026 PACTL equ $1026 0015 1027 PACNT equ $1027 0016 102b BAUD equ $102b 0017 102c SCCR1 equ $102c 0018 102d SCCR2 equ $102d 0019 102e SCSR equ $102e 0020 102f SCDR equ $102f 0021 1030 ADCTL equ $1030 0022 1031 ADR equ $1031 0023 1039 OPTIONS equ $1039 0024 0002 bcl: rmb 1 0025 0003 j: rmb 1 0026 0004 temps: rmb 2 0027 0006 bdt: rmb 2 0028 0008 _data_e equ * 0029 0030 f800 org $F800 0031 f800 _.main equ * 0032 f800 8e 00 e8 lds #$E8 0033 f803 0e cli ; enable debugger 0034 f804 ce 00 02 ldx #_data_s 0035 f807 20 03 bra _crt2 0036 f809 6f 00 _crt1 clr 0,x ; clear data area 0037 f80b 08 inx 0038 f80c 8c 00 08 _crt2 cpx #_data_e 0039 f80f 26 f8 bne _crt1 0040 f811 c6 ff ldab #$FF 0041 f813 f7 10 07 stab DDRC 0042 f816 7f 10 04 clr PORTB 0043 f819 7f 10 03 clr PORTC 0044 f81c cc 03 e8 ldd #1000 0045 f81f 37 pshb 0046 f820 36 psha 0047 f821 bd fd 0f jsr tempo 0048 f824 38 pulx ; NoLocalSymbols 0049 f825 c6 ff ldab #$FF 0050 f827 f7 10 04 stab PORTB 0051 f82a c6 ff ldab #$FF 0052 f82c f7 10 03 stab PORTC 0053 f82f cc 00 64 ldd #100 0054 f832 37 pshb 0055 f833 36 psha 0056 f834 bd fd 0f jsr tempo 0057 f837 38 pulx ; NoLocalSymbols 0058 f838 ce 10 00 ldx #$1000 0059 f83b 1d 03 08 bclr PORTC-$1000,x $08 0060 f83e 1d 04 04 bclr PORTB-$1000,x $04 0061 f841 7f 00 03 clr j 0062 f844 d6 03 _.1t ldab j 0063 f846 c1 01 cmpb #1 0064 f848 22 0b bhi _.1n 0065 f84a ce 10 00 ldx #$1000 0066 f84d 1e 0a 20 02 brset PORTE-$1000,x $20 _.2 0067 f851 20 02 bra _.1n 0068 f853 20 ef _.2 bra _.1t 0069 f855 _.1n equ * 0070 f855 c6 ff debut ldab #$FF 0071 f857 f7 10 04 stab PORTB 0072 f85a c6 ff ldab #$FF 0073 f85c f7 10 03 stab PORTC 0074 f85f cc 03 e8 ldd #1000 0075 f862 37 pshb 0076 f863 36 psha 0077 f864 bd fd 0f jsr tempo 0078 f867 38 pulx ; NoLocalSymbols 0079 f868 7f 00 04 clr temps 0080 f86b 7f 00 05 clr temps+1 0081 f86e 7f 00 02 clr bcl 0082 f871 7f 00 06 clr bdt 0083 f874 7f 00 07 clr bdt+1 0084 f877 ce 10 00 ldx #$1000 0085 f87a 1d 26 02 bclr PACTL-$1000,x $02 0086 f87d 1d 26 01 bclr PACTL-$1000,x $01 0087 f880 1c 24 40 bset TMSK2-$1000,x $40 0088 f883 0e cli 0089 f884 7f 00 02 clr bcl 0090 f887 d6 02 _.3t ldab bcl 0091 f889 c1 01 cmpb #1 0092 f88b 23 03 bls _.3nc 0093 f88d 7e fc d3 jmp _.3n 0094 f890 ce 10 00 _.3nc ldx #$1000 0095 f893 1e 0a 20 1e brset PORTE-$1000,x $20 _.4 0096 f897 dc 04 ldd temps 0097 f899 1a 83 22 77 cpd #8823 0098 f89d 2e 07 bgt _.5 0099 f89f c3 00 78 addd #120 0100 f8a2 dd 04 std temps 0101 f8a4 20 06 bra _.5e 0102 f8a6 7f 00 04 _.5 clr temps 0103 f8a9 7f 00 05 clr temps+1 0104 f8ac cc 00 64 _.5e ldd #100 0105 f8af 37 pshb 0106 f8b0 36 psha 0107 f8b1 bd fd 0f jsr tempo 0108 f8b4 38 pulx ; NoLocalSymbols 0109 f8b5 dc 04 _.4 ldd temps 0110 f8b7 2d 04 blt _.6 0111 f8b9 c6 ff ldab #255 0112 f8bb 20 01 bra _.6e 0113 f8bd 5f _.6 clrb 0114 f8be 37 _.6e pshb 0115 f8bf dc 04 ldd temps 0116 f8c1 1a 83 00 78 cpd #120 0117 f8c5 2c 04 bge _.7 0118 f8c7 c6 ff ldab #255 0119 f8c9 20 01 bra _.7e 0120 f8cb 5f _.7 clrb 0121 f8cc 30 _.7e tsx 0122 f8cd e4 00 andb 0,x 0123 f8cf 31 ins 0124 f8d0 5d tstb 0125 f8d1 27 09 beq _.8 0126 f8d3 ce 10 00 ldx #$1000 0127 f8d6 1d 03 01 bclr PORTC-$1000,x $01 0128 f8d9 1c 03 02 bset PORTC-$1000,x $02 0129 f8dc dc 04 _.8 ldd temps 0130 f8de 1a 83 00 78 cpd #120 0131 f8e2 2d 04 blt _.9 0132 f8e4 c6 ff ldab #255 0133 f8e6 20 01 bra _.9e 0134 f8e8 5f _.9 clrb 0135 f8e9 37 _.9e pshb 0136 f8ea dc 04 ldd temps 0137 f8ec 1a 83 02 71 cpd #625 0138 f8f0 2c 04 bge _.10 0139 f8f2 c6 ff ldab #255 0140 f8f4 20 01 bra _.10e 0141 f8f6 5f _.10 clrb 0142 f8f7 30 _.10e tsx 0143 f8f8 e4 00 andb 0,x 0144 f8fa 31 ins 0145 f8fb 5d tstb 0146 f8fc 27 09 beq _.11 0147 f8fe ce 10 00 ldx #$1000 0148 f901 1d 03 01 bclr PORTC-$1000,x $01 0149 f904 1d 04 01 bclr PORTB-$1000,x $01 0150 f907 dc 04 _.11 ldd temps 0151 f909 1a 83 02 71 cpd #625 0152 f90d 2d 04 blt _.12 0153 f90f c6 ff ldab #255 0154 f911 20 01 bra _.12e 0155 f913 5f _.12 clrb 0156 f914 37 _.12e pshb 0157 f915 dc 04 ldd temps 0158 f917 1a 83 03 61 cpd #865 0159 f91b 2c 04 bge _.13 0160 f91d c6 ff ldab #255 0161 f91f 20 01 bra _.13e 0162 f921 5f _.13 clrb 0163 f922 30 _.13e tsx 0164 f923 e4 00 andb 0,x 0165 f925 31 ins 0166 f926 5d tstb 0167 f927 27 09 beq _.14 0168 f929 ce 10 00 ldx #$1000 0169 f92c 1c 03 01 bset PORTC-$1000,x $01 0170 f92f 1d 04 01 bclr PORTB-$1000,x $01 0171 f932 dc 04 _.14 ldd temps 0172 f934 1a 83 03 61 cpd #865 0173 f938 2d 04 blt _.15 0174 f93a c6 ff ldab #255 0175 f93c 20 01 bra _.15e 0176 f93e 5f _.15 clrb 0177 f93f 37 _.15e pshb 0178 f940 dc 04 ldd temps 0179 f942 1a 83 05 5a cpd #1370 0180 f946 2c 04 bge _.16 0181 f948 c6 ff ldab #255 0182 f94a 20 01 bra _.16e 0183 0184 f94c 5f _.16 clrb 0185 f94d 30 _.16e tsx 0186 f94e e4 00 andb 0,x 0187 f950 31 ins 0188 f951 5d tstb 0189 f952 27 09 beq _.17 0190 f954 ce 10 00 ldx #$1000 0191 f957 1d 04 01 bclr PORTB-$1000,x $01 0192 f95a 1d 04 02 bclr PORTB-$1000,x $02 0193 f95d dc 04 _.17 ldd temps 0194 f95f 1a 83 05 5a cpd #1370 0195 f963 2d 04 blt _.18 0196 f965 c6 ff ldab #255 0197 f967 20 01 bra _.18e 0198 f969 5f _.18 clrb 0199 f96a 37 _.18e pshb 0200 f96b dc 04 ldd temps 0201 f96d 1a 83 06 4a cpd #1610 0202 f971 2c 04 bge _.19 0203 f973 c6 ff ldab #255 0204 f975 20 01 bra _.19e 0205 f977 5f _.19 clrb 0206 f978 30 _.19e tsx 0207 f979 e4 00 andb 0,x 0208 f97b 31 ins 0209 f97c 5d tstb 0210 f97d 27 09 beq _.20 0211 f97f ce 10 00 ldx #$1000 0212 f982 1c 04 01 bset PORTB-$1000,x $01 0213 f985 1d 04 02 bclr PORTB-$1000,x $02 0214 f988 dc 04 _.20 ldd temps 0215 f98a 1a 83 06 4a cpd #1610 0216 f98e 2d 04 blt _.21 0217 f990 c6 ff ldab #255 0218 f992 20 01 bra _.21e 0219 f994 5f _.21 clrb 0220 f995 37 _.21e pshb 0221 f996 dc 04 ldd temps 0222 f998 1a 83 08 43 cpd #2115 0223 f99c 2c 04 bge _.22 0224 f99e c6 ff ldab #255 0225 f9a0 20 01 bra _.22e 0226 f9a2 5f _.22 clrb 0227 f9a3 30 _.22e tsx 0228 f9a4 e4 00 andb 0,x 0229 f9a6 31 ins 0230 f9a7 5d tstb 0231 f9a8 27 09 beq _.23 0232 f9aa ce 10 00 ldx #$1000 0233 f9ad 1d 04 02 bclr PORTB-$1000,x $02 0234 f9b0 1d 04 04 bclr PORTB-$1000,x $04 0235 f9b3 dc 04 _.23 ldd temps 0236 f9b5 1a 83 08 43 cpd #2115 0237 f9b9 2d 04 blt _.24 0238 f9bb c6 ff ldab #255 0239 f9bd 20 01 bra _.24e 0240 f9bf 5f _.24 clrb 0241 f9c0 37 _.24e pshb 0242 f9c1 dc 04 ldd temps 0243 f9c3 1a 83 09 33 cpd #2355 0244 f9c7 2c 04 bge _.25 0245 f9c9 c6 ff ldab #255 0246 f9cb 20 01 bra _.25e 0247 f9cd 5f _.25 clrb 0248 f9ce 30 _.25e tsx 0249 f9cf e4 00 andb 0,x 0250 f9d1 31 ins 0251 f9d2 5d tstb 0252 f9d3 27 09 beq _.26 0253 f9d5 ce 10 00 ldx #$1000 0254 f9d8 1c 04 02 bset PORTB-$1000,x $02 0255 f9db 1d 04 04 bclr PORTB-$1000,x $04 0256 f9de dc 04 _.26 ldd temps 0257 f9e0 1a 83 09 33 cpd #2355 0258 f9e4 2d 04 blt _.27 0259 f9e6 c6 ff ldab #255 0260 f9e8 20 01 bra _.27e 0261 f9ea 5f _.27 clrb 0262 f9eb 37 _.27e pshb 0263 f9ec dc 04 ldd temps 0264 f9ee 1a 83 0b 2d cpd #2861 0265 f9f2 2c 04 bge _.28 0266 f9f4 c6 ff ldab #255 0267 f9f6 20 01 bra _.28e 0268 f9f8 5f _.28 clrb 0269 f9f9 30 _.28e tsx 0270 f9fa e4 00 andb 0,x 0271 f9fc 31 ins 0272 f9fd 5d tstb 0273 f9fe 27 09 beq _.29 0274 fa00 ce 10 00 ldx #$1000 0275 fa03 1d 04 04 bclr PORTB-$1000,x $04 0276 fa06 1d 04 08 bclr PORTB-$1000,x $08 0277 fa09 dc 04 _.29 ldd temps 0278 fa0b 1a 83 0b 2d cpd #2861 0279 fa0f 2d 04 blt _.30 0280 fa11 c6 ff ldab #255 0281 fa13 20 01 bra _.30e 0282 fa15 5f _.30 clrb 0283 fa16 37 _.30e pshb 0284 fa17 dc 04 ldd temps 0285 fa19 1a 83 0c 1d cpd #3101 0286 fa1d 2c 04 bge _.31 0287 fa1f c6 ff ldab #255 0288 fa21 20 01 bra _.31e 0289 fa23 5f _.31 clrb 0290 fa24 30 _.31e tsx 0291 fa25 e4 00 andb 0,x 0292 fa27 31 ins 0293 fa28 5d tstb 0294 fa29 27 09 beq _.32 0295 fa2b ce 10 00 ldx #$1000 0296 fa2e 1c 04 04 bset PORTB-$1000,x $04 0297 fa31 1d 04 08 bclr PORTB-$1000,x $08 0298 fa34 dc 04 _.32 ldd temps 0299 fa36 1a 83 0c 1d cpd #3101 0300 fa3a 2d 04 blt _.33 0301 fa3c c6 ff ldab #255 0302 fa3e 20 01 bra _.33e 0303 fa40 5f _.33 clrb 0304 fa41 37 _.33e pshb 0305 fa42 dc 04 ldd temps 0306 fa44 1a 83 0e 16 cpd #3606 0307 fa48 2c 04 bge _.34 0308 fa4a c6 ff ldab #255 0309 fa4c 20 01 bra _.34e 0310 fa4e 5f _.34 clrb 0311 fa4f 30 _.34e tsx 0312 fa50 e4 00 andb 0,x 0313 fa52 31 ins 0314 fa53 5d tstb 0315 fa54 27 09 beq _.35 0316 fa56 ce 10 00 ldx #$1000 0317 fa59 1d 04 08 bclr PORTB-$1000,x $08 0318 fa5c 1d 04 10 bclr PORTB-$1000,x $10 0319 fa5f dc 04 _.35 ldd temps 0320 fa61 1a 83 0e 16 cpd #3606 0321 fa65 2d 04 blt _.36 0322 fa67 c6 ff ldab #255 0323 fa69 20 01 bra _.36e 0324 fa6b 5f _.36 clrb 0325 fa6c 37 _.36e pshb 0326 fa6d dc 04 ldd temps 0327 fa6f 1a 83 0f 06 cpd #3846 0328 fa73 2c 04 bge _.37 0329 fa75 c6 ff ldab #255 0330 fa77 20 01 bra _.37e 0331 fa79 5f _.37 clrb 0332 fa7a 30 _.37e tsx 0333 fa7b e4 00 andb 0,x 0334 fa7d 31 ins 0335 fa7e 5d tstb 0336 fa7f 27 09 beq _.38 0337 fa81 ce 10 00 ldx #$1000 0338 fa84 1c 04 08 bset PORTB-$1000,x $08 0339 fa87 1d 04 10 bclr PORTB-$1000,x $10 0340 fa8a dc 04 _.38 ldd temps 0341 fa8c 1a 83 0f 06 cpd #3846 0342 fa90 2d 04 blt _.39 0343 fa92 c6 ff ldab #255 0344 fa94 20 01 bra _.39e 0345 fa96 5f _.39 clrb 0346 fa97 37 _.39e pshb 0347 fa98 dc 04 ldd temps 0348 fa9a 1a 83 10 ff cpd #4351 0349 fa9e 2c 04 bge _.40 0350 faa0 c6 ff ldab #255 0351 faa2 20 01 bra _.40e 0352 faa4 5f _.40 clrb 0353 faa5 30 _.40e tsx 0354 faa6 e4 00 andb 0,x 0355 faa8 31 ins 0356 faa9 5d tstb 0357 faaa 27 09 beq _.41 0358 faac ce 10 00 ldx #$1000 0359 faaf 1d 04 10 bclr PORTB-$1000,x $10 0360 fab2 1d 04 20 bclr PORTB-$1000,x $20 0361 fab5 dc 04 _.41 ldd temps 0362 fab7 1a 83 10 ff cpd #4351 0363 fabb 2d 04 blt _.42 0364 fabd c6 ff ldab #255 0365 fabf 20 01 bra _.42e 0366 fac1 5f _.42 clrb 0367 fac2 37 _.42e pshb 0368 fac3 dc 04 ldd temps 0369 fac5 1a 83 11 ef cpd #4591 0370 fac9 2c 04 bge _.43 0371 facb c6 ff ldab #255 0372 facd 20 01 bra _.43e 0373 facf 5f _.43 clrb 0374 fad0 30 _.43e tsx 0375 fad1 e4 00 andb 0,x 0376 fad3 31 ins 0377 fad4 5d tstb 0378 fad5 27 0c beq _.44 0379 fad7 ce 10 00 ldx #$1000 0380 fada 1c 04 10 bset PORTB-$1000,x $10 0381 fadd 1d 04 20 bclr PORTB-$1000,x $20 0382 fae0 1d 03 40 bclr PORTC-$1000,x $40 0383 fae3 dc 04 _.44 ldd temps 0384 fae5 1a 83 11 ef cpd #4591 0385 fae9 2d 04 blt _.45 0386 faeb c6 ff ldab #255 0387 faed 20 01 bra _.45e 0388 faef 5f _.45 clrb 0389 faf0 37 _.45e pshb 0390 faf1 dc 04 ldd temps 0391 faf3 1a 83 13 e8 cpd #5096 0392 faf7 2c 04 bge _.46 0393 faf9 c6 ff ldab #255 0394 fafb 20 01 bra _.46e 0395 fafd 5f _.46 clrb 0396 fafe 30 _.46e tsx 0397 faff e4 00 andb 0,x 0398 fb01 31 ins 0399 fb02 5d tstb 0400 fb03 27 0c beq _.47 0401 fb05 ce 10 00 ldx #$1000 0402 fb08 1d 03 40 bclr PORTC-$1000,x $40 0403 fb0b 1d 03 20 bclr PORTC-$1000,x $20 0404 fb0e 1c 04 20 bset PORTB-$1000,x $20 0405 fb11 dc 04 _.47 ldd temps 0406 fb13 1a 83 13 e8 cpd #5096 0407 fb17 2d 04 blt _.48 0408 fb19 c6 ff ldab #255 0409 fb1b 20 01 bra _.48e 0410 fb1d 5f _.48 clrb 0411 fb1e 37 _.48e pshb 0412 fb1f dc 04 ldd temps 0413 fb21 1a 83 14 d8 cpd #5336 0414 fb25 2c 04 bge _.49 0415 fb27 c6 ff ldab #255 0416 fb29 20 01 bra _.49e 0417 fb2b 5f _.49 clrb 0418 fb2c 30 _.49e tsx 0419 fb2d e4 00 andb 0,x 0420 fb2f 31 ins 0421 fb30 5d tstb 0422 fb31 27 09 beq _.50 0423 fb33 ce 10 00 ldx #$1000 0424 fb36 1c 03 40 bset PORTC-$1000,x $40 0425 fb39 1d 03 20 bclr PORTC-$1000,x $20 0426 fb3c dc 04 _.50 ldd temps 0427 fb3e 1a 83 14 d8 cpd #5336 0428 fb42 2d 04 blt _.51 0429 fb44 c6 ff ldab #255 0430 fb46 20 01 bra _.51e 0431 fb48 5f _.51 clrb 0432 fb49 37 _.51e pshb 0433 fb4a dc 04 ldd temps 0434 fb4c 1a 83 16 d2 cpd #5842 0435 fb50 2c 04 bge _.52 0436 fb52 c6 ff ldab #255 0437 fb54 20 01 bra _.52e 0438 fb56 5f _.52 clrb 0439 fb57 30 _.52e tsx 0440 fb58 e4 00 andb 0,x 0441 fb5a 31 ins 0442 fb5b 5d tstb 0443 fb5c 27 09 beq _.53 0444 fb5e ce 10 00 ldx #$1000 0445 fb61 1d 03 20 bclr PORTC-$1000,x $20 0446 fb64 1d 03 10 bclr PORTC-$1000,x $10 0447 fb67 dc 04 _.53 ldd temps 0448 fb69 1a 83 16 d2 cpd #5842 0449 fb6d 2d 04 blt _.54 0450 fb6f c6 ff ldab #255 0451 fb71 20 01 bra _.54e 0452 fb73 5f _.54 clrb 0453 fb74 37 _.54e pshb 0454 fb75 dc 04 ldd temps 0455 fb77 1a 83 17 c2 cpd #6082 0456 fb7b 2c 04 bge _.55 0457 fb7d c6 ff ldab #255 0458 fb7f 20 01 bra _.55e 0459 fb81 5f _.55 clrb 0460 fb82 30 _.55e tsx 0461 fb83 e4 00 andb 0,x 0462 fb85 31 ins 0463 fb86 5d tstb 0464 fb87 27 09 beq _.56 0465 fb89 ce 10 00 ldx #$1000 0466 fb8c 1c 03 20 bset PORTC-$1000,x $20 0467 fb8f 1d 03 10 bclr PORTC-$1000,x $10 0468 fb92 dc 04 _.56 ldd temps 0469 fb94 1a 83 17 c2 cpd #6082 0470 fb98 2d 04 blt _.57 0471 fb9a c6 ff ldab #255 0472 fb9c 20 01 bra _.57e 0473 fb9e 5f _.57 clrb 0474 fb9f 37 _.57e pshb 0475 fba0 dc 04 ldd temps 0476 fba2 1a 83 19 bb cpd #6587 0477 fba6 2c 04 bge _.58 0478 fba8 c6 ff ldab #255 0479 fbaa 20 01 bra _.58e 0480 fbac 5f _.58 clrb 0481 fbad 30 _.58e tsx 0482 fbae e4 00 andb 0,x 0483 fbb0 31 ins 0484 fbb1 5d tstb 0485 fbb2 27 09 beq _.59 0486 fbb4 ce 10 00 ldx #$1000 0487 fbb7 1d 03 10 bclr PORTC-$1000,x $10 0488 fbba 1d 03 08 bclr PORTC-$1000,x $08 0489 fbbd dc 04 _.59 ldd temps 0490 fbbf 1a 83 19 bb cpd #6587 0491 fbc3 2d 04 blt _.60 0492 fbc5 c6 ff ldab #255 0493 fbc7 20 01 bra _.60e 0494 fbc9 5f _.60 clrb 0495 fbca 37 _.60e pshb 0496 fbcb dc 04 ldd temps 0497 fbcd 1a 83 1a ab cpd #6827 0498 fbd1 2c 04 bge _.61 0499 fbd3 c6 ff ldab #255 0500 fbd5 20 01 bra _.61e 0501 fbd7 5f _.61 clrb 0502 fbd8 30 _.61e tsx 0503 fbd9 e4 00 andb 0,x 0504 fbdb 31 ins 0505 fbdc 5d tstb 0506 fbdd 27 09 beq _.62 0507 fbdf ce 10 00 ldx #$1000 0508 fbe2 1c 03 10 bset PORTC-$1000,x $10 0509 fbe5 1d 03 08 bclr PORTC-$1000,x $08 0510 fbe8 dc 04 _.62 ldd temps 0511 fbea 1a 83 1a ab cpd #6827 0512 fbee 2d 04 blt _.63 0513 fbf0 c6 ff ldab #255 0514 fbf2 20 01 bra _.63e 0515 fbf4 5f _.63 clrb 0516 fbf5 37 _.63e pshb 0517 fbf6 dc 04 ldd temps 0518 fbf8 1a 83 1c a4 cpd #7332 0519 fbfc 2c 04 bge _.64 0520 fbfe c6 ff ldab #255 0521 fc00 20 01 bra _.64e 0522 fc02 5f _.64 clrb 0523 fc03 30 _.64e tsx 0524 fc04 e4 00 andb 0,x 0525 fc06 31 ins 0526 fc07 5d tstb 0527 fc08 27 09 beq _.65 0528 fc0a ce 10 00 ldx #$1000 0529 fc0d 1d 03 08 bclr PORTC-$1000,x $08 0530 fc10 1d 03 04 bclr PORTC-$1000,x $04 0531 fc13 dc 04 _.65 ldd temps 0532 fc15 1a 83 1c a4 cpd #7332 0533 fc19 2d 04 blt _.66 0534 fc1b c6 ff ldab #255 0535 fc1d 20 01 bra _.66e 0536 fc1f 5f _.66 clrb 0537 fc20 37 _.66e pshb 0538 fc21 dc 04 ldd temps 0539 fc23 1a 83 1d 94 cpd #7572 0540 fc27 2c 04 bge _.67 0541 fc29 c6 ff ldab #255 0542 fc2b 20 01 bra _.67e 0543 fc2d 5f _.67 clrb 0544 fc2e 30 _.67e tsx 0545 fc2f e4 00 andb 0,x 0546 fc31 31 ins 0547 fc32 5d tstb 0548 fc33 27 09 beq _.68 0549 fc35 ce 10 00 ldx #$1000 0550 fc38 1c 03 08 bset PORTC-$1000,x $08 0551 fc3b 1d 03 04 bclr PORTC-$1000,x $04 0552 fc3e dc 04 _.68 ldd temps 0553 fc40 1a 83 1d 94 cpd #7572 0554 fc44 2d 04 blt _.69 0555 fc46 c6 ff ldab #255 0556 fc48 20 01 bra _.69e 0557 fc4a 5f _.69 clrb 0558 fc4b 37 _.69e pshb 0559 fc4c dc 04 ldd temps 0560 fc4e 1a 83 1f 8d cpd #8077 0561 fc52 2c 04 bge _.70 0562 fc54 c6 ff ldab #255 0563 fc56 20 01 bra _.70e 0564 fc58 5f _.70 clrb 0565 fc59 30 _.70e tsx 0566 fc5a e4 00 andb 0,x 0567 fc5c 31 ins 0568 fc5d 5d tstb 0569 fc5e 27 09 beq _.71 0570 fc60 ce 10 00 ldx #$1000 0571 fc63 1d 03 04 bclr PORTC-$1000,x $04 0572 fc66 1d 03 02 bclr PORTC-$1000,x $02 0573 fc69 dc 04 _.71 ldd temps 0574 fc6b 1a 83 1f 8d cpd #8077 0575 fc6f 2d 04 blt _.72 0576 fc71 c6 ff ldab #255 0577 fc73 20 01 bra _.72e 0578 fc75 5f _.72 clrb 0579 fc76 37 _.72e pshb 0580 fc77 dc 04 ldd temps 0581 fc79 1a 83 20 7d cpd #8317 0582 fc7d 2c 04 bge _.73 0583 fc7f c6 ff ldab #255 0584 fc81 20 01 bra _.73e 0585 fc83 5f _.73 clrb 0586 fc84 30 _.73e tsx 0587 fc85 e4 00 andb 0,x 0588 fc87 31 ins 0589 fc88 5d tstb 0590 fc89 27 09 beq _.74 0591 fc8b ce 10 00 ldx #$1000 0592 fc8e 1c 03 04 bset PORTC-$1000,x $04 0593 fc91 1d 03 02 bclr PORTC-$1000,x $02 0594 fc94 dc 04 _.74 ldd temps 0595 fc96 1a 83 20 7d cpd #8317 0596 fc9a 2d 04 blt _.75 0597 fc9c c6 ff ldab #255 0598 fc9e 20 01 bra _.75e 0599 fca0 5f _.75 clrb 0600 fca1 37 _.75e pshb 0601 fca2 dc 04 ldd temps 0602 fca4 1a 83 22 77 cpd #8823 0603 fca8 2c 04 bge _.76 0604 fcaa c6 ff ldab #255 0605 fcac 20 01 bra _.76e 0606 fcae 5f _.76 clrb 0607 fcaf 30 _.76e tsx 0608 fcb0 e4 00 andb 0,x 0609 fcb2 31 ins 0610 fcb3 5d tstb 0611 fcb4 27 09 beq _.77 0612 fcb6 ce 10 00 ldx #$1000 0613 fcb9 1d 03 02 bclr PORTC-$1000,x $02 0614 fcbc 1d 03 01 bclr PORTC-$1000,x $01 0615 fcbf dc 04 _.77 ldd temps 0616 fcc1 1a 83 22 77 cpd #8823 0617 fcc5 2d 09 blt _.78 0618 fcc7 ce 10 00 ldx #$1000 0619 fcca 1c 03 02 bset PORTC-$1000,x $02 0620 fccd 1d 03 01 bclr PORTC-$1000,x $01 0621 fcd0 7e f8 87 _.78 jmp _.3t 0622 fcd3 7e f8 55 _.3n jmp debut 0623 0624 fcd6 c6 ff rtiint ldab #$FF 0625 fcd8 f7 10 04 stab PORTB 0626 fcdb c6 ff ldab #$FF 0627 fcdd f7 10 03 stab PORTC 0628 fce0 dc 06 ldd bdt 0629 fce2 c3 00 01 addd #1 0630 fce5 dd 06 std bdt 0631 fce7 1a 83 02 ee cpd #750 0632 fceb 2d 1b blt _.79 0633 fced 7f 00 06 clr bdt 0634 fcf0 7f 00 07 clr bdt+1 0635 fcf3 dc 04 ldd temps 0636 fcf5 1a 83 22 ef cpd #8943 0637 fcf9 2c 07 bge _.80 0638 fcfb c3 00 01 addd #1 0639 fcfe dd 04 std temps 0640 fd00 20 06 bra _.80e 0641 fd02 7f 00 04 _.80 clr temps 0642 fd05 7f 00 05 clr temps+1 0643 fd08 _.80e equ * 0644 fd08 ce 10 00 _.79 ldx #$1000 0645 fd0b 1c 25 40 bset TFLG2-$1000,x $40 0646 fd0e 3b rti 0647 fd0f 5f tempo clrb ; NoLocalSymbols 0648 fd10 37 pshb ; NoLocalSymbols 0649 fd11 18 30 tsy ; NoLocalSymbols 0650 ; cnt 3,y 0651 ; i 0,y 0652 fd13 18 ec 03 _.82t ldd 3,y 0653 fd16 2d 1a blt _.82n 0654 fd18 18 6f 00 clr 0,y 0655 fd1b 18 e6 00 _.83t ldab 0,y 0656 fd1e c1 64 cmpb #100 0657 fd20 22 05 bhi _.83n 0658 fd22 18 6c 00 inc 0,y 0659 fd25 20 f4 bra _.83t 0660 fd27 18 ec 03 _.83n ldd 3,y 0661 fd2a c3 ff ff addd #-1 0662 fd2d 18 ed 03 std 3,y 0663 fd30 20 e1 bra _.82t 0664 fd32 _.82n equ * 0665 fd32 31 _.81 ins 0666 fd33 39 rts 0667 0668 fd34 _.end equ * 0669 fd34 3b NOIRQ rti 0670 0671 ffd6 org $0FFD6 0672 ffd6 fd 34 fdb NOIRQ ; SCI 0673 ffd8 fd 34 fdb NOIRQ ; SPI 0674 ffda fd 34 fdb NOIRQ ; Pulse A IN 0675 ffdc fd 34 fdb NOIRQ ; Pulse A Overflow 0676 ffde fd 34 fdb NOIRQ ; Timer Overflow TIMEO 0677 0678 ffe0 fd 34 fdb NOIRQ ; Timer IC4/OC5 0679 ffe2 fd 34 fdb NOIRQ ; Timer OC4 0680 ffe4 fd 34 fdb NOIRQ ; Timer OC3 0681 ffe6 fd 34 fdb NOIRQ ; Timer OC2 0682 ffe8 fd 34 fdb NOIRQ ; Timer OC1 0683 ffea fd 34 fdb NOIRQ ; Timer IC3 0684 ffec fd 34 fdb NOIRQ ; Timer IC2 0685 ffee fd 34 fdb NOIRQ ; Timer IC1 0686 0687 fff0 fc d6 fdb rtiint ; Real-time Int 0688 fff2 fd 34 fdb NOIRQ ; IRQ Pin/handshake 0689 fff4 fd 34 fdb NOIRQ ; XIRQ Pin 0690 fff6 fd 34 fdb NOIRQ ; SWI 0691 fff8 f8 00 fdb _.main ; Illegal Opcode 0692 fffa f8 00 fdb _.main ; COP Failure RST 0693 fffc f8 00 fdb _.main ; CLOCK Fail RST 0694 fffe f8 00 fdb _.main ; RESET 0695 0696 Number of errors 0