d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Very naive insert

This commit is contained in:
neauoire 2021-03-08 10:55:57 -08:00
parent 0cbe996f45
commit dcc2015eb4
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
assembler.c
View File

@ -127,7 +127,7 @@ findlabeladdr(char *s)
return l->addr + o;
o += l->macro->length[i];
}
printf("Warning %s.%s[%s]\n", l->name, param, l->macro->name);
printf("!!! Warning %s.%s[%s]\n", l->name, param, l->macro->name);
return 0;
}
@ -143,7 +143,7 @@ findlabellen(char *s)
for(i = 0; i < l->macro->len; ++i)
if(scmp(l->macro->params[i], param, 64))
return l->macro->length[i];
printf("Warning %s.%s[%s]\n", l->name, param, l->macro->name);
printf("!!! Warning %s.%s[%s]\n", l->name, param, l->macro->name);
return 0;
}

17
projects/software/left.usm
View File

@ -65,7 +65,18 @@ BRK
,no-keys ~dev/key #00 EQU JMP? POP2
( insert )
~document.eof #0001 ADD2 =document.eof
~document.eof =j ( end -> start )
@insert-loop
~j #0001 SUB2 LDR ~j STR
( decr ) ~j #0001 SUB2 =j
,insert-loop ~j ~selection.from GTH2 JMP? POP2
~dev/key ~selection.from STR
~position.x #0001 ADD2 =position.x ,select JSR
( release ) #00 =dev/key
,redraw JSR
@ -154,7 +165,7 @@ RTS
RTS
@no-reached
,no-space ~j LDR #0a NEQ JMP? POP2
,no-space ~j LDR #0a NEQ ~j LDR #0d NEQ #0101 EQU2 JMP? POP2
( incr ) ~pt.y #0001 ADD2 =pt.y
#0000 =pt.x
@no-space
@ -258,7 +269,7 @@ RTS
#0000 =j ( j is linebreaks )
@find-scroll-offset
,find-scroll-offset-end ~scroll.y ~j EQU2 JMP? POP2
,no-break ~textarea.addr LDR #0a NEQ JMP? POP2
,no-break ~textarea.addr LDR #0a ~textarea.addr LDR #0d NEQ #0101 EQU2 JMP? POP2
( incr ) ~j #0001 ADD2 =j
@no-break
( incr ) ~textarea.addr #0001 ADD2 =textarea.addr
@ -273,7 +284,7 @@ RTS
@draw-textarea-loop
,no-linebreak ~j LDR #0a NEQ JMP? POP2
,no-linebreak ~j LDR #0a NEQ ~j LDR #0d NEQ #0101 EQU2 JMP? POP2
( fill clear )
@fill-clear
( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x