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

View File

@ -127,7 +127,7 @@ findlabeladdr(char *s)
return l->addr + o; return l->addr + o;
o += l->macro->length[i]; 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; return 0;
} }
@ -143,7 +143,7 @@ findlabellen(char *s)
for(i = 0; i < l->macro->len; ++i) for(i = 0; i < l->macro->len; ++i)
if(scmp(l->macro->params[i], param, 64)) if(scmp(l->macro->params[i], param, 64))
return l->macro->length[i]; 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; return 0;
} }

View File

@ -65,7 +65,18 @@ BRK
,no-keys ~dev/key #00 EQU JMP? POP2 ,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 ~dev/key ~selection.from STR
~position.x #0001 ADD2 =position.x ,select JSR
( release ) #00 =dev/key ( release ) #00 =dev/key
,redraw JSR ,redraw JSR
@ -154,7 +165,7 @@ RTS
RTS RTS
@no-reached @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 ( incr ) ~pt.y #0001 ADD2 =pt.y
#0000 =pt.x #0000 =pt.x
@no-space @no-space
@ -258,7 +269,7 @@ RTS
#0000 =j ( j is linebreaks ) #0000 =j ( j is linebreaks )
@find-scroll-offset @find-scroll-offset
,find-scroll-offset-end ~scroll.y ~j EQU2 JMP? POP2 ,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 ( incr ) ~j #0001 ADD2 =j
@no-break @no-break
( incr ) ~textarea.addr #0001 ADD2 =textarea.addr ( incr ) ~textarea.addr #0001 ADD2 =textarea.addr
@ -273,7 +284,7 @@ RTS
@draw-textarea-loop @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 )
@fill-clear @fill-clear
( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x ( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x