Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/drgli.list
There are no other files named drgli.list in the archive.
DRGLI MACRO M1110 22-AUG-79 06:59 PAGE 3
1 .TITLE DRGLI
2 .IDENT /06/
3
4 ;
5 ; COPYRIGHT (C) 1974, 1976
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
9 ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
10 ;
11 ; VERSION 06
12 ;
13 ; D. N. CUTLER 18-SEP-73
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; D. N. CUTLER
18 ; T. J. MILLER
19 ;
20 ; MODIFIED BY:
21 ;
22 ; MACRO LIBRARY CALLS
23 ;
24
25 .MCALL HWDDF$
26 000000 HWDDF$ ;DEFINE HARDWARE REGISTERS
27
28 ;+
29 ; **-$DRGLI-GET LUN INFORMATION
30 ;
31 ; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO FILL A SIX WORD BUFFER WITH
32 ; INFORMATION ABOUT A DEVICE THAT IS ASSIGNED TO A SPECIFIED LUN. IF RE-
33 ; QUESTS TO THE DEVICE HAVE BEEN RE-DIRECTED, THEN THE INFORMATION RETURN-
34 ; ED PERTAINS TO THE RE-DIRECT DEVICE.
35 ;
36 ; DPB FORMAT:
37 ;
38 ; WD. 00 -- DIC(5.),DPB SIZE(3.).
39 ; WD. 01 -- LUN TO RETURN INFORMATION FOR.
40 ; WD. 02 -- ADDRESS OF A SIX WORD BUFFER.
41 ;
42 ; BUFFER FORMAT:
43 ;
44 ; WD. 00 -- NAME OF ASSIGNED DEVICE.
45 ; WD. 01 -- UNIT NUMBER OF ASSIGNED DEVICE AND FLAGS BYTE.
46 ; WD. 02 -- FIRST DEVICE CHARACTERISTICS WORD.
47 ; WD. 03 -- SECOND DEVICE CHARACTERISTICS WORD.
48 ; WD. 04 -- THIRD DEVICE CHARACTERISTICS WORD.
49 ; WD. 05 -- FOURTH DEVICE CHARACTERISTICS WORD.
50 ;
51 ; INPUTS:
52 ;
53 ; R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
54 ; R3=ADDRESS OF THE LUN IN THE DPB.
55 ; R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
56 ; R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
57 ;
DRGLI MACRO M1110 22-AUG-79 06:59 PAGE 3-1
58 ; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
59 ;
60 ; C=0 IF DIRECTIVE IS SUCCESSFULLY COMPLETED.
61 ; DIRECTIVE STATUS OF +1 IS RETURNED.
62 ; C=1 IF DIRECTIVE IS REJECTED.
63 ; DIRECTIVE STATUS OF 'D.RS5' IS RETURNED IF NO DEVICE
64 ; IS ASSIGNED TO THE SPECIFIED LUN.
65 ;-
66
67 000000 $DRGLI::CALL $MPLUN ;MAP LUN TO UCB ADDRESS
68 000004 103435 BCS 10$ ;IF CS NO DEVICE ASSIGNED
69 000006 010004 MOV R0,R4 ;SAVE ADDRESS OF DEVICE UCB
70 000010 011303 MOV (R3),R3 ;GET ADDRESS OF BUFFER
71
72
73 .IF DF A$$CHK!M$$MGE
74
75 000012 012701 000014 MOV #6*2,R1 ;SET LENGTH OF BUFFER
76 000016 CALL $ACHKP ;ADDRESS CHECK BUFFER
77
78 .ENDC
79
80
81 000022 011402 MOV (R4),R2 ;GET ADDRESS OF DEVICE DCB
82 000024 005722 TST (R2)+ ;POINT TO ADDRESS OF FIRST UCB
83 000026 010400 MOV R4,R0 ;COPY ADDRESS OF UCB
84 000030 162200 SUB (R2)+,R0 ;CALCULATE RELATIVE ADDRESS OF UCB
85 000032 012223 MOV (R2)+,(R3)+ ;INSERT GENERIC DEVICE NAME
86 000034 012213 MOV (R2)+,(R3) ;PICK UP LOW UNIT NUMBER FOR DCB
87 000036 012201 MOV (R2)+,R1 ;PICK UP UCB LENGTH
88 000040 CALL $DIV ;CALCULATE RELATIVE UNIT NUMBER
89 000044 060023 ADD R0,(R3)+ ;CALCULATE LOGICAL UNIT NUMBER
90 000046 112743 000200 MOVB #200,-(R3) ;ASSUME RESIDENT DRIVER
91
92
93 .IF DF L$$DRV
94
95 000052 005712 TST (R2) ;DRIVER RESIDENT?
96 000054 001001 BNE 5$ ;IF NE YES
97 000056 105013 CLRB (R3) ;ELSE INDICATE DRIVER IS NONRESIDENT
98
99 .ENDC
100
101
102 000060 005203 5$: INC R3 ;ADVANCE POINTER
103 000062 062704 000000G ADD #U.CW1,R4 ;POINT TO FIRST CHARACTERISTICS WORD
104 000066 012423 MOV (R4)+,(R3)+ ;INSERT DEVICE CHARACTERISTICS WORDS
105 000070 012423 MOV (R4)+,(R3)+ ;
106 000072 012423 MOV (R4)+,(R3)+ ;
107 000074 011413 MOV (R4),(R3) ;
108 000076 RETURN ;RETURN DIRECTIVE STATUS OF +1
109 000100 10$: DRSTS D.RS5 ;SET DIRECTIVE STATUS
110
111 000001 .END
DRGLI MACRO M1110 22-AUG-79 06:59 PAGE 3-2
SYMBOL TABLE
A$$CHK= 000000 G$$TPP= 000000 L$$ASG= 000000 P$$RTY= 000000 UISAR4= 177650
A$$CPS= 000000 G$$TTK= 000000 L$$DRV= 000000 P$$TPT= 000000 UISAR5= 177652
A$$TRP= 000000 H$$RTZ= 000074 MPAR = 172100 R$$DER= 000000 UISAR6= 177654
CMODE = 140000 I$$RDN= 000000 MPCSR = 177746 R$$EXV= 000000 UISAR7= 177656
C$$ORE= 002000 KDSAR0= 172360 M$$CRB= 000124 R$$SND= 000000 UISDR0= 177600
D.RS5 = ****** GX KDSDR0= 172320 M$$MGE= 000000 R$$11M= 000000 UISDR4= 177610
FE.CAL= 000040 KISAR0= 172340 M$$NET= 000000 R$$11S= 000000 UISDR5= 177612
FE.CEX= 020000 KISAR5= 172352 M$$NT2= 000000 SISDR0= 172200 UISDR6= 177614
FE.DRV= 000010 KISAR6= 172354 N$$LDV= 000001 SR0 = 177572 UISDR7= 177616
FE.EXP= 000200 KISAR7= 172356 PIRQ = 177772 SR3 = 172516 U.CW1 = ****** GX
FE.EXT= 000001 KISDR0= 172300 PMODE = 030000 SWR = 177570 V$$CTR= 001200
FE.EXV= 000004 KISDR6= 172314 PR0 = 000000 S$$YSZ= 001740 V$$RSN= 000031
FE.LSI= 000400 KISDR7= 172316 PR1 = 000040 TPS = 177564 X$$DBT= 000000
FE.MUP= 000002 K$$CNT= 177546 PR4 = 000200 UBMPR = 170200 $ACHKP= ****** GX
FE.MXT= 040000 K$$CSR= 177546 PR5 = 000240 UDSAR0= 177660 $DIV = ****** GX
FE.NLG= 100000 K$$IEN= 000115 PR6 = 000300 UDSDR0= 177620 $DRGLI 000000RG
FE.PKT= 000100 K$$LDC= 000001 PR7 = 000340 UISAR0= 177640 $MPLUN= ****** GX
FE.PLA= 000020 K$$TPS= 000074 PS = 177776
. ABS. 000000 000
000102 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 1923 WORDS ( 8 PAGES)
DYNAMIC MEMORY: 2980 WORDS ( 11 PAGES)
ELAPSED TIME: 00:00:10
[11,24]DRGLI,SY0:[11,34]DRGLI/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRGLI