tp

Author: larsbrinkhoff

src/lars/qrcode.8

@@ -46,7 +46,7 @@ GO:	MOVE P,[-100,,PDL-1]
 	PUSHJ P,FILL		;Fill the rest with alternating 236. and 17.
 	PUSHJ P,REDSOL		;Compute Reed-Solomon error correcting codes.
 	PUSHJ P,INTERL		;Interleave bytes from all blocks.
-	PUSHJ P,FUNC	;Draw function patterns.
+	PUSHJ P,FUNC		;Draw function patterns.
 	PUSHJ P,ZIGZAG		;Draw output data.
 	PUSHJ P,EVAL		;Evaluate penalty scores.
 	PUSHJ P,APPLY		;Apply mask.
@@ -93,7 +93,7 @@ READ3:	.CALL [ SETZ		;Open input file.
 		MOVE FN1
 		MOVE FN2
 		SETZ SNAME ]
-	 .VALUE
+	 .LOSE %LSFIL
 	MOVE A,[440700,,MESSAGE]
 	MOVEM A,PTR
 	SETZM LENGTH'
@@ -105,8 +105,10 @@ READ4:	.IOT DSKIC,B		;Read data from input.
 	IDPB B,PTR
 	PUSHJ P,CHECK		;Check data mode.
 	MOVEM A,MODE
-	AOS LENGTH		;Keep track of data length.
-	JRST READ4
+	AOS C,LENGTH		;Keep track of data length.
+	CAIGE C,MAX		;Maximum size of input buffer.
+	 JRST READ4
+	POPJ P,
 
 DEV:	SIXBIT /TTY/
 FN1:	0
@@ -126,9 +128,11 @@ INIT:	MOVE A,[440100,,DATA]
 
 	SETZM VERSION
 
-INIT1:	AOS VERSION
-	MOVE A,VERSION		;Compute size from version.
-	IMULI A,4
+INIT1:	AOS A,VERSION
+	CAILE A,40.
+	 .VALUE [ASCIZ /:Data doesn't fit in a single QR code.
+/]
+	IMULI A,4		;Compute size from version.
 	ADDI A,17.
 	MOVEM A,SIZE'
 
@@ -579,20 +583,20 @@ EVAL3:	SETZM PENALTY'
 EVAL4:	MOVE B,(P)
 	MOVEI D,0
 	SETZM DOTS'
-	PUSHJ P,BEGIN
+	PUSHJ P,BEGIN		;Initialize run check.
 EVAL5:	MOVEI C,1
 	PUSHJ P,RUN		;Check for run of five or more.
 	PUSHJ P,FINDISH		;Check for finder-like pattern.
-	PUSHJ P,TALLY		;Compute total number of dark/light.
+	PUSHJ P,TALLY		;Compute total number of dark modules.
 	EXCH A,B
-	exch d,dots
-	exch f,state
+	EXCH D,DOTS
+	EXCH F,STATE
 	MOVEI C,177.		;Now check in other direction.
 	PUSHJ P,RUN
 	PUSHJ P,FINDISH
 	EXCH A,B
-	exch d,dots
-	exch f,state
+	EXCH D,DOTS
+	EXCH F,STATE
 	AOBJN B,EVAL5
 	AOBJN A,EVAL4
 
@@ -646,7 +650,9 @@ DARK:	PUSHJ P,MODULE
 	JRST RUN1
 
 LIGHT:	PUSHJ P,MODULE
-	 JRST [MOVEI D,0 ? MOVEI F,DARK ? JRST RUN1]
+	 JRST [ MOVEI D,0
+		MOVEI F,DARK
+		JRST RUN1 ]
 	AOJA D,RUN1
 
 findish:popj p,
@@ -1269,7 +1275,8 @@ ETABQ:	0 ? 13. ? 22. ? 18. ? 26. ? 18. ? 24. ? 18. ? 22.
 	30. ? 30. ? 30. ? 30. ? 30. ? 30. ? 30. ? 30. ? 30.
 	30. ? 30. ? 30. ? 30. ? 30.
 
-MESSAGE:BLOCK 1000
+MESSAGE:BLOCK 7100.		;Maximum amount of data.
+MAX=<.-MESSAGE>*7
 PDL:	BLOCK 100
 
 IMAGE:	BLOCK <177.*177.>	;One word per module.