-11,12
	.IDENT	/811204/	;Glenn C. Everhart
;12/4/81 ADD .PSECTS FOR RO AND RW SECTIONS OF CODE
	.PSECT ..DDT.,RW,I	;IMPURE CODE
	.PSECT ..DDTP,RO,I	;CODE
	.PSECT ..DDTD,RW,D	;DATA
;	.PSECT	..DDT.,RW,I
-789
	.PSECT ..DDTP,RO,I	;CODE
-865,865
	.PSECT	..DDTD
III.II:	.WORD	0,0;I/O STAT
	.PSECT ..DDTP,RO,I	;CODE
-1951,1953
	.PSECT	..DDT.
D.GRAP:	 TRAP	144
	 MOV	#104544,D.SAV9	; UG! SELF MODIFYING-CODE
	 RTS	PC
	.PSECT ..DDTP,RO,I	;CODE
-2604
	.PSECT ..DDTD
-2608
	.PSECT ..DDTP,RO,I	;CODE
-2696,2697
	.PSECT	..DDTD
D.TNAM:	.BLKW	4		;TASK NAME STORAGE (ASCII)
D.RTNM:	.BLKW	2		;RAD50 NAME SAVE
	.PSECT ..DDTP,RO,I	;CODE
-2718,2718
	.PSECT	..DDTD
JDAT:	.WORD	0	;SCRATCH FOR L.O. WORD ON EXAMINE
	.PSECT ..DDTP,RO,I	;CODE
-2844,2845
	.PSECT	..DDTD
D.PRCN:	.WORD	0
D.FPAC:	.WORD	0,0,0,0		;F.P. AC STORAGE AREA
	.PSECT ..DDTP,RO,I	;CODE
-2939
	.PSECT	..DDTD
-2953
	.PSECT ..DDTP,RO,I	;CODE
-3056,3059
	.PSECT	..DDTD
SWITCH: 0
SWE:    0
EXPSGN: 0
	.PSECT ..DDTP,RO,I	;CODE
-3304,3304
	.PSECT	..DDTD
V1:     .FLT4 0.0
	.PSECT ..DDTP,RO,I	;CODE
-3354,3355
	JMP	D.GO1
	.PSECT	..DDT.	;IMPURE CODE
;D.GO1 MODIFIED BY STARTUP! BUT MUST LEAVE AS INST.
D.GO1:
	.IF	NDF,L$$SI
	.IF	NDF,$$RSXMM!$D$FPU
-3360,3360
	.IFF
	RTT
	.ENDC
	.PSECT	..DDTD
 .IIF DF,RTTTST, RTRFG: .WORD 0 ;FLAG WE SAW RTI
	.PSECT ..DDTP,RO,I	;CODE
-3828,3828
	.PSECT	..DDTD
D.ASTF:	.WORD	0	;AST DISABLED FLAG
	.PSECT ..DDTP,RO,I	;CODE
-3997
	.PSECT	..DDTD
-4005
	.PSECT ..DDTP,RO,I	;CODE
-4371
	.PSECT ..DDTP,RO,I	;CODE
-4470
	.PSECT	..DDTD
-4477
	.PSECT ..DDTP,RO,I	;CODE
-5026
	.PSECT	..DDTD
-5057
	.PSECT ..DDTP,RO,I	;CODE
-5108
	.PSECT	..DDTD
-5119
	.PSECT ..DDTP,RO,I	;CODE
-5173,5174
	.PSECT	..DDTD
.STBSM:	.WORD	0,0		;RAD50 SYMBOL NAME USED
.STBAD:	.WORD	0		;SYMBOL ADDRESS
;	.PSECT ..DDTP,RO,I	;CODE
-5183
	.PSECT ..DDTP,RO,I	;CODE
-5346
	.PSECT	..DDTD
-5373
	.PSECT ..DDTP,RO,I	;CODE
-5536,5541
	.PSECT	..DDTD
C.PL:	.WORD	CD.BUF,512.,0
C.BLL:	.WORD	0,0		;WHERE BLK # RETURNS (H.O./L.O.)
	.WORD	0	;SAFETY
	.PSECT ..DDTP,RO,I	;CODE
	.ENDC

	.PSECT	..DDT.,RW,I
	.PSECT ..DDTP,RO,I	;CODE
-5565
	.PSECT	..DDTD
-5579
	.PSECT ..DDTP,RO,I	;CODE
-5730
	.PSECT ..DDTD
-5930,5930
;	.PSECT	..DDT.,RW,I
-6176,6176
;	.PSECT	..DDT.,RW,I
-6198,6198
;	.PSECT	..DDT.,RW,I
	.PSECT	..DDTD
-6294
	.PSECT	..DDT.
-6306
	.PSECT ..DDTD
;
-6324,6324
;
-6334
	.PSECT ..DDTP,RO,I	;CODE
-6343
	.PSECT	..DDTD
-6366,6366
;	.PSECT	..DDT.,RW,I
-6424
	.PSECT ..DDTP,RO,I	;CODE
-6442
	.PSECT	..DDTD
-6449
	.PSECT	..DDTD
-6712,6712
;	.PSECT	..DDT.,RW,I
	.PSECT ..DDTP,RO,I	;CODE
/