DO: PRINT #1, "OUTPUT 4;ISR?" ' Query status register.
PRINT #1, "ENTER 4"
INPUT #2, S
LOOP UNTIL (S AND &H1000) ' Test settle bit.
RETURN
'
EndProg: ' Close files, end program.
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 4;STBY"
PRINT #1, "OUTPUT 16;:SYST:PRES"
PRINT #1, "LOCAL 4 16"
CLOSE
END
'
CmdList:
DATA "Connect low-thermal short to inputs, wait 3 minutes.","DC:STEP1"
DATA "Disconnect low-thermal short from inputs.","DC:STEP2"
DATA "OUT 10 V,0 HZ","DC:STEP3 10"
DATA "OUT -10 V","DC:STEP4 -10"
DATA "OUT 100 V","DC:STEP5 100"
DATA "OUT 1 KOHM","DC:STEP6"
DATA "OUT 10 KOHM","DC:STEP7"
DATA "OUT 100 KOHM","DC:STEP8"
DATA "OUT 1 MOHM","DC:STEP9"
DATA "OUT 10 MA","DC:STEP10 10E-3"
DATA "OUT 100 MA","DC:STEP11 100E-3"
DATA "OUT 1A","DC:STEP12 1"
DATA "OUT 10 MV,1 KHZ","AC:STEP1"
DATA "OUT 100 MV,1 KHZ","AC:STEP2"
DATA "OUT 100 MV,50 KHZ","AC:STEP3"
DATA "OUT 1 V,1 KHZ","AC:STEP4"
DATA "OUT 1 V,50 KHZ","AC:STEP5"
DATA "OUT 10 V,1 KHZ","AC:STEP6"
DATA "OUT 10 V,50 KHZ","AC:STEP7"
DATA "OUT 100 V,1 KHZ","AC:STEP8"
DATA "OUT 100 V,50 KHZ","AC:STEP9"
DATA "OUT 700 V,1 KHZ","AC:STEP10"
DATA "OUT 100 MA,1 KHZ","AC:STEP11"
DATA "OUT 1 A,1 KHZ","AC:STEP12"
DATA "OUT 2 A,1 KHZ","AC:STEP13"
Calibration Program C-5