Index: lib700/blkfill.s
===================================================================
--- lib700/blkfill.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ lib700/blkfill.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -5,5 +5,5 @@
 |	void
 |	blkfill(where, what, count)
-|	char |where;
+|	char *where;
 |	char what;
 |	short count;
Index: lib700/blkmove.s
===================================================================
--- lib700/blkmove.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ lib700/blkmove.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -5,5 +5,5 @@
 |	void
 |	blkmove(to, from, n)
-|	char |to, |from;
+|	char *to, *from;
 |	short n;
 
Index: lib700/rand24.s
===================================================================
--- lib700/rand24.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ lib700/rand24.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -13,5 +13,5 @@
 
 | Computes:
-|		S = [S | C] + K
+|		S = [S * C] + K
 
 | Where:
Index: prolog/fsmain.s
===================================================================
--- prolog/fsmain.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ prolog/fsmain.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -103,7 +103,7 @@
 		.page
 
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 | 		Data Area						|
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 
 		.data
@@ -111,7 +111,7 @@
 pmsg1:		.asciz	"  returned from Croot() "
 
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 | 		BSS Area						|
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 
 		.bss
Index: ram/execkey.s
===================================================================
--- ram/execkey.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ ram/execkey.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -38,7 +38,7 @@
 | Register variables
 | ------------------
-A_FP		=	A5		| LONG -- struct idfnhdr |
+A_FP		=	A5		| LONG -- struct idfnhdr *
 A_FPU		=	A4		| LONG -- FPU base address
-A_SMP		=	A3		| LONG -- struct sment |
+A_SMP		=	A3		| LONG -- struct sment *
 
 R_FPMANT	=	D7		| WORD -- FPU time mantissa
@@ -50,6 +50,6 @@
 | Local (stack) variables
 | -----------------------
-PT		=	-4		| LONG -- instpnt |
-VEP		=	-8		| LONG -- struct valent |
+PT		=	-4		| LONG -- instpnt *
+VEP		=	-8		| LONG -- struct valent *
 OLDI		=	-10		| WORD -- old IPL  (sr)
 OCTYPE		=	-12		| WORD -- oscillator 1 mode / scratch
@@ -61,5 +61,5 @@
 TFPVAL		=	-24		| WORD -- temporary FPU value
 LTMP		=	-28		| LONG -- long temporary
-IP		=	-32		| LONG -- struct instdef |
+IP		=	-32		| LONG -- struct instdef *
 GROUP		=	-34		| WORD -- group number << 4
 
@@ -200,5 +200,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -460,5 +460,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F00L137:	move.l	PT(A6),A0
@@ -794,5 +794,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -1054,5 +1054,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F01L137:	move.l	PT(A6),A0
@@ -1343,5 +1343,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -1603,5 +1603,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F02L137:	move.l	PT(A6),A0
@@ -1892,5 +1892,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -2152,5 +2152,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F03L137:	move.l	PT(A6),A0
@@ -2468,5 +2468,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -2747,5 +2747,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F04L137:	move.l	PT(A6),A0
@@ -3055,5 +3055,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -3305,5 +3305,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F05L137:	move.l	PT(A6),A0
@@ -3614,5 +3614,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -3864,5 +3864,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F06L137:	move.l	PT(A6),A0
@@ -4139,5 +4139,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -4389,5 +4389,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F07L137:	move.l	PT(A6),A0
@@ -4664,5 +4664,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -4914,5 +4914,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F08L137:	move.l	PT(A6),A0
@@ -5189,5 +5189,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -5439,5 +5439,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F09L137:	move.l	PT(A6),A0
@@ -5714,5 +5714,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -5964,5 +5964,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F10L137:	move.l	PT(A6),A0
@@ -6239,5 +6239,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -6489,5 +6489,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F11L137:	move.l	PT(A6),A0
@@ -6764,5 +6764,5 @@
 		move.l	4(A_SMP),4(A0)
 
-|		smp->prv = (struct sment |)vep;
+|		smp->prv = (struct sment *)vep;
 
 		move.l	VEP(A6),4(A_SMP)
@@ -7014,5 +7014,5 @@
 		.page
 
-|		ltmp = (ltmp | pt->ipvmlt) >> 15;
+|		ltmp = (ltmp * pt->ipvmlt) >> 15;
 
 F12L137:	move.l	PT(A6),A0
