X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=main.asm;h=93e576fe684543b77547aa936a2b74a109e34116;hb=1c75ba69173401f26034abf10e64f240977e215a;hp=d1ff2b3192e7b59a6a677841f0886a31e9d9f3f3;hpb=5224cfbc1856cd2f4c786f73223b1182acbc96cc;p=rrq%2Fjonasforth.git diff --git a/main.asm b/main.asm index d1ff2b3..93e576f 100644 --- a/main.asm +++ b/main.asm @@ -84,11 +84,11 @@ macro forth_asm label, name, immediate { .start: } -os_code_section - include "impl.asm" ; Misc. subroutines include "bootstrap.asm" ; Forth words encoded in Assembly +os_code_section + main: cld ; Clear direction flag so LODSQ does the right thing. mov rbp, return_stack_top ; Initialize return stack