parkern@jacobs.CS.ORST.EDU (Neil Parker) (08/29/90)
This is a repost of my CHIRP program, which installs a new interruptable
beep routine which doesn't lock out interrupts. It is useful in
conjunction with programs such as Kermit, where it solves the dropped-
characters-after-control-G problem.
This version fixes a bug in the previous version where a 65C02 instruction
was executed before the machine type was tested to insure that it is indeed
safe to execute such an instruction. This caused the program to fail on an
Apple ][, ][+, or unenhanced //e.
BINSCII+SHRINKIT. IIGS required.
DISCLAIMER: Provided without guarantee of any kind. Use at your own risk.
- Neil Parker
--
Neil Parker parker@astro.uoregon.edu
nparker@cie.uoregon.edu parkern@jacobs.cs.orst.edu
parker@corona.uoregon.edu parkern@nyssa.cs.orst.edu
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
ICHIRP.SHK A0AkAAAACA(4IIAg12BAdAQLA0StA0AkAEmr
GVvTlzW6DYwlAAAAA0CAHwhWAAAAaBQLAcAHAEAAAAA4AKAAQCAAAAQDAAAAAAAA
GVvTpQF2BAAQAMAABAAAA8CAAAw4AQAAAAAAAAAAAAgAa9QFAcwGsAAAcoFAAAwB
A0CAHwhWAAAAAAAAAAAAAMAAAAAAAAAAAAQCAACAAAAAAAAAAAQAAAAAIDAAAAAA
CAgAAAAAuAAAAAgDAggwINEAQJVSPRkLAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAXBAAbDA)B0wtoq32EADapIRS0CEUiEAaQsBiQzdSHNSK40hTIKMdGMVY
yAJhAiNbGNPM6ggDmoDakJXSrMgSkeOFwMfeZsohEB02HMJEyMJhCRUanNSCGUcD
spOUGMDT3EJBkKcbzPZccwQgcueDHOTqYgoDALXOwBBarMIYGqHa1hTeLWsY2dTG
SNAFTmEJ2uDKCEA)0QJxwBebYGEdwgp7mvDXyhch5koyUTcDnqUCQQVxCOEdmOPk
p2pD8mdHmNbGOjoDSttXRjIt00B9muTQYMfoyk5ceaKcXGdcIzmCbOxh5PshwwJj
jyUb1NODQuJz4ZcZ8McJ7gADryaa6vtfQsB5M)tom3ekPTtb00FNm1J85eGO0CUb
mF1BozpD2PU2mPPd0g58hLA5Qntj5GMAoqtNm2wwJvJmeffD54AMoa(00wwYDjgG
oUCt2Mma7GWAETIEJokTW7KhO4koCqhM5C7QMot6WAdNOMsK6rniO2IrAjmw4kYO
FO6YEywIS4rqqOdOaXMwMOIeDKuM6QyoBCAW8kzQ8qC9zQZ8y0Y0KDP8uLDjNEB8
QKsoQYiLPO5YoPtN32kwyujEww4rDJJj(bQvMMmc4AUlvw4ovN9jsGPxDDP7IA0u
2M7Qyrmed)QSKPKOwBEJ6k7gjWmCQO8JBO6KyI)4(3SaDii8RFQx(EnKcbcEy4IV
hCBXmOyLTRtc4BEin8r8jTaWe76uIPKgQiNwKFsaDS3MGKTRlKRNCVTOq0czzR6U
qr)s1MCY6ow0FqICuMCriPuwp04eVcGDj0MLpu2FExstzKvSkUwLQEFsMip4PqCt
M04yQu1T507o3VchaoTO(YLgQ70N1QrcMNvTWloPOu2gFNcPpHFq1Ct6l9xp0qs6
4w8Nv7Y6wUJzoVYu7yuUUDVqtHLbLuIWqj8oZbtw(Tx0mYtbTS3b6)4NoC5KyNjO
WgilMCeomeCirEAaVKXMzcyoMNoYPERXug4eoS6jRmowPtIOmCCiIIGSIDFE20yS
uhv5yLa5IWbbADaIjWYIagUhRbJhkob9anmiGZalCrwHY4YRHk2a2KV(FHK6po(1
apYaOHJfMYgniHQqcKm2KpovHHmAIYeOGD1QzRQWF2jtsvPKaNhj2TACwsDTD9pq
mn4FDTDjnge)cAF3Nw9X2uMXXboBGVdVOJbvWIzxlNiS08s5ZFdzjDywYv904Bpe
wjsjOTX(ghG5fZd9269DG3QwhXMmDSy7Bttd5tJMuHf3b9LWqDVV3UaBc1KFOJ8s
AZ(ZBhOsGX0hSA0aQcmtvU3jx2)UuAaz0PjV1lSVexfGXbs)hEawqXFUJ10WfcF3
EVH(jMmf80fnwHJO3kc7MredICyz0zsPznHhhSRE9MDmMDiryhCRApo2iQAwEEAB
CgBJwYGDh2hlTmExUz8WfYj3lgn)rpfMCOAQ00C4MYOdULcBGoYmR)oxGSWIBPoo
XcppuFBRrknQmSN0ZIIASRO3YMYzlb6wlSsBbPHLiDt0jOpXkRPlsjmDIkhFDDaK
ZhcjjvOny92H0fCNswwpaAAajA27pRliq2bY2z8gzkZJpwMXkvOVFALDRGpMJxWz
H9Ercgp8GW3H6wSD0W6U4ASdiYIefNT2koq)8YCBEhQI8NFoEWjsBCDICpdCuzRk
MYYdMEYkdL2sQyY0hAjOjW05IsAJMDPCT4Eakw(dzWDwZIQCGAK0BA7NAQHCUkiA
gkQo26FYBfH)zCHhh4leg1QgyAF4gEsUJjmTA4p7EsigFoQgTEcAFAkqhjBEwLVC
uQ0JOLyt(tYCIT5p0yYikaeGYRCxRNw0gWmZyi04C5jPYhHz3MBxYaYmIs(ATodG
dfhBw6XqZYJtJbp0kn5Jp)6QeTNYWcM0fCIxMnY7ZK0GeEovtfFt7pU2bSjjhAb8
hMckQdlip0ipJEKBD3ZRW4oGt2BwMvUpd4RgiopgvmMyALnQWFtTf8qu5Ef0qjTL
Ao1iUkC02pQgXNQRcSkqJ48FqFUseYYQH37hfZjRrnpmk47jKCbHSq0qdKd0WZni
VgAEaorcHHRjcXAKikG3Jv(AAtMOq92BXoyKs3gAEmucPFTOBFsfa6I1GULpCRFp
jDJZmirrsvYmiNZMf1OhZPz6JxtjxXvJC3hyvPKkroMCRMmBbCqyFTkEKzq1c4U(
QAf5JUqJChvNircWmIqZrBFHCjGIA7sWMMZEnqYAKtUwTeE3kSZ2QUlNCbLY6ii1
adQfDLl2gS8GdvoW2cUkTIcdrojPK0w3g1AWc)HFwIA0bea3bg)clGXGI0fKGpiM
gCW0cYnQp3BjpycNNly2rZQJv8aGiysZVjnkNFlRTvCpP34mVeu7pBU8scpvNpiS
0YIZEtafPHKzr5ej0prImRT5x1FGjUL0GhZOx3xxMqIEqcoMmm80kHqzkAXdNiBo
hbTDrAO76OZIzyRqjhVQSz2wuSKc8ABFDrFnz6Cn8cOGJhW6IIAMRDtsWEk)piQt
reqkpCI0iWc(CAXRS5QFkZCBfESoUUbLFqHOhk0sYNVCm6pw(JGkSLRszmLNVfAA
D)w1T1lsvZrIbC8xI6OlrDkeXsFiQK5QAFGvIqIzU57WOCXvks0kcMQdnIJiHyPI
oUnVOnRSV5BkyGc1IYq5Ctku4Czkz2NYbcrcvDAX7aZUxRBKUDxAOYKkMw2bJtyG
9w)VLkXXA5L3eMEcvdIWAubhwRX4I3BesvFexRGyWHxvRf7c0cgg24AwcHQmVAqg
ljnrCUlKSh1ihINQETOlMWsusTsVWuclMfeeUpyapxktnmjZhGtIMJ)gPjz5LEWd
c4(C(KK5rkqgEDFaLOB)56gnAw7FFs4eq1QgZUEQ89MQOGpFkSwggrfIJrTIZkG9
YIq7XlwEJr4vc33wxzpropuqbyqZzgDg8ZQk96Q6d0kGRSidO3iBiQrudp8o4OAI
ngbEBjqMCMMzfv5Aw1gKSlr)G2DGK2cXaqxIg3o31DC7AMAb9h4)lBANGVvTaqD2
BAAQAIAABAAAA8CAAAw4AYAAAAAAAAAYAAQAa5wBAMQHyAAAboVDAAwBA0CAHwhW
AAAAAAAAAAAAAMAAAAAAAAAAAAQBAACACAAAAAAAAAAABkFAZBAAAAQAJh0QAAlU
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAADHWISnMy2DK0z6as5LOol7Mogye6
yHO0yX(64AQj()BIgkCkUHWIznO6yDPoyf(7g2e4xXu8yne9gOf5g6e4wDfwgWO7
HncyA0407jBYIBjwbQPSDIKAAISEoFOAIkOOGUIAIUIaNbwpQHGQCAqMGcLAhJUz
4gC0hAy(sHcYyXO90Hu7iDa5sze5sHOohXu8gmP5z7e6sHO9kXO7gBQjYYQpAgQa
hRUjNiQpIFmRAQPSZQPABQPAYQPAAQPwAQPACIKAAISC6HOAfApehAy(vPcYkze9
0fq7sHOoj)O7lTf4hjOosTu7A0Y5GYIYniAhgqqB3CgAIUoBibghYAKIAlLAGcZY
4DBi0DiwUDwGGUKCIkGGiiEAiAxAhDAAgtPOGUIaHUIamDAoCAtBxeg5GAvB93OI
hlCTIdQpIZQplJEYAAXRAAAA)Lq2Qj4mw8a)KDOw6XP0OtGGYbU9AlgvAEAAAAgA
AEAAjDwLAAAAAAgBgBAABAAAQAAAdolDAAwAO8AAHshWAAAAaBQLAcAHAAAAAAAA
AAAAAAwAAAAAHAAAAAAAAAAIAIAAAAAAAAAAAAQ7A0OAVBAAINkTQJVSAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAODCAOXNYJj8wgCt0uGr9iD6sODa(sne5hDNolvu8
A0o8fACOpAp)g5MIpjO1wD68n)u8tHu8lLPopXf8zXu8uHOowHMolzO8JnMoNO9x
YAGAwI8(0jESiCwGiExAhDAApjDaFCACFimBGcKCgpczgqA03CgAM3sBkAPYgsPO
BDmzlTP7h7u8gWO9sXu4uDK7gS)7z7e6sHO9kXO7gBQjAsB9AYAoIZwt3iIiiikB
iAxAhDAAUjESGQNCaIgoAAgICIa4AICE4EOACB2(wVUZGUIaHUIamDAoCAtBxeg5
GAvB93OIgZNTIdQpIZQpAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AIBI