. Bootstrap loader - Primer zagonskega nalagalnika
. Sistemska programska oprema, FRI, Uni LJ
. Prirejeno po primeru nalagalnika iz knjige
boot	START	0
addr	EQU		0x80

first	CLEAR	A
		LDX	   #addr		. X <- naslov kamor nalozimo program
. nalaganje enega bajta v A
loop	JSUB	getc
		RMO		A, S
		SHIFTL	S, 4
		JSUB	getc
		ADDR	S, A
. kopiranje A na naslov
		STCH	0, X
		TIXR	X, X
		J		loop

. rutina, ki prebere en znak in ga konvertira v stevilko
. ce prebere 0, skoci na addr
getc	TD		input
		JEQ		getc
		RD		input
		COMP   #0
		JEQ		addr
		COMP   #48
		SUB    #48
		COMP   #10
		JLT		return
		SUB	   #7
return	RSUB

input	BYTE	X'F1'		. st. naprave iz katere beremo
		END		first