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