*
* PRINT HISTORIC
*
                          ;
HISTORIC EQU   $8600
DECALAGE EQU   $17FA
MODE     EQU   $17AF      ; HGR OU HGR2
                          ;
         ORG   $AC00
                          ;
HIST1    LDA   #>HISTORIC
         STA   HIST2+2
         LDA   #<HISTORIC
         STA   HIST2+1
         BIT   $C010      ; KEYBOARD READY
         LDA   #$3C       ; HGR2
         STA   MODE+1
         LDA   #$40       ; PAGE 2
         STA   $E6
         JSR   $F3F2      ; EFFACE ECRAN HGR2
         BIT   $C050
         BIT   $C055
                          ;
HIST2    LDA   $FFFF      ; LDA DEBUT TEXTE HISTORIC
         BEQ   FINHIST
         BIT   $C000
         BMI   STOPHIST
         CMP   #$8D       ; RETURN?
         BNE   HIST3
         JSR   DECALAGE
HIST3    JSR   $DB5C      ; ECRIT LE CARACTERE
         INC   HIST2+1
         BEQ   HIST4
         BNE   HIST2
HIST4    INC   HIST2+2
         JMP   HIST2
                          ;
FINHIST  LDA   #$1C
         STA   MODE+1
         LDA   #$20
         STA   $E6
         RTS
                          ;
STOPHIST LDA   $C000
         CMP   #$9B       ; ESCAPE?
         BNE   HIST6
         JSR   CLEAR
         JMP   FINHIST
HIST6    JSR   CLEAR
HIST5    BIT   $C000
         BPL   HIST5
         JSR   CLEAR
         JMP   HIST2
                          ;
CLEAR    BIT   $C010
         LDA   #0
         STA   $C000
         RTS

         SAV   PRINT.HISTORIC