smalltalk-tng
view experiments/assembly/test.4th @ 321:c4a0718c2d3c
Sketch of dependencies
| author | Tony Garnock-Jones <tonygarnockjones@gmail.com> |
|---|---|
| date | Sat Oct 08 15:36:03 2011 -0400 (7 months ago) |
| parents | |
| children |
line source
1 : toHexDigit
2 15 AND DUP 9 > IF 55 ELSE 48 THEN + ;
3 : hexbyteemit
4 DUP 16 / toHexDigit EMIT toHexDigit EMIT ;
5 : hexwordemit
6 DUP 16777216 / hexbyteemit
7 DUP 65536 / hexbyteemit
8 DUP 256 / hexbyteemit
9 hexbyteemit ;
10 : HEXEMIT
11 BEGIN DUP 0 <> WHILE 1- SWAP DUP @b hexbyteemit 1+ SWAP REPEAT ;
12 : emitzNonNull
13 BEGIN DUP @b DUP WHILE EMIT 1+ REPEAT DROP DROP ;
14 : EMITZ
15 DUP 0= IF DROP ." (null)" ELSE emitzNonNull THEN ;
16 : ARGC S0 @ @ ;
17 : ARGV S0 @ 4+ ;
18 : ARGN 4 * ARGV + @ ;
19 : emitSingleArg
20 SWAP DUP . SWAP EMITZ CR ;
21 : EMITARGS
22 0 BEGIN DUP ARGN DUP 0 <> WHILE emitSingleArg 1+ REPEAT DROP DROP ;
24 CR CR
26 EMITARGS
27 0 SYSEXIT