home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 89 / asm / source / cartoon.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  3.4 KB  |  110 lines
  1. ;***************************************************************
  2. ;*******   ASM generated by The FarGray Converter  v0.2.4 ******
  3. ;*******   My first animation in assembly langage      ******
  4. ;*******       By mathieu MALATERRE              ******
  5. ;***************************************************************
  6.  
  7.      include   "doorsos.h"
  8.      include   "graphlib.h"
  9.      include   "fargray.h"
  10.      include   "gray7lib.h"
  11.  
  12.      xdef _main
  13.      xdef _comment
  14.      xdef _ti89
  15.  
  16. _main:
  17.     move.w    #2,d3
  18. loop:
  19.     move.w  d3,tours
  20.     jsr     graphlib::clr_scr
  21.     move.w  #$0,-(a7)
  22.     jsr     doorsos::ST_busy
  23.     lea     2(a7),a7
  24.  
  25.     jsr     gray7lib::on            ; Turn on 7-grayscale
  26.     move.l  gray7lib::plane0,a1     ; Remember plane
  27.     move.l  gray7lib::plane1,a2     ; Remember plane
  28.     lea     planes1(pc),a5           ; Set pointer to compressed data !
  29.     move.w  #3120,d7                ; Number of bytes to paint.
  30.     jsr     fargray::put3planepic   ; Put Picture on Screen !
  31.     jsr     graphlib::clr_scr
  32.  
  33.     lea     planes2(pc),a5           ; Set pointer to compressed data !
  34.     move.w  #3120,d7                ; Number of bytes to paint.
  35.     jsr     fargray::put3planepic   ; Put Picture on Screen !
  36.     jsr     graphlib::clr_scr
  37.  
  38.     lea     planes3(pc),a5           ; Set pointer to compressed data !
  39.     move.w  #3120,d7                ; Number of bytes to paint.
  40.     jsr     fargray::put3planepic   ; 
  41.     jsr     graphlib::clr_scr
  42.  
  43.     lea     planes4(pc),a5           ; Set pointer to compressed data !
  44.     move.w  #3120,d7                ; Number of bytes to paint.
  45.     jsr     fargray::put3planepic   
  46.     jsr     graphlib::clr_scr
  47.  
  48.     lea     planes5(pc),a5           ; Set pointer to compressed data !
  49.     move.w  #3120,d7                ; Number of bytes to paint.
  50.     jsr     fargray::put3planepic   ; 
  51.     jsr     graphlib::clr_scr
  52.  
  53.     lea     planes6(pc),a5           ; Set pointer to compressed data !
  54.     move.w  #3120,d7                ; Number of bytes to paint.
  55.     jsr     fargray::put3planepic   ; 
  56.     jsr     graphlib::clr_scr
  57.  
  58.     lea     planes7(pc),a5           ; Set pointer to compressed data !
  59.     move.w  #3120,d7                ; Number of bytes to paint.
  60.     jsr     fargray::put3planepic   ; Put
  61.     jsr     graphlib::clr_scr
  62.  
  63.     lea     planes8(pc),a5           ; Set pointer to compressed data !
  64.     move.w  #3120,d7                ; Number of bytes to paint.
  65.     jsr     fargray::put3planepic   ; P
  66.     jsr     graphlib::clr_scr
  67.  
  68.     lea     planes9(pc),a5           ; Set pointer to compressed data !
  69.     move.w  #3120,d7                ; Number of bytes to paint.
  70.     jsr     fargray::put3planepic   ; Put Picture on Sc
  71.     jsr     graphlib::clr_scr
  72.  
  73.     lea     planes10(pc),a5           ; Set pointer to compressed data !
  74.     move.w  #3120,d7                ; Number of bytes to paint.
  75.     jsr     fargray::put3planepic   ; Put Pic
  76.     jsr     gray7lib::off           ; Turn off Grayscale
  77.  
  78.     move.w    tours,d3
  79.     dbra    d3,loop
  80.     rts
  81.  
  82. ;****************************************************************
  83. planes1:
  84.     INCBIN    "anim.bin"
  85. planes2:
  86.     INCBIN    "anim1.bin"
  87. planes3:
  88.     INCBIN    "anim2.bin"
  89. planes4:
  90.     INCBIN    "anim3.bin"
  91. planes5:
  92.     INCBIN    "anim4.bin"
  93. planes6:
  94.     INCBIN    "anim5.bin"
  95. planes7:
  96.     INCBIN    "anim6.bin"
  97. planes8:
  98.     INCBIN    "anim7.bin"
  99. planes9:
  100.     INCBIN    "anim8.bin"
  101. planes10:
  102.     INCBIN    "anim9.bin"
  103. tours:    dc.w    0
  104.  
  105. _comment:
  106.         dc.b "Icky et Scratchy",0
  107.  
  108. ;******************** End of Fargo program **********************
  109.  
  110.    end