lang-bootstrap/03/in03

   :l ba b
;J=d0
A=d60
sys x3c
align
:label
res d1000
B+=J
B<=d9
B-=J
?J<B:label
?J=B:label
?A!B:label
?A>B:label
A=:label
useful functions 2021-11-12 21:12:59 -05:00			`:l ba b`
(03) storing label addresses 2021-11-11 12:54:20 -05:00			`;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`
useful functions 2021-11-12 21:12:59 -05:00			`?J=B:label`
			`?A!B:label`
			`?A>B:label`
label lookup working! 2021-11-12 16:51:28 -05:00			`A=:label`