ear.asm

attendace system on 8051 chipset from intel.

	C$string.h$53$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 53
	mov	dpl,_strstrcmp_str1_1_1
	mov	dph,(_strstrcmp_str1_1_1 + 1)
	mov	b,(_strstrcmp_str1_1_1 + 2)
	lcall	_strstrlen
	mov	r5,dpl
	mov	r6,dph
	C$string.h$54$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 54
	mov	dpl,_strstrcmp_PARM_2
	mov	dph,(_strstrcmp_PARM_2 + 1)
	mov	b,(_strstrcmp_PARM_2 + 2)
	push	ar5
	push	ar6
	lcall	_strstrlen
	mov	r7,dpl
	mov	r0,dph
	pop	ar6
	pop	ar5
	C$string.h$56$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 56
	clr	c
	mov	a,r5
	subb	a,r7
	mov	a,r6
	xrl	a,#0x80
	mov	b,r0
	xrl	b,#0x80
	subb	a,b
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00102$
00117$:
; Peephole 182   used 16 bit load of dptr
	mov  dptr,#(((0xFF)<<8) + 0xFF)
	ljmp	00110$
00102$:
	C$string.h$57$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 57
	clr	c
	mov	a,r7
	subb	a,r5
	mov	a,r0
	xrl	a,#0x80
	mov	b,r6
	xrl	b,#0x80
	subb	a,b
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00116$
00118$:
; Peephole 182   used 16 bit load of dptr
	mov  dptr,#(((0x00)<<8) + 0x01)
	ljmp	00110$
	C$string.h$59$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 59
00116$:
	mov	r5,_strstrcmp_str1_1_1
	mov	r6,(_strstrcmp_str1_1_1 + 1)
	mov	r7,(_strstrcmp_str1_1_1 + 2)
	mov	r0,_strstrcmp_PARM_2
	mov	r1,(_strstrcmp_PARM_2 + 1)
	mov	r2,(_strstrcmp_PARM_2 + 2)
00107$:
	mov	dpl,r5
	mov	dph,r6
	mov	b,r7
	lcall	__gptrget
	mov	r3,a
	inc	dptr
	mov	r5,dpl
	mov	r6,dph
	mov	a,r3
; Peephole 110   removed ljmp by inverse jump logic
	jz  00109$
00119$:
	C$string.h$61$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 61
	mov	dpl,r0
	mov	dph,r1
	mov	b,r2
	lcall	__gptrget
	mov	r4,a
	inc	dptr
	mov	r0,dpl
	mov	r1,dph
	mov	a,r3
	cjne	a,ar4,00120$
; Peephole 132   changed ljmp to sjmp
	sjmp 00106$
00120$:
	mov	dpl,_strstrcmp_str1_1_1
	mov	dph,(_strstrcmp_str1_1_1 + 1)
	mov	b,(_strstrcmp_str1_1_1 + 2)
	lcall	__gptrget
; Peephole 106   removed redundant mov 
	mov  r3,a
	clr  c
	subb	a,r4
	mov	r3,a
; Peephole 180   changed mov to clr
	clr  a
	subb	a,#0x00
	mov	r4,a
	mov	dpl,r3
	mov	dph,r4
; Peephole 132   changed ljmp to sjmp
	sjmp 00110$
00106$:
	C$string.h$62$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 62
	mov	_strstrcmp_str1_1_1,r5
	mov	(_strstrcmp_str1_1_1 + 1),r6
	mov	(_strstrcmp_str1_1_1 + 2),r7
	C$string.h$63$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 63
; Peephole 132   changed ljmp to sjmp
	sjmp 00107$
00109$:
	C$string.h$66$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/string\string.h 66
; Peephole 181   used 16 bit load of dptr
	mov  dptr,#0x0000
00110$:
	C$string.h$67$1$1 ==.
	XG$strstrcmp$0$0 ==.
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'init8051'
;------------------------------------------------------------
	G$init8051$0$0 ==.
	C$reg52.h$140$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 140
;	-----------------------------------------
;	 function init8051
;	-----------------------------------------
_init8051:
	C$reg52.h$188$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 188
	mov	r2,dpl
	C$reg52.h$143$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 143
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne r2,#0x00,00105$
;00111$:
; Peephole 200   removed redundant sjmp
00112$:
	C$reg52.h$145$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 145
	mov	_TCON,#0x05
	C$reg52.h$146$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 146
	mov	_TMOD,#0x21
	C$reg52.h$147$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 147
	mov	_PCON,#0x80
	C$reg52.h$148$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 148
	mov	_SCON,#0x50
	C$reg52.h$149$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 149
	mov	_IP,#0x01
	C$reg52.h$150$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 150
	mov	_IE,#0x91
	C$reg52.h$151$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 151
	setb	_REN
	C$reg52.h$152$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 152
	mov	_TH0,#0xFC
	C$reg52.h$153$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 153
	mov	_TH1,#0xE8
	C$reg52.h$154$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 154
	mov	_TL0,#0xFC
	C$reg52.h$155$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 155
	mov	_TL1,#0xE8
	C$reg52.h$157$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 157
	setb	_TR0
	C$reg52.h$158$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 158
	setb	_TR1
	C$reg52.h$160$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 160
	setb	_EA
