REL ASSEMBLER PART 2A 7-2-63

/PDP-4 ASSEMBLER PART II-A ROUSSEAU

PLIST,	JMS NWD
	SZA
	JMP PLER1
	ISZ SECOND
	LAC SYI
	SNA
	JMP PLER3
	LAC I SYMPT
	JMS E1W
	C11
	LAC I SSYMPT
	JMS E1W
	C10
	LAC I FSYMPT
	JMS E1W
	C7


PLIST2,	LAC PNUMB
	SAD (5
	JMP PLIST
	JMS SCR
	JMP PLER2
	JMP GO

PLER1,	JMS ERR
	FLEX IFL
	JMP PLIST2

PLER2,	JMS ERR
	FLEX LIT
	JMP IGN

PLER3,	JMS ERR
	FLEX LNS
	JMP PLIST2

WOW,	LAC (FST-1
	DAC FUNLST
WOW2,	JMS SETLOD
	JMP BEGIN1
	JMP FUNGOO

/PRINT SYMBOLS NUMERIC

PRNUM,	0
	LAW 7
	DAC SPCIND
	LAT
	AND (100
	SZA
	JMS MRX
	CLC
PRNUM1,	DAC ML#AST
	CMA
	DAC LA#ST
	LAC FSYM
	DAC INDEX
	DZM PR#ES

PRNTS,	LAT
	RTR
	SNL
	JMP I PRNUM
	LAC INDEX
	ADD LSYM
	ADD (1
	SPA
	JMP PRNLOP
	LAC PRES
	ISZ LAST
	JMP PRNUM1
	JMP I PRNUM

PRNLOP,	LAC I INDEX
	ISZ INDEX
	RAL
	LAC I INDEX
	SML!CLL
	JMP PRNTS
	SAD LAST
	JMP PRNPT
	TAD MLAST
	SML CLL-OPR
	JMP PRNTS
	LAC INDEX
	DAC SAVE
	LAC I SAVE
	TAD PRES
	SPL
	JMP PRNTS
	LAC I SAVE
	CMA
	DAC PRES
	JMP PRNTS

PRNPT,	LAC INDEX
	DAC S#AVE
	JMS PSYM
	JMS TYT
	LAC I SAVE
	JMS OPS
	JMS TCR
	JMP PRNTS


/ALPHA SYMBOL PRINT

PRALP,	0
	LAW 7
	DAC SPCIND
	CLC
	DAC O#LD1
	DAC O#LD2

	LAT
	AND (100
	SZA
	JMS MRX
PRALP1,	LAT
	RAR
	SNL!CLC
	JMP I PRALP
	DAC N#EW1
	DAC N#EW2
	DZM NADR
	LAC FSYM
	DAC NE#W

PRALP2,	ISZ NEW
	LAC I NEW
	DAC A#1
	ISZ NEW
	SMA!CLL!CMA
	JMP PRALP3
	DAC M#A1
	LAC I NEW
	DAC A#2
	CMA
	TAD NEW2
	GLK
	TAD MA1
	TAD NEW1
	SML!CLL
	JMP PRALP3
	LAC A2
	TAD OLD2
	GLK
	TAD OLD1
	TAD A1
	SML
	JMP PRALP3
	LAC A1
	DAC NEW1
	LAC A2
	DAC NEW2
	LAC NEW
	ADD (1
	DAC NADR

PRALP3,	ISZ NEW
	LAC NEW
	ADD LSYM
	ADD (1
	SPA
	JMP PRALP2

/MORE ALPHA PRINT

PRALP4,	LAC NADR
	SNA
	JMP I PRALP
	JMS PSYM
	JMS TYT
	LAC I NADR
	JMS OPS
	JMS TCR
	LAC NEW1
	CMA
	DAC OLD1
	LAC NEW2
	CMA
	DAC OLD2
	JMP PRALP1
MRX,	0
	LAC PN#TF
	SZA
	JMP .-2
	ISZ PNTF
	LAW 7
	LPLS
	DZM SPCIND
	LAC PNTF
	SZA
	JMP .-2
	LAM -73
	DAC M#MS
	JMP I MRX
START
