*.asm

Vít Bureš BuresV
Středa Březen 17 11:50:58 CET 2004


Zatim jsem pouzil jenom if a while (nevim kde se nachazi kus prog.) a funguje to bez problemu. Jsou to vybagrovane poprogramky (makra).

GetByte	macro	Count, AddrMem			;Na?te bajty a ulo?? od adresy 0x0120 (Banka2)
	if .64 < Count ^ Count - 1 < 0 			;Mus? b?t v rozmez? 1 .. 64
		error	"Po?et ?ten?ch bajt? mus? b?t v rozmez? 1 .. 64"
	endif
	if .7 < AddrMem ^ AddrMem < 0 			;Mus? b?t v rozmez? 0 .. 7
		error	"Adresa mus? b?t v rozmez? 0 .. 7"
	endif
	movlw	Count - 1
	movwf	COUNTER		;Vlo? po?et ?ten?ch znak?
	movlw	(AddrMem * 2) + 0xA0
	movwf	HH_ADR_24C
	movf	PCLATH, W
	movwf	PCLATH_TMP1
	pagesel	ReadEEPROM
	errorlevel -306
	call	ReadEEPROM	;Na?te dan? po?et bajt? z EEPROM a ulo?? je  na adresu 0xA0
	errorlevel +306
	movf	PCLATH_TMP1, W
	movwf	PCLATH
	endm


PwrGLCD	macro	OnOff		;Zapne, ?i vypne LCD displej
	if OnOff == 1
	  clrf	LCDREG
	  bsf	PowerLCD
	  bsf	GLCDRES
	  bcf	HIZ_LCD		;Odpoj? v?echny vstupy do LCD
	  call	ZapisRegLCD	;Byjt LCD Reg zapi? na v?stup
	else
	  bcf	ELCD
	  bcf	CD
	  bsf	HIZ_LCD		;Odpoj? v?echny vstupy do LCD
	endif
	endm

Mejte se Vita

V?t Bure?
BuresV@rothsware.com
www.rothsware.com


-----P?vodn? zpr?va-----
Od:	Basa Milan [SMTP:basam@emo.seas.sk]
Odesl?no:	11. srpna 2000 5:31
Komu:	Multiple recipients of list
P?edm?t:	*.asm

Ahojte,

Nema nahodou niekto volne pohodeny nejaky kratsi (funkcny) program
v ktorom pouziva direktivy assembleru (if,else,while..)?
Skusam ich pouzit a MPLAB mi to nechce zozrat. Predpokladam ze robim nejake syntakticke chyby -
preto to chcem porovnat s niekym skusenejsim.

                          Dik Milan.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/ms-tnef
Size: 2909 bytes
Desc: not available
Url : http://nethouse.cz/pipermail/hw-list/attachments/20000811/8b26fcfd/attachment.bin


Další informace o konferenci Hw-list