testio.lis

通过AT90S2313控制可控硅实现对机电系统的控制

                         .module testio.c
                         .area text(rom, con, rel)
 0000                   .dbfile D:\mydesign\TESTio\testio.c
 0000                   .dbfunc s port_init _port_init fI
                         .even
 0000                 _port_init::
 0000                   .dbline -1
 0000                   .dbline 9
                       ; //ICC-AVR application builder : 02-8-3 11:31:04
                       ;      // Target : 2313
                       ;      // Crystal: 8.0000Mhz
                       ;      
                       ;      #include <io2313.h>
                       ;      #include <macros.h>
                       ;      
                       ;      void  port_init(void)
                       ;      {
 0000                   .dbline 10
                       ;      DDRB =0xFF;//out
 0000 8FEF              ldi R24,255
 0002 87BB              out 0x17,R24
 0004                   .dbline 11
                       ;      DDRD =0x00;//in
 0004 2224              clr R2
 0006 21BA              out 0x11,R2
 0008                   .dbline 12
                       ;      PORTD=0x00;
 0008 22BA              out 0x12,R2
 000A                   .dbline -2
 000A                   .dbline 17
                       ;      /* PORTB = 0x00;//set as input
                       ;       DDRB  = 0x00; 
                       ;       PORTD = 0x7F;//set as output
                       ;       DDRD  = 0x7F;*/ 
                       ;      }
 000A                 L1:
 000A                   .dbline 0 ; func end
 000A 0895              ret
 000C                   .dbfunc s circul _circul fI
                         .even
 000C                 _circul::
 000C                   .dbline -1
 000C                   .dbline 19
 000C                   .dbline 21
 000C 80B3              in R24,0x10
 000E 8170              andi R24,1
 0010 8130              cpi R24,1
 0012 21F4              brne L3
 0014                   .dbline 22
 0014 80E1              ldi R24,16
 0016 28B2              in R2,0x18
 0018 2826              eor R2,R24
 001A 28BA              out 0x18,R2
 001C                 L3:
 001C                   .dbline -2
 001C                   .dbline 23
                       ;      void circul(void)
                       ;      {
                       ;      
                       ;      if ((PIND&0x01) ==1)
                       ;      PORTB^=0x10;
                       ;      }
 001C                 L2:
 001C                   .dbline 0 ; func end
 001C 0895              ret
 001E                   .dbfunc s main _main fI
                         .even
 001E                 _main::
 001E                   .dbline -1
 001E                   .dbline 25
                       ;      void main(void)
                       ;      {
 001E                   .dbline 26
                       ;      port_init();
 001E F0DF              rcall _port_init
 0020 01C0              rjmp L7
 0022                 L6:
 0022                   .dbline 28
 0022 F4DF              rcall _circul
 0024                 L7:
 0024                   .dbline 27
 0024 FECF              rjmp L6
 0026                 X0:
 0026                   .dbline -2
 0026                   .dbline 30
                       ;      while(1)
                       ;      circul();
                       ;      
                       ;      }
 0026                 L5:
 0026                   .dbline 0 ; func end
 0026 0895              ret