source: thomson/code/3rdparty/sources1-hmel/DEMO.ASM@ ceffc47

main
Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: ​svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
  • Property mode set to 100644
File size: 5.7 KB
Line 
1 TITLE TO-DEMO:
2* ------------------------------
3 PAGE
4
5****************************************
6* *
7* Démonstration de l'utilisation des *
8* routines TO-FEN *
9* *
10* Création du squelette d'une applica *
11* tion .CHG de 32ko *
12* *
13****************************************
14* *
15* Sources: *
16* *
17* FEN-EQU.ASM Equates du fenêtrage *
18* DEMO-EQ.ASM Equates *
19* DEMO-CN.ASM Constantes *
20* DEMO-B1.ASM Traitement BANK 1 *
21* DEMO-TR.ASM Traitements *
22* DEMO-SP.ASM Gestion S/P *
23* DEMO-PR.ASM Programme principal *
24* DEMO .ASM Structure *
25* *
26****************************************
27* *
28* Exécutable destiné à être chargé en *
29* aplication avec le module de *
30* fenêtrage FEN.BIN *
31* *
32****************************************
33* *
34* Carte mémoire: *
35* *
36** Banks RAM cartouche *
37* *
38* No 1 : Soft, constantes et données *
39* pseudo statique (motifs...) *
40* No 2 : En $1800, S/P de fenêtrage *
41* *
42** Banks données : *
43* *
44* bank 2 : Manoeuvre *
45* bank 3 *
46* .. 6 : Pile des fenêtres *
47* (moins ou plus selon les *
48* niveaux d'empilement max. *
49* bank 7 *
50* ... : Pour application !!! *
51* *
52** RAM "en ligne" *
53* *
54* $0000..$3FFF: Soft, constantes et *
55* données pseudo stati- *
56* ques (cartouche) *
57* $6000..$62FF: RAM moniteur/extramon *
58* $6300..$67FF: Pile (#1ko) *
59* $6800..$6FFF: RAM appli. non commut. *
60* (#2ko) *
61* $7000..$77FF: Zones DOS 5 dsk 2fic. *
62* $7800..$9FFF: Copie active des S/P *
63* de fenêtrage (10ko) *
64* pour que les S/P de *
65* fenetrage puissent etre*
66* appelés à partir de *
67* les banks de l'appli ! *
68* $A000..$DFFF: Manoeuvre sur les bank *
69* de donnée *
70* *
71****************************************
72* PRODUCTION: *
73****************************************
74* *
75* Sous 6809 ASM *
76* *
77* - L DEMO (deja fait si vous lisez*
78* - A DEMO (/NL/NS si sup listing) *
79* *
80* Sous CR-APPLI: *
81* *
82* - Charger DEMO.BIN (base $0000) *
83* - Charger FEN.BIN (base $5800) *
84* - Créer TO-DEMO.CHG *
85* *
86****************************************
87
88* Definition de l'implantation finale
89* des sous-programmes de TO-FEN
90
91BASEF EQU $7800 implant. soft
92* fenêtrage !!!
93
94 INCLUD FEN-EQU équates FEN
95
96 INCLUD DEMO-EQ
97
98* Page 0 dee l'application
99 SETDP PAGE0/256
100
101****************************************
102
103
104*
105* Cartouche No 1
106* L'en-tete (34oc)sera cree par CR-APPLI
107* L'assemblage se fait selon l'adressage
108* réel $0000-$3FFF
109* L'appel d'un S/P du bank 1 se fait par
110* JSR adr ou par
111* LBSR adr
112* L'appel d'un S/P du bank 2 se fait par
113* LDU #adr.S/P (fourni par ASM)
114* JSR COMBK2 (ou LBSR ...)
115* L'appel d'un S/P moniteur se fait par
116* JSR adr ou par
117* LBSR adr
118*---------------------------------------
119
120 ORG $22
121
122 LBRA DEBUT ------>
123
124
125* Séquence de commutation vers les S/P
126* en cartouche no 2
127*---------------------------------------
128
129COMBK2 INC >$E7E6
130 LEAU -$4000,U
131 JSR ,U
132 PSHS CC
133 DEC >$E7E6
134 PULS CC
135 RTS
136
137* Séquence de commutation vers les S/P
138* en cartouche no 1
139*---------------------------------------
140
141 DEC >$E7E6
142 JSR ,U
143 PSHS CC
144 INC >$E7E6
145 PULS CC
146 RTS
147
148**** Code du premier bank **************
149
150 INCLUD DEMO-CN
151
152 INCLUD DEMO-TR
153
154 INCLUD DEMO-SP
155
156****************************************
157
158 INCLUD DEMO-PR
159
160****************************************
161
162
163*
164* En tête cartouche No 2
165* L'en-tete (34oc)sera cree par CR-APPLI
166* L'assemblage se fait selon l'adressage
167* simulé $4000-$7FFF au lieu de
168* $0000-$3FFF
169* L'appel d'un S/P du bank 2 se fait par
170* LBSR adr
171* L'appel d'un S/P du bank 1 se fait par
172* LDU #adr.S/P (fourni par ASM)
173* LBSR COMBK2
174* L'appel d'un S/P moniteur se fait par
175* JSR adr
176*---------------------------------------
177
178 ORG $4022
179
180 LBRA DEBUT ------>
181
182
183* Séquence de commutation vers les S/P
184* en cartouche no 2
185*---------------------------------------
186
187 INC >$E7E6
188 LEAU -$4000,U
189 JSR ,U
190 PSHS CC
191 DEC >$E7E6
192 PULS CC
193 RTS
194
195* Séquence de commutation vers les S/P
196* en cartouche no 1
197*---------------------------------------
198
199COMBK1 DEC >$E7E6
200 JSR ,U
201 PSHS CC
202 INC >$E7E6
203 PULS CC
204 RTS
205
206
207**** Code du deuxieme bank *************
208
209
210 INCLUD DEMO-B1
211
212 END
Note: See TracBrowser for help on using the repository browser.