Add 'h' and 'l'

This commit is contained in:
Koichi Nakamura 2020-12-29 03:16:33 +09:00
parent c683f98fd4
commit b4057279ce
2 changed files with 15 additions and 7 deletions

View file

@ -6,7 +6,9 @@ $ make
# Builtin Words
| char | semantics |
|:----:|:-------------------------:|
| Q | ( -- ) Exit the process |
| C | ( -- n ) Size of Cells |
| char | semantics |
|:----:|:-----------------------------------------:|
| Q | ( -- ) Exit the process |
| C | ( -- n ) The size of Cells |
| h | ( -- addr ) The address of 'here' cell |
| l | ( -- addr ) The address of 'latest' cell |

View file

@ -6,10 +6,10 @@
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
00000038: 0000 0000 0080 0408 p_offset,p_vaddr=0x08048000
00000040: 0000 0000 1001 0000 p_paddr,p_filesz
00000040: 0000 0000 4001 0000 p_paddr,p_filesz
00000048: 0000 0008 0700 0000 p_memsz(128MB),PF_X|PF_W|PF_R
00000050: 0010 0000 0000 0000 p_align, <here>
00000058: 0000 0000 0081 0408 <latest>, <interpreter>(5c: key)
00000050: 0010 0000 0200 0000 p_align, <here>
00000058: 0300 0000 3081 0408 <latest>, <interpreter>(5c: key)
00000060: 8880 0408 0000 0000 (60: find) (64: execute)
00000068: 0000 0000 f0ff ffff (68: jump) (6c: -16)
00000070: be5c 8004 08bd 0080 (70: movl $interpreter,%esi) (75: movl $0x10048000,%ebp)
@ -20,3 +20,9 @@
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