Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_ap115_bb-ju01b-bb - ibmspl.c10
There are 13 other files named ibmspl.c10 in the archive. Click here to see a list.
 REP 21/3	;10C1
		XP	IBMEDT,	364		; Edit level
 WIT
		XP	IBMEDT,	366		; Edit level
 REP 472/4	;10C2

 WIT
	4(365)	22-Oct-84	VLG	Fix file not printing if LSTR switch is used
					accidently.
	4(366)	1-Nov-84	TPW	Remove indirection from instructions using
					.RETT,.RETF,.POPJ memory operands
					(i.e. @.POPJ -> .POPJ).
 INS 115/53	;10C3

 REP 132/56	;10C4
	STRPBL:	JUMPLE	T2,@.POPJ		; do nothing if no data
 WIT
	STRPBL:	JUMPLE	T2,.POPJ		; do nothing if no data
 REP 6/68	;10C5
		JUMPF	@.POPJ			;propagate error if we cannot
 WIT
		JUMPF	.POPJ			;propagate error if we cannot
 REP 77/90	;10C6
		JUMPF	@.POPJ			;hard error ?
 WIT
		JUMPF	.POPJ			;hard error ?
 REP 21/97	;10C7
		JUMPF	@.RETT			;things are going downhill fast
 WIT
		JUMPF	.RETT			;things are going downhill fast
 REP 27/113	;10C8
		JUMPF	PRCALL			;no, skip this
 WIT
		JUMPF	PRSTR			;[365] no, skip this
 REP 40/113	;10C9

 WIT
	PRSTR:	
		MOVEI	T2,.IBMST		;[365]code for structure entry
		$CALL	FNDENT			;[365]see if structure present
		JUMPF	PRCALL			;[365]no - so don't do anything
		MOVEI	S1,[.IBMST]		;[365] delete the LSTR entry
		$CALL	INSENT			;[365]
		$RETT				;[365]
		
 REP 41/118	;10C10
		SOJLE	T4,@.RETF		;must be permanent
 WIT
		SOJLE	T4,.RETF		;must be permanent
 REP 67/118	;10C11
		SOJLE	T4,@.RETF		;looks grim
 WIT
		SOJLE	T4,.RETF		;looks grim
 REP 33/119	;10C12
		JUMPF	@.POPJ			;Failed
 WIT
		JUMPF	.POPJ			;Failed
 SUM 137909