ASMB,R,L,C HED DWIND 91700-16121 REV A 751222 * (C) HEWLETT PACKARD CO. 1976 NAM DWIND,7 91700-16121 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 DWIND EXT RWNDF EXT .ENTR SPC 5 * * DWIND * SOURCE:91700-18121 * BINARY:91700-16121 * SHANE DICKEY * JULY 31,1974 * PRAMS REP 2 NOP DWIND NOP JSB .ENTR DEF PRAMS * LDA D1 SET UP DEFAULT # OF PARAMETERS STA #PRMS * DLD PRAMS MOVE DEFS FOR 1ST TWO DST PRAM1 * * SZB,RSS WAS THE 2ND 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 CLEAR CLEAR PARAMETER ARRAY JSB RFASR JMP DWIND,I FINISHED RETURN TO USER SPC 5 RFASR NOP JSB RWNDF DRTN NOP PRAM1 REP 2 NOP JMP RFASR,I SPC 5 CLEAR NOP CLB CLEAR DEF TO OPTIONAL PARAM STB PRAMS+1 STB PRAM1+1 * JMP CLEAR,I SPC 5 * CONSTANTS D1 DEC 1 ADDS DEF DRTN+1 #PRMS NOP END * AN ERROR EXISTS