archive.worldofdragon.org

Another crazy priced item here.

http://www.ebay.co.uk/itm/VINTAGE-DRAGO ... 43bf7724f0

I have the exactly the same items in perfect condition (would never sell or use them). Seems like they are becoming more valuable than gold dust!

894886.25 when a Dragon is fitted with a 14.31818 MHz crystal. 888625 when a Dragon is fitted with a 14.218 MHz crystal.

The cursor keys seem to be working correctly now.

This triggered a lot of rethinking of keyboard handing in XRoar - and led me to discover that the UK isn't the only region that Apple decide to make non-standard keyboard layouts for! Anyway, I've pushed up a snapshot here: http://www.6809.org.uk/tmp/xroar/ which will load d200e_1.rom, d200e_2.rom ...

Rink wrote:Hahahah. Is this becoming a bit of an obsession for you mate?

Great work though.

Thanks!

The following method is now considerably faster than my original code. The .CAS files are attached. Hexadecimal example 10 CLS 20 LINE INPUT"START ADDRESS (HEX) >";M$ 30 IF M$="" THEN 10 40 M=VAL("&H"+M$):E$=CHR$(10):X=0:FOR L=1TO15 50 IF M+X=65536 THEN M=0:X=0 60 P$="":A$=HEX$(M+X):T=PEEK(M+X):IF L...

Oh!!! It's this: 1030 DATA 1F,A9 ' TFR CC, B 1040 DATA FD,45,00 ' STD $4500 ; STORE A+B :o Comments not striped in DATA ??? Boring :x The only way to add comments is to add an extra REM line after each data line. 1030 DATA 1F,A9 1031 ' TFR CC,B 1040 DATA FD,45,00 1041 ' STD $4500 ; STORE A+B

The following method is slightly faster than my original code. Hexadecimal example 10 CLS 20 LINE INPUT"START ADDRESS (HEX) >";M$ 30 IF M$="" THEN 10 40 M=VAL("&H"+M$):E$=CHR$(10):X=0:FOR L=1TO15 50 IF M+X=65536 THEN M=0:X=0 60 P$="":A$=HEX$(M+X):T=PEEK(M+X):IF LEN(A$)<4 THEN FOR Z=1TO 4-LEN(A$):P$=...

There is an error in line 20 of your program. It should be as follows. 1 CLS:GOTO 100 5 ' CREATE BITS 10 DIM BI(9) 20 TMP = PEEK(BY) 30 FOR BP = 7 TO 0 STEP -1 40 BV = INT(2 ^ BP) 50 IF TMP>=BV THEN TMP=TMP-BV : BI(BP)=1 ELSE BI(BP)=0 60 NEXT BP 70 RETURN 99 ' START 100 INPUT "START BYTE:";BY$ 105 I...