home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / lsdvizint.lha / sample.s < prev    next >
Encoding:
Text File  |  1990-06-23  |  1.8 KB  |  93 lines
  1.     SECTION    MENU_MK_IX_,CODE_C
  2.     OPT    O+ C-
  3.     incdir  df0:,df1:
  4.     MOVE.L    4,A6
  5.     LEA.L    GFxNAME,A1
  6.     CLR.L    D0
  7.     JSR    -552(A6)
  8.     MOVE.L    D0,GFXLOC
  9.     MOVE.L    GFXLOC,A6
  10.     MOVE.L    50(A6),OLDCOP
  11.     MOVE.L    #COPPER,50(A6)
  12.     MOVE.L    #$FFFF,D0
  13. COPDEL:    DBF    D0,COPDEL
  14.     MOVE.W    #%1000011111100000,$DFF096
  15.     MOVE.L    #$FFFFFFFF,$DFF044
  16.     MOVE.W    #00,$DFF042
  17.     MOVE.W    #%0000100111110000,$DFF040
  18.     MOVE.W    #$4000,$DFF09A
  19.     move.l    #screen,store
  20.     move.w    store,bitmap2+2
  21.     move.w    store+2,bitmap2+6
  22. START:    CMP.B    #$ff,$DFF006
  23.     BNE.S    START
  24.     add.w    #1,count
  25.     cmp.w    #253,count
  26.     bne    start2
  27.     clr.w    count
  28.     move.l    #screen,store
  29. start2    add.l    #40,store
  30.     move.w    store,bitmap+2
  31.     move.w    store+2,bitmap+6
  32.     add.w    #1,xp
  33.     cmp.w    #16,xp
  34.     bne    start3
  35.     clr.w    xp
  36.     move.w    #0,scp+2
  37. start3    add.w    #$010,scp+2
  38.     btst    #6,$bfe001
  39.     beq    reset
  40.     btst    #7,$bfe001
  41.     beq    reset
  42.     btst    #10,$dff016
  43.     beq    reset
  44.     BRA    START
  45.  
  46. RESET:    MOVE.W    #$C000,$DFF09A
  47.     MOVE.W    #$0F,$DFF096
  48.     MOVE.L    GFXLOC,A6
  49.     MOVE.L    OLDCOP,50(A6)
  50.     MOVE.L    4,A6
  51.     MOVE.L    GFXLOC,A1
  52.     JSR    -414(A6)
  53.     CLR.L    D0
  54. EX:    RTS
  55. COPPER:    DC.W    $0104,$0000
  56.     DC.W    $0108,$0000,$010A,$0000
  57.     DC.W    $0092,$0038,$0094,$00D0
  58.     DC.W    $008E,$50a1
  59.     dc.w    $0090,$c081
  60.     DC.W    $0120,$0000,$0122,$0000
  61.     dc.w    $0180,$0000,$0182,$0fff
  62.     dc.w    $0184,$0fff,$0186,$0fff
  63. scp    dc.w    $0102,$0000
  64. bitmap  dc.w    $00e0,$0000,$00e2,$0000
  65. bitmap2    dc.w    $00e4,$0000,$00e6,$0000
  66.     dc.w    $100,$2200
  67.     DC.W    $FFFF,$FFFE
  68.  
  69. GFXNAME:DC.B    "graphics.library",0
  70. GFXLOC:    DC.L    0
  71. OLDCOP:    DC.L    0
  72. store:  dc.l    0
  73. xp    dc.w    0
  74. count    dc.w    0
  75.     even
  76. screen    rept    40
  77.     dcb.w    20,%0000001111000000
  78.     dcb.w    20,%0000110000110000
  79.     dcb.w    20,%0001000000001000
  80.     dcb.w    20,%0010000000000100
  81.     dcb.w    20,%0010000000000100
  82.     dcb.w    20,%0100000000000010
  83.     dcb.w    20,%0100000000000010
  84.     dcb.w    20,%1000000000000001
  85.     dcb.w    20,%0100000000000010
  86.     dcb.w    20,%0100000000000010
  87.     dcb.w    20,%0010000000000100
  88.     dcb.w    20,%0010000000000100
  89.     dcb.w    20,%0001000000001000
  90.     dcb.w    20,%0000110000110000
  91.     endr    
  92.  
  93.