.TITLE	NABMAC.MAC

	.ENABL	LC
	.IDENT	\FORV02\
	.NLIST	BEX

; This MACRO program generates binary code identical to that generated
; by the following "do nothing" FORTRAN program:
;
;			PROGRAM NAB
;			END
;
; This MACRO code was obtained by disassembling the .SAV image produced
; by compiling (with threaded code) and linking (with the no hardware
; OTS library) the above FORTRAN program.  The link map of the original
; compiled and linked .SAV image was used to locate the globals that
; were then edited into the MACRO source.  Additional information was
; obtained from the FORTRAN Users Guide (RT-11) and the incomplete OTS
; internals document on the Fall 80 RT-11 Tape.
;
;				N. A. Bourgeois, Jr.
;				Sandia National Laboratories
;				Systems Engineering Division 9238
;				P. O. Box 5800
;				Albuquerque, NM 87185
;				(505) 844-8088
;
;				4-Feb-83
.PAGE
	.MCALL	.EXIT
	.MCALL	.GVAL
	.MCALL	.PRINT
	.MCALL	.RCTRLO
	.MCALL	.SETTOP
	.MCALL	.TRPSET
	.MCALL	.TTOUTR

	.ASECT

	. = 34
	.WORD	TRPHND

	$USRSW	== 0
	$RF2A1	== 0
	$HRDWR	== 0
	.VIR	== 0
	$NLCHN	== 6
	$WASIZ	== 152
	$LRECL	== 210
	$TRACE	== 4737

	L1	= 150
	L2	= 165
	L6	= 5001
	L11	= 42
	L15	= 20
	L16	= 22
	L17	= 2
	L23	= 170000
	L24	= 36
	L27	= 160000
	L31	= 46
	L40	= 10
	L41	= 53
	L42	= 324
	L44	= 1
	L50	= 120
	L52	= 164
	L54	= 4
	L55	= 166
	L56	= 170
	L57	= 106
	L60	= 154
	L61	= 12
	L63	= 43
	L65	= 14
	L67	= 24
	L70	= 100000
	L71	= 174
	L72	= 172
	L75	= 40
	L76	= 20000
	L77	= 44
	L123	= 177600
	L127	= 162
	L140	= 177777
	L151	= 16
	L164	= 77
	L170	= 75
	L174	= 30
	L176	= 206
	L202	= 51
	L206	= 72
	L212	= 50
	L214	= 3
	L220	= 240
	L221	= 242
	L222	= 241
	L223	= 177760
	L225	= 226
	L227	= 500
	L261	= 21
	L266	= 144
	L270	= 177776
	L272	= 104
	L274	= 176
	L275	= 160
	L276	= 130
	L341	= 156
	L501	= 40000
	L535	= 146
	L556	= 26
	L557	= 400
	L562	= 32
	L602	= 34
	L623	= 777
	L625	= 776
	L631	= 143
	L641	= 100
	L644	= 104220
	L654	= 104200
	L657	= 104240
	L661	= 100002
	L663	= 52
.PAGE
;								     .ASCII .RAD50

	.PSECT	OTS$I	RW,I,LCL,REL,CON

$$OTSI::NOP				;001000	000240			     D
L74:	MOV	$AOTS,R3		;001002	016703,010600		    D0SB2 
	MOV	L1(R3),R4		;001006	016304,000150	       h    DXD BX
	MOVB	L2(R3),R1		;001012	116301,000165	       u    YCI B7
	MOV	$WASIZ(R3),L4		;001016	016367,000152,000710   j    BDYO BZ KP
	BR	L5			;001024	000402			     FR

$$OTI==.+2

$OTI::	MOV	#L6,R1			;001026	012701,005001		    CSIAXA
L5:	MOV	L7,R0			;001032	016700,010510	       H    D0PB0X
	BEQ	L10			;001036	001401			     SI
	JSR	PC,(R0)			;001040	004710			    AVX
L10:	MOV	@#L11,SP		;001042	013706,000042	       "    C2F  4
	MOV	R4,-(SP)		;001046	010446		     &      B/0
	MOV	#L12,R0			;001050	012700,003020		    CSH 82
	.TRPSET
	MOV	L4,R5			;001056	016705,000652               D0U JZ
	BEQ	L13			;001062	001475               =       T/
	MOV	R5,-(SP)		;001064	010546               f      B1N
	CLR	-(SP)			;001066	005046               &      AX8
	MOV	#L14,-(SP)		;001070	012746,010000               CTFBVP
	MOV	SP,R0			;001074	010600                      B2 
	SUB	#L15,SP			;001076	162706,000020               60V  P
	MOV	SP,L16(SP)		;001102	010666,000022               B3N  R
	EMT	375			;.GTJB
	MOV	L17(SP),R4		;001110	016604,000002               D.6  B
	TST	L7			;001114	005767,010426               A6WB/N
	BNE	$SETOP			;001120	001047               '       M1
	MOV	#L21,R0			;001122	012700,002034               CSH ZL
	.GVAL
	BIT	#L14,R0			;001130	032700,010000         5     HX BVP
	BEQ	L22			;001134	001414                       ST
	MOV	#L23,@#L24		;001136	012737,170000,000036        CS98P   0
	TST	L25			;001144	005767,010400               A6WB.2
	BEQ	L22			;001150	001406                       SN
	CLR	R4			;001152	005004                      AXD
	TST	L26			;001154	005767,010372               A6WB.Z
	BEQ	L22			;001160	001402                       SJ
	MOV	#L27,R4			;001162	012704,160000               CSL53X
L22:	BIT	#$$OTSI,R0		;001166	032700,001000         5     HX  L2
	BNE	$SETOP			;001172	001022                       MJ
	MOV	#$$OTSI,@#L31		;001174	012737,001000,000046     &  CS9 L2  8
	TST	L32			;001202	005767,010374               A6WB..
	BEQ	$SETOP			;001206	001414                       ST
	TST	(SP)			;001210	005716                      A5V
	BEQ	L33			;001212	001404                       SL
.PAGE
;								     .ASCII .RAD50

	.PRINT	#ERR59
	BR	$SETOP			;001222	000406                       FV

L33:	MOV	#L35,R0			;001224	012700,002040               CSH ZP
	.GVAL
	MOV	R0,R4			;001232	010004                      BVT
	CLR	@#L31			;001234	005037,000046          &    AX1  8
$SETOP::SUB	#L17,R4			;001240	162704,000002               60T  B
	.SETTOP	R4
	MOV	R0,R4			;001250	010004                      BVT
	CMP	R4,R5			;001252	020405                !     EKM
	BHI	L36			;001254	101007                      T2G
L13:	.PRINT	#ERR62
	BISB	#L40,@#L41		;001264	152737,000010,000053     +  4H1  H AC
	.EXIT

L36:	SUB	#L42,R4			;001274	162704,000324               60T EL
	MOV	R4,$AOTS		;001300	010467,010302        7      B0GB$J
	MOV	R4,R3			;001304	010403                      B.5
	SUB	L43,R4			;001306	166704,010266               8A.BZ8
	BIC	#L44,R4			;001312	042704,000001         E     KFT  A
	MOV	R4,-(SP)		;001316	010446               &      B/0
	MOV	NHCLN$,R2		;001320	016702,010260               D0RBZ2
	BEQ	L13			;001324	001754                       YD
	SUB	R2,R4			;001326	160204                      566
	MOV	R4,-(SP)		;001330	010446               &      B/0
	BIC	#L44,R4			;001332	042704,000001         E     KFT  A
