Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/ptexwd.list
There are no other files named ptexwd.list in the archive.
PTEXWD MACRO M1110 13-OCT-79 10:59 PAGE 3
1 .TITLE PTEXWD
2 .IDENT /V01.00/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU UTILITY MODULE TO PUT A WORD INTO AN EXTENSIBLE BINARY FIELD
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
PTEXWD MACRO M1110 13-OCT-79 10:59 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I P T E X W D I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; UTILITY MODULE TO PUT A WORD INTO AN
49 ; EXTENSIBLE BINARY FIELD (EX-2)
50 ;
51 ; CALLING SEQUENCE: CALL PTEXWD
52 ;
53 ; INPUT:
54 ;
55 ; R0 - 14 BIT BINARY WORD
56 ; R2 - DESTINATION BUFFER ADDRESS
57 ;
58 ; OUTPUT:
59 ;
60 ; C-BIT - SET IF R0 > 14 BIT WORD; CLEARED OTHERWISE
61 ; R0 - VALUE NOT PRESERVED
62 ; R1 - LENGTH OF EXTENSIBLE BINARY FIELD CREATED (1 OR 2)
63 ; R2 - UPDATED DESTINATION BUFFER ADDRESS
64 ;--
65 ;======================================================================;
PTEXWD MACRO M1110 13-OCT-79 10:59 PAGE 5
67 ;
68 ; EXTERNAL MACROS
69 ;
70 .MCALL PROC
71 ;
72 ; PROCEDURE BODY
73 ;
74 000000 PROC PTEXWD
75 000000 IF ; R0 > 14 BIT BINARY WORD
76 000000 FALSE CLEAR #140000,R0
77 000006 THEN
78 000006 000261 SEC ;SHOW ERROR CONDITION
79 000010 ELSE
80 000012 110012 MOVB R0,(R2) ;MOVE LO BYTE TO DESTINATION BUFFER
81 000014 012701 000001 MOV #1,R1 ;INDICATE ONE BYTE MOVED
82 000020 006300 ASL R0 ;SAVE HI BIT OF LO BYTE
83 000022 000300 SWAB R0 ;SWAP TO EXAMINE HI BYTE
84 000024 IF ; HI BYTE <> 0
85 000024 FALSE CLEAR
86 000026 THEN
87 000026 152722 000200 BISB #200,(R2)+ ;INDICATE FIELD EXTENDED TO 2 BYTES
88 000032 110022 MOVB R0,(R2)+ ;MOVE HI BYTE TO DESTINATION BUFFER
89 000034 005201 INC R1 ;INDICATE ANOTHER BYTE MOVED
90 000036 ELSE
91 000040 005202 INC R2 ;UPDATE DESTINATION BUFFER ADDRESS
92 000042 ENDIF
93 000042 ENDIF
94 000042 ENDPROC
95 000001 .END
PTEXWD MACRO M1110 13-OCT-79 10:59 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 FS$PAS= 000001 F$OPCO= 000000 F$TRIG= 000001 M$$CRB= 000124
A$$CPS= 000000 FT$CNS= 000000 F$OPIN= 000000 F$TRIN= 000000 M$$CRX= 000000
A$$TRP= 000000 FT$NOD= 000001 F$OPIR= 000000 F$TRMA= 000000 M$$FCS= 000000
C$$CKP= 000000 FT$TSK= 000001 F$OPLK= 000005 F$TRMS= 000002 M$$OVR= 000000
C$$ORE= 000400 F$ALBF= 000001 F$OPLN= 000002 F$WRBK= 000000 NO = 000000
C$$RSH= 177564 F$ALCB= 000001 F$OPLO= 000000 F$WRCL= 000001 N$$USR= 000001
D$$BUG= 177514 F$CB = 000017 F$OPOR= 000000 F$WRCM= 000000 PTEXWD 000000RG
D$$ISK= 000000 F$CLCL= 000001 F$OPOT= 000000 F$WRRC= 000000 P$$P45= 000000
D$$L11= 000001 F$CLCO= 000000 F$ORLU= 000000 F$ZERO= 000001 R$$DER= 000000
FL$BOO= 000001 F$CLFL= 000000 F$OTLU= 000001 F$ZRCN= 000001 R$$K11= 000001
FL$DUM= 000001 F$CLLK= 000006 F$RCBK= 000002 F$$LVL= 000001 R$$SND= 000000
FL$LOA= 000001 F$CLLN= 000002 F$RCEV= 000001 F$150 = 000002 R$$11M= 000000
FL$LOO= 000001 F$DPOS= 000001 F$RCIN= 000000 F$300 = 000012 S$$WRG= 000000
FR$LCC= 000001 F$DUMP= 000000 F$RCMA= 000000 F$50 = 000002 S$$YSZ= 001600
FR$LCS= 000001 F$EVNT= 000001 F$RCMS= 000002 F$550 = 000002 T$$KMG= 000000
FR$LNC= 000001 F$EXAM= 000001 F$RDBK= 000000 G$$TPP= 000000 T$$MIN= 000000
FR$LNL= 000001 F$EXHO= 000000 F$RDCM= 000000 G$$TSS= 000000 V$$CTR= 001000
FR$LNS= 000001 F$GTCM= 000001 F$RDIN= 000001 G$$TTK= 000000 X$$DBT= 000000
FR$RMC= 000001 F$INCM= 000000 F$RDIS= 000012 I$$RAR= 000000 YES = 000001
FR$RML= 000001 F$INLU= 000001 F$RDRC= 000000 I$$RDN= 000000 $$CSTA= 000000
FR$RMS= 000001 F$IRLU= 000000 F$RECO= 000001 K$$CNT= 177546 $$PRST= 000011
FS$HOS= 000001 F$LKLU= 000010 F$RLBF= 000001 K$$CSR= 177546 $$STIX= 000777
FS$INT= 000000 F$LNLU= 000002 F$RLCB= 000001 K$$LDC= 000000 $$STNM= 000000
FS$LLP= 000001 F$LNSR= 000001 F$STBK= 000000 K$$TPS= 000074 $$S774= 000011
FS$LOF= 000001 F$LOAD= 000000 F$STPR= 000001 LD$LP = 000000 $$S775= 000010
FS$LOG= 000001 F$LOGD= 000001 F$STPS= 000006 L$$ASG= 000000 $$S776= 000000
FS$LST= 000001 F$LOOP= 000001 F$TEST= 000001 L$$DRV= 000000 $$S777= 000000
FS$NET= 000001 F$NTCM= 000000 F$TRAC= 000000 L$$P11= 000001 $$TRNM= 000000
FS$NST= 000000 F$OPCL= 000001 F$TRBK= 000001 L$$11R= 000000
. ABS. 000000 000
000044 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 8156 WORDS ( 32 PAGES)
DYNAMIC MEMORY: 9004 WORDS ( 34 PAGES)
ELAPSED TIME: 00:00:25
PTEXWD,[135,30]PTEXWD/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,PTEXWD
PTEXWD CREATED BY MACRO ON 13-OCT-79 AT 10:59 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$TRAC = 000000 5-74 5-74 5-94 5-94
I$$AS = ****** 5-74
PTEXWD 000000 RG #5-74
R$$11D = ****** 5-74
R$$11M = 000000 5-74
$$CSTA = 000000 #5-74
$$PRST = 000011 #5-74 5-75 #5-75 5-84 #5-84
$$SLST = ****** 5-74 5-76 5-76 5-77 5-79 5-79 5-85 5-86 5-90
5-90 5-92 5-93 5-94
$$STIX = 000777 #5-74 5-75 5-75 #5-75 5-75 5-75 #5-75 5-84 5-84
#5-84 5-84 5-84 #5-84 5-92 #5-92 5-92 5-92 #5-92
5-92 5-93 #5-93 5-93 5-93 #5-93 5-93
$$STNM = 000000 #5-74 5-75 #5-75 5-75 5-76 5-77 5-79 5-79 5-84
#5-84 5-84 5-85 5-86 5-90 5-90 5-92 #5-92 5-93
#5-93
$$S774 = 000011 #5-84 5-92
$$S775 = 000010 #5-84 5-92
$$S776 = 000000 #5-75 5-93
$$S777 = 000000 #5-75 5-93
$$TRNM = 000000 #5-74 5-75 #5-75 5-76 5-77 5-79 #5-79 5-84 #5-84
5-85 5-86 5-90 #5-90 5-92 #5-92 5-93 #5-93
PTEXWD CREATED BY MACRO ON 13-OCT-79 AT 10:59 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CASE #5-74
DO #5-74
ELSE #5-74 #5-79 #5-90
ENDCAS #5-74
ENDIF #5-74 #5-92 #5-93
ENDPRO #5-74 5-94
ENDWHI #5-74
FALSE #5-74 #5-76 #5-85
FALSEB #5-74
IF #5-74 5-75 5-84
JMPPRO #5-74
ONCASE #5-74
PROC #5-70 5-74
PROCLC #5-74
SWSTK$ #5-74
THEN #5-74 5-77 5-86
TRUE #5-74
TRUEB #5-74
WHILE #5-74
$$BGND #5-74 5-76 5-85
$$BGNN #5-74 #5-76 #5-79 #5-85 #5-90
$$ELSE #5-74 #5-79 #5-90
$$GEN1 #5-74 5-74 5-76 5-77 5-79 5-79 5-85 5-86 5-90 5-90
5-92 5-93 5-94
$$GEN2 #5-74 #5-76
$$GNAB #5-74
$$GNBT #5-74 5-76 5-85
$$GNCM #5-74 5-76 5-85
$$INMC #5-74 5-74
$$INSY #5-74 5-74
$$LAB #5-74 #5-77 #5-79 #5-86 #5-90 #5-92 #5-93
$$POP #5-74 #5-92 #5-92 #5-93 #5-93
$$POPI #5-74 5-92 5-92 5-93 5-93
$$PUSH #5-74 5-75 5-75 5-84 5-84
$$STSM #5-74 5-75 5-75 5-84 5-84
$$SYS #5-74
$$TRCE #5-74 5-74 5-94