LISTING5.TXT: Difference between revisions
Jump to navigation
Jump to search
Olivier.jan (talk | contribs) (Olivier.jan moved page LISTING5.TXT to LISTING5.TXT/fr: Renaming for language version) Tag: New redirect |
Olivier.jan (talk | contribs) (Replacing content of with translated version) Tag: Removed redirect |
||
| Line 1: | Line 1: | ||
| − | + | {{Languages|LISTING5.TXT}} |
|
| + | <pre> |
||
| + | ********************************************************************** |
||
| + | * * |
||
| + | * 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 |
||
| + | |||
| + | </pre> |
||
| + | Back to [[ASM_Tutorial]] |
||
| + | [[Category: 68000 ASSEMBLER on ATARI ST Part 1 ]] |
||
Revision as of 00:53, 17 December 2023
**********************************************************************
* *
* 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