ASMB,C,Q * NAME: LUSES * SOURCE: 92070-18266 * RELOC: 92070-1X266 * PGMR: HLC * * * **************************************************************** * * (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. * * **************************************************************** * * NAM LUSES,7 92070-1X266 REV.2040 800715 ENT LUSES,SESSN,ICAPS * * 'LUSES' PURPOSE: FIND A SESSION CONTROL BLOCK FOR A GIVEN TERMINAL. * * DUMMY ROUTINE FOR NON-SESSION SYSTEMS. * * CALLING SEQUENCE: * I=LUSES(IDENT) * * ZERO IS RETURNED TO INDICATE NOT FOUND. * * * * * 'SESSN' PURPOSE: DETERMINE WHETHER A PROGRAM IS IN SESSION. * * DUMMY ROUTINE FOR NON-SESSION SYSTEMS. * * CALLING SEQUENCE: * JSB SESSN * DEF *+2 * DEF IDSEG ID SEGMENT ADDRESS * * E=0 IF IN SESSION * E=1 IF NOT IN SESSION * * * * 'ICAPS' PURPOSE: DETERMINE THE CAPABILITY OF THE * USER OF THE CALLING PROGRAM. * * DUMMY ROUTINE FOR NON-SESSION SYSTEMS. * IN RTE-L ICAPS ALWAYS RETURNS ZERO. * * CALLING SEQUENCE: * JSB ICAPS * DEF *+1 * RESULT (0) IN A-REGISTER (I.E. IT IS A FUNCTION) * A EQU 0 B EQU 1 * * ICAPS EQU * SESSN EQU * LUSES NOP LDB *-1,I GET RETURN ADDRESS CLA,CCE JMP B,I RTN (A)=0, (E)=1 * END