lang-bootstrap/03/in03

:lbab
;J=d0

A=d60
syscall x3c
res d1000
:label
B+=J
B<<=d9
B-=J
J?<B: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`
read decimal number 2021-11-11 19:04:19 -05:00			`syscall x3c`
			`res d1000`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00			`:label`
			`B+=J`
read decimal number 2021-11-11 19:04:19 -05:00			`B<<=d9`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00			`B-=J`
(03) storing label addresses 2021-11-11 12:54:20 -05:00			`J?<B:label`
start stage 3--hex digit to number 2021-11-10 21:22:25 -05:00