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.6 KB
|
| Line | |
|---|
| 1 | ****************************************
|
|---|
| 2 | * S N A P S H O T *
|
|---|
| 3 | ****************************************
|
|---|
| 4 | * Copie de l'écran dans une BANK *
|
|---|
| 5 | * au moment du RESET *
|
|---|
| 6 | ****************************************
|
|---|
| 7 | * La routine se met à l'abri en $5FC0. *
|
|---|
| 8 | * D'après la procédure de RESET (FEF2) *
|
|---|
| 9 | * la mémoire COULEUR est commutée lors *
|
|---|
| 10 | * de la dérivation. L'implantation ne *
|
|---|
| 11 | * se fait donc qu'en RAMa. La palette *
|
|---|
| 12 | * est copiée en $BF40 de la banque *
|
|---|
| 13 | * destination sous la forme : 0BVR x16 *
|
|---|
| 14 | ****************************************
|
|---|
| 15 | *** (c) Doctor Lô 1991 ***
|
|---|
| 16 |
|
|---|
| 17 | ORG $6088
|
|---|
| 18 | JMP $5FC0 détourne le RESET.
|
|---|
| 19 | ORG $60FE Car ça marche ssi
|
|---|
| 20 | FDB $A55A le reset est SOFT!
|
|---|
| 21 | ORG $E7E5 sélection BANK
|
|---|
| 22 | FCB 0 -> mémoire écran
|
|---|
| 23 |
|
|---|
| 24 | ***** IMPLANTATION en fin de RAM-A *****
|
|---|
| 25 |
|
|---|
| 26 | ORG $BFC0
|
|---|
| 27 | PSHS X,B,A
|
|---|
| 28 | GETKEY JSR $E806 BANK destination
|
|---|
| 29 | SUBB #48 (choix au clavier)
|
|---|
| 30 | ANDB #$DF minuscules->ABCDEF
|
|---|
| 31 | CMPB #22 de 0 à F en hexa
|
|---|
| 32 | BHI GETKEY
|
|---|
| 33 | CMPB #10
|
|---|
| 34 | BLO *+8
|
|---|
| 35 | CMPB #17
|
|---|
| 36 | BLO GETKEY
|
|---|
| 37 | SUBB #7
|
|---|
| 38 | LDX #$A000 copie de l'écran
|
|---|
| 39 | LDA ,X
|
|---|
| 40 | STB $E7E5
|
|---|
| 41 | STA ,X+
|
|---|
| 42 | CLR $E7E5
|
|---|
| 43 | CMPX #$E000
|
|---|
| 44 | BNE *-13
|
|---|
| 45 | LDX #$BF40 formatage palette
|
|---|
| 46 | LDB #16 et transfert en
|
|---|
| 47 | LDA ,X $BF40 - $BF5F
|
|---|
| 48 | ANDA #15
|
|---|
| 49 | STA ,X++
|
|---|
| 50 | DECB
|
|---|
| 51 | BNE *-7
|
|---|
| 52 | LDD #$A55A à la prochaine !
|
|---|
| 53 | STD $60FE
|
|---|
| 54 | PULS A,B,X,PC
|
|---|
| 55 |
|
|---|
| 56 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
