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

Contents of /public/atari/tools/rembrandt/DIVERS/1_MEMORI.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: 1105 byte(s)
Added Rembrandt and Forgotten Bits
1 gemdos_init
2 lea d‚but_bss,a0 Au cas o— il y aurait des vilains packeurs
3 lea fin_bss,a1 ou que la m‚moire soit crade... On ne sait jamais !
4 .efface_bss
5 clr.l (a0)+
6 cmpa.l a1,a0
7 blt.s .efface_bss
8
9 move.l 4(a7),a5 LibŠre la m‚moire g‚n‚reusement allou‚e
10 lea nouvelle_pile,a7 par le GEMDOS
11 move.l 12(a5),d0 TEXT
12 add.l 20(a5),d0 +DATA
13 add.l 28(a5),d0 +BSS
14 add.l #256,d0 +PAGE DE BASE > TAILLE TOTALE NECESSAIRE
15 move.l d0,-(sp)
16 move.l a5,-(sp)
17 clr -(sp)
18 move #$4a,-(sp)
19 trap #1
20 lea 12(sp),sp
21
22 bsr r‚serve_m‚moire_globale R‚servation m‚moire globale
23 bmi quitte_programme
24
25 aaa
26 lea fichier,a0
27 move.l #32000,d0
28 bsr r‚serve_bloc
29
30 lea fichier,a0
31 bsr libŠre_bloc
32
33
34
35
36
37 quitte_programme
38 clr -(sp)
39 trap #1
40
41
42
43 include FICHIERS.INC\MEMOIRE.S Le gestionnaire de blocs m‚moire
44
45 DATA
46
47 BSS
48 d‚but_bss
49
50 buffer_vide ds.w 1024 2ko remplis de 0 pour faire du nettoyage.
51
52 ‚cran ds.l 3 Descripteurs de blocs. Voir le module
53 ‚cran_undo ds.l 3 MEMOIRE.S
54 fichier ds.l 3
55
56 ds.l 30000
57 nouvelle_pile ds.l 1
58
59 fin_bss ds.l 1
60 END
61

  ViewVC Help
Powered by ViewVC 1.1.26