*40

SRCLR
SRSET
SRPULN
SRPULP
DAIN
DAOUT

CLEAR=JMS I 40
SET=JMS I 41
NPULSE=JMS I 42
PPULSE=JMS I 43
INPUT=JMS I 44
OUTPUT=JMS I 45



*1000

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

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


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

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

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


SRPULN,	0
	CLA
	TAD I SRPULN
	6516
	6515
	ISZ SRPULN
	CLA
	JMP I SRPULN

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

SRPULP,	0
	CLA
	TAD I SRPULP
	6515
	6516
	ISZ SRPULP
	CLA
	JMP I SRPULP

/CALL DAIN, EINLESEN IN PDP8 AUS DEVICE
/INPUT IN AC

DAIN,	0
	6514
	JMP I DAIN


/CALL DAOUT, AUSLESEN AUS PDP8 IN DEVICE 
/OUTPUT IN AC

DAOUT,	0
	6505
	CMA
	6506
	JMP I DAOUT