| 1 |
|
|---|
| 2 |
|
|---|
| 3 |
|
|---|
| 4 | ****************************************
|
|---|
| 5 | * *
|
|---|
| 6 | * M O I R A G E *
|
|---|
| 7 | * *
|
|---|
| 8 | ****************************************
|
|---|
| 9 | * *
|
|---|
| 10 | * Programme de moirage de la mémoire *
|
|---|
| 11 | * point. *
|
|---|
| 12 | *--------------------------------------*
|
|---|
| 13 | * *
|
|---|
| 14 | * Manuel de l'assembleur 6809 *
|
|---|
| 15 | * du TO7/TO7-70 page 24 *
|
|---|
| 16 | * *
|
|---|
| 17 | ****************************************
|
|---|
| 18 |
|
|---|
| 19 | INIT EQU $E800 Initialisation
|
|---|
| 20 | PORTC EQU $E7C3
|
|---|
| 21 | STADR EQU $4000 Début de l'écran
|
|---|
| 22 | ENDADR EQU $5F40 Fin de l'écran + 1
|
|---|
| 23 |
|
|---|
| 24 | *--------------------------------------*
|
|---|
| 25 |
|
|---|
| 26 |
|
|---|
| 27 | ORG ENDMEM-$400 1K Réserve
|
|---|
| 28 |
|
|---|
| 29 | DIRECT EQU *<-8 Page 0
|
|---|
| 30 | SETDP DIRECT
|
|---|
| 31 | * TITLE Balayage Ecran
|
|---|
| 32 | * INCLUD EQUATES Fichier contenant
|
|---|
| 33 | * les principales adresses d'entrée du
|
|---|
| 34 | * Moniteur TO7
|
|---|
| 35 | PAGE
|
|---|
| 36 | START PSHS A,B,X,Y,U,DP Sauvegarde
|
|---|
| 37 | JSR INIT Initialisation
|
|---|
| 38 | LDA #DIRECT Page 0
|
|---|
| 39 | TFR A,DP
|
|---|
| 40 | LDA PORTC Mise en mémoire
|
|---|
| 41 | * points:Par mise à 1 du bit 0 du port C
|
|---|
| 42 | ORA #1
|
|---|
| 43 | STA PORTC
|
|---|
| 44 | LDX #STADR Adresse de début
|
|---|
| 45 | * de l'écran
|
|---|
| 46 | M2 LDY #20 Compteur colonne:
|
|---|
| 47 | * On affiche 20 fois 2 octets, soit
|
|---|
| 48 | * 40 octets par ligne
|
|---|
| 49 | LDD #$00FF Moirage
|
|---|
| 50 | * Alternance de 1 et de 0 sur la ligne
|
|---|
| 51 | M0 STD ,X++ Charger l'écran
|
|---|
| 52 | LEAY -1,Y
|
|---|
| 53 | BNE M0 Répète 20 fois
|
|---|
| 54 | LDY #20 Ligne suivante
|
|---|
| 55 | LDD #$FF00 Le motif est inver
|
|---|
| 56 | * se pour décaler les 1 et les 0 d'une
|
|---|
| 57 | * ligne à l'autre et obtenir un moirage
|
|---|
| 58 | M1 STD ,X++
|
|---|
| 59 | LEAY -1,Y
|
|---|
| 60 | BNE M1 Toujours 20 fois
|
|---|
| 61 | CMPX #ENDADR Fin d'écran
|
|---|
| 62 | BLS M2 Sinon on recom
|
|---|
| 63 | * mence 2 lignes à motifs alternés
|
|---|
| 64 | SWI Retour au moniteur
|
|---|
| 65 | END START
|
|---|
