程序新程序； //本程序使用Turbo51(3359Turbo51.com)单片机PASCAL编译器////本程序测试外部中断1 //CPU电路图。 例1 //8051单片机的外部中断有EX0和EX1两个，对应的IO为P3.2和p3.3//kg，const BEEP_ON=FALSE； //在低水平下发出蜂鸣器的BEEP_OFF=TRUE； //观测器var LED:byte absolute P1； FM :布尔分析0.7； //定义中断程序，中断编号External1在系统中定义procedure OnKeypress； interrupt External1； using 2； begin LED:=NOT LED； 结束； begin//main//环境初始化ea :=相当于true//全局断开EA:=True； //外部中断1 on it 1:=false； //设定为低电平触发中断1 LED:=$FF； //FM:完全不点亮=beep_off； //循环中的命令中断同步，进入whiletruedobegindelayms(500； FM:=NOT FM； 结束； end. //main end