[Coco] Trouble with check

[Robert Gault]

Michael C. Robinson wrote:
> On Sun, 2008-10-05 at 23:35 -0400, Robert Gault wrote:
>> Michael C. Robinson wrote:
>>> On Wed, 2008-10-01 at 13:14 -0400, Robert Gault wrote:
>>>> Michael C. Robinson wrote:
>>>> FC error in line100
>>>>> December 1989 page 47.  The program quits on line 100.  It could be a
>>>>> typo, but check doesn't work with drivewire.  It did work with my disk
>>>>> system way back.
>>>>>
>>> When I change line 100 to be 1 to 12 instead of 0 to 12, the program
>>> works.  Check works from tape just fine, but it doesn't work from
>>> drivewire.  It is a royal pain to transfer everything onto tape, surely
>>> there is a better solution.
>>>
>> I think I may have a version which will work with drivewire. I can't 
>> test it not having the software, but it does now work with RGBDOS.
>>
>> Mike, would you test it and let the list know the results?
>>
>> 10 REM CHECKPLUS
>> 20 LI=80
>> 30 FOR M=&H7FB2 TO &H7FF9 STEP10:SUM=0
>> 40 FOR I=0TO9:READA$:VA=VAL("&H"+A$):SUM=SUM+VA:POKE M+I,VA:NEXT:READ 
>> CHK:IFSUM<>CHK THEN PRINT"ERROR IN LINE"LI:END
>> 50 LI=LI+10:NEXT
>> 52 EXEC&H7FB2:END:' ALTERNATIVE FOR LINE60
>> 60 'SAVEM "CHKPLUS",&H7FB2,&H7FF9,&H7FB2:' ALTERNATIVE FOR LINE52
>> 70 END
>> 80 DATA B6, 1 , 6A, 86, 7E, B7, 1 , 6A, BE, 1 , 1030
>> 90 DATA 6B, 30, 8C, 4 , BF, 1 , 6B, 39, 81, A , 794
>> 100 DATA 26, 26, 34, 16, 4F, 9E, 19, E6, 81, 27, 810
>> 110 DATA C , AB, 80, AB, 80, E6, 84, 26, FA, 30, 1308
>> 120 DATA 1 , 20, F0, B7, 2 , DE, 30, 8C, E , 9F, 1041
>> 130 DATA A6, A6, 84, 1C, FE, BD, AD, C6, 35, 16, 1381
>> 140 DATA 7E, C5, BC, 87, FF, 86, 28, 37, 33, 34, 1233
>> 150 DATA 29, 0 , 00, 00, 00, 00, 00, 00, 00, 00, 41
> 
> Definitely need to use line 60 instead of 52.  Everytime
> I load or save via drivewire, the program gets wiped out
> or messed up somehow.  I can load the assembly language
> file and exec it no problem.  Thank you for posting this.
> 
> 

Glad it works. What I did is hard code the contents of $16A assuming the 
presence of a modified DOS1.1; which I expected to be used by HDBDOS as 
that's what is used by RGBDOS.

FlexiKey will not work after this program is installed, but you just 
need to cold restart to get it back. Also the above can't be used with 
DOS1.0 derivatives.