sarmad_101
Member level 3
I want to run project on PIC 18F252. But there is no option in kiel for PIC.
Any body have any idea how can i make hex file for PIC 18F252 of this program given below in Kiel uvision.
Please anybody out there who just help me out.
Thanks
Any body have any idea how can i make hex file for PIC 18F252 of this program given below in Kiel uvision.
Please anybody out there who just help me out.
Thanks
Code:
VAR1 equ r7
TEMP equ 10H
COUNT equ 11H
ADDR equ 12H
CMD equ 13H
FLIP bit 00H
IR equ P2.1
org 00H
clr a
mov r0,#7FH
clrram:
mov @r0,a
djnz r0,clrram
mov sp,#50H
mov TMOD,#20H
mov SCON,#50H
mov TH1,#0FDH
mov TL1,#0FDH
setb TR1
main:
jb IR,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#100
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#100
djnz VAR1,$
mov c,IR
mov FLIP,c
clr A
mov COUNT,#5
fadd:
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#4
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#4
djnz VAR1,$
mov c,IR
rlc a
djnz COUNT,fadd
mov ADDR,A
clr a
mov COUNT,#6
fcmd:
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#4
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#255
djnz VAR1,$
mov VAR1,#4
djnz VAR1,$
mov c,IR
rlc a
djnz COUNT,fcmd
mov TEMP,CMD
mov CMD,a
jb FLIP, FLIP_1
mov a,#30H
acall tx
FLIP_1:
mov a,#31H
acall tx
mov a,#' '
acall tx
mov a,ADDR
acall tx_num
mov a,#' '
acall tx
mov a,CMD
acall tx_num
mov a,#0DH
acall tx
mov a,#0AH
acall tx
ajmp main
tx_num:
mov TEMP,a
swap a
anl a,#0FH
movc a,@a+dptr
acall tx
mov a,TEMP
anl a,#0FH
movc a,@a+dptr
acall tx
ret
tx:
mov sbuf,A
jnb Ti,$
clr ti
ret
hex_table:
db '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
end