fork download
  1. cont1 EQU 0X20
  2. cont EQU 0X21
  3. include<P16F877A.INC>
  4. LIST P=16F877A
  5. __CONFIG 0X3FFA
  6. ORG 0
  7.  
  8. inizio: BSF STATUS,RP0
  9. MOVLW 0XFF
  10. MOVWF TRISC
  11. MOVLW 0X00
  12. MOVWF PORTD
  13. BCF STATUS,RP0
  14. MOVLW 0
  15. ripeti: BTFSC PORTC,cont
  16. GOTO test_ons
  17. BCF cont1,0
  18. GOTO ripeti
  19. test_ons: BTFSS cont1,0
  20. ADDLW 1
  21. BSF cont1,0
  22. MOVWF PORTD
  23. GOTO ripeti
Success #stdin #stdout 0.04s 25196KB
stdin
Standard input is empty
stdout
cont1	EQU 0X20
cont	EQU 0X21
	include<P16F877A.INC>
LIST P=16F877A
__CONFIG 0X3FFA
ORG 0

inizio: BSF STATUS,RP0
			MOVLW	0XFF
			MOVWF	TRISC
			MOVLW	0X00
			MOVWF	PORTD
			BCF 	STATUS,RP0
			MOVLW	0
ripeti:		BTFSC	PORTC,cont
			GOTO	test_ons
			BCF 	cont1,0
			GOTO	ripeti
test_ons:	BTFSS	cont1,0
			ADDLW	1
			BSF		cont1,0
			MOVWF	PORTD
			GOTO	ripeti
END