Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - d60jsy.c10
There is 1 other file named d60jsy.c10 in the archive. Click here to see a list.
 INS 1/1	;10C1
	; [306] 18-Oct-84	LWS	GCO 10112
	;	Get rid the @.RETT, @.RETF, etc. some clever person coded.
	;	Strange things happen now that .RETT and .RETF and others are
	;	now in the low seg and don't use the entry vector.
 REP 5/2	;10C2
	;	    COPYRIGHT (c) 1979, 1980, 1981, 1982, 1983, 1984
	;		     DIGITAL EQUIPMENT CORPORATION
 WIT
	;	    COPYRIGHT (c) 1979,1980,1981,1982,1983,1984,1985
	;		     DIGITAL EQUIPMENT CORPORATION
	;			 ALL RIGHTS RESERVED.
 DEL 37/2	;10C3
	.BCOPY
	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
	.ECOPY

 REP 45/2	;10C4
		XP	D60EDT, 305		; Edit level
 WIT
		XP	D60EDT, 306		; Edit level
 REP 18/8	;10C5
	  IFB  <$%VEC>,<JRST @.RETF>	;;  else give a default of false return
 WIT
	  IFB  <$%VEC>,<JRST .RETF>	;; [306]  else give a default of false return
 REP 54/11	;10C6
		JUMPF	@.POPJ			; can't
 WIT
		JUMPF	.POPJ			; [306] can't
 REP 74/11	;10C7
		JUMPF	@.POPJ			;  Can't open a front end
		$CALL	PRTSTS			; Get the port status
		JUMPF	@.POPJ			;  Can't get port status .. dead 11
 WIT
		JUMPF	.POPJ			; [306]  Can't open a front end
		$CALL	PRTSTS			; Get the port status
		JUMPF	.POPJ			; [306]  Can't get port status .. dead 11
 REP 86/11	;10C8
		JUMPF	@.POPJ			;  Someone died .. go release device
 WIT
		JUMPF	.POPJ			; [306]  Someone died .. go release device
 REP 72/12	;10C9
		JUMPT	@.POPJ			; true...return immediately
 WIT
		JUMPT	.POPJ			; [306] true...return immediately
 REP 61/15	;10C10
		 JUMPN	S1,@.RETT		;  Input device .. can't output EOF
		LOAD	S1,(S2),H$RUN		; Check to see if I/O is running
		JUMPE	S1,@.RETT		; no need
 WIT
		 JUMPN	S1,.RETT		; [306]  Input device .. can't output EOF
		LOAD	S1,(S2),H$RUN		; Check to see if I/O is running
		JUMPE	S1,.RETT		; [306] no need
 REP 47/17	;10C11
		JUMPF	@.POPJ			;  Can't get device status .. die
 WIT
		JUMPF	.POPJ			; [306]  Can't get device status .. die
 REP 59/17	;10C12
		JUMPF	@.POPJ			;  Can't get at the port
 WIT
		JUMPF	.POPJ			; [306]  Can't get at the port
 REP 73/17	;10C13
		JUMPF	@.POPJ			;  Failed to start a front end
 WIT
		JUMPF	.POPJ			; [306]  Failed to start a front end
 REP 77/17	;10C14
		JUMPF	@.POPJ			;  If line status failed .. bad return
 WIT
		JUMPF	.POPJ			; [306]  If line status failed .. bad return
 REP 52/18	;10C15
		JUMPF	@.POPJ			; exit if failed
 WIT
		JUMPF	.POPJ			; [306] exit if failed
 REP 98/18	;10C16
		JUMPF	@.POPJ			; no success exit till signed on
 WIT
		JUMPF	.POPJ			; [306] no success exit till signed on
 REP 46/19	;10C17
		JUMPF	@.POPJ
 WIT
		JUMPF	.POPJ			; [306] 
 REP 86/20	;10C18
		JUMPF	@.POPJ
		$LNCMD	(LC.SON)		; set station signed on flag
		JUMPF	@.POPJ			; slowness
 WIT
		JUMPF	.POPJ			; [306] 
		$LNCMD	(LC.SON)		; set station signed on flag
		JUMPF	.POPJ			; [306] slowness
 REP 106/20	;10C19
		JRST	@.POPJ			; innocuous
 WIT
		JRST	.POPJ			; [306] innocuous
 REP 163/21	;10C20
		JUMPF	@.POPJ			; just return if end of string
 WIT
		JUMPF	.POPJ			; [306] just return if end of string
 REP 169/21	;10C21
		JUMPF	@.POPJ			; we are done one way or another
 WIT
		JUMPF	.POPJ			; [306] we are done one way or another
 REP 177/21	;10C22
		JUMPE	T1,@.POPJ		; if file error, this fails
 WIT
		JUMPE	T1,.POPJ		; [306] if file error, this fails
 REP 193/21	;10C23
	GETNDX:	JUMPE	T2,@.RETF		; not a valid node name
 WIT
	GETNDX:	JUMPE	T2,.RETF		; [306] not a valid node name
 REP 16/22	;10C24
		JUMPF	@.POPJ			;  Yes .. so just return with failure
 WIT
		JUMPF	.POPJ			; [306]  Yes .. so just return with failure
 REP 26/22	;10C25
		JUMPF	@.POPJ

	REQGLP:	$CALL	CKIABT			; Check for input aborts
		JUMPF	@.POPJ			;  Failure do to abort on device
 WIT
		JUMPF	.POPJ			; [306] 

	REQGLP:	$CALL	CKIABT			; Check for input aborts
		JUMPF	.POPJ			; [306]  Failure do to abort on device
 REP 15/23	;10C26
		JUMPF	@.POPJ			;  Failed .. line must be dead
 WIT
		JUMPF	.POPJ			; [306]  Failed .. line must be dead
 REP 32/23	;10C27
		JUMPF	@.POPJ			;  Yes .. just give error return
 WIT
		JUMPF	.POPJ			; [306]  Yes .. just give error return
 REP 40/23	;10C28
		JUMPF	@.POPJ

		$CALL	CKOABT			; Check for output aborts
		JUMPF	@.POPJ			;  Yes .. failure on device
 WIT
		JUMPF	.POPJ			; [306] 

		$CALL	CKOABT			; Check for output aborts
		JUMPF	.POPJ			; [306]  Yes .. failure on device
 REP 24/24	;10C29
		JUMPF	@.POPJ
 WIT
		JUMPF	.POPJ			; [306] 
 REP 34/24	;10C30
		JUMPF	@.POPJ			;  Failed to clear flag
 WIT
		JUMPF	.POPJ			; [306]  Failed to clear flag
 REP 24/25	;10C31
		JUMPF	@.POPJ
 WIT
		JUMPF	.POPJ			; [306] 
 REP 32/25	;10C32
		JUMPF	@.POPJ			; Failed to clear flag
 WIT
		JUMPF	.POPJ			; [306] Failed to clear flag
 REP 16/27	;10C33
		JUMPF	@.POPJ			; no more free space
 WIT
		JUMPF	.POPJ			; [306] no more free space
 REP 46/27	;10C34
		JUMPF	@.POPJ
 WIT
		JUMPF	.POPJ			; [306] 
 REP 41/39	;10C35
		JUMPF	@.POPJ			;  Can't get status so fail.
 WIT
		JUMPF	.POPJ			; [306]  Can't get status so fail.
 REP 51/41	;10C36
		JUMPE	S1,@.RETT		; If no error then give success
 WIT
		JUMPE	S1,.RETT		; [306] If no error then give success
 REP 17/42	;10C37
		JUMPF	@.POPJ			; looks like the fe is dead or delayed
 WIT
		JUMPF	.POPJ			; [306] looks like the fe is dead or delayed
 REP 36/50	;10C38
		JUMPE	0,@.RETT		; suc'd
 WIT
		JUMPE	0,.RETT			; [306] suc'd
 REP 92/52	;10C39
		JUMPE	TF,@.RETT		; null transfer implies done
		LOAD	TF,(P1),ARG$BC		; check no bytes left to xfer
		JUMPGE	TF,@.RETT		; done?
 WIT
		JUMPE	TF,.RETT		; [306] null transfer implies done
		LOAD	TF,(P1),ARG$BC		; check no bytes left to xfer
		JUMPGE	TF,.RETT		; [306] done?
 REP 37/53	;10C40
		JUMPF	@.POPJ			;  Failed ... the line is down
 WIT
		JUMPF	.POPJ			; [306]  Failed ... the line is down
 REP 20/55	;10C41
		 JUMPF	@.POPJ			;  Failed ... go away
 WIT
		 JUMPF	.POPJ			; [306]  Failed ... go away
 SUM 119781