L46:	SUB	#L11,R4			;001336	162704,000042          "    60T  4
	DEC	R2			;001342	005302                      A.4
	BNE	L46			;001344	001374                       SD
	MOV	R4,-(SP)		;001346	010446               &      B/0
	MOV	L25,-(SP)		;001350	016746,010174          |    D1NBYT
	BNE	L47			;001354	001003                       L5
	SUB	#L50,R4			;001356	162704,000120          P    60T B 
	MOV	R4,(SP)			;001362	010416                      B/F
L47:	CMP	R4,R5			;001364	020405                !     EKM
	BLOS	L13			;001366	101733                      UC5
	MOV	R3,R2			;001370	010302                      B$J
	ADD	#L42,R2			;001372	062702,000324         e     PKJ EL
L51:	CLR	-(R2)			;001376	005042               "      AX4
L600:	CMP	R2,R4			;001400	020204                      EHD
	BHI	L51			;001402	101375                      T8M
	MOVB	R1,L52(R3)		;001404	110163,000164        s t    WDS B6
	MOVB	R1,L2(R3)		;001410	110163,000165        s u    WDS B7
	MOV	(SP)+,L40(R3)		;001414	012663,000010               CR5  H
	MOV	(SP)+,$NLCHN(R3) 	;001420 012663,000006               CR5  F
	MOV	(SP)+,L54(R3)		;001424	012663,000004               CR5  D
	MOV	(SP)+,L17(R3)		;001430	012663,000002               CR5  B
	MOV	L17(SP),L55(R3)		;001434	016663,000002,000166     v  D0C  B B8
.PAGE
;								     .ASCII .RAD50

	MOV	L54(SP),L56(R3)		;001442	016663,000004,000170     x  D0C  D C 
	SUB	#L57,R4			;001450	162704,000106          F    60T A0
	MOV	R4,L60(R3)		;001454	010463,000154        3 l    B0C B.
	MOV	R4,L61(R3)		;001460	010463,000012        3      B0C  J
	MOV	R4,R1			;001464	010401                      B.3
	MOV	#$ERRTB,R0		;001466	012700,003720               CSHAJ 
	MOV	#L63,R2			;001472	012702,000043          #    CSJ  5
L64:	MOV	(R0)+,(R1)+ 		;001476	012021                      CHQ
	DEC	R2			;001500	005302                      A.4
	BNE	L64			;001502	001375                       SE
	MOV	R5,L65(R3)		;001504	010563,000014        s      B1$  L
	CMP	R4,R5			;001510	020405                !     EKM
	BLOS	L13			;001512	101661                      UB3
	TST	L7			;001514	005767,010026               A6WBV8
	BNE	L66			;001520	001017                       MG
	MOV	#L21,R0			;001522	012700,002034               CSH ZL
	.GVAL
	BIT	#$$OTSI,R0		;001530	032700,001000         5     HX  L2
	BNE	L66			;001534	001011                       MA
	CMP	(SP),L32		;001536	021667,010040         #     E.WBWH
	BCS	L66			;001542	103406                      UXF
	MOV	@#L11,R2		;001544	013702,000042          "    C2B  4
	ADD	#L14,R2			;001550	062702,010000         e     PKJBVP
	CMP	R4,R2			;001554	020402                !     EKJ
	BLOS	L13			;001556	101637                      UBO
L66:	ADD	#L67,SP			;001560	062706,000024         e     PKN  T
	MOV	#L70,L15(R3)		;001564	012763,100000,000020        CTSTSH  P
	MOV	R3,L50(R3)		;001572	010363,000120          P    B.S B 
	ADD	#L11,L50(R3)		;001576	062763,000042,000120  e" P  PLS  4 B 
	MOV	(SP)+,$WASIZ(R3) 	;001604 012663,000152          j    CR5 BZ
	MOV	(SP)+,R4		;001610	012604                      CQ.
	MOV	R4,L1(R3)		;001612	010463,000150        3 h    B0C BX
	MOV	(R4)+,R0		;001616	012400                      CNP
	MOV	(R0)+,L71(R3)		;001620	012063,000174        3 |    CIK CD
	MOV	(R0),L72(R3)		;001624	011063,000172        3 z    B6S CB
	TST	L7			;001630	005767,007712               A6WBUB
	BNE	L73			;001634	001006                       L8
	MOV	#L74,@#L75		;001636	012737,001002,000040        CS9 L4  2
	BIS	#L76,@#L77		;001644	052737,020000,000044  U  $  M/WED2  6
L73:	JSR	PC,$VRINT		;001652	004767,006066          6    AW1A8F
	TST	@#L31			;001656	005737,000046          &    A59  8
	BEQ	L101			;001662	001415                       SU
	MOV	#L102,R1		;001664	012701,001730               CSI XX
	MOV	#L103,-(SP)		;001670	012746,004636               CTFAUV
L104:	MOV	-(R1),-(SP) 		;001674	014146               f      C6F
	CMP	R1,#L101		;001676	020127,001716        W      EF9 XN
	BNE	L104			;001702	001374                       SD
	JSR	PC,(SP)			;001704	004716                      AV0
L106:	TSTB	L2(R3)			;001706	105763,000165          u    VO$ B7
.PAGE
;								     .ASCII .RAD50

	BEQ	L105			;001712	001442               "       TB
	JMP	@(R4)+			;001714	000134               \       BL

L101:	MOV	L40(R3),-(SP)		;001716	016346,000010               DX8  H
	MOV	#L54,R0			;001722	012700,000004               CSH  D
	EMT	353			;.QSET
L102:	BR	L106			;001730	000766                       LV

	.WORD	$$OTSI
L4:	.WORD	FINIS

ERR59:	.ASCIZ	\?Err 59 USR not locked\
ERR62:	.ASCIZ	\?Err 62 FORTRAN start fail\
	.EVEN

L105:	MOV	#STP$,-(SP) 		;002020	012746,007574          |    CTFBSD
	JMP	(R4)			;002024	000114               L       A6

	.WORD	16400,0,0
L21:	.WORD	16000,300
L35:	.WORD	16000,266

