ark 2k17

4.1
 LJMP START; przejdź do etykiety start
 ORG 100H
START:
 MOV R0,#CSDS
 MOV A,#00111111B
 MOVX @R0,A
LOOP:
 MOV C,P3.5
 CPL C
 MOV P1.7,C
 LJMP LOOP

4.2

 LJMP START; przejdź do etykiety start
 ORG 100H
START:
 LCALL LCD_CLR
 LCALL SKAN
SKAN:
 MOV R0,#CSDS
 MOV R2,#6
 MOV R1,#00000001B
 MOV B,#00000000B
NEXT:
 JNB P3.5,L1
L0:
 MOV A,R1
 ORL A,B
L1:
 MOV A,R1
 RL A
 MOV R1,A
 DJNZ R2,NEXT
 MOV A,B
 LCALL WRITE_HEX
 LJMP LOOP
LOOP:
 SJMP LOOP


4.3
 LJMP START; przejdź do etykiety start
 ORG 100H
START:
LOOP:
 MOV R1,#00000000B
 MOV R0,#CSDS
 MOV A,#00000001B
 MOVX @R0,A