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], DEC 10 ASC 10,ALTERS GROUP ACCOUNT DEC 15 ASC 15, AL[TER],U[SER], 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][,[][,]] DEC 15 ASC 15,LISTS SESSION WIDE INFORMATION DEC 22 ASC 22, LI[ST],G[ROUP],[,[][,ID]] DEC 20 ASC 20,LISTS ONE OR MORE GROUP ACCOUNT ENTRIES DEC 28 ASC 28, LI[ST],[U[SER]],[,[][,PA][,ID]] DEC 19 ASC 19,LISTS ONE OR MORE USER ACCOUNT ENTRIES DEC 12 ASC 12, LO[AD],[,ACCTS] DEC 27 ASC 27,REBUILDS THE ACCOUNTS ONLY FROM AN UNLOADED ACCT FILE DEC 11 ASC 11, LO[AD],[,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], DEC 19 ASC 19,REMOVES A GROUP FROM THE ACCOUNT FILE DEC 15 ASC 15, PU[RGE],U[SER], DEC 18 ASC 18,REMOVES A USER FROM THE ACCOUNT FILE DEC 22 ASC 22, RE[SET],G[ROUP],[,(CPU OR CONNECT)] DEC 13 ASC 13,CLEARS GROUP LOGON CLOCKS DEC 24 ASC 24, RE[SET],U[SER],[,(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],,, DEC 23 ASC 23,SENDS A MESSAGE TO ONE OR MORE ACTIVE SESSIONS DEC 34 ASC 22, TR[[[[ANSFER],],] 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],],], 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], 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][,[][,]] DEC 13 ASC 13,LISTS SYNTAX OF COMMAND[S] DEC 15 ASC 15, HE[LP],[,] DEC 14 ASC 14,GETS HELP MESSAGE FOR ERROR DEC 16 ASC 16, /HE[LP],[,] DEC 14 ASC 14,GETS HELP MESSAGE FOR ERROR TEND DEF * END