TRPHND:	MOV	R1,-(SP)		;002044	010146               f      BX8
	MOV	L17(SP),R1		;002046	016601,000002               D.3  B
	MOV	R0,-(SP)		;002052	010046               &      BWN
	MOV	R2,-(SP)		;002054	010246                      BZV
	MOV	R3,-(SP)		;002056	010346                      B.F
	MOV	-(R1),R1		;002060	014101               A      C5I
	BIC	#L123,R1		;002062	042701,177600         E     KFQ???
	MOV	$AOTS,R3		;002066	016703,007514          L    D0SBQ6
	MOV	R1,R0			;002072	010100               @      BX 
	JSR	PC,$$SET		;002074	004767,000612               AW1 I4
	MOV	L60(R3),R2		;002100	016302,000154          l    DXB B.
	ADD	R1,R2			;002104	060102               B`     OPB
	MOVB	(R2),-(SP)		;002106	111246                      WRV
	BMI	L125			;002110	100451               )      TZY
	BEQ	L126			;002112	001414                       ST
	TST	L127(R3)		;002114	005763,000162          r    A6S B4
	BEQ	L130			;002120	001404                       SL
	MOV	L127(R3),R4 		;002122	016304,000162          r    DXD B4
	JMP	$IOEXI			;002126	000167,001366        w       B9 R8

L130:	INCB	(R2)			;002132	105212                      VFZ
	MOVB	(R2),(SP)		;002134	111216                      WQ8
	BPL	L132			;002136	100001                      TSI
	DECB	(R2)			;002140	105312                      VHJ
L132:	.RCTRLO
L126:	MOV	#$ERRS,R2		;002144	012702,004025               CSJAK/
L137:	MOVB	(R2)+,R0		;002150	112200                      W0P
.PAGE
;								     .ASCII .RAD50

	BEQ	L134			;002152	001405                       SM
	CMPB	R1,R0			;002154	120100               @      YYX
	BEQ	L135			;002156	001405                       SM
L136:	TSTB	(R2)+			;002160	105722                      VN4
	BNE	L136			;002162	001376                       SF
	BR	L137			;002164	000771                       LY

L134:	MOV	#L140,(SP)		;002166	012716,177777               CSV???
L135:	MOV	#L141,R3		;002172	012703,003167          w    CSKAAO
	.PRINT	#L142
	JSR	PC,L143			;002204	004767,000136          ^    AW1 BN
	.PRINT	R2	
	MOV	#L144,R3		;002214	012703,003132          Z    CSKA Z
	JSR	PC,L143			;002220	004767,000122          R    AW1 BB
	JSR	PC,L145			;002224	004767,000130          X    AW1 BH
	TSTB	(SP)			;002230	105716                      VN0
	BMI	L146			;002232	100414                      TY6
L125:	TST	(SP)+			;002234	005726                      A50
	TST	L7			;002236	005767,007304               A6WBNT
	BNE	L147			;002242	001003                       L5
	BISB	#L17,@#L41		;002244	152737,000002,000053     +  4H1  B AC
L147:	MOV	(SP)+,R3		;002252	012603                      CQ$
	MOV	(SP)+,R2		;002254	012602                      CQZ
	MOV	(SP)+,R0		;002256	012600                      CQX
	MOV	(SP)+,R1		;002260	012601                      CQY
	RTI				;002262	000002                        B

L146:	TST	L7			;002264	005767,007256               A6WBM8
	BNE	L150			;002270	001003                       L5
	BISB	#L54,@#L41		;002272	152737,000004,000053     +  4H1  D AC
L150:	MOV	$AOTS,R3		;002300	016703,007302               D0SBNR
	MOV	L151(R3),R2 		;002304	016302,000016               DXB  N
	BEQ	L152			;002310	001414                       ST
	MOV	$NLCHN(R2),L151(R3) 	;002312 016263,000006,000016        DW$  F  N
	MOV	L54(R2),(R3)		;002320	016213,000004               DV$  D
	MOV	#L153,R3		;002324	012703,003125          U    CSKA U
	JSR	PC,L143			;002330	004767,000012               AW1  J
	JSR	PC,L145			;002334	004767,000020               AW1  P
	BR	L150			;002340	000757                       LO

L152:	JMP	$EXIT			;002342	000167,005252        w       B9A.J

L143:	MOVB	(R3)+,R0		;002346	112300                      W2 
	BEQ	L155			;002350	001506               F       T8
L156:	.TTOUTR
	BCS	L156			;002354	103776                      U0N
	BR	L143			;002356	000773                       L$

L145:	MOV	#L157,R3		;002360	012703,003142          b    CSKA 4
.PAGE
;								     .ASCII .RAD50

	JSR	PC,L143			;002364	004767,177756               AW1???
	MOV	$AOTS,R3		;002370	016703,007212               D0SBMB
	MOV	L72(R3),-(SP)		;002374	016346,000172          z    DX8 CB
	MOV	L71(R3),R0		;002400	016300,000174          |    DX  CD
	MOV	L151(R3),R3 		;002404	016303,000016               DXC  N
	BEQ	L160			;002410	001402                       SJ
	MOV	(R3)+,(SP)		;002412	012316                      CMF
	MOV	(R3),R0			;002414	011300                      C  
L160:	JSR	PC,L161			;002416	004767,000224               AW1 C.
	MOV	(SP)+,R0		;002422	012600                      CQX
	JSR	PC,L161			;002424	004767,000216               AW1 CV
	MOV	#L162,R3		;002430	012703,003155          m    CSKAAE
	JSR	PC,L143			;002434	004767,177706               AW1???
	MOV	@$AOTS,R0		;002440	017700,007142          b    ECHBLB
	BNE	L163			;002444	001005                       L7
	MOVB	#L164,R0		;002446	112700,000077          ?    W8P AW
L165:	.TTOUTR
	BCS	L165			;002454	103776                      U0N
	BR	L166			;002456	000402                       FR

L163:	JSR	PC,L167			;002460	004767,000104          D    AW1 A.
L166:	CMPB	R1,#L170		;002464	120127,000075        W =    YZG AU
	BEQ	L171			;002470	001403                       SK
	CMPB	R1,#L164		;002472	120127,000077        W ?    YZG AW
	BNE	L172			;002476	001030                       MP
L171:	MOV	#L173,R3		;002500	012703,003177              CSKAAW
	JSR	PC,L143			;002504	004767,177636               AW1???
	MOV	L15(SP),R1		;002510	016601,000020               D.3  P
	SEC				;002514	000261                       DQ
	MOVB	#L174,R0		;002516	112700,000030               W8P  X
L201:	ROL	R1			;002522	006101               A      A8Q
	ROLB	R0			;002524	106100               @      VQX
L175:	.TTOUTR
	BCS	L175			;002530	103776                      U0N
	MOVB	#L176,R0		;002532	112700,000206               W8P CN
L200:	ASL	R1			;002536	006301                      BAY
	BEQ	L177			;002540	001403                       SK
	ROLB	R0			;002542	106100               @      VQX
	BCS	L200			;002544	103774                      U0L
	BR	L201			;002546	000765                       LU

L177:	MOVB	#L202,R0		;002550	112700,000051          )    W8P AA
L203:	.TTOUTR
	BCS	L203			;002556	103776                      U0N
L172:	.PRINT	#L204
L155:	RTS	PC			;002566	000207                       CO

L167:	MOV	R0,-(SP)		;002570	010046               &      BWN
	CLR	R0			;002572	005000                      AX 
.PAGE
;								     .ASCII .RAD50

L205:	INC	R0			;002574	005200                      A$H
	SUB	#L61,(SP)		;002576	162716,000012               600  J
	BGE	L205			;002602	002374                       16
	ADD	#L206,(SP)		;002604	062716,000072         e:    PKV AR
	DEC	R0			;002610	005300                      A.2
	BEQ	L207			;002612	001402                       SJ
	JSR	PC,L167			;002614	004767,177750               AW1???
L207:	MOVB	(SP)+,R0		;002620	112600                      W62
L210:	.TTOUTR
	BCS	L210			;002624	103776                      U0N
	RTS	PC			;002626	000207                       CO

L213:	MOV	R0,R3			;002630	010003                      BVS
	CLR	R0			;002632	005000                      AX 
L211:	CMP	R2,R3			;002634	020203                      EHC
	BHI	L155			;002636	101353                      T75
	SUB	R2,R3			;002640	160203                      565
	INC	R0			;002642	005200                      A$H
	BR	L211			;002644	000773                       L$

L161:	MOV	#L212,R2		;002646	012702,000050          (    CSJ A 
	JSR	PC,L213			;002652	004767,177752               AW1???
	MOV	R3,-(SP)		;002656	010346                      B.F
	JSR	PC,L213			;002660	004767,177744               AW1???
	MOV	R3,-(SP)		;002664	010346                      B.F
	MOV	#L214,R3		;002666	012703,000003               CSK  C
L217:	MOVB	CHRLST(R0),R0		;002672	116000,003055          -    X8P 9U
L216:	.TTOUTR
	BCS	L216			;002700	103776                      U0N
	DEC	R3			;002702	005303                      A.5
	BEQ	L155			;002704	001730                       XX
	MOV	(SP)+,R0		;002706	012600                      CQX
	BR	L217			;002710	000770                       LX

$$SET::	MOVB	R0,L220(R3) 		;002712	110063,000240        3      WB5 D 
	MOVB	L221(R3),L222(R3) 	;002716 116363,000242,000241        YDS DB DA
	MOV	R0,R2			;002724	010002                      BVR
	ASR	R0			;002726	006200                      B  
	ASR	R0			;002730	006200                      B  
L247:	ASR	R0			;002732	006200                      B  
	BIC	#L44,R0			;002734	042700,000001         E     KFP  A
	ADD	R3,R0			;002740	060300                `     OSH
	BIC	#L223,R2		;002742	042702,177760         E     KFR???
	CLR	-(SP)			;002746	005046               &      AX8
	SEC				;002750	000261                       DQ
