1    *
                2    * PRINT HISTORIC
                3    *
                4                                   ;
                5    HISTORIC      EQU    $8600     
                6    DECALAGE      EQU    $17FA     
                7    MODE          EQU    $17AF     ; HGR OU HGR2
                8                                   ;
                9                  ORG    $AC00     
                10                                  ;
AC00: A9 86     11   HIST1         LDA    #>HISTORIC 
AC02: 8D 21 AC  12                 STA    HIST2+2   
AC05: A9 00     13                 LDA    #<HISTORIC 
AC07: 8D 20 AC  14                 STA    HIST2+1   
AC0A: 2C 10 C0  15                 BIT    $C010     ; KEYBOARD READY
AC0D: A9 3C     16                 LDA    #$3C      ; HGR2
AC0F: 8D B0 17  17                 STA    MODE+1    
AC12: A9 40     18                 LDA    #$40      ; PAGE 2
AC14: 85 E6     19                 STA    $E6       
AC16: 20 F2 F3  20                 JSR    $F3F2     ; EFFACE ECRAN HGR2
AC19: 2C 50 C0  21                 BIT    $C050     
AC1C: 2C 55 C0  22                 BIT    $C055     
                23                                  ;
AC1F: AD FF FF  24   HIST2         LDA    $FFFF     ; LDA DEBUT TEXTE HISTORIC
AC22: F0 1C     25                 BEQ    FINHIST   
AC24: 2C 00 C0  26                 BIT    $C000     
AC27: 30 21     27                 BMI    STOPHIST  
AC29: C9 8D     28                 CMP    #$8D      ; RETURN?
AC2B: D0 03     29                 BNE    HIST3     
AC2D: 20 FA 17  30                 JSR    DECALAGE  
AC30: 20 5C DB  31   HIST3         JSR    $DB5C     ; ECRIT LE CARACTERE
AC33: EE 20 AC  32                 INC    HIST2+1   
AC36: F0 02     33                 BEQ    HIST4     
AC38: D0 E5     34                 BNE    HIST2     
AC3A: EE 21 AC  35   HIST4         INC    HIST2+2   
AC3D: 4C 1F AC  36                 JMP    HIST2     
                37                                  ;
AC40: A9 1C     38   FINHIST       LDA    #$1C      
AC42: 8D B0 17  39                 STA    MODE+1    
AC45: A9 20     40                 LDA    #$20      
AC47: 85 E6     41                 STA    $E6       
AC49: 60        42                 RTS              
                43                                  ;
AC4A: AD 00 C0  44   STOPHIST      LDA    $C000     
AC4D: C9 9B     45                 CMP    #$9B      ; ESCAPE?
AC4F: D0 06     46                 BNE    HIST6     
AC51: 20 65 AC  47                 JSR    CLEAR     
AC54: 4C 40 AC  48                 JMP    FINHIST   
AC57: 20 65 AC  49   HIST6         JSR    CLEAR     
AC5A: 2C 00 C0  50   HIST5         BIT    $C000     
AC5D: 10 FB     51                 BPL    HIST5     
AC5F: 20 65 AC  52                 JSR    CLEAR     
AC62: 4C 1F AC  53                 JMP    HIST2     
                54                                  ;
AC65: 2C 10 C0  55   CLEAR         BIT    $C010     
AC68: A9 00     56                 LDA    #0        
AC6A: 8D 00 C0  57                 STA    $C000     
AC6D: 60        58                 RTS              
                59   
                60                 SAV    PRINT.HISTORIC 

Object saved as PRINT.HISTORIC,A$AC00,L$006E



--End assembly, 110 bytes, Errors: 0 


Symbol table - alphabetical order:

   CLEAR        =$AC65      DECALAGE     =$17FA      FINHIST      =$AC40   ?  HIST1        =$AC00
   HIST2        =$AC1F      HIST3        =$AC30      HIST4        =$AC3A      HIST5        =$AC5A
   HIST6        =$AC57      HISTORIC     =$8600      MODE         =$17AF      STOPHIST     =$AC4A



Symbol table - numerical order:

   MODE         =$17AF      DECALAGE     =$17FA      HISTORIC     =$8600   ?  HIST1        =$AC00
   HIST2        =$AC1F      HIST3        =$AC30      HIST4        =$AC3A      FINHIST      =$AC40
   STOPHIST     =$AC4A      HIST6        =$AC57      HIST5        =$AC5A      CLEAR        =$AC65