Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/rirdin.list
There are no other files named rirdin.list in the archive.
RIRDIN MACRO M1110 13-OCT-79 12:16 PAGE 3
1 .TITLE RIRDIN
2 .NLIST CND
3 .IDENT /V01.00/
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 ; MODULE DESCRIPTION:
25 ;
26 ; NCU READ INFORMATION 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 ;
RIRDIN MACRO M1110 13-OCT-79 12:16 PAGE 4
37 ;
38 ;======================================================================;
39 ;++
40 ; +-------------------------------------------------+
41 ; I I
42 ; I R E A D I N F O R M A T I O N I
43 ; I - - - - - - - - - - - - - - - - I
44 ; I I
45 ; +-------------------------------------------------+
46 ;
47 ; FUNCTION:
48 ;
49 ; PROCESSOR FOR NICE "READ INFORMATION" FUNCTION
50 ;
51 ; CALLING SEQUENCE: CALL RIRDIN
52 ;
53 ; INPUT:
54 ;
55 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING "READ INFORMATION"
56 ; C.FUNC - FUNCTION CODE: #C$PROC
57 ; C.PROC - PROCESSOR NUMBER: #P$RDIN
58 ; C.LEN - LENGTH OF NICE MESSAGE
59 ; C.ADDR - ADDRESS OF NICE MESSAGE
60 ; C.TYPE - CLEAR
61 ; C.LKNM - LINK NUMBER OF COMMAND LINK
62 ;
RIRDIN MACRO M1110 13-OCT-79 12:16 PAGE 5
64 ; OUTPUT:
65 ;
66 ; R4 - CLEAR
67 ; R5 - ADDRESS OF CONTROL BLOCK THAT REQUESTED "READ INFO"
68 ; C.CTXT - -1 COMPLETED SIGNAL
69 ; C.FUNC - FUNCTION CODE: #C$PROC
70 ; C.PROC - PROCESS CODE: #P$GTCM
71 ; C.LKNM - LINK NUMBER OF COMMAND LINK
72 ;
73 ;--
74 ;======================================================================;
75 ;
76 ; EXTERNAL MACROS
77 ;
78 .MCALL PROC
79 ;
80 ; PROCEDURE BODY
81 ;
82 000000 PROC RIRDIN
83 000000 CALL RIMAIN
84 000004 ENDPROC
85 000001 .END
RIRDIN MACRO M1110 13-OCT-79 12:16 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 FS$PAS= 000001 F$OPCL= 000001 F$TRAC= 000000 L$$DRV= 000000
A$$CPS= 000000 FT$CNS= 000000 F$OPCO= 000000 F$TRBK= 000001 L$$P11= 000001
A$$TRP= 000000 FT$NOD= 000001 F$OPIN= 000000 F$TRIG= 000001 L$$11R= 000000
C$$CKP= 000000 FT$TSK= 000001 F$OPIR= 000000 F$TRIN= 000000 M$$CRB= 000124
C$$ORE= 000400 F$ALBF= 000001 F$OPLK= 000005 F$TRMA= 000000 M$$CRX= 000000
C$$RSH= 177564 F$ALCB= 000001 F$OPLN= 000002 F$TRMS= 000002 M$$FCS= 000000
D$$BUG= 177514 F$CB = 000017 F$OPLO= 000000 F$WRBK= 000000 M$$OVR= 000000
D$$ISK= 000000 F$CLCL= 000001 F$OPOR= 000000 F$WRCL= 000001 NO = 000000
D$$L11= 000001 F$CLCO= 000000 F$OPOT= 000000 F$WRCM= 000000 N$$USR= 000001
FL$BOO= 000001 F$CLFL= 000000 F$ORLU= 000000 F$WRRC= 000000 P$$P45= 000000
FL$DUM= 000001 F$CLLK= 000006 F$OTLU= 000001 F$ZERO= 000001 RIMAIN= ****** GX
FL$LOA= 000001 F$CLLN= 000002 F$RCBK= 000002 F$ZRCN= 000001 RIRDIN 000000RG
FL$LOO= 000001 F$DPOS= 000001 F$RCEV= 000001 F$$LVL= 000001 R$$DER= 000000
FR$LCC= 000001 F$DUMP= 000000 F$RCIN= 000000 F$150 = 000002 R$$K11= 000001
FR$LCS= 000001 F$EVNT= 000001 F$RCMA= 000000 F$300 = 000012 R$$SND= 000000
FR$LNC= 000001 F$EXAM= 000001 F$RCMS= 000002 F$50 = 000002 R$$11M= 000000
FR$LNL= 000001 F$EXHO= 000000 F$RDBK= 000000 F$550 = 000002 S$$WRG= 000000
FR$LNS= 000001 F$GTCM= 000001 F$RDCM= 000000 G$$TPP= 000000 S$$YSZ= 001600
FR$RMC= 000001 F$INCM= 000000 F$RDIN= 000001 G$$TSS= 000000 T$$KMG= 000000
FR$RML= 000001 F$INLU= 000001 F$RDIS= 000012 G$$TTK= 000000 T$$MIN= 000000
FR$RMS= 000001 F$IRLU= 000000 F$RDRC= 000000 I$$RAR= 000000 V$$CTR= 001000
FS$HOS= 000001 F$LKLU= 000010 F$RECO= 000001 I$$RDN= 000000 X$$DBT= 000000
FS$INT= 000000 F$LNLU= 000002 F$RLBF= 000001 K$$CNT= 177546 YES = 000001
FS$LLP= 000001 F$LNSR= 000001 F$RLCB= 000001 K$$CSR= 177546 $$CSTA= 000000
FS$LOF= 000001 F$LOAD= 000000 F$STBK= 000000 K$$LDC= 000000 $$PRST= 000007
FS$LOG= 000001 F$LOGD= 000001 F$STPR= 000001 K$$TPS= 000074 $$STIX= 000777
FS$LST= 000001 F$LOOP= 000001 F$STPS= 000006 LD$LP = 000000 $$STNM= 000000
FS$NET= 000001 F$NTCM= 000000 F$TEST= 000001 L$$ASG= 000000 $$TRNM= 000000
FS$NST= 000000
. ABS. 000000 000
000006 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8111 WORDS ( 32 PAGES)
DYNAMIC MEMORY: 9004 WORDS ( 34 PAGES)
ELAPSED TIME: 00:00:33
RIRDIN,[135,30]RIRDIN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,RIRDIN
RIRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:16 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$TRAC = 000000 5-82 5-82 5-84 5-84
I$$AS = ****** 5-82
RIMAIN = ****** GX 5-83
RIRDIN 000000 RG #5-82
R$$11D = ****** 5-82
R$$11M = 000000 5-82
$$CSTA = 000000 #5-82
$$PRST = 000007 #5-82
$$SLST = ****** 5-82 5-84
$$STIX = 000777 #5-82
$$STNM = 000000 #5-82
$$TRNM = 000000 #5-82
RIRDIN CREATED BY MACRO ON 13-OCT-79 AT 12:16 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-83
CASE #5-82
DO #5-82
ELSE #5-82
ENDCAS #5-82
ENDIF #5-82
ENDPRO #5-82 5-84
ENDWHI #5-82
FALSE #5-82
FALSEB #5-82
IF #5-82
JMPPRO #5-82
ONCASE #5-82
PROC #5-78 5-82
PROCLC #5-82
SWSTK$ #5-82
THEN #5-82
TRUE #5-82
TRUEB #5-82
WHILE #5-82
$$BGND #5-82
$$BGNN #5-82
$$ELSE #5-82
$$GEN1 #5-82 5-82 5-84
$$GEN2 #5-82
$$GNAB #5-82
$$GNBT #5-82
$$GNCM #5-82
$$INMC #5-82 5-82
$$INSY #5-82 5-82
$$LAB #5-82
$$POP #5-82
$$POPI #5-82
$$PUSH #5-82
$$STSM #5-82
$$SYS #5-82
$$TRCE #5-82 5-82 5-84