ASMB,R,L,C HED DSTAT 91700-16120 REV A 751222 * (C) HEWLETT PACKARD CO. 1976 NAM DSTAT,7 91700-16120 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 DSTAT EXT FSTAT EXT .ENTR SPC 5 * * DSTAT * SOURCE:91700-18120 * BINARY:91700-16120 * SHANE DICKEY * JULY 31,1974 * PRAMS NOP DSTAT NOP JSB .ENTR DEF PRAMS * LDA PRAMS MOVE DEFS FOR 1ST TWO STA PRAM1 * LDA D1 CALCULATE RETURN ADA ADDS STA DRTN & PUT IN CONSTRUCTED CALL * JSB RFASR JMP DSTAT,I FINISHED RETURN TO USER SPC 5 RFASR NOP JSB FSTAT DRTN NOP PRAM1 NOP JMP RFASR,I SPC 5 * CONSTANTS ADDS DEF DRTN+1 D1 DEC 1 END * AN ERROR EXISTS