archive.worldofdragon.org

Simple6809 ROM started to work... RAM Test seems to work: $ ./DragonPy_CLI.py --cfg Simple6809Cfg --verbosity=30 --area_debug=5:db80-ffff logger name: DragonPy DragonPy - Dragon 32 emulator in Python None ------------------------------------------------------------------------------- set log level t...

Have made a big code change... Because i saw that i mismatch ea/m and byte/word :oops: Updated "6809 data script" -> https://github.com/jedie/DragonPy/commit/3e9727b8c32ba6e22d5e574956e46ba7b0cea194 Updated CPU code -> https://github.com/jedie/DragonPy/commit/a65f8567a5d691c31162726dd4c4af8f6baac6f1

Have now add a unittest in DragonPy with similar machine code and it seems that it works right: https://github.com/jedie/DragonPy/commi ... a04fcd4ace

I should test it on a real machine

I've also interpreted.
Thanks for the confirmation.

Next Question: | 08 0008 | LSL/ASL | DIRECT | 6 | 2 | naaas | | 24 0036 | BHS/BCC | RELATIVE | 3 | 2 | ----- | | 25 0037 | BLO/BCS | RELATIVE | 3 | 2 | ----- | | 48 0072 | LSLA/ASLA | INHERENT | 2 | 1 | naaas | | 58 0088 | LSLB/ASLB | INHERENT | 2 | 1 | naaas | | 68 0104 | LSL/ASL | INDEXED | 6 | 2 ...

1 GOTO 100 5 ' CREATE BITS 10 DIM BI(9) 20 TMP = 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 IF BY$ = "" THEN 170 ELSE BY=VAL(BY$)-1 110 FOR X = 1 TO 14 120 BY = BY + 1 130 G...

Tried this: 1010 DATA B6,50,00 ' LDA $5000 1020 DATA 8B,01 ' ADDA 1 1030 DATA 1F,A9 ' TFR CC,B 1040 DATA F7,50,01 ' STB $5001 1050 DATA B7,50,00 ' STA $5000 1060 DATA 39 ' RTS But gets strange behaviour in XRoar. Now i try to use STD EDIT: It the 1030 DATA 1F,A9 ' TFR CC,B what brings XRoar into tro...

zephyr wrote:The CC register is 8-bit.

Thanks!

I need a little bit help... again :roll: I created a small BASIC test program to display the CC registers. But doesn't work :roll: 10 ' TEST CC REGISTERS 20 LA=&H4000 ' LOAD / EXECUTE ADDRESS 25 PRINT "POKE MACHINE CODE TO: $";HEX$(LA) 30 PA = LA ' START ADDRESS FOR POKE 50 READ HB$ ' HEX CONSTANTS ...

NDUG Notebook http://archive.worldofdragon.org/index.php?title=Dragon_Notebook Ah, been there, too. So the Wiki page is the content of the printed book? NDUG Up-2-Date: http://archive.worldofdragon.org/archive/index.php?dir=Disks/Dragon/Up-2-Date/ Oh. Thought than this were text articles :shock: Wh...