.macro setup item,name,size,routine,info .save .psect jpi_list_data .word size .word jpi$_'item .address jpi_'item .address jpi_len_'item .long routine .psect jpi_return_data jpi_len_'item': .blkw 2 jpi_'item': .blkb size .psect ascii_counteds .ascic name .restore .endm .psect ascii_counteds rd,nowrt start_of_strings: .psect jpi_return_data rd,wrt jpi_return_list: .psect jpi_list_data rd,nowrt jpi_list_start: .psect routines rd,nowrt jpi_routines: .psect code rd,nowrt .entry get_item,^m movl 4(ap),r8 movab start_of_strings,r7 movl #0,r9 10$: movzbl (r7),r6 incl r7 cmpc5 @8(ap),@4(r8),#^A/ /,r6,(r7) tstl r0 beql 20$ incl r9 addl r6,r7 tstl r6 bneq 10$ movl #0,r0 ret 20$: movc5 r6,(r7),#^A/ /,(r8),@4(r8) movl r6,@8(ap) mull #4,r9 moval jpi_list_start,r8 movl (r8)+[r9],@12(ap) movl (r8)+[r9],@16(ap) movl (r8)+[r9],@20(ap) movl (r8)+[r9],@24(ap) movl #1,r0 ret .psect data rd,nowrt SETUP ACCOUNT,<'ACCOUNT'>,8,cvt$text,<'ACCOUNT NAME STRING '> SETUP APTCNT,<'APTCNT'>,4,cvt$numeric,<'ACTIVE PAGE TABLE COUNT '> SETUP ASTACT,<'ASTACT'>,4,cvt$access_mode,<'ACCESS MODES WITH ACTIVE ASTS '> SETUP ASTCNT,<'ASTCNT'>,4,cvt$numeric,<'AST COUNT REMAINING '> SETUP ASTEN,<'ASTEN'>,4,cvt$access_mode,<'ACCESS MODES WITH ASTS ENABLED '> SETUP ASTLM,<'ASTLM'>,4,cvt$numeric,<'AST LIMIT '> SETUP AUTHPRI,<'AUTHPRI'>,4,cvt$numeric,<'AUTHORIZED PRIORITY FOR $SETPRI '> SETUP AUTHPRIV,<'AUTHPRIV'>,8,cvt$privilege,<'AUTHORIZED PRIVILEGE MASK '> SETUP BIOCNT,<'BIOCNT'>,4,cvt$numeric,<'BUFFERED I'O COUNT REMAINING '> SETUP BIOLM,<'BIOLM'>,4,cvt$numeric,<'BUFFERED I'O LIMIT '> SETUP BUFIO,<'BUFIO'>,4,cvt$numeric,<'PROCESS BUFFERED I'O OPERATIONS '> SETUP BYTCNT,<'BYTCNT'>,4,cvt$numeric,<'BYTE COUNT REMAINING FOR BUFFERED I'O '> SETUP BYTLM,<'BYTLM'>,4,cvt$numeric,<'BUFFERED I'0 BYTE COUNT LIMIT '> SETUP CLINAME,<'CLINAME'>,39,cvt$text,<'COMMAND LANGUAGE INTERPRETER NAME'> SETUP CPULIM,<'CPULIM'>,4,cvt$cpulim,<'LIMIT ON CPUTIM FOR PROCESS '> SETUP CPUTIM,<'CPUTIM'>,4,cvt$cputim,<'ACCUMULATED CPU TIME '> SETUP CREPRC_FLAGS,<'CREPRC_FLAGS'>,4,cvt$creprc_flags,<'$CREPRC FLAGS USED TO CREATE THIS PROCESS'> SETUP CURPRIV,<'CURPRIV'>,8,cvt$privilege,<'CURRENT PROCESS PRIVILEGE MASK '> SETUP DFPFC,<'DFPFC'>,4,cvt$numeric,<'DEFAULT PAGE FAULT CLUSTER '> SETUP DFWSCNT,<'DFWSCNT'>,4,cvt$numeric,<'DEFAULT WORKING SET SIZE '> SETUP DIOCNT,<'DIOCNT'>,4,cvt$numeric,<'DIRECT I'O COUNT REMAINING '> SETUP DIOLM,<'DIOLM'>,4,cvt$numeric,<'DIRECT I'O COUNT LIMIT '> SETUP DIRIO,<'DIRIO'>,4,cvt$numeric,<'PROCESS DIRECT I'O OPERATIONS '> SETUP EFCS,<'EFCS'>,4,cvt$numeric_hex,<'LOCAL EVENT FLAGS 0-31 '> SETUP EFCU,<'EFCU'>,4,cvt$numeric_hex,<'LOCAL EVENT FLAGS 32-63 '> SETUP EFWM,<'EFWM'>,4,cvt$numeric_hex,<'EVENT FLAG WAIT MASK '> SETUP ENQCNT,<'ENQCNT'>,4,cvt$numeric,<'ENQUEUE COUNT REMAINING '> SETUP ENQLM,<'ENQLM'>,4,cvt$numeric,<'ENQUEUE COUNT LIMIT '> SETUP EXCVEC,<'EXCVEC'>,4,cvt$excvec,<'ADDRESS OF "EXCEPTION VECTOR" VECTOR '> SETUP FILCNT,<'FILCNT'>,4,cvt$numeric,<'COUNT REMAINING OF OPEN FILES '> SETUP FILLM,<'FILLM'>,4,cvt$numeric,<'OPEN FILE LIMIT '> SETUP FINALEXC,<'FINALEXC'>,4,cvt$finalexc,<'ADDRESS OF LAST CHANCE EXCEPTION VECTORS '> SETUP FREP0VA,<'FREP0VA'>,4,cvt$numeric_hex,<'FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE '> SETUP FREP1VA,<'FREP1VA'>,4,cvt$numeric_hex,<'FIRST FREE ADDR. AT END OF P1 SPACE '> SETUP FREPTECNT,<'FREPTECNT'>,4,cvt$numeric,<'ROOM FOR EXPANSION OF P0 OR P1 SPACE '> SETUP GPGCNT,<'GPGCNT'>,4,cvt$numeric,<'GLOBAL PAGE COUNT IN WORKING SET '> SETUP GRP,<'GRP'>,4,cvt$numeric_oct,<'GROUP FIELD OF UIC '> SETUP IMAGECOUNT,<'IMAGECOUNT'>,4,cvt$numeric,<'IMAGE COUNTER (CLOCKED BY RUNDOWN) '> SETUP IMAGNAME,<'IMAGNAME'>,128,cvt$text,<'CURRENT IMAGE FILE NAME '> SETUP IMAGPRIV,<'IMAGPRIV'>,8,cvt$privilege,<'INSTALLED IMAGE PRIVILEGE MASK '> SETUP JOBPRCCNT,<'JOBPRCCNT'>,4,cvt$numeric,<'TOTAL COUNT OF SUBPROCESSES IN A JOB '> SETUP JOBTYPE,<'JOBTYPE'>,4,cvt$jobtype,<'JOB TYPE CODE'> SETUP LOGINTIM,<'LOGINTIM'>,8,cvt$time,<'TIME OF LOGIN OR PROCESS CREATION '> SETUP MASTER_PID,<'MASTER_PID'>,4,cvt$numeric_hex,<'MASTER PROCESS PID'> SETUP MAXDETACH,<'MAXDETACH'>,4,cvt$numeric,<'MAXIMUM DETACHED PROCESSES FOR SINGLE USER'> SETUP MAXJOBS,<'MAXJOBS'>,4,cvt$numeric,<'MAXIMUM ACTIVE PROCESSES FOR SINGLE USER'> SETUP MEM,<'MEM'>,4,cvt$numeric_oct,<'MEMBER FIELD OF UIC '> SETUP MODE,<'MODE'>,4,cvt$mode,<'MODE VALUE (FROM STS) - DEFINED ABOVE'> SETUP MSGMASK,<'MSGMASK'>,4,cvt$msgmsk,<'PROCESS DEFAULT MESSAGE FLAGS'> SETUP OWNER,<'OWNER'>,4,cvt$numeric_hex,<'PID OF CREATOR PROCESS '> SETUP PAGEFLTS,<'PAGEFLTS'>,4,cvt$numeric,<'COUNT OF PAGE FAULTS '> SETUP PAGFILCNT,<'PAGFILCNT'>,4,cvt$numeric,<'PAGES CHARGED TO PAGE FILE QUOTA '> SETUP PAGFILLOC,<'PAGFILLOC'>,4,cvt$numeric_hex,<'PAGE FILE BACKING STORE ADDRESS '> SETUP PGFLQUOTA,<'PGFLQUOTA'>,4,cvt$numeric,<'MAX. VIRTUAL PAGE COUNT '> SETUP PHDFLAGS,<'PHDFLAGS'>,4,cvt$phdflags,<'PROCESS HEADER FLAGS WORD'> SETUP PID,<'PID'>,4,cvt$numeric_hex,<'PROCESS IDENTIFICATION '> SETUP PPGCNT,<'PPGCNT'>,4,cvt$numeric,<'PROCESS PAGE COUNT IN WORKING SET '> SETUP PRCCNT,<'PRCCNT'>,4,cvt$numeric,<'SUBPROCESS COUNT '> SETUP PRCLM,<'PRCLM'>,4,cvt$numeric,<'SUBPROCESS QUOTA '> SETUP PRCNAM,<'PRCNAM'>,16,cvt$text,<'PROCESS NAME '> SETUP PRI,<'PRI'>,4,cvt$numeric,<'CURRENT PROCESS PRIORITY '> SETUP PRIB,<'PRIB'>,4,cvt$numeric,<'PROCESS BASE PRIORITY '> SETUP PROCPRIV,<'PROCPRIV'>,8,cvt$privilege,<'PROCESS PRIVILEGE MASK '> SETUP PROC_INDEX,<'PROC_INDEX'>,4,cvt$numeric_hex,<'PROCESS INDEX'> SETUP SHRFILLM,<'SHRFILLM'>,4,cvt$numeric,<'MAXIMUM OPEN SHARED FILES'> SETUP SITESPEC,<'SITESPEC'>,4,cvt$numeric_hex,<'PER-PROCESS SITE-SPECIFIC CELL '> SETUP STATE,<'STATE'>,4,cvt$state,<'PROCESS STATE '> SETUP STS,<'STS'>,4,cvt$sts,<'PROCESS STATUS '> SETUP SWPFILLOC,<'SWPFILLOC'>,4,cvt$numeric_hex,<'SWAP FILE BACKING STORE ADDRESS '> SETUP TABLENAME,<'TABLENAME'>,252,cvt$text,<'COMMAND LANGUAGE INTERPRETER TABLE NAME'> SETUP TERMINAL,<'TERMINAL'>,8,cvt$text,<'LOGIN TERMINAL NAME '> SETUP TMBU,<'TMBU'>,4,cvt$numeric,<'TERMINATION MAILBOX UNIT '> SETUP TQCNT,<'TQCNT'>,4,cvt$numeric,<'COUNT REMAINING OF TIMER QUEUE ENTRIES '> SETUP TQLM,<'TQLM'>,4,cvt$numeric,<'TIMER QUEUE LIMIT '> SETUP UAF_FLAGS,<'UAF_FLAGS'>,4,cvt$uaf_flags,<'FLAGS FROM UAF RECORD'> SETUP UIC,<'UIC'>,4,cvt$uic,<'UIC OF PROCESS '> SETUP USERNAME,<'USERNAME'>,12,cvt$text,<'USERNAME STRING '> SETUP VIRTPEAK,<'VIRTPEAK'>,4,cvt$numeric_hex,<'PEAK VIRTUAL SIZE '> SETUP VOLUMES,<'VOLUMES'>,4,cvt$numeric,<'VOLUMES MOUNTED '> SETUP WSAUTH,<'WSAUTH'>,4,cvt$numeric,<'AUTHORIZED WORKING SET SIZE '> SETUP WSAUTHEXT,<'WSAUTHEXT'>,4,cvt$numeric,<'MAX EXTENT OF WORKING SET SIZE '> SETUP WSEXTENT,<'WSEXTENT'>,4,cvt$numeric,<'EXTENT OF WORKING SET SIZE '> SETUP WSPEAK,<'WSPEAK'>,4,cvt$numeric,<'PEAK WORKING SET SIZE '> SETUP WSQUOTA,<'WSQUOTA'>,4,cvt$numeric,<'QUOTA ON WORKING SET SIZE '> SETUP WSSIZE,<'WSSIZE'>,4,cvt$numeric,<'CURRENT WORKING SET SIZE '> .END