rembrandt/DIVERS/DEBUG_01.S

*
*
* Routine de dbugging pour Rembrandt.
*
*

couleur=0
;
;
; Quelques constantes pour les modes vidos
;
;
col2=0
col4=1
col16=2
col256=3
coltc=4

l40=0
l80=8

tv=0
vga=16
pal=32
overscan=64
st=128
interlace=256

mode=coltc+l40+tv+pal

 pea superviseur
 move #$26,-(sp)
 trap #14
 addq #6,sp
;
; Et quitte
; 
 clr -(sp)
 trap #1


superviseur 
;
; Rcupre la rsolution courante et l'adresse de la mmoire
; vido
;
 move #-1,-(sp)
 move #88,-(sp)
 trap #14
 addq #4,sp
 move d0,old_video
 
 move #2,-(sp)
 trap #14
 addq #2,sp
 move.l d0,old_adresse

;
; Valide ma propre rsolution
; et mon propre ecran
; 
 move #mode,-(sp)
 move #3,-(sp)
 pea ecran
 pea ecran
 move #5,-(sp)
 trap #14
 add #14,sp

 bsr affiche_debugging

 move #7,-(sp)
 trap #1
 addq #2,sp
 
;
; Restaure tout
; 
 move #37,-(sp)
 trap #14
 addq #2,sp
  
 move old_video,-(sp)
 move #3,-(sp)
 move.l old_adresse,-(sp)
 move.l old_adresse,-(sp)
 move #5,-(sp)
 trap #14
 add #14,sp
 rts
 
 
affiche_debugging
 lea message,a0
 lea fonte,a1
 move.l cran,a2
lettre_suivante
 moveq #0,d0
 move.b (a0)+,d0 
 beq fin_message
 lsl #7,d0
 lea (a1,d0.w),a3
 move.l a2,a4
 moveq #8-1,d0
.affiche_lettre
 move.l (a3)+,(a4)
 move.l (a3)+,4(a4)
 move.l (a3)+,8(a4)
 move.l (a3)+,12(a4)
 add largeur_cran,a4
 dbra d0,.affiche_lettre 
 lea 16(a2),a2
 bra lettre_suivante
 
fin_message 
 rts
   
 section DATA 

fonte   incbin fonte.tru

message
 dc.b "Dbug II analysor Ver 0.01 á"
 dc.b 0
  
cran           dc.l ecran
largeur_cran   dc.w 640

 section BSS

old_video       ds.w 1 
old_adresse     ds.w 1
 ds.l 10000
ecran           ds.l 128000/4
 end
 
1	*
2	*
3	* Routine de dbugging pour Rembrandt.
4	*
5	*
6
7	couleur=0
8	;
9	;
10	; Quelques constantes pour les modes vidos
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	; Rcupre la rsolution courante et l'adresse de la mmoire
47	; vido
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 rsolution
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