Paul Christidis writes
Does anyone have a program that would generate a cross reference listing
for SPL?
The SPL manual indicates that such an animal was available, at some point,
but I cannot find it on my system.
---------------------------------------------------------
Why not compile your SPL program with all available options
(LIST,MAP,CODE,SOURCE,INNERLIST) and see if they provide what you need.
Here is an example program.
:SPL YTRAPS
PAGE 0001 HP32100A.08.09 [4W] (C) HEWLETT-PACKARD COMPANY 1987
00000 0 $CONTROL LIST,SUBPROGRAM,MAP,CODE,SOURCE,INNERLIST
00000 0 BEGIN
00000 1 INTEGER ARRAY CTLYSET(*)=DB+0;
00000 1 INTRINSIC PRINT,FCONTROL,RESETCONTROL,XCONTRAP;
00000 1
00000 1 PROCEDURE CTLYHIT;
00000 1 BEGIN
00000 2 INTEGER SDEC,I;
00000 2 ARRAY MSG(0:6);
00000 2 I:=CTLYSET(-31);
00000 ADDS,004 035004 03.15
00001 LRA S- 000 171700 01.95
00002 STOR Q+ 003 051403 03.15
00003 ADDS,006 035006 03.15
00004 LDXN,037 025437 01.05
00005 LOAD DB 000 ,X 045000 02.65
00006 STOR Q+ 002 051402 03.15
00007 2 CTLYSET(I):=CTLYSET(I)+1;
00007 LDX Q+ 002 131402 02.65
00010 LOAD DB 000 ,X 045000 02.65
00011 INCA, NOP 003300 01.05
00012 STOR DB 000 ,X 055000 03.15
00010 INSERT OR FIXUP 124000
00011 2 RESETCONTROL;
00011 PCAL,000 000000 14.90
00012 2 TOS:=%31400+SDEC;
00012 LOAD P+ 000 040000 02.65
00013 ADDM Q+ 001 071401 03.00
00014 2 ASSEMBLE(XEQ 0);
00014 XEQ ,000 030140 01.40
00015 2 END;
00015 EXIT,000 031400 12.60
IDENTIFIER CLASS TYPE ADDRESS
I SIMP. VAR. INTEGER Q +002
MSG ARRAY LOGICAL Q +003
SDEC SIMP. VAR. INTEGER Q +001
00000 035004 171700 051403 035006 025437 045000 051402 131402
00010 124000 000000 040004 071401 030140 031400 031400
00000 1
00000 1 PROCEDURE SETCTLYTRAP(CTLYIND);
00000 1 VALUE CTLYIND; INTEGER CTLYIND;
00000 1 BEGIN
00000 2 INTEGER DUMMY;
00000 2 XCONTRAP(@CTLYHIT,DUMMY);
00000 ADDS,001 035001 03.15
00001 LLBL,000 100000 02.65
00002 LRA Q+ 001 171401 01.95
00003 PCAL,000 000000 14.90
00004 2 CTLYSET(-31):=CTLYIND;
00004 LOAD Q- 004 041604 02.65
00005 LDXN,037 025437 01.05
00006 STOR DB 000 ,X 055000 03.15
00007 2 END;
00007 EXIT,001 031401 12.60
IDENTIFIER CLASS TYPE ADDRESS
CTLYIND SIMP. VAR. INTEGER Q -004
DUMMY SIMP. VAR. INTEGER Q +001
00000 035001 100000 171401 000000 041604 025437 055000 031401
00000 1
00000 1 END.
IDENTIFIER CLASS TYPE ADDRESS
CTLYHIT PROCEDURE
CTLYSET ARRAY INTEGER DB+000
FCONTROL INTRINSIC
PRINT INTRINSIC
RESETCONTROL INTRINSIC
SETCTLYTRAP PROCEDURE
XCONTRAP INTRINSIC
PRIMARY DB STORAGE=%000; SECONDARY DB STORAGE=%00000
NO. ERRORS=0000; NO. WARNINGS=0000
PROCESSOR TIME=0:00:00; ELAPSED TIME=0:00:00
END OF COMPILE
Mike Berkowitz
Guess? Inc.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
