                                                                   
FUNNY FORMAT LOADER 9-223-62

NOINPUT	R=7762	CKS=7775	INDEX=10	TEM1=R	CNT=7777

FUNNY,	JMS R
	DAC DONE 1
	JMS R
	DAC DONE 2
	JMS R
	DAC CEND
	DAC CBEG
	ISZ CEND
GO,	JMS R
	DAC LA
	SPA
	JMP DONE
	JMS R
	DAC CNT
	ADD LA
	DAC CKS
	JMS RAP
	DZM WORD
CONTIN,	ISZ CNT
	JMP RALPW
	LAC CKS
	CMA
	SZA
	HLT
	RSB
	JMP GO

RALPW,	JMS RAP
	DAC TEM1
	JMS RAP
	RTL	RTL	RTL	RTL
	ADD TEM1
	DAC TEM1
	JMS RAP
	RTR
	ADD CDSP
	DAC RAP
	AND CCMA
	RAR
	ADD TEM1
	XCT I RAP
	JMP CONTIN

DSP,	JMP CODE1
	JMP CODE2
	JMP CODE3
	JMP CODE4
	XCT CODE4A
	JMP CODE6
	NOP	NOP	NOP

DONE,	LAC CEND
	NOP
	XX
                                                                                                       
/ROUTINES TO HANDLE FUNNY WORDS

CODE2,	AND MASK
	ADD I TEM1

CODE1,	ADD WORD		/STORAGE WORD IN
LA,	XX
	CLC
	TAD LA
	DAC LA
	JMP CONTIN-1

CODE3,	SPA!CLA
CCMA,	CMA
	XOR I TEM1
	ADD WORD
	DAC WORD
	JMP CONTIN

CODE4,	DAC CODE4A
	LAC LA
	TAD CCMA
CODE4A,	XX
	JMP CONTIN

RAP,	0		/READ 1 ALPHA LINE
	RSF
	JMP .-1
	RRB
	RSA
	DAC TEM2
	ADD CKS
	DAC CKS
	LAC TEM2
	CLL
	JMP I RAP

CDSP,	DSP
MASK,	760000
TEM2,	0
WORD,	0
CEND,	0
CBEG,	0

CODE6,	ADD WORD		/CONSTANT IN
	DAC I CEND
	LAC CBEG
	DAC INDEX
	LAC I CEND
	SAD I INDEX
	JMP . 2
	JMP .-2
	LAC INDEX
	SAD CEND
	ISZ CEND
	JMP CODE4-2

START
                                                                                                                                                                                                            VeN\                                                                                                                                                                                                                                                                                                                                                               q_qq                                                                                                                                                                                                        