Received: by KSUVM (Mailer R2.07) id 5568; Thu, 04 Oct 90 00:20:56 CDT Date: Thu, 4 Oct 90 01:17:49 EDT Reply-To: Apple II List Sender: Apple II List From: list-redistribution@relay.cdnnet.ca Subject: CHIRP--Interruptable Bell for IIGS (bug fix) To: "Steven E. Nelson" 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