00000000: 7f45 4c46 0101 0100   # planckforth -
00000008: 0000 0000 0000 0000   # Copyright (C) 2021 nineties
00000010: 0200 0300 0100 0000   ET_EXEC,EM_386,EV_CURRENT
00000018: 7480 0408 3400 0000   e_entry=0x08048074,e_phoff=<phdr>
00000020: 0000 0000 0000 0000   e_shoff,e_flags
00000028: 3400 2000 0100 0000   e_ehsize,e_phentsize,e_phnum,e_shentsize
00000030: 0000 0000 0100 0000   e_shnum,e_shstrndx,<phdr>p_type=PT_LOAD
00000038: 0000 0000 0080 0408   p_offset,p_vaddr=0x08048000
00000040: 0000 0000 c003 0000   p_paddr,p_filesz
00000048: 0000 2000 0700 0000   p_memsz(128KB),p_flags=PF_X|PF_W|PF_R
00000050: 0010 0000 c083 0408   p_align, <here>
00000058: 9483 0408 0000 0000   <latest:init="I">, <sp0>
00000060: e480 0408 5c81 0408   <interpreter>key, find
00000068: 8881 0408 3081 0408   execute, jump
00000070: f0ff ffff be60 8004   -16, movl $interpreter, %esi
00000078: 08bd 0080 0608 8925   movl $0x08068000,%ebp; movl %esp,sp0;
00000080: 5c80 0408 adff 2000   next;

00000088: 0000 0000 0151 0000   Q: quit
00000090: 9480 0408 31db b801   xorl %ebx,%ebx; mov $SYS_EXIT,%eax;
00000098: 0000 00cd 8000 0000   int $0x80;

000000a0: 8880 0408 0143 0000   C: cellsize
000000a8: ac80 0408 6a04 adff   pushl $4;
000000b0: 2000 0000 0000 0000   next;

000000b4: a080 0408 0168 0000   h: here
000000bc: c080 0408 6854 8004   pushl $here;
000000c4: 08ad ff20 0000 0000   next;

000000c8: b480 0408 016c 0000   l: latest
000000d0: d480 0408 6858 8004   pushl $latest;
000000d8: 08ad ff20 0000 0000   next;

000000dc: c880 0408 016b 0000   k: key
000000e4: e880 0408 31c0 50ba   xorl %eax,%eax; pushl %eax; movl $1,%edx;
000000ec: 0100 0000 89e1 31db   movl %esp,%ecx; xorl %ebx,%ebx (STDIN);
000000f4: b803 0000 00cd 8085   movl $SYS_READ,%eax; int $0x80; test %eax,%eax;
000000fc: c076 95ad ff20 0000   jbe 0x08048094(-107);

00000104: dc80 0408 0174 0000   t: type
0000010c: 1081 0408 ba01 0000   movl $1,%edx;
00000114: 0089 e189 d3b8 0400   movl %esp,%ecx; movl $1,%ebx (STDOUT);
0000011c: 0000 cd80 83c4 04ad   movl $SYS_WRITE,%eax; int $0x80;
00000124: ff20 0000 0000 0000   addl $4,%esp; next;

00000128: 0481 0408 016a 0000   j: jump
00000130: 3481 0408 0336 adff   addl (%esi),%esi; next;
00000138: 2000 0000 0000 0000

0000013c: 2881 0408 014a 0000   J: jump if zero
00000144: 4881 0408 5885 c074   popl %eax; test %eax,%eax;je 0x08048134(-25)
0000014c: e7ad adff 2000 0000   lodsl; next;

00000154: 3c81 0408 0166 0000   f: find
0000015c: 6081 0408 8a24 24b0   movb (%esp),%ah;movb $1,%al;
00000164: 018b 0d58 8004 088b   movl latest,%ecx;<1>movl 4(%ecx),%ebx;
0000016c: 5904 6639 c374 048b   cmpw %ax,%bx;je 2f;movl (%ecx),%ecx
00000174: 09eb f483 c108 890c   jmp 1b(-12);<2>addl $8,%ecx;movl %ecx,(%esp)
0000017c: 24ad ff20 0000 0000   next;

00000180: 5481 0408 0178 0000   x: execute
00000188: 8c81 0408 58ff 2000   popl %eax; jmp *(%eax)

00000190: 8081 0408 0140 0000   @: fetch
00000198: 9c81 0408 588b 0050   popl %eax; movl (%eax),%eax;push %eax;
000001a0: adff 2000 0000 0000   next;

000001a4: 9081 0408 0121 0000   !: store
000001ac: b081 0408 585b 8918   popl %eax; popl %ebx; movl %ebx,(%eax)
000001b4: adff 2000 0000 0000   next;

000001b8: a481 0408 013f 0000   ?: cfetch
000001c0: c481 0408 580f b600   popl %eax; movzbl (%eax),%eax;
000001c8: 50ad ff20 0000 0000   pushl %eax; next;

