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

	SUBROUTINE ACCEPT(N1,K1,K2)
C PROGRAMM-WAHL FUER 3480B UEBER RMP
C AUTOMATISCHE BEREICHSWAHL
C FORTRAN II
C SR : IBIT.SB / AUS.FT
C  N1 : INHALT REGISTER #1
C  REGISTER/BIT : 1/11 3480B AC(AC) PROGRAM
C		: 1/10   "   OHMS PROGRAM
C	"	: 1/9    "   PROGRAM ACCEPT
C	"	: 1/8    "   FILTER B PROGRAM
C	"	: 1/7    "   FILTER A PROGRAM
C  K1 = 1 : AC-MESSUNG
C  K1 = 2 : OHM-MESSUNG
C  K1 = 3 : DC-MESSUNG
C  K2 = 1 : FILTER OUT
C  K2 = 2 : FILTER A
C  K2 = 3 : FILTER B
C MESSART WAEHLEN
	GOTO(1,2,3),K1
1	CALL ZBIT(N1,11)
	CALL SETB(N1,10)
	GOTO 5
2	CALL ZBIT(N1,10)
	CALL SETB(N1,11)
	GOTO 5
3	CALL SETB(N1,11)
	CALL SETB(N1,10)
C FILTER WAEHLEN
5	GOTO(6,7,8),K2
6	CALL SETB(N1,8)
	CALL SETB(N1,7)
	GOTO 10
7	CALL ZBIT(N1,7)
	CALL SETB(N1,8)
	GOTO 10
8	CALL ZBIT(N1,8)
	CALL SETB(N1,7)
C PROGRAM ACCEPT
10	CALL ZBIT(N1,9)
	CALL AUS(1,1,N1)
	CALL SETB(N1,9)
	CALL AUS(1,1,N1)
20	RETURN
	END