$5000 [ [ TEST FOR THE LASER MODULATION LOOP [ USES DAC X TO SET MULT LEVEL [ USES DAC Y TO PULSE [ USES ADC 12 TO SAMPLE [ [ THIS ROUTINE DISPLAYS [ RESULT IN LINC AC [ STORES ALL VALUES IN FIELD 1 [ FOR LATER ANALYSIS [ [ RIGHT SW IS DAC X VOLTAGE [ LEFT SW IS INTRA-PULSE DELAY [ [ ASSUME LMB = 2 [ THIS MUST BE STARTED [ WITH PDP START SW DACX=6361 DACY=6362 HLT [ START FROM HERE CDF 10 CLA DCA DATA TAD LPGM ISSP [ LINC PROGRAM CLA TAD L10 ICON [ SPRING TO LIFE TAD L2 ICON NOP [ [ START WITH DACX LEVEL #BEGIN LAS DACX CLA [ [ WAIT LEFT SW TIME ILES SNA JMP GO [ SW = ZERO CIA DCA TOCK TAD TICKX DCA TICK ISZ TICK JMP p-1 ISZ TOCK JMP p-3 T [ [ PUT THE PULSE UP FOR A BIT #GO TAD UP DACY CLA TAD TICKX DCA TICK ISZ TICK JMP p-1 [ [ START LINC TO READ A TO D TAD L12 ICON CLA IAAC DCAi DATA ISZ DATA NOP [ [ PULSE DOWN AND GO BACK TAD DOWN DACY CLA JMP BEGIN T [ CONSTANTS #UP 1000 #DOWN 0 #TICKX -300 #TICK 0 #TOCK 0 #L12 12 #L10 10 #L2 2 #LPGM 1200 #DATA 0 [ [ [ LINC PROGRAM $5200 0 [ HLT 132 [ SAM 12 7200 [ JMP p-2