This is a multi-part message in MIME format. --Boundary_(ID_Eyzt0OxnqFd0rz0zmgHk6w) Content-type: text/plain; charset=us-ascii Content-transfer-encoding: 7BIT I re-attached it. I wrote this code about 6 years ago... Scott Dattalo wrote: > > On Wed, 11 Apr 2001, Antonio L Benci wrote: > > > (I accidently deleted the original post - hence the double quotes). > > Could you post the code in question? If you're refering to the classic 6 > instruction subtract: > > ;XH:XL YH:YL > > movf yl,w > subwf xl,w > movf yh,w > skpz > ;; piclist webpage has this--> incf yh,w ;propagate the carry from the... > incfsz yh,w ;propagate the carry from the low byte subtraction. > subwf xh,w > > skpnc > goto x_is_greater_than_or_equal_to_y > > I'm not the original author. I think Bob also got accused of writing that code > too. But in reality it predates both of us by years. There's nothing wrong with > the code, by the way (except that the incf should've been an incfsz). > > Scott > Nino. -- ------------------------------------------------------ | Antonio (Nino) L. Benci | | Professional Officer, Electronic Services | | School of Physics & Materials Engineering | | Monash University | | email: nino.benci@spme.monash.edu | | T: 61 3 9905 3649. F: 61 3 9905 3637 | | M: 0414 924 833 | ------------------------------------------------------ --Boundary_(ID_Eyzt0OxnqFd0rz0zmgHk6w) Content-type: application/x-unknown-content-type-asm_auto_file; name=16bitcmp.asm Content-disposition: inline; filename=16bitcmp.asm Content-transfer-encoding: base64 OyoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq KioqKioqKioqKioqKioNCjsgQSBub3QgdG9vIG9wdGltaXNlZCAxNiBiaXQgY29tcGFyZSBy b3V0aW5lIGZvciAxNiBhYnNvbHV0ZSB2YWx1ZXMsDQo7IGllIDAgLT4gNjU1MzYuDQo7IENv bXBhcmUgV09SRCB0byBDT01QIChhIHdvcmQgdmFsdWUpLg0KOyBJZiBXT1JEID0gQ09NUCBy ZXR1cm4gd2l0aCAwMA0KOyBJZiBXT1JEID4gQ09NUCByZXR1cm4gd2l0aCAwMQ0KOyBJZiBX T1JEIDwgQ09NUCByZXR1cm4gd2l0aCA4MA0KOyoqKioqKioqKioqKioqKioqKioqKioqKioq KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioNCiBpbmNsdWRlCSJw MTZjNXguaW5jIiAgICAgICAgOyBpbmNsdWRlIGZpbGUgZm9yIHByb2Nlc3NvciB0eXBlDQoN Cmh3b3JkICAgZXF1ICAgICAweDEwICAgICAgICA7IHN0b3JhZ2UgZm9yIGhpZ2ggYnl0ZSBv ZiBXT1JEDQpsd29yZCAgIGVxdSAgICAgaHdvcmQrMSAgICAgOyBzdG9yYWdlIGZvciBsb3cg Ynl0ZSBvZiBXT1JEDQpoY29tcCAgIGVxdSAgICAgMHgxMiAgICAgICAgOyBzdG9yYWdlIGZv ciBoaWdoIGJ5dGUgb2YgQ09NUA0KbGNvbXAgICBlcXUgICAgIGhjb21wKzEgICAgIDsgc3Rv cmFnZSBmb3IgbG93IGJ5dGUgb2YgQ09NUA0KDQpDT01QDQogICAgbW92ZncgICBoY29tcCAg ICAgICAgICAgOyBnZXQgaGlnaCBieXRlIG9mIGNvbXAgdmFsdWUNCiAgICBzdWJ3ZiAgIGh3 b3JkLDAgICAgICAgICA7IHN1YnRyYWN0IHZhbHVlcw0KICAgIGJ0ZnNjICAgc3RhdHVzLHog ICAgICAgIDsgZmlyc3QgY2hlY2sgaWYgcmVzdWx0IGlzIDANCiAgICBnb3RvICAgIENPTVBM ICAgICAgICAgICA7IGlmIHplcm8gY29tcGFyZSBsb3cgYnl0ZXMNCiAgICBidGZzYyAgIHN0 YXR1cyxjICAgICAgICA7IGVsc2UgdGVzdCBjYXJyeSBiaXQNCiAgICByZXRsdyAgIDB4MDEg ICAgICAgICAgICA7IGlmIFdPUkQgPiBDT01QLCByZXR1cm4gd2l0aCAwMWgNCiAgICByZXRs dyAgIDB4ODAgICAgICAgICAgICA7IGlmIFdPUkQgPCBDT01QLCByZXR1cm4gd2l0aCA4MGgN Cg0KQ09NUEwNCiAgICBtb3ZmdyAgIGxjb21wICAgICAgICAgICA7IGdldCBsb3cgYnl0ZSBv ZiBjb21wIHZhbHVlDQogICAgc3Vid2YgICBsd29yZCwwICAgICAgICAgOyBzdWJ0cmFjdCB2 YWx1ZXMNCiAgICBidGZzYyAgIHN0YXR1cyx6ICAgICAgICA7IGZpcnN0IGNoZWNrIGlmIHJl c3VsdCBpcyAwDQogICAgcmV0bHcgICAweDAwICAgICAgICAgICAgOyBpZiByZXN1bHQgaXMg MCwgcmV0dXJuIHdpdGggMDANCiAgICBidGZzYyAgIHN0YXR1cyxjICAgICAgICA7IGlmIGMg c2V0IHRoZW4gV09SRCA+IENPTVANCiAgICByZXRsdyAgIDB4MDEgICAgICAgICAgICA7IGlm IFdPUkQgPiBDT01QLCByZXR1cm4gd2l0aCAwMWgNCiAgICByZXRsdyAgIDB4ODAgICAgICAg ICAgICA7IGlmIFdPUkQgPCBDT01QLCByZXR1cm4gd2l0aCA4MGgNCg0KZW5kDQoNCg== --Boundary_(ID_Eyzt0OxnqFd0rz0zmgHk6w) Content-type: text/x-vcard; name=Nino.Benci.vcf; charset=us-ascii Content-description: Card for Antonio L Benci Content-disposition: attachment; filename=Nino.Benci.vcf Content-transfer-encoding: 7BIT begin:vcard n:Benci;Antonio L tel;cell:0414 924 833 tel;fax:+61 3 9905 3637 tel;home:0414 924 833 tel;work:+61 3 9905 3649 x-mozilla-html:FALSE url:http://www.physics.monash.edu.au/~ninob org:Monash University;School of Physics & Materials Engineering version:2.1 email;internet:Nino.Benci@spme.monash.edu title:Professional Officer, Electronic Services adr;quoted-printable:;;PO Box 27=0D=0ASchool of Physics and Materials Engineering=0D=0AMonash University;Monash University;VIC;3800;Australia x-mozilla-cpt:;10672 fn:Antonio L Benci end:vcard --Boundary_(ID_Eyzt0OxnqFd0rz0zmgHk6w)-- -- http://www.piclist.com hint: To leave the PICList mailto:piclist-unsubscribe-request@mitvma.mit.edu