main.lis

要用到开发工具SD-H08

 0143 E603              lda 3,X
 0145 A900              adc #0
 0147 E703              sta 3,X
 0149 E604              lda 4,X
 014B B700              sta *__r1
 014D E603              lda 3,X
 014F B700              sta *__r0
 0151 5500              ldhx *__r0
 0153 650400            cphx #1024
 0156 95                tsx
 0157 91D8              blt L7
 0159           ;               for(i=0;i<100;i++);   //延时0.5S
 0159           ;               pl=adave(20,1);
 0159 A601              lda #1
 015B 87                psha
 015C A614              lda #20
 015E 87                psha
 015F CD0000            jsr _adave
 0162 A702              ais #2
 0164 95                tsx
 0165 B700              sta *__r1
 0167 F7                sta ,X
 0168           ;       SCISendN(11,"通道1电压值");//发送通道1的电压值
 0168 450000            ldhx #L15
 016B 89                pshx
 016C 8B                pshh
 016D A60B              lda #11
 016F 87                psha
 0170 CD0000            jsr _SCISendN
 0173 A703              ais #3
 0175 95                tsx
 0176           ;               va=pl*5/255+48;
 0176 3F00              clr *__r0
 0178 F6                lda ,X
 0179 B700              sta *__r1
 017B A605              lda #5
 017D 87                psha
 017E 4F                clra
 017F 87                psha
 0180 B600              lda *__r1
 0182 87                psha
 0183 B600              lda *__r0
 0185 87                psha
 0186 CD0000            jsr __mul16
 0189 A704              ais #4
 018B 4E0000            mov *__rlo,*__r1
 018E 4E0000            mov *__rhi,*__r0
 0191 4E0000            mov *__r1,*__rlo
 0194 4E0000            mov *__r0,*__rhi
 0197 A6FF              lda #-1
 0199 87                psha
 019A 4F                clra
 019B 87                psha
 019C CD0000            jsr __divmod16s
 019F A702              ais #2
 01A1 4E0000            mov *__rhi,*__r0
 01A4 4E0000            mov *__rlo,*__r1
 01A7 B600              lda *__r1
 01A9 AB30              add #48
 01AB E702              sta 2,X
 01AD B600              lda *__r0
 01AF A900              adc #0
 01B1 E701              sta 1,X
 01B3           ;               SCISend1(va);
 01B3 E602              lda 2,X
 01B5 87                psha
 01B6 CD0000            jsr _SCISend1
 01B9 A701              ais #1
 01BB           ;               SCISend1('.');
 01BB A62E              lda #46
 01BD 87                psha
 01BE CD0000            jsr _SCISend1
 01C1 A701              ais #1
 01C3 95                tsx
 01C4           ;       va=(pl*10/51)%10+48;
 01C4 3F00              clr *__r0
 01C6 F6                lda ,X
 01C7 B700              sta *__r1
 01C9 A60A              lda #10
 01CB 87                psha
 01CC 4F                clra
 01CD 87                psha
 01CE B600              lda *__r1
 01D0 87                psha
 01D1 B600              lda *__r0
 01D3 87                psha
 01D4 CD0000            jsr __mul16
 01D7 A704              ais #4
 01D9 4E0000            mov *__rlo,*__r1
 01DC 4E0000            mov *__rhi,*__r0
 01DF 4E0000            mov *__r1,*__rlo
 01E2 4E0000            mov *__r0,*__rhi
 01E5 A633              lda #51
 01E7 87                psha
 01E8 4F                clra
 01E9 87                psha
 01EA CD0000            jsr __divmod16s
 01ED A702              ais #2
 01EF 4E0000            mov *__rhi,*__r0
 01F2 4E0000            mov *__rlo,*__r1
 01F5 4E0000            mov *__r1,*__rlo
 01F8 4E0000            mov *__r0,*__rhi
 01FB A60A              lda #10
 01FD 87                psha
 01FE 4F                clra
 01FF 87                psha
 0200 CD0000            jsr __divmod16s
 0203 86                pula
 0204 B700              sta *__r0
 0206 86                pula
 0207 AB30              add #48
 0209 E702              sta 2,X
 020B B600              lda *__r0
 020D A900              adc #0
 020F E701              sta 1,X
 0211           ;               SCISend1(va);
 0211 E602              lda 2,X
 0213 87                psha
 0214 CD0000            jsr _SCISend1
 0217 A701              ais #1
 0219 95                tsx
 021A           ;               va=((pl*100)/51)%10+48;
 021A 3F00              clr *__r0
 021C F6                lda ,X
 021D B700              sta *__r1
 021F A664              lda #100
 0221 87                psha
 0222 4F                clra
 0223 87                psha
 0224 B600              lda *__r1
 0226 87                psha
 0227 B600              lda *__r0
 0229 87                psha
 022A CD0000            jsr __mul16
 022D A704              ais #4
 022F 4E0000            mov *__rlo,*__r1
 0232 4E0000            mov *__rhi,*__r0
 0235 4E0000            mov *__r1,*__rlo
 0238 4E0000            mov *__r0,*__rhi
 023B A633              lda #51
 023D 87                psha
 023E 4F                clra
 023F 87                psha
 0240 CD0000            jsr __divmod16s
 0243 A702              ais #2
 0245 4E0000            mov *__rhi,*__r0
 0248 4E0000            mov *__rlo,*__r1
 024B 4E0000            mov *__r1,*__rlo
 024E 4E0000            mov *__r0,*__rhi
 0251 A60A              lda #10
 0253 87                psha
 0254 4F                clra
 0255 87                psha
 0256 CD0000            jsr __divmod16s
 0259 86                pula
 025A B700              sta *__r0
 025C 86                pula
 025D AB30              add #48
 025F E702              sta 2,X
 0261 B600              lda *__r0
 0263 A900              adc #0
 0265 E701              sta 1,X
 0267           ;               SCISend1(va);
 0267 E602              lda 2,X
 0269 87                psha
 026A CD0000            jsr _SCISend1
 026D A701              ais #1
 026F           ;               SCISendN(2,"伏");
 026F 45000C            ldhx #L6
 0272 89                pshx
 0273 8B                pshh
 0274 A602              lda #2
 0276 87                psha
 0277 CD0000            jsr _SCISendN
 027A A703              ais #3
 027C 95                tsx
 027D           ;               for(t=0;t<1024;t++)
 027D 6F04              clr 4,X
 027F 6F03              clr 3,X
 0281           L16:
 0281 6F05              clr 5,X
 0283 2002              bra L23
 0285           L20:
 0285           L21:
 0285 6C05              inc 5,X
 0287           L23:
 0287 E605              lda 5,X
 0289 A164              cmp #100
 028B 25F8              blo L20
 028D           L17:
 028D E604              lda 4,X
 028F AB01              add #1
 0291 E704              sta 4,X
 0293 E603              lda 3,X
 0295 A900              adc #0
 0297 E703              sta 3,X
 0299 E604              lda 4,X
 029B B700              sta *__r1
 029D E603              lda 3,X
 029F B700              sta *__r0
 02A1 5500              ldhx *__r0
 02A3 650400            cphx #1024
 02A6 95                tsx
 02A7 91D8              blt L16
 02A9           L3:
 02A9 CC000E            jmp L2
 02AC           X0:
 02AC           L1:
 02AC A706              ais #6
 02AE                   .dbline 0 ; func end
 02AE 81                rts
                        .area lit
 0000           L15:
 0000 CDA8B5C031B5E7D1B9D6B500  .byte 205,168,181,192,49,181,231,209,185,214,181,0
 000C           L6:
 000C B7FC00            .byte 183,252,0
 000F           L5:
 000F CDA8B5C030B5E7D1B9D6B500  .byte 205,168,181,192,48,181,231,209,185,214,181,0