[an error occurred while processing this directive]
|
$MOD841
;______________________________________________
;Константы;______________________________________________
;Сегмент кода
CSEG
ORG 0000H
jmp MAIN ; Прыжок на метку MAIN
;Ниже записывается код
;______________________________________________
ORG 0100H ;Впишите адрес началы программы
MAIN: ;Отсюда начинается выполнение программы
CALL INICDV16
CALL OTB
JMP $
INICDV16:
CALL DEL16
MOV P3,#11000111B
MOV P2,#030H
CALL IMPULS1
CALL DEL4
CALL DEL1
MOV P3,#11000111B
MOV P2,#030H
CALL IMPULS1
CALL DEL4
CALL DEL1
MOV P3,#11000111B
MOV P2,#030H
CALL IMPULS1
CALL DEL1
CALL DEL4
MOV P3,#11000111B
MOV P2,#038H
CALL IMPULS1
MOV P3,#11000111B
MOV P2,#08H
CALL IMPULS1
MOV P3,#11000111B
MOV P2,#01H
CALL IMPULS1
CALL DEL4
CALL DEL4
MOV P3,#11000111B
MOV P2,#06H
CALL IMPULS1
MOV P3,#11000111B
MOV P2,#0FH
RET
;-------------
DEL64:
CALL DEL16
CALL DEL16
CALL DEL16
CALL DEL16
RET
;-------------
DEL16:
CALL DEL4
CALL DEL4
CALL DEL4
CALL DEL4
RET
DEL4:
CALL DEL1
CALL DEL1
CALL DEL1
CALL DEL1
RET
DEL1:
MOV R1,#25
LREX: MOV R2,#18
LRIN: DJNZ R2,LRIN
DJNZ R1,LREX
RET
;------------
IMPULS:
SETB P3.5
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CLR P3.5
RET
IMPULS1:
CALL IMPULS
CALL DEL1
CALL DEL1
;---------------------------------------------------------
OTB:
MOV P3,#11000111B
MOV P2,#00000001B
CALL IMPULS1
CALL DEL16
;1
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;2
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;3
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;4
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;5
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;6
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;7
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;8
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;9
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;10
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;11
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;12
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;13
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;14
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;15
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
;16
MOV P3,#11010111B
MOV P2,#01001111B
CALL IMPULS1
CALL DEL16
RET
;______________________________________________
;Конец программе
END
P2 - DB0-7
P3.3 - R/W
P3.4 - RS
P3.5 - У