commit d09a861

zzo38  ·  2024-02-26 04:07:36 +0000 UTC
parent 8795167 
Fix assembler to allow relative JSI by starting with /
2 files changed,  +8, -3
M prg/uhsview.tal
M uxnasm.c
M prg/uhsview.tal
+7, -2 
 1@@ -245,8 +245,13 @@
 2   .Active LDZ2 LDA2 !gonode
 3 
 4 @kUp
 5-  
 6-  BRK
 7+  LITr -Cursor LDZ2r
 8+  .Active LDZ2 #0010 ADD2
 9+  [@
10+    DUP2 STH2rk NEQ2 [? POP2 POP2r !shownode ]@
11+    DUP2 #05 ADD LDA .typ/inner EQU [? DUP2 .Cursor STZ2 ]@
12+    #06 ADD LDA2
13+  ]!
14 
15 @kDown
16   .Cursor LDZ2 INC2 .ActiveEnd LDZ2 GTH2 ?brk
M uxnasm.c
+1, -1 
1@@ -221,7 +221,7 @@ makereference(char *scope, char *label, Uint16 addr)
2 	if(p.rlen == MAXREFS)
3 		return error("References limit exceeded", label);
4 	r = &p.refs[p.rlen++];
5-	if(label[1] == '&' && scope) {
6+	if((label[1] == '&' || label[1] == '/') && scope) {
7 		scpy(sublabel(subw, scope, label + 2), r->name, 0x40);
8 	} else if(label[1] == '{') {
9 		if(p.lambda_ptr==256) return error("Lambda stack overflow", label);