Index: ram/sedisp.s
===================================================================
--- ram/sedisp.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ ram/sedisp.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -4,7 +4,7 @@
 
 |	se_disp(ep, sd, gdstb, cf)
-|	struct s_entry |ep;
+|	struct s_entry *ep;
 |	short sd;
-|	struct gdsel |gdstb[];
+|	struct gdsel *gdstb[];
 |	short cf;
 
@@ -111,5 +111,5 @@
 | gdsel structure definitions
 | ---------------------------
-G_NEXT		=	0		| long - 'next' field	(struct gdsel |)
+G_NEXT		=	0		| long - 'next' field	(struct gdsel *)
 G_NOTE		=	4		| word - 'note' field	(short)
 G_CODE		=	6		| word - 'code' field	(short)
@@ -206,5 +206,5 @@
 		clr.b	numstr+3		| terminate string
 		move.w	d1,d0			| col = group
-		asl.w	#2,d0			| ... | 5
+		asl.w	#2,d0			| ... * 5
 		add.w	d1,d0			| ...
 		add.w	#6,d0			| ... + 6
@@ -251,5 +251,5 @@
 		clr.w	d2			| d2 = ep->group
 		move.b	E_GROUP(a0),d2		| ...
-		lsl.w	#2,d2			| ... | 4
+		lsl.w	#2,d2			| ... * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[ep->group]
@@ -304,5 +304,5 @@
 		clr.w	d2			| get group in d2
 		move.b	E_GROUP(a0),d2		| ...
-		lsl.w	#2,d2			| ... | 4
+		lsl.w	#2,d2			| ... * 4
 		move.l	0(a2,d2.W),d0		| check gdstb[ep->group]
 		beq	dsexit
@@ -353,5 +353,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#48,d2			| d2 = event PRIORITY | 4
+		move.w	#48,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -376,5 +376,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#48,d2			| d2 = event PRIORITY | 4
+		move.w	#48,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -394,5 +394,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#48,d2			| d2 = event PRIORITY | 4
+		move.w	#48,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -428,5 +428,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#52,d2			| d2 = event PRIORITY | 4
+		move.w	#52,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -491,5 +491,5 @@
 		move.w	d1,-(a7)		| save group number on stack
 		add.w	d0,d0			| calculate column
-		add.w	d0,d1			| ... = 5 | group
+		add.w	d0,d1			| ... = 5 * group
 		addi.w	#5,d1			| ... + 5
 		move.w	#AT11,-(a7)		| vputs(obj8, 3, col, numstr, atr11)
@@ -519,5 +519,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#52,d2			| d2 = event PRIORITY | 4
+		move.w	#52,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -548,5 +548,5 @@
 		move.w	d1,-(a7)		| save group number
 		move.w	(a7),d0			| col = group number
-		add.w	d0,d0			| ... | 5
+		add.w	d0,d0			| ... * 5
 		add.w	d0,d0			| ...
 		move.w	(a7)+,d2		| ...  (d2 = group number)
@@ -583,5 +583,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#52,d2			| d2 = event PRIORITY | 4
+		move.w	#52,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -612,5 +612,5 @@
 		move.w	d1,-(a7)		| save group number
 		move.w	(a7),d0			| col = group number
-		add.w	d0,d0			| ... | 5
+		add.w	d0,d0			| ... * 5
 		add.w	d0,d0			| ...
 		move.w	(a7)+,d2		| ...  (d2 = group number)
@@ -647,5 +647,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#52,d2			| d2 = event PRIORITY | 4
+		move.w	#52,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -683,5 +683,5 @@
 		move.w	d1,-(a7)		| save variable number
 		move.w	d1,d0			| calculate display offset
-		lsl.w	#3,d0			| ... (var | 9) + 6
+		lsl.w	#3,d0			| ... (var * 9) + 6
 		add.w	d0,d1			| ... in d1
 		addq.w	#6,d1			| ...
@@ -707,5 +707,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#52,d2			| d2 = event PRIORITY | 4
+		move.w	#52,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -743,5 +743,5 @@
 		move.w	d1,-(a7)		| save variable number
 		move.w	d1,d0			| calculate display offset
-		lsl.w	#3,d0			| ... (var | 9) + 8
+		lsl.w	#3,d0			| ... (var * 9) + 8
 		add.w	d0,d1			| ... in d1
 		addi.w	#8,d1			| ...
