
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
