HAMforum.ru

Код: Выделить всё

SUBB DPH,#0
JNC COD2
MOV R4,R7
CLR C
ADDC DPL,#64
ADDC DPH,#0
MOV R7,#FF
COD3
INC R7
CLR C
SUBB DPL,#A
SUBB DPH,#0
JNC COD3
MOV R5,R7
CLR C
ADDC DPL,#A
ADDC DPH,#0
MOV R7,#FF
CD
INC R7
CLR C
SUBB DPL,#1
JNC CD
RETI

Код: Выделить всё

MOV R2,#25
HNG3:
DEC R2
MOV A,R2
JNZ HNG3
RET
ORG 160
ANL DPH,#03
MOV R7,#FF
COD1:
INC R7
CLR C
SUBB DPL,#C8
SUBB DPH,#03
JNC COD1
MOV R3,R7
CLR C
ADDC DPL,#C8
ADDC DPH,#03
MOV R7,#FF
COD2:
INC R7
CLR C
SUBB DPL,#64

Код: Выделить всё

LCDA:
ANL P1,#1C
MOV A,@R0
INC R0
LCALL LCD
LCD:
MOV R1,#04
SWAP A
LDL:
RLC A
JC LD1
LD0:
ANL P1,#1C
LJMP STR
LD1:
ORL P1,#01
STR:
ORL P1,#02
MOV R2,#5
HNG1:
DEC R2
MOV A,R2
JNZ HNG2
DEC R1
MOV A,R1
JNZ LDL

Код: Выделить всё

;C3
RS2:
MOV A,DPH
INC DPTR
RRC A
MOV P1.1,C
CLR P1.0
CPL P1.0
CLR P1.0
DJNZ 23,RS2
LCALL DLY
ORL A,DPL
ORL A,#FF
MOV DPTR,#0
JZ RS
DLY:
MOV A,#FF
DLY1:
MOV R7,#FF
DLY2:
DJNZ R7,DLY2
DEC A
JNZ DLY1
RET

Код: Выделить всё

;C2
MOV A,DPL
RSH:
RRC A
MOV P1.1,C
CLR P1.0
CPL P1.0
CLR P1.0
DJNZ 22,RSH
LCALL DLY
DJNZ 23,RS
RS1:
INC DPTR
MOV 22,#0A
MOV A,DPL
MOV 23,#03
RSH1:
RRC A
MOV P1.1,C
CLR P1.0
CPL P1.0
CLR P1.0
DJNZ 22,RSH1
RS2:

Код: Выделить всё

 ;P1.0-с к155тм9
;P1.1-d тм9
;P1.2-SK LCD
;P1.3-DI LCD
ORG0
LJMP 16
LJMP 160
ORG 16
START:
MOV 22,#0A
MOV 23,#FF
CLR A
MOV R0,A
..
MOV R7,A
LCALL LCDA
MOV DPL,A
MOV DPH,A
MOV IE,#81
RS:
INC DPTR
MOV 22,#0A

Код: Выделить всё

;готовим тест
7455 MOV A,#55
F590 MOV P1,A
120300 LCALL DELAY
74AA MOV A,#AA
F590 MOV P1,A
120300 LCALL DELAY
80F0 SJMP BACK