; Lösningsförslag till hemuppgift 6.5.1 i Digitalteknik
; av Fredrik Roubert

; =====================================================


; Deklaration av konstanter

sant		equ	0000
fara		equ	0001
blink		equ	0010
natt		equ	0011
bil		equ	0100
falskt		equ	1000

storpaus	equ	#4	; det gör man när det är grönt ljus
litepaus	equ	#1	; mellan alla andra växlingar


; Huvudprogrammet

start:		ldct	0	litepaus	11000100100
		cjs	sant	paus		0
forts1:		ldct	0	litepaus	11100110100
		cjs	sant	paus		0
		ldct	0	storpaus	10010001100
nattkoll:	cjp	natt	natt_l		0
forts2:		cjs	sant	paus		0
		ldct	0	litepaus	10110011100
		cjs	sant	paus		0
		ldct	0	litepaus	11000100100
		cjs	sant	paus		0
		ldct	0	litepaus	11000100110
		cjs	sant	paus		0
		ldct	0	storpaus	11000100001
		cjs	sant	paus		0
		ldct	0	litepaus	11000100011
		cjs	sant	paus		0
		jz	0	0		0


; Subrutinerna

paus:		cjp	fara	fara_l		0
		cjp	blink	blink_l		0
		rpct	sant	paus		0
		crtn	sant	0		0

natt_l:		cjp	fara	fara_l		0
		cjp	blink	blink_l		0
		cjp	bil	forts2		0
		cjp	sant	nattkoll	0

blink_l:	cjp	fara	fara_l		10100010010
		cjp	blink	blink_l		10000000000
		jz	0	0		0

fara_l:		ldct	0	0		11000100100
farakoll:	cjp	fara	farakoll	0
		twb	falskt	forts1		0