⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 time_relay.l

📁 一个时间继电器程序,是用三星单片机+汇编语言写的.
💻 L
📖 第 1 页 / 共 5 页
字号:
  218  01A6              RXD_STAR
  219  01A6   F6 09 F2           CALL  RBYT
  220  01A9              RXD_DATA
  221  01A9   A6 C0 0C           CP    R0,#0CH
  222  01AC   ED 01 B2           JP    NE,RXD_KEY_GW
  223  01AF   E4 46 33           LD    KEY_DP_TIME_POSITIVE,RXBUF
  224  01B2              RXD_KEY_GW
  225  01B2   A6 C0 0B           CP    R0,#0BH
  226  01B5   ED 01 BB           JP    NE,RXD_KEY_SW
  227  01B8   E4 46 34           LD    KEY_GW_TIME_POSITIVE,RXBUF
  228  01BB              RXD_KEY_SW
  229  01BB   A6 C0 0A           CP    R0,#0AH
  230  01BE   ED 01 C4           JP    NE,RXD_KEY_BW
  231  01C1   E4 46 35           LD    KEY_SW_TIME_POSITIVE,RXBUF
  232  01C4              RXD_KEY_BW
  233  01C4   A6 C0 09           CP    R0,#09H
  234  01C7   ED 01 CD           JP    NE,RXD_KEY_DP_TIME
  235  01CA   E4 46 36           LD    KEY_BW_TIME_POSITIVE,RXBUF
  236  01CD              RXD_KEY_DP_TIME
  237  01CD   A6 C0 08           CP    R0,#08H
  238  01D0   ED 01 D6           JP    NE,RXD_KEY_GW_TIME
  239  01D3   E4 46 37           LD    KEY_DP_TIME_MINUS,RXBUF
  240  01D6              RXD_KEY_GW_TIME
  241  01D6   A6 C0 07           CP    R0,#07H
  242  01D9   ED 01 DF           JP    NE,RXD_KEY_SW_TIME
  243  01DC   E4 46 38           LD    KEY_GW_TIME_MINUS,RXBUF
  244  01DF              RXD_KEY_SW_TIME
  245  01DF   A6 C0 06           CP    R0,#06H
  246  01E2   ED 01 E8           JP    NE,RXD_KEY_BW_TIME
  247  01E5   E4 46 39           LD    KEY_SW_TIME_MINUS,RXBUF
  248  01E8              RXD_KEY_BW_TIME
  249  01E8   A6 C0 05           CP    R0,#05H
  250  01EB   ED 01 F1           JP    NE,RXD_KEY_DP_STOP
  251  01EE   E4 46 3A           LD    KEY_BW_TIME_MINUS,RXBUF
  252  01F1              RXD_KEY_DP_STOP
  253  01F1   A6 C0 04           CP    R0,#04H
  254  01F4   ED 01 FA           JP    NE,RXD_KEY_GW_STOP
  255  01F7   E4 46 3B           LD    KEY_DP_TIME_STOP,RXBUF
  256  01FA              RXD_KEY_GW_STOP
  257  01FA   A6 C0 03           CP    R0,#03H
  258  01FD   ED 02 03           JP    NE,RXD_KEY_SW_STOP
  259  0200   E4 46 3C           LD    KEY_GW_TIME_STOP,RXBUF
  260  0203              RXD_KEY_SW_STOP
  261  0203   A6 C0 02           CP    R0,#02H
  262  0206   ED 02 0C           JP    NE,RXD_KEY_BW_STOP
  263  0209   E4 46 3D           LD    KEY_SW_TIME_STOP,RXBUF
  264  020C              RXD_KEY_BW_STOP
  265  020C   A6 C0 01           CP    R0,#01H
  266  020F   ED 02 15           JP    NE,RXD_SLAVE_ACK
  267  0212   E4 46 3E           LD    KEY_BW_TIME_STOP,RXBUF
  268  0215              RXD_SLAVE_ACK
  269  0215   F6 09 7B           CALL  MACK
  270  0218   00 C0              DEC   R0
  271  021A   A6 C0 00           CP    R0,#00H
  272  021D   ED 01 A6           JP    NE,RXD_STAR
  273  0220   F6 09 91           CALL  MANCK
  274  0223   F6 09 6A           CALL  I2CSTOP
  275  0226   A6 33 20           CP    KEY_DP_TIME_POSITIVE,#20H
  276  0229   7D 02 2E           JP    ULT,TIME_POSITIVE_CLR1 
  277  022C   B0 33              CLR   KEY_DP_TIME_POSITIVE
  278  022E              TIME_POSITIVE_CLR1 
  279  022E   A6 34 20           CP    KEY_GW_TIME_POSITIVE,#20H
  280  0231   7D 02 36           JP    ULT,TIME_POSITIVE_CLR2 
  281  0234   B0 34              CLR   KEY_GW_TIME_POSITIVE
  282  0236              TIME_POSITIVE_CLR2
  283  0236   A6 35 20           CP    KEY_SW_TIME_POSITIVE,#20H
  284  0239   7D 02 3E           JP    ULT,TIME_POSITIVE_CLR3
  285  023C   B0 35              CLR   KEY_SW_TIME_POSITIVE
  286  023E              TIME_POSITIVE_CLR3
  287  023E   A6 36 20           CP    KEY_BW_TIME_POSITIVE,#20H
  288  0241   7D 02 46           JP    ULT,TIME_POSITIVE_CLR4
  289  0244   B0 36              CLR   KEY_BW_TIME_POSITIVE
  290  0246              TIME_POSITIVE_CLR4
  291  0246   A6 37 20           CP    KEY_DP_TIME_MINUS,#20H
  292  0249   7D 02 4E           JP    ULT,TIME_MINUS_CLR1
  293  024C   B0 37              CLR   KEY_DP_TIME_MINUS
  294  024E              TIME_MINUS_CLR1
  295  024E   A6 38 20           CP    KEY_GW_TIME_MINUS,#20H
  296  0251   7D 02 56           JP    ULT,TIME_MINUS_CLR2
  297  0254   B0 38              CLR   KEY_GW_TIME_MINUS
  298  0256              TIME_MINUS_CLR2
  299  0256   A6 39 20           CP    KEY_SW_TIME_MINUS,#20H
  300  0259   7D 02 5E           JP    ULT,TIME_MINUS_CLR3
  301  025C   B0 39              CLR   KEY_SW_TIME_MINUS
  302  025E              TIME_MINUS_CLR3
  303  025E   A6 3A 20           CP    KEY_BW_TIME_MINUS,#20H
  304  0261   7D 02 66           JP    ULT,TIME_MINUS_CLR4
  305  0264   B0 3A              CLR   KEY_BW_TIME_MINUS
  306  0266              TIME_MINUS_CLR4
  307  0266   A6 3B 20           CP    KEY_DP_TIME_STOP,#20H
  308  0269   7D 02 6E           JP    ULT,TIME_STOP_CLR1
  309  026C   B0 3B              CLR   KEY_DP_TIME_STOP
  310  026E              TIME_STOP_CLR1
  311  026E   A6 3C 20           CP    KEY_GW_TIME_STOP,#20H
  312  0271   7D 02 76           JP    ULT,TIME_STOP_CLR2
  313  0274   B0 3C              CLR   KEY_GW_TIME_STOP
  314  0276              TIME_STOP_CLR2
  315  0276   A6 3D 20           CP    KEY_SW_TIME_STOP,#20H
  316  0279   7D 02 7E           JP    ULT,TIME_STOP_CLR3
  317  027C   B0 3D              CLR   KEY_SW_TIME_STOP
  318  027E              TIME_STOP_CLR3
  319  027E   A6 3E 20           CP    KEY_BW_TIME_STOP,#20H
  320  0281   7D 02 86           JP    ULT,TIME_STOP_CLR4
  321  0284   B0 3E              CLR   KEY_BW_TIME_STOP
  322  0286              TIME_STOP_CLR4
  323  0286   E4 33 62           LD    KEY_DP1,KEY_DP_TIME_POSITIVE
  324  0289   E4 34 63           LD    KEY_GW1,KEY_GW_TIME_POSITIVE
  325  028C   E4 35 64           LD    KEY_SW1,KEY_SW_TIME_POSITIVE
  326  028F   E4 36 65           LD    KEY_BW1,KEY_BW_TIME_POSITIVE
  327  0292   E4 33 69           LD    KEY_DP,KEY_DP_TIME_POSITIVE
  328  0295   E4 34 6A           LD    KEY_GW,KEY_GW_TIME_POSITIVE
  329  0298   E4 35 6B           LD    KEY_SW,KEY_SW_TIME_POSITIVE
  330  029B   E4 36 6C           LD    KEY_BW,KEY_BW_TIME_POSITIVE
  331  029E   E4 33 26           LD    DIS_DP,KEY_DP_TIME_POSITIVE
  332  02A1   E4 34 27           LD    DIS_GW,KEY_GW_TIME_POSITIVE
  333  02A4   E4 35 28           LD    DIS_SW,KEY_SW_TIME_POSITIVE
  334  02A7   E4 36 29           LD    DIS_BW,KEY_BW_TIME_POSITIVE
  335  02AA   E6 58 01           LD    KEY_TIME_COMPARE,#01H  ;下一个信号是停止 
  336                            ;**************T0定时****************** 
  337  02AD   E6 D1 F5           ld      t0data,#245
  338  02B0   E6 D2 82   	ld      t0con,#10000010b    
  339  02B3   9F                 EI  
  340  02B4   E6 61 18           LD   KEY_LED_TEMP,#18H    ;点亮停止灯 
  341  02B7   8D 03 51           JP    TIME   
  342                    ;****************************发送I2C********************************** 
  343  02BA              I2COPEN
  344  02BA   F6 09 51           CALL  I2CSTAR
  345  02BD   E6 45 A0           LD    TXBUF,#10100000B
  346  02C0   F6 09 C3           CALL  WRBYT
  347  02C3   F6 09 A7           CALL  CHECK
  348  02C6   7D 03 51           JP    C,TIME
  349  02C9   0C 0D              LD    R0,#0DH
  350  02CB              SEND_ADDRESS
  351  02CB   A6 C0 0D           CP    R0,#0DH
  352  02CE   ED 02 D4           JP    NE,SEND_KEY_DP_SET
  353  02D1   E6 45 01           LD    TXBUF,#01H
  354  02D4              SEND_KEY_DP_SET
  355  02D4   A6 C0 0C           CP    R0,#0CH
  356  02D7   ED 02 DD           JP    NE,SEND_KEY_GW_SET
  357  02DA   E4 33 45           LD    TXBUF,KEY_DP_TIME_POSITIVE
  358  02DD              SEND_KEY_GW_SET       
  359  02DD   A6 C0 0B           CP    R0,#0BH
  360  02E0   ED 02 E6           JP    NE,SEND_KEY_SW_SET
  361  02E3   E4 34 45           LD    TXBUF,KEY_GW_TIME_POSITIVE
  362  02E6              SEND_KEY_SW_SET       
  363  02E6   A6 C0 0A           CP    R0,#0AH
  364  02E9   ED 02 EF           JP    NE,SEND_KEY_BW_SET
  365  02EC   E4 35 45           LD    TXBUF,KEY_SW_TIME_POSITIVE
  366  02EF              SEND_KEY_BW_SET
  367  02EF   A6 C0 09           CP    R0,#09H
  368  02F2   ED 02 F8           JP    NE,SEND_KEY_DP_TIME
  369  02F5   E4 36 45           LD    TXBUF,KEY_BW_TIME_POSITIVE
  370  02F8              SEND_KEY_DP_TIME
  371  02F8   A6 C0 08           CP    R0,#08H
  372  02FB   ED 03 01           JP    NE,SEND_KEY_GW_TIME
  373  02FE   E4 37 45           LD    TXBUF,KEY_DP_TIME_MINUS
  374  0301              SEND_KEY_GW_TIME
  375  0301   A6 C0 07           CP    R0,#07H
  376  0304   ED 03 0A           JP    NE,SEND_KEY_SW_TIME
  377  0307   E4 38 45           LD    TXBUF,KEY_GW_TIME_MINUS 
  378  030A              SEND_KEY_SW_TIME
  379  030A   A6 C0 06           CP    R0,#06H
  380  030D   ED 03 13           JP    NE,SEND_KEY_BW_TIME
  381  0310   E4 39 45           LD    TXBUF,KEY_SW_TIME_MINUS
  382  0313              SEND_KEY_BW_TIME
  383  0313   A6 C0 05           CP    R0,#05H
  384  0316   ED 03 1C           JP    NE,SEND_KEY_DP_STOP
  385  0319   E4 3A 45           LD    TXBUF,KEY_BW_TIME_MINUS
  386  031C              SEND_KEY_DP_STOP
  387  031C   A6 C0 04           CP    R0,#04H
  388  031F   ED 03 25           JP    NE,SEND_KEY_GW_STOP
  389  0322   E4 3B 45           LD    TXBUF,KEY_DP_TIME_STOP
  390  0325              SEND_KEY_GW_STOP
  391  0325   A6 C0 03           CP    R0,#03H
  392  0328   ED 03 2E           JP    NE,SEND_KEY_SW_STOP
  393  032B   E4 3C 45           LD    TXBUF,KEY_GW_TIME_STOP
  394  032E              SEND_KEY_SW_STOP
  395  032E   A6 C0 02           CP    R0,#02H
  396  0331   ED 03 37           JP    NE,SEND_KEY_BW_STOP
  397  0334   E4 3D 45           LD    TXBUF,KEY_SW_TIME_STOP
  398  0337              SEND_KEY_BW_STOP
  399  0337   A6 C0 01           CP    R0,#01H
  400  033A   ED 03 40           JP    NE,SEND_STAR
  401  033D   E4 3E 45           LD    TXBUF,KEY_BW_TIME_STOP
  402  0340              SEND_STAR
  403  0340   F6 09 C3           CALL  WRBYT
  404  0343   F6 09 A7           CALL  CHECK
  405  0346   7D 03 51           JP    C,TIME
  406  0349   00 C0              DEC   R0
  407  034B   ED 02 CB           JP    NZ,SEND_ADDRESS
  408  034E   F6 09 6A           CALL  I2CSTOP         
  409                    ;************************时间计时********************************
  410  0351              TIME
  411  0351   76 E0 40           TM   P0,#01000000B
  412  0354   ED 03 5D           JP   NZ,TIME2
  413  0357   56 E2 CF           AND  P2,#11001111B       ;正转、反转继电器关掉 
  414  035A   8D 04 50           JP   T,TIME_EXIT 
  415  035D              TIME2         
  416  035D   A6 58 01           CP  KEY_TIME_COMPARE,#01H
  417  0360   ED 03 69           JP  NE,TIME2_2
  418  0363   46 E2 10           OR   P2,#00010000B            ;正转继电器吸合 
  419  0366   8D 03 84           JP  T,TIME2_1
  420  0369              TIME2_2
  421  0369   A6 58 02           CP  KEY_TIME_COMPARE,#02H
  422  036C   ED 03 75           JP  NE,TIME2_3
  423  036F   56 E2 CF           AND  P2,#11001111B       ;正转、反转继电器关掉 
  424  0372   8D 03 84           JP  T,TIME2_1
  425  0375              TIME2_3
  426  0375   A6 58 03           CP  KEY_TIME_COMPARE,#03H
  427  0378   ED 03 81           JP  NE,TIME2_4
  428  037B   46 E2 20           OR   P2,#00100000B         ;反转继电器吸合 
  429  037E   8D 03 84           JP  T,TIME2_1
  430  0381              TIME2_4
  431  0381   56 E2 CF           AND  P2,#11001111B       ;正转、反转继电器关掉 
  432  0384              TIME2_1        
  433  0384   A6 13 55           CP  T_1S_FLAG,#55H
  434  0387   ED 04 4D           JP  NE,TIME_SUB
  435                           ; LD   FLASH_FLAG,#0AAH;灭掉时钟点 
  436  038A   26 26 01           SUB  DIS_DP,#01H
  437  038D   FD 04 47           JP   NC,TIME_EXIT1
  438  0390   06 26 0A           ADD  DIS_DP,#0AH
  439  0393   26 27 01           SUB  DIS_GW,#01H
  440  0396   FD 04 47           JP   NC,TIME_EXIT1
  441  0399   06 27 06           ADD  DIS_GW,#06H
  442  039C   26 28 01           SUB  DIS_SW,#01H
  443  039F   FD 04 47           JP   NC,TIME_EXIT1
  444  03A2   06 28 0A           ADD  DIS_SW,#0AH
  445  03A5   26 29 01           SUB  DIS_BW,#01H
  446  03A8   FD 04 47           JP   NC,TIME_EXIT1
  447  03AB              TIME_SET_POSITIVE

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -