Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50221/runh.mac
There are no other files named runh.mac in the archive.
TITLE  RUNH--FORTRAN SUBROUTINE TO TRANSFER FROM ONE PROGRAM TO ANOTHER
SUBTTL  ROBERT HSU
	ENTRY	RUNH

A:	0
B:	0
C:	0
D:	0
E:	0
F:	0
FILENM:	0
	0
G=6
P1=10
TMP=12
TMP1=13
TMP2=14
AC=15
ARG=16
CNT=17
;
;
RUNH:	0
	MOVEI	G,17
	DPB	G,[POINT 4,CLOZ,12]
CLOZ:	CLOSE	0,
	SOJGE	G,.-2
	SETZM	D
	SETZM	C
	SETZM	TMP1
	SETZM	TMP2
	SETZM	F
	MOVEI	TMP1,@0(ARG)
	JSP	G,CONVRT
	MOVEM	TMP2,A
	MOVE	TMP1,@1(ARG)
	MOVEM	TMP1,FILENM
	MOVEI	TMP1,@1(ARG)
	JSP	G,CONVRT
	MOVEM	TMP2,B
	HLR	0,3(16)
	ANDI	0,-1000
	CAIE	0,320000
	JRST	.+4
	HRLZ	G,@2(ARG)
	HRR	G,@3(ARG)
	MOVEM	G,E
	HRRZI	AC,A
	CALLI	AC,35
	JRST	ERROR
	CALLI	12
CONVRT:	MOVE	P1,SIXBPT
	HRLI	TMP1,440700
	MOVEI	AC,6
	ILDB	TMP,TMP1
	CAIG	TMP,40
	JRST	0(G)
	TRC	TMP,40
	IDPB	TMP,P1
	SOJG	AC,CONVRT+3
	JRST	0(G)
	0
ERROR:	TTCALL	3,ERRMSG
	TTCALL	3,FILENM
	CALLI	12
SIXBPT:	POINT	6,TMP2
ERRMSG:	ASCIZ/
? CANNOT RUN FILE /
	END