diff --git a/inc/arithopsdefs.h b/inc/arithopsdefs.h
index d1f2f54..164c10c 100644
--- a/inc/arithopsdefs.h
+++ b/inc/arithopsdefs.h
@@ -1,23 +1,23 @@
 #ifndef ARITHOPSDEFS_H
 #define ARITHOPSDEFS_H 1
 #include "lispemul.h" /* for LispPTR */
-LispPTR N_OP_plus2(int tosm1, int tos);
-LispPTR N_OP_iplus2(int tosm1, int tos);
-LispPTR N_OP_difference(int tosm1, int tos);
-LispPTR N_OP_idifference(int tosm1, int tos);
-LispPTR N_OP_logxor(int tosm1, int tos);
-LispPTR N_OP_logand(int tosm1, int tos);
-LispPTR N_OP_logor(int tosm1, int tos);
-LispPTR N_OP_greaterp(int tosm1, int tos);
-LispPTR N_OP_igreaterp(int tosm1, int tos);
-LispPTR N_OP_iplusn(int tos, int n);
-LispPTR N_OP_idifferencen(int tos, int n);
-LispPTR N_OP_makenumber(int tosm1, int tos);
-LispPTR N_OP_boxiplus(int a, int tos);
-LispPTR N_OP_boxidiff(int a, int tos);
-LispPTR N_OP_times2(int tosm1, int tos);
-LispPTR N_OP_itimes2(int tosm1, int tos);
-LispPTR N_OP_quot(int tosm1, int tos);
-LispPTR N_OP_iquot(int tosm1, int tos);
-LispPTR N_OP_iremainder(int tosm1, int tos);
+LispPTR N_OP_plus2(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_iplus2(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_difference(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_idifference(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_logxor(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_logand(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_logor(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_greaterp(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_igreaterp(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_iplusn(LispPTR tos, int n);
+LispPTR N_OP_idifferencen(LispPTR tos, int n);
+LispPTR N_OP_makenumber(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_boxiplus(LispPTR a, LispPTR tos);
+LispPTR N_OP_boxidiff(LispPTR a, LispPTR tos);
+LispPTR N_OP_times2(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_itimes2(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_quot(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_iquot(LispPTR tosm1, LispPTR tos);
+LispPTR N_OP_iremainder(LispPTR tosm1, LispPTR tos);
 #endif
diff --git a/inc/bindefs.h b/inc/bindefs.h
index 5a153a0..052732c 100644
--- a/inc/bindefs.h
+++ b/inc/bindefs.h
@@ -1,5 +1,5 @@
 #ifndef BINDEFS_H
 #define BINDEFS_H 1
 #include "lispemul.h" /* for LispPTR */
-LispPTR N_OP_bin(register int tos);
+LispPTR N_OP_bin(LispPTR tos);
 #endif
diff --git a/inc/bitbltdefs.h b/inc/bitbltdefs.h
index 7c34c26..3985d45 100644
--- a/inc/bitbltdefs.h
+++ b/inc/bitbltdefs.h
@@ -1,7 +1,7 @@
 #ifndef BITBLTDEFS_H
 #define BITBLTDEFS_H 1
 #include "lispemul.h" /* for LispPTR, DLword */
-LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos);
+LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl, LispPTR tos);
 int cursorin(DLword addrhi, DLword addrlo, int w, int h, int backward);
 #endif
 
diff --git a/inc/lowlev2defs.h b/inc/lowlev2defs.h
index d9c3db1..ceba575 100644
--- a/inc/lowlev2defs.h
+++ b/inc/lowlev2defs.h
@@ -1,7 +1,7 @@
 #ifndef LOWLEV2DEFS_H
 #define LOWLEV2DEFS_H 1
 #include "lispemul.h" /* for LispPTR */
-LispPTR N_OP_addbase(register int base, register int offset);
-LispPTR N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset);
-LispPTR N_OP_putbasebyte(register LispPTR base_addr, register int byteoffset, register int tos);
+LispPTR N_OP_addbase(LispPTR base, LispPTR offset);
+LispPTR N_OP_getbasebyte(LispPTR base_addr, LispPTR byteoffset);
+LispPTR N_OP_putbasebyte(LispPTR base_addr, LispPTR byteoffset, LispPTR tos);
 #endif
diff --git a/src/arithops.c b/src/arithops.c
index 57d5f7f..caf8b72 100644
--- a/src/arithops.c
+++ b/src/arithops.c
@@ -23,7 +23,7 @@ N_OP_plus2
         return(tos + b)
 ************************************************************/
 
-LispPTR N_OP_plus2(int tosm1, int tos) {
+LispPTR N_OP_plus2(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -58,7 +58,7 @@ doufn:
 /*									*/
 /************************************************************************/
 
-LispPTR N_OP_iplus2(int tosm1, int tos) {
+LispPTR N_OP_iplus2(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -92,7 +92,7 @@ N_OP_difference
         return(a - tos)
 ************************************************************/
 
-LispPTR N_OP_difference(int tosm1, int tos) {
+LispPTR N_OP_difference(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -119,7 +119,7 @@ doufn:
   return (N_OP_fdifference(tosm1, tos));
 }
 
-LispPTR N_OP_idifference(int tosm1, int tos) {
+LispPTR N_OP_idifference(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -150,7 +150,7 @@ N_OP_logxor
         return(tosm1 ^ tos)
 ************************************************************/
 
-LispPTR N_OP_logxor(int tosm1, int tos) {
+LispPTR N_OP_logxor(LispPTR tosm1, LispPTR tos) {
     int arg1, arg2;
 
     N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -169,7 +169,7 @@ N_OP_logand
         entry		LOGAND2		OPCODE[0345]
         return(tosm1 & tos)
 ************************************************************/
-LispPTR N_OP_logand(int tosm1, int tos) {
+LispPTR N_OP_logand(LispPTR tosm1, LispPTR tos) {
     int arg1, arg2;
 
     N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -188,7 +188,7 @@ N_OP_logor
         entry		LOGOR2		OPCODE[0344]
         return(tosm1 | tos)
 ************************************************************/
-LispPTR N_OP_logor(int tosm1, int tos) {
+LispPTR N_OP_logor(LispPTR tosm1, LispPTR tos) {
       int arg1, arg2;
 
     N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -209,7 +209,7 @@ N_OP_greaterp
         return(tosm1 > tos)
 
 ************************************************************/
-LispPTR N_OP_greaterp(int tosm1, int tos) {
+LispPTR N_OP_greaterp(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
 
   N_GETNUMBER(tosm1, arg1, do_ufn);
@@ -224,7 +224,7 @@ do_ufn:
   return (N_OP_fgreaterp(tosm1, tos));
 }
 
-LispPTR N_OP_igreaterp(int tosm1, int tos) {
+LispPTR N_OP_igreaterp(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
 
   N_IGETNUMBER(tosm1, arg1, do_ufn);
@@ -244,7 +244,7 @@ N_OP_iplusn
         entry		IPLUS.N		OPCODE[0335]
         return(tos + n)
 ************************************************************/
-LispPTR N_OP_iplusn(int tos, int n) {
+LispPTR N_OP_iplusn(LispPTR tos, int n) {
   int arg1;
   int result;
 
@@ -274,7 +274,7 @@ N_OP_idifferencen
         entry		IDIFFERENCE.N		OPCODE[0336]
         return(tos - n)
 ************************************************************/
-LispPTR N_OP_idifferencen(int tos, int n) {
+LispPTR N_OP_idifferencen(LispPTR tos, int n) {
   int arg1;
   int result;
 
@@ -308,7 +308,7 @@ do_ufn:
 /*									*/
 /************************************************************************/
 
-LispPTR N_OP_makenumber(int tosm1, int tos) {
+LispPTR N_OP_makenumber(LispPTR tosm1, LispPTR tos) {
   int result;
 
   if (((tosm1 & 0xFFFF0000) != S_POSITIVE) || ((tos & 0xFFFF0000) != S_POSITIVE)) ERROR_EXIT(tos);
@@ -326,7 +326,7 @@ LispPTR N_OP_makenumber(int tosm1, int tos) {
 /*									*/
 /************************************************************************/
 
-LispPTR N_OP_boxiplus(int a, int tos) {
+LispPTR N_OP_boxiplus(LispPTR a, LispPTR tos) {
   int arg2;
 
   if (GetTypeNumber(a) == TYPE_FIXP) {
@@ -349,7 +349,7 @@ bad:
 /*									*/
 /************************************************************************/
 
-LispPTR N_OP_boxidiff(int a, int tos) {
+LispPTR N_OP_boxidiff(LispPTR a, LispPTR tos) {
   int arg2;
 
   if (GetTypeNumber(a) == TYPE_FIXP) {
@@ -369,7 +369,7 @@ bad:
 
 */
 /**********************************************************************/
-LispPTR N_OP_times2(int tosm1, int tos) {
+LispPTR N_OP_times2(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -398,7 +398,7 @@ doufn:
 
 } /* end N_OP_times2 */
 
-LispPTR N_OP_itimes2(int tosm1, int tos) {
+LispPTR N_OP_itimes2(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -433,7 +433,7 @@ doufn:
 
 */
 /**********************************************************************/
-LispPTR N_OP_quot(int tosm1, int tos) {
+LispPTR N_OP_quot(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -451,7 +451,7 @@ doufn:
 
 } /* end N_OP_quot */
 
-LispPTR N_OP_iquot(int tosm1, int tos) {
+LispPTR N_OP_iquot(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
@@ -475,7 +475,7 @@ doufn:
 */
 /**********************************************************************/
 
-LispPTR N_OP_iremainder(int tosm1, int tos) {
+LispPTR N_OP_iremainder(LispPTR tosm1, LispPTR tos) {
   int arg1, arg2;
   int result;
 
diff --git a/src/bin.c b/src/bin.c
index 6664dcb..431f0b6 100644
--- a/src/bin.c
+++ b/src/bin.c
@@ -31,7 +31,7 @@
 #include "lsptypes.h"  // for state, ERROR_EXIT, GetTypeNumber, Get_BYTE
 #include "stream.h"    // for Stream
 
-LispPTR N_OP_bin(register int tos) {
+LispPTR N_OP_bin(LispPTR tos) {
   register Stream *stream68k; /* stream instance on TOS */
   register char *buff68k;     /* pointer to BUFF */
 
diff --git a/src/bitblt.c b/src/bitblt.c
index d199f07..ddca765 100644
--- a/src/bitblt.c
+++ b/src/bitblt.c
@@ -59,7 +59,7 @@ extern int MonoOrColor;
 /**                                                                         **/
 /*****************************************************************************/
 
-LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos)
+LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl, LispPTR tos)
 {
   PILOTBBT *pbt;
   DLword *srcbase, *dstbase;
diff --git a/src/lowlev2.c b/src/lowlev2.c
index ee78941..79a7d6f 100644
--- a/src/lowlev2.c
+++ b/src/lowlev2.c
@@ -35,7 +35,7 @@
 
 ***********************************************************/
 
-LispPTR N_OP_addbase(register int base, register int offset) {
+LispPTR N_OP_addbase(LispPTR base, LispPTR offset) {
   base = POINTERMASK & base;
   switch ((SEGMASK & offset)) {
     case S_POSITIVE: return (base + (offset & 0x0000FFFF));
@@ -65,7 +65,7 @@ LispPTR N_OP_addbase(register int base, register int offset) {
 
 ***********************************************************/
 
-LispPTR N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset) {
+LispPTR N_OP_getbasebyte(LispPTR base_addr, LispPTR byteoffset) {
   switch ((SEGMASK & byteoffset)) {
     case S_POSITIVE: byteoffset = byteoffset & 0x0000FFFF; break;
     case S_NEGATIVE: byteoffset = byteoffset | 0xFFFF0000; break;
@@ -93,7 +93,7 @@ LispPTR N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset) {
 
 ***********************************************************/
 
-LispPTR N_OP_putbasebyte(register LispPTR base_addr, register int byteoffset, register int tos) {
+LispPTR N_OP_putbasebyte(register LispPTR base_addr, LispPTR byteoffset, LispPTR tos) {
   if (((SEGMASK & tos) != S_POSITIVE) || ((unsigned short)tos >= 256)) ERROR_EXIT(tos);
   switch ((SEGMASK & byteoffset)) {
     case S_POSITIVE: byteoffset &= 0x0000FFFF; break;