Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/sta1.c05
There are no other files named sta1.c05 in the archive.
REP 5/1 ;05C1
!COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/SJW/DCE/TFV/EDS/AHM
WIT
!COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/SJW/DCE/TFV/EDS/AHM/EGM
REP 21/1 ;05C2
GLOBAL BIND STA1V = 6^24 + 0^18 + 84; ! Version Date: 24-Sep-81
WIT
GLOBAL BIND STA1V = 6^24 + 0^18 + #1153; ! Version Date: 3-Jun-82
INS 111/1 ;05C3
***** End V6 Development *****
1153 EGM 3-Jun-82
Add appropriate calls to SAVSPACE to free up systax list items that
are no longer needed.
INS 181/1 ;05C4
%[1153]% SAVSPACE(.R2<LEFT>,@R2);
%[1153]% SAVSPACE(.R1[ELMNT2]<LEFT>,.R1[ELMNT2])
REP 190/1 ;05C5
%[760]% END;
WIT
%[1153]% SAVSPACE(.R3<LEFT>,@R3)
%[760]% END;
%[1153]% SAVSPACE(.R1<LEFT>,@R1);
INS 228/1 ;05C6
%[1153]% SAVSPACE(.R3<LEFT>,@R3);
INS 232/1 ;05C7
%[1153]% SAVSPACE(.R2[ELMNT2]<LEFT>,.R2[ELMNT2])
REP 288/1 ;05C8
%[760]% END;
%[760]% SAVSPACE(.R2<LEFT>,@R2);
WIT
%[1153]% SAVSPACE(.R3[ELMNT]<LEFT>,.R3[ELMNT]);
%[1153]% SAVSPACE(.R3<LEFT>,@R3)
%[760]% END;
%[1153]%
INS 299/1 ;05C9
%[1153]% SAVSPACE(.R3[ELMNT1]<LEFT>,.R3[ELMNT1]);
INS 302/1 ;05C10
%[1153]% SAVSPACE(.R2<LEFT>,@R2);
REP 381/1 ;05C11
%[760]% IF BLDKLIST(.R2[ELMNT5]) LSS 0 THEN RETURN .VREG
WIT
%[1153]% IF BLDKLIST(.R2[ELMNT5]) LSS 0 THEN RETURN .VREG;
%[1153]% SAVSPACE(.R2[ELMNT5]<LEFT>,.R2[ELMNT5])
INS 389/1 ;05C12
%[1153]% SAVSPACE(.R2[ELMNT1]<LEFT>,.R2[ELMNT1]);
INS 506/1 ;05C13
%[1153]% SAVSPACE(.R1[ELMNT2]<LEFT>,.R1[ELMNT2])
SUM 154000