.TITLE AUXVER - Show AUX Version .IDENT /1.2/ .ENABL LC ;+ ; ; Free software BY ; Project Software & Development, Inc. ; ; This software is furnished for free and may be used and copied as ; desired. This software or any other copies thereof may be provided or ; otherwise made available to any other person. No title to and ; ownership of the software is hereby transferred or allowed. ; ; The information in this software is subject to change without notice ; and should not be construed as a commitment by PROJECT SOFTWARE ; AND DEVELOPMENT, INC. ; ; PROJECT SOFTWARE assumes no responsibility for the use or reliability ; of this software on any equipment whatsoever. ; ; Project Software & Development, Inc. ; 14 Story St. ; Cambridge, Ma. 02138 ; 617-661-1444 ; ; ; Title: AUXVER.MAC ; Author: Robin Miller ; Date: July 23, 1985 ; ; Updated Sept 11, 86 F.Borger ; ; Description: ; ; Action routine to display the AUX version number. ; ;- .ENABL AMA .NLIST BEX .psect rwdata,rw,d,lcl,rel,con ; Messages: AUXVER: .ASCII "AUX Ver. 1.2 - Nov 26, 85 - " AUTHOR: .ASCIZ "by Robin Miller - " IASVER: .ASCII "IAS version Sep 86 - " IASAUT: .ASCIZ "By F. Borger" FFCHAR: .byte 14,0 .EVEN .psect code,ro,i,lcl,rel,con ; Action routine for the "SHOW VERSION" command. SHOVER::MOV #AUXVER,R1 ; Set address of version message. MOV #IASVER,R2 ; Set address of 2nd version message. jmp wrt2ms ; Display it on the message line. ; RETURN SHOFF:: mov #ffchar,r1 ;show address of ff jmp wrtmsg ; return .END