2 files changed, 12 insertions(+), 1 deletions(-)

M etc/example.tal
M src/uxnlin.tal

@@ 71,7 71,13 @@
 	LDZ2 STH2
 	DEI STH
 	DEI2 STH2
-	
+
+	( MS Line-endings )
+	( this should not throw warnings )
+  SUB #0f GTH #50 SFT ( h )
+  STHr ORA
+  #40
+  ORA
 
 BRK
 

@@ 54,6 54,8 @@ JMP2
 
 @walk ( char -- )
 
+	( msline ) DUP #0d EQU #1b MUL ADD
+	
 	#0a EQUk NIP ,&line JCN
 	LIT "( EQUk NIP ,&toggle-sleep JCN
 	LIT ") EQUk NIP ,&toggle-sleep JCN


@@ 124,6 126,9 @@ JMP2r
 	;token ;is-arithmetic JSR2 #00 EQU ,&no-ari JCN
 	;token/last ;is-static JSR2 #00 EQU ,&no-ari JCN
 	;token/last2 ;is-static JSR2 #00 EQU ,&no-ari JCN
+
+		;token/last ;pstr JSR2 #2018 DEO
+		;token/last2 ;pstr JSR2 #2018 DEO
 		;static ;print-warn2 JSR2
 		&no-ari