Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0038/readpl.scm
There is 1 other file named readpl.scm in the archive. Click here to see a list.
File 1)	DSK:READPL.OLD[4,371]	created: 1900 06-Jun-1971
File 2)	DSK:READPL.MAC[4,371]	created: 1645 24-Jun-1980

1)1	READPL: 0
1)	     MOVEM PASS,SPARE
****
2)1	READPL:
2)	     MOVEM PASS,SPARE
**************
1)1	     JRA 16,3(16)
1)	FAIL:	MOVE PASS,THREE ;SET ARG =3 IF ERROR
1)		MOVEM PASS,@2(16)
1)		JRA 16,3(16) ;RETURN
1)	INNAME: 0
****
2)1	;     JRA 16,3(16)
2)		POPJ	17,
2)	FAIL:	MOVE PASS,THREE ;SET ARG =3 IF ERROR
2)		MOVEM PASS,@2(16)
2)	;	JRA 16,3(16) ;RETURN
2)		POPJ 17,
2)	INNAME: 0
**************
1)1	CONVER: 0
1)	      MOVEM 17,REG     ;SAVE REG 17
****
2)1	CONVER:
2)	      MOVEM 17,REG     ;SAVE REG 17
**************
1)1	      JRA 16,1(16)
1)	ONE:  MOVEI 3,1
****
2)1	;      JRA 16,1(16)
2)		POPJ	17,
2)	ONE:  MOVEI 3,1
**************