Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/blis16/b16sav.lst
There are no other files named b16sav.lst in the archive.
B16SAV REGISTER SAVE AND RESTORE ROUTINES DNMAC X24.07-563 25-JAN-83 16:51 PAGE 1
B16SAV.MAC 25-JAN-83 16:45
1 .TITLE B16SAV REGISTER SAVE AND RESTORE ROUTINES
2 .IDENT /2.4/
3 ;
4 ; COPYRIGHT (C) 1979, 1980, 1981, 1982
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754
6 ;
7 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
8 ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
9 ; SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY
10 ; OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE
11 ; AVAILABLE TO ANY TOHER PERSON EXCEPT FOR USE ON SUCH SYSTEM
12 ; AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND
13 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
16 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
17 ; EQUIPMENT CORPORATION.
18 ;
19 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
20 ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
21 ;
22 ;++
23 ; FACILITY:
24 ; BLISS-16 OBJECT TIME SYSTEM (OTS)
25 ;
26 ; ABSTRACT:
27 ; OUT-OF-LINE ROUTINES TO SAVE AND RESTORE REGISTER CONTENTS.
28 ;
29 ; ENVIRONMENT:
30 ; PDP-11 OR COMPATIBILITY MODE OF THE VAX, EIS AND NOEIS
31 ;
32 ; AUTHOR: P. KNUEVEN CREATION DATE: 30-NOV-73
33 ;
34 ; MODIFIED BY:
35 ;
36 ; 0. THIS WORK WAS SUPPORTED BY THE ADVANCED RESEARCH
37 ; PROJECTS AGENCY OF THE OFFICE OF THE SECRETARY OF
38 ; DEFENSE (F44620-73-C-0074) AND IS MONITORED BY THE
39 ; AIR FORCE OFFICE OF SCIENTIFIC RESEARCH.
40 ;
41 ; 1. 14-FEB-80 DGF NOW CONFORMS TO SOFTWARE STANDARDS.
42 ;
43 ; 2. 18-FEB-80 DGF MOVE BLISS-11 ENTRY POINTS TO B16B11
44 ;
45 ; 3. 5-DEC-80 DGF FIX PSECT ATTRIBUTES
46 ;--
47 ; DISCUSSION:
48 ; THE ROUTINE $SAVEN IS CALLED AT THE BEGINNING OF A ROUTINE
49 ; WHICH MODIFIES THE CONTENTS OF REGISTERS 1 THRU N. THE CALLING
50 ; SEQUENCE IS THE FOLLOWING:
51 ; JSR R1,$SAVEN
52 ;
B16SAV REGISTER SAVE AND RESTORE ROUTINES DNMAC X24.07-563 25-JAN-83 16:51 PAGE 2
B16SAV.MAC 25-JAN-83 16:45
54 000000 R0=%0
55 000001 R1=%1
56 000002 R2=%2
57 000003 R3=%3
58 000004 R4=%4
59 000005 R5=%5
60 000006 SP=%6
61 000007 PC=%7
62
63 000000' .PSECT BL$COD,RO,I,LCL,CON
64
65 000000' $SAVE2::
66 000000' 010246 MOV R2,-(SP)
67 000002' 010146 MOV R1,-(SP)
68 000004' 016601 000004 MOV 4(SP),R1
69 000010' 004736 JSR PC,@(SP)+
70 000012' 000432 BR RE2
71
72 000014' $SAVE3::
73 000014' 010246 MOV R2,-(SP)
74 000016' 010346 MOV R3,-(SP)
75 000020' 010146 MOV R1,-(SP)
76 000022' 016601 000006 MOV 6(SP),R1
77 000026' 004736 JSR PC,@(SP)+
78 000030' 000422 BR RE3
79
80 000032' $SAVE4::
81 000032' 010246 MOV R2,-(SP)
82 000034' 010346 MOV R3,-(SP)
83 000036' 010446 MOV R4,-(SP)
84 000040' 010146 MOV R1,-(SP)
85 000042' 016601 000010 MOV 8.(SP),R1
86 000046' 004736 JSR PC,@(SP)+
87 000050' 000411 BR RE4
88
89 000052' $SAVE5::
90 000052' 010246 MOV R2,-(SP)
91 000054' 010346 MOV R3,-(SP)
92 000056' 010446 MOV R4,-(SP)
93 000060' 010546 MOV R5,-(SP)
94 000062' 010146 MOV R1,-(SP)
95 000064' 016601 000012 MOV 10.(SP),R1
96 000070' 004736 JSR PC,@(SP)+
97 000072' 012605 MOV (SP)+,R5
98 000074' 012604 RE4: MOV (SP)+,R4
99 000076' 012603 RE3: MOV (SP)+,R3
100 000100' 012602 RE2: MOV (SP)+,R2
101 000102' 012601 MOV (SP)+,R1
102 000104' 000207 RTS PC
103
104 000001 .END
B16SAV REGISTER SAVE AND RESTORE ROUTINES DNMAC X24.07-563 25-JAN-83 16:51 PAGE 3
B16SAV.MAC 25-JAN-83 16:45 SYMBOL TABLE
RE2 000100R 002 RE4 000074R 002 $SAVE3 000014RG 002 $SAVE5 000052RG 002
RE3 000076R 002 $SAVE2 000000RG 002 $SAVE4 000032RG 002 . = 000106R 002
. ABS. 000000 000 CON RW ABS LCL I
000000 001 CON RW ABS LCL I
BL$COD 000106 002 CON RO REL LCL I
ERRORS DETECTED: 0
DEFAULT GLOBALS GENERATED: 0
B16SAV,B16SAV=B16SAV
RUN-TIME: .4 .2 0 SECONDS
RUN-TIME RATIO: 15/1=15.4
CORE USED: 4K (7 PAGES)