Отправлено cout 25 апреля 2003 г. 16:20 В ответ на: Может, хоть дядя Вова поможет без издевок? отправлено Новичок2 25 апреля 2003 г. 15:43

;-------------------
  PHASE_0  BIT P3.6
  PHASE_1  BIT P3.6
;-------------------
DIN_DON:
    MOV PSW, #00H
    MOV SP,  #5FH
    MOV TCON,#0
    MOV TMOD,#22H
    MOV R6,#2
IIIII:
    MOV R1,#50
R_RRR:
    MOV 30H,R1
W_WW:
    CLR TR1
    MOV A,#114
G_GG0:
    DJNZ ACC,$
    MOV A,R1
    CPL A
    MOV TH1,A
    MOV TL1,R1
    SETB TR1
    JNB TF1,$
    CLR TF1
    MOV A,R1
    JNB ACC.2,DDDDDD
    MOV A,#3
    DJNZ ACC,$
DDDDDD:
    CLR PHASE_0
    setb PHASE_1
    JNB TF1,$
    CLR TF1
    SETB PHASE_0
    clr PHASE_1
    DJNZ 30H,W_WW
    CJNE R1,#15,H_OOO
    MOV R1,#1
H_OOO:
    DJNZ R1,R_RRR
SECOND:
    MOV R1,#95     
    CJNE R6,#2,RRRR
    MOV R1,#70
RRRR:
    MOV 30H,R1
WWW:
    CLR TR1
    MOV A,#168
GGG_1:
    DJNZ ACC,$
    MOV A,R1
    CPL A
    MOV TH1,A
    MOV TL1,R1
    SETB TR1
    JNB TF1,$
    CLR TF1
    MOV A,R1
    JNB ACC.2,FFFFFF
    MOV A,#3
    DJNZ ACC,$
FFFFFF:
    CLR PHASE_0
    setb PHASE_1
    JNB TF1,$
    CLR TF1
    SETB PHASE_0
    clr PHASE_1
    DJNZ 30H,WWW
    CJNE R1,#15,J_JJ0
    MOV R1,#1
J_JJ0:
    DJNZ R1,RRRR
    DJNZ R6,IIIII
    MOV R3,#15
TTTT:
    MOV R4,#250
DDDD:
    MOV A,#250
    DJNZ ACC,$
    DJNZ R4,DDDD
    DJNZ R3,TTTT
;-------------------
      JMP 0 или RET
;-------------------
    END

• А хрю-хрю слабо сделать ? (подсказка: одна деталька - какая не скажу) — студентик   (25.04.2003 16:57, пустое)
  • Неужели "пятачок"?!!! — cout   (28.04.2003 09:53, 69 байт)
• P3.5 и P3.6 ? — Новичок2   (25.04.2003 16:26, пустое)
  • Ну да, конечно. Иначе сепулька не засвистит. — cout   (25.04.2003 16:30, пустое)
    • Спасибо, въехал, буду пробовать. — Новичок2   (25.04.2003 16:34, пустое)