diff options
Diffstat (limited to '04b/in04b')
| -rw-r--r-- | 04b/in04b | 35 |
1 files changed, 26 insertions, 9 deletions
@@ -3,9 +3,10 @@ ; local <name> ; argument <name> ; :<label> +; .<label> (local label) ; statement: ; <declaration> -; if <term> <==/</>/>=/<=/!=> <term> goto <label> NOTE: this uses signed comparisons +; if <term> <==/</>/>=/<=/!=/[/]/[=/]=> <term> goto <label> NOTE: this uses signed comparisons ; goto <label> ; <lvalue> = <rvalue> ; <lvalue> += <rvalue> @@ -43,8 +44,24 @@ ; <term> < <term> (left shift) ; <term> > <term> (unsigned right shift) -syscall(1, 1, .str_hw, 14) -syscall(0x3c, 42) + +if 0 > -1 goto main + +syscall(0x3c, 0) + +:main +function + global str + global strp + local offset + strp = &str + *8strp = .str_hw + offset = 2 + offset &= offset + offset %= 2 + *8strp += offset + syscall(1, 1, str, 14) + syscall(0x3c, 42) :str_hw string Hello, world! @@ -173,8 +190,8 @@ function len = 0 :strlen_loop p = s + len - c = *1 p - if c == 0 goto strlen_loop_end + c = *1p + ; if c == 0 goto strlen_loop_end len += 1 goto strlen_loop :strlen_loop_end @@ -196,7 +213,7 @@ function syscall(1, 1, s, len) return -:main +:main2 function puts(.str_hello_world) syscall(0x3c, 0) @@ -213,9 +230,9 @@ function local p v = *4x p = *8y - *4p = v - if v == 0 goto something - *1p = v + 1 + ;*4p = v + ;if v == 0 goto something + ;*1p = v + 1 v = *2p return v :something |