*40

SRCLR
SRSET
SRPULN
SRPULP
SFIIN
SFIOUT

CLEAR=JMS I 40
SET=JMS I 41
NPULSE=JMS I 42
PPULSE=JMS I 43
FIFOIN=JMS I 44
FIOUT=JMS I 45

SI=4000
SO=2000
MR=40
IR=4000
OR=2000
DATEN=1700


*1000

/CALL SRCLR, STEUERSIGNALE = 0
/1. ARGUMENT* STEUERSIGNALE

SRCLR,	0
	CLA
	TAD I SRCLR
	6506
	ISZ SRCLR
	CLA
	JMP I SRCLR


/CALL SRSET, STEUERSIGNALE = 1
/1. ARGUMENT* STEUERSIGNALE

SRSET,	0
	CLA
	TAD I SRSET
	6505
	ISZ SRSET
	CLA
	JMP I SRSET

/CALL SRPULN, STEUERSIGNALE = 0,1
/1. ARGUMENT: STEUERSIGNALE


SRPULN,	0
	CLA
	TAD I SRPULN
	6506
	6505
	ISZ SRPULN
	CLA
	JMP I SRPULN

/CALL SRPULP, STEUERSIGNALE = 1,0
/1. ARGUMENT: STEUERSIGNALE

SRPULP,	0
	CLA
	TAD I SRPULP
	6505
	6506
	ISZ SRPULP
	CLA
	JMP I SRPULP

/CALL SFIIN, EINLESEN IN PDP8 AUS FIFO
/INPUT IN AC

SFIIN,	0
	6504
	JMP I SFIIN


/CALL SFIOUT, AUSLESEN AUS PDP8 IN FIFO
/OUTPUT IN AC

SFIOUT,	0
	6505
	CMA
	6506
	JMP I SFIOUT