home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / os / vms / 13760 < prev    next >
Encoding:
Internet Message Format  |  1992-08-18  |  18.6 KB
  1. Path: sparky!uunet!wupost!psuvax1!ukma!vlsi!wkuvx1!goathunter
  2. From: goathunter@wkuvx1.bitnet
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Saving the recall buffer
  5. Message-ID: <1992Aug18.070826.1968@wkuvx1.bitnet>
  6. Date: 18 Aug 92 07:08:26 CDT
  7. References: <920817140148.20409853@FRED.ALHRG.WPAFB.AF.MIL>
  8. Distribution: world
  9. Organization: Western Kentucky University, Bowling Green, KY
  10. Lines: 443
  11.  
  12. In article <920817140148.20409853@FRED.ALHRG.WPAFB.AF.MIL>, SYSTEMM@FRED.ALHRG.WPAFB.AF.MIL (System Manager Wuest) writes:
  13. > 
  14. >    I know this is not a FAQ because I've been watching INFO-VAX for at least
  15. >    a year and it has never come up.  I'm sure it is not an original idea. ;-)
  16. > 
  17. >    Has anyone developed the code to save the RECALL buffer from one session 
  18. >    to another?  I won't belabor how useful this might be...
  19. > 
  20. One of my earliest _VAX Professional_ articles presented just such a
  21. program.  CMD will SAVE, RESTORE, FLUSH (it was written before
  22. RECALL/ERASE existed), and LIST the command recall buffer.
  23.  
  24. I've included it below.  It must be installed with CMEXEC privilege to
  25. be used by users without that priv.  (The recall buffer is protected
  26. from user write.)
  27.  
  28.     $ MACRO CMD
  29.     $ LINK/NOTRACE CMD
  30.     $ INSTALL ADD dev:[dir]CMD.EXE
  31.     $ cmd :== $dev:[dir]cmd.exe
  32.  
  33. Valid qualifiers are /LIST, /FLUSH, /SAVE, /RESTORE, /BOTH (save,flush).
  34.  
  35. Hunter
  36. ------
  37. Hunter Goatley, VMS Systems Programmer, Western Kentucky University
  38. goathunter@WKUVX1.BITNET, 502-745-5251
  39.  
  40. $! ------------------ CUT HERE -----------------------
  41. $ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
  42. $!
  43. $! This archive created by VMS_SHARE Version 7.2-011  26-Jun-1992
  44. $!   On 18-AUG-1992 07:04:06.32   By user GOATHUNTER (@WKUVX1.BITNET)
  45. $!
  46. $! This VMS_SHARE Written by:
  47. $!    Andy Harper, Kings College London UK
  48. $!
  49. $! Acknowledgements to:
  50. $!    James Gray       - Original VMS_SHARE
  51. $!    Michael Bednarek - Original Concept and implementation
  52. $!
  53. $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
  54. $! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
  55. $!
  56. $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
  57. $!       1. CMD.MAR;1
  58. $!
  59. $set="set"
  60. $set symbol/scope=(nolocal,noglobal)
  61. $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
  62. $e="write sys$error  ""%UNPACK"", "
  63. $w="write sys$output ""%UNPACK"", "
  64. $ if f$trnlnm("SHARE_LOG") then $ w = "!"
  65. $ ve=f$getsyi("version")
  66. $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START
  67. $ e "-E-OLDVER, Must run at least VMS 4.4"
  68. $ v=f$verify(v)
  69. $ exit 44
  70. $UNPACK: SUBROUTINE ! P1=filename, P2=checksum
  71. $ x = P1 - f$parse(P1,,,"version")
  72. $ y = f$search(x)
  73. $ if y .eqs. "" then $ goto file_absent
  74. $ x = f$integer(f$parse(P1,,,"version")-";")
  75. $ y = f$integer(f$parse(y,,,"version")-";")
  76. $ if x .gt. y then $ goto file_absent
  77. $ if f$mode() .eqs. "INTERACTIVE" then $ goto file_interactive
  78. $ if x .eq. y then e "-W-EXISTS, File ''P1' exists. Skipped."
  79. $ if x .ne. y then e "-W-NEWERVERSION, of File ''P1' exists. Skipped."
  80. $file_delete:
  81. $ delete 'f'*
  82. $ exit
  83. $file_interactive:
  84. $ if x .eq. y then e "-W-EXISTS, File ''P1' exists."
  85. $ if x .ne. y then e "-W-NEWERVERSION, of File ''P1' exists."
  86. $ read/error=file_delete/end=file_delete-
  87.   /prompt="Create new version [y/n]: " -
  88.   sys$command x
  89. $ if .not. x then $ e "-W-SKIPPED, File ''P1' skipped."
  90. $ if .not. x then $ goto file_delete
  91. $ P1 = P1 - f$parse(P1,,,"version")
  92. $file_absent:
  93. $ if f$parse(P1) .nes. "" then $ goto dirok
  94. $ dn=f$parse(P1,,,"DIRECTORY")
  95. $ w "-I-CREDIR, Creating directory ''dn'."
  96. $ create/dir 'dn'
  97. $ if $status then $ goto dirok
  98. $ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
  99. $ delete 'f'*
  100. $ exit
  101. $dirok:
  102. $ w "-I-PROCESS, Processing file ''P1'."
  103. $ if .not. f$verify() then $ define/user sys$output nl:
  104. $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
  105. PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
  106. SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:=
  107. CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b));
  108. LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
  109. BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1);
  110. IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE;
  111. MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1;
  112. ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")=
  113. 1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF";
  114. POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r);
  115. ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1;
  116. COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE,
  117. "output_file"));ENDPROCEDURE;Unpacker;QUIT;
  118. $ delete/nolog 'f'*
  119. $ CHECKSUM 'P1'
  120. $ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
  121. $ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
  122. $ ENDSUBROUTINE
  123. $START:
  124. $ create 'f'
  125. X;========================================================================
  126. X;=`09`09`09`09`09`09`09`09`09=
  127. X;=`09Programmer:`09Hunter Goatley`09`09`09`09`09=
  128. X;=`09`09`09goathunter@WKUVX1.BITNET`09`09`09=
  129. X;=`09Program:`09CMD.MAR`09`09`09`09`09`09=
  130. X;=`09Purpose:`09Save, restore, flush, & list DCL command buffer`09=
  131. X;=`09Language:`09VAX-11 MACRO32  assembly language`09`09=
  132. X;=`09System:`09`09VAX/VMS v4.x`09`09`09`09`09=
  133. X;=`09Date:`09`09October 8, 1986`09`09`09`09`09=
  134. X;=`09`09`09`09`09`09`09`09`09=
  135. X;========================================================================
  136. X;=`09`09`09`09`09`09`09`09`09=
  137. X;=`09Copyright `A9 1989 by Hunter Goatley`09`09`09`09=
  138. X;=`09`09`09`09`09`09`09`09`09=
  139. X;=`09This program may be distributed freely for non-profit use`09=
  140. X;=`09as long as this notice remains intact.`09`09`09`09=
  141. X;=`09`09`09`09`09`09`09`09`09=
  142. X;========================================================================
  143. X;=`09`09`09`09`09`09`09`09`09=
  144. X;=`09`09`09`09`09`09`09`09`09=
  145. X;=`09This  program  allows  the user to flush the command buffer,`09=
  146. X;=`09list all of the commands in  the buffer,  write the contents`09=
  147. X;=`09of the buffer to a file, and restore the buffer from a file.`09=
  148. X;=`09`09`09`09`09`09`09`09`09=
  149. X;=`09To use this program, set up a foreign symbol, such as:`09`09=
  150. X;=`09`09`09`09`09`09`09`09`09=
  151. X;=`09`09`09$ CMD :== $dev:`5Bdir`5DCMD.EXE`09`09`09=
  152. X;=`09`09`09$ CMD/qualifier`09`09`09`09`09=
  153. X;=`09`09`09`09`09`09`09`09`09=
  154. X;=`09To build:`09`09`09`09`09`09`09=
  155. X;=`09`09`09$ MACRO CMD`09`09`09`09`09=
  156. X;=`09`09`09$ LINK CMD/NOTRACEBACK`09`09`09`09=
  157. X;=`09`09`09`09`09`09`09`09`09=
  158. X;=`09To install:`09`09`09`09`09`09`09=
  159. X;=`09`09`09$ INSTALL ADD CMD.EXE/PRIV=CMEXEC`09`09=
  160. X;=`09`09`09`09`09`09`09`09`09=
  161. X;=`09`09`09`09`09`09`09`09`09=
  162. X;=`09The valid qualifiers are:`09`09`09`09`09=
  163. X;=`09`09`09`09`09`09`09`09`09=
  164. X;=`09/LIST`09-  List all commands in the DCL command buffer`09`09=
  165. X;=`09/SAVE`09-  Save the commands in SYS$LOGIN:SAVE_CMDS.TXT`09`09=
  166. X;=`09/RESTORE-  Restore commands previously SAVEd`09`09`09=
  167. X;=`09/FLUSH`09-  Flush the command buffer`09`09`09`09=
  168. X;=`09/BOTH`09-  SAVE, then FLUSH the DCL command buffer`09`09=
  169. X;=`09`09`09`09`09`09`09`09`09=
  170. X;========================================================================
  171. X;
  172. X`09.LINK`09"SYS$SYSTEM:SYS.STB"/selective_search
  173. X`09.LINK`09"SYS$SYSTEM:DCLDEF.STB"/selective_search
  174. X
  175. X;
  176. X;  This macro compares the current address (in R10) with the beginning addre
  177. Vss
  178. X;  of the data area -- if they are equal, set the current address = to the e
  179. Vnd
  180. X;  of the data block (wrap).
  181. X;
  182. X`09.MACRO`09CHECK`09?HERE
  183. X`09CMPL`09R11,R10`09`09`09; Have we gone past the beginning?
  184. X`09BNEQ`09HERE`09`09`09; No -- skip next instruction
  185. X`09MOVAB`09PRC_G_COMMANDS(R3),R10
  186. X`09ADDL2`09#PRC_S_COMMANDS+1,R10
  187. X;`09MOVL`09#CMD_BUF_END,R10`09; Make R10 point to one byte past the
  188. X`09`09`09`09`09; ... end of the data area.  With next
  189. X`09`09`09`09`09; ... autodecrement, it will point to
  190. X`09`09`09`09`09; ... the last byte of the table.
  191. X HERE:`09.ENDM`09CHECK
  192. X`09`09`09`09`09;
  193. X;
  194. X;  This macro compares the first four bytes of FOR_BUFF with a valid qualifi
  195. Ver.
  196. X;  If there is a match, the appropriate routine is called and control branch
  197. Ves
  198. X;  to return to VMS.
  199. X;
  200. X`09.MACRO`09PRESENT`09QUAL,ROUTIN1,ROUTIN2=0,?LABEL
  201. X`09CMPL`09#`5EA\QUAL\,FOR_BUFF`09; Was /QUAL given?
  202. X`09BNEQU`09LABEL`09`09`09; No - try next
  203. X`09CALLS`09#0,ROUTIN1`09`09; Call the proper routine
  204. X`09.IF`09DIF`090,ROUTIN2`09; Was a second routine given?
  205. X`09BLBC`09R0,BYE`09`09`09; Error?
  206. X`09CALLS`09#0,ROUTIN2`09`09; No - call the second routine
  207. X`09.ENDC`09`09`09`09; ...
  208. X`09BRW`09BYE`09`09`09; Return to VMS (only one qualifier
  209. XLABEL:`09.ENDM`09PRESENT`09`09`09; ...  at a time!!!
  210. X
  211. X`09.PSECT`09DCL_CMDS_DATA,NOEXE,WRT,LONG
  212. X`09`09`09`09`09;
  213. X`09$SSDEF`09`09`09`09; Include status symbols
  214. X`09$RMSDEF`09`09`09`09; Include RMS symbols
  215. X`09$FABDEF`09`09`09`09; Include $FAB symbols
  216. X`09$RABDEF`09`09`09`09; Include $RAB symbols
  217. X`09$PRVDEF`09`09`09`09; Include privilege symbols
  218. X;
  219. X;=======================================================================
  220. X;
  221. XCMDFAB: $FAB`09FNM=<SYS$LOGIN:SAVE_CMDS.TXT>, -`09; File name
  222. X`09`09FAC=<GET,PUT>, -`09`09; File ACcess (R/W only)
  223. X`09`09MRS=1420, -`09`09`09; Maximum Record Size
  224. X`09`09RAT=CR, -`09`09`09; Record ATtributes
  225. X`09`09ORG=SEQ`09`09`09`09; File Organization (sequential)
  226. X;
  227. X;***  Record Access Block for SAVE_CMDS.TXT
  228. X;
  229. XCMDRAB:
  230. X`09$RAB    FAB=CMDFAB, -`09`09; Record Access Block
  231. X`09`09RBF=CMDREC, -`09`09; If writing, write from CMDREC
  232. X`09`09UBF=CMDREC`09`09; Address of SAVE_CMDS record buffer
  233. X
  234. X;
  235. X;
  236. XCMDREC:`09.BLKB`091032`09`09`09; Buffer for DCL commands
  237. X;
  238. X;=======================================================================
  239. X;
  240. XMAXCMDLEN = 256`09`09`09`09; Maximum length of a DCL command
  241. X`09`09`09`09`09;
  242. XCMDBUFFER_D:`09`09`09`09; Descriptor for the command buffer
  243. X`09.WORD`09MAXCMDLEN`09`09; ...
  244. X`09.BYTE`09DSC$K_DTYPE_T`09`09; ...
  245. X`09.BYTE`09DSC$K_CLASS_S`09`09; ...
  246. X`09.ADDRESS .+4`09`09`09; ...
  247. XCMDBUFFER:`09`09`09`09; The command buffer
  248. X`09.BYTE`09`5EA/ /`5BMAXCMDLEN`5D`09; ...
  249. X`09`09`09`09`09;
  250. XFAOCTR:`09.ASCID`09/!3UL !AS/
  251. XFAOUT:`09.WORD`09256`09`09`09`09; ...
  252. X`09.BYTE`09DSC$K_DTYPE_T`09`09`09; ...
  253. X`09.BYTE`09DSC$K_CLASS_S`09`09`09; ...
  254. X`09.ADDRESS .+4`09`09`09`09; ...
  255. X`09.BLKB`09256
  256. X
  257. XFOR_BUFF_D:`09`09`09`09; Descriptor for the command line
  258. X`09.WORD`09MAXCMDLEN`09`09; ...  returned by LIB$GET_FOREIGN
  259. X`09.BYTE`09DSC$K_DTYPE_T`09`09; ...
  260. X`09.BYTE`09DSC$K_CLASS_S`09`09; ...
  261. X`09.ADDRESS .+4`09`09`09; ...
  262. XFOR_BUFF:`09`09`09`09; BUffer holding the command line
  263. X`09.BLKB`09MAXCMDLEN`09`09; ...
  264. XFOR_LEN:.LONG`090`09`09`09; Length of command line returned
  265. XUSAGE_D:`09`09`09`09; Usage message
  266. X`09.ASCID`09-
  267. X \Must give valid qualifier: /LIST, /FLUSH, /SAVE, /RESTORE, /BOTH (save,flu
  268. Vsh)\
  269. XCMEXEC:`09.QUAD`09PRV$M_CMEXEC`09`09; Privilege needed to flush & restore
  270. XCMKRNL:`09.QUAD`09PRV$M_CMKRNL`09`09; Alternative privilege needed
  271. X;
  272. X;===========================================================================
  273. V====
  274. X;
  275. X`09.PSECT`09DCL_CMDS,EXE,NOWRT
  276. X`09.ENTRY`09DCL_CMDS,`5EM<>
  277. X
  278. X`09MOVW`09#PRC_S_COMMANDS+4,-`09; Store the size of the command buffer
  279. X`09`09CMDRAB+RAB$W_RSZ`09; ... in the RAB
  280. X`09MOVW`09#PRC_S_COMMANDS+4,-`09; Store the size of the command buffer
  281. X`09`09CMDRAB+RAB$W_USZ`09; ... in the RAB
  282. X
  283. X; A simple command line parser follows.  The code simply checks for a "/"
  284. X; followed by at least 3 characters of the command qualifier.  Not very
  285. X; forgiving, but easy to code.
  286. X;
  287. X`09PUSHAW`09FOR_LEN`09`09`09; Get any commands on command line
  288. X`09PUSHL`09#0`09`09`09; Don't want to prompt for anything
  289. X`09PUSHAQ`09FOR_BUFF_D`09`09; Buffer for command line
  290. X`09CALLS`09#3,G`5ELIB$GET_FOREIGN`09; Get the command line
  291. X`09TSTW`09FOR_LEN`09`09`09; Was anything given?
  292. X`09BNEQ`0910$`09`09`09; Yes  - see what was
  293. X`09PUSHAQ`09USAGE_D`09`09`09; No - print usage message
  294. X`09CALLS`09#1,G`5ELIB$PUT_OUTPUT`09; ...
  295. X`09BRW`09BYE`09`09`09; ...
  296. X`09`09`09`09`09;
  297. X10$:`09PRESENT`09</RES>,RESTORE_CMDS`09`09; Was /RESTORE given?
  298. X`09PRESENT`09</LIS>,LIST_CMDS`09`09; Was /LIST?
  299. X`09PRESENT`09</FLU>,FLUSH_CMDS`09`09; Was /FLUSH?
  300. X`09PRESENT`09</SAV>,SAVE_CMDS`09`09; Was /SAVE?
  301. X`09PRESENT`09</BOT>,SAVE_CMDS,FLUSH_CMDS`09; Was /BOTH (save and flush)?
  302. X
  303. X`09PUSHAQ`09USAGE_D`09`09`09; If here, a valid qualifier was not
  304. X`09CALLS`09#1,G`5ELIB$PUT_OUTPUT`09; ...  given - print USAGE message
  305. X BYE:`09$EXIT_S`09CODE=R0`09`09`09; Exit to VMS
  306. X`09`09`09`09`09;
  307. X;===========================================================================
  308. V====
  309. X;   Subroutine SAVE_CMDS - Save the DCL commands in SYS$LOGIN:SAVE_CMDS.TXT
  310. X;
  311. X`09.ENTRY`09SAVE_CMDS,`5EM<>
  312. X`09`09`09`09`09`09;
  313. X`09$CREATE`09FAB=CMDFAB`09`09`09; Create the output file
  314. X`09BLBC`09R0,100$`09`09`09`09; Error?
  315. X    `09$CONNECT RAB=CMDRAB`09`09`09; Connect the RAB
  316. X`09BLBC`09R0,100$`09`09`09`09; Error?
  317. X`09MOVAB`09G`5ECTL$AG_CLIDATA,R3`09`09; Get address of CLI data
  318. X`09MOVL`09PPD$L_PRC(R3),R3`09`09; Get address of PRC region
  319. X`09MOVC3`09#PRC_S_COMMANDS+4, -`09`09; Get the DCL previous command
  320. X`09`09PRC_L_RECALLPTR(R3),CMDREC`09; ... buffer (not protected
  321. X`09`09`09`09`09`09; ... against user-mode reads)
  322. X`09$PUT`09RAB=CMDRAB`09`09`09; Write the buffer to the file
  323. X`09BLBC`09R0,100$`09`09`09`09; Error?
  324. X`09$CLOSE`09FAB=CMDFAB`09`09`09; Close the file
  325. X 100$:`09RET`09`09`09`09`09; Return to caller
  326. X`09`09`09`09`09`09;
  327. X;===========================================================================
  328. V====
  329. X;   Subroutine RESTORE_CMDS - Restore DCL commands in SYS$LOGIN:SAVE_CMDS.TX
  330. VT
  331. X;   Calls EXEC_RESTORE from EXECUTIVE mode
  332. X;
  333. X`09.ENTRY`09RESTORE_CMDS,`5EM<>
  334. X`09`09`09`09`09`09;
  335. X`09CALLS`09#0,GETPRV`09`09`09; Turn on the CMEXEC to do this
  336. X`09BLBC`09R0,10$`09`09`09`09; If error (No priv), return
  337. X`09$OPEN`09FAB=CMDFAB`09`09`09; Open SAVE_CMDS.TXT for reading
  338. X`09BLBC`09R0,10$`09`09`09`09; Error?
  339. X`09$CONNECT RAB=CMDRAB`09`09`09; Connect the RAB
  340. X`09BLBC`09R0,10$`09`09`09`09; Error?
  341. X`09$GET`09RAB=CMDRAB`09`09`09; Read the only record in the
  342. X`09`09`09`09`09`09; ... file (the command buffer)
  343. X`09BLBC`09R0,10$`09`09`09`09; Error?
  344. X`09$CMEXEC_S -`09`09`09`09; Go move the command buffer
  345. X`09`09ROUTIN=EXEC_RESTORE`09`09; ... to process space
  346. X`09$CLOSE`09FAB=CMDFAB`09`09`09; Close the file
  347. X 10$:`09RET`09`09`09`09`09; Return to caller
  348. X;
  349. X;===========================================================================
  350. V====
  351. X;****`09This executive mode routine moves the previous commands from CMDREC
  352. X;****`09to the CLI data area.
  353. X;
  354. X`09.ENTRY`09EXEC_RESTORE,`5EM<>
  355. X`09`09   `09`09`09`09;
  356. X`09MOVAL`09HANDLER,(FP)`09`09`09; Unnecessary handler, but...
  357. X`09MOVAB`09G`5ECTL$AG_CLIDATA,R3`09`09; Get address of CLI data
  358. X`09MOVL`09PPD$L_PRC(R3),R3`09`09; Get address of PRC region
  359. X`09MOVC3`09#PRC_S_COMMANDS+4,CMDREC, -`09; Move the prev command block
  360. X`09`09PRC_L_RECALLPTR(R3)`09`09; ...  to the CLI data area
  361. X`09MOVZBL`09#SS$_NORMAL,R0`09`09`09; Set up a success return
  362. X`09RET`09`09`09`09`09; Return to caller
  363. X`09`09`09`09`09`09;
  364. X`09.ENTRY`09HANDLER,`5EM<>`09`09`09; Exit handler in case of
  365. X`09$EXIT_S`09`09`09`09`09; ... $ACCVIO (Kill process)
  366. X`09`09`09`09`09`09;
  367. X;===========================================================================
  368. V====
  369. X;   Subroutine LIST_CMDS - List all commands stored in DCL RECALL buffer
  370. X;
  371. X`09.ENTRY`09LIST_CMDS,`5EM<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>
  372. X`09MOVAB`09G`5ECTL$AG_CLIDATA,R3`09`09; Get address of CLI data
  373. X`09MOVL`09PPD$L_PRC(R3),R3`09`09; Get address of PRC region
  374. X`09MOVL`09PRC_L_RECALLPTR(R3),R10`09; Get addr of end of most recent cmd
  375. X`09MOVL`09R10,R9`09`09`09; Make a copy of it
  376. X`09MOVAB`09PRC_G_COMMANDS(R3),R11`09; Get the beginning of the data block
  377. X`09CLRL`09R6`09`09`09; Clear command counter
  378. X 10$:`09MOVAB`09CMDBUFFER,R8`09`09; Get the buffer address
  379. X`09`09   `09`09`09; Clear the buffer
  380. X`09MOVZBL`09-(R10),R7`09`09; Get the length of the first command
  381. X`09BNEQ`0920$
  382. X`09BRW`0940$`09`09`09; 2 null bytes in a row? End
  383. X 20$:`09MOVW`09R7,CMDBUFFER_D`09`09; Move the length to the descriptor
  384. X`09CHECK`09`09`09`09; Check to see if this command wraps
  385. X`09`09`09`09`09; ...  to the end of the data area
  386. X`09ADDL2`09R7,R8`09`09`09; Make R8 point to end of buffer
  387. X 30$:`09MOVB`09-(R10),-(R8)`09`09; Move the first byte
  388. X`09CHECK`09`09`09`09; Check our addresses
  389. X`09SOBGTR`09R7,30$`09`09`09; Loop until command is moved
  390. X`09INCL`09R6`09`09`09; Bump the command counter
  391. X`09$FAO_S`09CTRSTR=FAOCTR, -`09; Format for output
  392. X`09`09OUTBUF=FAOUT, -`09`09; ...
  393. X`09`09OUTLEN=FAOUT, -`09`09; ...
  394. X`09`09P1=R6, -`09`09; ...
  395. X`09`09P2=#CMDBUFFER_D`09`09; ...
  396. X`09PUSHAQ`09FAOUT`09`09`09; Write it to the terminal
  397. X`09CALLS`09#1,G`5ELIB$PUT_OUTPUT`09; ....
  398. X`09MOVW`09#256,FAOUT`09`09; Reset FAO output descriptor
  399. X`09DECL`09R10`09`09`09; Should now point to prefix count
  400. X`09CHECK`09`09`09`09; Check our addresses
  401. X`09DECL`09R10`09`09`09; Should now point to 0 byte
  402. X`09CHECK`09`09`09`09; Check our addresses
  403. X`09CMPL`09R10,R9`09`09`09; If current addr = starting addr
  404. X`09BEQL`0940$`09`09`09; ...  end of data
  405. X`09BRW`0910$`09`09`09; Loop until all commands printed
  406. X 40$:`09MOVL`09#SS$_NORMAL,R0`09`09; Set return code
  407. X`09RET`09`09`09`09; Return to caller
  408. X`09`09`09`09`09;
  409. X;===========================================================================
  410. V====
  411. X;   Subroutine FLUSH_CMDS - Flush the DCL command RECALL buffer
  412. X;
  413. X`09.ENTRY`09FLUSH_CMDS,`5EM<>
  414. X`09CALLS`09#0,GETPRV`09`09; Turn on the CMEXEC to do this
  415. X`09BLBC`09R0,10$`09`09`09; If error (No priv), return
  416. X`09$CMEXEC_S -`09`09`09; Flush the DCL command buffer
  417. X`09`09ROUTIN=EXEC_FLUSH`09; ...  (zero it out)
  418. X 10$:`09RET`09`09`09`09; Return to caller
  419. X;
  420. X;  Zero out the DCL command recall buffer
  421. X;
  422. X`09.ENTRY`09EXEC_FLUSH,`5EM<R2,R3,R4,R5>
  423. X`09MOVAB`09G`5ECTL$AG_CLIDATA,R3`09`09; Get address of CLI data
  424. X`09MOVL`09PPD$L_PRC(R3),R3`09`09; Get address of PRC region
  425. X`09MOVAB`09PRC_G_COMMANDS(R3),-`09`09; Reset last command pointer
  426. X`09`09PRC_L_RECALLPTR(R3)`09`09; ...
  427. X`09MOVC5`09#0,#0,#0,#PRC_S_COMMANDS,-`09; Zero out the DCL command
  428. X`09`09PRC_G_COMMANDS(R3)`09`09; ...  recall buffer
  429. X`09MOVL`09#SS$_NORMAL,R0`09`09`09; Set return status
  430. X`09RET`09`09`09`09`09; Return to caller
  431. X`09`09`09`09`09`09;
  432. X;===========================================================================
  433. V====
  434. X;   Subroutine GETPRV - Turn on either CMEXEC or CMKRNL to do FLUSH and REST
  435. VORE
  436. X;
  437. X`09.ENTRY`09GETPRV,`5EM<>
  438. X`09$SETPRV_S -`09`09`09; Turn on CMEXEC privilege
  439. X`09`09ENBFLG=#1, -`09`09; ...
  440. X`09`09PRVADR=CMEXEC`09`09; ...
  441. X`09CMPL`09#SS$_NORMAL,R0`09`09; Was CMEXEC turned on?
  442. X`09BEQLU`0910$`09`09`09; Yes - return
  443. X`09$SETPRV_S -`09`09`09; If not, try to turn on CMKRNL
  444. X`09`09ENBFLG=#1, -`09`09; ...
  445. X`09`09PRVADR=CMKRNL`09`09; ...
  446. X`09CMPL`09#SS$_NORMAL,R0`09`09; Was CMEXEC turned on?
  447. X`09BEQLU`0910$`09`09`09; Yes - return
  448. X`09MOVL`09#SS$_NOCMEXEC,R0`09; If not, tell that CMEXEC is needed
  449. X 10$:`09RET`09`09`09`09; Return to caller
  450. X
  451. X`09.END`09DCL_CMDS
  452. $ CALL UNPACK CMD.MAR;1 756169595
  453. $ v=f$verify(v)
  454. $ EXIT
  455.