frecuencimetro.asm

Program in basic that simulates a frecuencimeter, explained well

;*******************************************************
;*                 Code Produced by the                *
;*           PROTON+ LITE Compiler. Version 3.0        *
;* Copyright Rosetta Technologies/Crownhill Associates *
;*              Written by Les Johnson. 2004           *
;*******************************************************
 NOLIST
 #include "C:\PIC\FRECUENCIMETRO.PBP"
 LIST

 PERIODO = 77
 PERIODOH = 78
 FREC = 79
 FRECH = 80
 FRECHH = 81
 FRECHHH = 82
	#Define ESTADO _B#VR1,0
F1_SOF equ $ ; FRECUENCIMETRO.BAS
F1_000006 equ $ ; in [FRECUENCIMETRO.BAS] input portc
	Bsf STATUS,5
ram_bank = 1
	Movlw 255
	Movwf TRISC
PROGRAMA
	Bcf STATUS,5
ram_bank = 0
F1_000011 equ $ ; in [FRECUENCIMETRO.BAS] Estado=portc.0
	Bsf _B#VR1,0
	Btfss PORTC,0
	Bcf _B#VR1,0
F1_000012 equ $ ; in [FRECUENCIMETRO.BAS] if estado=0 then
	set@page bc@LL2
	Btfsc _B#VR1,0
	Goto bc@LL2
F1_000013 equ $ ; in [FRECUENCIMETRO.BAS] Periodo=pulsin PORTC.0,1
	Movlw 1
	Movwf PP0
	Movlw 7
	Movwf FSR
	Movlw 1
	F@Call p@in
	Movf PP0H,W
	Movwf PERIODOH
	Movf PP0,W
	Movwf PERIODO
	F@Jump bc@LL3
bc@LL2
F1_000014 equ $ ; in [FRECUENCIMETRO.BAS] else
F1_000015 equ $ ; in [FRECUENCIMETRO.BAS] Periodo=pulsin PORTC.0,0
	Clrf PP0
	Movlw 7
	Movwf FSR
	Movlw 1
	F@Call p@in
	Movf PP0H,W
	Movwf PERIODOH
	Movf PP0,W
	Movwf PERIODO
F1_000016 equ $ ; in [FRECUENCIMETRO.BAS] end if
bc@LL3
F1_000017 equ $ ; in [FRECUENCIMETRO.BAS] Frec=52359.877566667/Periodo
	Movf PERIODOH,W
	Movwf PBP_AARGH
	Movf PERIODO,W
	Movwf PBP_AARG
	F@Call FLO@1632U
	Movf PBP_AARGHHH,W
	Movwf PBP_BARGHHH
	Movf PBP_AARGHH,W
	Movwf PBP_BARGHH
	Movf PBP_AARGH,W
	Movwf PBP_BARGH
	Movf PBP_AARG,W
	Movwf PBP_BARG
	Movlw 225
	Movwf PBP_AARGHHH
	Movlw 135
	Movwf PBP_AARGHH
	Movlw 76
	Movwf PBP_AARGH
	Movlw 142
	Movwf PBP_AARG
	F@Call FPD@32
	Movf PBP_AARGHHH,W
	Movwf FRECHHH
	Movf PBP_AARGHH,W
	Movwf FRECHH
	Movf PBP_AARGH,W
	Movwf FRECH
	Movf PBP_AARG,W
	Movwf FREC
F1_000018 equ $ ; in [FRECUENCIMETRO.BAS] Print at 1,1,"f:",at 1,5, dec frec
	Movlw 128
	Movwf BPFH
	Movlw 128
	F@Call LCD@crs
	Movlw 102
	F@Call Print
	Movlw 58
	F@Call Print
	Movlw 132
	F@Call LCD@crs
	Movf FRECHHH,W
	Movwf PP7HHH
	Movf FRECHH,W
	Movwf PP7HH
	Movf FRECH,W
	Movwf PP7H
	Movf FREC,W
	Movwf PP7
	Movlw 3
	F@Call out@float
F1_000019 equ $ ; in [FRECUENCIMETRO.BAS] goto Programa
	F@Jump PROGRAMA
F1_EOF equ $ ; FRECUENCIMETRO.BAS
	END