.SBTTL FADC - ADC FUNCTION (LPS) ; ; ;--- CALL IS OF THE FORM: ; ; S ANSWER=FADC(CHANNEL) ; ; THIS WILL RETURN A VALUE IN THE RANGE OF 0-4095 FOR ; THE SPECIFIED CHANNEL. ; .GLOBL FADC,LPSCSR,LPSBUF ;FOR EXTERNAL PEOPLE ; FADC: FPMP FINT ;GET THE CHANNEL NUMBER SWAB AC ;SET INTO THE HIGH BYTE INC AC ;AND SET GO BIT MOV AC,@#LPSCSR ;SEND TO THE LPS TSTB @#LPSCSR ;WAIT FOR IT BPL .-4 ;CONTINUE MOV @#LPSBUF,AC ;GET IT BACK BIC #170000,AC ;REID OF JUNK FPMP FLOAT ;MAKE A GOOD NUMBER POPJ ;RETURN FOR USER CONVERSION