ASMB,R,L,C HED DCLOS 91700-16111 REV A 751222 * (C) HEWLETT PACKARD CO. 1976 NAM DCLOS,7 91700-16111 REV A 751222 SPC 1 ****************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 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. * ****************************************************************** SPC 2 ENT DCLOS EXT CLOSE EXT .ENTR SPC 5 * * DCLOS * SOURCE:91700-18111 * BINARY:91700-16111 * SHANE DICKEY * JULY 31,1974 * PRAMS REP 3 NOP DCLOS NOP JSB .ENTR DEF PRAMS * * * DLD PRAMS MOVE DEFS FOR 1ST TWO DST PRAM1 * LDA PRAMS+2 MOVE 3RD STA PRAM1+2 * LDA D3 CALCULATE RETURN ADA ADDS STA DRTN & PUT IN CONSTRUCTED CALL * JSB RFASR CLB STB PRAMS+2 CLEAR OPTIONAL PARAMETERS STB PRAM1+2 JMP DCLOS,I FINISHED RETURN TO USER RFASR NOP JSB CLOSE DRTN NOP PRAM1 REP 3 NOP JMP RFASR,I SPC 5 * CONSTANTS D3 DEC 3 ADDS DEF DRTN+1 END * AN ERROR EXISTS