.TITLE PHOHLP - PHONE HELP MODULE .IDENT /1.1/ .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: PHOHLP.MAC ; Author: Gary N. Larsen ; Date: August 16, 1982 ; ; Description: ; ; Help subroutine for Phone. ; ; ; Modification History: ; ;- ; Local storage: HEADM: .ASCII %[2;2H%%[0K%%[3;1H%%[0K% .ASCII %Press any key to cancel the help information and continue.% .ASCII %[6;23r%%[5;1H%%[0J% HEADML = .-HEADM HELP: .ASCII %HELP PHONE % ; MCR COMMAND HLPLEN=.-HELP SPNBUF: .BLKB 14. ; STORAGE FOR THE HELP STRING .EVEN .SBTTL PHOHLP - HELP FOR PHONE ;+ ; ; PHOHLP - Get the user some help in phone ; ; This subroutine sets the message up to spawn to the RSX-11M HELP UTILITY> ; ; Inputs: ; R3 = Byte count of the input help string ; R4 = Address of the input string ; ; Outputs: ; ; R0 - R2 Are preserved. ; ;- PHOHLP::JSR R2,$SAVVR ; SAVE ALL REGISTERS MOV #HEADM,R1 ; ADDRESS OF MESSAGE TO WRITE MOV #HEADML,R2 ; AND THE BYTE COUNT CALL OUTMSG ; OUTPUT THE MESSAGE MOV #SPNBUF,R0 ; ADDRESS OF SUBJECT TO GET HELP ON MOV #HLPLEN,R1 ; SET UP THE BYTE COUNT 5$: TSTB R3 ; HAVE WE GOT THE SUBJECT BEQ 10$ ; IF EQ, YES MOVB (R4)+,(R0)+ ; MOVE IN THIS CHARACTER INCB R1 ; ADJUST THE SPAWN BUFFER COUNT DECB R3 ; ADJUST NUMBER OF BYTES TO GO BR 5$ ; SEE IF WE HAVE ANY MORE ? 10$: MOV #HELP,R0 ; SET UP THE COMMAND LINE TO SPAWN CALL SPAWN ; NOW SPAWN USERS CALL REPBOT ; REPAINT BOTTOM HALF OF SCREEN RETURN .END