Trailing-Edge
-
PDP-10 Archives
-
bb-l014t-bm_tops20_v7_0_atpch20
-
autopatch/srtjss.c20
There is 1 other file named srtjss.c20 in the archive. Click here to see a list.
INS 1/1 ;20C1
; UPD ID= 113 on 10/16/88 at 12:29 AM by KSTEVENS
REP 5/61 ;20C2
RMSOUT: MOVE T1,[PRFAB,,OUTFAB] ;COPY PROTOTYPE FAB, RAB, AND XAB
WIT
RMSOUT: MOVE T1,[INFAB,,OUTFAB] ;[540]COPY PROTOTYPE FAB, RAB, AND XAB
REP 11/61 ;20C3
MOVE T1,MODE ;GET MODE INDEX
MOVE T1,[EXP 6,7,9,^D36]-1(T1)
$STORE (T1,BSZ,(P1)) ;SET BYTE SIZE
WIT
;[540]Remove 3 lines
SUM 179358