ASMB,R,L,C HED WRIS$ * NAME: WRIS$ * SOURCE: 92067-18161 * RELOC: 92067-16125 * PGMR: G.A.A. * * *************************************************************** * * (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 WRIS$,7 92067-16125 REV.1903 740801 ENT WRIS,IWRIS,WEOFS EXT %WRIS,%WRIN,%WEOF EXT .ENTR * THIS ROUTINE IS USED TO CALL THE WRITE SOURCE ROUTINE * FROM A FORTRAN PROGRAM * INITILIZE CALL * CALL IWRIS(IER) IER=0 IF OK -1 IF NO TRACKS * WRITE CALL * CALL WRIS(BUF,L,ER) BUFFER ,LENGTH(-CHARACTERS),ER SAME AS ABOVE * TERMINATE CALL * CALL WEOFS SPC 3 BUF NOP L NOP ER NOP WRIS NOP JSB .ENTR DEF BUF LDA BUF GET THE BUFFER ADDRESS STA BA SET IF FOR THE CALL LDA L,I GET THE LENGTH STA L SET IT JSB %WRIS CALL TO TRANSFER DEF RT BA NOP DEF L CCA,RSS NO TRACK RETURN RT CLA NORMAL RETURN STA ER,I SET ERROR CODE JMP WRIS,I RETURN SPC 2 IER NOP IWRIS NOP JSB .ENTR DEF IER JSB %WRIN MAKE INITILIZE CALL CCB,RSS NO DISC RETURN CLB OK RETURN STB IER,I SET ERROR CODE JMP IWRIS,I RETURN SPC 3 WEOFS NOP JSB %WEOF WRITE THE END OF FILE LDA WEOFS,I GET THE RETURN ADDRESS JMP A,I RETURN SPC 2 A EQU 0 B EQU 1 END