Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/axbfr.list
There are no other files named axbfr.list in the archive.
AXBFR MACRO M1110 13-OCT-79 08:14 PAGE 3
1 .TITLE AXBFR
2 .IDENT /V01.00/
3
4 ;
5 ; COPYRIGHT (C) 1978 BY
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ;
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
10 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
11 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
12 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
13 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
14 ; TRANSFERRED.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
17 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 ; CORPORATION.
19 ;
20 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
22 ;
23 ;
24 ;
25 ; MODULE DESCRIPTION
26 ; AUX BUFFER WAIT COMPLETION PROCESSOR
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35
36 ;
37 .MCALL CCBDF$,SLTDF$,HWDDF$,ENABL$,INHIB$
38 000000 CCBDF$
39 000000 SLTDF$
40 000000 HWDDF$
AXBFR MACRO M1110 13-OCT-79 08:14 PAGE 4
42 ;+
43 ; **-$BFRTN-SYSTEM LEVEL ROUTINE TO SATISFY A BUFFER WAIT REQUEST
44 ;
45 ; INPUTS:
46 ;
47 ; R4 = ADDRESS OF BUFFER TO SATISFY A WAIT REQUEST
48 ;
49 ;
50 ;
51 ;
52 ;
53 ;-
54
55 000000 $BFRTN:: ; REF LABEL
56 000000 10$: MTPS #PR7 ;;; INHIBIT INTERRUPTS
57 000006 042767 100000 000000G BIC #100000,$RDQCT ;;; CLEAR BUFFER QUEUED FLAG AND TEST FOR WAITERS
58 000014 001453 BEQ 30$ ;;; IF EQ NO, RETURN BUFFER TO THE POOL
59
60 .IF DF R$$11D!I$$AS
61
62 MTPS #PR3
63
64 .IFF
65
66 000016 MTPS #PR0 ; ENABLE INTERRUPTS
67
68 .ENDC
69
70 000024 016702 000000G MOV $RDQSL,R2 ; GET NEXT SYSTEM LINE NUMBER
71 000030 001003 BNE 20$ ; IF NE NUMBER IS STILL VALID
72 000032 016767 000000G 000000G MOV $SLTNM,$RDQSL ; RESET HIGHEST SYSTEM LINE NUMBER PLUS ONE
73 000040 005367 000000G 20$: DEC $RDQSL ; COMPUTE NEXT SYSTEM LINE NUMBER
74 000044 010203 MOV R2,R3 ; COPY SYSTEM LINE NUMBER
75 000046 006302 ASL R2 ; MULTIPLY SLN BY 14 (L.LEN)
76 000050 006302 ASL R2 ; ...
77 000052 010246 MOV R2,-(SP) ; ...
78 000054 006302 ASL R2 ; ...
79 000056 062602 ADD (SP)+,R2 ; ...
80 000060 066702 000000G ADD $SLTTA,R2 ; ADD STARTING ADDR OF SLT TO GET ADDR OF SLT ENTRY
81 000064 032712 000007 BIT #LF.BWT,(R2) ; ANY WAIT REQUESTS HERE ?
82 000070 001743 BEQ 10$ ; IF EQ, NO - TRY NEXT LINE
83 000072 105312 DECB (R2) ; REDUCE NUMBER OF WAIT REQUESTS
84 000074 005367 000000G DEC $RDQCT ; REDUCE NUMBER OF WAIT REQUESTS
85 000100 010364 000006 MOV R3,C.LIN(R4) ; SET SYSTEM LINE NUMBER IN CCB
86 000104 016205 000004 MOV L.DDS(R2),R5 ; SET PROCESS LINE TABLE ADDRESS
87 000110 116202 000002 MOVB L.DDM(R2),R2 ; SET PROCESS PDV INDEX
88 000114 010403 MOV R4,R3 ; COMPUTE ADDRESS OF FUNCTION CODE
89 000116 062703 000010 ADD #C.FNC,R3 ; ...
90 000122 CALL $PDSPL ;;; DISPATCH TO PROCESS
91
92 .IF DF R$$11D!I$$AS
93
94 MTPS #PR3 ; DROP BACK TO PRIORITY THREE
95
96 .IFF
97
98 000126 MTPS #PR0 ; DROP BACK TO PRIORITY ZERO
AXBFR MACRO M1110 13-OCT-79 08:14 PAGE 4-1
99
100 .ENDC
101
102 000134 CALL $RDBGT ; TRY FOR ANOTHER BUFFER
103 000140 103411 BCS 40$ ; IF CS, NO BUFFER - EXIT ;LDW0308
104 000142 000716 BR 10$ ; TRY TO SATISFY ANY OTHER WAIT REQUESTS ;**-1
105
106 000144 005704 30$: TST R4 ;;; BUFFER TO RETURN ?
107 000146 001406 BEQ 40$ ;;; IF EQ, NO - EXIT
108 000150 016714 000000G MOV $RDBLH,(R4) ;;; INSERT POINTER TO CHAIN IN CCB
109 000154 010467 000000G MOV R4,$RDBLH ;;; POINT LISTHEAD TO RETURNED CCB
110 000160 005267 000000G INC $RDBCT ;;; INCREMENT COUNT OF BUFFERS IN POOL
111 000164 40$: .IF DF R$$11D!I$$AS
112
113 MTPS #PR3 ; ENABLE INTERRUPTS
114
115 .IFF
116
117 000164 MTPS #PR0 ; ENABLE INTERRUPTS
118
119 .ENDC
120
121 000172 50$: RETURN ; RETURN
122
123 000001 .END
AXBFR MACRO M1110 13-OCT-79 08:14 PAGE 4-2
SYMBOL TABLE
A$$CHK= 000000 C.BUF2 000024 FS.CIB= 002000 LF.ACT= 100000 PR7 = 000340
A$$CPS= 000000 C.CNT 000020 FS.CRA= 001000 LF.BWT= 000007 PS = 177776
A$$PRI= 000000 C.CNT1 000020 FS.DIS= 013000 LF.DLO= 000040 P$$P45= 000000
A$$TRP= 000000 C.CNT2 000030 FS.DVC= 001000 LF.ENA= 002000 P$$WRD= 000000
CB.CCB= 000002 C.FLG 000022 FS.ENB= 012000 LF.MDC= 000100 Q$$OPT= 000010
CB.RDB= 000004 C.FLG1 000022 FS.GET= 006000 LF.MFL= 004000 R$$DER= 000000
CE.ABO= 100362 C.FLG2 000032 FS.INI= 000000 LF.MTP= 000020 R$$K11= 000001
CE.DIS= 100366 C.FNC 000010 FS.KIL= 000000 LF.RDY= 040000 R$$SND= 000000
CE.ERR= 100370 C.LIN 000006 FS.LTM= 001000 LF.REA= 010000 R$$11M= 000000
CE.MOP= 100372 C.LNK 000000 FS.MNT= 004000 LF.TIM= 000010 SISDR0= 172200
CE.NTE= 100361 C.MOD 000011 FS.MSN= 014000 LF.UNL= 020000 SR0 = 177572
CE.RTE= 100376 C.NSP 000004 FS.RNG= 011000 L$$ASG= 000000 SR3 = 172516
CE.SRC= 100364 C.RSV 000002 FS.RTN= 001000 L$$DRV= 000000 SWR = 177570
CE.TMO= 100374 C.STA 000007 FS.SET= 005000 L$$P11= 000001 S$$WRG= 000000
CF.EOM= 000004 C.STS 000012 FS.STM= 000000 L$$11R= 000000 S$$YSZ= 007600
CF.HDR= 000020 D$$BUG= 177514 FS.STP= 002000 L.CTL 000012 TPS = 177564
CF.LB = 100000 D$$ISK= 000000 FS.STR= 001000 L.DDM 000002 T$$KMG= 000000
CF.SOM= 000010 D$$L11= 000001 FS.TRM= 003000 L.DDS 000004 T$$MIN= 000000
CF.SYN= 000040 D$$YNC= 000000 FS.XKL= 002000 L.DLC 000003 UBMPR = 170200
CF.TRN= 000100 D$$YNM= 000000 FS.XOF= 010000 L.DLM 000006 UDSAR0= 177660
CMODE = 140000 E$$XPR= 000000 FS.XON= 007000 L.DLS 000010 UDSDR0= 177620
CS.ABO= 000100 FC.CCP= 000020 F$$LVL= 000001 L.FLG 000000 UISAR0= 177640
CS.BUF= 000200 FC.CTL= 000006 G$$TPP= 000000 L.LEN = 000014 UISAR4= 177650
CS.DCR= 000400 FC.KCP= 000016 G$$TSS= 000000 L.UNT 000013 UISAR5= 177652
CS.DEV= 000002 FC.KIL= 000004 G$$TTK= 000000 MPAR = 172100 UISAR6= 177654
CS.DIS= 000040 FC.RCE= 000002 G$$WRD= 000000 MPCSR = 177746 UISAR7= 177656
CS.ENB= 000020 FC.RCP= 000014 I$$RAR= 000000 M$$CRB= 000124 UISDR0= 177600
CS.EOF= 000001 FC.TIM= 000010 I$$RDN= 000000 M$$CRX= 000000 UISDR4= 177610
CS.ERR= 100000 FC.XCP= 000012 KDSAR0= 172360 M$$FCS= 000000 UISDR5= 177612
CS.HFE= 002000 FC.XME= 000000 KDSDR0= 172320 M$$MGE= 000000 UISDR6= 177614
CS.LST= 040000 FE.CAL= 000040 KISAR0= 172340 M$$OVR= 000000 UISDR7= 177616
CS.MTL= 004000 FE.DRV= 000010 KISAR5= 172352 N$$LDV= 000001 V$$CTR= 001000
CS.RNG= 000010 FE.EXP= 000200 KISAR6= 172354 N$$MOV= 000010 X$$DBT= 000000
CS.ROV= 000004 FE.EXT= 000001 KISAR7= 172356 N$$SYS= 000001 $BFRTN 000000RG
CS.RSN= 010000 FE.EXV= 000004 KISDR0= 172300 N$$USR= 000001 $PDSPL= ****** GX
CS.SUC= 000001 FE.LSI= 000400 KISDR6= 172314 PIRQ = 177772 $RDBCT= ****** GX
CS.TMO= 020000 FE.MUP= 000002 KISDR7= 172316 PMODE = 030000 $RDBGT= ****** GX
C$$CKP= 000000 FE.MXT= 040000 K$$CNT= 177546 PR0 = 000000 $RDBLH= ****** GX
C$$ORE= 000400 FE.NLG= 100000 K$$CSR= 177546 PR1 = 000040 $RDQCT= ****** GX
C$$RSH= 177564 FE.PKT= 000100 K$$LDC= 000000 PR4 = 000200 $RDQSL= ****** GX
C.BID 000003 FE.PLA= 000020 K$$TPS= 000074 PR5 = 000240 $SLTNM= ****** GX
C.BUF 000014 FS.AST= 000000 LD$LP = 000000 PR6 = 000300 $SLTTA= ****** GX
C.BUF1 000014
. ABS. 000034 000
000174 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 6118 WORDS ( 24 PAGES)
DYNAMIC MEMORY: 6892 WORDS ( 26 PAGES)
ELAPSED TIME: 00:00:13
AXBFR,[131,34]AXBFR/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]AXBFR
AXBFR CREATED BY MACRO ON 13-OCT-79 AT 08:14 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C.FNC 000010 4-89
C.LIN 000006 *4-85
I$$AS = ****** 4-60 4-92 4-111
LF.ACT = 100000 #3-39
LF.BWT = 000007 #3-39 4-81
LF.DLO = 000040 #3-39
LF.ENA = 002000 #3-39
LF.MDC = 000100 #3-39
LF.MFL = 004000 #3-39
LF.MTP = 000020 #3-39
LF.RDY = 040000 #3-39
LF.REA = 010000 #3-39
LF.TIM = 000010 #3-39
LF.UNL = 020000 #3-39
L.CTL 000012 #3-39
L.DDM 000002 #3-39 4-87
L.DDS 000004 #3-39 4-86
L.DLC 000003 #3-39
L.DLM 000006 #3-39
L.DLS 000010 #3-39
L.FLG 000000 #3-39
L.LEN = 000014 #3-39
L.UNT 000013 #3-39
PR0 = 000000 4-66 4-98 4-117
PR7 = 000340 4-56
PS = 177776 4-56 4-66 4-98 4-117
R$$11D = ****** 4-60 4-92 4-111
$BFRTN 000000 RG #4-55
$PDSPL = ****** GX 4-90
$RDBCT = ****** GX *4-110
$RDBGT = ****** GX 4-102
$RDBLH = ****** GX 4-108 *4-109
$RDQCT = ****** GX *4-57 *4-84
$RDQSL = ****** GX 4-70 *4-72 *4-73
$SLTNM = ****** GX 4-72
$SLTTA = ****** GX 4-80
AXBFR CREATED BY MACRO ON 13-OCT-79 AT 08:14 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-90 4-102
CCBDF$ #3-37 3-38
ENABL$ #3-37
HWDDF$ #3-37 #3-40
INHIB$ #3-37
MTPS 4-56 4-66 4-98 4-117
RETURN 4-121
SLTDF$ #3-37 #3-39