Ср сен 29, 2021 16:20:03
Ср сен 29, 2021 16:59:55
Ср сен 29, 2021 20:30:02
Ср сен 29, 2021 20:45:47
Ср сен 29, 2021 20:53:13
Ср сен 29, 2021 20:59:22
Ср сен 29, 2021 21:01:52
Ср сен 29, 2021 21:06:51
Ср сен 29, 2021 21:37:40
Ср сен 29, 2021 21:42:29
Вт окт 05, 2021 20:30:53
Вт окт 05, 2021 23:45:29
Ср окт 06, 2021 06:01:11
LIST P=PIC16F84A
__CONFIG 3FF1H
STATUS EQU 03H
PORTA EQU 05H
TRISA EQU 05H
PORTB EQU 06H
TRISB EQU 06H
Reg_1 EQU 0CH
Reg_2 EQU 0DH
INTCON EQU 0BH
Reg_3 EQU 0EH
ORG 0
GOTO NAH
NAH CLRF INTCON
CLRF PORTA
CLRF PORTB
BSF STATUS,5
MOVLW B'10000000'
MOVWF TRISB
MOVLW B'01111'
MOVWF TRISA
BCF STATUS,5
START BTFSC PORTA,0
GOTO VKL1
BTFSC PORTA,1
GOTO VKL2
BTFSC PORTA,2
GOTO VIKL1
BTFSC PORTA,3
GOTO VIKL2
BTFSC PORTB,7
GOTO PROVERKA
GOTO START
VKL1 CALL Pause
BTFSC PORTB,7
GOTO PROVERKA
BSF PORTB,1
BTFSS PORTA,2
GOTO VKL1
GOTO START
VKL2 CALL Pause
BTFSC PORTB,7
GOTO PROVERKA
BSF PORTB,6
BTFSS PORTA,3
GOTO VKL2
GOTO START
VIKL1 CALL Pause
BCF PORTB,1
GOTO START
VIKL2 CALL Pause
BCF PORTB,6
GOTO START
PROVERKA CALL Pause
BTFSC PORTB,1
GOTO VIKL3
BTFSC PORTB,6
GOTO VIKL3
GOTO VKL3
VIKL3 CALL Pause
BCF PORTB,1
BCF PORTB,6
GOTO START
VKL3 CALL Pause
BSF PORTB,1
BSF PORTB,6
GOTO START
Pause movlw .186
movwf Reg_1
movlw .4
movwf Reg_2
movlw .2
movwf Reg_3
wr decfsz Reg_1,1
goto wr
decfsz Reg_2,1
goto wr
decfsz Reg_3,1
goto wr
nop
RETURN
END
Ср окт 06, 2021 09:37:58
Ср окт 06, 2021 09:57:47
Ср окт 06, 2021 11:25:37
Ср окт 06, 2021 17:26:13
Ср окт 06, 2021 23:07:23
OKF
Ужас, конечно. ...
Пн окт 11, 2021 14:37:24