Very naive insert
This commit is contained in:
parent
0cbe996f45
commit
dcc2015eb4
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue