@BITMAP4.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: 2.0 KB

Line
1	****************************************
2	Conversion du BITMAP4 spécial en plans
3	****************************************
4
5	ORG $9E00
6	DIR EQU $9E
7	Z EQU $DE
8
9	G PSHS U,Y,X,DP,B,A,CC
10	ORCC #80
11	LDA #DIR
12	TFR A,DP
13	CLR $E7E5
14
15	LDU #$A000
16	LDX #$C000
17
18	CONVER CLR <Z
19	CLR <Z+1
20
21	LDD #$8080
22	BITA ,X
23	BEQ *+6
24	ORB <Z+1
25	STB <Z+1
26	LDD #$4080
27	BITA ,X
28	BEQ *+6
29	ORB <Z
30	STB <Z
31	LDD #$2040
32	BITA ,X
33	BEQ *+6
34	ORB <Z+1
35	STB <Z+1
36	LDD #$1040
37	BITA ,X
38	BEQ *+6
39	ORB <Z
40	STB <Z
41	LDD #$0820
42	BITA ,X
43	BEQ *+6
44	ORB <Z+1
45	STB <Z+1
46	LDD #$0420
47	BITA ,X
48	BEQ *+6
49	ORB <Z
50	STB <Z
51	LDD #$0210
52	BITA ,X
53	BEQ *+6
54	ORB <Z+1
55	STB <Z+1
56	LDD #$0110
57	BITA ,X
58	BEQ *+6
59	ORB <Z
60	STB <Z
61
62	LDD #$8008
63	BITA ,U
64	BEQ *+6
65	ORB <Z+1
66	STB <Z+1
67	LDD #$4008
68	BITA ,U
69	BEQ *+6
70	ORB <Z
71	STB <Z
72	LDD #$2004
73	BITA ,U
74	BEQ *+6
75	ORB <Z+1
76	STB <Z+1
77	LDD #$1004
78	BITA ,U
79	BEQ *+6
80	ORB <Z
81	STB <Z
82	LDD #$0802
83	BITA ,U
84	BEQ *+6
85	ORB <Z+1
86	STB <Z+1
87	LDD #$0402
88	BITA ,U
89	BEQ *+6
90	ORB <Z
91	STB <Z
92	LDD #$0201
93	BITA ,U
94	BEQ *+6
95	ORB <Z+1
96	STB <Z+1
97	LDD #$0101
98	BITA ,U
99	BEQ *+6
100	ORB <Z
101	STB <Z
102
103	LDD <Z
104	STA ,U+
105	STB ,X+
106	CMPX #$DF40
107	LBNE CONVER
108
109	PULS CC,A,B,DP,X,Y,U,PC
110	FCC "(c) HCL 92"
111	FDB 0
112	ZZZEND
113	END

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