/[projet1]/public/atari/tools/rembrandt/DIVERS/DLINE_01.S
Defence Force logotype

Contents of /public/atari/tools/rembrandt/DIVERS/DLINE_01.S

Parent Directory Parent Directory | Revision Log Revision Log


Revision 67 - (show annotations)
Sat Apr 25 18:10:46 2009 UTC (10 years, 7 months ago) by dbug
File size: 1842 byte(s)
Added Rembrandt and Forgotten Bits
1 debug=1
2 *
3 *
4 * Petite routine … la con destin‚e a convertir une image
5 * DEGAS en image TRUE COLOR
6 *
7 *
8 * bsr trace_ligne
9
10 point macro
11 move.l ‚cran(pc),a0
12 move \1,d0
13 add d0,d0
14 add d0,a0
15 move \2,d0
16 mulu #640,d0
17 add.l d0,a0
18 move #\3,(a0)
19 endm
20
21 ;
22 ;
23 ; Quelques constantes pour les modes vid‚os
24 ;
25 ;
26 col2=0
27 col4=1
28 col16=2
29 col256=3
30 coltc=4
31
32 l40=0
33 l80=8
34
35 tv=0
36 vga=16
37 pal=32
38 overscan=64
39 st=128
40 interlace=256
41
42 mode=coltc+l40+tv+pal
43
44 pea superviseur
45 move #$26,-(sp)
46 trap #14
47 addq #6,sp
48 ;
49 ; Et quitte
50 ;
51 clr -(sp)
52 trap #1
53
54
55
56
57 superviseur
58 ifeq debug
59 ;
60 ; R‚cupŠre la r‚solution courante et l'adresse de la m‚moire
61 ; vid‚o
62 ;
63 move #-1,-(sp)
64 move #88,-(sp)
65 trap #14
66 addq #4,sp
67 move d0,old_video
68
69 move #2,-(sp)
70 trap #14
71 addq #2,sp
72 move.l d0,old_adresse
73
74 ;
75 ; Valide ma propre r‚solution
76 ; et mon propre ecran
77 ;
78 move #mode,-(sp)
79 move #3,-(sp)
80 pea ecran
81 pea ecran
82 move #5,-(sp)
83 trap #14
84 add #14,sp
85 endc
86
87 attend_touche
88 dc.w $a000
89 move -602(a0),x2
90 move -600(a0),y2
91 tst.w -596(a0)
92 bne fin_boucle
93
94 move #$7000,$ffff9800.w
95 move #50,x1
96 move #50,y1
97 move #160,x2
98 move #0,y2
99 * move #300,x2
100 * move #150,y2
101 move #$8732,couleur
102 move.l #ecran,‚cran
103 bsr trace_ligne
104 point x1,y1,%1111100000000000
105 point x2,y2,%11111
106 move #-1,$ffff9800.w
107
108 move #37,-(sp)
109 trap #14
110 addq #2,sp
111
112 bra attend_touche
113
114 fin_boucle
115
116 ;
117 ; Restaure tout
118 ;
119 ifeq debug
120 move old_video,-(sp)
121 move #3,-(sp)
122 move.l old_adresse,-(sp)
123 move.l old_adresse,-(sp)
124 move #5,-(sp)
125 trap #14
126 add #14,sp
127 endc
128 rts
129
130
131 include inc_line.s
132
133 section DATA
134
135 section BSS
136
137 old_video ds.w 1
138 old_adresse ds.w 1
139 x_souris ds.w 1
140 y_souris ds.w 1
141 ds.l 10000
142 ecran ds.l 128000/4
143 buffer ds.l 128000/4
144 ds.l 10000
145
146 end
147

  ViewVC Help
Powered by ViewVC 1.1.26