LISTING2.TXT: Difference between revisions
Jump to navigation
Jump to search
Olivier.jan (talk | contribs) (Olivier.jan moved page LISTING2.TXT to LISTING2.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|LISTING2.TXT}} |
|
| + | <pre> |
||
| + | ****************************************************************** |
||
| + | * * |
||
| + | * ASSEMBLER COURSE 68000 ON ATARI ST * |
||
| + | * * |
||
| + | * by The Ferocious Rabbit (from 44E) * |
||
| + | * * |
||
| + | * Second series * |
||
| + | * * |
||
| + | * Listing number 2 * |
||
| + | * * |
||
| + | ****************************************************************** |
||
| + | INCLUDE "D:\START.S" |
||
| + | |||
| + | MOVE.L #MESSAGE,-(SP) introductory message |
||
| + | MOVE.W #9,-(SP) |
||
| + | TRAP #1 |
||
| + | ADDQ.L #6,SP |
||
| + | |||
| + | TOUCHE MOVE.W #7,-(SP) waiting for a key press |
||
| + | TRAP #1 |
||
| + | ADDQ.L #2,SP |
||
| + | SWAP D0 to get the scan code |
||
| + | |||
| + | CMP.W #1,D0 escape? |
||
| + | BEQ END yes so bye bye |
||
| + | CMP.W #$3B,D0 compared to F1 |
||
| + | BCS TOUCHE below so not valid |
||
| + | CMP.W #$44,D0 compared to F10 |
||
| + | BHI TOUCHE above so not valid |
||
| + | |||
| + | * The key is valid |
||
| + | ADD.W #6,D0 to get ASCII of A,B,C... |
||
| + | MOVE.W D0,-(SP) display |
||
| + | MOVE.W #2,-(SP) |
||
| + | TRAP #1 |
||
| + | ADDQ.L #4,SP |
||
| + | BRA TOUCHE and we start over |
||
| + | |||
| + | END CLR.W -(SP) |
||
| + | TRAP #1 |
||
| + | *--------------------------------------------------* |
||
| + | SECTION DATA |
||
| + | MESSAGE DC.B 27,"E","PRESS A FUNCTION KEY",13,10 |
||
| + | DC.B "ESCAPE TO EXIT",13,10,0 |
||
| + | SECTION BSS |
||
| + | DS.L 256 |
||
| + | STACK DS.L 1 |
||
| + | END |
||
| + | |||
| + | </pre> |
||
| + | Back to [[ASM_Tutorial]] |
||
| + | [[Category: ASSEMBLER 68000 on ATARI ST Part 1 ]] |
||
Revision as of 00:51, 17 December 2023
******************************************************************
* *
* ASSEMBLER COURSE 68000 ON ATARI ST *
* *
* by The Ferocious Rabbit (from 44E) *
* *
* Second series *
* *
* Listing number 2 *
* *
******************************************************************
INCLUDE "D:\START.S"
MOVE.L #MESSAGE,-(SP) introductory message
MOVE.W #9,-(SP)
TRAP #1
ADDQ.L #6,SP
TOUCHE MOVE.W #7,-(SP) waiting for a key press
TRAP #1
ADDQ.L #2,SP
SWAP D0 to get the scan code
CMP.W #1,D0 escape?
BEQ END yes so bye bye
CMP.W #$3B,D0 compared to F1
BCS TOUCHE below so not valid
CMP.W #$44,D0 compared to F10
BHI TOUCHE above so not valid
* The key is valid
ADD.W #6,D0 to get ASCII of A,B,C...
MOVE.W D0,-(SP) display
MOVE.W #2,-(SP)
TRAP #1
ADDQ.L #4,SP
BRA TOUCHE and we start over
END CLR.W -(SP)
TRAP #1
*--------------------------------------------------*
SECTION DATA
MESSAGE DC.B 27,"E","PRESS A FUNCTION KEY",13,10
DC.B "ESCAPE TO EXIT",13,10,0
SECTION BSS
DS.L 256
STACK DS.L 1
END
Back to ASM_Tutorial