blob: 8ec6aa26cf4b84465fc8923a7bbdbce4e54a9323 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
:;genome_header,_fixed_addresses_starting_at_48000
:;48000_boot__48002_a.run__48004.._&a.src_&a.dst_&a.org_&a.lab_&a.n_&a.ops
z.boot j a.run j #a.src #a.dst #a.org #a.lab #a.n #a.ops
:;boot:_read_source_until_eof_or_backtick,_assemble_it_at_0,_become_it
:z.boot 20000 a.q !
:z.rd ? z.ch z z.go j
:z.ch , 0 $ 96 - z.end z a.q @ ! a.q @ 1 + a.q ! z.rd j
:z.end _
:z.go 0 a.q @ ! 20000 a.src ! 0 a.dst ! 0 a.org ! 45000 a.lab ! a.run c 0 j
|
