RNCMD.MAC/AU/-BF=RNCMD.OLD
\
-3,3

-42,42

-47,59

;
; DISABLE ALL FLAGS
;

DSAFL::	CLR	$CFLSW		;CLEAR FLAGS CAPITALIZE
	CLR	$HFLSW		;CLEAR FLAGS HYPHENATE
	RETURN			;

;
; FLAG CAPITALIZE COMMANDS
;

-67,71

;
; FLAG HYPHENATE COMMANDS
;

-76,80

;
; HYPHENATION COMMANDS
;

-85,85

-96,100

;
; BREAK COMMAND
;

-106,106

-118,118

-158,165

STAND::	MOV	#SPCNG,NSPNG	;SET STANDARD SPACING
	MOV	#ILMRG,	LMARG	;INITIALIZE LEFT MARGIN
	MOV	#IPARIN,PARIND	;SET INITIAL PARAGRAPH INDENT
	MOV	#INLPG,R3	;SET INITIAL PAGE LENGTH PARAMETER
	BIS	#FILLF!JUSTF!PJUSTF,(R5) ;SET TO FILL AND JUSTIFY
	BR	15$		;FINISH IN COMMON CODE

-185,185

-249,259

;
; FIRST TITLE COMMAND
;

FTITL::	CLRB	$HDSSW		;ENABLE HEADER ON FIRST PAGE

;
; TITLE COMMAND
;

-313,313

-319,331

;
; END LITERAL COMMAND
;

ELTRL::	MOV	LITSV,(R5)	;RESTORE PREVIOUS FLAGS WORD
	MOV	LITCM,CMADR	;RESTORE PREVIOUS EXPECTED COMMAND ADDRESS
	RETURN			;

;
; FILL AND JUSTIFY COMMANDS
;

-346,346

-416,416

-421,425

;
; COROUTINE TO SHIFT TO UPPER CASE TEMPORARILY
;

-432,432

/