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

Contents of /public/atari/tools/rembrandt/DIVERS/DEBUG_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: 1725 byte(s)
Added Rembrandt and Forgotten Bits
1 *
2 *
3 * Routine de d‚bugging pour Rembrandt.
4 *
5 *
6
7 couleur=0
8 ;
9 ;
10 ; Quelques constantes pour les modes vid‚os
11 ;
12 ;
13 col2=0
14 col4=1
15 col16=2
16 col256=3
17 coltc=4
18
19 l40=0
20 l80=8
21
22 tv=0
23 vga=16
24 pal=32
25 overscan=64
26 st=128
27 interlace=256
28
29 mode=coltc+l40+tv+pal
30
31 pea superviseur
32 move #$26,-(sp)
33 trap #14
34 addq #6,sp
35 ;
36 ; Et quitte
37 ;
38 clr -(sp)
39 trap #1
40
41
42
43
44 superviseur
45 ;
46 ; R‚cupŠre la r‚solution courante et l'adresse de la m‚moire
47 ; vid‚o
48 ;
49 move #-1,-(sp)
50 move #88,-(sp)
51 trap #14
52 addq #4,sp
53 move d0,old_video
54
55 move #2,-(sp)
56 trap #14
57 addq #2,sp
58 move.l d0,old_adresse
59
60 ;
61 ; Valide ma propre r‚solution
62 ; et mon propre ecran
63 ;
64 move #mode,-(sp)
65 move #3,-(sp)
66 pea ecran
67 pea ecran
68 move #5,-(sp)
69 trap #14
70 add #14,sp
71
72 bsr affiche_debugging
73
74 move #7,-(sp)
75 trap #1
76 addq #2,sp
77
78 ;
79 ; Restaure tout
80 ;
81 move #37,-(sp)
82 trap #14
83 addq #2,sp
84
85 move old_video,-(sp)
86 move #3,-(sp)
87 move.l old_adresse,-(sp)
88 move.l old_adresse,-(sp)
89 move #5,-(sp)
90 trap #14
91 add #14,sp
92 rts
93
94
95
96 affiche_debugging
97 lea message,a0
98 lea fonte,a1
99 move.l ‚cran,a2
100 lettre_suivante
101 moveq #0,d0
102 move.b (a0)+,d0
103 beq fin_message
104 lsl #7,d0
105 lea (a1,d0.w),a3
106 move.l a2,a4
107 moveq #8-1,d0
108 .affiche_lettre
109 move.l (a3)+,(a4)
110 move.l (a3)+,4(a4)
111 move.l (a3)+,8(a4)
112 move.l (a3)+,12(a4)
113 add largeur_‚cran,a4
114 dbra d0,.affiche_lettre
115 lea 16(a2),a2
116 bra lettre_suivante
117
118 fin_message
119 rts
120
121 section DATA
122
123 fonte incbin fonte.tru
124
125 message
126 dc.b "Dbug II analysor Ver 0.01 á"
127 dc.b 0
128
129 ‚cran dc.l ecran
130 largeur_‚cran dc.w 640
131
132 section BSS
133
134 old_video ds.w 1
135 old_adresse ds.w 1
136 ds.l 10000
137 ecran ds.l 128000/4
138 end
139

  ViewVC Help
Powered by ViewVC 1.1.26