/[projet1]/users/chema/TINE/tail.s
Defence Force logotype

Diff of /users/chema/TINE/tail.s

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

revision 343 by Chema, Thu Jun 3 20:35:16 2010 UTC revision 344 by Chema, Tue Jun 15 09:53:43 2010 UTC
# Line 130  _freebuffer Line 130  _freebuffer
130  /* General routines for missions, which are fixed and NOT  /* General routines for missions, which are fixed and NOT
131     loaded from disk */     loaded from disk */
132    
133  print_mission_message  
134    clear_msg
135  .(  .(
136          lda double_buff          lda double_buff
137          beq nodb          beq nodb
# Line 146  nodb Line 147  nodb
147          ldx #6          ldx #6
148          ldy #(25+11)          ldy #(25+11)
149  cont  cont
150          stx savx+1          stx pm_savx+1
151          sty savy+1          sty pm_savy+1
152          jsr gotoXY          jmp gotoXY
153    .)
154    
155    print_mission_message
156    .(
157            jsr clear_msg
158          lda #<str_inctrans          lda #<str_inctrans
159          ldx #>str_inctrans          ldx #>str_inctrans
160          jsr print          jsr print
161    
162          jsr wait          jsr wait
163          jsr wait          jsr wait
164  savx  +pm_savx
165          ldx #0 ;SMC          ldx #0 ;SMC
166  savy  +pm_savy
167          ldy #0          ldy #0
168          jsr gotoXY          jsr gotoXY
169          jsr put_space          jsr put_space
# Line 170  savy Line 175  savy
175          ldx $ff          ldx $ff
176          jsr print          jsr print
177    
178            ; Do we exit with end of string or newpage?
179            cmp #11
180            bne endtrans
181            
182            ; new page
183            txa
184            sec
185            adc $fe
186            sta $fe
187            bcc nocarry
188            inc $ff
189    nocarry
190          jsr perform_CRLF          jsr perform_CRLF
191          jsr perform_CRLF          jsr perform_CRLF
192    
193          lda #<str_endtrans          lda #<str_moretrans
194          ldx #>str_endtrans          ldx #>str_moretrans
195          jsr print          jsr print
196            jsr rkey
197            jsr clear_msg
198            jmp pm_savx
199    
200    endtrans
201            jsr perform_CRLF
202            jsr perform_CRLF
203    
204  rkey          lda #<str_endtrans
205          jsr ReadKeyNoBounce          ldx #>str_endtrans
206          cmp #" "; Using ESC ($1b) may accidentaly make player launch the escape pod!          jsr print
207          bne rkey          jsr rkey
208    
209          lda NeedsDiskLoad          lda NeedsDiskLoad
210          beq end          beq end
211          dec NeedsDiskLoad          dec NeedsDiskLoad
212          jmp load_mission          jmp load_mission        ; This is jsr/rts
213  end  end
214          rts          rts
215  .)  .)
216    
217    rkey
218    .(
219            jsr ReadKeyNoBounce
220            cmp #" "; Using ESC ($1b) may accidentaly make player launch the escape pod!
221            bne rkey
222            rts
223    .)
224    
225    
226  #define OVERLAY_MISSION 100+NUM_SECT_OVL+3  #define OVERLAY_MISSION 100+NUM_SECT_OVL+3

Legend:
Removed from v.343  
changed lines
  Added in v.344

  ViewVC Help
Powered by ViewVC 1.1.26