.NLIST .SBTTL PHOPRE - PHONE PREFIX FILE .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: PHOPRE.MAC ; Author: Robin Miller ; Date: August 16, 1982 ; ; Description: ; ; Prefix file for PHONE utility. ; ; ; Modification History: ; ;- .SBTTL MACRO DEFINITIONS ; Macro to generate error message. ; The PSECT is RW since the terminal name is added to some messages. .MACRO ERRMSG LABEL,MSG .NCHR $$$, .PSECT $ERMSG,RW,D,REL,CON LABEL: .ASCII "MSG" .EVEN .PSECT MOV #LABEL,R1 MOV #$$$,R2 CALL OUTMSG .ENDM ; Macro to move a constant or a single character. .MACRO MOVCHR CHAR .NCHR $$$,^/CHAR/ .IF EQ $$$-1 MOVB #''CHAR,@BUFPTR .IFF MOVB #CHAR,@BUFPTR .ENDC INC BUFPTR .ENDM ; Macro to move a message to the buffer pointer. .MACRO MOVMSG LABEL MOV #LABEL,R0 CALL MOVEC .ENDM ; Macro to generate a VT100 escape sequence. .MACRO VTMSG LABEL,MSG .PSECT $VTMSG,RO,D,REL,CON LABEL: .ASCIZ "MSG" .PSECT MOV #LABEL,R0 CALL MOVEC .ENDM ; Logical unit numbers and event flags. TILUN = 1 ; INITIATING TERMINAL LUN TIEFN = 1 ; INITIATING TERMINAL EFN TOLUN = 2 ; RECEIVING TERMINAL LUN TOEFN = 2 ; RECEIVING TERMINAL EFN OULUN = 3 ; TERMINAL OUTPUT LUN OUEFN = 3 ; TERMINAL OUTPUT EFN SPNEFN = 7 ; SPAWN EVENT FLAG ; Local equates: CTRLC = 3 ; ASCII FOR CTRL/C CTRLE = 5 ; ASCII FOR CTRL/E (VTK COMPATIBLITY) BELL = 7 ; ASCII FOR BELL HT = 9. ; ASCII FOR HORIZONTAL TAB LF = 10. ; ASCII FOR LINE FEED FF = 12. ; ASCII FOR FORM FEED CR = 13. ; ASCII FOR CARRIAGE RETURN CTRLU = 21. ; ASCII FOR CTRL/U CTRLW = 23. ; ASCII FOR CTRL/W CTRLZ = 26. ; ASCII FOR CTRL/Z ESC = 27. ; ASCII FOR ESCAPE SPACE = 32. ; ASCII FOR SPACE DELETE = 127. ; ASCII FOR DELETE ; Status bits: B.SCR = 1 ; SCROLL THE SCREEN B.HANG = 2 ; THE PHONE WAS HUNGUP B.ANS = 4 ; THE PHONE WAS ANSWERED B.CMD = 10 ; ISSUING A COMMAND VIA "%" B.MSG = 20 ; MESSAGE IS ON THE SCREEN B.STRT = 40 ; PROCESSING STARTUP CODE B.WAIT = 100 ; SOMEONE IS WAITING FOR US B.RPR = 200 ; DOING A READ WITH PROMPT B.DIAL = 400 ; CURRENTLY DIALING SOMEONE B.ONL = 1000 ; WAIT MESSAGE SUCCESSFUL .LIST .NLIST BEX