$80/CF69 BD 00 80    LDA $8000,x[$88:8000] --Lecture du pointeur
$80/CF6C 18          CLC                  
$80/CF6D 69 00 80    ADC #$8000           
$80/CF70 8D 16 17    STA $pt_low  [$88:1716]
$80/CF73 BD 02 80    LDA $8002,x[$88:8002] --lecture de la deuxième partie du pointeur.
$80/CF76 18          CLC                  
$80/CF77 69 00 80    ADC #$8000           
$80/CF7A 8D 18 17    STA $pt_high  [$88:1718]
$80/CF7D E2 20       SEP #$20             
$80/CF7F A9 89       LDA #$89             
$80/CF81 48          PHA                  
$80/CF82 AB          PLB                  
$80/CF83 C2 20       REP #$20             
$80/CF85 80 7F       BRA $7F    [$D006]   


$80/D006 20 16 CE    JSR $CE16  [$80:CE16]
$80/D009 AB          PLB                     
$80/D00A A9 96 00    LDA #$0096              
$80/D00D 8D 54 02    STA $0254  [$80:0254]   
$80/D010 20 58 D1    JSR $D158  [$80:D158]   
$80/D013 60          RTS                     


CE16:
$80/CE16 20 C3 CD    JSR $CDC3  [$80:CDC3]
$80/CE19 CC 18 17    CPY $pt_high  [$89:1718]
$80/CE1C B0 49       BCS $49    [$CE67]
CE1E:
$80/CE1E C9 0D 00    CMP #$000D           ;fin de ligne? Si oui
$80/CE21 D0 0B       BNE $0B    [$CE2E]   
$80/CE23 8A          TXA                  
$80/CE24 29 C0 FF    AND #$FFC0           
$80/CE27 18          CLC                  
$80/CE28 69 40 00    ADC #$0040           ;on place le texte une ligne en dessous.
$80/CE2B AA          TAX                  
$80/CE2C 80 08       BRA $08    [$CE36]
CE2E:
$80/CE2E 09 00 1C    ORA #$1C00           
$80/CE31 9D 16 16    STA $out_txt,x[$89:1616]
$80/CE34 E8          INX                  
$80/CE35 E8          INX
CE36:                
$80/CE36 DA          PHX                  
$80/CE37 20 83 CD    JSR $CD83
$80/CE3A E0 1E 00    CPX #$001E           ;if X>A, Carry set, else, carry clear
$80/CE3D B0 06       BCS $06    [$CE45]   
$80/CE3F BF 65 CD 80 LDA $ascii_table,x[$80:CD65]
$80/CE43 80 19       BRA $19    [$CE5E]
CE45:
$80/CE45 DA          PHX                  
$80/CE46 20 83 CD    JSR $CD83  [$80:CD83]
$80/CE49 68          PLA                  ;Met dans l'accumulateur le dernier PHX/PHkekchose.
$80/CE4A C9 1F 00    CMP #$001F           ;Set if no borrow was required. Acc => memory.
$80/CE4D D0 0A       BNE $0A    [$CE59]   ;if carry set : Branch.
$80/CE4F BF 65 CD 80 LDA $ascii_table,x[$80:CD65]
$80/CE53 38          SEC                  
$80/CE54 E9 20 00    SBC #$0020           
$80/CE57 80 05       BRA $05    [$CE5E]
CE59:   
$80/CE59 8A          TXA                  
$80/CE5A 18          CLC                  
$80/CE5B 69 20 00    ADC #$0020
CE5E:          
$80/CE5E 29 7F 00    AND #$007F           
$80/CE61 FA          PLX                  
$80/CE62 CC 18 17    CPY $pt_high
$80/CE65 90 B7       BCC $B7    [$CE1E]
CE67:
$80/CE67 60          RTS                  

