Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/iogen.c15
There are 2 other files named iogen.c15 in the archive. Click here to see a list.
 REP 4/1	;15C1
	SUBTTL	I/O GENERATORS		AL BLACKINGTON/SIP/CAM
 WIT
	SUBTTL	I/O GENERATORS		AL BLACKINGTON/SIP/CAM/MEM
 REP 12/1	;15C2
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1986 BY DIGITAL EQUIPMENT CORPORATION
 INS 29/1	;15C3
	;MEM	12-NOV-86	[1636] Check for a depending variable when calculating 
	;			        the size of an item to be displayed.
 REP 22/41	;15C4
	STND2:	MOVE	TA,[XWD XWDLIT,2]
 WIT
	STND2:	PUSHJ	PP,DEPTSA	;[1636] See if A is depending
		 JRST	STND2A		;[1636] No
		AOS	EAC		;[1636] Allocate register 1
	 	MOVEI	TE,1		;[1636]
	        PUSHJ	PP,SZDPVA	;[1636] Set AC1 to size of A
	         JFCL			;[1636]
		MOVE	CH,[XWD MOV+AC16,1];[1636] get size into 16 
		PUSHJ	PP,PUTASY	;[1636]		MOVE 16,1
		MOVEI	CH,DSPLY%##	;[1636]	CALL display routine
		PUSHJ	PP,GNPSX.##	;[1636]		PUSHJ PP,DSPLY.
		POPJ	PP,		;[1636]

	STND2A:	MOVE	TA,[XWD XWDLIT,2]	;[1636]
 REP 42/41	;15C5
		MOVE	CH,[DSPL.6##+ASINC,,AS.MSC]
 WIT
		MOVE	CH,[DSPL.6##+ASINC,,AS.MSC]	
 SUM 83811