@@ -791,5 +791,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#52,d2			| d2 = event PRIORITY | 4
+		move.w	#52,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -834,5 +834,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#56,d2			| d2 = event PRIORITY | 4
+		move.w	#56,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -880,5 +880,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#56,d2			| d2 = event PRIORITY | 4
+		move.w	#56,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -918,5 +918,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#56,d2			| d2 = event PRIORITY | 4
+		move.w	#56,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -955,5 +955,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#56,d2			| d2 = event PRIORITY | 4
+		move.w	#56,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -978,5 +978,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#60,d2			| d2 = event PRIORITY | 4
+		move.w	#60,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -1008,5 +1008,5 @@
 		move.w	d1,-(a7)		| save group number
 		move.w	(a7),d0			| col = group number
-		add.w	d0,d0			| ... | 5
+		add.w	d0,d0			| ... * 5
 		add.w	d0,d0			| ...
 		move.w	(a7)+,d2		| ...  (d2 = group number)
@@ -1050,5 +1050,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#60,d2			| d2 = event PRIORITY | 4
+		move.w	#60,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -1100,5 +1100,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#60,d2			| d2 = event PRIORITY | 4
+		move.w	#60,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
@@ -1150,5 +1150,5 @@
 		movea.l	d0,a1			| a1 = gdsp
 		move.l	G_NEXT(a1),_gdfsep	| gdfsep = gdsp->next
-		move.w	#60,d2			| d2 = event PRIORITY | 4
+		move.w	#60,d2			| d2 = event PRIORITY * 4
 		movea.l	P_SL(a6),a2		| a2 points at gdstb
 		move.l	0(a2,d2.W),G_NEXT(a1)	| gdsp->next = gdstb[pri]
Index: ram/seexec.s
===================================================================
--- ram/seexec.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ ram/seexec.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -3,7 +3,7 @@
 | Version 40 -- 1988-10-06 -- D.N. Lynx Crowe
 
-|	struct s_entry |
+|	struct s_entry *
 |	se_exec(ep, sd)
-|	struct s_entry |ep;
+|	struct s_entry *ep;
 |	short sd;
 
@@ -143,5 +143,5 @@
 nbegex:		clr.w	d1			| clear d1
 		move.b	E_GROUP(a0),d1		| get group number
-		add.w	d1,d1			| ... | 2
+		add.w	d1,d1			| ... * 2
 		lea	_grpstat,a1		| point at grpstat
 		tst.w	0(a1,d1.W)		| see if group is enabled
@@ -181,5 +181,5 @@
 nendex:		clr.w	d1			| clear d1
 		move.b	E_GROUP(a0),d1		| get group number
-		add.w	d1,d1			| ... | 2
+		add.w	d1,d1			| ... * 2
 		lea	_grpstat,a1		| point at grpstat
 		tst.w	0(a1,d1.W)		| check group status
@@ -188,5 +188,5 @@
 		move.b	E_NOTE(a0),d1		| d1 = note number nn (0..127)
 		move.w	#LCL_PCH,d2		| put port and channel in d2
-		add.w	d1,d2			| d2 = trg | 2
+		add.w	d1,d2			| d2 = trg * 2
 		add.w	d2,d2			| ...
 		lea	_trgtab,a1		| set trigger table entry off
Index: ram/serintr.s
===================================================================
--- ram/serintr.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ ram/serintr.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -166,5 +166,5 @@
 
 calldcd1:	move.w	d0,-(a7)		| Call the footswitch processor
-		jsr	(a2)			| ... (|footX)(status)
+		jsr	(a2)			| ... (*footX)(status)
 		tst.w	(a7)+			| ...
 		rts				| Return to caller
@@ -524,8 +524,8 @@
 | DCD interrupt processor vectors
 | -------------------------------
-_foot1:		.ds.l	1			| short (|foot1)();
-_foot2:		.ds.l	1			| short (|foot2)();
-_pulse1:	.ds.l	1			| short (|pulse1)();
-_pulse2:	.ds.l	1			| short (|pulse2)();
+_foot1:		.ds.l	1			| short (*foot1)();
+_foot2:		.ds.l	1			| short (*foot2)();
+_pulse1:	.ds.l	1			| short (*pulse1)();
+_pulse2:	.ds.l	1			| short (*pulse2)();
 
 		.end
