Directory of image this file is from
This file as a plain text file

/R1 INTERFACE EMULATOR
/DIESES ASK SOLL ANGERUFEN WERDEN DURCH EINE 'GIANT IOT' BEFEHL
/MIT 0001 IN DER ACCU. Z.B.
/
/	CLA IAC
/	6770
/	JMP .+2
/	ADRR	/	BUFFER-1
/	....
/BUFFER,	ZBLOCK 20
/20 WERTEN WERDEN EINGELESEN UND IN BINAIRY FORM IN DAS BUFFER GEPLATZT.
/WENN EIN FEHELR PASSIERT, WIRD DAS BUFFER NICHT GEAENDERT.
	*200

	"R^100+"1&3777	/TASK NAME R1
	200
R1BUFA,	.+2		/ADDRESS OF BUFFER
	0

R1,	CDF MONFLD
	DCA R1BG	/POINTER TO BG AREA
	TAD C3		/(UPC
	TAD R1BG
	JMS DEFER	/GET UPC
	IAC
	DCA R1ARG	/ADDRESS OF ARGUMENT
	TAD C4		/(UFLDS
	TAD R1BG
	JMS DEFER
	AND C70
	TAD C6201
	DCA R1CDF	/CDF TO USERS INSTRUCTION FIELD
	TAD R1BG
	TAD (USLOT
	JMS DEFER	/GET EVENT NUMBER
	DCA R1EVENT
	TAD I R1BG
	TAD (INACTIVE-EMULATE
	DCA I R1BG	/SET BG INACTIVE
	JMS MONITOR
	   SIGNAL
	   BSSLOT
	ACM1
	DCA R1ERR	/SET ERRORFLAG TO OK
	TAD (-20
	DCA R1CNT
	TAD R1BUFA
	DCA R1BUF
R1NOG,	ACM2		/TWO SYSTEM TICKS
	JMS MONT
	SNA CLA		/TIMEOUT ? NOISY
	AC4000
	JMS MONT
	SZA CLA		/TIMEOUT ? TOO LATE NOW
	SKP
	 JMP R1SCHA  	/ERROR EXIT
	6146		/READ DATA AND CLEAR FLAG
/NOW  THE BCD-BINARY CONVERSION:
	DCA X
	TAD X
	AND C7400
	CLL RTR
	DCA ZTEM1
	TAD ZTEM1
	RAR
	TAD ZTEM1
	CIA
	TAD X
	DCA CLL RTR
	DCA ZTEM1
	TA1
	CIA
	TAD X
/NOW ITTOIF
	DCA I R1BUF	/STREBUFFER
	ISZ R1BUF
	ISZ R1CNT
	 JMP R1NOG	/MORE TO COME
R1SCHA,	CDF MONFLD
	TAD I R1BG
	TAD (-INACTIVE+EMULATE+INCORE
	DCA I R1BG	/SET BG EMULATE+INCORE
	JMS MONITOR
	   SIGNAL
	   BSSLOT
	JMS MONITOR
	   WAIT
R1EVENT,	   0
	CLA CLL		/BG IS IN CORE NOW
	ISZ R1ERR	/ERRORS ?
	 JMP R1OUT	/YES, QUIT
	JMS R1USEF	//DF IS USERS'
	TAD I R1ARG	//ADRR OF BUFFER -1
	DCA AUTO10
	TAD (-20
	DCA R1CNT
	ACM1
	TAD R1BUFA
	DCA AUTO11
R1WEL,	CDTOIF
	TAD I AUTO11
	JMS R1USEF	//
	DCA I AUTO10	//STORE VALUE IN USERS BUFFER
	ISZ R1CNT
	 JMP R1WEL	//MORE TO DO
R1OUT,	JMS MONITOR
	   EXIT SWPOUT

R1USEF,	0		/SUBR. TO SET DF TO USERS'
R1CDF,	CDF
	JMP I R1USEF

R1BG,	0
R1CNT,	0
	R1ARG,	0
R1ERR,	0
R1BUF,	0