/READ API STATUS SUBROUTINE
/EXECUTION TIME:  21 MICROSECONDS
/CALLING SEQUENCE:  CALL APIS(PATTERN)
/   PATTERN: BIT 0=1: API IS ENABLED
/                 =0: API IS DISABLED
/            BIT 2+I=1: DEVICE REQUESTING
/                       SERVICE ON LEVEL I
/                   =0: NO DEVICE REQUESTING
/                       SERVICE ON LEVEL I
/            BIT 10+I=1: LEVEL I ACTIVE
/                    =0: LEVEL I INACTIVE
	.TITLE APIS
	.GLOBL APIS
APIS	0
	ISZ APIS
	LAC* APIS
	DAC PATTERN
	SPA
	LAC* PATTERN	/INDIRECT
	DAC PATTERN
	ISZ APIS	/BUMP TO EXIT
	RPL	/READ PRIORITY LEVELS
	DAC* PATTERN	/STORE PATTERN
	JMP* APIS
PATTERN
RPL=705512
	.END
