|
;FILENAME : REMOTE.ASM
; .SYMBOLS ON
; .CODE
;
L0000: LJMP L000E
L0003: MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
MOV R7,A
L000B: LJMP L01CA
L000E:
MOV R4,#02H
MOV 30H,#00H
MOV 31H,#00H
MOV 32H,#00H
L001B: MOV 33H,#00H
ORL TMOD,#01H
MOV TH0,#00H
MOV TL0,#00H
SETB IE.1
SETB IE.7
L002B: SETB TCON.4
MOV R7,#08H
L002F: MOV R6,#0E6H
L0031:
JB P1.0,L002B
DJNZ R6,L0031
DJNZ R7,L002F
L0038:
JNB P1.0,L0038
MOV TH0,#00H
MOV TL0,#00H
MOV R4,#02H
MOV R7,#03H
L0045: MOV R6,#0E6H
L0047:
JNB P1.0,L002B
DJNZ R6,L0047
DJNZ R7,L0045
L004E:
JB P1.0,L004E
MOV R0,#33H
LCALL L01AB
DEC R0
LCALL L01AB
DEC R0
LCALL L01AB
DEC R0
LCALL L01AB
MOV A,31H
CLR TCON.4
MOV R3,31H
MOV a,33h
cjne a,#40h,ppp
CJNE R3,#12H,L0072
CPL P1.1
LCALL L019E
ppp:
SJMP L002B
L0072: CJNE R3,#15H,L007C
CPL P1.2
LCALL L019E
SJMP L002B
L007C: CJNE R3,#16H,L0086
CPL P1.3
LCALL L019E
SJMP L002B
L0086: CJNE R3,#1CH,L0090
CPL P1.4
L008B: LCALL L019E
SJMP L002B
L0090: CJNE R3,#11H,L009A
CPL P1.5
LCALL L019E
SJMP L002B
L009A:
CJNE R3,#14H,L00A4
CPL P1.6
LCALL L019E
SJMP L002B
L00A4: CJNE R3,#0CH,L00AE
CPL P1.7
LCALL L019E
AJMP L002B
L00AE: CJNE R3,#18H,L00B8
CPL P3.0
LCALL L019E
AJMP L002B
L00B8: CJNE R3,#03H,L00C2
CPL P3.1
LCALL L019E
AJMP L002B
L00C2: CJNE R3,#02H,L00CC
CPL P3.2
LCALL L019E
AJMP L002B
L00CC: CJNE R3,#01H,L00D6
CPL P3.3
LCALL L019E
AJMP L002B
L00D6: CJNE R3,#0FH,L00E0
CPL P3.4
LCALL L019E
AJMP L002B
L00E0: CJNE R3,#06H,L00EA
CPL P3.5
LCALL L019E
AJMP L002B
L00EA: CJNE R3,#05H,L00F4
CPL P3.6
LCALL L019E
AJMP L002B
L00F4: CJNE R3,#04H,L00FE
CPL P3.7
LCALL L019E
AJMP L002B
L00FE: CJNE R3,#13H,L0108
CPL P0.0
LCALL L019E
AJMP L002B
L0108: CJNE R3,#09H,L0112
CPL P0.1
LCALL L019E
AJMP L002B
L0112: CJNE R3,#08H,L011C
CPL P0.2
LCALL L019E
AJMP L002B
L011C: CJNE R3,#07H,L0126
CPL P0.3
LCALL L019E
AJMP L002B
L0126: CJNE R3,#10H,L0130
CPL P0.4
LCALL L019E
AJMP L002B
L0130: CJNE R3,#17H,L013A
CPL P0.5
LCALL L019E
AJMP L002B
L013A: CJNE R3,#00H,L0144
CPL P0.6
LCALL L019E
AJMP L002B
L0144: CJNE R3,#0AH,L014E
CPL P0.7
LCALL L019E
AJMP L002B
L014E: CJNE R3,#1AH,L0158
CPL P2.0
LCALL L019E
AJMP L002B
L0158: CJNE R3,#1BH,L0162
CPL P2.1
LCALL L019E
AJMP L002B
L0162: CJNE R3,#0EH,L016C
CPL P2.2
LCALL L019E
AJMP L002B
L016C: CJNE R3,#0DH,L0176
CPL P2.3
LCALL L019E
AJMP L002B
L0176: CJNE R3,#1EH,L0180
CPL P2.4
LCALL L019E
AJMP L002B
L0180: CJNE R3,#1FH,L018A
CPL P2.5
LCALL L019E
AJMP L002B
L018A: CJNE R3,#19H,L0194
CPL P2.6
LCALL L019E
AJMP L002B
L0194: CJNE R3,#1DH,L019C
CPL P2.7
LCALL L019E
L019C: AJMP L002B
L019E: MOV R5,#02H
L01A0: MOV R6,#0FAH
L01A2: MOV R7,#0C8H
L01A4: DJNZ R7,L01A4
DJNZ R6,L01A2
DJNZ R5,L01A0
RET
L01AB:
MOV R5,#08H
L01AD: MOV R7,#02H
L01AF:
JNB P1.0,L01AF
L01B2: MOV R6,#0E6H
L01B4:
JNB P1.0,L01BB
DJNZ R6,L01B4
DJNZ R7,L01B2
L01BB: DEC R7
DEC R7
CJNE R7,#00H,L01C3
CLR C
SJMP L01C4
L01C3: SETB C
L01C4: MOV A,@R0
RRC A
MOV @R0,A
DJNZ R5,L01AD
RET
L01CA: DJNZ R4,L01CE
MOV R4,#02H
L01CE: RETI
END
;; 你能幫我分析一下如何寫接收如下程序嗎？020---87116400 韋成解
SDA BIT P3.5
SCL BIT P3.2
ORG 0000H
LJMP START
ORG 0003H
; LJMP EXTRL
RETI
ORG 000BH
RETI
ORG 0013H
RETI
ORG 001BH
RETI
ORG 0023H
RETI
ORG 0050H
START:
CLR A
MOV R0,#7FH
CLEAR:
MOV @R0,A
DJNZ R0,CLEAR
MOV SP,#68H
MOV IE,#0H ; 關中斷
MOV P3,#0FFH
LOOP:
MOV A,#03H
LCALL Q7D30 ;; (43---46)
LCALL Q7DFF
LJMP $
;======== ;送數據到數碼管顯示 (33h) < 8fh,顯示 mask ===================================
;
Q7DFF: MOV R0,#43H
CLR EA
MOV R3,#23H
CLR SDA ;顯示數據線拉低。
Q7E07: SETB SCL
CLR SCL
DJNZ R3,Q7E07 ; 35 個 SCL clk 信號
SETB SDA ;顯示數據線變高。
SETB SCL
CLR SCL
SETB EA
;;----------- 四個數碼長管
MOV R3,#04H
Q7E17:
Q7E1B:
MOV A,@R0
Q7E1E: LCALL Q7E54 ;送數據到數碼顯示。SDA=data, SCL=clr
INC R0
DJNZ R3,Q7E17
;-----------------------------------------
MOV A,35H
CLR C
JB 25H.4,Q7E2F
JB ACC.0,Q7E2F
MOV C,25H.3
Q7E2F: CLR EA
MOV SDA,C ;顯示板上的 LED 1
SETB SCL
CLR SCL
SETB EA
CLR C
JB ACC.0,Q7E3F
MOV C,25H.4 ;顯示板上的 LED 2
Q7E3F: CLR EA
MOV SDA,C
SETB SCL
CLR SCL
CLR SDA
SETB SCL
CLR SCL
SETB SCL
CLR SCL
SETB EA
RET
;===== ;送數據到數碼顯示。SDA=data, SCL=clr =================
Q7E54: MOV R2,#08H
Q7E56: RRC A
CLR EA
MOV SDA,C
SETB SCL
CLR SCL
SETB EA
DJNZ R2,Q7E56
RET
;========= 查表取數據 ==================================
Q7E64: INC A
MOVC A,@A+PC ;; 取表格 Q7E67 要數據。
RET
;===========================================
Q7E67: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H ;?.Ofm}.
DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H ;ow|9^yq
;;;-----
;;;------- 字符表 ， 8421 碼。（BCD
Q7E77:
;;A=00H
DB 00H,00H,00H,00H ;; 00h 不亮
;;A=01H
DB 39H,73H,3FH,00H ; CPO
;;A=02H
DB 78H,79H,6DH,78H ; tESt
;;A=03H
DB 39H,3FH,6DH,78H ; COST
;;A=04H
DB 3FH,73H,78H,6DH ; opts
;;A=05H
DB 3FH,73H,78H,5BH ; opt2
;;A=06H
DB 6DH,6DH,6DH,00H ; sss
;;A=07H
DB 6DH,6DH,6DH,6DH ; ssss
;;A=08H
DB 78H,39H,78H,38H ; tctl
;;A=09H
DB 54H,5CH,54H,79H ; nonE
;;A=0AH
DB 58H,58H,5CH,00H ; cco
;;A=0BH
DB 78H,1CH,7CH,79H ; tubE
;;A=0CH
DB 04H,58H,7CH,00H ; icb
;;A=0DH
DB 79H,6DH,39H,00H ; ESC
;;A=0EH
DB 1EH,77H,00H,00H ; JA
;;A=0FH
DB 38H,5CH,00H,00H ; Lo
;;A=10H
DB 7CH,1EH,00H,00H ; bJ
;;A=11H
DB 7CH,06H,38H,38H ; bill
;;A=12H
DB 7CH,6DH,00H,00H ; bs
;;A=13H
DB 7CH,3FH,73H,37H ; bopn
;;A=14H
DB 7CH,50H,39H,76H ; brch
;;A=15H
DB 7CH,71H,3EH,38H ; bFUl
;;A=16H
DB 6DH,3FH,38H,5EH ; SOLD
;;A=17H
DB 3FH,1CH,78H,00H ; OUT
;;A=18H
DB 39H,77H,6DH,76H ; CASH
;;A=19H
DB 39H,77H,54H,6DH ; CAnH
;;A=1AH
DB 6DH,50H,00H,00H ; Sr
;;A=1BH
DB 00H,54H,5CH,00H ; no
;;A=1CH
DB 6EH,79H,6DH,00H ; yES
;;A=1DH
DB 6DH,78H,50H,78H ; Strt
;;A=1EH
DB 5EH,5CH,54H,79H ; done
;;A=1FH
DB 6DH,50H,54H,5CH ; Srno
;;A=20H
DB 71H,78H,6DH,78H ; Ftst
;;A=21H
DB 38H,3FH,39H,00H ; LOC
;;A=22H
DB 06H,00H,0EDH,06H ; 1 5.1
;;A=23H
DB 3FH,3FH,3FH,3FH ; 0000
;;A=24H
DB 49H,78H,50H,79H ; 二tSe
;;A=25H
DB 49H,6DH,58H,74H ; 二Sch
;;A=26H
DB 49H,78H,04H,58H ; 二t1c
;;A=27H
DB 49H,6DH,06H,3FH ; 二S1U
;;A=28H
DB 49H,79H,77H,00H ; 二eA
;;A=29H
DB 49H,71H,3EH,38H ; 二FU
;;A=2AH
DB 71H,50H,79H,79H ; FrEE
;========== ;查表取4個數據存進 (43h,44h,45h,46h) =================================
Q7D30: MOV R0,#43H
Q7D32: RL A
RL A
MOV R3,A
MOV DPTR,#Q7E77
MOV R2,#04H
Q7D3A: MOV A,R3
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC R3
DJNZ R2,Q7D3A
RET
NOP
NOP
NOP
NOP
NOP
NOP
;;; LJMP LOOP
END
|
66821730(技術支持)
