FIELD 1
*2200
	JMS I (7700
	10
CALLCD,	JMS I (200
	5
	0
	JMS I (IOPEN


	JMS I (OOPEN
	SMA CLA
	JMP START
	JMS TERR
	TEXT /OPEN FAILED/


START,	CLA
	TAD N14
	DCA N14CTR

NUMB,	JMS I (ICHAR
	JMP TSTEOF
	JMS SRCH
	0		/KEINE LOCHUNG?
	JMP NUMB
	JMS SRCH
	257		/SCHRAEGSTRICH?
	JMP TRAP
	JMS SRCH
	"$		/DOLLAR?
	JMP SYMB
	JMS SRCH
	215		/CARRIAGE RETURN?
	JMP LIN
	JMS SRCH
	212		/LINE FEED?
	JMP LIN
	JMS I (OCHAR
	JMP OUTERR
	ISZ N14CTR
	JMP NUMB
	JMP ALPHA

LIN,	JMS I (OCHAR
	JMP OUTERR
	JMP START

ALPHA,	JMS I (ICHAR
	JMP TSTEOF
	JMS SRCH
	257		/SCHRAEGSTRICH?
	JMP TRAP
	JMS SRCH
	215		/CARRIAGE RETURN
	JMP LIN
	JMS SRCH
	212		/LINE FEED?
	JMP LIN
	JMP ALPHA

TRAP,	JMS I (ICHAR
	JMP TSTEOF
	JMS SRCH
	215		/CARRIAGE RETURN
	JMP LIN
	JMS SRCH
	212		/LINE FEED
	JMP LIN
	JMS I (OCHAR
	JMP OUTERR
	JMP TRAP
	JMS I (OCHAR
	JMP OUTERR
	JMP START


SYMB,	JMS I (OCHAR
	JMP OUTERR
	JMS I (ICHAR
	JMP TSTEOF
	JMS I (OCHAR
	JMP OUTERR
	JMP .-4


N14,	-14
N14CTR,	0
N7600,	7600

TSTEOF,	SMA CLA
	JMP CLOSE
	JMS TERR
	TEXT /READ ERROR/

CLOSE,	JMS I (OCLOSE
	JMP CLERR
	CDF CIF 0
	JMP I N7600

OUTERR,	JMS TERR
	TEXT /OUTPUT ERROR/

CLERR,	JMS TERR
	TEXT /CLOSE ERROR/



PAGE




TERR,	0
	TAD I TERR
	RTR;RTR;RTR
	JMS TYPIT
	TAD I TERR
	JMS TYPIT
	ISZ TERR
	JMP TERR+1





TYPIT,	0
	AND (77
	SNA
	JMP CRLF
	TAD (300
	JMS TTYOUT
	JMP I TYPIT

CRLF,	CLA
	TAD (215
	JMS TTYOUT
	TAD (212
	JMS TTYOUT
	JMP CALLCD

TTYOUT,	0
	TLS
	TSF
	JMP .-1
	CLA
	JMP I TTYOUT





SRCH,	0
	DCA TEMP
	TAD I SRCH
	ISZ SRCH
	CIA
	TAD TEMP
	SZA CLA
	ISZ SRCH
	TAD TEMP
	JMP I SRCH

TEMP,	0



SRLINE,	0
	CLA
	TAD (215
	JMS I (OCHAR
	JMP OUTERR
	CLA
	TAD 212
	JMS I (OCHAR
	JMP OUTERR
	JMP I SRLINE


$$$$$$$$