GSI - BEA Wiki

This is an old revision of the document!

---

test

PA-TermV1.asm

 Interrupt ;     !!!!!!! an PORTB,4 (iniDatasave) oder PortB,5 (Command line changed) !!!!!!!! 
;			tritt eine Änderung auf !
		BTFSS	PORTB, 4	; Polle "IniDatasave": 0-> Shut down, 
					; 1-> Power da, aber Dateneingang aktiv
		goto 	SchreibeEE	; Datensicherung
		Call	traffic		; eigehender Datenverkehr!
		bsf	STATUS, RP0	; Bank1
		bcf	INTCON, 0	; lösche RBchange-Interupped (Datenverker)
		bcf	STATUS, RP0	; Bank0
		retfie			; Beende Interupt (nur nach Remotebefehlo Abarbeitung)
 
 ;********************* Schreibe Datensicherung (Power down) RAM -> EEPROM  *****************
SchreibeEE						
		MOVLW	h'3'		; 3->2->1 (2x), muss 1 größer als gew. Durchlaufz. sein
		MOVWF	Schleife1	; Zeilenindex
 
SS1			
		MOVLW	h'0D'		; ->0C->....->1 (12x)
		MOVWF	Schleife2	; Spaltenindex
		DECFSZ	Schleife1, 1	; Zeilenindex: reduziere solange Schleife1 nicht Null
		goto	SS2
		goto 	SCHLUSS		; Erwarte Power down
SS2		DECFSZ	Schleife2, 1
		goto	Schreiben
		goto	ESchleife1