.NLIST .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: AUXPRE.MAC ; Author: Robin Miller ; Date: July 23, 1985 ; ; Description: ; ; Prefix file for the AUX program. ; ; Modification History: ; ;- ; Local Equates: NULL = 0 ; ASCII for null. CTRLC = 3 ; ASCII for control/C. BELL = 7 ; ASCII for bell. BS = 8. ; ASCII for backspace. HT = 9. ; ASCII for horizontal tab. LF = 10. ; ASCII for line feed. VT = 11. ; ASCII for vertical tab. FF = 12. ; ASCII for form feed. CR = 13. ; ASCII for carriage return. CTRLU = 21. ; ASCII for control/U. CTRLZ = 26. ; ASCII for control/Z. ESC = 27. ; ASCII for escape. SPACE = 32. ; ASCII for space. COMMA = 44. ; ASCII for comma. DEL = 127. ; ASCII for delete. C.FORW = 0 ; Forward link to next buffer. C.BACK = 2 ; Backward link to previous buff. C.BUFF = 4 ; Offset to get to actual buffer. CMDHDR = 4 ; Buffer header for links. CMDSIZ = 80. ; Size of command line buffers. CMDPAD = 2 ; Extra pad bytes at end of buffers. CMDMAX = 20. ; Number of command line buffers. DATSIZ = 32. ; Size of the date/time buffer. ERRSIZ = 80. ; Size of the error message buffer. FMTSIZ = 512. ; Size of the format buffer. INPSIZ = 128. ; Size of the input file buffer. TMPSIZ = 25. ; Size of the temporary buffer. ; Local equates for the input files. INLUN = 1 ; Input file logical unit number. INEFN = 1 ; Input file event flag number. ; Local equates for the terminal. TILUN = 4 ; Terminal input logical unit number. TIEFN = 4 ; Terminal input event flag number. TOLUN = 5 ; Terminal output logical unit number. TOEFN = 5 ; Terminal output event flag number. ; Event flag for mark time. MRKEFN = 8. ; Mark time event flag. ; Event flag for spawning. SPNEFN = 9. ; Spawn event flag. ; Time units for mark time. TICKS = 1 ; SECNDS = 2 ; MINUTE = 3 ; HOURS = 4 ; ; Macro to generate error message. .MACRO ERRMSG LABEL,MSG .NCHR $$$, .PSECT $ERMSG,RO,D,REL,CON LABEL: .ASCIZ \MSG\ .EVEN .PSECT code,ro,i,lcl,rel,con MOV #LABEL,R1 MOV #$$$,R2 CALL OUTMSG .ENDM ; ; MVS - Macro to move an ASCII string to output buffer in R0. ; ; Inputs: ; STRING The ASCII string to copy. ; .MACRO MVS STRING .NCHR $$$, .PSECT $STRS,RO,D,REL,CON $$$STR=. .ASCIZ "STRING" .PSECT code,ro,i,lcl,rel,con MOV #$$$STR,R1 CALL MOVEC .ENDM MVS .LIST