MUSICOMP.ASM@ ceffc47

main

Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5

File size: 1.3 KB

Line
1	****************************************
2	* *
3	* Conversion d'un son AMIGA en TO8 *
4	* *
5	****************************************
6
7	ORG $7580
8	DEBSOU EQU $7700 }zique AMIGA
9	FINSOU EQU $DF97 }
10	DEBOBJ EQU $7600 résultat THOMSON
11
12	G ORCC #80
13	LDX #DEBSOU
14
15	EMULE LDA ,X
16	ADDA #128
17	LSRA
18	LSRA 1ère étape:
19	BCC FINEMU 8 bits -> 6 bits
20	CMPA #63
21	BEQ *+3
22	INCA
23	FINEMU STA ,X+
24	CMPX #FINSOU
25	BNE EMULE
26
27	LDX #DEBSOU
28	LDU #DEBOBJ
29	COMPIL LDA ,X+
30	ASLA
31	ASLA
32	STA ,U
33
34	LDA ,X
35	ANDA #3
36	ORA ,U
37	STA ,U+
38	LDA ,X+
39	ASLA 2ème étape:
40	ASLA mise bout à bout
41	ANDA #240 pour gain de place
42	STA ,U
43
44	LDA ,X
45	LSRA
46	LSRA
47	ORA ,U
48	STA ,U+
49	LDA ,X+
50	ANDA #3
51	STA ,U
52
53	LDA ,X+
54	ASLA
55	ASLA
56	ORA ,U
57	STA ,U+
58	CMPX #FINSOU
59	BLO COMPIL dernier octet =
60	STU *+4 fin du son après
61	SWI la compilation
62
63	END

Note: See TracBrowser for help on using the repository browser.