太陽能電池板自動跟蹤系統(tǒng)設計-資料下載頁
2025-06-29 23:01本頁面
【正文】 ADDR EQU 1READTIME1:MOV A,2 MOV ADDR,A MOV A,30H MOV DATA,A MOV A,0A3H MOV DT,A CALL READNMOV A,32H CJNZ A,06H,READTIME1 READTIME2: MOV A,2 MOV ADDR,A MOV A,30H MOV DATA,A MOV A,0A3H MOV DT,A CALL READNMOV A,30HORL A,00HJNZ READTIME2MOV A,31HORL A,OOHJNZ READTIME2MOV R619HMOV R7,00H JMP RUBA MOV A,32H CJNZ A,12H,READTIME2 BACK1:MOV A,12H BB:MOV R6,19H MOV R7,00H JMP RUBA DJNZ BBWD:MOV R6,01H MOV R7,00HJMP RUBBRET READN:NOP CALL DELAY2M NOP MOV A,8 MOV B_COUNT,A MOV A,DT CALL BSTART CALL TX MOV A,ADDR CALL TX MOV A,ADDR CALL TX MOV A,DT SETB CALL BSTART CALL TXRDD:CALL RXMOV @R0,A INC R0DJNZ B_COUNT,RDDNOPCALL BSTOPRETTX:MOV A,8 MOV COUNT,ATX1:CLR SDAJNB ,TX2SETB SDATX2:LCALL DELAY5USETB SCLLCALL DELAY5UCLR SCLRL ADJNZ COUNT,TX1NOPCALL BITINRETRX:MOV A,8 MOV COUNT,A NOPRX1:RL ASETB SCLLCALL DELAY5UCLR JNB SDA,RX2SETB RX2:LCALL DELAY5UCLR SCLLCALL DELAY5UDJNZ COUNT,RX1NOPCALL BITOUTRETBITOUT:NOP CLR SDA LCALL DELAY5U SETB SCL LCALL DELAY5U NOP CLR SCLRETBITIN:NOP SETB SCL LCALL DELAY5U NOP CLR SCL RETBITIN1:LCALL DELAY5U CLR SCL RETBSTART:NOP SETB SCDA SETB SCL LCALL DELAY5U CLR SDA LCALL DELAY5U CLR SCL RETBSTOP:NOP CLR SDA SETB SCL LCALL DELAY5U SETB SDA LCALL DELAY5U CLR SCLRET RUBA:MOV R0,20H INC @R0 MOV P0,@R0 CLR EA INC R0 INC @R0 CJNZ @R0,0DH,RUB1 INC R0 INC @R0 CJNZ @R0,0DH,RUB1 INC R0 INC @R0RUB1:SETB EA DEC RG CJNZ R6,0FFH,RUB2 DEC R7RUB2:MOV A,R6 DRL JNZ RUB CLR TR0 SJMP READTIME2 RUB3:RETI RUBB:MOV R1,20H INC @R1 MOV P2,@R1 CLR EA INC R1 INC @R1 CJNZ @R1,0DH,RUB1 INC R1 INC @R1RUB1:SETB EA DEC RG CJNZ R6,0FFH,RUB2 DEC R7RUB2:MOV A,R6 DRL JNZ RUB CLR TR1 SJMP READTIME1RUB3:RETI DELAY5U:NOP NOP NOP RETDELAY2M:MOV R1,190H D1: CALL DELAY5U DJNZ D1 RETEND
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1