Code ASM - [expand]
===============================================================
;===============================================================
;===============================================================
;= BITS ASSIGNMENTS =
;===============================================================
RS REG P1.0 ; OK
EN REG P1.1 ; OK
ROM_SDA REG P1.2 ; 5EEPROM serial data input/output
ROM_SCL REG P1.3 ; 6EEPROM serial clock output
MT7 REG P1.4
MT6 REG P1.5
MT5 REG P1.6
LCD REG P0
RTC5 REG P3.3
RTC6 REG P3.4
RTC7 REG P3.5
GSM_SW REG P3.6
BUZ REG P3.7
DATA_165 REG P2.0 ; INPUT
CLK_165 REG P2.1
STB_165 REG P2.2
DATA_1651 REG P2.7
ENB REG P2.3
DATA_4094 REG P2.4
CLK_4094 REG P2.5
STB_4094 REG P2.6
DSP_F REG 01H
INP_F1 REG 02H
RLY_F REG 03H
BIN_REG EQU 30H
SEC EQU 31H
BCD1 EQU 32H
BCD2 EQU 33H
BCD3 EQU 34H
RLY_FLG1 EQU 35H
RLY_FLG2 EQU 36H
RLY_FLG3 EQU 37H
RLY_FLG4 EQU 38H
RLY_FLG5 EQU 39H
IN_FLG1_220 EQU 3AH
IN_FLG2_220 EQU 3BH
IN_FLG3_220 EQU 3CH
IN_FLG4_220 EQU 3DH
IN_FLG5_220 EQU 3EH
DUM EQU 3FH
DUM_4094 EQU 40H
DLYREG1 EQU 41H
DLYREG2 EQU 42H
DLYREG3 EQU 43H
PUSHER1 EQU 44H
PUSHER2 EQU 45H
IN_FLG1 EQU 46H
IN_FLG2 EQU 47H
IN_FLG3 EQU 48H
IN_FLG4 EQU 49H
IN_FLG5 EQU 4AH
DREG EQU 4BH
;===============================================================
;===============================================================
;
; PS2 KEY BOARD PIN CONFIG
;
;===============================================================
;===============================================================
DATA_KEY REG P1.7
CLK_KEY REG P3.2
;===============================================================
;===============================================================
;===============================================================
;= RESET VECTOR ADDRESS =
;===============================================================
ORG 00H
JMP INI
;===============================================================
;= INT0 VECTOR ADDRESS =
;===============================================================
; ORG 03H
; JMP INT0ISR
;===============================================================
;= TIMER0 VECTOR ADDRESS =
;===============================================================
ORG 0BH
JMP T0ISR
;===============================================================
;= INT1 VECTOR ADDRESS =
;===============================================================
; ORG 13H
; JMP INT1ISR
;===============================================================
;= INITILIZATION SUBROUTINE =
;===============================================================
ORG 30H
JMP MAIN
;===============================================================
INI:
MOV R0,#7FH ; CLEAR G.P. RAM
CLR A
MOV @R0,A
DJNZ R0,$-1
CLR GSM_SW
CLR ENB
;===============================================================
;===============================================================
MOV LCD,#0
CALL LDLY
CALL LDLY
CLR RS
SETB EN
;===============================================================
MOV LCD,#01H ;CLEAR
CALL CLOCK
;===============================================================
MOV LCD,#02H
CALL CLOCK
;===============================================================
MOV LCD,#00111100B ;DATA-8,LINE-2,CHR-5X8
CALL CLOCK ;3CH
;===============================================================
MOV LCD,#00001100B ;DISP-ON,BLINK-OFF,CUR-OFF
CALL CLOCK ;0CH
;===========================================================
CALL LINE1 ; "BISMILLAH-AR-REHMAN "
CALL LINE2 ; " NAR - RAHEEM "
CALL LINE3 ; " IQRA UNIVERSITY "
CALL LINE4 ; " GSM BASED SECURITY "
MOV DLYREG3,#05
CALL LDLY1
;===========================================================
CALL LINE5 ; " Iqra University "
CALL LINE6 ; " Gsm Based Security "
CALL BLK3 ; " 000,000,000,000,000"
CALL BLK4 ; " 000,000,000,000,000"
MOV TMOD,#01
MOV TH0,#>(-50000)
MOV TL0,#<(-50000)
CLR TR0
CLR TF0
MOV TCON,#05
MOV IE,#10000010B
MOV SEC,#120
MOV RLY_FLG1,#01
MOV RLY_FLG2,#00
MOV RLY_FLG3,#00
MOV RLY_FLG4,#00
MOV RLY_FLG5,#00
SETB TR0
MOV R0,#00
MOV DUM_4094,#08
;===========================================================
;===========================================================
MAIN:
CALL M_DISPLAY
CALL RLY_SR ;OK
CALL INP_SR1
JMP MAIN
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
M_DISPLAY:
JNB DSP_F,M_DISPLAY_DONE
RET
;===========================================================
;===========================================================
M_DISPLAY_DONE:
SETB DSP_F
MOV BIN_REG,IN_FLG1
CALL BIN_BCD
MOV LCD,#095H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#096H
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#097H
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG2
CALL BIN_BCD
MOV LCD,#099H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#09AH
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#09BH
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG3
CALL BIN_BCD
MOV LCD,#09DH
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#09EH
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#09FH
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG4
CALL BIN_BCD
MOV LCD,#0A1H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0A2H
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0A3H
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG5
CALL BIN_BCD
MOV LCD,#0A5H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0A6H
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0A7H
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG1_220
CALL BIN_BCD
MOV LCD,#0D5H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0D6H
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0D7H
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG2_220
CALL BIN_BCD
MOV LCD,#0D9H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0DAH
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0DBH
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG3_220
CALL BIN_BCD
MOV LCD,#0DDH
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0DEH
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0DFH
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG4_220
CALL BIN_BCD
MOV LCD,#0E1H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0E2H
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0E3H
CALL CLOCK
MOV A,BCD1
CALL DSPT
;===========================================================
;===========================================================
MOV BIN_REG,IN_FLG5_220
CALL BIN_BCD
MOV LCD,#0E5H
CALL CLOCK
MOV A,BCD3
CALL DSPT
MOV LCD,#0E6H
CALL CLOCK
MOV A,BCD2
CALL DSPT
MOV LCD,#0E7H
CALL CLOCK
MOV A,BCD1
CALL DSPT
RET
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
BIN_BCD:
MOV A,BIN_REG
MOV B,#10
DIV AB
MOV BCD1,B
MOV B,#10
DIV AB
MOV BCD2,B
MOV BCD3,A
RET
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
INP_SR1:
JNB INP_F1,INP_SR1_DONE
RET
;===========================================================
;===========================================================
INP_SR1_DONE:
SETB INP_F1
SETB ENB
MOV IN_FLG1,#00
MOV IN_FLG2,#00
MOV IN_FLG3,#00
MOV IN_FLG4,#00
MOV IN_FLG5,#00
MOV IN_FLG1_220,#00
MOV IN_FLG2_220,#00
MOV IN_FLG3_220,#00
MOV IN_FLG4_220,#00
MOV IN_FLG5_220,#00
MOV A,#00
MOV PUSHER1,#00
MOV PUSHER2,#00
MOV DUM,#08
CLR STB_165
CALL NOPE10
MOV R0,#00
;===========================================================
;===========================================================
S_LOP2:
SETB CLK_165
CALL NOPE10
MOV C,DATA_165
MOV A,PUSHER1
RRC A
MOV PUSHER1,A
MOV A,PUSHER2
MOV C,DATA_1651
RRC A
MOV PUSHER2,A
CALL NOPE10
CLR CLK_165
CALL NOPE10
DJNZ DUM,S_LOP2
MOV DUM,#08
CJNE R0,#00,INPS1
MOV IN_FLG1,PUSHER1
MOV IN_FLG1_220,PUSHER2
MOV PUSHER1,#00
MOV PUSHER2,#00
MOV R0,#01
SJMP S_LOP2
;===========================================================
;===========================================================
INPS1:
CJNE R0,#01,INPS2
MOV IN_FLG2,PUSHER1
MOV IN_FLG2_220,PUSHER2
MOV PUSHER1,#00
MOV PUSHER2,#00
MOV R0,#02
SJMP S_LOP2
;===========================================================
;===========================================================
INPS2:
CJNE R0,#02,INPS3
MOV IN_FLG3,PUSHER1
MOV IN_FLG3_220,PUSHER2
MOV PUSHER1,#00
MOV PUSHER2,#00
MOV R0,#03
SJMP S_LOP2
;===========================================================
;===========================================================
INPS3:
CJNE R0,#03,INPS4
MOV IN_FLG4,PUSHER1
MOV IN_FLG4_220,PUSHER2
MOV PUSHER1,#00
MOV PUSHER2,#00
MOV R0,#04
SJMP S_LOP2
;===========================================================
;===========================================================
INPS4:
MOV IN_FLG5,PUSHER1
MOV IN_FLG5_220,PUSHER2
MOV PUSHER1,#00
MOV PUSHER2,#00
CLR DSP_F
RET
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
RLY_SR:
JNB RLY_F,RLY_SR_DONE
RET
RLY_SR_DONE:
SETB RLY_F
CJNE R0,#00,RLY_sR1
CLR STB_4094
CLR ENB
MOV A,RLY_FLG5
CALL SND_4094
MOV A,RLY_FLG4
CALL SND_4094
MOV A,RLY_FLG3
CALL SND_4094
MOV A,RLY_FLG2
CALL SND_4094
MOV A,RLY_FLG1
CALL SND_4094
MOV A,RLY_FLG1
RL A
MOV RLY_FLG1,A
DJNZ DUM_4094,XX_RLY_SR
MOV R0,#01
MOV DUM_4094,#08
MOV RLY_FLG2,#01
MOV RLY_FLG1,#00
XX_RLY_SR:
SETB STB_4094
SETB ENB
RET
;===========================================================
;===========================================================
RLY_sR1:
CJNE R0,#01,RLY_SR2
CLR STB_4094
CLR ENB
MOV A,RLY_FLG5
CALL SND_4094
MOV A,RLY_FLG4
CALL SND_4094
MOV A,RLY_FLG3
CALL SND_4094
MOV A,RLY_FLG2
CALL SND_4094
MOV A,RLY_FLG1
CALL SND_4094
MOV A,RLY_FLG2
RL A
MOV RLY_FLG2,A
DJNZ DUM_4094,XX_RLY_SR1
MOV R0,#02
MOV DUM_4094,#08
MOV RLY_FLG3,#01
MOV RLY_FLG2,#00
XX_RLY_SR1:
SETB STB_4094
SETB ENB
RET
;===========================================================
;===========================================================
RLY_SR2:
CJNE R0,#02,RLY_SR3
CLR STB_4094
CLR ENB
MOV A,RLY_FLG5
CALL SND_4094
MOV A,RLY_FLG4
CALL SND_4094
MOV A,RLY_FLG3
CALL SND_4094
MOV A,RLY_FLG2
CALL SND_4094
MOV A,RLY_FLG1
CALL SND_4094
MOV A,RLY_FLG3
RL A
MOV RLY_FLG3,A
DJNZ DUM_4094,XX_RLY_SR2
MOV R0,#03
MOV DUM_4094,#08
MOV RLY_FLG4,#01
MOV RLY_FLG3,#00
XX_RLY_SR2:
SETB STB_4094
SETB ENB
RET
;===========================================================
;===========================================================
RLY_SR3:
CJNE R0,#03,RLY_SR4
CLR STB_4094
CLR ENB
MOV A,RLY_FLG5
CALL SND_4094
MOV A,RLY_FLG4
CALL SND_4094
MOV A,RLY_FLG3
CALL SND_4094
MOV A,RLY_FLG2
CALL SND_4094
MOV A,RLY_FLG1
CALL SND_4094
MOV A,RLY_FLG4
RL A
MOV RLY_FLG4,A
DJNZ DUM_4094,XX_RLY_SR3
MOV R0,#04
MOV DUM_4094,#08
MOV RLY_FLG5,#01
MOV RLY_FLG4,#00
XX_RLY_SR3:
SETB STB_4094
SETB ENB
RET
;===========================================================
;===========================================================
RLY_SR4:
MOV A,RLY_FLG5
CALL SND_4094
MOV A,RLY_FLG4
CALL SND_4094
MOV A,RLY_FLG3
CALL SND_4094
MOV A,RLY_FLG2
CALL SND_4094
MOV A,RLY_FLG1
CALL SND_4094
MOV A,RLY_FLG5
RL A
MOV RLY_FLG5,A
DJNZ DUM_4094,XX_RLY_SR4
MOV R0,#00
MOV DUM_4094,#08
MOV RLY_FLG1,#01
MOV RLY_FLG5,#00
XX_RLY_SR4:
SETB STB_4094
SETB ENB
RET
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
;===========================================================
SND_4094:
MOV DUM,#08
S_LOP1:
RLC A
MOV DATA_4094,C
CALL CLOCK_4094
DJNZ DUM,S_LOP1
RET
;===========================================================
;===========================================================
;===========================================================
;===========================================================
CLOCK_4094:
CALL NOPE10
SETB CLK_4094
CALL NOPE10
CLR CLK_4094
CALL NOPE10
RET
;===========================================================
;===========================================================
NOPE10:
NOP
NOP
NOP
NOP
NOP
NOP
RET
;===============================================================
;===============================================================
;===============================================================
T0ISR:
CLR TR0
CLR TF0
MOV TH0,#>(-50000)
MOV TL0,#<(-50000)
DJNZ SEC,EXT_T0ISR
MOV SEC,#120
CLR INP_F1
CLR RLY_F
;===============================================================
;===============================================================
EXT_T0ISR:
SETB TR0
RETI
;===============================================================
;===============================================================
;=====================================================================
;=====================================================================
;=====================================================================
;=====================================================================
;= DISPLAY SUBROUTINE =
;=====================================================================
;=====================================================================
DISPLAY:
; CALL CLOCK
CALL SDLY
SETB RS ;DATA MODE PRINTING MODE
MOV DREG,#0H
RETURN:
MOV A,DREG
MOVC A,@A+DPTR
MOV LCD,A
CALL CLOCK
INC DREG
MOV A,DREG
CJNE A,#20,RETURN
CLR RS
RET
;=====================================================================
;= DISPLAY SUBROUTINE =
;=====================================================================
DSPT:
ORL A,#30H
;DSPT:
MOV LCD,A
; CALL LCD_SENDER
CALL SDLY
SETB RS
CALL SDLY
CLR EN
CALL SDLY
SETB EN
CALL SDLY
CLR RS
RET
;================================================================
;= LCD INITILALIZATION DELAY =
;================================================================
;INIDLY:
; DJNZ DLYREG1,$
; DJNZ DLYREG1,$
; DJNZ DLYREG2,INIDLY
; RET
;================================================================
;= 150 uSec (SMALL DELAY) =
;================================================================
SDLY:
DJNZ DLYREG1,$
RET
;================================================================
;================================================================
;= 150 uSec (SMALL DELAY) =
;================================================================
LDLY1:
CALL LDLY
DJNZ DLYREG3,LDLY1
MOV DLYREG3,#05
RET
;================================================================
;= DELAY =
;================================================================
LDLY:
DJNZ DLYREG1,$
DJNZ DLYREG1,$
DJNZ DLYREG2,LDLY
RET
;================================================================
;= DELAY & EN,DISABLE =
;================================================================
CLOCK:
CALL SDLY
CLR EN
CALL SDLY
SETB EN
RET
;================================================================
;======================================================================
;======================================================================
;================================================================
;================================================================
;================================================================
;= LINES ADDRESSES =
;================================================================
LINE1:
MOV LCD,#80H ;CURSER SET AT 1st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSG1
CALL DISPLAY
RET
;================================================================
LINE2:
MOV LCD,#0C0H ;CURSER SET AT 2st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSG2
CALL DISPLAY
RET
;================================================================
LINE3:
MOV LCD,#94H ;CURSER SET AT 1st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSG3
CALL DISPLAY
RET
;================================================================
LINE4:
MOV LCD,#0D4H ;CURSER SET AT 2st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSG4
CALL DISPLAY
RET
;================================================================
LINE5:
MOV LCD,#80H ;CURSER SET AT 1st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSG5
CALL DISPLAY
RET
;================================================================
LINE6:
MOV LCD,#0C0H ;CURSER SET AT 2st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSG6
CALL DISPLAY
RET
BLK3:
MOV LCD,#094H ;CURSER SET AT 2st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSGB
CALL DISPLAY
RET
BLK4:
MOV LCD,#0D4H ;CURSER SET AT 2st LINE 1st CHARACTER
CALL CLOCK
MOV DPTR,#MSGB
CALL DISPLAY
RET
;================================================================
;================================================================
;================================================================
;================================================================
;= =
;= =
;= LOOK UP TABLE =
;= =
;= =
END