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