Index: ram/execkey.s
===================================================================
--- ram/execkey.s	(revision 84920eb0d6f9de17a749d2ddf022e76cb6927a00)
+++ 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 84920eb0d6f9de17a749d2ddf022e76cb6927a00)
+++ 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 84920eb0d6f9de17a749d2ddf022e76cb6927a00)
+++ 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 84920eb0d6f9de17a749d2ddf022e76cb6927a00)
+++ 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
