LISTING5.TXT

From Atari Wiki
Revision as of 00:00, 17 December 2023 by Olivier.jan (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search
**********************************************************************
*                                                                    *
*               68000 ASSEMBLER COURSE ON ATARI ST                   *
*                                                                    *
*                   by The Fierce Rabbit (from 44E)                  *
*                                                                    *
*                           Second series                            *
*                                                                    *
*                         Listing number 5                           *
**********************************************************************

         INCLUDE   "B:\START.S"

         MOVE.L    #MESSAGE,-(SP)    hello and clear screen
         MOVE.W    #9,-(SP)
         TRAP      #1
         ADDQ.L    #6,SP

         DC.W      $A000             line A initialization

         MOVE.W    #1,24(A0)         foreground color
         CLR.W     26(A0)            background color
         MOVE.W    #2,36(A0)         display type
         MOVE.W    #50,38(A0)        X1
         MOVE.W    #50,40(A0)        Y1
         MOVE.W    #200,42(A0)       X2
         MOVE.W    #300,44(A0)       Y2
         MOVE.L    #MOTIF,46(A0)     motif address
         MOVE.W    #3,50(A0)         number of motif words (-1)
         CLR.W     54(A0)            no clipping
         DC.W      $A005             call to function

         MOVE.W    #7,-(SP)          wait for key press
         TRAP      #1
         ADDQ.L    #4,SP
         MOVE.W    #0,-(SP)          and bye bye
         TRAP      #1
*---------------------------------------*
         SECTION DATA
MESSAGE  DC.B      27,"E","Rectangle tracing with line A",0
         EVEN
* Pattern, in .W I wrote it in binary to see the design better.*
MOTIF    DC.W      %1100110011001100
         DC.W      %1100110011001100
         DC.W      %0011001100110011
         DC.W      %0011001100110011

         SECTION BSS
         DS.L      100
PILE     DS.L      1
         END

Back to ASM_Tutorial