I agree with Steve Smith that you should simply allow a length or register.

As for determining an equate, you can't specifically test for it. An equate can 
be defined that exactly matches any DS or DC. You'll have to make an 
assumption. Will the EQUATE length always be omitted then it will have a length 
of 1. Will the type always be ommitted then T' will be U but if the equate is 
symbol is defined after the test, then it will also have a type U regardless of 
it's true type. You could require length be 1 because that's equates default.

You could simply test for type A and F to do a load otherwise assume it's an LHI


Jon Perryman.


>________________________________
> From: "[email protected]" <[email protected]>
>To: [email protected]
>Sent: Saturday, November 2, 2013 12:11 PM
>Subject: Re: Some Help with Conditional Assembly
>
>
>I obviously did not explain this wellm despite some coding errors..
>I was hoping the Macro itself would test the value of the parameter and then 
>generate the proper instruction.
>For Example: couldnt I use several TYPE attrinute
>
>    AIF (T'&L EQ 'A').DOLOAD       A-type Address
>    AIF (T'&L EQ 'N").DOLADD       decimal numeric
>
>If my understaning of the TYPE Attribute is correct, I dont
>see an Attribute for an equate.
>
>
>Paul D'Angelo
>*
>
>---------- Original Message ----------
>From: "Andreas F. Geissbuehler" <[email protected]>
>To: [email protected]
>Subject: Re: Some Help with Conditional Assembly
>Date: Sat, 2 Nov 2013 14:17:08 -0400
>
>From: <ssteam@***.com
>> If I Specify AMOVE L=32767
>> I want the macro to generate a Load Addres
>>       LA  Rz,32767
>
>Paul, surely you meant 4095 ...
>
>    L    Rz, *+(L&SYSNDX.-*)
>    ...
>L&SYSNDX DC A(&L)    as Martin Truebner recommends
>
>otherwise:
>        AIF (&L GT 0 AND &L LT 4096).LA
>.* or
>        AIF (&L  LT 4096).LA    assumes EQUATE < 4096
>        J         *+8                jump inline constant
>        DC    AL4(&L)        note AL4 or CNOP required
>        L        Rz,*-4
>        AGO    .LX
>.LA     ANOP
>        LA    Rz,&L
>.LX     ANOP
>
>Andreas Geissbuehler
>
>
>

Reply via email to