Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50325/debug.beg
There are no other files named debug.beg in the archive.
! File: DEBUG.BEG
!
! This work was supported by the Advanced Research
! Projects Agency of the Office of the Secretary of
! Defense (F44620-73-C-0074) and is monitored by the
! Air Force Office of Scientific Research.
! DECLARATIONS USEFUL IN DEB1,DEB2, AND DEB3.
MACRO OUTSSTR(S,N)=OUTXSTRING(PLIT(S)<29,7>,N,N)$;
MACRO SVRG(I)=SAV[I]_@I$,
RSRG(I)=I<0,36>_.SAV[I]$,
SAVALL=(SVRG(0);SVRG(1);SVRG(2);SVRG(3);
SVRG(4);SVRG(5);SVRG(6);SVRG(7);
SVRG(8);SVRG(9);SVRG(10);SVRG(11);
SVRG(12);SVRG(13);SVRG(14);SVRG(15))$,
RESALL=(RSRG(0);RSRG(1);RSRG(2);RSRG(3);
RSRG(4);RSRG(5);RSRG(6);RSRG(7);
RSRG(8);RSRG(9);RSRG(10);RSRG(11);
RSRG(12);RSRG(13);RSRG(14);RSRG(15);.SAV[3])$;