Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/srtjss.c13
There are 2 other files named srtjss.c13 in the archive. Click here to see a list.
INS 1/1 ;13C1
;IGUANA:<MERRILL.20812>SRTJSS.MAC.1 27-Jan-86 13:52:27, Edit by MERRILL
;EDIT 536 Always allow duplicate keys in RMS output file
;IGUANA:<MERRILL.20812>SRTJSS.MAC.6 27-Jan-86 13:30:41, Edit by MERRILL
;EDIT 534 Add 2 more org types to literal block in RMSOUT
;IGUANA:<5-SORT.SRC>SRTJSS.MAC.2 17-Jan-86 14:08:42, Edit by MERRILL
;EDIT 533 Fix RMSPUT error message routine, don't pop P1
INS 16/61 ;13C2
;**;[536] At RMSOUT + 11L
MOVX T1,XB$DUP ;[536] DUPLICATE KEYS ALWAYS ALLOWED NOW
$STORE (T1,FLG,(T2)) ;[536] SET IT IN XAB
REP 27/61 ;13C3
MOVE T1,[EXP FB$SEQ,FB$IDX,FB$REL,FB$SEQ,FB$SEQ,FB$SEQ](T2)
WIT
;**;[534] RMSOUT + 21L
MOVE T1,[EXP FB$SEQ,FB$IDX,FB$REL,FB$SEQ
EXP FB$SEQ,FB$SEQ,FB$IDX,FB$SEQ](T2) ;[534]
REP 57/63 ;13C4
ERRRPE: POP P,P1
WIT
ERRRPE:
SUM 83079