X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=parmode.h;h=543701ace549f4bb9e9ee4c879888a1f6cab2c70;hp=11b16bfbe81894d962029d18cf88d40a65930f77;hb=d9aaeb6dc9db7a224a85e8a8ca44ddcb23cf7657;hpb=6c1bc379012b1c1ca369e71e39509f3538042382 diff --git a/parmode.h b/parmode.h index 11b16bf..543701a 100644 --- a/parmode.h +++ b/parmode.h @@ -3,7 +3,7 @@ // PARMODE.C - Addressing Modes Parser Include // Copyright (C) 199x Landon Dyer, 2011 Reboot and Friends // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986 -// Source Utilised with the Kind Permission of Landon Dyer +// Source utilised with the kind permission of Landon Dyer // // This file is included (twice) to parse two addressing modes, into slightly @@ -224,21 +224,25 @@ return ERROR; if (*tok == DOTW) - { // expr.W + { + // expr.W tok++; AMn = ABSW; goto AnOK; } else if (*tok != '(') - { // expr[.L] + { + // expr[.L] AMn = ABSL; - // Defined, absolute values from $FFFF8000..$00007FFF get optimized to absolute short + // Defined, absolute values from $FFFF8000..$00007FFF get optimized + // to absolute short if ((AnEXATTR & (TDB|DEFINED)) == DEFINED && (AnEXVAL + 0x8000) < 0x10000) AMn = ABSW; + // Is .L forced here? if (*tok == DOTL) - { // force .L + { tok++; AMn = ABSL; } @@ -246,7 +250,7 @@ goto AnOK; } - ++tok; + tok++; if ((*tok >= KW_A0) && (*tok <= KW_A7)) {