home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / misc / gms_dev.lha / GMS / Source / Asm / Blitter / DrawPixel.s < prev    next >
Encoding:
Text File  |  1997-02-16  |  3.5 KB  |  159 lines
  1. ;-------T-------T------------------------T----------------------------------;
  2. ;Draw Pixel
  3. ;----------
  4. ;Draws a pixel on a screen without destroying the background.
  5. ;
  6.  
  7.     INCDIR    "INCLUDES:"
  8.     INCLUDE    "exec/exec_lib.i"
  9.     INCLUDE    "games/games_lib.i"
  10.     INCLUDE    "games/games.i"
  11.  
  12. CALL    MACRO
  13.     jsr    _LVO\1(a6)
  14.     ENDM
  15.  
  16.     SECTION    "DrawPixel",CODE
  17.  
  18. ;===========================================================================;
  19. ;                             INITIALISE DEMO
  20. ;===========================================================================;
  21.  
  22. Start:    MOVEM.L    A0-A6/D1-D7,-(SP)
  23.     move.l    ($4).w,a6
  24.     lea    GMS_Name(pc),a1
  25.     moveq    #$00,d0
  26.     CALL    OpenLibrary
  27.     move.l    d0,GMS_Base
  28.     beq.s    .Error_GMS
  29.  
  30.     move.l    GMS_Base(pc),a6    ;Activate user preferences.
  31.     sub.l    a0,a0
  32.     CALL    SetUserPrefs
  33.  
  34.     CALL    AllocBlitter    ;Allocate the blitter.
  35.     tst.w    d0
  36.     bne.s    .Error_Blitter
  37.  
  38.     lea    Screen(pc),a0    ;Initialise the screen.
  39.     CALL    AddScreen
  40.     tst.w    d0
  41.     bne.s    .Error_Screen
  42.  
  43.     lea    PIC_Background(pc),a1    ;Load the picture.
  44.     move.l    GS_MemPtr1(a0),PIC_Data(a1)
  45.     CALL    LoadPic
  46.     tst.w    d0
  47.     bne.s    .Error_Picture
  48.  
  49.     move.l    PIC_Palette(a1),GS_Palette(a0)
  50.     CALL    UpdatePalette
  51.  
  52.     lea    Screen(pc),a0
  53.     CALL    ShowScreen
  54.  
  55.     bsr.s    Main
  56.  
  57. .ReturnToDOS
  58.     move.l    GMS_Base(pc),a6
  59.     lea    PIC_Background(pc),a1
  60.     CALL    FreePic
  61. .Error_Picture
  62.     lea    Screen(pc),a0
  63.     CALL    DeleteScreen
  64. .Error_Screen
  65.     CALL    FreeBlitter
  66. .Error_Blitter
  67.     move.l    GMS_Base(pc),a1
  68.     move.l    ($4).w,a6
  69.     CALL    CloseLibrary
  70. .Error_GMS
  71.     MOVEM.L    (SP)+,A0-A6/D1-D7
  72.     moveq    #$00,d0
  73.     rts
  74.  
  75. ;===========================================================================;
  76. ;                                MAIN LOOP
  77. ;===========================================================================;
  78.  
  79. Main:    move.l    GMS_Base(pc),a6
  80.     CALL    InitJoyPorts
  81.  
  82.     moveq    #100,d6
  83.     moveq    #100,d7
  84.  
  85. .loop    lea    Screen(pc),a0
  86.     moveq    #BUFFER1,d0
  87.     movem.w    OldPixel(pc),d1/d2/d3
  88.     tst.w    d3
  89.     blt.s    .read
  90.     CALL    DrawPixel    ;>> = Draw the old background pixel.
  91.  
  92. .read    moveq    #BUFFER1,d0    ;d0 = Buffer to read.
  93.     move.w    d6,d1    ;d1 = X Coordinate.
  94.     move.w    d7,d2    ;d2 = Y Coordinate.
  95.     CALL    ReadPixel    ;>> = Read the pixel.
  96.     movem.w    d6/d7,OldPixel    ;MA = Save coords of next pixel.
  97.     move.w    d0,OldPixel+4    ;MA = Save colour of next pixel.
  98.  
  99.     moveq    #BUFFER1,d0    ;d0 = Buffer.
  100.     move.w    #3,d3    ;d3 = Colour.
  101.     CALL    DrawPixel    ;>> = Draw our pixel.
  102.     CALL    WaitSVBL    ;>> = Wait for VBL.
  103.  
  104.     moveq    #JPORT1,d0    ;Read the mouse, then update the
  105.     moveq    #JT_ZBXY,d1    ;BOB's X and Y co-ordinates.
  106.     CALL    ReadJoyPort
  107.     move.w    d0,d1
  108.     ext.w    d0
  109.     asr.w    #8,d1
  110.     add.w    d0,d7
  111.     add.w    d1,d6
  112.     btst    #MB_LMB,d0
  113.     beq.s    .loop
  114.     rts
  115.  
  116. OldPixel:
  117.     dc.w    0,0,-1
  118.  
  119. ;===========================================================================;
  120. ;                                  DATA
  121. ;===========================================================================;
  122.  
  123. GMS_Name:     dc.b  "games.library",0
  124.           even
  125. GMS_Base:     dc.l  0
  126.  
  127. AMT_PLANES =    5
  128.  
  129. Screen:    dc.l    GSV1,0    ;Structure version.
  130.     dc.l    0,0,0    ;Screen_Mem1/2/3
  131.     dc.l    0    ;Screen link.
  132.     dc.l    0    ;Address of screen palette.
  133.     dc.l    0    ;Address of rasterlist.
  134.     dc.l    0    ;Amt of colours in palette.
  135.     dc.w    320,256    ;Screen Width and Height.
  136.     dc.w    0,0,0    ;Picture Widths and Height.
  137.     dc.w    AMT_PLANES    ;Amt of planes.
  138.     dc.w    0,0    ;X/Y screen offset.
  139.     dc.w    0,0    ;X/Y picture offset.
  140.     dc.l    0    ;Special attributes.
  141.     dc.w    LORES|COL12BIT    ;Screen Mode.
  142.     dc.w    ILBM    ;Screen Type
  143.     even
  144.  
  145. PIC_Background:
  146.     dc.l    PCV1,0    ;Version header.
  147.     dc.l    0    ;Source data.
  148.     dc.w    320,320/8,256    ;Width, Height.
  149.     dc.w    AMT_PLANES    ;Amount of Planes.
  150.     dc.l    0    ;Amount of colours.
  151.     dc.l    0    ;Source palette (remap).
  152.     dc.w    LORES|COL12BIT    ;Screen mode.
  153.     dc.w    ILBM    ;Destination
  154.     dc.l    GETPALETTE    ;Parameters.
  155.     dc.l    .File
  156. .File    dc.b    "GAMESLIB:data/IFF.Pic320",0
  157.     even
  158.  
  159.