lang-bootstrap/03/in03

:lbab
;J=d0
A=d60
sys x3c
align
:label
res d1000
B+=J
B<=d9
B-=J
?J<B:label
A=:label
(03) storing label addresses 2021-11-11 12:54:20 -05:00			`:lbab`
			`;J=d0`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00			`A=d60`
label lookup working! 2021-11-12 16:51:28 -05:00			`sys x3c`
			`align`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00			`:label`
label lookup working! 2021-11-12 16:51:28 -05:00			`res d1000`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00			`B+=J`
label lookup working! 2021-11-12 16:51:28 -05:00			`B<=d9`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00			`B-=J`
label lookup working! 2021-11-12 16:51:28 -05:00			`?J<B:label`
			`A=:label`