/^   APRIL   21    1976
	LISTALL=1
/CONVERSION PROGRAM:
/OPTIONS SUPPORTED:
/
/	CONVERT ABS.DA
/IS R CONVERT
/   ABS.DA<ABS.DA


/1)SMALL LETTERS TO LARGE     INHIBITED BY /S
/2)ALL CONTROL CHARACTERS IGNORED EXEPT THOSE
/IN TABLE1 IF /I GIVEN
/
/CARACTERS ARE MATCHED BY TABLE 1 A CARACTER FOUND  IN TABLE
/JUMPS TO THE SPECIFIED LOCATION UNLESS THE CORRESPONDING SWITCH
/IN THE RANGE Y-9 IS GIVEN
/
/SETTIN /F FORCES FORTRAN CONVERSSIONS AS PER TABLE2
/DONE AFTER OTHER CONVERTIONS
/NON STANDARD FORTRAN CONVERSIONS IN THIS TABLE CAN BE INHIBITED
/AS PER TABLESD SWITCH
/
/P CALLS PIP AFTER ACTION PASSES /C/T/D(IF GIVEN) TO PIP
/OTHER SWITCHES ARE REMOVED
/
/=2040301	IGNORE ANY CHARACTER WITH CODES 204 OR 301
/	***LOOKED AT AFTER CONVERSION FROM SMALL LETTERS !**
	DEL=234	/CODE FOR DELETE
