稳压程序的具体实现取决于所需的稳压电源类型、微控制器或微处理器以及应用的具体要求。以下是一个基于AT89C2051单片机的简单数字可调稳压电源的C语言源程序示例，该程序通过PWM（脉宽调制）来稳定输出电压。
```c
include
define uchar unsigned char
define uint unsigned int
// 定义PWM相关变量
uchar period = 0x00； // PWM周期，单位：us
uchar duty = 0x00； // PWM占空比
// 定义ADC相关变量
uchar ADC_CONTR = 0x88； // ADC控制寄存器
uchar ADC_FLAG = 0x01； // ADC标志位
uchar ADC_DATA = 0x00； // ADC数据寄存器
// 初始化函数
void init（） {
// 初始化PWM
P1M0 = 0x01； // 设置P1.0为输出
P1M1 = 0x00； // 设置P1.1为输出
EA = 1； // 开总中断
EX0 = 1； // 启用INT0中断
IT0 = 1； // 设置INT0为边沿触发
TMOD = 0x11； // 设置定时器0和1为模式1
TH0 = （65536 - 5000） / 256； // 设置定时器0的初始值
TL0 = （65536 - 5000） % 256； // 设置定时器0的初始值
TH1 = （65536 - 5000） / 256； // 设置定时器1的初始值
TR1 = 1； // 启动定时器1
// 初始化ADC
ADC_CONTR &= 0x1F； // 清除ADC控制寄存器中的位0-4
ADC_CONTR |= 0x10； // 设置ADC为单次转换模式
}
// PWM输出函数
void setPWM（uchar duty_cycle） {
period = 10000 - duty_cycle * 10000 / 255； // 计算PWM周期
duty = duty_cycle；
P1 = （P1 & 0xF0） | （duty >> 4）； // 设置P1.1-P1.3为占空比的低4位
P1 = （P1 & 0x0F） | （duty & 0x0F）； // 设置P1.0为占空比的高4位
}
// ADC采样函数
void ADC_sample（） {
while （（ADC_CONTR & 0x10） != 0x10）； // 等待ADC采样完成
ADC_CONTR = 0x88； // 清除ADC标志位
ADC_DATA = ADC_DATA； // 读取ADC数据
}
// 主函数
void main（） {
init（）； // 初始化
while （1） {
ADC_sample（）； // 采样电压
setPWM（duty_cycle）； // 根据采样值设置PWM占空比
}
}
```
这个程序实现了一个简单的数字可调稳压电源，通过采样输入电压并调整PWM的占空比来稳定输出电压。程序中包含了初始化函数、PWM输出函数和ADC采样函数。
请注意，这只是一个示例程序，实际应用中可能需要根据具体需求进行调整和优化。例如，可能需要添加错误处理、调整PWM频率、优化ADC采样逻辑等。此外，对于更复杂的稳压电源系统，可能还需要考虑电源管理、保护电路、散热设计等方面的问题。