; Peephole 132   changed ljmp to sjmp
	sjmp 00106$
00105$:
	C$reg52.h$164$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 164
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne r2,#0x01,00102$
;00113$:
; Peephole 200   removed redundant sjmp
00114$:
	C$reg52.h$166$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 166
	mov	_SCON,#0x70
	C$reg52.h$167$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 167
	mov	_TCON,#0x40
	C$reg52.h$168$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 168
	mov	_TH1,#0xFA
	C$reg52.h$169$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 169
	mov	_TMOD,#0x20
	C$reg52.h$170$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 170
	mov	_IE,#0x91
	C$reg52.h$171$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 171
	mov	_TH0,#0x00
	C$reg52.h$172$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 172
	mov	_IP,#0x10
; Peephole 132   changed ljmp to sjmp
	sjmp 00106$
00102$:
	C$reg52.h$177$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 177
	mov	_SCON,#0x70
	C$reg52.h$178$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 178
	mov	_TCON,#0x40
	C$reg52.h$179$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 179
	mov	_TH1,#0xFD
	C$reg52.h$180$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 180
	mov	_TMOD,#0x20
	C$reg52.h$181$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 181
	mov	_IE,#0x91
	C$reg52.h$182$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 182
	mov	_TH0,#0x00
	C$reg52.h$183$2$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 183
	mov	_IP,#0x10
00106$:
	C$reg52.h$188$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/reg52\reg52.h 188
00107$:
	C$reg52.h$189$1$1 ==.
	XG$init8051$0$0 ==.
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'kbint'
;------------------------------------------------------------
	G$kbint$0$0 ==.
	C$keyboard.h$138$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 138
;	-----------------------------------------
;	 function kbint
;	-----------------------------------------
_kbint:
	push	acc
	push	b
	push	dpl
	push	dph
	push	psw
	mov	psw,#0x00
	C$keyboard.h$141$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 141
	mov	_is_keypressed,#0x01
	C$keyboard.h$142$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 142
00101$:
	pop	psw
	pop	dph
	pop	dpl
	pop	b
	pop	acc
	C$keyboard.h$143$1$1 ==.
	XG$kbint$0$0 ==.
	reti
;------------------------------------------------------------
;Allocation info for local variables in function 'kbisr'
;------------------------------------------------------------
	G$kbisr$0$0 ==.
	C$keyboard.h$145$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 145
;	-----------------------------------------
;	 function kbisr
;	-----------------------------------------
_kbisr:
	C$keyboard.h$147$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 147
	mov	_bit_no,#0x01
	C$keyboard.h$149$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 149
00101$:
; Peephole 112   removed ljmp by inverse jump logic
	jb   _KB_CLCK,00101$
00146$:
	C$keyboard.h$151$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 151
	mov	_recent_scan_code,#0x00
	C$keyboard.h$152$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 152
	mov	_bit_received,#0x01
	C$keyboard.h$154$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 154
00104$:
; Peephole 111   removed ljmp by inverse jump logic
	jnb  _KB_CLCK,00104$
00147$:
	C$keyboard.h$156$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 156
00115$:
	clr	c
	mov	a,#0x08
	subb	a,_bit_no
; Peephole 132   changed ljmp to sjmp
; Peephole 160   removed sjmp by inverse jump logic
	jc   00118$
00148$:
	C$keyboard.h$158$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 158
00107$:
; Peephole 112   removed ljmp by inverse jump logic
	jb   _KB_CLCK,00107$
00149$:
	C$keyboard.h$160$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 160
; Peephole 111   removed ljmp by inverse jump logic
	jnb  _KB_DATA,00111$
00150$:
	C$keyboard.h$162$3$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 162
	mov	a,_bit_received
	orl	_recent_scan_code,a
00111$:
	C$keyboard.h$165$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 165
	mov	a,_bit_received
	add	a,acc
	mov	_bit_received,a
	C$keyboard.h$166$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 166
	inc	_bit_no
	C$keyboard.h$168$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 168
00112$:
; Peephole 112   removed ljmp by inverse jump logic
	jb   _KB_CLCK,00115$
