ASMB,R,L,C HED DCONT 91700-16112 REV A 751222 * (C) HEWLETT PACKARD CO. 1976 NAM DCONT,7 91700-16112 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 DCONT EXT FCONT EXT .ENTR SPC 5 * * DCONT * SOURCE:91700-18112 * BINARY:91700-16112 * SHANE DICKEY * JULY 31,1974 * PRAMS REP 4 NOP DCONT NOP JSB .ENTR DEF PRAMS * LDA D3 SET UP DEFAULT # OF PARAMETERS STA #PRMS * DLD PRAMS MOVE DEFS FOR 1ST TWO DST PRAM1 * DLD PRAMS+2 MOVE 2ND TWO DST PRAM1+2 * * SZB,RSS WAS THE 6TH ONE THERE? JMP DONE NO DONE * ISZ #PRMS YES INCREMENT COUNT DONE LDA #PRMS CALCULATE RETURN ADA ADDS STA DRTN & PUT IN CONSTRUCTED CALL * JSB RFASR JSB CLEAR CLEAR PARAMETER ARRAY JMP DCONT,I FINISHED RETURN TO USER SPC 5 RFASR NOP JSB FCONT DRTN NOP PRAM1 REP 4 NOP JMP RFASR,I SPC 5 CLEAR NOP CLB CLEAR OPTIONAL PARAMETER DEF STB PRAMS+3 STB PRAM1+3 * JMP CLEAR,I SPC 5 * CONSTANTS D3 DEC 3 ADDS DEF DRTN+1 #PRMS NOP END * AN ERROR EXISTS