Index: rom/bios.s
===================================================================
--- rom/bios.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ rom/bios.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -1,29 +1,29 @@
-||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
-|									       |
-| bios.s -- BIOS for the Buchla 700 and NASA 3D Helmet Display		       |
-| ------    --------------------------------------------------		       |
-|									       |
-| See VM1,VM2 and VDATE for version and date				       |
-| Written by D.N. Lynx Crowe						       |
-|									       |
-| Very loosely based on ideas from:					       |
-|									       |
-|	"Atari ST Internals", by Abacus Software,			       |
-|	"A Hitchhiker's Guide to the BIOS", by Atari,			       |
-| 	"DOS Technical Reference", by IBM,				       |
+|*******************************************************************************
+|									       *
+| bios.s -- BIOS for the Buchla 700 and NASA 3D Helmet Display		       *
+| ------    --------------------------------------------------		       *
+|									       *
+| See VM1,VM2 and VDATE for version and date				       *
+| Written by D.N. Lynx Crowe						       *
+|									       *
+| Very loosely based on ideas from:					       *
+|									       *
+|	"Atari ST Internals", by Abacus Software,			       *
+|	"A Hitchhiker's Guide to the BIOS", by Atari,			       *
+| 	"DOS Technical Reference", by IBM,				       *
 |	"DOS/360", by IBM,
-|	"CP/M" , by Digital Research, and, of course,			       |
-|	"Unix (tm)", by AT&T, et al.					       |
-|									       |
-| After all,  Why re-invent the wheel?					       |
-|									       |
-| Some of the functions are the same as Ataris, but quite a few are different, |
-| and our I/O configuration is much different, so BEWARE!  Make no	       |
-| assumptions, and read the documentation and comments very carefully.	       |
-|									       |
-| Especially watch out for the extended BIOS functions.  Most of them	       |
-| are nothing at all like the Atari / GEMDOS extended bios functions,	       |
-| and even the ones that are similar have different numbers.		       |
-||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|	"CP/M" , by Digital Research, and, of course,			       *
+|	"Unix (tm)", by AT&T, et al.					       *
+|									       *
+| After all,  Why re-invent the wheel?					       *
+|									       *
+| Some of the functions are the same as Ataris, but quite a few are different, *
+| and our I/O configuration is much different, so BEWARE!  Make no	       *
+| assumptions, and read the documentation and comments very carefully.	       *
+|									       *
+| Especially watch out for the extended BIOS functions.  Most of them	       *
+| are nothing at all like the Atari / GEMDOS extended bios functions,	       *
+| and even the ones that are similar have different numbers.		       *
+|*******************************************************************************
 
 		.text
@@ -39,5 +39,5 @@
 
 FL_SKR		=	0x00		| Seek rate  (WD1772, 6Ms/step)
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 
 		.page
@@ -1595,5 +1595,5 @@
 fastcopy:	move.l	4(a7),a0		| Get source pointer
 		move.l	8(a7),a1		| Get destination pointer
-		move.w	0x3F,d0			| 512 bytes  (63+1)|8
+		move.w	0x3F,d0			| 512 bytes  (63+1)*8
 
 fastcpy1:	move.b	(a0)+,(a1)+		| Move 8 bytes
@@ -1615,5 +1615,5 @@
 _hdvini:	link	a6,#-18			| Reserve space on stack
 		movem.l	d3-d7/a3-a5,-(a7)	| Preserve registers
-		move.l	#300,maxactim		| maxactim = 300 | 20ms
+		move.l	#300,maxactim		| maxactim = 300 * 20ms
 		clr.w	d0			| Put zeros in ...
 		move.w	d0,nflops		| ... nflops
@@ -1759,5 +1759,5 @@
 		move.w	d0,24(a5)		| Set dspt
 		move.w	20(a5),d0		| Get dnsides
-		muls.w	24(a5),d0		| ... | dspt
+		muls.w	24(a5),d0		| ... * dspt
 		move.w	d0,22(a5)		| Set dspc
 		move.l	#buffer+28,(a7)		| Convert number of hidden sects
@@ -1839,5 +1839,5 @@
 media4:		move.l	_hz_200,d0		| Get time in d0
 		movea.w	d7,a1			| Calculate acctim table address
-		add.l	a1,a1			| ... = drive # | 4
+		add.l	a1,a1			| ... = drive # * 4
 		add.l	a1,a1			| ...
 		add.l	#acctim,a1		| ... + acctim base address