CDC3:
;Returns : Y, X, A
$80/CDC3 AD 16 17    LDA $pt_low  [$89:1716]
$80/CDC6 10 0B       BPL $0B    [$CDD3]   
$80/CDC8 AD 18 17    LDA $pt_high  [$89:1718]
$80/CDCB 49 00 80    EOR #$8000           
$80/CDCE 8D 18 17    STA $pt_high  [$89:1718]
$80/CDD1 80 0B       BRA $0B    [$CDDE]  
CDD3: 
---Quand on attaque la deuxième bank du script, cela permet d'avancer d'un cran le bank.
$80/CDD3 E2 20       SEP #$20             
$80/CDD5 8B          PHB                  
$80/CDD6 A3 01       LDA $01,s  [$00:1FF4]
$80/CDD8 1A          INC A                
$80/CDD9 83 01       STA $01,s  [$00:1FF4]
$80/CDDB AB          PLB                  
$80/CDDC C2 20       REP #$20             
---Jamais executé (fin)
CDDE:
$80/CDDE AD 16 17    LDA $pt_low  [$89:1716]
$80/CDE1 29 FF 7F    AND #$7FFF           
$80/CDE4 A8          TAY
$80/CDE5 9C 1A 17    STZ $cpt1  [$89:171A]
$80/CDE8 20 83 CD    JSR $CD83  [$80:CD83]
$80/CDEB E0 1E 00    CPX #$001E                      ;c Set if no borrow was required ( X >= memory). A un rapport avec le nombre de lignes ..
$80/CDEE B0 0A       BCS $0A    [$CDFA]             ;Cleared if borrow required (X < memory).
$80/CDF0 BF 65 CD 80 LDA $ascii_table,x[$80:CD65]
$80/CDF4 38          SEC                  
$80/CDF5 E9 20 00    SBC #$0020           
$80/CDF8 80 15       BRA $15    [$CE0F]
CDFA:   
$80/CDFA DA          PHX                  
$80/CDFB 20 83 CD    JSR $CD83  [$80:CD83]
$80/CDFE 68          PLA
$80/CDFF C9 1E 00    CMP #$001E           ;Si l'accumulateur est superieur ou égal à 0x1E : branche à CE0B. 
$80/CE02 D0 07       BNE $07    [$CE0B]   
$80/CE04 8A          TXA                  
$80/CE05 18          CLC                  
$80/CE06 69 20 00    ADC #$0020           
$80/CE09 80 04       BRA $04    [$CE0F]
CE0B: 
$80/CE0B BF 65 CD 80 LDA $ascii_table,x[$80:CD65]
CE0F:
$80/CE0F 29 7F 00    AND #$007F           
$80/CE12 A2 00 00    LDX #$0000           
$80/CE15 60          RTS                  

CD83:
;Needs : Y, $cpt1, $pt_high(..)
;Returns : X
;changed : $cpt1, Y
$80/CD83 AD 1A 17    LDA $cpt1  [$89:171A]
$80/CD86 29 07 00    AND #$0007           
$80/CD89 AA          TAX                  
$80/CD8A B9 00 80    LDA $8000,y[$89:8000]
$80/CD8D E0 03 00    CPX #$0003           
$80/CD90 90 1C       BCC $1C    [$CDAE]   
$80/CD92 C8          INY                  
$80/CD93 10 19       BPL $19    [$CDAE]   

--Jamais atteint?
$80/CD95 0E 18 17    ASL $pt_high  [$89:1718]
$80/CD98 4E 18 17    LSR $pt_high  [$89:1718]
$80/CD9B E2 20       SEP #$20             
$80/CD9D EB          XBA                  
$80/CD9E 8B          PHB                  
$80/CD9F A3 01       LDA $01,s  [$00:1FF2]
$80/CDA1 1A          INC A                
$80/CDA2 83 01       STA $01,s  [$00:1FF2]
$80/CDA4 AB          PLB                  
$80/CDA5 A0 00 00    LDY #$0000           
$80/CDA8 B9 00 80    LDA $8000,y[$89:8000]
$80/CDAB EB          XBA                  
$80/CDAC C2 20       REP #$20
---fin jamais atteint.
CDAE:
$80/CDAE CA          DEX                  
$80/CDAF 30 03       BMI $03    [$CDB4]   
$80/CDB1 4A          LSR A                
$80/CDB2 80 FA       BRA $FA    [$CDAE]
CDB4:
$80/CDB4 29 1F 00    AND #$001F           
$80/CDB7 AA          TAX                  
$80/CDB8 AD 1A 17    LDA $cpt1
$80/CDBB 18          CLC                  
$80/CDBC 69 05 00    ADC #$0005           
$80/CDBF 8D 1A 17    STA $cpt1
$80/CDC2 60          RTS