# -rw-r--r-- 172 bytes View raw 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
	;list print-digits

BRK

@print-digits ( list* -- )
	&loop
		LDAk LIT "0 ADD #18 DEO
		INC2 LDAk ?&loop
	POP2
	#0a18 DEO
JMP2r


@list [ 00 01 02 03 04 05 06 07 08 09 ]