ASMB,R,Q,C * NAME: LOGLU * SOURCE: 92071-18205 * RELOC: 92071-1X205 * PGMR: HLC,DJN * * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. 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 LOGLU,7 92071-1X205 REV.2041 800627 ENT LOGLU * EXT $CON,$CVT1 EXT .XLD A EQU 0 B EQU 1 * * LOGLU NOP DLD LOGLU,I STA LOGLU CCA STA B,I NOT IN SESSION JSB .XLD GET SCHED LU DEF $CON JSB .XLD DEF A,I AND =B77 GET CONSOLE FROM ID SEGMENT STA B JSB $CVT1 CONVERT LU TO ASCII IOR =B10000 CHANGE SPACE TO ZERO SWP PUT ASCII IN B, NUMERIC IN A JMP LOGLU,I RETURN TO CALL END