Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix addresses

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-29 17:24:03 +09:00
parent 19cfb591d0
commit df5f0b2fd6
1 changed files with 69 additions and 69 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

138
planck.xxd
View file

@ -6,12 +6,12 @@
00000028: 3400 2000 0100 0000 e_ehsize,e_phentsize,e_phnum,e_shentsize 00000028: 3400 2000 0100 0000 e_ehsize,e_phentsize,e_phnum,e_shentsize
00000030: 0000 0000 0100 0000 e_shnum,e_shstrndx,<phdr> PT_LOAD 00000030: 0000 0000 0100 0000 e_shnum,e_shstrndx,<phdr> PT_LOAD
00000038: 0000 0000 0080 0408 p_offset,p_vaddr=0x08048000 00000038: 0000 0000 0080 0408 p_offset,p_vaddr=0x08048000
00000040: 0000 0000 f802 0000 p_paddr,p_filesz 00000040: 0000 0000 a802 0000 p_paddr,p_filesz
00000048: 0000 0008 0700 0000 p_memsz(128MB),PF_X|PF_W|PF_R 00000048: 0000 0008 0700 0000 p_memsz(128MB),PF_X|PF_W|PF_R
00000050: 0010 0000 0200 0000 p_align, <here> 00000050: 0010 0000 0200 0000 p_align, <here>
00000058: c882 0408 4881 0408 <latest:init="L">, <interpreter>(5c: key) 00000058: 8082 0408 e880 0408 <latest:init="i">, <interpreter>(5c: key)
00000060: c881 0408 f881 0408 (60: find) (64: execute) 00000060: 6881 0408 9881 0408 (60: find) (64: execute)
00000068: 9881 0408 f0ff ffff (68: jump) (6c: -16) 00000068: 3881 0408 f0ff ffff (68: jump) (6c: -16)
00000070: be5c 8004 08bd 0080 (70: movl $interpreter,%esi) (75: movl $0x10048000,%ebp) 00000070: be5c 8004 08bd 0080 (70: movl $interpreter,%esi) (75: movl $0x10048000,%ebp)
00000078: 0410 adff 2000 0000 (7a: next) 00000078: 0410 adff 2000 0000 (7a: next)
@ -20,87 +20,87 @@
00000090: 0000 00cd 8000 0000 int $0x80; 00000090: 0000 00cd 8000 0000 int $0x80;
00000098: 8080 0408 0143 0000 C: cellsize 00000098: 8080 0408 0143 0000 C: cellsize
00000100: 0481 0408 6804 0000 pushl $4; 000000a0: a480 0408 6804 0000 pushl $4;
00000108: 00ad ff20 0000 0000 next; 000000a8: 00ad ff20 0000 0000 next;
00000110: 9880 0408 0168 0000 h: here 000000b0: 9880 0408 0168 0000 h: here
00000118: 1c81 0408 6854 8004 pushl $here; 000000b8: bc80 0408 6854 8004 pushl $here;
00000120: 08ad ff20 0000 0000 next; 000000c0: 08ad ff20 0000 0000 next;
00000128: 1081 0408 016c 0000 l: latest 000000c8: b080 0408 016c 0000 l: latest
00000130: 3481 0408 6858 8004 pushl $latest; 000000d0: d480 0408 6858 8004 pushl $latest;
00000138: 08ad ff20 0000 0000 next; 000000d8: 08ad ff20 0000 0000 next;
00000140: 2881 0408 016b 0000 k: key 000000e0: c880 0408 016b 0000 k: key
00000148: 4c81 0408 31c0 50ba xorl %eax,%eax; pushl %eax; movl $1,%edx; 000000e8: ec80 0408 31c0 50ba xorl %eax,%eax; pushl %eax; movl $1,%edx;
00000150: 0100 0000 89e1 31db movl %esp,%ecx; xorl %ebx,%ebx (STDIN); 000000f0: 0100 0000 89e1 31db movl %esp,%ecx; xorl %ebx,%ebx (STDIN);
00000158: b803 0000 00cd 80ad movl $SYS_READ,%eax; int $0x80; 000000f8: b803 0000 00cd 80ad movl $SYS_READ,%eax; int $0x80;
00000160: ff20 0000 0000 0000 next; 00000100: ff20 0000 0000 0000 next;
00000168: 4081 0408 0174 0000 t: type 00000108: e080 0408 0174 0000 t: type
00000170: 7481 0408 ba01 0000 movl $1,%edx; 00000110: 1481 0408 ba01 0000 movl $1,%edx;
00000178: 0089 e1bb 0100 0000 movl %esp,%ecx; movl $1,%ebx (STDOUT); 00000118: 0089 e1bb 0100 0000 movl %esp,%ecx; movl $1,%ebx (STDOUT);
00000180: b804 0000 00cd 8083 movl $SYS_WRITE,%eax; int $0x80; 00000120: b804 0000 00cd 8083 movl $SYS_WRITE,%eax; int $0x80;
00000188: c404 adff 2000 0000 addl $4,%esp; next; 00000128: c404 adff 2000 0000 addl $4,%esp; next;
00000190: 6881 0408 016a 0000 j: jump 00000130: 0881 0408 016a 0000 j: jump
00000198: 9c81 0408 0336 adff addl (%esi),%esi; next; 00000138: 3c81 0408 0336 adff addl (%esi),%esi; next;
000001a0: 2000 0000 0000 0000 00000140: 2000 0000 0000 0000
000001a8: 9081 0408 014a 0000 J: jump if zero 00000148: 3081 0408 014a 0000 J: jump if zero
000001b0: b481 0408 5885 c074 popl %eax; test %eax,%eax;je 19c(-29) 00000150: 5481 0408 5885 c074 popl %eax; test %eax,%eax;je 19c(-29)
000001b8: e3ad adff 2000 0000 lodsl; next; 00000158: e3ad adff 2000 0000 lodsl; next;
000001c0: a881 0408 0166 0000 f: find 00000160: 4881 0408 0166 0000 f: find
000001c8: cc81 0408 8a24 24b0 movb (%esp),%ah;movb $1,%al; 00000168: 6c81 0408 8a24 24b0 movb (%esp),%ah;movb $1,%al;
000001d0: 018b 0d58 8004 088b movl latest,%ecx;<1>movl 4(%ecx),%ebx; 00000170: 018b 0d58 8004 088b movl latest,%ecx;<1>movl 4(%ecx),%ebx;
000001d8: 5904 6639 c374 048b cmpw %ax,%bx;je 2f;movl (%ecx),%ecx 00000178: 5904 6639 c374 048b cmpw %ax,%bx;je 2f;movl (%ecx),%ecx
000001e0: 09eb f483 c108 890c jmp 1b(-12);<2>addl $8,%ecx;movl %ecx,(%esp) 00000180: 09eb f483 c108 890c jmp 1b(-12);<2>addl $8,%ecx;movl %ecx,(%esp)
000001e8: 24ad ff20 0000 0000 next; 00000188: 24ad ff20 0000 0000 next;
000001f0: c081 0408 0178 0000 x: execute 00000190: 6081 0408 0178 0000 x: execute
000001f8: fc81 0408 58ff 2000 popl %eax; jmp *(%eax) 00000198: 9c81 0408 58ff 2000 popl %eax; jmp *(%eax)
00000200: f081 0408 0140 0000 @: fetch 000001a0: 9081 0408 0140 0000 @: fetch
00000208: 0c82 0408 588b 0050 popl %eax; movl (%eax),%eax;push %eax; 000001a8: ac81 0408 588b 0050 popl %eax; movl (%eax),%eax;push %eax;
00000210: adff 2000 0000 0000 next; 000001b0: adff 2000 0000 0000 next;
00000218: 0082 0408 0121 0000 !: store 000001b8: a081 0408 0121 0000 !: store
00000220: 2482 0408 585b 8918 popl %eax; popl %ebx; movl %ebx,(%eax) 000001c0: c481 0408 585b 8918 popl %eax; popl %ebx; movl %ebx,(%eax)
00000228: adff 2000 0000 0000 next; 000001c8: adff 2000 0000 0000 next;
00000230: 1882 0408 013f 0000 ?: cfetch 000001d0: b881 0408 013f 0000 ?: cfetch
00000238: 3c82 0408 580f b600 popl %eax; movzbl (%eax),%eax; 000001d8: dc81 0408 580f b600 popl %eax; movzbl (%eax),%eax;
00000240: 50ad ff20 0000 0000 pushl %eax; next; 000001e0: 50ad ff20 0000 0000 pushl %eax; next;
00000248: 3082 0408 0124 0000 $: cstore 000001e8: d081 0408 0124 0000 $: cstore
00000250: 5482 0408 585b 8818 popl %eax; popl %ebx; movb %bl,(%eax) 000001f0: f481 0408 585b 8818 popl %eax; popl %ebx; movb %bl,(%eax)
00000258: adff 2000 0000 0000 next; 000001f8: adff 2000 0000 0000 next;
00000260: 4882 0408 0164 0000 d: dfetch 00000200: e881 0408 0164 0000 d: dfetch
00000268: 6c82 0408 89e0 50ad movl %esp,%eax; pushl %eax; next; 00000208: 0c82 0408 89e0 50ad movl %esp,%eax; pushl %eax; next;
00000270: ff20 0000 0000 0000 00000210: ff20 0000 0000 0000
00000278: 6082 0408 0144 0000 D: dstore 00000218: 0082 0408 0144 0000 D: dstore
00000280: 8482 0408 5889 c4ad popl %eax; movl %eax,%esp; next; 00000220: 2482 0408 5889 c4ad popl %eax; movl %eax,%esp; next;
00000288: ff20 0000 0000 0000 00000228: ff20 0000 0000 0000
00000290: 7882 0408 0172 0000 r: rfetch 00000230: 1882 0408 0172 0000 r: rfetch
00000298: 9c82 0408 55ad ff20 pushl %ebp; next; 00000238: 3c82 0408 55ad ff20 pushl %ebp; next;
000002a0: 9082 0408 0152 0000 R: rstore 00000240: 3082 0408 0152 0000 R: rstore
000002a8: ac82 0408 5dad ff20 popl %ebp; next; 00000248: 4c82 0408 5dad ff20 popl %ebp; next;
000002b0: a082 0408 017b 0000 {: dtor 00000250: 4082 0408 017b 0000 {: dtor
000002b8: bc82 0408 588d 6dfc popl %eax;rpush %eax; 00000258: 5c82 0408 588d 6dfc popl %eax;rpush %eax;
000002c0: 8945 00ad ff20 0000 next; 00000260: 8945 00ad ff20 0000 next;
000002c8: b082 0408 017d 0000 }: rtod 00000268: 5082 0408 017d 0000 }: rtod
000002d0: d482 0408 8b45 008d rpop %eax; 00000270: 7482 0408 8b45 008d rpop %eax;
000002d8: 6d04 50ad ff20 0000 pushl %eax; next; 00000278: 6d04 50ad ff20 0000 pushl %eax; next;
000002e0: c882 0408 0169 0000 i: docol 00000280: 6882 0408 0169 0000 i: docol
000002e8: ec82 0408 68f8 8204 pushl $docol; 00000288: 8c82 0408 6898 8204 pushl $docol;
000002f0: 08ad ff20 0000 0000 next; 00000290: 08ad ff20 0000 0000 next;
000002f8: 8d6d fc89 7500 83c0 <docol>rpush %esi; addl $4,%eax 00000298: 8d6d fc89 7500 83c0 <docol>rpush %esi; addl $4,%eax
00000300: 0489 c6ad ff20 0000 movl %eax,%esi; next; 000002a0: 0489 c6ad ff20 0000 movl %eax,%esi; next;