Отправлено Noxter 04 октября 2006 г. 16:36 В ответ на: 4) Давай сюда твой код инициализации и вывода, глянем. Перед кодом вставь <pre>, после кода - </pre> отправлено =AVR= 04 октября 2006 г. 16:19

$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 - У