ASMB,R,Q,C * NAME: LOGLU * SOURCE: 92070-18205 * RELOC: 92070-1X205 * 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 LOGLU,7 92070-1X205 REV.1941 800130 ENT LOGLU * EXT $CON,$LIBR,$CVT1,$LIBX A EQU 0 B EQU 1 * * LOGLU NOP DLD LOGLU,I STA LOGLU CCA,CCE STA B,I NOT IN SESSION LDA $CON,I AND =B77 GET CONSOLE FROM ID SEGMENT STA B JSB $LIBR TURN OFF MEMORY PROTECT NOP JSB $CVT1 CONVERT LU TO ASCII IOR =B10000 CHANGE SPACE TO ZERO SWP PUT ASCII IN B, NUMERIC IN A JSB $LIBX DEF LOGLU END