Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ORG 0h
- JMP BEGIN
- ORG 30H
- BEGIN:
- mov 00h, #60d
- mov 08h, #20d
- mov 10h, #40d
- mov 18h, #50d
- metka:
- MOV 0C0H,#00111111b ;00111101
- JB 0C0H.3,$
- MOV A, 0C0H
- MOV C, 0C0H.4
- MOV PSW.3, C ;rs0 mladshiy bit banka
- MOV C, 0C0H.5
- MOV PSW.4, C ;rs1 2 starshiy bit banka
- MOV C, 0C0H.2 ;c = x
- CPL C ;c = ^x
- ANL C, /0C0H.1 ;C = ^x&^y
- ORL C, /0C0H.0 ;C = (^x&^y)v^z
- MOV 0C0H.7,C
- CLR 0C0H.6
- JNB 0C0H.3,$
- ANL A, #07H
- RLC A
- MOV @R0, A
- INC R0
- CLR 0C0H.6
- JMP METKA
- END
Add Comment
Please, Sign In to add comment