@@ -1987,5 +1987,5 @@
 		movem.l	d2-d7/a5,-(a7)		| Save registers
 		move.w	16(a6),d0		| Drive number to d0
-		asl.w	#5,d0			| Shift ( |32 )
+		asl.w	#5,d0			| Shift ( *32 )
 		ext.l	d0			| Sign extend it, too
 		move.l	d0,a5			| Result in a5
@@ -2688,5 +2688,5 @@
 floplk01:	moveq.l	#0,d7			| Clear out d7
 		move.w	ccount(a5),d7		| Get ccount
-		lsl.w	#8,d7			| ... | sector length  (512)
+		lsl.w	#8,d7			| ... * sector length  (512)
 		lsl.w	#1,d7			| ...
 		move.l	cdma(a5),a0		| Get DMA start address
@@ -3309,9 +3309,9 @@
 
 		.page
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 |									|
 |			Constant definitions				|
 |			--------------------				|
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 
 		.even
@@ -3658,9 +3658,9 @@
 
 		.page
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 | 									|
 | 			RAM storage definitions				|
 |			-----------------------				|
-|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+|************************************************************************
 
 		.bss
@@ -3736,5 +3736,5 @@
 rsarea:		.ds.l	1		| Dummy long word at top of save area
 
-| ||||| end of the permanently assigned bios variables |||||
+| ***** end of the permanently assigned bios variables *****
 
 		.page
Index: vlib/glcplot.s
===================================================================
--- vlib/glcplot.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/glcplot.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -28,5 +28,5 @@
 
 _GLCplot:	link	a6,#0			| Link stack frames
-		moveq	#63,d0			| d0 = (63-y) | 85
+		moveq	#63,d0			| d0 = (63-y) * 85
 		sub.w	YLOC(a6),d0		| ...
 		mulu	#85,d0			| ...
@@ -34,5 +34,5 @@
 		move.w	XLOC(a6),d1		| ...
 		divu	#6,d1			| ...
-		add.w	d1,d0			| d0 = (63-y)|85 + (x/6)
+		add.w	d1,d0			| d0 = (63-y)*85 + (x/6)
 		swap	d1			| d2 = 7 - (x%6) % 8
 		moveq	#7,d2			| ...
Index: vlib/tsplot4.s
===================================================================
--- vlib/tsplot4.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/tsplot4.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -7,6 +7,6 @@
 
 |	tsplot4(obase, nw, fg, row, col, str. pitch)
-|	int |obase, nw, fg, row, col, pitch;
-|	char |str;
+|	int *obase, nw, fg, row, col, pitch;
+|	char *str;
 
 |		Outputs characters from the string at 'str' to an 'nw'
@@ -77,10 +77,10 @@
 		move.w	ROW(a6),d0	| Calculate output address
 		move.w	PITCH(a6),d1	| ... PITCH
-		mulu	d1,d0		| ... | ROW
+		mulu	d1,d0		| ... * ROW
 		add.w	#VPIX-1,d0	| ... + VPIX-1
-		mulu	d5,d0		| ... | NW
+		mulu	d5,d0		| ... * NW
 		clr.l	d1		| ...
 		move.w	COL(a6),d1	| ... +
-		lsl.w	#2,d1		| ... COL | 4
+		lsl.w	#2,d1		| ... COL * 4
 		add.l	d1,d0		| ...
 		add.l	OBASE(a6),d0	| ... + OBASE
@@ -95,5 +95,5 @@
 		adda.l	#HCW,a3		| Update output pointer for next char.
 		lea	_cgtable,a0	| Establish CG pointer in a0
-		lsl.w	#1,d0		| ... 2 | character
+		lsl.w	#1,d0		| ... 2 * character
 		adda.w	d0,a0		| ... + _cgtable address
 		move.w	#VPIX-1,d6	| Set scan line counter in d6
Index: vlib/vclrav.s
===================================================================
--- vlib/vclrav.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vclrav.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 
 |	vclrav(adr, row, col, atr, len)
-|	unsigned int |adr, row, col, atr, len;
+|	unsigned int *adr, row, col, atr, len;
 
 |		Clears attribute 'atr' at ('row', 'col') in the
@@ -28,5 +28,5 @@
 		move.w	P_COL(a6),d1	| Get col
 		add.l	d1,d0		| Add col into d0 to get char. #
