Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс. e-mail:jobsmp@pochta.ru |
MOV R5,#0
MOV R1,#0
CLR C
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
MOV R0,#3 ;13
LABEL0: CLR C
MOV A,R1
RL A
MOV R1,A
MOV A,R7
MOV R4,A
SUBB A,#0x80
MOV R7,A
MOV A,R6
MOV R3,A
SUBB A,#0x38
MOV R6,A
MOV A,R5
MOV R2,A
SUBB A,#1
MOV R5,A
CLR C
JNB ACC.7,LABEL1
MOV A,R4
RLC A
MOV R7,A
MOV A,R3
RLC A
MOV R6,A
MOV A,R2
RLC A
MOV R5,A
DJNZ R0,LABEL0
SJMP LABEL2
LABEL1: INC R1
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
DJNZ R0,LABEL0
LABEL2: MOV A,R7
SWAP A
MOV R7,A
MOV A,R6
SWAP A
MOV R6,A
ANL A,#0xF0
ORL A,R7
MOV R7,A
MOV A,R6
ANL A,#0xf
MOV R6,A
MOV A,R5
SWAP A
ANL A,#0xF0
ORL A,R6
MOV R6,A
MOV R2,#0
MOV R0,#4
LABEL3: CLR C
MOV A,R2
RL A
MOV R2,A
MOV A,R7
MOV R4,A
SUBB A,#0x40
MOV R7,A
MOV A,R6
MOV R3,A
SUBB A,#0x1F
MOV R6,A
CLR C
JNB ACC.7,LABEL4
MOV A,R4
RLC A
MOV R7,A
MOV A,R3
RLC A
MOV R6,A
DJNZ R0,LABEL3
SJMP LABEL5
LABEL4: INC R2
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
DJNZ R0,LABEL3
LABEL5:
MOV A,R7
SWAP A
MOV R7,A
MOV A,R6
SWAP A
MOV R6,A
ANL A,#0xF0
ORL A,R7
MOV R7,A
MOV A,R6
ANL A,#0xf
MOV R6,A
MOV R5,#0
MOV R0,#4
LABEL6: CLR C
MOV A,R5
RL A
MOV R5,A
MOV A,R7
MOV R4,A
SUBB A,#0x20
MOV R7,A
MOV A,R6
MOV R3,A
SUBB A,#0x3
MOV R6,A
CLR C
JNB ACC.7,LABEL7
MOV A,R4
RLC A
MOV R7,A
MOV A,R3
RLC A
MOV R6,A
DJNZ R0,LABEL6
SJMP LABEL8
LABEL7: INC R5
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
DJNZ R0,LABEL6
LABEL8:
PUSH B
MOV A,R7
SWAP A
MOV R7,A
MOV A,R6
SWAP A
ANL A,#0xF0
ORL A,R7
MOV B,#10
DIV AB
SWAP A
ORL A,B
MOV R7,A
MOV A,R2
SWAP A
ORL A,R5
MOV R6,A
MOV A,R1
MOV R5,A
MOV R4,#0
POP B