6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2024-06-25 19:29:49 +00:00
Code Issues Projects Releases Wiki Activity

CoCo: Examples and tests

Browse Source
This commit is contained in:
Karol Stasiak 2020-07-31 16:07:39 +02:00
parent d77ecba518
commit 4e1958d831
6 changed files with 157 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/README.md
View File

@ -17,7 +17,7 @@ If you are using a release version of the compiler, consider browsing the older
* [Fizzbuzz](crossplatform/fizzbuzz.mfk) (C64/C16/PET/VIC-20/PET/Atari/Apple II/BBC Micro/ZX Spectrum/PC-88/Armstrad CPC/MSX/X16) – everyone's favourite programming task
* [Fizzbuzz 2](crossplatform/fizzbuzz2.mfk) (C64/C16/PET/VIC-20/PET/Atari/Apple II/BBC Micro/ZX Spectrum/PC-88/Armstrad CPC/MSX) – an alternative, more extensible implemententation of fizzbuzz
* [Fizzbuzz 2](crossplatform/fizzbuzz2.mfk) (C64/C16/PET/VIC-20/PET/Atari/Apple II/BBC Micro/ZX Spectrum/PC-88/Armstrad CPC/MSX/CoCo) – an alternative, more extensible implemententation of fizzbuzz
* [Fizzbuzz JP](crossplatform/fizzbuzz_jp.mfk) (PC-88/Japanese C64) – Fizzbuzz, but in Japanese
@ -39,7 +39,9 @@ If you are using a release version of the compiler, consider browsing the older
* [Life](crossplatform/life.mfk) (C64/C16/Atari/ZX Spectrum) – Conway's game of life
* [Test suite](tests) (C64/C16/Atari/Apple II/BBC Micro/Armstrad CPC/ZX Spectrum/PC-88) – the semi-official test-suite for Millfork
* [Reg dump](crossplatform/regdump.mfk) (C64/C16/ZX Spectrum/CoCo) – a program that simply prints the initial values of CPU registers
* [Test suite](tests) (C64/C16/Atari/Apple II/BBC Micro/Armstrad CPC/ZX Spectrum/PC-88/CoCo) – the semi-official test-suite for Millfork
## Commodore 64 examples

7
examples/crossplatform/fizzbuzz2.mfk
View File

@ -9,10 +9,17 @@ struct stage {
pointer text
}
#if ENCODING_NOLOWER
array(stage) stages = [
stage(divisible3.pointer, "FIZZ"z),
stage(divisible5.pointer, "BUZZ"z)
]
#else
array(stage) stages = [
stage(divisible3.pointer, "fizz"z),
stage(divisible5.pointer, "buzz"z)
]
#endif
void main() {
byte i, s

136
examples/crossplatform/regdump.mfk Normal file
View File

@ -0,0 +1,136 @@
import stdio
struct reg {
pointer name
byte size
}
#if ARCH_6502
const array(reg) reg_defs = [reg("A"z, 1),reg("X"z, 1),reg("Y"z, 1),reg("S"z, 1),reg("P"z, 1),reg("PC"z, 2)]
macro asm void save_regs() {
JSR save_regs_inner
save_regs_inner:
STA reg_values
STX reg_values + 2
STY reg_values + 4
PHP
PLA
STA reg_values + 8
TSX
STX reg_values + 6
PLA
TAY
PLA
TAX
CPY #2
BCS save_regs_pcl_large
DEX
save_regs_pcl_large:
DEY
DEY
STY reg_values + 10
STX reg_values + 11
}
#elseif ARCH_6809
const array(reg) reg_defs = [reg("D"z, 2),reg("X"z, 2),reg("Y"z, 2),reg("U"z, 2),reg("S"z, 2),reg("CC"z, 1),reg("DP"z, 1),reg("PC"z, 2)]
macro asm void save_regs() {
PSHS PC
STD reg_values
TFR CC,B
STB reg_values+10
STB reg_values+11
STX reg_values+2
STY reg_values+4
STU reg_values+6
PULS D
SUBD #2
STD reg_values+14
STS reg_values+8
TFR DP,B
STB reg_values+12
STB reg_values+13
}
#elseif CPUFEATURE_Z80
#pragma zilog_syntax
const array(reg) reg_defs = [reg("AF"z, 2),reg("BC"z, 2),reg("DE"z, 2),reg("HL"z, 2),reg("SP"z, 2),reg("IX"z, 2),reg("IY"z, 2),reg("PC"z, 2)]
macro asm void save_regs() {
CALL save_regs_inner
save_regs_inner:
LD (reg_values+6),HL
PUSH AF
POP HL
LD (reg_values+0),HL
LD (reg_values+2),BC
LD (reg_values+3),DE
POP HL
LD B, $ff
LD C, $fd
ADD HL,BC
LD (reg_values+14),HL
LD (reg_values+10),IX
LD (reg_values+12),IY
}
#elseif ARCH_I80
#pragma intel_syntax
const array(reg) reg_defs = [reg("AF"z, 2),reg("BC"z, 2),reg("DE"z, 2),reg("HL"z, 2),reg("SP"z, 2),reg("PC"z, 2)]
macro asm void save_regs() {
CALL save_regs_inner
save_regs_inner:
LD (reg_values+6),HL
PUSH AF
POP HL
LD (reg_values+0),HL
LD H,B
LD L,C
LD (reg_values+2),HL
EX HL,DE
LD (reg_values+3),HL
POP HL
LD B, $ff
LD C, $fd
ADD HL,BC
LD (reg_values+10),HL
}
#else
#error unsupported architecture
#endif
array(word) reg_values[reg_defs.length]
void main() {
word w
byte i
pointer.reg r
save_regs()
ensure_mixedcase()
for i,r:reg_defs {
putstrz(r->name)
putchar('=')
w = reg_values[i]
if r->size == 1 {
putchar(hi_nibble_to_hex(w.lo))
putchar(lo_nibble_to_hex(w.lo))
} else {
putchar(hi_nibble_to_hex(w.hi))
putchar(lo_nibble_to_hex(w.hi))
putchar(hi_nibble_to_hex(w.lo))
putchar(lo_nibble_to_hex(w.lo))
}
new_line()
}
while true {}
}

2
examples/tests/framework.mfk
View File

@ -4,7 +4,7 @@ pointer current_suite_name
byte current_test_number
word failure_count = 0
#if ZX_SPECTRUM || CBM || NEC_PC88 || ATARI_8 || AMSTRAD_CPC || APPLE_2
#if ZX_SPECTRUM || CBM || NEC_PC88 || ATARI_8 || AMSTRAD_CPC || APPLE_2 || COCO
import keyboard
alias wait_after_failure = readkey

8
examples/tests/test_encconv.mfk
View File

@ -4,12 +4,12 @@ import scrstring
import string
void test_encconv() {
array buffer[256]
array buffer[16]
start_suite("encconv"z)
strzcopy(buffer, "test"z)
strzcopy(buffer, "test 132"z)
strz_to_screencode(buffer)
assert_equal(0, scrstrzcmp("test"scrz, buffer))
assert_equal(0, scrstrzcmp("test 132"scrz, buffer))
strz_from_screencode(buffer)
assert_equal(0, strzcmp("test"z, buffer))
assert_equal(0, strzcmp("test 132"z, buffer))
}

6
include/m6809/stdlib_6809.mfk
View File

@ -50,4 +50,8 @@ _lo_nibble_to_hex_lbl:
macro asm void panic() {
? JSR _panic
}
}
noinline asm word call(word register(x) routine) {
JMP ,X
}