#include	p10f200.inc
;моталка для спидометра маза
;GP2 выход, внутренний генератор 4 мГц
;Версия 1.0
;автор mial

	__config _MCLRE_OFF & _CP_ON & _WDT_ON

#Define	out		GPIO,GP2
#Define	Reg_1	0x10
#Define	Reg_2	0x11

	org 0

init
	movwf	OSCCAL
	movlw	b'11011111'
	option
	clrf	GPIO
	movlw	0
	tris	GPIO
	goto	main

Delay_
; Задержка ~1 082 машинных циклов
; Длительность задержки ~1082 микросекунд
; Частота задающего генератора 4 МГц
;выходная частота 462 Гц

            movlw       .99
            movwf       Reg_1
            movlw       .2
            movwf       Reg_2
            decfsz      Reg_1,F
            goto        $-1
            clrwdt
            decfsz      Reg_2,F
            goto        $-4
            nop
            nop
			nop
			retlw		0

main
	bsf		out
	call	Delay_
	bcf		out
	call	Delay_
	goto	main

	end