000001cc: b881 0408 0124 0000   $: cstore
000001d4: d881 0408 585b 8818   popl %eax; popl %ebx; movb %bl,(%eax)
000001dc: adff 2000 0000 0000   next;

000001e0: cc81 0408 0164 0000   d: dfetch
000001e8: ec81 0408 89e0 50ad   movl %esp,%eax; pushl %eax; next;
000001f0: ff20 0000 0000 0000

000001f4: e081 0408 0144 0000   D: dstore
000001fc: 0082 0408 5889 c4ad   popl %eax; movl %eax,%esp; next;
00000204: ff20 0000 0000 0000

0000020c: f481 0408 0172 0000   r: rfetch
00000214: 1882 0408 55ad ff20   pushl %ebp; next;

0000021c: 0c82 0408 0152 0000   R: rstore
00000224: 2882 0408 5dad ff20   popl %ebp; next;

0000022c: 1c82 0408 0169 0000   i: docol
00000234: 3882 0408 6840 8204   pushl $docol;
0000023c: 08ad ff20 0000 0000   next;
00000240: 8d6d fc89 7500 83c0   <docol>rpush %esi; addl $4,%eax
00000248: 0489 c6ad ff20 0000   movl %eax,%esi; next;

00000250: 2c82 0408 0165 0000   e: exit
00000258: 5c82 0408 8b75 008d   rpop %esi
00000260: 6d04 adff 2000 0000   next

00000268: 5082 0408 014c 0000   L: lit
00000270: 7482 0408 ad50 adff   lodsl; pushl %eax; next;
00000278: 2000 0000 0000 0000

0000027c: 6882 0408 0153 0000   S: litstring
00000284: 8882 0408 ad56 01c6   lodsl; pushl %esi; addl %eax,%esi;
0000028c: adff 2000 0000 0000   next;

00000290: 7c82 0408 012b 0000   +: add
00000298: 9c82 0408 5801 0424   popl %eax; addl %eax,(%esp)
000002a0: adff 2000 0000 0000   next;

000002a4: 9082 0408 012d 0000   -: sub
000002ac: b082 0408 5829 0424   popl %eax; subl %eax,(%esp)
000002b4: adff 2000 0000 0000   next;

000002b8: a482 0408 012a 0000   *: mul
000002c0: c482 0408 585b 0faf   popl %eax; popl %ebx; imul %ebx,%eax
000002c8: c350 adff 2000 0000   pushl %eax; next;

000002d0: b882 0408 012f 0000   /: div
000002d8: dc82 0408 31d2 5b58   xorl %edx,%edx; popl %ebx; popl %eax
000002e0: f7fb 50ad ff20 0000   idiv %ebx; pushl %eax; next;

000002e8: d082 0408 0125 0000   %: mod
000002f0: f482 0408 31d2 5b58   xorl %edx,%edx; popl %ebx; popl %eax
000002f8: f7fb 52ad ff20 0000   idiv %ebx; pushl %edx; next;

00000300: e882 0408 0126 0000   &: and
00000308: 0c83 0408 5821 0424   popl %eax; andl %eax,(%esp)
00000310: adff 2000 0000 0000   next; next;

00000314: 0083 0408 017c 0000   |: or
0000031c: 2083 0408 5809 0424   popl %eax; orl %eax,(%esp)
00000324: adff 2000 0000 0000   next;

00000328: 1483 0408 015e 0000   ^: xor
00000330: 3483 0408 5831 0424   popl %eax; andl %eax,(%esp)
00000338: adff 2000 0000 0000   next;

0000033c: 2883 0408 013c 0000   <: less
00000344: 4883 0408 585b 39c3   popl %eax; popl %ebx; cmpl %eax,%ebx
0000034c: 0f9c c00f b6c0 50ad   setl %al; movzbl %al, %eax; pushl %eax; next;
00000354: ff20 0000 0000 0000

00000358: 3c83 0408 013d 0000   =: equal
00000360: 6483 0408 585b 39c3   popl %eax; popl %ebx; cmpl %eax,%ebx
00000368: 0f94 c00f b6c0 50ad   setl %al; movzbl %al, %eax; pushl %eax; next;
00000370: ff20 0000 0000 0000

00000374: 5883 0408 0176 0000   v: argv
0000037c: 8083 0408 8b05 5c80   movl sp0,%eax;
00000384: 0408 89c3 83c3 0453   movl %eax,%ebx; addl $4,%ebx; pushl %ebx
0000038c: ff30 adff 2000 0000   pushl (%eax); next;

00000394: 7483 0408 0156 0000   V: implementation
0000039c: a083 0408 68a8 8304   pushl $version
000003a4: 08ad ff20 6861 6e64   next; <version>hand
000003ac: 2d77 7269 7474 656e   -written
000003b4: 2069 3338 362d 6c69    i386-li
000003bc: 6e75 7800             nux