[Free] Đồ án [DA002-6] Quang báo ma trận giao tiếp với máy tính

by **hoangnhanpro** 16th August 2012, 08:57

Code:: 5.3. CHƯƠNG TRÌNH PHẦN MỀM. 5.3.1. Chương trình viết cho vi điều khiển. ;-----------------chuong trinh dieu khien thiet bi------------------------------ ORG 0000H LJMP MAIN ORG 0023H LJMP NGAT ORG 0030H ;-------------------------------------------------------------------------------------------- MAIN: LCALL DELAY LCALL DELAY LCALL DELAY LCALL DELAY MOV SP,#35H MOV TMOD,#20H MOV TH1,#-3;----------------1200 MOV SCON,#52H MOV IE,#90H CLR 09H;----------lam co phat MOV R0,#02H SETB TR1 mov p1,#00h SETB 01H;-------bit so sanh de dieu khien cong tac 1 SETB 02H;-------bit so sanh de dieu khien cong tac 2 SETB 03H;-------bit so sanh de dieu khien cong tac 3 SETB 04H;-------bit so sanh de dieu khien cong tac 4 SETB 05H;-------bit so sanh de dieu khien cong tac 5 SETB 06H;-------bit so sanh de dieu khien cong tac 6 SETB 07H;-------bit so sanh de dieu khien cong tac 7 SETB 08H;-------bit so sanh de dieu khien cong tac 8 setb p3.4 ;=================================================== TIEP: LCALL KTRA LCALL CAPNHAT SJMP TIEP ;================================================ ;------kiem tra trang thai cong tac----------------------------------------- KTRA: JB P2.0, KTRA1 LCALL DELAY JNB 01H, SW2 JB P2.0,KTRA1 CPL 01H MOV C,01H MOV P0.0,C LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'A' LCALL PHAT SJMP SW2 KTRA1: JB 01H,SW2 CPL 01H MOV C,01H MOV P0.0,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'a' LCALL PHAT ;------------------------------------------------------------------------ SW2: JB P2.1,KTRA2 LCALL DELAY JNB 02H,SW3 JB P2.1,KTRA2 CPL 02H MOV C,02H MOV P0.1,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'B' LCALL PHAT SJMP SW3 KTRA2: JB 02H,SW3 CPL 02H MOV C,02H MOV P0.1,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'b' LCALL PHAT ;-------------------------------------------------------------------- SW3: JB P2.2,KTRA3 LCALL DELAY JNB 03H,SW4 JB P2.2,KTRA3 CPL 03H MOV C,03H MOV P0.2,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'C' LCALL PHAT SJMP SW4 KTRA3: JB 03H,SW4 CPL 03H MOV C,03H MOV P0.2,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'c' LCALL PHAT ;-------------------------------------------------------------- SW4: JB P2.3,KTRA4 LCALL DELAY JNB 04H,SW5 JB P2.3,KTRA4 CPL 04H MOV C,04H MOV P0.3,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'D' LCALL PHAT SJMP SW5 KTRA4: JB 04H,SW5 CPL 04H MOV C,04H MOV P0.3,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'d' LCALL PHAT ;--------------------------------------------------------------------- SW5: JB P2.4,KTRA5 LCALL DELAY JNB 05H,SW6 JB P2.4,KTRA5 CPL 05H MOV C,05H MOV P0.4,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'E' LCALL PHAT SJMP SW6 KTRA5: JB 05H,SW6 CPL 05H MOV C,05H MOV P0.4,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'e' LCALL PHAT ;--------------------------------------------------- SW6: JB P2.5,KTRA6 LCALL DELAY JNB 06H,SW7 JB P2.5,KTRA6 CPL 06H MOV C,06H MOV P0.5,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'F' LCALL PHAT SJMP SW7 KTRA6: JB 06H,SW7 CPL 06H MOV C,06H MOV P0.5,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'f' LCALL PHAT ;--------------------------------------------------- SW7: JB P2.6,KTRA7 LCALL DELAY JNB 07H,SW8 JB P2.6,KTRA7 CPL 07H MOV C,07H MOV P0.6,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'G' LCALL PHAT SJMP SW8 KTRA7: JB 07H,SW8 CPL 07H MOV C,07H MOV P0.6,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'g' LCALL PHAT ;------------------------------------------------------------------- SW8: JB P2.7,KTRA8 LCALL DELAY JNB 08H,EXIT JB P2.7,KTRA8 CPL 08H MOV C,08H MOV P0.7,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'H' LCALL PHAT SJMP EXIT KTRA8: JB 08H,EXIT CPL 08H MOV C,08H MOV P0.7,C lcall delay MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'h' LCALL PHAT EXIT: RET ;------------------------------------------------------------------------------- CAPNHAT: MOV 21H,R2 MOV 22H,R3 MOV 23H,R4 LCALL DELAY LCALL PHAT JB P0.0, N LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'A' LCALL PHAT SJMP T2 N: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'a' LCALL PHAT T2: JB P0.1,T3 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'B' LCALL PHAT SJMP T4 T3: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'b' LCALL PHAT T4: JB P0.2,T5 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'C' LCALL PHAT SJMP T6 T5: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'c' LCALL PHAT T6: JB P0.3,T7 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'D' LCALL PHAT SJMP T8 T7: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'d' LCALL PHAT T8: JB P0.4,T9 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'E' LCALL PHAT SJMP T10 T9: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'e' LCALL PHAT T10: JB P0.5,T11 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'F' LCALL PHAT SJMP T12 T11: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'f' LCALL PHAT T12: JB P0.6,T13 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'G' LCALL PHAT SJMP T14 T13: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'g' LCALL PHAT T14: JB P0.7,T15 LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'H' LCALL PHAT SJMP T16 T15: LCALL DELAY MOV 21H,#'1' MOV 22H,#'1' MOV 23H,#'h' LCALL PHAT T16: RET ;----------------------------------------------------------------------------------- PHAT: MOV SBUF,21H JNB 09H,$ CLR 09H MOV SBUF,22H JNB 09H,$ CLR 09H MOV SBUF,23H JNB 09H,$ CLR 09H RET ;---------------------------------------------------------------------------------- NGAT: JB TI,XOA CLR RI MOV @R0,SBUF INC R0 CJNE R0,#05H,EXITI MOV R0,#02H LCALL RUN SJMP EXITI XOA: CLR TI SETB 09H EXITI: RETI ;----------------------------------------------------------------------------------- RUN: CJNE R2,#'1',BOQUA CJNE R3,#'1',BOQUA MOD1: CJNE R4,#'A', TATD1 CLR P0.0 LJMP BOQUA TATD1: CJNE R4,#'a',MOD2 SETB P0.0 LJMP THOAT MOD2: CJNE R4,#'B', TATD2 CLR P0.1 LJMP THOAT TATD2: CJNE R4,#'b',MOD3 SETB P0.1 LJMP THOAT MOD3: CJNE R4,#'C', TATD3 CLR P0.2 LJMP THOAT TATD3: CJNE R4,#'c', MOD4 SETB P0.2 LJMP THOAT MOD4: CJNE R4,#'D', TATD4 CLR P0.3 LJMP THOAT TATD4: CJNE R4,#'d', MOD5 SETB P0.3 BOQUA: SJMP THOAT MOD5: CJNE R4,#'E',TATD5 CLR P0.4 SJMP THOAT TATD5: CJNE R4,#'e', MOD6 SETB P0.4 SJMP THOAT MOD6: CJNE R4,#'F', TATD6 CLR P0.5 SJMP THOAT TATD6: CJNE R4,#'f',MOD7 SETB P0.5 SJMP THOAT MOD7: CJNE R4,#'G', TATD7 CLR P0.6 SJMP THOAT TATD7: CJNE R4,#'g',MOD8 SETB P0.6 SJMP THOAT MOD8: CJNE R4,#'H',TATD8 CLR P0.7 SJMP THOAT TATD8: CJNE R4,#'h',THOAT SETB P0.7 SJMP THOAT THOAT: RET ;----------------------------------------------------------------------------------- DELAY: MOV 29H,#50 DEL: MOV 30H,#250 DJNZ 30H,$ DJNZ 29H,DEL RET ;----------------------------------------------------------------------------------- END

[You must be registered and logged in to see this link.]