Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
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