.TITLE WHOHLP - GET HELP FOR WHO .IDENT /01/ .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: WHOHLP.MAC ; Author: Robin Miller ; Date: July 26, 1982 ; ; Description: ; ; This program spawns a help line to the MCR. ; ; ; Modification History: ; ;- .ENABL AMA .NLIST BEX .MCALL QIOW$S, SPWN$S, STSE$S ; Local Equates SPNEFN = 7 ; SPAWN EVENT FLAG ESC = 27. ; ESCAPE MCRNAM: .RAD50 %MCR...% ; SPAWN COMMAND TO MCR... .SBTTL GETHLP - GET HELP FROM THE HELP FILE ;+ ; ; GETHLP - Get help from the help file. ; ; This routine is called to set up the buffer to be spawned to the ; MCR to have help information displayed. ; ; Inputs: ; HLPBUF = the help topic to spawn. ; ; Outputs: ; None ; ; All registers are preserved. ; ;- GETHLP::JSR R2,$SAVVR ; SAVE REGISTERS R0 - R2 MOV #SPNBUF,R0 ; ADDRESS OF BUFFER TO SPAWN MOV HLPPTR,R1 ; UPDATED HELP BUFFER ADDRESS SUB R0,R1 ; CALCULATE THE BYTE COUNT CALL SPAWN ; GO DO IT MOV #HLPBUF,HLPPTR ; RESET THE BUFFER POINTER CLRB @HLPPTR ; INITIALIZE THE FIRST BYTE BIS #B.HELP,STATUS ; SHOW USER GOT SOME HELP RETURN .SBTTL SPAWN - SPAWN A MCR COMMAND LINE ;+ ; ; SPAWN - Spawn a MCR command line and wait until it's done. ; ; This subroutine spawns a command to the MCR dispatcher. ; ; Inputs: ; R0 = Command line to spawn ( appended automatically). ; R1 = The command line byte count. ; ; Outputs: ; C bit clear/set = Success/failure. ; ; All registers are preserved. ; ;- SPNEST:: .BLKW 8. ; SPAWN EXIT STATUS BLOCK SPAWN:: MOV R2,-(SP) ; SAVE R2 ON THE STACK MOV R0,R2 ; COPY THE BUFFER ADDRESS ADD R1,R2 ; POINT TO THE LAST BYTE MOVB #ESC,(R2)+ ; APPEND AN ESCAPE AS TERMINATOR ; TO PREVENT AN MCR PROMPT INC R1 ; ADJUST THE BYTE COUNT SPWN$S #MCRNAM,,,,,#SPNEFN,,#SPNEST,R0,R1 ; SPAWN COMMAND TO MCR BCS 10$ ; IF CS, DIRECTIVE FAILED STSE$S #SPNEFN ; STOP FOR SPAWNED COMMAND 10$: MOV (SP)+,R2 ; RESTORE R2 FROM THE STACK RETURN ; AND RETURN STATUS .END