home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / basis.s next >
Text File  |  1995-03-17  |  3KB  |  181 lines
  1.     opt    c-,d+
  2.     incdir    "df0:include/"
  3.     include graphics/gfx.i
  4.     include    graphics/rastport.i
  5.     include graphics/graphics_lib.i
  6.     include exec/memory.i
  7.     include    exec/exec_lib.i
  8.     include    hardware/custom.i
  9.  
  10. custom    equ    $dff000
  11.  
  12. memory    equ    MEMF_CHIP+MEMF_CLEAR
  13.     
  14.     lea    GFXLIB,a1
  15.     MOVEQ    #0,D0
  16.     CALLEXEC OPENLIBRARY
  17.     TST    D0
  18.     BEQ    ERROR
  19.     MOVE.L    D0,_GFXBASE
  20.     
  21.     MOVE.L    #MYPICCY,MEMORY_POINTER
  22.     LEA MYBITMAP,A0
  23.     MOVE.L    #$05,D0
  24.     MOVE.L    #320,D1
  25.     MOVE.L    #256,D2
  26.     CALLGRAF INITBITMAP
  27.     LEA    MYRASTPORT,A1
  28.     CALLGRAF INITRASTPORT
  29.     LEA    MYRASTPORT,A1
  30.     MOVE.L    #MYBITMAP,RP_BITMAP(A1)
  31.     MOVE.L    MEMORY_POINTER,D0
  32.     MOVE.L    D0,D1
  33.     ADD.L    #10240,D1
  34.     MOVE.L    D1,D2
  35.     ADD.L    #10240,D2
  36.     MOVE.L    D2,D3
  37.     add.l    #10240,D3
  38.     move.l    d3,d4
  39.     add.l    #10240,d4
  40.  
  41.  
  42.     
  43.  
  44.     LEA     MYBITMAP,A0
  45.     MOVE.L    D0,BM_PLANES(a0)
  46.     MOVE.L    D1,BM_PLANES+4(a0)
  47.     MOVE.L     D2,BM_PLANES+8(a0)
  48.     MOVE.L    D3,BM_PLANES+12(A0)
  49.     move.l    d4,BM_PLANES+16(a0)
  50.     MOVE.W    D0,PL0L
  51.     MOVE.W    D1,PL1L
  52.     MOVE.W    D2,PL2L
  53.     MOVE.W    D3,PL3L
  54.     move.w    d4,pl4l
  55.     SWAP    D0
  56.     SWAP    D1
  57.     SWAP    D2
  58.     SWAP    D3
  59.     swap    d4
  60.     MOVE.W    D0,PL0H
  61.     MOVE.W    D1,PL1H
  62.     MOVE.W    D2,PL2H
  63.     MOVE.W    D3,PL3H
  64.     move.w    d4,pl4h
  65.     
  66.  
  67.     move.l #mytext,read
  68.     move.l #wavedata,wavepos
  69.  
  70.  
  71.     MOVE.L    _GFXBASE,A6
  72.     ADD.L    #$32,A6
  73.     MOVE.W    #$80,DMACON
  74.     MOVE.L    (A6),OLDCOPPER
  75.     MOVE.L    #NEWCOPPER,(A6)
  76.     MOVE.W    #$8080,DMACON
  77.  
  78.     callexec forbid
  79.  
  80.     
  81.     
  82.     
  83.     
  84.     
  85.     
  86.     
  87.     move.w     #$8010,$dff09a
  88.     move.l    $6c,old
  89.     move.l  #new,$6c
  90.     
  91.     
  92.     
  93.     
  94.  
  95.  
  96. WAIT    ANDI.B    #$40,$BFE001
  97.     BNE    WAIT
  98.     move.l    old,$6c
  99.  
  100.     callexec permit
  101.  
  102.     MOVE.L    _GFXBASE,A6
  103.     ADD.L    #$32,A6
  104.     MOVE.W    #$80,DMACON
  105.     MOVE.L    OLDCOPPER,(A6)
  106.     MOVE.W    #$8080,DMACON
  107.     move.w    #$8020,$dff096
  108. ERROR    clr.l    d0
  109.     move.w    #$f,$dff096
  110.     move.w    #$0,$dff0a8
  111.     move.w    #$0,$dff0b8
  112.     move.w    #$0,$dff0c8
  113.     move.w    #$0,$dff0d8
  114.     RTS
  115.  
  116.  
  117.  
  118.  
  119. new:    movem.l d0-d7/a0-a6,-(sp)
  120.     and #$10,$dff01e        
  121.     beq out
  122.     move.w    #$10,$dff09c
  123.  
  124.     
  125.     
  126.     
  127.     
  128.  
  129. out movem.l (sp)+,d0-d7/a0-a6
  130.     dc.w $4ef9
  131. old dc.l 0
  132.  
  133.  
  134. count    dc.b 0
  135. read    dc.l 0
  136. buffy    ds.w 30
  137. falagz    dc.b 0
  138.  
  139. OLDCOPPER    DC.L    0
  140. NEWCOPPER    DC.W    $0100,$5200,$0102,$0000,$0104,$000A
  141.         DC.W    $0108,$0000,$010A,$0000
  142.         DC.W    $0092,$0038,$0094,$00D0
  143.         DC.W    $008E,$2C81,$0090,$2cC1
  144.         dc.w    $0096,$0020
  145.         DC.W    $00E0
  146. PL0H        DC.W    $0000,$00E2
  147. PL0L        DC.W    $0000,$00E4
  148. PL1H        DC.W    $0000,$00E6
  149. PL1L        DC.W    $0000,$00E8
  150. PL2H        DC.W    $0000,$00EA
  151. PL2L        DC.W    $0000,$00EC
  152. PL3H        DC.W    $0000,$00EE
  153. PL3L        DC.W    $0000,$00F0
  154. PL4H        DC.W    $0000,$00F2
  155. PL4L        DC.W    $0000
  156.         DC.W    $009c,$8010
  157.         DC.W    $0180,$0000,$0182,$0eca
  158.         DC.W    $0184,$0fff,$0186,$0eee
  159.         DC.W    $0188,$0ddd,$018A,$0bbb
  160.         DC.W    $018C,$0aaa,$018E,$0999
  161.         DC.W    $0190,$0888,$0192,$0777
  162.         DC.W    $0194,$0666,$0196,$0555
  163.         DC.W    $0198,$0333,$019A,$0222
  164.         DC.W    $019C,$0111,$019E,$0000
  165.  
  166.         DC.W    $FFFF,$FFFE
  167. gfxlib    dc.b    "graphics.library",0
  168.     EVEN
  169. _gfxbase    dc.l    0
  170. MEMORY_POINTER    dc.l    0
  171. MYRASTPORT    ds.b    RP_Sizeof
  172. MYBITMAP    ds.b    BM_Sizeof
  173. colour    dc.w    0
  174. flagz    dc.b    0
  175.  
  176.     dc.l    0
  177.  
  178. mypiccy    dc.b    "fog "
  179.     ds.b     51200-4
  180.  
  181.