原创 ABEL语言示例

module _HotPower "模块HotPower
title '_HotPower 语音系统所用 GAL 16V8 ABEL语言源程序'"标题
    HotPower device 'p16v8s'; "器件标识为GAL16V8

wr,a0,a1,a2,a3,a4,p13,p14,p15,oe pin 1,2,3,4,5,6,7,8,9,11; "输入管脚标识
led0,led1,msp,key,addr,wdog,nc,snd pin 19,18,17,16,15,14,13,12; "输出管脚标识
H,L,X,Z=1,0,.X.,.Z.; "代换
equations "高级布尔方程

led0 =  a4 &  a3 &  a2 &  a1 & !a0 & p14 & p13 & !wr;"地址0fffeh,个位显示片选
led1 =  a4 &  a3 &  a2 & !a1 &  a0 & p14 & p13 & !wr;"地址0fffdh,十位显示片选
msp  =  a4 &  a3 & !a2 &  a1 &  a0 & p14 & p13 & !wr;"地址0fffbh,msp53c39n12d片
选
key  =  a4 & !a3 &  a2 &  a1 &  a0 & p14 & p13 & !wr;"地址0fff7h,键盘片选
addr = !a4 &  a3 &  a2 &  a1 &  a0 & p14 & p13 & !wr;"地址0ffefh,地址扩展片选

!wdog = !p14 # !p13;"喂狗,X25045片选
!snd  =  p15;"内音(p15=0)外音(p15=1)转换
fuses"电子标签HotPower
[2056..2063]='H';
[2064..2071]='o';
[2072..2079]='t';
[2080..2087]='P';
[2088..2095]='o';
[2096..2103]='w';
[2104..2111]='e';
[2112..2119]='r';
end _HotPower  "模块_HotPower 结束