
FORTRAN II - TAPE 3 - DIAGNOSTIC

TELETYPE

HELPR,	0
	DAC S#VAC
	LAW
	JMS TYP1
	LAM -1
	ADD HELPR
	DAC TE#MH
	LAC I TEMH
	DAC TEMH
	RTR	RTR	RTR
	AND (17
	ADD (LAC ERRTAB
	DAC .+1
	XX
	JMS TYP1
	JMS TYP1
	JMS TYP1
	LAC (660000
	JMS TYP1
	LAC TEMH
	RTR
	RAR
	JMS TYPDIG
	LAC TEMH
	JMS TYPDIG
	LAC (101000
	JMS TYP1
	JMS TYP1
	LAC STNUM
	DECPNT
	LAC (200476	/PRINT STATEMENT NUMBER
	JMS TYP1
	JMS TYP1
	JMS TYP1
	LAW CPOINT
	CMA
	ADD UPOINT
	DAC TEMH1
	RCL
	ADD TEMH1#
	ADD UPACKT
	CMA
	ADD (1
	DAC MARK
	LAW CPOINT 1
	JMS TOC
	LAC TEMH
	AND (14000
	SNA
	JMP HELPX
	SAD (EI
	JMP GO
	HLT
	JMP .-1
HELPX,	LAC HELPR
	RAL
	LAC SVAC
	JMP I HELPR

TYP1,	0
	JMS RL6
	JMS TYPIT
	JMP I TYP1

DIGTAB,	CHAR L0	CHAR L1	CHAR L2	CHAR L3
	CHAR L4	CHAR L5	CHAR L6	CHAR L7

TYPDIG,	0
	AND (7
	ADD (LAC DIGTAB
	DAC .+1
	XX
	JMS TYP1
	JMP I TYPDIG
/LINE PRINT ROUTINE
TOC,	0
	DAC BUF#P
TOC0,	LAM -2
	DAC CHA#C
	LAC I BUFP
TOC1,	JMS RL6
	DAC COM#2
	RAL
	AND (77
	ADD (XCT TUPTAB
	DAC COTA
COTA,	XX
	STL
	JMS RL6
	SMA
	SKP
	JMS TYP1
	JMS TYP1
	JMS TYP1
COTB,	ISZ MAR#K
	JMP TOC2
	LAC (200000
	JMS TYP1
TOC2,	LAC COM2
	ISZ CHAC
	JMP TOC1
	ISZ BUFP
	JMP TOC0
TOC3,	LAC (42000
	JMS TYP1
	JMS TYP1
	JMP I TOC
TUPTAB,	LAW 10
	LAW 6672
	LAW 6662
	LAW 6640
	LAW 6624
	LAW 6602
	LAW 6652
	LAW 6670
	LAW 6630
	LAW 6606
	JMP COTB
	JMP TOC3
	JMP COTB
	JMP COTB
	JMP COTB
	JMP COTB
	LAW 6632
	LAW 6656
	LAW 50
	LAW 2
	LAW 70
	LAW 36
	LAW 62
	LAW 56
	LAW 52
	LAW 42
	JMP COTB
	LAW 6614
	JMP COTB
	JMP COTB
	LAW 6650
	JMP COTB
	JMP COTB
	LAW 64
	LAW 74
	LAW 22
	LAW 16
	LAW 14
	LAW 6
	LAW 32
	LAW 72
	LAW 24
	JMP COTB
	JMP COTB
	LAW 6660
	LAW 6622
	JMP COTB
	LAW 6674
	JMP COTB
	LAW 60
	LAW 46
	LAW 34
	LAW 44
	LAW 40
	LAW 54
	LAW 26
	LAW 12
	LAW 30
	JMP COTB
	LAW 6616
	JMP COTB
	JMP COTB
	JMP COTB
	JMP TOC3

/ERR CODE TABLE

ERRTAB,	FLEX WHA
	FLEX CON
	FLEX COM
	FLEX ASG
	FLEX SUB
	FLEX DIM
	FLEX DO 
	FLEX ILF
	FLEX ICH
	FLEX DIT
	FLEX UFX
	FLEX FOR
	FLEX WHO
	FLEX IFU
	FLEX SCE

HELP=CAL I

FIODEC

CHRTY1,	HELP 1001
	NXTCHR
	HELP 1004

CHRTYP,	SAD (FLEX  +	EXIT2
	SAD (FLEX  =	EXIT2
	SAD (FLEX  *	EXIT2
	SAD (FLEX  ^	EXIT2
	AND (7)
	ADD (LAC TYPTAB
	DAC CHRTYA
	LAC PAC
	AND (7700
	SZA
	HELP 1002
	LAC PAC
	RTR
	RAR
	AND (7
	ADD (-7
	DAC TT1
CHRTYA,	XX
	RTR
	ISZ TT1
	JMP .-2
	AND (3
	TAD (-0
	SPA
	JMP CHRTY1
	JMP DSPTCH

TYPTAB,	054210
	275250
	221040
	227054
	221340
	221340
	221040
	221340

START
