/[projet1]/public/atari/demos/defenceforce/savetheearth/loaddone.s
Defence Force logotype

Contents of /public/atari/demos/defenceforce/savetheearth/loaddone.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 172 - (show annotations)
Sat Nov 28 13:10:37 2009 UTC (10 years, 2 months ago) by dbug
File size: 1531 byte(s)
Added the source code of "Save The Earth", the Atari STe demo presented at Kindergarden 2009
1
2 SECTION TEXT
3
4 even
5
6 LoadDoneInit
7 ; We have to set the display adress to something
8 ; compatible to both STF/STE/MegaSTE/TT/ whatever
9 move.l #big_buffer_start+loading_done_screen+255,d0
10 clr.b d0
11 move.l d0,ptr_scr_1
12 bsr ComputeVideoParameters
13
14 lsr.l #8,d0
15 move.b d0,$ffff8203.w ; STF - Screen base adress (mid byte)
16 lsr.w #8,d0
17 move.b d0,$ffff8201.w ; STF - Screen base adress (high byte)
18
19
20 ; Black palette
21 movem.l black_palette,d0-d7
22 movem.l d0-d7,$ffff8240.w
23
24 ; Display some random message in the subtitle area
25 lea message_loading_done,a0
26 move.l ptr_scr_1,a1
27 bsr SubtitleDrawTextPtr
28
29 ; Subtitles palette
30 movem.l font_subtitles,d0-d7
31 movem.l d0-d7,$ffff8240.w
32
33 move.l #LoadDoneKeyboardManager,_AdrKeyboardManager
34 rts
35
36 LoadDonePlay
37 rts
38
39 LoadDoneTerminate
40 ; Black palette
41 movem.l black_palette,d0-d7
42 movem.l d0-d7,$ffff8240.w
43
44 move.l #KeyboardDefaultManager,_AdrKeyboardManager
45 rts
46
47
48 LoadDoneKeyboardManager
49 KEYTEST_STATE_ANY
50 bne.s .start_demo
51 moveq #0,d0
52 rts
53 .start_demo
54 moveq #1,d0
55 rts
56
57
58 SECTION DATA
59
60 even
61
62 message_loading_done
63 dc.b 13,13
64 dc.b " Loading done",13
65 dc.b "",13
66 dc.b " Please press any key",13
67 dc.b " to start the show.",13
68 dc.b 0
69
70
71 SECTION BSS
72
73 even
74
75 ;
76 ; The content of this buffer is going to be stored in
77 ; the big common table.
78 ;
79 rsreset
80
81 loading_done_screen rs.b 160*200+256 ; Screen data
82
83 update_buffer_size
84
85
86
87

  ViewVC Help
Powered by ViewVC 1.1.26