L224:	ROL	(SP)			;002752	006116               N      A80
	DEC	R2			;002754	005302                      A.4
	BPL	L224			;002756	100375                      TYU
	BIS	(SP)+,L225(R0) 		;002760	052660,000226         U     M.P C0
.PAGE
;								     .ASCII .RAD50

	RTS	PC			;002764	000207                       CO

L226:	TRAP	277			;002766	104677                      VAW
TRP410:	BCS	L226			;002770	103776                      U0N
	CMP	#L227,SP		;002772	022706,000500         %@    FA0 H 
	BCC	L230			;002776	103001                      UQY
L576:	TRAP	275			;003000	104675                      VAU
L230:	MOV	@#L11,SP		;003002	013706,000042          "    C2F  4
	.PRINT	#ERR60
	JMP	$EXIT			;003014	000167,004600        w       B9AT2

L12:	.WORD	1400,TRP410

ERR60:	.ASCIZ	\?Err 60 stack overflowed\
CHRLST:	.ASCII	\ ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789\
L153:	.ASCIZ	\from\
L144:	.ASCIZ	\in  \
L204:	.BYTE	15,12,0
L157:	.ASCIZ	\ routine "\
L162:	.ASCIZ	\"  line \
L142:	.BYTE	200
L141:	.ASCIZ	<15><12>\?Err \
L173:	.ASCIZ	\ (PC=\
	.EVEN

ISN$::	INC	@$AOTS			;003206	005277,006374               A.1BCD
$ISNTR::JMP	@(R4)+			;003212	000134               \       BL

	BGT	L247			;003214	003246                      ABV
	.PRINT	#L250
	JMP	@(R4)+			;003224	000134               \       BL

LSN$::	MOV	(R4)+,@$AOTS		;003226	012477,006354        ?      CO9BB.
$LSNTR::JMP	@(R4)+			;003232	000134               \       BL

	BGT	L224			;003234	003246                      ABV
	.PRINT	#L250
	JMP	@(R4)+			;003244	000134               \       BL

	MOV	@$AOTS,R0		;003246	017700,006334               ECHBBL
	MOV	#L251,R1		;003252	012701,003360               CSIADP
	CLR	-(SP)			;003256	005046               &      AX8
	BR	L252			;003260	000412                       FZ

L255:	MOV	R0,-(SP)		;003262	010046               &      BWN
	CLR	R0			;003264	005000                      AX 
L253:	INC	R0			;003266	005200                      A$H
	SUB	#L61,(SP)		;003270	162716,000012               600  J
	BGE	L253			;003274	002374                       16
.PAGE
;								     .ASCII .RAD50

	ADD	#L206,(SP)		;003276	062716,000072         e:    PKV AR
	DEC	R0			;003302	005300                      A.2
	BEQ	L254			;003304	001402                       SJ
L252:	JSR	PC,L255			;003306	004767,177750               AW1???
L254:	MOVB	(SP)+,(R1)+ 		;003312	112621                      W7I
	RTS	PC			;003314	000207                       CO

L250:	.ASCII	\                             STMT \
L251:	.BLKB	6
	.EVEN

RET$L::	MOVB	@(R4)+,R0		;003366	113400                      XFP
	BR	RET$			;003370	000404                       FT

RET$F::	MOV	(R4),R3			;003372	011403                      CA$
	MOV	L17(R3),R1		;003374	016301,000002               DXA  B
RET$I::	MOV	@(R4)+,R0		;003400	013400                      C$H
RET$::	MOV	$AOTS,R3		;003402	016703,006200               D0SB  
	TST	L151(R3)		;003406	005763,000016               A6S  N
	BEQ	L260			;003412	001407                       SO
	CMP	(SP)+,(SP)+ 		;003414	022626                %     F V
	MOV	(SP)+,(R3)		;003416	012613                      CQ5
	MOV	(SP)+,L151(R3) 		;003420	012663,000016               CR5  N
	MOVB	(SP)+,L52(R3)		;003424	112663,000164          t    W8C B6
	RTS	PC			;003430	000207                       CO

L260:	JMP	STP$			;003432	000167,004136        w ^     B9AMV

$OPNER::MOV	L67(R3),R0		;003436	016300,000024               DX   T
	MOVB	L261(R0),R1 		;003442	116001,000021               X8Q  Q
	CLR	R0			;003446	005000                      AX 
	SEC				;003450	000261                       DQ
L262:	ROL	R0			;003452	006100               @      A8P
	DEC	R1			;003454	005301                      A.3
	BPL	L262			;003456	100375                      TYU
	BIC	R0,L15(R3)		;003460	040063,000020        3@     JJ5  P
	MOVB	L221(R3),R2 		;003464	116302,000242               YCJ DB
	JSR	PC,$CLOSE		;003470	004767,004262               AW1AOZ
$CHKER::JMP	L264			;003474	000167,000204        w       B9 CL

L277:	BNE	L265			;003500	001001                       L3
	RTS	R5			;003502	000205                       CM

L265:	MOV	R0,R4			;003504	010004                      BVT
	MOV	(R5),R0			;003506	011500               @      CCH
	BIC	#L123,R0		;003510	042700,177600         E     KFP???
	JSR	PC,$$SET		;003514	004767,177172          z    AW1???
$IOEXI::MOV	L266(R3),SP 		;003520	016306,000144          d    DXF BT
	MOV	#L267,-(SP) 		;003524	012746,003702               CTFAIZ
.PAGE
;								     .ASCII .RAD50

	MOV	L270(SP),R5 		;003530	016605,177776               D.7???
	MOV	R3,-(SP)		;003534	010346                      B.F
	TSTB	L52(R3)			;003536	105763,000164          t    VO$ B6
	BNE	L271			;003542	001042               "       MZ
	MOV	R4,L17(SP)		;003544	010466,000002        6      B0F  B
	MOV	SP,R0			;003550	010600                      B2 
	MOV	-(R0),R4		;003552	014004                      C3.
	MOV	-(R0),(SP)		;003554	014016                      C38
	MOV	-(R0),R2		;003556	014002                      C3Z
	MOV	-(R0),R1		;003560	014001                      C3Y
	MOV	-(R0),R0		;003562	014000                      C3X
	BR	L271			;003564	000431                       GA

$EOL::	MOV	R3,-(SP)		;003566	010346                      B.F
EOL$::	MOV	$AOTS,R3		;003570	016703,006012               D0SA7B
	CLR	L272(R3)		;003574	005063,000104        3 D    AYK A.
	TSTB	L52(R3)			;003600	105763,000164          t    VO$ B6
	BNE	L273			;003604	001005                       L7
	MOV	L17(SP),L274(R3) 	;003606 016663,000002,000176     ~  D0C  B CF
	MOV	(SP)+,R3		;003614	012603                      CQ$
	TST	(SP)+			;003616	005726                      A50
L273:	JSR	PC,@(SP)+		;003620	004736                      AWF
	MOV	#L267,-(SP) 		;003622	012746,003702               CTFAIZ
	MOV	R3,-(SP)		;003626	010346                      B.F
	MOV	$AOTS,R3		;003630	016703,005752               D0SA6J
	TSTB	L52(R3)			;003634	105763,000164          t    VO$ B6
	BNE	L271			;003640	001003                       L5
	MOV	L274(R3),L17(SP) 	;003642 016366,000176,000002   ~    DYN CF  B
L271:	CLR	L127(R3)		;003650	005063,000162        3 r    AYK B4
	CLR	L275(R3)		;003654	005063,000160        3 p    AYK B2
	CLR	L67(R3)			;003660	005063,000024        3      AYK  T
	MOV	L276(R3),L65(R3) 	;003664 016363,000130,000014   X    DYK BH  L
	CLRB	L221(R3)		;003672	105063,000242        3      VDS DB
	MOV	(SP)+,R3		;003676	012603                      CQ$
	RTS	PC			;003700	000207                       CO

L267:	JMP	@(R4)+			;003702	000134               \       BL

L264:	MOVB	R2,L221(R3) 		;003704	110263,000242               WFC DB
	MOV	L127(R3),R0 		;003710	016300,000162          r    DX  B4
	JMP	L277			;003714	000167,177560        w p     B9???

$ERRTB::.WORD	77577			;003720	077577                    TO9
	.WORD	77577			;003722	077577                    TO9
	.WORD	76000			;003724	076000                |     S3X
	.WORD	77777			;003726	077777                     TSG
	.WORD	77577			;003730	077577                    TO9
	.WORD	177574			;003732	177574               |      ???
	.WORD	76177			;003734	076177               |     S61
.PAGE
;								     .ASCII .RAD50

	.WORD	77577			;003736	077577                    TO9
	.WORD	77577			;003740	077577                    TO9
	.WORD	77577			;003742	077577                    TO9
	.WORD	77577			;003744	077577                    TO9
	.WORD	77577			;003746	077577                    TO9
	.WORD	77577			;003750	077577                    TO9
	.WORD	77577			;003752	077577                    TO9
	.WORD	77577			;003754	077577                    TO9
	.WORD	77577			;003756	077577                    TO9
	.WORD	77577			;003760	077577                    TO9
	.WORD	77577			;003762	077577                    TO9
	.WORD	77577			;003764	077577                    TO9
	.WORD	77577			;003766	077577                    TO9
	.WORD	77577			;003770	077577                    TO9
	.WORD	77577			;003772	077577                    TO9
	.WORD	77577			;003774	077577                    TO9
	.WORD	77577			;003776	077577                    TO9
L543:	.WORD	77577			;004000	077577                    TO9
	.WORD	77577			;004002	077577                    TO9
	.WORD	0
	.WORD	77577			;004006	077577                    TO9
	.WORD	77577			;004010	077577                    TO9
	.WORD	77577			;004012	077577                    TO9
	.WORD	77577			;004014	077577                    TO9
	.WORD	77577			;004016	077577                    TO9
	.WORD	77577			;004020	077577                    TO9
	.WORD	177

	.BYTE	177
$ERRS::	.BYTE	13
	.ASCIZ	\11 Floating underflow\
	.BYTE	6
	.ASCIZ	\6 Output conversion error\
	.BYTE	4
	.ASCIZ	\4 Computed goto out of range\
	.BYTE	14
	.ASCIZ	\12 Floating zero divide\
	.BYTE	2
	.ASCIZ	\2 Integer zero divide\
	.BYTE	3
	.ASCIZ	\3 Compiler generated error\
	.BYTE	20
	.ASCIZ	\16 Wrong number of arguments\
	.BYTE	15
	.ASCIZ	\13 Sqrt of negative number\
	.BYTE	1
	.ASCIZ	\1 Integer overflow\
	.BYTE	12
	.ASCIZ	\10 Floating overflow\
.PAGE
;								     .ASCII .RAD50

	.BYTE	5
	.ASCIZ	\5 Input conversion error\
	.BYTE	16
	.ASCIZ	\14 Undefined exponentiation operation\
	.BYTE	17
	.ASCIZ	\15 Log of zero or negative number\
	.BYTE	7
	.ASCIZ	\7 Incompatible object modules\
	.BYTE	65
	.ASCII	\53 Li\
L103:	.ASCIZ	\st directed I/O syntax error\
	.BYTE	75
	.ASCIZ	\61 Illegal memory reference\
	.BYTE	24
	.ASCIZ	\20 Invalid logical unit number\
	.BYTE	25
	.ASCIZ	\21 Out of available logical unitS\
	.BYTE	26
	.ASCIZ	\22 Input record too long\
	.BYTE	27
	.ASCIZ	\23 Hardware I/O error\
	.BYTE	77
	.ASCIZ	\63 Illegal instruction trap\
	.BYTE	30
	.ASCIZ	\24 Attempt to read/write past end of file\
	.BYTE	31
	.ASCIZ	\25 Attempt to read after write\
	.BYTE	32
	.ASCIZ	\26 Recursive I/O not allowed\
	.BYTE	55
	.ASCIZ	\45 Incompatible variable and format types\
	.BYTE	33
	.ASCIZ	\27 Attempt to use device not in system\
	.BYTE	37
	.ASCIZ	\31 No available I/O channel\
	.BYTE	34
	.ASCIZ	\28 Open failed for file\
	.BYTE	35
	.ASCIZ	\29 No room for device handler\
	.BYTE	44
	.ASCIZ	\36 Bad file specification string\
	.BYTE	54
	.ASCIZ	\44 2nd record request in ENCODE/DECODE\
	.BYTE	40
	.ASCIZ	\32 Fmtd-unfmtd-random I/O to same file\
	.BYTE	41
	.ASCIZ	\33 Attempt to read past end of record\
	.BYTE	42
	.ASCIZ	\34 Unfmtd I/O to TT or LP\
.PAGE
;								     .ASCII .RAD50

	.BYTE	45
	.ASCIZ	\37 Random access read/write before define file\
	.BYTE	46
	.ASCIZ	\38 Random I/O not allowed to TT or LP\
	.BYTE	47
	.ASCIZ	\39 Record larger than record size in define file\
	.BYTE	50
	.ASCIZ	\40 Request for block larger than 65535\
	.BYTE	51
	.ASCIZ	\41 Define file attempted on open unit\
	.BYTE	43
	.ASCIZ	\35 Attempt to output to read only file\
	.BYTE	36
	.ASCIZ	\30 No room for buffers\
	.BYTE	52
	.ASCIZ	\42 Memory overflow compiling object time format\
	.BYTE	56
	.ASCIZ	\46 Infinite format loop\
	.BYTE	53
	.ASCIZ	\43 Syntax error in object time format\
	.BYTE	61
	.ASCIZ	\49 Endfile on random file\
	.BYTE	57
	.ASCIZ	\47 Attempt to store outside partition\
	.BYTE	60
	.ASCIZ	\48 Unit already open\
	.BYTE	100
	.ASCIZ	\64 Virtual array initialization failure\
	.BYTE	101
	.ASCIZ	\65 Virtual array mapping error\
	.BYTE	102
	.ASCIZ	\66 Unsupported OPEN/CLOSE keyword or option\
	.BYTE	103
	.ASCIZ	\67 Unsupported OPEN/CLOSE keyword or option\
	.BYTE	63
	.ASCIZ	\51 Inconsistent OPEN/CLOSE statement specifications\
	.BYTE	64
	.ASCIZ	\52 Attempt to delete a protected file\
	.BYTE	62
	.ASCIZ	\50 Keyword value error in OPEN statement\
	.BYTE	104
	.ASCIZ	\68 Direct access record size error\
	.BYTE	0
	.ASCIZ	\0 Non-FORTRAN error call\
	.EVEN

$STPS::	TST	(SP)+			;007566	005726                      A50
	MOV	SP,R4			;007570	010604                      B2D
	BR	FOO$			;007572	000402                       FR
.PAGE
;								     .ASCII .RAD50

STP$::
$STP::	MOV	#L532,R4		;007574	012704,007726               CSLBUN
FOO$::	.PRINT	#L533
	.PRINT	#L534
	.PRINT	(R4)+
$EXIT::	BISB	#L44,@#L41		;007620	152737,000001,000053     +  4H1  A AC
	MOV	$AOTS,R3		;007626	016703,001754               D0S YD
	INC	L535(R3)		;007632	005263,000146          f    A.S BV
	MOV	L54(R3),R4		;007636	016304,000004               DXD  D
L537:	CMP	R4,L17(R3)		;007642	020463,000002        3!     ELS  B
	BCC	L536			;007646	103015                      UQ7
	MOVB	(R4)+,R2		;007650	112402                      W3Z
	BEQ	L537			;007652	001773                       YS
	CMP	L535(R3),#L17		;007654	026327,000146,000002  ,f    GF9 BV  B
	BNE	L540			;007662	001004                       L6
	CLRB	-(R4)			;007664	105044               $      VDD
	DEC	L535(R3)		;007666	005363,000146          f    A0C BV
	BR	L537			;007672	000763                       LS

L540:	JSR	PC,@L541		;007674	004777,001644               AW9 WL
	BR	L537			;007700	000760                       LP

L536:	MOV	L341(R3),R0 		;007702	016300,000156          n    DX  B0
	BEQ	L542			;007706	001401                       SI
	JMP	(R0)			;007710	000110               H       A2

L542:	BIT	#L543,@#L77 		;007712	032737,004000,000044  5  $  HX1AKH  6
	BNE	L544			;007720	001001                       L3
	INC	R0			;007722	005200                      A$H
L544:	.EXIT

L532:	.WORD	.+2
L533:	.WORD	0

L534:	.ASCII	\STOP -- \<200>
	.EVEN

$VRINT::TST	L26			;007744	005767,001602               A6W VR
	BEQ	L546			;007750	001401                       SI
	TRAP	300			;007752	104700                      VAX
L546:	RTS	PC			;007754	000207                       CO

$CLOSE::MOV	R5,-(SP)		;007756	010546               f      B1N
	MOV	R4,-(SP)		;007760	010446               &      B/0
	MOV	R2,-(SP)		;007762	010246                      BZV
	MOV	$AOTS,R3		;007764	016703,001616               D0S V0
	MOVB	R2,L221(R3) 		;007770	110263,000242               WFC DB
	JSR	PC,$FCHNL		;007774	004767,000704               AW1 KL
L14:	MOV	R0,L67(R3)		;010000	010063,000024        3      BW$  T
.PAGE
;								     .ASCII .RAD50

	BIT	#L543,(R0)		;010004	032710,004000         5     HXHAKH
	BNE	L550			;010010	001002                       L4
	JMP	L551			;010012	000167,000442        w "     B9 GJ

L550:	TSTB	(R0)			;010016	105710                      VNX
	BPL	L552			;010020	100002                      TSJ
	JMP	L553			;010022	000167,000476        w >     B9 G8

L552:	JSR	PC,$DUMPL		;010026	004767,000502          B    AW1 HB
	BIT	#$$OTSI,(R4)		;010032	032714,001000         5     HXL L2
	BEQ	L555			;010036	001454               ,       TL
	MOV	L174(R4),L556(R4) 	;010040 016464,000030,000026 4      DZ6  X  V
	BEQ	L555			;010046	001450               (       TH
	MOV	L17(R4),R2		;010050	016402,000002               DYZ  B
	MOV	#L557,R5		;010054	012705,000400               CSM FP
L560:	CLR	(R2)+			;010060	005022                      AXR
	DEC	R5			;010062	005305                      A.7
	BNE	L560			;010064	001375                       SE
	BIT	#L557,(R4)		;010066	032714,000400         5     HXL FP
	BNE	L561			;010072	001007                       L9
L564:	CMP	L556(R4),L562(R4) 	;010074 026464,000026,000032 4-     GIL  V  Z
	BHI	L555			;010102	101032                      T2Z
	JSR	PC,$PUTBL		;010104	004767,000676               AW1 KF
	BR	L564			;010110	000771                       LY

L561:	MOV	#L565,L275(R3) 		;010112	012763,010156,000160   n p  CTSBYF B2
	TSTB	L52(R3)			;010120	105763,000164          t    VO$ B6
	BEQ	L566			;010124	001403                       SK
	MOV	#L567,L275(R3) 		;010126	012763,010154,000160   l p  CTSBYD B2
L566:	MOV	R4,-(SP)		;010134	010446               &      B/0
	MOVB	L221(R3),-(SP) 		;010136	116346,000242               YDF DB
	MOV	SP,L266(R3) 		;010142	010663,000144          d    B3K BT
L570:	JSR	PC,$PUTBL		;010146	004767,000634               AW1 JL
	BR	L570			;010152	000775                       L/

L567:	MOV	R1,@-(SP)		;010154	010156               n      BYF
L565:	MOV	(SP)+,L221(R3) 		;010156	012663,000242               CR5 DB
	MOV	(SP)+,R4		;010162	012604                      CQ.
	MOV	R4,L67(R3)		;010164	010463,000024        3      B0C  T
L555:	TST	@#L31			;010170	005737,000046          &    A59  8
	BEQ	L571			;010174	001403                       SK
	JSR	PC,$WAIT		;010176	004767,001234               AW1 P.
	BR	L573			;010202	000404                       FT

L571:	CLR	R0			;010204	005000                      AX 
	BISB	L261(R4),R0 		;010206	156400,000021               5NP  Q
	EMT	374			;010212	104374                      U6.
L573:	MOV	L54(R4),R5		;010214	016405,000004               DY/  D
	ASL	R5			;010220	006305                      BA/
.PAGE
;								     .ASCII .RAD50

	MOV	L17(R4),R2		;010222	016402,000002               DYZ  B
	BIT	#L44,(R4)		;010226	032714,000001         5     HXL  A
	BEQ	L574			;010232	001402                       SJ
	SUB	#$$OTSI,R2		;010234	162702,001000               60R L2
L574:	MOV	R2,-(SP)		;010240	010246                      BZV
	MOV	R2,R0			;010242	010200                      BYX
	ADD	R5,R0			;010244	060500               @a     OVP
L575:	MOV	(R0)+,(R2)+ 		;010246	012022                      CHR
	CMP	R0,L65(R3)		;010250	020063,000014        3      EFC  L
	BCS	L575			;010254	103774                      U0L
	SUB	R5,L65(R3)		;010256	160563,000014        s      6B5  L
	MOV	#L576,R0		;010262	012700,003000               CSH 8P
	BIT	#L54,(R4)		;010266	032714,000004         5     HXL  D
	BEQ	L577			;010272	001402                       SJ
	MOV	#L600,R0		;010274	012700,001400               CSH SH
L577:	MOVB	L261(R4),R1 		;010300	116401,000021               YD3  Q
	BISB	R1,R0			;010304	150100               @      3L2
	EMT	374			;010306	104374                      U6.
	BCS	L601			;010310	103422                      UXR
	BIT	#L15,L602(R4)		;010312	032764,000020,000034  5     HYL  P  .
	BEQ	L603			;010320	001422                       SZ
	BIT	#L54,(R4)		;010322	032714,000004         5     HXL  D
	BNE	L603			;010326	001017                       MG
	MOV	SP,R2			;010330	010602                      B2B
	CLR	-(SP)			;010332	005046               &      AX8
	MOV	R4,-(SP)		;010334	010446               &      B/0
	ADD	#$NLCHN,(SP)		;010336	062716,000006         e     PKV  F
	CLR	-(SP)			;010342	005046               &      AX8
	BISB	L261(R4),(SP)		;010344	156416,000021               5N0  Q
	MOV	SP,R0			;010350	010600                      B2 
	EMT	375			;010352	104375                      U6/
	BCC	L604			;010354	103003                      UQ$
L601:	JSR	R5,$CHKER		;010356	004567,173112        w J    ATW9PJ
        TRAP	264			;010362	104664                      VAL
L604:	MOV	R2,SP			;010364	010206                      BY0
L603:	CLR	R0			;010366	005000                      AX 
	SEC				;010370	000261                       DQ
L606:	ROL	R0			;010372	006100               @      A8P
	DEC	R1			;010374	005301                      A.3
	BPL	L606			;010376	100375                      TYU
	BIC	R0,L15(R3)		;010400	040063,000020        3@     JJ5  P
L613:	CLR	L127(R3)		;010404	005063,000162        3 r    AYK B4
	CLR	L275(R3)		;010410	005063,000160        3 p    AYK B2
	MOV	L54(R3),R4		;010414	016304,000004               DXD  D
L610:	CMP	R4,L17(R3)		;010420	020463,000002        3!     ELS  B
	BCC	L607			;010424	103012                      UQ4
	MOVB	(R4)+,R2		;010426	112402                      W3Z
	BEQ	L610			;010430	001773                       YS
	JSR	PC,$FCHNL		;010432	004767,000246               AW1 DF
.PAGE
;								     .ASCII .RAD50

	CMP	(SP),L17(R0)		;010436	021660,000002         #     E.P  B
	BCC	L610			;010442	103366                      UW0
	SUB	R5,L17(R0)		;010444	160560,000002        p      6B2  B
	BR	L610			;010450	000763                       LS

L607:	TST	(SP)+			;010452	005726                      A50
	MOV	L67(R3),R0		;010454	016300,000024               DX   T
L551:	MOV	#L261,R4		;010460	012704,000021               CSL  Q
L611:	CLR	(R0)+			;010464	005020                      AXP
	DEC	R4			;010466	005304                      A.6
	BNE	L611			;010470	001375                       SE
	MOV	L54(R3),R0		;010472	016300,000004               DX   D
	MOV	(SP)+,R2		;010476	012602                      CQZ
L612:	CMPB	(R0)+,R2		;010500	122002                      ZIZ
	BNE	L612			;010502	001376                       SF
	CLRB	-(R0)			;010504	105040                      VD 
	CLR	L67(R3)			;010506	005063,000024        3      AYK  T
	CLRB	L221(R3)		;010512	105063,000242        3      VDS DB
	MOV	(SP)+,R4		;010516	012604                      CQ.
	MOV	(SP)+,R5		;010520	012605                      CQ/
	RTS	PC			;010522	000207                       CO

L553:	MOV	R0,R4			;010524	010004                      BVT
	MOV	#L140,-(SP) 		;010526	012746,177777               CTF???
	BR	L613			;010532	000724                       K.

$DUMPL::MOV	R0,R4			;010534	010004                      BVT
	BIT	#L501,(R0)		;010536	032710,040000         5 @   HXHJIX
	BEQ	L614			;010542	001406                       SN
	BIT	#L17,(R0)		;010544	032710,000002         5     HXH  B
	BEQ	L615			;010550	001443               #       TC
	BIC	#L17,(R0)		;010552	042710,000002         E     KFX  B
	BR	L616			;010556	000436                       GF

L614:	TST	(R4)			;010560	005714                      A5T
	BPL	L615			;010562	100036                      TS8
	BIT	#$$OTSI,(R4)		;010564	032714,001000         5     HXL L2
	BEQ	L617			;010570	001423                       S$
	JMP	L620			;010572	000167,000064        w 4     B9 AL

L627:	MOV	R2,R1			;010576	010201                      BYY
	ADD	L17(R4),R2		;010600	066402,000002         m     QQZ  B
	BIT	#L76,(R0)		;010604	032710,020000         5     HXHED2
	BEQ	L621			;010610	001402                       SJ
	CLRB	(R2)+			;010612	105022                      VCZ
	BR	L622			;010614	000402                       FR

L621:	MOVB	#L61,(R2)+		;010616	112722,000012               W84  J
L622:	SUB	#L623,R1		;010622	162701,000777               60Q L1
.PAGE
;								     .ASCII .RAD50

	BEQ	L616			;010626	001412                       SR
L624:	CLRB	(R2)+			;010630	105022                      VCZ
	INC	R1			;010632	005201                      A$I
	BMI	L624			;010634	100775                      T17
	BR	L616			;010636	000406                       FV

L617:	MOV	#L625,R2		;010640	012702,000776               CSJ L0
	ADD	L17(R4),R2		;010644	066402,000002         m     QQZ  B
	BIS	#L70,(R2)		;010650	052712,100000         U     M/BTSH
L616:	JSR	PC,$PUTBL		;010654	004767,000126          V    AW1 BF
L615:	RTS	PC			;010660	000207                       CO

L620:	TST	L151(R4)		;010662	005764,000016               A6T  N
	BNE	L626			;010666	001002                       L4
	JMP	L615			;010670	000167,177764        w       B9???

L626:	MOV	L151(R4),R2 		;010674	016402,000016               DYZ  N
	JMP	L627			;010700	000167,177672        w       B9???

$FCHNL::TST	R2			;010704	005702                      A5J
	BLE	L630			;010706	003403                      AD5
	CMP	#L631,R2		;010710	022702,000143         %c    FAZ BS
	BGE	L632			;010714	002001                       YY
L630:	TRAP	224			;010716	104624                      V T
L632:	MOV	L54(R3),-(SP)		;010720	016346,000004               DX8  D
	MOV	(SP),R1			;010724	011601                      CD3
L634:	CMPB	R2,(R1)+		;010726	120221                      Y$Y
	BEQ	L633			;010730	001414                       ST
	MOV	L54(R3),R0		;010732	016300,000004               DX   D
	ADD	NHCLN$,R0		;010736	066700,000642         m     QVP JR
	CMP	R1,R0			;010742	020100               @      EFP
	BCS	L634			;010744	103770                      U0H
	MOV	(SP),R1			;010746	011601                      CD3
L635:	TSTB	(R1)+			;010750	105721                      VN3
	BEQ	L633			;010752	001403                       SK
	CMP	R1,R0			;010754	020100               @      EFP
	BCS	L635			;010756	103774                      U0L
	TRAP	225			;010760	104625                      V U
L633:	MOVB	R2,-(R1)		;010762	110241                      WEY
	MOV	$NLCHN(R3),R0		;010764	016300,000006               DX   F
	SUB	(SP)+,R1		;010770	162601                      6.3
	BEQ	L636			;010772	001404                       SL
L637:	ADD	#L11,R0			;010774	062700,000042         e"    PKH  4
	DEC	R1			;011000	005301                      A.3
	BNE	L637			;011002	001374                       SD
L636:	RTS	PC			;011004	000207                       CO

$PUTBL::MOV	R0,-(SP)		;011006	010046               &      BWN
	MOV	L556(R4),L174(R4) 	;011010 016464,000026,000030 4      DZ6  V  X
.PAGE
;								     .ASCII .RAD50

	INC	L174(R4)		;011016	005264,000030               A.T  X
	CMP	L556(R4),L562(R4) 	;011022 026464,000026,000032 4-     GIL  V  Z
	BCS	L640			;011030	103403                      UXC
	MOV	L556(R4),L562(R4) 	;011032 016464,000026,000032 4      DZ6  V  Z
L640:	BIT	#L641,(R4)		;011040	032714,000100         5@    HXL AX
	BEQ	L642			;011044	001405                       SM
	BIC	#L70,(R4)		;011046	042714,100000         E     KF.TSH
	CLR	L174(R4)		;011052	005064,000030        4      AYL  X
	TRAP	243			;011056	104643                      V 5
L642:	JSR	PC,L643			;011060	004767,000234               AW1 C6
	MOV	#L103,-(SP)		;011064	012746,004636               CTFAUV
	MOV	#L644,-(SP) 		;011070	012746,104220               CTFU4 
	BISB	L261(R4),(SP)		;011074	156416,000021               5N0  Q
	MOV	#L645,-(SP) 		;011100	012746,011130          X    CTFB7P
	MOV	#L44,-(SP)		;011104	012746,000001               CTF  A
	MOV	#L557,-(SP) 		;011110	012746,000400               CTF FP
	MOV	L17(R4),-(SP)		;011114	016446,000002        &      DZV  B
	MOV	L556(R4),R0 		;011120	016400,000026               DYX  V
	JMP	L40(SP)			;011124	000166,000010        v       B8  H

L645:	BCS	L646			;011130	103503               C      UY$
	CMPB	#L44,L15(R4)		;011132	122764,000001,000020        ZVD  A  P
	BNE	L647			;011140	001003                       L5
	JSR	PC,L643			;011142	004767,000152          j    AW1 BZ
	BR	L650			;011146	000416                       F0

L647:	BIT	#L44,(R4)		;011150	032714,000001         5     HXL  A
	BEQ	L651			;011154	001406                       SN
	BIC	#L44,(R4)		;011156	042714,000001         E     KF.  A
	SUB	#$$OTSI,L17(R4)		;011162	162764,001000,000002        61. L2  B
	BR	L650			;011170	000405                       FU

L651:	BIS	#L44,(R4)		;011172	052714,000001         U     M/D  A
	ADD	#$$OTSI,L17(R4)		;011176	062764,001000,000002  e     PLT L2  B
L650:	INC	L556(R4)		;011204	005264,000026               A.T  V
	CLR	R2			;011210	005002                      AXB
	MOV	(SP)+,R0		;011212	012600                      CQX
	RTS	PC			;011214	000207                       CO

$GETBL::MOV	R0,-(SP)		;011216	010046               &      BWN
	TST	L174(R4)		;011220	005764,000030               A6T  X
	BEQ	L652			;011224	001404                       SL
	CMP	L556(R4),L174(R4) 	;011226 026464,000026,000030 4-     GIL  V  X
	BCC	$EOFIL			;011234	103062               2      UR4
L652:	JSR	PC,L643			;011236	004767,000056          .    AW1 AF
	MOV	#L103,-(SP)		;011242	012746,004636               CTFAUV
	MOV	#L654,-(SP) 		;011246	012746,104200               CTFU3X
	BISB	L261(R4),(SP)		;011252	156416,000021               5N0  Q
	MOV	#L655,-(SP) 		;011256	012746,011304               CTFC D
.PAGE
;								     .ASCII .RAD50

	CLR	-(SP)			;011262	005046               &      AX8
	MOV	#L557,-(SP) 		;011264	012746,000400               CTF FP
	MOV	L17(R4),-(SP)		;011270	016446,000002        &      DZV  B
	MOV	L556(R4),R0 		;011274	016400,000026               DYX  V
	JMP	L40(SP)			;011300	000166,000010        v       B8  H

L655:	BCS	L656			;011304	103417                      UXO
L665:	INC	L556(R4)		;011306	005264,000026               A.T  V
	CLR	R2			;011312	005002                      AXB
	MOV	(SP)+,R0		;011314	012600                      CQX
L660:	RTS	PC			;011316	000207                       CO

L643:	MOV	#L103,-(SP)		;011320	012746,004636               CTFAUV
	MOV	#L657,-(SP) 		;011324	012746,104240               CTFU4P
	BISB	L261(R4),(SP)		;011330	156416,000021               5N0  Q
	JSR	PC,(SP)			;011334	004716                      AV0
	BCC	L660			;011336	103367                      UW1
L646:	BIC	#L661,(R4)		;011340	042714,100002         E     KF.TSJ
L656:	BIT	#L501,(R4)		;011344	032714,040000         5 @   HXLJIX
	BEQ	L662			;011350	001403                       SK
	MOV	#L140,L556(R4) 		;011352	012764,177777,000026        CTT???  V
L662:	TSTB	@#L663			;011360	105737,000052          *    VOG AB
	BEQ	$EOFIL			;011364	001406                       SN
	CLR	L275(R3)		;011366	005063,000160        3 p    AYK B2
	MOV	L127(R3),R4 		;011372	016304,000162          r    DXD B4
	BNE	L664			;011376	001015                       ME
	TRAP	227			;011400	104627                      V W
$EOFIL::BIT	#L40,L602(R4)		;011402	032764,000010,000034  5     HYL  H  .
	BNE	L665			;011410	001336                       RN
	BIS	#L14,(R4)		;011412	052714,010000         U     M/DBVP
$EOF2::	CLR	L127(R3)		;011416	005063,000162        3 r    AYK B4
	MOV	L275(R3),R4 		;011422	016304,000160          p    DXD B2
	BNE	L664			;011426	001001                       L3
	TRAP	230			;011430	104630                      V X
L664:	JMP	$IOEXI			;011432	000167,172062        w 2     B99B4

$WAIT::	EMT	240			;011436	104240                      U4P
	EMT	241			;011440	104241                      U4Q
	EMT	242			;011442	104242                      U4R
	EMT	243			;011444	104243                      U4S
	EMT	244			;011446	104244                      U4T
	EMT	245			;011450	104245                      U4U
	EMT	246			;011452	104246                      U4V
	EMT	247			;011454	104247                      U4W
	EMT	250			;011456	104250                      U4X
	EMT	251			;011460	104251                      U4Y
	EMT	252			;011462	104252                      U4Z
	EMT	253			;011464	104253                      U4$
	EMT	254			;011466	104254                      U4.
.PAGE
;								     .ASCII .RAD50

	EMT	255			;011470	104255                      U4/
	EMT	256			;011472	104256                      U40
	EMT	257			;011474	104257                      U41
	RTS	PC			;011476	000207                       CO

	.PSECT	OTS$P	RW,D,GBL,REL,OVR

	.BLKW	22
L541:   .WORD	$CLOSE
L7:	.WORD	0
L25:	.WORD	0
L26:	.WORD	0

	.PSECT	SYS$I	RW,I,LCL,REL,CON

	.PSECT	USER$I	RW,I,LCL,REL,CON

	.PSECT	$CODE	RW,I,LCL,REL,CON

$$OTSC::JSR	R4,$OTI			;011554	004467,167246        7      AR98GN

	.WORD	NAMPTR
	.WORD	LSN$
	.WORD	2
	.WORD	RET$

	.PSECT	OTS$O	RW,I,LCL,REL,CON

$$OTSO::

	.PSECT	SYS$O	RW,I,LCL,REL,CON

	.PSECT	$DATAP	RW,D,LCL,REL,CON

NAMPTR:	.RAD50	\NABFOR\
	.WORD	0
	.WORD	$AOTS+2

	.PSECT	OTS$D	RW,D,LCL,REL,CON

L43:	.WORD	$LRECL
L32:	.WORD	0
NHCLN$::.WORD	$NLCHN

	.PSECT	OTS$S	RW,D,LCL,REL,CON

$AOTS::	.WORD	0

	.PSECT	SYS$S	RW,D,LCL,REL,CON
.PAGE
;								     .ASCII .RAD50

	.PSECT	$DATA	RW,D,LCL,REL,CON

	.PSECT	USER$D	RW,D,LCL,REL,CON

	.PSECT	.$$$$.	RW,D,GBL,REL,OVR

FINIS:	.END	$$OTSC