ASMB,R,L,C * NAME: CLD.R * SOURCE: 92070-18055 * RELOC: 92070-16055 * PGMR: M.L.K. * * *************************************************************** * * (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 CLD.R,7 92070-1X055 REV.1941 790709 * * * THIS ROUTINE PROVIDES A CENTRAL CALLING POINT * FOR D.RTR * ENT CLD.R ENT .P1,.P2,.P3,.P4,.P5,.P6,.P7,.P8,.P9 ENT .R1,.R2,.R3,.R4,.R5 * EXT D.RTR,GTOPN SUP SPC 3 CLD.R NOP JSB GTOPN GET CURRENT OPEN FLAG DEF *+1 STA .P0 STORE IN 1ST PARAMETER JSB D.RTR NOW CALL DEF .P0 PASSED PARAMETERS DEF .R1 RETURNED PARAMETERS JMP CLD.R,I RETURN SPC 3 .P0 NOP .P1 NOP .P2 NOP .P3 NOP .P4 NOP .P5 NOP .P6 NOP NOP NOP .P7 NOP .P8 NOP .P9 NOP * .R1 NOP .R2 NOP .R3 NOP .R4 NOP .R5 NOP * END EQU * END