blob: 96d9658668b7fbf35c97fc17d9b792ee17e13d6c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
:;standalone:_source_on_Q,_binary_on_G
4000 a.q !
:m.rd ? m.ch z 0 a.q @ ! m.go j
:m.ch , a.q @ ! a.q @ 1 + a.q ! m.rd j
:m.go 4000 a.src ! 40000 a.dst ! 0 a.org ! 50000 a.lab ! a.run c 0 a.j !
:m.out a.j @ a.n @ < m.end z
40000 a.j @ + @ 0 $ . 0 $ 8 > . 0 $ 16 > . 24 > .
a.j @ 1 + a.j ! m.out j
:m.end q
|
