diff options
author | pommicket <pommicket@gmail.com> | 2021-11-13 13:56:26 -0500 |
---|---|---|
committer | pommicket <pommicket@gmail.com> | 2021-11-13 13:56:26 -0500 |
commit | 147fb9ccca4593209349b7c6c41ddeca17678464 (patch) | |
tree | 119d81214d1f48bd8a2617dcf30ce2ed1427897b /03 | |
parent | 3fe11fa0cb21a5b78b401e86ca9ca382332e8a6f (diff) |
str (hello wrold program is really simple now!)
Diffstat (limited to '03')
-rw-r--r-- | 03/ex03 | 1 | ||||
-rw-r--r-- | 03/in02 | 43 | ||||
-rw-r--r-- | 03/in03 | 14 |
3 files changed, 45 insertions, 13 deletions
@@ -37,3 +37,4 @@ x3c ;;;;;;;;;;;;;;;;;;;;;;;/+ :funciton call A +str Here is some text which will be put in the executable! @@ -78,6 +78,12 @@ im ##a. ascii '\n' jn :-rL keep looping +// subtract 1 from rbp because we don't care about the newline +im +##ffffffffffffffff. -1 +BR ++B +RA // we now have a full line from the file in ::LI // the pointer to the end of the line is in rbp // look at the first character @@ -213,6 +219,20 @@ im ##1. je :-sy +im +--ST "str" +IA +im +--LI +JA +im +--s= +cl +BA +im +##1. +je +:-st jm :-ex // handle += instruction @@ -1796,6 +1816,24 @@ jm :-rl jump back to read next line ::Cl cl +// handle "str <string>" +::st +im +##4. +BA +im +--LI ++B +IA pointer to string +nA +BR ++B +DA length of string +im +--wr write +cl +jm +:-rl next line // handle "syscall <number>" ::sy im @@ -2126,6 +2164,11 @@ jm 'l 'l 20 +::ST "str" text +'s +'t +'r +20 ::IF input file name 'i 'n @@ -7,18 +7,6 @@ J=d42 syscall x3c :hello_world -'H -'e -'l -'l -'o -', -x20 -'w -'o -'r -'l -'d -'! +str Hello, world! xa :hello_world_end |