Re: HP41 ROM Checksum Message #4 Posted by Mike (Stgt) on 25 Oct 2004, 1:11 p.m., in response to message #1 by Meindert Kuipers
Here my PIPE routine for that, hope that helps:
* * * Top of File * * *
/* test checksum of hp-41 modules */ signal on error
'PEEKTO s'; if words(s) > 1 then s = 2; else s = 1
'CALLPIPE *:!spec pad 0 w' s '2!spec w1 x2d!spec',
'printonly eof a: w1 . set #0+=a eof print #0 1!var s'
do while s >= 1024; s = s // 1024 + s % 1024; end
'OUTPUT' s
error:; exit rc * (rc <> 12)
* * * End of File * * *
Ciao.....Mike
Edited: 25 Oct 2004, 1:11 p.m.
|