Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsdmo.list
There are no other files named nsdmo.list in the archive.
NSDMO MACRO M1110 13-OCT-79 10:21
TABLE OF CONTENTS
4- 68 $DMOQIO - DISMOUNT VOLUME (FUNCTION=6) PROCESSOR
5- 114 $ACPEX - NETWORK ACP EXIT PROCESSING
NSDMO MACRO M1110 13-OCT-79 10:21 PAGE 3
1 .TITLE NSDMO
2 .IDENT /V01.01/
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 ; MODULE DESCRIPTION;
25 ;
26 ; ACP DISMOUNT PROCESSOR AND TASK EXIT
27 ;
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ; 1.01 26-JAN-79 ALAN D. PECKHAM
36 ; FIX MOP MAIL RETURN CALL
37 ;
38
39 ; MACRO LIBRARY CALLS
40 ;
41
42
43 .MCALL DVBDF$,CCBDF$,NSPSY$,NSSYM$
44 000000 DVBDF$ ;DEFINE VOLUME CONTROL BLOCK OFFSETS
45 000000 CCBDF$ ;DEFINE THE CCB OFFSETS
46 000000 NSPSY$ ;DEFINE THE NSP INTERNAL SYMBOLS
47 000000 NSSYM$ ;DEFINE THE NSP RETURN CODES
48
49 ;
50 ; LOCAL MACRO DEFINITIONS
51 ;
52 ;
53 ; PUSH AND POP STACK INSTRUCTIONS
54 ;
55
56 .MACRO PUSH S
57 .IRP SS,<S>
NSDMO MACRO M1110 13-OCT-79 10:21 PAGE 3-1
58 MOV SS,-(SP)
59 .ENDR
60 .ENDM PUSH
61
62 .MACRO POP D
63 .IRP DD,<D>
64 MOV (SP)+,DD
65 .ENDR
66 .ENDM POP
NSDMO MACRO M1110 13-OCT-79 10:21 PAGE 4
$DMOQIO - DISMOUNT VOLUME (FUNCTION=6) PROCESSOR
68 .SBTTL $DMOQIO - DISMOUNT VOLUME (FUNCTION=6) PROCESSOR
69
70 ;+
71 ; ** - $DMOQIO - DISMOUNT QIO PROCESSOR
72 ;
73 ; INPUTS:
74 ;
75 ; R1 = SUBFUNCTION CODE
76 ; R3 -> I/O PACKET
77 ;
78 ; OUTPUT:
79 ;
80 ; THE DISMOUNT QIO IS COMPLETED SUCCESSFULLY, THE GENERAL DELIVERY
81 ; AND V1 CONNECT PENDING QUEUES FLUSHED AND AN INTERNAL FLAG SET TO
82 ; CAUSE THE ACP TO EXIT WHEN ALL NETWORK ACTIVITY HAS CEASED.
83 ;-
84
85 000000 .PSECT $NSACP
86
87 000000 105267 000000G $DMQIO::INCB $NSDMF ;SET VOLUME BEING DISMOUNTED FLAG
88 000004 016704 000000G MOV $NSVCB,R4 ;GET VOLUME CONTROL BLOCK ADDRESS
89 000010 062704 000016 ADD #V.GENQ,R4 ;POINT TO GENERAL DELIVERY QUEUE
90
91 000014 SWSTK$ 30$ ;SWITCH TO SYSTEM STATE
92
93 000020 CALL IOSUC ;;COMPLETE I/O REQUEST SUCCESSFULLY
94 000024 CALL 10$ ;;FLUSH GENERAL DELIVERY QUEUE
95 ;;FLUSH V1 PENDING CONNECT QUEUE
96 000030 10$: PUSH <R4,(R4)> ;;SAVE QUEUE LISTHEAD AND POINTER TO FIRST CCB
97 000034 15$: POP R5 ;;GET (NEXT) CCB FROM QUEUE
98 000036 001416 BEQ 20$ ;;IF EQ, QUEUE EMPTY
99 000040 PUSH (R5) ;;SAVE POINTER TO NEXT CCB
100 000042 122765 000001 000010 CMPB #NT.CON,C.FNC(R5) ;;IS THIS A CONNECT CCB ?
101 000050 001005 BNE 16$ ;;IF NE, MUST BE MOP EVENT CCB
102 000052 012703 000003 MOV #ER$NSD,R3 ;;SET NODE SHUTTING DOWN STATUS
103 000056 CALL CCBREJ ;;REJECT CONNECTION
104 000062 000764 BR 15$ ;;LOOP TILL QUEUE EMPTY
105 000064 010504 16$: MOV R5,R4 ;;CHANGE REGISTER CONVENTION
106 000066 CALL $CCBCL ;;RETURN CCB/BUFFER TO POOL ;AP0001
107 000072 000760 BR 15$ ;;LOOP TILL QUEUE EMPTY ;**-1
108
109 000074 011604 20$: MOV (SP),R4 ;;RESTORE QUEUE LISTHEAD ADDRESS
110 000076 005024 CLR (R4)+ ;;RESET LISTHEAD AND POINT TO
111 000100 POP (R4)+ ;; NEXT LOCATION
112 000102 30$: RETURN ;;RETURN TO CALLER AND TASK STATE
NSDMO MACRO M1110 13-OCT-79 10:21 PAGE 5
$ACPEX - NETWORK ACP EXIT PROCESSING
114 .SBTTL $ACPEX - NETWORK ACP EXIT PROCESSING
115
116 ;+
117 ; ** - $ACPEX - ACP EXIT PROCESSING
118 ;-
119
120 000104 016705 000000G $ACPEX::MOV $NSUCB,R5 ;;GET NS: UCB ADDRESS
121 000110 001442 BEQ 30$ ;;IF EQ, FINISHED
122 000112 016504 000000G MOV U.VCB(R5),R4 ;;GET VCB ADDRESS
123 000116 001424 BEQ 20$ ;;IF EQ, JUST CLEAR SAVED UCB
124 000120 016400 000006 MOV V.ULT(R4),R0 ;;GET ULT ADDRESS
125 000124 001412 BEQ 10$ ;;IF EQ, PROCESS VCB
126
127 000126 016702 000000G MOV $NSADB,R2 ;;GET THE NUMBER OF LOGICAL LINKS AND
128 000132 016201 000022 MOV N$LVC(R2),R1 ;; COMPUTE THE SIZE OF THE BLOCK TO
129 000136 006301 ASL R1 ;; DEALLOCATE
130 000140 006301 ASL R1 ;;
131 000142 062701 000002 ADD #2,R1 ;;
132 000146 CALL $DEACB ;;DEALLOCATE USER LINK TABLE
133
134 000152 010400 10$: MOV R4,R0 ;;COPY VCB ADDRESS
135 000154 012701 000026 MOV #V.VBL,R1 ;;GET VCB LENGTH
136 000160 CALL $DEACB ;;DEALLOCATE VOLUME CONTROL BLOCK
137 000164 005065 000000G CLR U.VCB(R5) ;;CLEAR VCB ADDRESS IN UCB
138
139 000170 142765 000000G 000000G 20$: BICB #US.MDM,U.STS(R5) ;;CLEAR MARKED FOR DISMOUNT,
140 000176 152765 000000G 000000G BISB #US.MNT,U.STS(R5) ;; SET UNIT DISMOUNTED AND
141 000204 152765 000000G 000000G BISB #US.OFL,U.ST2(R5) ;; DEVICE OFFLINE
142 000212 005065 000000G CLR U.ACP(R5) ;;CLEAR ACP ADDRESS IN UCB
143
144 000216 016705 000000G 30$: MOV $TKTCB,R5 ;;GET ACP TASK CONTROL BLOCK ADDRESS
145 000222 CALLR $DREXT ;;EXIT TO SYSTEM
146
147 000001 .END
NSDMO MACRO M1110 13-OCT-79 10:21 PAGE 5-1
SYMBOL TABLE
ACKMAS= 170000 C.CNT 000020 FC.CCP= 000020 LF.FPN= 000010 L.XQ2 000050
ACKPRE= 100000 C.CNT1 000020 FC.CTL= 000006 LF.HF0= 001000 L.XQ3 000052
ACKRES= 060000 C.CNT2 000030 FC.KCP= 000016 LF.HMF= 020000 MA.DA = 000000
ACKWRA= 010000 C.FLG 000022 FC.KIL= 000004 LF.HSF= 010000 MA.IL = 000020
A$$CHK= 000000 C.FLG1 000022 FC.RCE= 000002 LF.INR= 000100 MC.CC = 000040
A$$CPS= 000000 C.FLG2 000032 FC.RCP= 000014 LF.INT= 000400 MC.CI = 000020
A$$PRI= 000000 C.FNC 000010 FC.TIM= 000010 LF.LCL= 040000 MC.DC = 000100
A$$TRP= 000000 C.LIN 000006 FC.XCP= 000012 LF.MMF= 100000 MC.DI = 000060
A.NAK = 010000 C.LNK 000000 FC.XME= 000000 LF.MSF= 040000 MC.NO = 000000
CB.CCB= 000002 C.MOD 000011 FS.AST= 000000 LF.NKR= 000200 MC.ST = 000120
CB.RDB= 000004 C.NSP 000004 FS.CIB= 002000 LF.NKS= 000400 MD.BM = 000040
CCBREJ= ****** GX C.RSV 000002 FS.CRA= 001000 LF.NPN= 000001 MD.EM = 000100
CE.ABO= 100362 C.STA 000007 FS.DIS= 013000 LF.NTS= 002000 MD.ILS= 000040
CE.DIS= 100366 C.STS 000012 FS.DVC= 001000 LF.RSU= 100000 MD.IM = 000020
CE.ERR= 100370 DF$ADJ= 020000 FS.ENB= 012000 LS.DLS= 000200 MF.ACK= 000004
CE.MOP= 100372 DF$DWN= 001000 FS.GET= 006000 LS.FCC= 000004 MF.CTL= 000010
CE.NTE= 100361 DF$FRE= 070000 FS.INI= 000000 LS.FC0= 000001 MF.DAT= 000000
CE.RTE= 100376 DF$LCL= 040000 FS.KIL= 000000 LS.FC1= 000002 MSGHDR= 000007
CE.SRC= 100364 DF$LNK= 004000 FS.LTM= 001000 LS.ILS= 000200 M$$CRB= 000124
CE.TMO= 100374 DF$REM= 010000 FS.MNT= 004000 LS.MAK= 000020 M$$CRX= 000000
CF.EOM= 000004 DF$RES= 002000 FS.MSN= 014000 LS.MNK= 000040 M$$FCS= 000000
CF.HDR= 000020 DF$TMP= 100000 FS.RNG= 011000 LS.RES= 000360 M$$MGE= 000000
CF.LB = 100000 D$CHN 000002 FS.RTN= 001000 LS.RSV= 000300 M$$OVR= 000000
CF.SOM= 000010 D$FLG 000000 FS.SET= 005000 L$$ASG= 000000 NC.FM0= 000000
CF.SYN= 000040 D$LEN 000014 FS.STM= 000000 L$$DRV= 000000 NC.FM1= 000001
CF.TRN= 000100 D$LNG 000005 FS.STP= 002000 L$$P11= 000001 NC.FM2= 000002
CL$ACK= 000040 D$NAM 000006 FS.STR= 001000 L$$11R= 000000 NETTIM= 000005
CL$MFL= 000010 D$USE 000004 FS.TRM= 003000 L.CIQ 000026 NE$ABO= 000046
CL$NRM= 000020 D$$BUG= 177514 FS.XKL= 002000 L.DCR 000036 NE$ABT= 000011
CL$SFL= 000004 D$$ISK= 000000 FS.XOF= 010000 L.FLG 000012 NE$ACC= 000042
CL$TYP= 000001 D$$L11= 000001 FS.XON= 007000 L.LDA 000024 NE$ACT= 000044
CL.MU1= 000001 D$$YNC= 000000 F$$LVL= 000001 L.LIA 000026 NE$CDI= 000052
CL.MU2= 000002 D$$YNM= 000000 G$$TPP= 000000 L.LLA 000002 NE$COM= 000047
CL.RES= 177774 ER$ABO= 000046 G$$TSS= 000000 L.LNG1 000054 NE$FCF= 000050
CS.ABO= 000100 ER$ABT= 000011 G$$TTK= 000000 L.LNO 000022 NE$FMT= 000005
CS.BUF= 000200 ER$ACC= 000042 G$$WRD= 000000 L.LSA 000032 NE$GEN= 000007
CS.DCR= 000400 ER$ACT= 000044 IE.NDA= 177662 L.LSF 000044 NE$ILS= 000043
CS.DEV= 000002 ER$CDI= 000052 IE.NNT= 177660 L.LVL 000001 NE$IMG= 000053
CS.DIS= 000040 ER$COM= 000047 IE.NRJ= 177666 L.NDA 000034 NE$MLB= 000006
CS.ENB= 000020 ER$FCF= 000050 IE.URJ= 177667 L.NIN 000016 NE$NOD= 000002
CS.EOF= 000001 ER$FMT= 000005 IOSUC = ****** GX L.NLA 000036 NE$NSD= 000003
CS.ERR= 100000 ER$GEN= 000007 IS.DAO= 000002 L.NSTA 000025 NE$RES= 000001
CS.HFE= 002000 ER$IFC= 000030 I$$RAR= 000000 L.NXN 000014 NE$SSR= 000000
CS.LST= 040000 ER$ILS= 000043 I$$RDN= 000000 L.PDV 000041 NE$SSS= 000045
CS.MTL= 004000 ER$IMG= 000053 K$$CNT= 177546 L.REM 000006 NE$STA= 000051
CS.RNG= 000010 ER$MLB= 000006 K$$CSR= 177546 L.RLA 000010 NE$TCN= 000040
CS.ROV= 000004 ER$NOD= 000002 K$$LDC= 000000 L.RNO 000020 NE$TCO= 000041
CS.RSN= 010000 ER$NSD= 000003 K$$TPS= 000074 L.STA 000000 NE$TPA= 000010
CS.SUC= 000001 ER$RES= 000001 LA.ACK= 100000 L.TC 000042 NE$UOB= 000004
CS.TMO= 020000 ER$SSR= 000000 LA.MSK= 170000 L.TIC 000043 NE.ABO= 177776
C$$CKP= 000000 ER$SSS= 000045 LA.NAK= 110000 L.TIPD 000005 NE.ACT= 177771
C$$ORE= 000400 ER$STA= 000051 LA.NMS= 010000 L.TIPI 000004 NE.CLS= 177767
C$$RSH= 177564 ER$TCN= 000040 LA.RES= 060000 L.UDQ 000034 NE.DIS= 177777
C.BID 000003 ER$TCO= 000041 LD$LP = 000000 L.ULA 000040 NE.FMT= 177770
C.BUF 000014 ER$TPA= 000010 LF.DFL= 000060 L.USA 000030 NE.NDT= 177766
C.BUF1 000014 ER$UOB= 000004 LF.DSP= 000040 L.USTA 000024 NE.NOD= 177774
C.BUF2 000024 E$$XPR= 000000 LF.DST= 000020 L.XQ1 000046 NE.REJ= 177775
NSDMO MACRO M1110 13-OCT-79 10:21 PAGE 5-2
SYMBOL TABLE
NE.RES= 177773 NT$NAK= 000022 N$$OPT= 000020 PS$UP = 000005 S$NKS 000010
NE.TIM= 177772 NT$OFF= 000026 N$$OVR= 000042 PS$VER= 000004 S$RES 000014
NI.FLI= 000002 NT$ON = 000002 N$$SYS= 000001 PS$WT = 000002 S$SEC 000000
NI.FRI= 000004 NT$QRY= 000014 N$$USR= 000001 P$CHN 000004 S$SNI 000016
NI.FRT= 000001 NT$REJ= 000004 N.ACNT 000116 P$CNT 000005 S$UMR 000004
NI.FUB= 000010 NT$ROU= 000022 N.ACTL 000114 P$FRQ 000012 S$UMS 000002
NI.INI= 000001 NT$RTI= 000010 N.DDL1 000012 P$FSP 000013 S$UNI 000020
NI.RLI= 000002 NT$RTN= 000000 N.DDL2 000016 P$LCD 000002 S$$WRG= 000000
NI.RRI= 000004 NT$SNG= 000006 N.DDS1 000014 P$LEN 000014 S$$YSZ= 007600
NI.RVE= 000001 NT$STP= 000004 N.DDS2 000020 P$LST 000000 T$$KMG= 000000
NI.VER= 000002 NT$XOF= 000020 N.DFMT 000010 P$NOD 000010 T$$MIN= 000000
NO.DTR= 000077 NT$XON= 000016 N.DGRP 000012 P$PFQ 000006 US.MDM= ****** GX
NO.FAL= 000021 NT.ABO= 000005 N.DOBJ 000011 P$TIM 000003 US.MNT= ****** GX
NO.FA1= 000001 NT.ABT= 000004 N.DUSR 000014 P$$P45= 000000 US.OFL= ****** GX
NO.NCU= 000023 NT.ACK= 000001 N.LGTH= 000160 P$$WRD= 000000 U.ACP = ****** GX
NO.RTL= 000022 NT.BOM= 000040 N.NODE 000000 Q$$OPT= 000010 U.STS = ****** GX
NO.TAS= 000000 NT.CON= 000001 N.OPDL 000136 RF.CLN= 000000 U.ST2 = ****** GX
NO.TCL= 000017 NT.DSC= 000003 N.OPTD 000140 RF.CTL= 000003 U.VCB = ****** GX
NO.TC1= 000005 NT.EOM= 000100 N.PASL 000102 RF.TIM= 177400 VF$RCV= 100000
NO.TLK= 000020 NT.FCN= 037400 N.PASS 000104 RF.TM0= 000400 VF$XMT= 040000
NP$RTR= 000003 NT.INT= 000002 N.RQDL 000060 RF.WTD= 000020 V$FLG 000000
NR$IFC= 000030 NT.LOG= 000011 N.RQID 000062 RF.WTM= 000030 V$LEN 000022
NS.BOM= 000040 NT.MD1= 000420 N.RSRV= 000030 RF.WTS= 000010 V$RCV 000002
NS.EOM= 000100 NT.MFL= 000002 N.SDL1 000036 RH.CNT= 000001 V$XMT 000012
NS.MFL= 000003 NT.MOD= 000020 N.SDL2 000042 RH.EFM= 000020 V$$CTR= 001000
NS.MOM= 000000 NT.MOM= 000000 N.SDS1 000040 RH.HDR= 000002 V.CULT 000004
NS.NFL= 000001 NT.MOP= 000010 N.SDS2 000056 RH.PRI= 000014 V.GENQ 000016
NS.SET= 000002 NT.NAK= 000002 N.SEG 000006 RH.PR1= 000004 V.MBXQ 000012
NS.SFL= 000002 NT.NFL= 000000 N.SFMT 000034 RH.RFM= 000100 V.TIME 000003
NS.SOL= 000140 NT.SFL= 000001 N.SGRP 000036 R$$DER= 000000 V.TIMR 000002
NS.SUC= 000001 NT.SOL= 000140 N.SOBJ 000035 R$$K11= 000001 V.TRCT 000000
NT$ABO= 000022 NT.XOF= 000004 N.SUSR 000040 R$$SND= 000000 V.ULT 000006
NT$ACC= 000002 NT.XON= 000010 PF$EIP= 000100 R$$11M= 000000 V.ULTE 000010
NT$ADS= 000000 N$ACQ 000000 PF$ENB= 000200 ST$CC = 000002 V.VBL = 000026
NT$AKD= 000016 N$ICF 000006 PF$OFF= 000000 ST$CIR= 000003 V.1CPQ 000022
NT$AKI= 000020 N$LNI 000010 PF$RLI= 000002 ST$CIS= 000001 WINDOW= 004000
NT$CC = 000012 N$LVC 000022 PF$RRI= 000004 ST$DAT= 000005 X$$DBT= 000000
NT$CON= 000000 N$NOD 000032 PF$RVE= 000001 ST$DID= 000015 $ACPEX 000104RG 002
NT$DAT= 000002 N$PLD 000026 PF$RVR= 000040 ST$DIP= 000006 $CCBCL= ****** GX
NT$DIS= 000010 N$STS 000042 PF$SLI= 000002 ST$DIR= 000012 $DEACB= ****** GX
NT$IDC= 000034 N$TCB 000004 PF$SRI= 000004 ST$DIS= 000014 $DMQIO 000000RG 002
NT$IDN= 000030 N$TMP 000012 PF$SRT= 000001 ST$UDI= 000013 $DREXT= ****** GX
NT$ILN= 000032 N$VER 000036 PF$STA= 000003 ST$UNR= 000011 $NSADB= ****** GX
NT$IND= 000024 N$$DAT= 000030 PF$SUB= 000010 S$EMR 000006 $NSDMF= ****** GX
NT$INL= 000026 N$$DIS= 000020 PF$UP = 000001 S$FMT 000012 $NSUCB= ****** GX
NT$INT= 000004 N$$INT= 000020 PS$NTI= 000003 S$LEN 000040 $NSVCB= ****** GX
NT$LS = 000014 N$$LDV= 000001 PS$OFF= 000000 S$LNK 000022 $TKTCB= ****** GX
NT$MOD= 000012 N$$MOV= 000010 PS$STR= 000001 S$MLK 000024
. ABS. 000160 000
000000 001
$NSACP 000226 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 19014 WORDS ( 75 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:00:30
NSDMO,[131,34]NSDMO/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSDMO
NSDMO CREATED BY MACRO ON 13-OCT-79 AT 10:21 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CCBREJ = ****** GX 4-103
C.FNC 000010 4-100
ER$NSD = 000003 4-102
IOSUC = ****** GX 4-93
NT.CON = 000001 4-100
N$LVC 000022 5-128
US.MDM = ****** GX 5-139
US.MNT = ****** GX 5-140
US.OFL = ****** GX 5-141
U.ACP = ****** GX *5-142
U.STS = ****** GX *5-139 *5-140
U.ST2 = ****** GX *5-141
U.VCB = ****** GX 5-122 *5-137
V.GENQ 000016 4-89
V.ULT 000006 5-124
V.VBL = 000026 5-135
$ACPEX 000104 RG #5-120
$CCBCL = ****** GX 4-106
$DEACB = ****** GX 5-132 5-136
$DMQIO 000000 RG #4-87
$DREXT = ****** GX 5-145
$NSADB = ****** GX 5-127
$NSDMF = ****** GX *4-87
$NSUCB = ****** GX 5-120
$NSVCB = ****** GX 4-88
$TKTCB = ****** GX 5-144
NSDMO CREATED BY MACRO ON 13-OCT-79 AT 10:21 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-91 4-93 4-94 4-103 4-106 5-132 5-136
CALLR #5-145
CCBDF$ #3-43 3-45
DVBDF$ #3-43 #3-44
NSPSY$ #3-43 #3-46
NSSYM$ #3-43 #3-47
POP #3-62 4-97 4-111
PUSH #3-56 #4-96 #4-99
RETURN 4-112
SWSTK$ #4-91