home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / GAMES / COLUMSRC / DO_BLOCK.S < prev    next >
Text File  |  1993-12-23  |  1KB  |  75 lines
  1. NO_SPRITE    EQU    0
  2. LINE_SPRT    EQU    0
  3. L    EQU    224
  4. H    EQU    112
  5. XMAX    EQU    640
  6. YMAX    EQU    480
  7.  
  8.     DATA
  9. FNAME    DC.B    'pause.spr',0
  10.     EVEN
  11.  
  12. BLOC1    INCBIN    pause.BIN
  13.     EVEN
  14.     TEXT
  15.     
  16.     LEA    BLOC1,A0
  17.     ADD.L    #(32*NO_SPRITE)+(LINE_SPRT*XMAX),A0
  18.     LEA    BLOC,A1
  19.     MOVE.L    #0,SIZE
  20.     MOVE.L    #H-1,D0    * nb ligne
  21. LOOP
  22.     MOVE.L    #L/4-1,D1
  23. LOOP_INT
  24.     MOVE.L    (A0)+,(A1)+
  25.     ADD.L    #4,SIZE
  26.     DBRA    D1,LOOP_INT
  27.     LEA    XMAX-L(A0),A0
  28.     DBRA    D0,LOOP
  29.  
  30. FCREATE    MOVE.W    #0,-(A7)
  31.     PEA    FNAME
  32.     MOVE.W    #$3C,-(A7)
  33.     TRAP    #1
  34.     ADDQ.L    #8,A7
  35.     TST.L    D0
  36.     BMI.S    ERROR
  37.     MOVE.W    D0,FHANDLE
  38.     
  39.     
  40. FWRITE    MOVE.L    #BLOC,-(A7)
  41.     MOVE.L    SIZE,-(A7)
  42.     MOVE.W    FHANDLE,-(A7)
  43.     MOVE.W    #$40,-(A7)
  44.     TRAP    #1
  45.     ADDA.L    #12,A7
  46.     MOVE.W    FHANDLE,-(A7)
  47.     MOVE.W    #$3E,-(A7)
  48.     TRAP    #1
  49.     ADDQ.L    #4,A7
  50.     
  51.     MOVE.W    #0,-(A7)
  52.     TRAP    #1
  53.     
  54. ERROR
  55.     PEA    TXT
  56.     MOVE.W    #9,-(A7)
  57.     TRAP    #1
  58.     ADDQ.L    #6,A7
  59.     MOVE.W    #7,-(A7)
  60.     TRAP    #1
  61.     ADDQ.L    #2,A7
  62.     MOVE.W    #0,-(A7)
  63.     TRAP    #1
  64.     
  65.  
  66.     DATA
  67. FHANDLE    DC.W    0
  68. SIZE    DC.L    0
  69.     EVEN
  70. TXT
  71.     DC.B    $1B,'EERROR',0
  72.     EVEN
  73. BLOC
  74.     DS.B    640*480
  75.