X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=procln.c;h=8dd19c6371cb93192cbde7953b91786662e188e9;hp=f5a806b0bf9bbb7c0592a313a17d17dad99b39df;hb=81c752326a21408c84f98a18aed065491a88b779;hpb=ff8188b7e279f99cf11ac8a283c4146af324d26f

diff --git a/procln.c b/procln.c
index f5a806b..8dd19c6 100644
--- a/procln.c
+++ b/procln.c
@@ -281,7 +281,6 @@ as68label:
 	case DOTX: siz = SIZX, tok++; break;
 	}
 
-
 	// Do special directives (500..999) (These must be handled in "real time")
 	if (state >= 500 && state < 1000)
 	{
@@ -465,12 +464,11 @@ When checking to see if it's already been equated, issue a warning.
 				{
 					// Advance token pointer to the constant
 					tok += 3;
-					tok++;		// Skip the hi LONG, so pointing at lo LONG
 
 					// Anything other than a 0 or a 1 will result in "No Bank"
-					if (*tok == 0)
+					if (*(uint64_t *)tok == 0)
 						registerbank = BANK_0;
-					else if (*tok == 1)
+					else if (*(uint64_t *)tok == 1)
 						registerbank = BANK_1;
 				}
 
@@ -580,7 +578,7 @@ When checking to see if it's already been equated, issue a warning.
 		sy->svalue = eval;
 
 		if (list_flag)					// Put value in listing
-			listvalue(eval);
+			listvalue((uint32_t)eval);
 
 		at_eol();						// Must be at EOL now
 		goto loop;