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

Annotation of /public/atari/tools/rembrandt/DIVERS/DEBUG_01.S

Parent Directory Parent Directory | Revision Log Revision Log


Revision 67 - (hide annotations)
Sat Apr 25 18:10:46 2009 UTC (10 years, 9 months ago) by dbug
File size: 1725 byte(s)
Added Rembrandt and Forgotten Bits
1 dbug 67 *
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