main
|
Last change
on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago |
|
Add that collection of 3rdparty source I had lying on my disk for some time...
git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
|
-
Property mode
set to
100644
|
|
File size:
942 bytes
|
| Line | |
|---|
| 1 |
|
|---|
| 2 |
|
|---|
| 3 |
|
|---|
| 4 | ****************************************
|
|---|
| 5 | * *
|
|---|
| 6 | * C O M M U T *
|
|---|
| 7 | * *
|
|---|
| 8 | ****************************************
|
|---|
| 9 | * *
|
|---|
| 10 | * Routine de sélection des banques de *
|
|---|
| 11 | * la zone mémoire &HA000 - &HDFFF. *
|
|---|
| 12 | *--------------------------------------*
|
|---|
| 13 | * *
|
|---|
| 14 | * Manuel de l'assembleur 6809 *
|
|---|
| 15 | * du TO7/TO7-70 page 190 *
|
|---|
| 16 | * *
|
|---|
| 17 | ****************************************
|
|---|
| 18 |
|
|---|
| 19 | CSR EQU $E7C0 Registre d'état
|
|---|
| 20 |
|
|---|
| 21 | *--------------------------------------*
|
|---|
| 22 |
|
|---|
| 23 |
|
|---|
| 24 | COMMUT EQU *
|
|---|
| 25 | PSHS D,X,U
|
|---|
| 26 | LDU #CSR
|
|---|
| 27 | LDB 11,U
|
|---|
| 28 | ANDB #$FB
|
|---|
| 29 | STB 11,U
|
|---|
| 30 | LDX #TAB
|
|---|
| 31 | LDA A,X
|
|---|
| 32 | STA 9,U
|
|---|
| 33 | ORB #$04
|
|---|
| 34 | STB 11,U
|
|---|
| 35 | PULS D,X,U,PC
|
|---|
| 36 | TAB EQU *
|
|---|
| 37 | FCB $0F,$17,$E7,$67,$A7,$27
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
