Svenska ElektronikForumet

Kod: Markera allt

	;***FS4***
FS4:	LDA PORTC	;Lda Portc
	AND #%11110000	;Ta bort skit i PORTC
	STA VAN		;spara i van
	LDA VAN		;Lda van
	CMP KNAPP	;jämför knapp
	CLC
	BNE RDEL4	;ifall z=0 fortsätt köra motorn
	CLR PORTC	;stanna motorn
	;*Vägglampa o tryckknapps
	LDA KNAPP
	ROL A
	ROL A
	ROL A
	ROL A
	ROL A
	STA TKNAPP
	CLC
	LDA PORTA
	ADD VAN		;Tänd lampa för våningen
	SUB TKNAPP	;Ta bort knappen för den aktuella våningen!
	STA PORTA
	;*Väntrutin*
	LDA #$FF
VRUN:	DEC A
	BNE VRUN
	LDA #$FF
VRUN1:	DEC A
	BNE VRUN1
	LDA #$FF
VRUN2:	DEC A
	BNE VRUN2
	;Vänt
	;/Vägglampa
	LDA MK1
	BEQ RDEL1	;Ifall variabel MK1 är tom innebär det att minnet är tomt och vi hoppar till DEL1
	STA KNAPP
	LDA MK2
	STA MK1
	LDA MK3
	STA MK2
	LDA MK4
	STA MK3
	CLR MK4
	LDA KNAPP
	BNE RDEL3
	JMP DEL1
	
;Efter programmet läggs biblioteksmodulerna in.
;Variabler flyttas till RAM.
;Konstanter och tabeller flyttas till PAGE0.

	END