Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/drabo.list
There are no other files named drabo.list in the archive.
DRABO MACRO M1110 22-AUG-79 06:56 PAGE 3
1 .TITLE DRABO
2 .IDENT /03/
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 03
12 ;
13 ; D. N. CUTLER 11-SEP-73
14 ;
15 ; MACRO LIBRARY CALLS
16 ;
17
18 .MCALL ABODF$
19 000000 ABODF$ ;DEFINE TASK ABORT CODES
20
21 ;+
22 ; **-$DRABO-ABORT TASK
23 ;
24 ; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO TERMINATE THE EXECUTION OF A
25 ; SPECIFIED TASK.
26 ;
27 ; DPB FORMAT:
28 ;
29 ; WD. 00 -- DIC(83.),DPB SIZE(3.).
30 ; WD. 01 -- FIRST HALF OF TASK NAME.
31 ; WD. 02 -- SECOND HALF OF TASK NAME.
32 ;
33 ; INPUTS:
34 ;
35 ; R0=ADDRESS OF THE TCB OF THE TASK TO TERMINATE.
36 ; R1=ADDRESS OF THE TASK STATUS WORD OF THE TASK TO TERMINATE.
37 ; R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
38 ; R3=ADDRESS OF THE LAST WORD IN THE DPB+2.
39 ; R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
40 ; R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
41 ;
42 ; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
43 ;
44 ; C=0 IF DIRECTIVE IS SUCCESSFULLY COMPLETED.
45 ; DIRECTIVE STATUS OF +1 IS RETURNED.
46 ; C=1 IF DIRECTIVE IS REJECTED.
47 ; DIRECTIVE STATUS OF 'D.RS7' IS RETURNED IF THE SPECIFIED
48 ; TASK IS NOT ACTIVE.
49 ;-
50
51 000000 005721 $DRABO::TST (R1)+ ;SPECIFIED TASK ACTIVE?
52 000002 100407 BMI 10$ ;IF MI NO
53 000004 105711 TSTB (R1) ;TASK ALREADY BEING TERMINATED?
54 000006 100405 BMI 10$ ;IF MI YES
55 000010 010001 MOV R0,R1 ;SET TCB ADDRESS OF TASK TO ABORT
56 000012 012700 000024 MOV #S.CABO,R0 ;SET REASON FOR ABORT
57 000016 CALLR $ABTSK ;ABORT TASK
DRABO MACRO M1110 22-AUG-79 06:56 PAGE 3-1
58 000022 10$: DRSTS D.RS7 ;SET DIRECTIVE STATUS
59
60 000001 .END
DRABO MACRO M1110 22-AUG-79 06:56 PAGE 3-2
SYMBOL TABLE
A$$CHK= 000000 K$$LDC= 000001 R$$DER= 000000 S.CFLT= 000016 T.NCWF= 000004
A$$CPS= 000000 K$$TPS= 000074 R$$EXV= 000000 S.CILI= 000010 T.NDMO= 000010
A$$TRP= 000000 L$$ASG= 000000 R$$SND= 000000 S.CIOT= 000006 T.NDNR= 000000
C$$ORE= 002000 L$$DRV= 000000 R$$11M= 000000 S.CLRF= 000026 T.NDSE= 000002
D.RS7 = ****** GX M$$CRB= 000124 R$$11S= 000000 S.COAD= 000000 T.NLDN= 000014
G$$TPP= 000000 M$$MGE= 000000 S$$YSZ= 001740 S.CSGF= 000002 T.NLUP= 000016
G$$TTK= 000000 M$$NET= 000000 S.CABO= 000024 S.CSST= 000020 V$$CTR= 001200
H$$RTZ= 000074 M$$NT2= 000000 S.CAST= 000022 S.CTRP= 000014 V$$RSN= 000031
I$$RDN= 000000 N$$LDV= 000001 S.CBPT= 000004 S.IOMG= 000032 X$$DBT= 000000
K$$CNT= 177546 P$$RTY= 000000 S.CCRF= 000030 S.PRTY= 000034 $ABTSK= ****** GX
K$$CSR= 177546 P$$TPT= 000000 S.CEMT= 000012 T.NCRE= 000006 $DRABO 000000RG
K$$IEN= 000115
. ABS. 000000 000
000024 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 1474 WORDS ( 6 PAGES)
DYNAMIC MEMORY: 2980 WORDS ( 11 PAGES)
ELAPSED TIME: 00:00:09
[11,24]DRABO,SY0:[11,34]DRABO/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,DRABO