*20
	PMODE
	*20
	CLA
	LINC
	LMODE
	ATR
	PDP
	PMODE
	TAD C20
	CLEN
	CLA
	CLLR
	TAD C5100
	CLLR
	CLSA
	AND C40
	SNA CLA
	JMP .-3
	STA
	LINC
	LMODE
	ATR
	PDP
	PMODE
	CLA
	CLLR
	TAD C5100
	CLLR
	CLCA
	TAD M5
	SPA CLA
	JMP .-3
	JMP 20
C20,	20
C5100,	5100
M5,	-5
C40,	40