Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/ip20.c17
There are 3 other files named ip20.c17 in the archive. Click here to see a list.
DEL 43/1 ;17C1
REP 81/1 ;17C2
^
WIT
;EDITS
;NAME DATE COMMENTS
;V4*****************
;RLF 15-May-87 [263] Code for 1-word comp was not tested
; correctly.
;
;*******************
^
REP 35/6 ;17C3
MOVEI T1,%%ERP$ ;;[7] ERROR CODE PARAMETER
ADDI T1,-1(L) ;;[7] GET DESCRIPTOR
HLRZ T1,(1) ;;[7]
TRNN T1,777677 ;;[7] IF COMP,
WIT
LDB T1,[POINT 4,%%ERP$-1(L),12] ;[263] GET ARG TYPE CODE
CAIN T1,2 ;[263] IS IT 1-WORD COMP?
SUM 164394