ASMB,Q,C
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
*     SOURCE PART NUMBER : 92067-18367
* 
*     RELOCATABLE PART NUMBER : 92067-16361 
* 
*     PROGRAMER(S)   : J.M.N. 
* 
* 
*     ACWRH WRITES ACHLPMESSAGES
* 
*     CALLING SEQUENCE: 
*        CALL ACWRH(KEYWD,IERR) 
* 
*        WHERE KEYWD IS THE FIRST 2 CHARACTERS OF COMMAND 
*        AND IERR IS A FMP ACERR FROM ACWRL 
* 
      NAM ACWRH,7 92067-16361 REV.1940 790801 
      ENT ACWRH 
      EXT ACWRL,.ENTR 
* 
KEYWD NOP 
IERR  NOP 
JERR  NOP 
ACWRH NOP 
      JSB .ENTR     GET PARAMATER ADDRESSES 
      DEF KEYWD 
* 
      LDB TABAD     FETCH ADDRESS OF TABLE
      STB JERR,I
LOOP  STB CNTAD     SAVE ADDRESS OF WORD COUNT
      INB           BUMP TO POINT TO FIRST 2 CHARS
      STB BUF       PUT ADDRESS IN CALL TO ACWRL
      INB           BUMP POINTER TO 2ND TWO CHARS FOR COMPARE 
      LDA KEYWD,I 
      SZA           IF KEYWORD IS ZERO
      CPA B,I       THEN PRINT ALL
      JMP PRINT 
* 
      LDB BUF 
      ADB CNTAD,I   NOT FOUND GO LOOK 
      CPB TEND      FOR NEXT ENTRY
      JMP ACWRH,I   FINISHED RETURN 
      STB CNTAD     SKIP EXPLANATION
      INB 
CONT  ADB CNTAD,I 
      CPB TEND
      JMP ACWRH,I 
      JMP LOOP
* 
*               FOUND ENTRY 
* 
PRINT CLA           CLEAR ERROR 
      STA JERR,I
      JSB ACWRL     GO PRINT IT 
      DEF *+4 
BUF   NOP 
CNTAD NOP 
      DEF IERR,I
* 
      LDB BUF       GET EXPLANATION PART
      ADB CNTAD,I 
      STB CNTAD 
      INB 
      STB BUF 
      LDA KEYWD,I   IF PRINT ALL SKIP EXPLANATION 
      SZA,RSS 
      JMP CONT
* 
      LDA D1
      JSB PBLNK     PRINT BLANK LINE
      LDA CNTAD,I   GET WORD COUNT
      CMA,INA 
      STA CNT       SET WORD COUNT
      LDB BLIAD 
LOOP2 LDA BUF,I     MOVE MESSAGE TO OUPUT BUFFER
      STA B,I 
      ISZ BUF 
      INB 
      ISZ CNT 
      JMP LOOP2 
* 
      LDA CNTAD,I   SET WORD COUNT FOR CALL 
      ADA D6
      STA CNT 
      JSB ACWRL 
      DEF *+4 
      DEF BLINE 
      DEF CNT 
      DEF IERR,I
* 
      LDA D1        PRINT BLANK LINE
      JSB PBLNK 
* 
      LDB BUF 
      JMP CONT+1    GO LOOK FOR NEXT MATCH
* 
* 
PBLNK NOP 
      STA CNT       SET WORD COUNT
      JSB ACWRL     GO WRITE IT 
      DEF *+4 
      DEF BLINE 
      DEF CNT 
      DEF IERR,I
      JMP PBLNK,I   RETURN
* 
B     EQU 1 
A     EQU 0 
* 
CNT   BSS 1 
      SUP 
BLIAD DEF BLINE+6 
BLINE ASC 6,         -       *
      BSS 30
