diff options
| -rw-r--r-- | jefs.fs | 5 | ||||
| -rw-r--r-- | jefs.s | 18 |
2 files changed, 21 insertions, 2 deletions
@@ -1,2 +1,3 @@ -: syswrite 1 syscall3 ; \ aeu oeu eo ue -bye +: syswrite ( u c-addr fd -- n ) 1 syscall3 ; +: say ( c-addr u -- ) swap 1 syswrite drop ; +TESTSTR say bye @@ -559,6 +559,24 @@ defword "\", backslash, immediate_mask mov qword [to_in], r13 ret +defword "(", bracket, immediate_mask + mov r13, qword [to_in] + add r13, initfile + mov r12b, byte [r13] +.loop: + cmp r12b, 0x29 + je .done + + inc r13 + mov r12b, byte [r13] + jmp .loop + +.done: + inc r13 + sub r13, initfile + mov qword [to_in], r13 + ret + ; TEMPORARY HORRIBLE DEBUGGING BULLSHIT {{{ ; debugging word; outputs raw bytes so needs to be piped through `x(x)d` ; terrible and awful |
