/[projet1]/public/oric/demos/OricTech/code/scroller.s
Defence Force logotype

Diff of /public/oric/demos/OricTech/code/scroller.s

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1345 by dbug, Sun May 31 12:03:16 2015 UTC revision 1346 by dbug, Sat Jan 9 16:14:40 2016 UTC
# Line 2  Line 2 
2  #include "defines.h"  #include "defines.h"
3  #include "script.h"  #include "script.h"
4  #include "floppy_description.h"  #include "floppy_description.h"
5    #include "loader_api.h"
6    
7          .zero          .zero
8    
# Line 66  loop_clear_inner Line 67  loop_clear_inner
67    
68          // Load files          // Load files
69          // Load the 6x8 font          // Load the 6x8 font
70          ldx #LOADER_FONT_6x8          LoadFile(LOADER_FONT_6x8)
         jsr _LoadFileRegister  
71    
72          // Load the VIP scroll stuff (HAS TO BE BEFORE _BufferCharset30x40)          // Load the VIP scroll stuff (HAS TO BE BEFORE _BufferCharset30x40)
73          ldx #LOADER_VIP_SCROLL          LoadFileAt(LOADER_VIP_SCROLL,_BufferCharset)
         lda #<_BufferCharset  
         ldy #>_BufferCharset  
         jsr _LoadFileAtAddressRegister  
74    
75          // Copy the 96*8=768 bytes of charset data while adding an attribute neutral value bit to avoid glitches in case of screen conflict          // Copy the 96*8=768 bytes of charset data while adding an attribute neutral value bit to avoid glitches in case of screen conflict
76          ldx #0          ldx #0
# Line 91  loop_copy_std_charset Line 88  loop_copy_std_charset
88          bne loop_copy_std_charset          bne loop_copy_std_charset
89    
90          // Load the BIG scroll stuff (HAS TO BE BEFORE _BufferInverseVideo)          // Load the BIG scroll stuff (HAS TO BE BEFORE _BufferInverseVideo)
91          ldx #LOADER_FONT_30x40          LoadFileAt(LOADER_FONT_30x40,_BufferCharset30x40)
         lda #<_BufferCharset30x40  
         ldy #>_BufferCharset30x40  
         jsr _LoadFileAtAddressRegister  
92    
93          // Copy the 15*8=768 bytes of charset data while adding an attribute neutral value bit to avoid glitches in case of screen conflict          // Copy the 15*8=768 bytes of charset data while adding an attribute neutral value bit to avoid glitches in case of screen conflict
94          ldx #127          ldx #127
# Line 108  loop_copy_alt_charset Line 102  loop_copy_alt_charset
102          //          //
103          // Load the 36x128 overlay file (#define LOADER_OVERLAY_SIZE 5376)          // Load the 36x128 overlay file (#define LOADER_OVERLAY_SIZE 5376)
104          //          //
105          ldx #LOADER_OVERLAY;          LoadFileAt(LOADER_OVERLAY,_BufferInverseVideo) // <-- memory overwrite at the moment, need to fix that
         lda #<_BufferInverseVideo  
         ldy #>_BufferInverseVideo  
         jsr _LoadFileAtAddressRegister   // <-- memory overwrite at the moment, need to fix that  
106    
107          // Filter the content of the buffer to only have zeroes and 128 values          // Filter the content of the buffer to only have zeroes and 128 values
108          // 36*128=4608 bytes = 18*256          // 36*128=4608 bytes = 18*256
# Line 153  update_value Line 144  update_value
144          sta _OverlayLineInc          sta _OverlayLineInc
145    
146          // Load the sample sound          // Load the sample sound
147          ldx #LOADER_SAMPLE_BOOMTSCHACK;          LoadFileAt(LOADER_SAMPLE_BOOMTSCHACK,_SampleSound)
148          lda #<_SampleSound  
149          ldy #>_SampleSound          // Load the second sample sound
150          jsr _LoadFileAtAddressRegister          LoadFileAt(LOADER_SAMPLE_DEFENCE,_SampleSoundDefence)
151    
152          // Load the second sample sound          // Load the second sample sound
153          ldx #LOADER_SAMPLE_DEFENCE;          LoadFileAt(LOADER_SAMPLE_FORCE,_SampleSoundForce)
         lda #<_SampleSoundDefence  
         ldy #>_SampleSoundDefence  
         jsr _LoadFileAtAddressRegister  
   
         // Load the second sample sound  
         ldx #LOADER_SAMPLE_FORCE;  
         lda #<_SampleSoundForce  
         ldy #>_SampleSoundForce  
         jsr _LoadFileAtAddressRegister  
154                    
155          // Load the second sample sound          // Load the second sample sound
156          ldx #LOADER_SAMPLE_MUSIC_NON_STOP;          LoadFileAt(LOADER_SAMPLE_MUSIC_NON_STOP,_SampleSoundMusicNonStop)
         lda #<_SampleSoundMusicNonStop  
         ldy #>_SampleSoundMusicNonStop  
         jsr _LoadFileAtAddressRegister  
157    
158          // Load the second sample sound          // Load the second sample sound
159          ldx #LOADER_SAMPLE_TECHNO_POP;          LoadFileAt(LOADER_SAMPLE_TECHNO_POP,_SampleSoundTechnoPop)
         lda #<_SampleSoundTechnoPop  
         ldy #>_SampleSoundTechnoPop  
         jsr _LoadFileAtAddressRegister  
160    
161          // Load the second sample sound          // Load the second sample sound
162          ldx #LOADER_SAMPLE_CHIME_START;          LoadFileAt(LOADER_SAMPLE_CHIME_START,_SampleSoundChimeStart)
         lda #<_SampleSoundChimeStart  
         ldy #>_SampleSoundChimeStart  
         jsr _LoadFileAtAddressRegister  
163    
164          // Load the second sample sound          // Load the second sample sound
165          ldx #LOADER_SAMPLE_CHIME_END;          LoadFileAt(LOADER_SAMPLE_CHIME_END,_SampleSoundChimeEnd)
         lda #<_SampleSoundChimeEnd  
         ldy #>_SampleSoundChimeEnd  
         jsr _LoadFileAtAddressRegister  
166    
167          // Initialize the various elements of the big text scroller          // Initialize the various elements of the big text scroller
168          jsr _BigScrollerInit          jsr _BigScrollerInit

Legend:
Removed from v.1345  
changed lines
  Added in v.1346

  ViewVC Help
Powered by ViewVC 1.1.26