lang

ka/crt/fmt/doprnt.k

@@ -141,7 +141,7 @@ doprnt:
 
 .bad_modifier:
     ; print "%?" to clearly indicate that something is wrong
-    mov ax0, '$'
+    mov ax0, '%'
     call .doput
 
     mov ax0, '?'
@@ -195,7 +195,7 @@ doprnt:
     ; been printed/written if 'n' were big enough
     test nx0, nx0
     ret.z
-    
+
     ; if n>0, decrement n and print
     dec nx0
     call nx3

ka/dos.k

@@ -12,7 +12,7 @@ start:
 
     call dir_test
 
-    hlt
+    ;hlt
 
     ; Wait for and print input indefinitely
 .1:

vm/la/karch.lang

@@ -19,11 +19,11 @@
 	</block-comment>
 
 	<pattern-item _name="Label" style="Preprocessor">
-		<regex>^[A-Za-z_][A-Za-z_0-9.]*\:</regex>
+		<regex>^([ ]*[A-Za-z_])[A-Za-z_0-9.]*\:</regex>
 	</pattern-item>
 
 	<pattern-item _name="Local Label" style="Preprocessor">
-		<regex>.[A-Za-z_0-9.]*\:</regex>
+		<regex>[ ]*.[A-Za-z_0-9.]*\:</regex>
 	</pattern-item>
 
 	<string _name="String" style = "String" end-at-line-end="TRUE">
@@ -53,12 +53,22 @@
     	case-sensitive="FALSE"
     	match-empty-string-at-beginning = "TRUE"
     	match-empty-string-at-end = "TRUE">
-    	<keyword>%%?[a-z][a-z0-9.]+</keyword>
-    	<keyword>(inv|flg)</keyword>
-    	<keyword>r[isdb]p</keyword>
-    	<keyword>r[a-fs][xi]</keyword>
+    	
+    	<!-- KVISC -->
+    	<keyword>(inv|flg|[re]?pc)</keyword>
     	<keyword>[a-z]x[0-9]+</keyword>
-    	<keyword>(sa|cr)[0-9]+</keyword>
+    	<keyword>[re][a-z]x</keyword>
+
+    	<!-- x86-64 -->
+    	<keyword>[c-gs]s</keyword>
+    	<keyword>[re]?flags</keyword>
+    	<keyword>([gil]d)?tr</keyword>
+    	<keyword>[re]?[ds]il?</keyword>
+    	<keyword>[re]?[sbi]pl?</keyword>
+    	<keyword>[x-z]mm[0-9]+</keyword>
+    	<keyword>[re]?[a-d][xhl]</keyword>
+    	<keyword>r[0-9]+[bwdlq]?</keyword>
+    	<keyword>(s[at]|[dc]r)[0-9]+</keyword>
     </keyword-list>
 
 	<pattern-item _name = "Decimal" style = "Decimal">