D1    DEC 1 
D6   DEC 6
* 
TABAD DEF *+1 
      DEC 8 
      ASC  8,  AL[TER],A[CCT] 
      DEC 20
      ASC 20,ALTERS GLOBAL SESSION MONITOR PARAMETERS 
      DEC 12
      ASC 12,  AL[TER],G[ROUP],<NAME> 
      DEC 10
      ASC 10,ALTERS GROUP ACCOUNT 
      DEC 15
      ASC 15,  AL[TER],U[SER],<USER.GROUP>
      DEC 23
      ASC 23,ALTERS ONE OR MORE ATTRIBUTES DEFINED FOR USER 
      DEF 4 
      ASC  4,  EX[IT] 
      DEC 18
      ASC 18,TERMINATES THE ACCOUNT SETUP PROGRAM 
      DEC 25
      ASC 25,  LI[ST],A[CCT][,[<LIST NAMR>][,<AC,PO,CO OR AL>]] 
      DEC 15
      ASC 15,LISTS SESSION WIDE INFORMATION 
      DEC 22
      ASC 22,  LI[ST],G[ROUP],<NAME>[,[<LIST NAMR>][,ID]] 
      DEC 20
      ASC 20,LISTS ONE OR MORE GROUP ACCOUNT ENTRIES
      DEC 28
      ASC 28,  LI[ST],[U[SER]],<USER.GROUP>[,[<LIST NAMR>][,PA][,ID]] 
      DEC 19
      ASC 19,LISTS ONE OR MORE USER ACCOUNT ENTRIES 
      DEC 12
      ASC 12,  LO[AD],<NAMR>[,ACCTS]
      DEC 27
      ASC 27,REBUILDS THE ACCOUNTS ONLY FROM AN UNLOADED ACCT FILE
      DEC 11
      ASC 11,  LO[AD],<NAMR>[,ALL]
      DEC 27
      ASC 27,REBUILDS THE ACCOUNT SYSTEM FROM AN UNLOADED ACCT FILE 
      DEC  5
      ASC  5,  LO[AD],0 
      DEC 19
      ASC 19,ALLOWS EXPANSION OF THE ACCOUNTS FILE
      DEC 8 
      ASC  8,  NE[W],G[ROUP]
      DEC 20
      ASC 20,CREATES AN ACCOUNT ENTRY FOR A NEW GROUP 
      DEC 7 
      ASC  7,  NE[W],U[SER] 
      DEC 20
      ASC 20,CREATES AN ACCOUNT ENTRY FOR A NEW USER
      DEC 6 
      ASC  6,  PA[SSWORD] 
      DEC 15
      ASC 15,ALTERS CURRENT USERS PASSWORD
      DEC 8 
      ASC  8,  PU[RGE],A[CCT] 
      DEC 18
      ASC 18,PURGES THE ENTIRE ACCOUNT STRUCTURE
      DEC 12
      ASC 12,  PU[RGE],G[ROUP],<NAME> 
      DEC 19
      ASC 19,REMOVES A GROUP FROM THE ACCOUNT FILE
      DEC 15
      ASC 15,  PU[RGE],U[SER],<USER.GROUP>
      DEC 18
      ASC 18,REMOVES A USER FROM THE ACCOUNT FILE 
      DEC 22
      ASC 22,  RE[SET],G[ROUP],<NAME>[,(CPU OR CONNECT)]
      DEC 13
      ASC 13,CLEARS GROUP LOGON CLOCKS
      DEC 24
      ASC 24,  RE[SET],U[SER],<USER.GROUP>[,(CPU OR CONNECT)] 
      DEC 12
      ASC 12,CLEARS USER LOGON CLOCKS 
      DEC 22
      ASC 22,  SD[,LU[,RP][,RG]]  OR  SD,RE[LEASE MEMORY] 
      DEC 29
      ASC 21,SHUTS DOWN AN ACTIVE SESSION OR THE ENTIRE 
      ASC  8, SESSION SYSTEM
      DEC 2 
      ASC  2,  SU 
      DEC 14
      ASC 14,RESTARTS THE SESSION SYSTEM
      DEC 23
      ASC 23,  TE[LL],<USER.GROUP>,<MESSAGE FILE>,<MESSAGE> 
      DEC 23
      ASC 23,SENDS A MESSAGE TO ONE OR MORE ACTIVE SESSIONS 
      DEC 34
      ASC 22,  TR[[[[ANSFER],<CONTROL NAMR>],<LIST NAMR>] 
      ASC 12,,(EC[HO] OR NO[ ECHO)]]
      DEC 25
      ASC 25,TRANSFERS CONTROL OF ACCTS PROGRAM TO A FILE OR LU 
      DEC 35
      ASC 23,  /TR[[[[ANSFER],<CONTROL NAMR>],<LIST NAMR>], 
      ASC 12,(EC[HO] OR NO[ ECHO)]] 
      DEC 25
      ASC 25,TRANSFERS CONTROL OF ACCTS PROGRAM TO A FILE OR LU 
      DEC  9
      ASC  9,  UN[LOAD],<NAMR>
      DEC 16
      ASC 16,DUMPS A COPY OF THE ACCOUNT FILE 
      DEC 2 
      ASC 2,
      DEC 1 
      ASC 1,
      DEC 7 
      ASC  7,   USER.GROUP
      DEC 1 
      ASC 1,
      DEC 19
      ASC 19,      @."GROUP" - ALL USERS IN "GROUP" 
      DEC 1 
      ASC 1,
      DEC 20
      ASC 20,   "USER".@     - ALL USERS NAMED "USER" 
      DEC 1 
      ASC 1,
      DEC 14
      ASC 14,        @.@     - ALL USERS
      DEC 1 
      ASC 1,
      DEC 2 
      ASC 2,
      DEC 1 
      ASC 1,
      DEC 15
      ASC 15,   NAMR -FILENAME:SC:CR OR LU
      DEC 1 
      ASC 1,
      DEC 15
      ASC 15,   /A -ABORT CURRRENT COMMAND
      DEC 1 
      ASC 1,
      DEC 13
      ASC 13,   /E -END CURRRENT PHASE
      DEC 1 
      ASC 1,
      DEC 18
      ASC 18,  HE[LP][,[<KEYWORD>][,<LIST NAMR>]] 
      DEC 13
      ASC 13,LISTS SYNTAX OF COMMAND[S] 
      DEC 15
      ASC 15,  HE[LP],<ERROR NUMBER>[,<LU>] 
      DEC 14
      ASC 14,GETS HELP MESSAGE FOR ERROR
      DEC 16
      ASC 16,  /HE[LP],<ERROR NUMBER>[,<LU>]
      DEC 14
      ASC 14,GETS HELP MESSAGE FOR ERROR
TEND  DEF * 
      END 
          