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:
1.3 KB
|
| Line | |
|---|
| 1 | *** COPYROM0 ***************************
|
|---|
| 2 | * *
|
|---|
| 3 | * LECTURE DES 64 Ko ROM en $0000/$3FFF *
|
|---|
| 4 | * *
|
|---|
| 5 | *** par Michel SAINT-BRIANT/ASCI (c) ***
|
|---|
| 6 |
|
|---|
| 7 | ORG $8000
|
|---|
| 8 |
|
|---|
| 9 | * Sauvegarde des registres
|
|---|
| 10 |
|
|---|
| 11 | PSHS U,X,Y,DP,A,B,CC
|
|---|
| 12 |
|
|---|
| 13 | * Initialisation de la bank courante
|
|---|
| 14 | * en bank 3 (no BASIC donc valeur=4)
|
|---|
| 15 |
|
|---|
| 16 | LDA #4
|
|---|
| 17 | STA $E7E5
|
|---|
| 18 |
|
|---|
| 19 | * Copie de BASIC512 banque 0
|
|---|
| 20 | * à lire en BANK 3 de $A000 à $DFFF
|
|---|
| 21 |
|
|---|
| 22 | STA >0 la commutation des
|
|---|
| 23 | * slots se fait en écri-
|
|---|
| 24 | * vant à l'adresse dont
|
|---|
| 25 | * le no est no du slot.
|
|---|
| 26 |
|
|---|
| 27 | BSR COPIE
|
|---|
| 28 |
|
|---|
| 29 | * Copie de BASIC512 banque 1
|
|---|
| 30 | * à lire en BANK 4 de $A000 à $DFFF
|
|---|
| 31 |
|
|---|
| 32 | STA >1
|
|---|
| 33 | BSR COPIE
|
|---|
| 34 |
|
|---|
| 35 | * Copie de BASIC 1.0 banque 2
|
|---|
| 36 | * à lire en BANK 5 de $A000 à $DFFF
|
|---|
| 37 |
|
|---|
| 38 | STA >2
|
|---|
| 39 | BSR COPIE
|
|---|
| 40 |
|
|---|
| 41 | * Copie du DOS ICONIQUE banque 3
|
|---|
| 42 | * à lire en BANK 6 de $A000 à $DFFF
|
|---|
| 43 |
|
|---|
| 44 | STA >3
|
|---|
| 45 | BSR COPIE
|
|---|
| 46 |
|
|---|
| 47 | * On se remet sur le slot 0 pour
|
|---|
| 48 | * 'retomber' en BASIC512 si c'esl le cas
|
|---|
| 49 |
|
|---|
| 50 | STA >0
|
|---|
| 51 |
|
|---|
| 52 | * On restaure les registres et on sort.
|
|---|
| 53 |
|
|---|
| 54 | PULS CC,B,A,DP,Y,X,U,PC
|
|---|
| 55 |
|
|---|
| 56 | **********************
|
|---|
| 57 | * copier les banques *
|
|---|
| 58 | **********************
|
|---|
| 59 |
|
|---|
| 60 | COPIE LDX #$0000
|
|---|
| 61 | LDY #$A000
|
|---|
| 62 | COP LDU ,X++
|
|---|
| 63 | STU ,Y++
|
|---|
| 64 | CMPX #$4000
|
|---|
| 65 | BLO COP
|
|---|
| 66 | INC $E7E5 bank suivante
|
|---|
| 67 | RTS
|
|---|
| 68 |
|
|---|
| 69 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
