a2kit 4.4.2

Retro disk image and language utility
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

//! Test of data-like pseudo operations.

use crate::lang::merlin::MerlinVersion;
use crate::lang::merlin::settings::Settings;

#[cfg(test)]
fn test_assembler(test_code: &str,expected: &str,vers: MerlinVersion) {
    let mut config = Settings::new();
	let mut assembler = super::super::assembly::Assembler::new();
    config.version = vers;
    assembler.set_config(config);
	// get actual into hex string
    let end = test_code.lines().count() as isize;
	let bytes = assembler.spot_assemble(test_code.to_string(),0,end,None).expect("assembler failed");
    let actual = hex::encode_upper(bytes);
	assert_eq!(actual,expected.replace(" ",""));
}

#[test]
fn dfb() {
    let test_code = "   dfb   $030201,>$030201,^$030201\n";
    let expected = "01 02 03";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   dfb   $ff,150,%11\n";
    let expected = "FF 96 03";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}

#[test]
fn da() {
    let test_code = "   da    $030201,>$030201,^$030201\n";
    let expected = "01 02 02 03 03 00";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   da    $fded,40000,%101101011\n";
    let expected = "ED FD 40 9C 6B 01";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}

#[test]
fn ddb() {
    let test_code = "   ddb   $030201,>$030201,^$030201\n";
    let expected = "02 01 03 02 00 03";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   ddb   $fded,40000,>%101101011\n";
    let expected = "FD ED 9C 40 00 01";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}

#[test]
fn adr() {
    let test_code = "   adr   $04030201,>$04030201,^$04030201\n";
    let expected = "01 02 03 02 03 04 03 04 00";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   adr   $01fded,100000,%101101011\n";
    let expected = "ED FD 01 A0 86 01 6B 01 00";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}

#[test]
fn adrl() {
    let test_code = "   adrl  $04030201,>$04030201,^$04030201\n";
    let expected = "01 02 03 04 02 03 04 00 03 04 00 00";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   adrl  $01fded,100000,%101101011\n";
    let expected = "ED FD 01 00 A0 86 01 00 6B 01 00 00";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}

#[test]
fn ds() {
    let test_code = "   ds  5,$fded\n";
    let expected = "ED ED ED ED ED";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   ds  5,>$fded\n";
    let expected = "FD FD FD FD FD";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = "   ds  5\n";
    let expected = "00 00 00 00 00";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}

#[test]
fn ds_new_page() {
    let test_code = " org $40f8\n   ds  \\,1\n";
    let expected = "01 01 01 01 01 01 01 01";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
    let test_code = " org $4000\n   ds  \\,1\n";
    let expected = "";
    test_assembler(test_code,expected,MerlinVersion::Merlin16Plus);
}