Trailing-Edge
-
PDP-10 Archives
-
decuslib10-08
-
43,50512/top.mac
There are no other files named top.mac in the archive.
;BLISS-10 7B(222) 11/7/77 2:00:58 TOP.I36 Page 1
; 1 ! BLISS-36C 4(141) Monday 07-Nov-1977 02:00:58 SFT60:TOP.B36[10,777] Page 1
; 2 ! Digital Equipment Corporation, COMPANY CONFIDENTIAL
; 3 !
; 4 ! 0001 MODULE TOP(MAIN=TOP)=
; 5 ! 0002 !Module to define prologues and the prime stack
; 8 ! 0005 BEGIN
; 9 MODULE TOP(BLS36,CCL,STACK,IDELE,MLIST,SREG=#17,VREG=#1,FREG=#15,DREGS=7,RESERVE(0,#16))=
; 10 BEGIN
; 11
TITLE TOP..
TWOSEG
RELOC 400000
;ROUTINE PROLOGS AND EPILOGS
.ENT.0::
HRLI 5,0_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
JRST 00,0(05)
.ENT.1::
HRLI 5,1_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
PUSH $S,14
JRST 00,0(05)
.ENT.2::
HRLI 5,2_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
PUSH $S,14
PUSH $S,13
JRST 00,0(05)
.ENT.3::
HRLI 5,3_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
PUSH $S,14
PUSH $S,13
PUSH $S,12
JRST 00,0(05)
.ENT.4::
HRLI 5,4_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
PUSH $S,14
PUSH $S,13
PUSH $S,12
PUSH $S,11
JRST 00,0(05)
.ENT.5::
HRLI 5,5_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
;BLISS-10 7B(222) 11/7/77 2:00:59 TOP.I36 Page 1-1
HRRZ $F,17
PUSH $S,14
PUSH $S,13
PUSH $S,12
PUSH $S,11
PUSH $S,10
JRST 00,0(05)
.ENT.6::
HRLI 5,6_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
PUSH $S,14
PUSH $S,13
PUSH $S,12
PUSH $S,11
PUSH $S,10
PUSH $S,7
JRST 00,0(05)
.ENT.7::
HRLI 5,7_5 ;# of saved DREGS
HLLM 5,(17) ;Save in LH of return addr word
PUSH $S,15
HRRZ $F,17
PUSH $S,14
PUSH $S,13
PUSH $S,12
PUSH $S,11
PUSH $S,10
PUSH $S,7
PUSH $S,6
JRST 00,0(05)
.EXT.7::
POP $S,6
.EXT.6::
POP $S,7
.EXT.5::
POP $S,10
.EXT.4::
POP $S,11
.EXT.3::
POP $S,12
.EXT.2::
POP $S,13
.EXT.1::
POP $S,14
.EXT.0::
POP $S,15
POPJ $S,0
;STACK=TOP.O+0
.SREG=:-17
.FREG=:-15
.VREG=:-1
.DREGS=:-17700
; 12 REQUIRE SYS:BLS36C.DCL;
; 48 LIBRARY& 'SYS:BLS36C.REL';
;BLISS-10 7B(222) 11/7/77 2:00:59 TOP.I36 Page 1-2
; 49 BEGIN
; 50 ! 0006 EXTERNAL ROUTINE MAIN;
; 51 EXTERNAL MAIN;
; 52 ! 0007 ROUTINE TOP=MAIN();
; 53
; 54
; 55 ROUTINE TOP=
; 56 (MAIN());
; 57
TOP:
PUSHJ $S,MAIN ;00000 External
POPJ $S,0 ;00001 57
; 58 SWITCHES NULL;
; 59 ! 0008 END ELUDOM
; 60
; 61 TOP(.15,.9,.7,.0,.VREG);
; 62
; 63 END
; 64 END ELUDOM
; 65
; 66
; 67
; 68 ! Run Time: 00:00
; 69 ! Elapsed Time: 00:00
; 70 ! Memory Used: 2K
; 71 ! Translation Complete
TOP.F::
TDZA $V,1 ;00000 1
MOVEI $V,1 ;00001
HRRZI $F,TOP.O+0 ;00002
MOVEM $F,.BREG ;00003 External
HRLI $S,-765 ;00004
HRRZI $F,13($F) ;00005 Formal
HRR $S,15 ;00006
PUSH $S,17 ;00007 52
PUSH $S,11 ;00010
PUSH $S,7 ;00011
PUSH $S,0 ;00012
PUSH $S,1 ;00013
PUSHJ $S,TOP ;00014
SUB $S,TOP.L+0 ;00015
SETZ $V,0 ;00016 62
CALLI 00,12 ;00017 65
;Special register declarations
$S=: 17
$F=: 15
;BLISS-10 7B(222) 11/7/77 2:01:00 TOP.I36 Page 1-3
$V=: 1
;Constant pointers
TOP.C::
;Literals
TOP.L::
XWD 000005,000005 ;00000
;PLIT area
TOP.P::
RELOC ;To low segment
;GLOBAL area
TOP.G::
;OWN area
TOP.O:: BLOCK 1000
.BREG:: BLOCK 1 ;CO-ROUTINE PSEUDO-REGISTER
;EXTERNAL requests
EXTERN MAIN
END TOP.F ;Pseudo-op for MACRO-10
;Module length: 79+1
;Run Time: 0:0.5
;Elapsed Time: 0:1.4
;Max core used: 7 + 41 K
;[BLSNED No errors detected]