]>
git.gir.st - Chiptunes-pms150c.git/blob - bsv.c
ec2d3594704a1444acd52f7ad4e8ccac08298e8e
3 typedef unsigned char u8
;
12 0x84, 0x9d, 0xb0, 0x69, 0x9d, 0x84, 0x69, 0x58,
13 0x75, 0x8c, 0xb0, 0x69, 0x8c, 0x75, 0x69, 0x58
16 u8 mod3hi
, mod3lo
; //MEM
18 u8 x
= (mod3hi
+mod3lo
)>>8;
20 ADD(mod3lo
,acc
) // mod3lo = hi+lo
23 ADDC0(acc
) // mod3hi, 1bit
27 mod3lo
= mod3hi
+ (mod3lo
>>4) + (mod3lo
& 0xF);
28 mod3lo
= (mod3lo
>> 2) + (mod3lo
& 0x3);
29 mod3lo
= (mod3lo
>> 2) + (mod3lo
& 0x3);
30 if (mod3lo
> 2) mod3lo
= mod3lo
- 3;
35 u8 notes_ix
= acc
& 0x7;
38 u8 result
= ((i1
<<8|i0
)*notes
[notes_ix
])>>8; // keep hi byte
46 MOV (acc
, i2
)// "mov mem,mem"
47 MOV (n
, acc
)// does not exist
67 MOV (tmp_1
, acc
) // fresh tmp_1:
72 OR (acc
, tmp_1
) // tmp_1 done.
88 MOV (tmp_1
, acc
) // acc saved in tmp_1; fresh acc
90 // shift-divide by six
91 // note: i2 is max 0x78; so acc will <= 20. (breaks vor values >=128)
104 AND (acc
, tmp_1
) // acc restored from tmp_1
109 mod3lo
= i2
<<6|i1
>>2;
116 MOV (tmp_1
, acc
) // acc saved in tmp_1; fresh acc
118 // shift-divide by ten
119 // note: i2 is max 0x78; so acc will <= 12.
132 AND (acc
, tmp_1
) // acc restored from tmp_1
141 i1
+= !i0
; // ADDC i1
142 i2
+= !i1
&& !i0
; // ADDC i2