/SECOND DELETE FUNCTION RUBBOUT(377)IS IN TABLA
/***DO NOT SET DEL TO 0 USE EG 4000 IF IT IS TO BE SKIPPED
	OPTH=7642
	OPTAL=7643
	OPTMX=7644
	OPTY9=7645
	OPTL=7646
	OUBUF=5000		/OUTPUT BUFFER STARTS AT 05000.
	OUCTL=4200		/AND IS 2 PAGES LONG.
	OUDEVH=6600		/OUTPUT HANDLER GET LOADED AT 6600. WE
				/ALLOW TWO PAGE HANDLERS.
	INBUF=5400		/INPUT BUFFER STARTS AT 05400
	INCTL=0200		/ALSO TWO PAGES LONG.
	INRECS=1		/2 PAGES = 1 RECORD
	INDEVH=7000		/ALLOW 2 PAGE INPUT HANDLER AT 7000.
	ORIGIN=6600		/THE SUBROUTINES RESIDE AT 16600.
	IFNDEF LISTALL <LISTALL=0>
	IFZERO LISTALL <XLIST>
/JUST TO HELP ODT
	FIELD 0
	*200
	CIF 10
	JMS 7700
	10
	NOP
	CDF CIF 10
	JMP I (CALLCD
	FIELD 1
	*20
/20-37 IS FREE SE SUPPORT MANUAL
P,	0
COUNT,	0
CHAR,	0
SLASHF,	0	/1 IF /F
	IFNZRO 37-.&4000<BAD, ECHH>
	*2000
	ISZ CH
	JMS I   (7700		/LOCK MONITOR INTO CORE
	10
	TAD CH
	SNA CLA
	JMP CHAIN
CALLCD,	JMS I   (200		/CALL THE COMMAND DECODER
	5
	0
CHAIN,	TAD (LBUFF
	DCA P
	TAD OPTAL
	AND (100
	DCA SLASHF
	TAD OPTAL
	AND (400
	SNA CLA	/PREDELETE ?
	JMP POST	/NO
	TAD 7600
	JMS 200
	4
	7601
	0
	JMP DELERR
POST,	JMS I   (IOPEN		/SETUP INPUT POINTERS
	JMS I   (OOPEN		/OPEN OUTPUT FILE
	SMA CLA			/ERROR. IF AC<0,IT WAS FATAL
	JMP OK			/NON FILE STRUCTURED OUTPUT
	JMS TERR
	TEXT /OPEN FAILED/
OK,	TAD OPTL
	AND (377
	CIA
	DCA TABLA1	/IGNORE CHAR EG =214
	TAD OPTH
IAND (s?7
ISIi	eCEb\AVnE6?Ig^OSmcr$gMEv8Owr<7vsmFTPEI 	
LAS
L M	ACE		OR/ RR I.<AFI0CWT, A TFS
AAJ
L M		OP/	KNN	I O LFRSETUTEUCODRPU 
UTJ
T M	RTS
REE	
 XTP/T EOIFNDLA
/E,O
A	KO/TO
	CIA
	DCA COUNT
	TAD (LBUFF
	DCA P
OUTLOOP,	TAD I P
	ISZ P
	JMS SEND
	ISZ COUNT
	JMP OUTLOOP
NONE,	TAD SLASHF
	SPA SZA CLA
	JMP CLOSE2
	TAD (LBUFF
	DCA P
	TAD (LBUFF-LBUFFE+1
	DCA COUNT
LOOP,	JMS INPUT	/MAIN LOOP
	JMS SORT	/SPECIAL ACTION ?
	TABLA
/NOT IN TABLE A THEN CHECK FOR /I
	TAD OPTAL
	AND (10
	SZA CLA
	JMP CHKSML	/NOT SET
	TAD CHAR
	TAD (-233
	SPA CLA	/CONTROL ?
	JMP LOOP
CHKSML,	TAD OPTMX	/CHECK FOR /S
	AND (40
	SZA CLA
	JMP PACKER	/OK SEND ANY CHAR
	TAD CHAR
	TAD (-341
	SPA CLA
	JMP PACKER
	TAD CHAR
	TAD (-373
	SMA CLA
	JMP PACKER
	TAD CHAR
	TAD (-40
PACKER,	JMS PACK
	JMP LOOP
CH,	0
	PAGE
PACK,	0
	SZA
	DCA CHAR	/ACNONZERO SEND THIS CHAR
	CLA CLL
	ISZ COUNT
	JMP SOK
	JMS TERR
	TEXT 'LINE TO LONG IN FILE'
SOK,	TAD CHAR
	DCA I P
	ISZ P
	JMP I PACK
	JMP LOOP	/YES <40
BACK,	TAD P
	CIA
	TAD (LBUFF
	SNA CLA	/DONT BACKUPP OVER BIGINNING OF LINE
	JMP LOOP
	CLA CMA
	TAD P
	DCA P
	CLA CMA
	TAD COUNT
	DCA COUNT
	JMP LOOP
CR,	JMS PACK
	TAD SLASHF	/CHECK FOR FORTTRAN CONV
	SNA CLA
	JMP LF3
CR2,	JMS INPUT
	TAD CHAR
	TAD (-212
	SNA
	JMP .-4	/SKIP LF
	TAD (212
	JMS SORT
	TABLB
LF3,	TAD (212
	JMS PACK
	JMP INIT
LF,	TAD (212	/EXTRA LF
	JMS PACK
	JMP LF3
LARGE,	TAD (212	/LARGE LETTERS AFTER LF
	JMS PACK
	TAD (216	/^N
	JMP LF3+1
NPAGE,	TAD (214	/FF
	JMS PACK
	JMP LF3
VT,	TAD (213	/VT
	JMP NPAGE+1
CRTLU,	JMS INPUT	/REMOVE CR FOLLOWING
	JMP NONE	/AN CONTINUE

	PAGE
T1=TERR
T2=TYPIT
T3=TTYOUT
SORT,	0
	CLA CMA
	TAD I SORT
	DCA 10
	ISZ SORT
SLOOP,	TAD I 10
	SNA
	JMP I SORT	/END LIST
	DCA T1
	TAD I 10
	DCA T2
	TAD I 10
	DCA T3
	TAD CHAR
	TAD T1	/EQUAL ?
	SZA CLA
	JMP SLOOP	/NO LOOK AT NEXT
	TAD T3
	AND OPTY9	/SWITCH SET ?
	SNA CLA
	JMP I T2	/NO GOT  RUTINE
	JMP I SORT	/YES NO SPECIAL ACTION
TERR,	0			/ROUTINE TO PRINT ERROR MESSAGES
	TAD I TERR
	RTR;RTR;RTR
	JMS TYPIT		/TYPE THE CHARACTER
	TAD I TERR
	JMS TYPIT
	ISZ TERR
	JMP TERR+1

TYPIT,	0
	AND (77			/ISOLATE THE CHARACTER
	SNA
	JMP CRLF		/0 TERMINATES IT
	DCA T3
	TAD T3
	TAD (-40
	CLL
	SZA CLA
	STL
	TAD T3
	SZL
	TAD (100	/ADD IN 300 FOR LETTERS 200 FOR SPACE
	TAD (200
	JMS TTYOUT
	JMP I TYPIT
CRLF,	TAD (215
	JMS TTYOUT
	TAD (212
	JMS TTYOUT
	JMP END

TTYOUT,	0
	TLS
	TSF
	JMP .-1
	CLA
	JMP I TTYOUT
INPUT,	0
	CLA CLL
	JMS I (ICHAR
	JMP TSTEOF		/ERROR. SEE IF EOF.
	SNA			/IGNORE BLANKS
	JMP INPUT+1
	AND (177	/REMOVE PARITY BIT
	TAD (200	/FOCE PARITY
	DCA CHAR
	JMP I INPUT
SEND,	0
	SNA
	TAD CHAR	/AC=0 USE CHAR
	JMS I   (OCHAR		/AND OUTPUT THE CHARACTER
	JMP OUTERR
	JMP I SEND			/CONTINUE UNTIL EOF.
TSTEOF,	SMA CLA			/WAS IT FATAL?
	JMP CLOSE		/NO..EOF. CLOSE OUTPUT
	JMS TERR
	TEXT /READ ERROR/
CLOSE,	TAD SLASHF
	SNA CLA
	JMP .+2
	TAD (212
	JMS PACK
	CLA CMA
	DCA SLASHF	/EOF
	JMP INIT	/THIS IS NECCICARY AS LAST LINE ON /F IS NOT PACKED
CLOSE2,	JMS I   (OCLOSE
	JMP  CLERR		/FILE CLOSE FAILED
	TAD OPTMX	/GOTO PIP ?
	AND (400
	SZA CLA
	JMP PIP
END,	TAD OPTH	/NO EXIT OS 8 ?
	SMA CLA
	JMP CALLCD	/NO
	CDF CIF 0
	JMP 7600	/SURE
	PAGE
OUTERR,	JMs TERV
ITM\]!/o]\Rwt ewVosoMJGnU_r</kO{mvWwZ9{/So?~~^m{ P}EC 	RLF	REI/L LEOCA SEIF
DLA	
ODTMP /XTTG	POO I 
?PN	
(DA04 	
0AS
L Z
ACM	
PPJ
I N
P	DEDT,P A	TOO/HX N IE OT?8S	
 AS
L M
ACM	
RESS TO BRANCH TO
/	WORD 3 MASK TO BE USED ON OPTY9
/	END OF LIST WORD 3=0
/
/LISTA ALL CHAR SORTED BY THIS LIST
TABLA,	-215;	CR;	0
LFTAB,	-212;	LOOP;	4000	/Y
	-232;	CLOSE;	0	/^Z NOT USABLE AT PRESENT
	-225;	CRTLU;	2000	/Z^U DELETE LINE
	-377;	BACK;	200	/2
	-DEL;	BACK;	1000	/0DELETE 1 CHAR
	-214;	PACKER;	400	/1^N
	-211;	PACKER;	0	/TAB
	-213;	PACKER;	0	/ VT
TABLA1,	0;	LOOP;	0	/USER DEFINED
TABLA2,	0;	LOOP;	0	/D:O
	0
/TABLE B  FORTRAN CONVERSIONS AFTER CR IF /F SET
TABLB,	-"+;	INIT;	0	/
	-"0;	LF;	0	/
	-"N;	LARGE;	10	/6 LET N=LARGE LETTERS ON LS8E
	-"1;	NPAGE;	0	/
	-"K;	VT;	2	/8 LET K= VT
	0

	IFZERO LISTAL <XLIST>
DELERR,	JMS TERR
	TEXT /DELETE ERROR/
PIP,	JMS 200
	7
	3
LBUFF,	0
*.+200
LBUFFE=.