/ROM TYPE OUT ROUTINE USING MODIFIED MOST SUBROUTINES




/SET PAGE 0 POINTERS

        *20

FIRST,	SRRCH
        SRTCH
        SRRTCH
        SRTDC
        SRLINE
        SRCH
        7577
	7577
	SRRTCM
	7577
        SRCHOC
        SRROCT
        SRTOCT
        7600
LAST,	7577




                *200

SRTOCT, 0       /TYPE OCTAL
	RTL
	RTL
	DCA TEMPB
	TAD M3
        DCA TEMP
NEXTO,	TAD TEMPB
	RAL
	RTL
	DCA TEMPB
	TAD TEMPB
	AND MASK
        TAD P260
        TCHAR
PS8I,	7600	/CLA AND PS8 ADDR.
        ISZ TEMP
        JMP NEXTO
        JMP I SRTOCT



SRRTCM,	0	/READ AND TYPE A COMMAND
	RTCHAR
	CHECK
	203	/CONTR/C  JMP TO PS/8
	JMP I PS8I
	CHECK
	250	/IGNORE COMMENTS
	JMP COMMNT
CMNRET,	JMP I SRRTCM

COMMNT,	RTCHAR
	CHECK
	203	/CONTR/C.   JMP TO PS8
	JMP I PS8I
	CHECK
	215	/END OF COMMENT
	JMP CMNRET
	CHECK
	212	/END OF COMMENT
	JMP CMNRET
	CHECK
	251	/END OF COMMENT
	JMP SRRTCM+1
	JMP COMMNT
SRRCH,	0		/READ A CHARACTER
	RDSF
	JMP .-1
	RDRB
	JMP I SRRCH

SRTCH,  0               /TYPE A CHARACTER
        WTSF
        JMP .-1
        WTLS
        JMP I SRTCH

TEMPB,
SRRTCH, 0               /READ AND TYPE A CHARACTER
        RCHAR
        TCHAR
        JMP I SRRTCH

TEMPA,
SRTDC,  0               /TYPE DIAGNOSTIC SYMBOL
	CLA
TDCLP,	TAD I SRTDC
        ISZ SRTDC
        TCHAR
	SPA CLA
	JMP TDCLP
        JMP I SRTDC



TEMP,
SRLINE, 0       /TYPE "CR LF"
        TDC
	4215
	212
        JMP I SRLINE


SRCH,   0       /CHECK AND SKIP IF WRONG
        DCA TEMP        /SAVE AC
        TAD I SRCH
        ISZ SRCH
        CIA
        TAD TEMP
        SZA CLA
        ISZ SRCH
        TAD TEMP        /RESTORE AC
        JMP I SRCH

SRCHBK, 0               /SKIP IF NOT IN BLOCK
        DCA TEMP        /SAVE AC
        TAD I SRCHBK
        ISZ SRCHBK
        CIA
        TAD TEMP
        SPA
        JMP NO
        CMA
        TAD I SRCHBK
        SPA
NO,     ISZ SRCHBK
        ISZ SRCHBK
	CLA
        TAD TEMP        /RESTORE AC
        JMP I SRCHBK


TEMPC,
SRCHOC, 0               /SKIP IF OCTAL DIGIT
        CHBLOK
P260,	260
        10
        ISZ SRCHOC
        JMP I SRCHOC

SRROCT, 0               /READ AND TYPE OCTAL NUMBER
        CHOCT           /1ST. CHAR. IN AC. ON ENTRY
	TYDER		/ENTERED WITH NON-OCTAL CHAR
        AND MASK
        DCA TEMP
        TAD M4
        DCA TEMPA
        DCA OCNUM
ROCTA,  TAD OCNUM
        RAL CLL
        RTL
        TAD TEMP
        DCA OCNUM
        RTCOMD
        CHOCT
        JMP I SRROCT    /EXIT ON NON-OCT CHAR.
	ISZ TEMPA
	SKP
	JMP I SRROCT
	AND MASK
	DCA TEMP
	JMP ROCTA

M3,	-3
M4,     -4
MASK,   0007
OCNUM,	0


PAGE



ROMWRT,	CLA
	WTLS
	RDRB
	LINE
	TDC
	4322
	4317
	4315
	4240
	4301
	4325
	4323
	4304
	4322
	4325
	4313
	4240
	4311
	4316
	4240
	4317
	4313
	4324
	4301
	314

	
	LINE
	LINE
	LINE

TITLE,	TDC
	4324
	4305
	4323
	4324
	4272
	240

USERTP,	RTCOMD
	CHECK
	215
	SKP
	JMP USERTP
	LINE
	LINE
	LINE


	DCA ADDR
	TAD M40
	DCA COUNT
	TAD M10
	DCA LINCNT
NAMELP,	TDC
	4301
	4304
	4322
	4240
	4304
	4301
	4324
	4240
	4240
	240

	ISZ LINCNT
	JMP NAMELP
	LINE
	LINE

	TAD M10
	DCA LINCNT
PRNTLP,	TAD ADDR
	CMA
	6515
	CMA
	6516
	TOCT
	TDC
	240
	CLA
	6514
	TOCT
	TDC
	4240
	4240
	240
	RDSF
	SKP
	JMS INTRPT
	ISZ ADDR
	ISZ LINCNT
	JMP PRNTLP
	TAD M10
	DCA LINCNT
	LINE
	ISZ COUNT
	JMP PRNTLP
	LINE
	JMS INTRPT
	JMP .-1

ADDR,	0
M40,	-40
M10,	-10
COUNT,	0
LINCNT,	0
PS8II,	7600

INTRPT,	0
	RCHAR
	CHECK
	203
	JMP I PS8II
	CHECK
	252
	JMP RESTRT
	CHECK
	240
	JMP INTRPT+1
	CLA
	JMP I INTRPT



RESTRT,	LINE
	LINE
	LINE
	LINE
	LINE
	LINE
	LINE
	LINE
	LINE
	JMP ROMWRT



$$$$$$$$$$$$$$$$$$$$$$$$$$$$$