[Info-vax] Native compilers

Bill Gunshannon bill.gunshannon at gmail.com
Sat Feb 19 16:56:47 EST 2022


On 2/19/22 16:09, VAXman- at SendSpamHere.ORG wrote:
> In article <surhbf$jt$1 at dont-email.me>, Dave Froble <davef at tsoft-inc.com> writes:
>> On 2/19/2022 1:22 PM, John Reagan wrote:
>>> With all the various threads talking about compilers and such, here's a "demo" (compilers are hard to demo) of a the native Macro compiler.
>>>
>>> $ type hw.mar
>>> .TITLE  hello
>>> .PSECT RDATA,NOWRT,SHR,NOPIC,NOEXE,RD,QUAD
>>> HI:     .ASCID /Hello, World!/
>>> .PSECT CODE,NOWRT,SHR,PIC,EXE,RD,QUAD
>>> START:: .CALL_ENTRY PRESERVE=<>,MAX_ARGS=0,HOME_ARGS=TRUE
>>> PUSHAQ  HI
>>> CALLS   #1,G^LIB$PUT_OUTPUT
>>> BLBC    R0,10$
>>> MOVL    #SS$_NORMAL,R0
>>> 10$:    RET
>>> .END    START
>>> $
>>> $ show system /noproc
>>> OpenVMS XG5P-H4S  on node X86VMS   19-FEB-2022 13:09:56.72   Uptime  2 03:28:17
>>> $ write sys$output f$getsyi("arch_name")
>>> x86_64
>>> $ macro hw
>>> $ link hw
>>> $ run hw
>>> Hello, World!
>>>
>>>
>>
>> Great demo.
> 
> ... but not great Macro. ;)
> 

How's this for Macro?

            .MCALL  .PRINT .EXIT
MESG1:     .ASCIZ  " HELLO WORLD "
            .EVEN
START:
            .PRINT  #MESG1
DONE:
;   CLEAN UP AND GO BACK TO KMON
            .EXIT
            .END     START


:-)

bill





More information about the Info-vax mailing list