Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cblio.c14
There are 11 other files named cblio.c14 in the archive. Click here to see a list.
 REP 56/4	;14C1
	EXTERNAL SU.RBP,SU.CL,SU.WR,SU.RD,SU.DL,SU.RW	;SIMULTANEOUS UPDATE
 WIT
	EXTERNAL SU.RBP,SU.CL,SU.WR,SU.RD,SU.DL,SU.RW,SU.RR ;[1162]SIMULTANEOUS UPDATE
 REP 17/43	;14C2
		JRST	OPNC4X		;[561] NO,SKIP FOLLOWING ENTER/LOOKUP
 WIT
		JRST	OPNC4D		;[561][1156] NO,SKIP FOLLOWING ENTER/LOOKUP
 REP 41/43	;14C3
	OPNC4D:	JUMPN	AC5,OPNNSB	;[561] NON STANDARD BUFFER SETUP
 WIT
	OPNC4D:	TXNE	AC13,DV.MTA	;[1066] [561][1156] MTA??
		JUMPN	AC5,OPNNSB	;[561] NON STANDARD BUFFER SETUP
 INS 19/142	;14C4
		SKIPE	F.WSMU(I16)	;[1162] Doing SMU on this file
		 SKIPN	SU.RR		;[1162] Yes, within scope of retain/free
		  SKIPA			;[1162] Everything OK
		   JRST	STRT.E		;[1162] Can't do START within RETAIN
 REP 22/142	;14C5
		JRST	READ.		;AND DO FAKE READ
 WIT
		JRST	FAKER.		;[1162]AND DO FAKE READ
 INS 33/142	;14C6
	STRT.E:	OUTSTR	[ASCIZ/Attempt to execute START verb within scope of RETAIN and FREE statements/]
 REP 36/182	;14C7
	GD67:	MOVEI	AC0,ACSAV0	;
		BLT	AC0,ACSAV0+16	;
 WIT
	GD67:	PUSH 17,16		;[1161]SAVE AC 16
		MOVEI	AC16,ACSAV0	;[1161]
		BLT	AC16,ACSAV0+16	;[1161]
 REP 45/182	;14C8
		HRLZI	AC0,ACSAV0
		BLT	AC0,AC16
 WIT
		HRLZI	AC16,ACSAV0	;[1161]
		BLT	AC16,AC16	;[1161]
		POP	17,16		;[1161]Restore ac16
 SUM 116015