[Coco] Disk Edtasm patch ( Found Some Errors )

[Mark D. Overholser]

On 29-Mar-17 11:58, Bill Nobel wrote:
> Hey all
>
> I am trying to track down the patched version of Disk Edtasm for 80
> columns on the Coco 3.  I did find a portion of it in the January
> 1988 issue of Rainbow, but it is missing some lines of code.  Anyone
> know where I can get it?
>
> Bill Nobel b_nobel at hotmail.com<mailto:b_nobel at hotmail.com>
>
>
>
>

Please Check for Typos!!!!!!  ( FOUND SOME ALREADY!!! )

Hmm..  The READ looks for a DATA Value of END, but there is no DATA 
statements with END......   ( I added One )

======================================================

Disk EDTASM on CoCo 3
How can I use disk EDTASM with my CoCo 3?
Josh Abrams
Brooklyn. NY

Rx Thanks to Roger A. Krupski for the following patches for disk EDTASM, 
which will allow proper operation in 40-width and 80-width on the CoCo 
3. To make EDTASM boot up automatically rather than having to type 
EDTASM, just add the following line to the DOS.BAS program: 1 REMEDTASM.
Note there is no space after REM. Use the following program to make the 
necessary patches to EDTASM.BIN:

The listing: PATCH
100 ' COPYRIGHT (C) 1987 BY:
110 ' ROGER A. KRUPSKI
120 '
260 A$=HEX$(PEEK(&HFFFE))+HEX$(PEEK(&HFFFF))
270 IF A$<>"8C1B" THEN CLS : PRINT "ONLY FOR THE COCO-3!":END
280 POKE &H9692,17
290 PCLEAR 16
300 POKE &H9692,9
310 PALETTE 12,63
320 PALETTE 13,0
330 WIDTH 32: CLS: VERIFY ON
340 IF FREE ( PEEK (&H95A))<7 THEN PRINT"DISK TOO FULL!":END
350 PRINT"PATCHS FOR DISK EDTASM TO RUN"
360 PRINT"ON THE COCO-3 IN 80 COLUMNS"
370 PRINT
380 PRINT"INSERT A COPY (NOT ORIGINAL)"
390 PRINT"OF YOUR DISK EDTASM AND PRESS"
400 PRINT "<ENTER> WHEN READY TO PATCH"
410 A$=INKEY$
420 IF A$=CHR$(13) THEN 440
430 GOTO 410
440 PRINT"LOADING EDTASM..."
450 RENAME"EDTASM.BIN" TO "EDTASM.OLD"
460 LOADM" EDTASM.OLD"
470 PRINT"PATCHING EDTASM..."
480 READ AD$,DT$
490 IF AD$="END" THEN 520
500 POKE VAL("&H"+AD$),VAL("&H"+DT$)
510 GOTO 480
520 PRINT"SAVING PATCHED VERSION..."
530 SAVEM"EDTASM.BIN" ,&H1600 , &H4A7F,&H1600
540 PRINT"DONE!"
550 PCLEAR 4: CLEAR 200,&H7FFF:NEW
560 DATA 1617,84, 1643,31, 1D18,7F, 1D19,FF
570 DATA 1D1A,DE, 1D1B,6E, 1D1C,9F, 1D1D,FF
580 DATA 1D1E,FE, 1D1F,12, 1D20,12, 1D21,12
590 DATA 1D22,12, 1D23,12, 1D3F,BD, 1D40,A1
600 DATA 1D41,B1, 1D42,12, 1D7A,10, 23B8,31
610 DATA END, END





MarkO