-		move.l	d0,d1		| Develop cw = (cn/2)|6 in d1
+		move.l	d0,d1		| Develop cw = (cn/2)*6 in d1
 		andi.l	#0xFFFFFFFE,d1	| ...
 		move.l	d1,d2		| ...
Index: vlib/vcputs.s
===================================================================
--- vlib/vcputs.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vcputs.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,6 +6,6 @@
 
 |	vcputs(obase, nw, fg, bg, row, col, str)
-|	int |obase, nw, fg, bg, row, col;
-|	char |str;
+|	int *obase, nw, fg, bg, row, col;
+|	char *str;
 
 |		Outputs characters from the string at 'str' to an 'nw'
@@ -73,10 +73,10 @@
 		move.w	ROW(a6),d0	| Calculate output address
 		move.w	#VPIX,d1	| ... VPIX
-		mulu	d1,d0		| ... | ROW
+		mulu	d1,d0		| ... * ROW
 		add.w	#VPIX-1,d0	| ... + VPIX-1
-		mulu	d5,d0		| ... | NW
+		mulu	d5,d0		| ... * NW
 		clr.l	d1		| ...
 		move.w	COL(a6),d1	| ... +
-		lsl.w	#2,d1		| ... COL | 4
+		lsl.w	#2,d1		| ... COL * 4
 		add.l	d1,d0		| ...
 		add.l	OBASE(a6),d0	| ... + OBASE
@@ -91,5 +91,5 @@
 		adda.l	#HCW,a3		| Update output pointer for next char.
 		lea	_cgtable,a0	| Establish CG pointer in a0
-		lsl.w	#1,d0		| ... 2 | character
+		lsl.w	#1,d0		| ... 2 * character
 		adda.w	d0,a0		| ... + _cgtable address
 		move.w	#VPIX-1,d6	| Set scan line counter in d6
Index: vlib/vcputsv.s
===================================================================
--- vlib/vcputsv.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vcputsv.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -7,6 +7,6 @@
 
 |	vcputsv(obase, nw, fg, bg, row, col, str. pitch)
-|	int |obase, nw, fg, bg, row, col, pitch;
-|	char |str;
+|	int *obase, nw, fg, bg, row, col, pitch;
+|	char *str;
 
 |		Outputs characters from the string at 'str' to an 'nw'
@@ -80,10 +80,10 @@
 		move.w	ROW(a6),d0	| Calculate output address
 		move.w	PITCH(a6),d1	| ... PITCH
-		mulu	d1,d0		| ... | ROW
+		mulu	d1,d0		| ... * ROW
 		add.w	#VPIX-1,d0	| ... + VPIX-1
-		mulu	d5,d0		| ... | NW
+		mulu	d5,d0		| ... * NW
 		clr.l	d1		| ...
 		move.w	COL(a6),d1	| ... +
-		lsl.w	#2,d1		| ... COL | 4
+		lsl.w	#2,d1		| ... COL * 4
 		add.l	d1,d0		| ...
 		add.l	OBASE(a6),d0	| ... + OBASE
@@ -98,5 +98,5 @@
 		adda.l	#HCW,a3		| Update output pointer for next char.
 		lea	_cgtable,a0	| Establish CG pointer in a0
-		lsl.w	#1,d0		| ... 2 | character
+		lsl.w	#1,d0		| ... 2 * character
 		adda.w	d0,a0		| ... + _cgtable address
 		move.w	#VPIX-1,d6	| Set scan line counter in d6
Index: vlib/vputa.s
===================================================================
--- vlib/vputa.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vputa.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 
 |	vputa(sbase, row, col, attrib)
-|	unsigned int |sbase, row, col, attrib;
+|	unsigned int *sbase, row, col, attrib;
 
 |		Stores attribute value 'attrib' for the character
@@ -28,5 +28,5 @@
 		andi.l	#0x0000003F,d1	| Mask down to 6 bits
 		or.l	d1,d0		| OR into d0 to get char. #
-		move.w	d0,d1		| Develop cw = (cn/2)|6 in d1
+		move.w	d0,d1		| Develop cw = (cn/2)*6 in d1
 		andi.l	#0xFFFFFFFE,d1	| ...
 		move.l	d1,d2		| ...
