Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; =-------------------------
- ; this's my task:
- ; =-------------------------
- ; f = !Y * Z + !X
- ; =-------------------------
- ; 1200 : 400 : INT0 : T/C1
- ; =-------------------------
- ; TC1 : 1
- ; =-------------------------
- ; out : 2 : Fbq/32
- ; =-------------------------
- ORG 0h
- AJMP START
- ORG 23h
- AJMP INTERRUPT
- ORG 30h
- BEGIN:
- MOV DPTR, #10h
- MOV A, #00000000b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000001b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000010b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000011b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000100b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000101b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000110b
- MOVX @DPTR, A
- INC DPTR
- MOV A, #00000111b
- MOVX @DPTR, A
- START:
- MOV SCON, #10010000b
- MOV PCON, #00000000b
- MOV DPTR, #10h
- MOV R0, #008d
- INC R0
- MOV A, #0FFh
- MOVX @DPTR, A
- SETB ES
- SETB EA
- JMP $
- INTERRUPT:
- DJNZ R0, NEXT
- MOV DPTR, #10h
- MOV R0, #008d
- NEXT:
- CLR P1.0
- MOV SBUF, A
- ANL A, #00Fh
- CLR RI
- JMP FUNC
- RETI
- FUNC:
- MOV C, 01
- CPL C
- ANL C, 00
- ORL C, /02
- MOV 03, C
- XRL A, 20H
- MOV 25h, A
- MOV C, 43
- MOV 07, C
- MOV A, 20H
- T12:
- SWAP A
- MOVX @DPTR, A
- INC DPTR
- RETI
- END
Add Comment
Please, Sign In to add comment