00151$:
	C$keyboard.h$171$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 171
; Peephole 132   changed ljmp to sjmp
	sjmp 00112$
00118$:
; Peephole 112   removed ljmp by inverse jump logic
	jb   _KB_CLCK,00118$
00152$:
	C$keyboard.h$173$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 173
00121$:
; Peephole 111   removed ljmp by inverse jump logic
	jnb  _KB_CLCK,00121$
00153$:
	C$keyboard.h$175$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 175
00124$:
; Peephole 112   removed ljmp by inverse jump logic
	jb   _KB_CLCK,00124$
00154$:
	C$keyboard.h$177$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 177
00127$:
; Peephole 111   removed ljmp by inverse jump logic
	jnb  _KB_CLCK,00127$
00155$:
	C$keyboard.h$179$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 179
	mov	_is_keypressed,#0x00
	C$keyboard.h$181$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 181
	mov	dpl,#0x00
00130$:
	C$keyboard.h$182$1$1 ==.
	XG$kbisr$0$0 ==.
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'scantoascii'
;------------------------------------------------------------
	G$scantoascii$0$0 ==.
	C$keyboard.h$184$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 184
;	-----------------------------------------
;	 function scantoascii
;	-----------------------------------------
_scantoascii:
	C$keyboard.h$0$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 0
	mov	r2,dpl
	C$keyboard.h$188$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 188
	mov	r3,#0x00
00107$:
	mov	ar4,r3
	mov	r5,#0x00
	clr	c
	mov	a,r4
	subb	a,#0xD2
	mov	a,r5
	subb	a,#0x00
	jc	00118$
	ljmp	00110$
00118$:
	C$keyboard.h$190$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 190
	mov	b,#0x03
	mov	a,r3
	mul	ab
	mov	r4,a
	mov	r5,b
	mov	a,r4
	add	a,#_keys
	mov	r4,a
	mov	a,r5
	addc	a,#(_keys >> 8)
	mov	r5,a
	mov	dpl,r4
	mov	dph,r5
	clr	a
	movc	a,@a+dptr
; Peephole 105   removed redundant mov
	mov  r6,a
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne a,ar2,00109$
;00119$:
; Peephole 200   removed redundant sjmp
00120$:
	C$keyboard.h$192$3$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 192
	mov	a,#0x01
	add	a,r4
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r5
	mov	dph,a
	clr	a
	movc	a,@a+dptr
	mov	r2,a
	cjne	r2,#0x61,00121$
00121$:
; Peephole 132   changed ljmp to sjmp
; Peephole 160   removed sjmp by inverse jump logic
	jc   00102$
00122$:
	clr	c
	mov	a,#0x7A
	subb	a,r2
; Peephole 132   changed ljmp to sjmp
; Peephole 160   removed sjmp by inverse jump logic
	jc   00102$
00123$:
	C$keyboard.h$194$4$4 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 194
	mov	a,#0x02
	add	a,r4
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r5
	mov	dph,a
	clr	a
	movc	a,@a+dptr
	mov	r4,a
	mov	dpl,r4
; Peephole 132   changed ljmp to sjmp
	sjmp 00111$
00102$:
	C$keyboard.h$198$4$5 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 198
	mov	dpl,r2
; Peephole 132   changed ljmp to sjmp
	sjmp 00111$
00109$:
	C$keyboard.h$188$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 188
	inc	r3
	ljmp	00107$
00110$:
	C$keyboard.h$202$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 202
	mov	dpl,#0x00
00111$:
	C$keyboard.h$203$1$1 ==.
	XG$scantoascii$0$0 ==.
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'getkey'
;------------------------------------------------------------
;temp                      Allocated to registers r2 
;key                       Allocated to registers r2 
	G$getkey$0$0 ==.
	C$keyboard.h$225$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 225
;	-----------------------------------------
;	 function getkey
;	-----------------------------------------
_getkey:
	C$keyboard.h$233$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 233
	lcall	_kbisr
	mov	r2,dpl
	C$keyboard.h$235$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 235
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne r2,#0xFF,00102$
;00127$:
; Peephole 200   removed redundant sjmp
00128$:
	C$keyboard.h$237$2$2 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 237
	mov	dpl,#0x00
	ljmp	00117$
00102$:
	C$keyboard.h$240$1$1 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 240
	mov	a,_recent_scan_code
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne a,#0xE0,00106$
;00129$:
; Peephole 200   removed redundant sjmp
00130$:
	C$keyboard.h$242$2$3 ==.
;	D:\Shekhar\Projects\EAR-1022\System/keyboard\keyboard.h 242