Index: vlib/vputc.s
===================================================================
--- vlib/vputc.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vputc.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 
 |	vputc(sbase, row, col, c, attrib)
-|	unsigned int |sbase, row, col, c, attrib;
+|	unsigned int *sbase, row, col, c, attrib;
 
 |		Stores character c at (row,col) in sbase with
@@ -23,5 +23,5 @@
 		andi.l	#0x0000003F,d1	| Mask down to 6 bits
 		or.l	d1,d0		| OR into d0 to get char. #
-		move.w	d0,d1		| Develop cw = (cn/2)|6 in d1
+		move.w	d0,d1		| Develop cw = (cn/2)*6 in d1
 		andi.l	#0xFFFFFFFE,d1	| ...
 		move.l	d1,d2		| ...
Index: vlib/vputcv.s
===================================================================
--- vlib/vputcv.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vputcv.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 
 |	vputcv(adr, row, col, chr, atr, cols)
-|	unsigned int |adr, row, col, chr, atr, cols;
+|	unsigned int *adr, row, col, chr, atr, cols;
 
 |		Stores character 'chr' at ('row', 'col') in the
@@ -32,5 +32,5 @@
 		move.w	P_COL(a6),d1	| Get col
 		add.l	d1,d0		| Add col into d0 to get char. #
-		move.l	d0,d1		| Develop cw = (cn/2)|6 in d1
+		move.l	d0,d1		| Develop cw = (cn/2)*6 in d1
 		andi.l	#0xFFFFFFFE,d1	| ...
 		move.l	d1,d2		| ...
Index: vlib/vputp.s
===================================================================
--- vlib/vputp.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vputp.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 |	int
 |	vputp(octad, xloc, yloc, val)
-|	struct octent |octad;
+|	struct octent *octad;
 |	int xloc, yloc;
 
Index: vlib/vsetav.s
===================================================================
--- vlib/vsetav.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vsetav.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 
 |	vsetav(adr, row, col, atr, len)
-|	unsigned int |adr, row, col, atr, len;
+|	unsigned int *adr, row, col, atr, len;
 
 |		Sets attribute 'atr' at ('row', 'col') in the
@@ -28,5 +28,5 @@
 		move.w	P_COL(a6),d1	| Get col
 		add.l	d1,d0		| Add col into d0 to get char. #
-		move.l	d0,d1		| Develop cw = (cn/2)|6 in d1
+		move.l	d0,d1		| Develop cw = (cn/2)*6 in d1
 		andi.l	#0xFFFFFFFE,d1	| ...
 		move.l	d1,d2		| ...
Index: vlib/vsetcv.s
===================================================================
--- vlib/vsetcv.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vsetcv.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 
 |	vsetcv(adr, row, col, cfb, len)
-|	unsigned int |adr, row, col, cfb, len;
+|	unsigned int *adr, row, col, cfb, len;
 
 |		Sets colors 'cfb' at ('row', 'col') in the
@@ -28,5 +28,5 @@
 		move.w	P_COL(a6),d1	| Get col
 		add.l	d1,d0		| Add col into d0 to get char. #
-		move.l	d0,d1		| Develop cw = (cn/2)|6 in d1
+		move.l	d0,d1		| Develop cw = (cn/2)*6 in d1
 		andi.l	#0xFFFFFFFE,d1	| ...
 		move.l	d1,d2		| ...
Index: vlib/vsplot4.s
===================================================================
--- vlib/vsplot4.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vsplot4.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -7,6 +7,6 @@
 
 |	vsplot4(obase, nw, fg, row, col, str, pitch, ht, cgtab)
-|	uint |obase, nw, fg, row, col, pitch, ht, cgtab[][256];
-|	char |str;
+|	uint *obase, nw, fg, row, col, pitch, ht, cgtab[][256];
+|	char *str;
 
 |		Outputs characters from the string at 'str' to an 'nw'
@@ -78,11 +78,11 @@
 		move.w	ROW(a6),d0	| Calculate output address
 		move.w	PITCH(a6),d1	| ... PITCH
-		mulu	d1,d0		| ... | ROW
+		mulu	d1,d0		| ... * ROW
 		add.w	HT(a6),d0	| ... + HT-1
 		subq.w	#1,d0		| ...
-		mulu	d5,d0		| ... | NW
+		mulu	d5,d0		| ... * NW
 		clr.l	d1		| ...
 		move.w	COL(a6),d1	| ... +
