00000000: 7f45 4c46 0101 0100 # planckforth - 00000008: 0000 0000 0000 0000 # Copyright (C) 2020 nineties 00000010: 0200 0300 0100 0000 ET_EXEC,EM_386,EV_CURRENT 00000018: 7080 0408 3400 0000 e_entry=0x08048070,e_phoff= 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, PT_LOAD 00000038: 0000 0000 0080 0408 p_offset,p_vaddr=0x08048000 00000040: 0000 0000 bd01 0000 p_paddr,p_filesz 00000048: 0000 0008 0700 0000 p_memsz(128MB),PF_X|PF_W|PF_R 00000050: 0010 0000 0200 0000 p_align, 00000058: 0300 0000 4881 0408 , (5c: key) 00000060: b081 0408 f8ff ffff (60: jump if zero) (64: -8) 00000068: 8880 0408 0000 0000 (68: quit) (6c: 0) 00000070: be5c 8004 08bd 0080 (70: movl $interpreter,%esi) (75: movl $0x10048000,%ebp) 00000078: 0410 adff 2000 0000 (7a: next) 00000080: 0000 0000 0151 0000 "Q" quit 00000088: 8c80 0408 31db b801 xorl %ebx,%ebx; mov $SYS_EXIT,%eax; 00000090: 0000 00cd 8000 0000 int $0x80; 00000098: 8080 0408 0143 0000 "C" cellsize 00000100: 0481 0408 6804 0000 pushl $4; 00000108: 00ad ff20 0000 0000 next; 00000110: 9880 0408 0168 0000 "h" here 00000118: 1c81 0408 6854 8004 pushl $here; 00000120: 08ad ff20 0000 0000 next; 00000128: 1081 0408 016c 0000 "l" latest 00000130: 3481 0408 6858 8004 pushl $latest; 00000138: 08ad ff20 0000 0000 next; 00000140: 2881 0408 016b 0000 "k" key 00000148: 4c81 0408 31c0 50ba xorl %eax,%eax; pushl %eax; movl $1,%edx; 00000150: 0100 0000 89e1 31db movl %esp,%ecx; xorl %ebx,%ebx (STDIN); 00000158: b803 0000 00cd 80ad movl $SYS_READ,%eax; int $0x80; 00000160: ff20 0000 0000 0000 next; 00000168: 4081 0408 0174 0000 "t" type 00000170: 7481 0408 ba01 0000 movl $1,%edx; 00000178: 0089 e1bb 0100 0000 movl %esp,%ecx; movl $1,%ebx (STDOUT); 00000180: b804 0000 00cd 8083 movl $SYS_WRITE,%eax; int $0x80; 00000188: c404 adff 2000 0000 addl $4,%esp; next; 00000190: 6881 0408 016a 0000 "j" jump 00000198: 9c81 0408 0336 adff addl (%esi),%esi; next; 000001a0: 2000 0000 0000 0000 000001a8: 9081 0408 014a 0000 "J" jump if zero 000001b0: b481 0408 5885 c074 popl %eax; test %eax,%eax;je 19c(-29) 000001b8: e3ad adff 2000 0000 lodsl; next;