-		lsl.w	#2,d1		| ... COL | 4
+		lsl.w	#2,d1		| ... COL * 4
 		add.l	d1,d0		| ...
 		add.l	OBASE(a6),d0	| ... + OBASE
@@ -97,5 +97,5 @@
 		adda.l	#HCW,a3		| Update output pointer for next char.
 		movea.l	CGTAB(a6),a0	| Establish CG pointer in a0
-		lsl.w	#1,d0		| ... 2 | character
+		lsl.w	#1,d0		| ... 2 * character
 		adda.w	d0,a0		| ... + cgtab address
 		move.w	HT(a6),d6	| Set scan line counter in d6
Index: vlib/vvputsv.s
===================================================================
--- vlib/vvputsv.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vvputsv.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -7,6 +7,6 @@
 
 |	vvputsv(obase, nw, fg, bg, row, col, str, pitch, ht, cgtab)
-|	uint |obase, nw, fg, bg, row, col, pitch, ht, cgtab[][256];
-|	char |str;
+|	uint *obase, nw, fg, bg, row, col, pitch, ht, cgtab[][256];
+|	char *str;
 
 |		Outputs characters from the string at 'str' to an 'nw'
@@ -79,11 +79,11 @@
 		move.w	ROW(a6),d0	| Calculate output address
 		move.w	PITCH(a6),d1	| ... PITCH
-		mulu	d1,d0		| ... | ROW
+		mulu	d1,d0		| ... * ROW
 		add.w	HT(a6),d0	| ... + HT-1
 		subq.w	#1,d0		| ...
-		mulu	d5,d0		| ... | NW
+		mulu	d5,d0		| ... * NW
 		clr.l	d1		| ...
 		move.w	COL(a6),d1	| ... +
-		lsl.w	#2,d1		| ... COL | 4
+		lsl.w	#2,d1		| ... COL * 4
 		add.l	d1,d0		| ...
 		add.l	OBASE(a6),d0	| ... + OBASE
@@ -98,5 +98,5 @@
 		adda.l	#HCW,a3		| Update output pointer for next char.
 		movea.l	CGTAB(a6),a0	| Establish CG pointer in a0
-		lsl.w	#1,d0		| ... 2 | character
+		lsl.w	#1,d0		| ... 2 * character
 		adda.w	d0,a0		| ... + cg table address
 		move.w	HT(a6),d6	| Set scan line counter in d6
Index: vlib/vwputp.s
===================================================================
--- vlib/vwputp.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vwputp.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,5 +6,5 @@
 |	int
 |	vwputp(octad, xloc, yloc, val)
-|	struct octent |octad;
+|	struct octent *octad;
 |	int xloc, yloc;
 
Index: vlib/vwputs.s
===================================================================
--- vlib/vwputs.s	(revision 15854f14d5a7dc3acd9835b622e4c568cc5c4fa3)
+++ vlib/vwputs.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
@@ -6,6 +6,6 @@
 
 |	vwputs(obase, nw, fg, bg, row, col, str)
-|	int |obase, nw, fg, bg, row, col;
-|	char |str;
+|	int *obase, nw, fg, bg, row, col;
+|	char *str;
 
 |		Outputs characters from the string at 'str' to an 'nw'
@@ -67,9 +67,9 @@
 		move.w	ROW(a6),d0	| Calculate output address
 		move.w	#VPITCH,d1	| ...
-		mulu	d1,d0		| ... ROW | VPITCH
+		mulu	d1,d0		| ... ROW * VPITCH
 		add.w	#NVPIX-1,d0	| ... + NVPIX-1
-		mulu	d5,d0		| ... | NW
+		mulu	d5,d0		| ... * NW
 		clr.l	d1		| ...
-		move.w	COL(a6),d1	| ... + (COL | 2)
+		move.w	COL(a6),d1	| ... + (COL * 2)
 		lsl.l	#1,d1		| ...
 		add.l	d1,d0		| ...
@@ -86,5 +86,5 @@
 		adda.l	#2,a3		| Update output pointer for next char.
 		lea	_cgtable,a0	| Establish CG pointer in a0
-		lsl.w	#1,d0		| ... 2 | character
+		lsl.w	#1,d0		| ... 2 * character
 		adda.w	d0,a0		| ... + _cgtable address
 		move.w	#NVPIX-1,d6	| Set scan line counter in d6