| 1 | ****************************************
|
|---|
| 2 | * scrolling segment par segment. *
|
|---|
| 3 | ****************************************
|
|---|
| 4 | * EN MODE BITMAP 16 COULEURS *
|
|---|
| 5 | ****************************************
|
|---|
| 6 | * This masterpiece was of course coded *
|
|---|
| 7 | * BY DOCTOR LO OF HCL *
|
|---|
| 8 | ****** un soir d'ennui profond... ******
|
|---|
| 9 |
|
|---|
| 10 | FONTE EQU -HAUT*LONG*2
|
|---|
| 11 | RAMA EQU $DF18-HAUT*40
|
|---|
| 12 | RAMB EQU RAMA-$2000
|
|---|
| 13 | HAUT EQU 48 multiple de 8 !
|
|---|
| 14 | LONG EQU 5 segments par CHR$
|
|---|
| 15 | DIR EQU $9F } début buffer
|
|---|
| 16 | Z EQU 0 } à accès direct
|
|---|
| 17 | CARTOU EQU 15 page $0000-$3FFF
|
|---|
| 18 |
|
|---|
| 19 | ORG DIR*256+Z
|
|---|
| 20 | FDB 1,TEXTE,FONTE
|
|---|
| 21 |
|
|---|
| 22 | ORG $9800
|
|---|
| 23 | G ORCC #80
|
|---|
| 24 | LDA #$E7
|
|---|
| 25 | EXG A,DP
|
|---|
| 26 | LDB <$E6
|
|---|
| 27 | STA RDP+1
|
|---|
| 28 | STB RDP+2
|
|---|
| 29 | STS RDP-2
|
|---|
| 30 |
|
|---|
| 31 | LDA #123
|
|---|
| 32 | STA <$DC
|
|---|
| 33 | LDD #$360+CARTOU
|
|---|
| 34 | STD <$E5
|
|---|
| 35 | LDD #0
|
|---|
| 36 | LDX #$A000
|
|---|
| 37 | STD ,X++
|
|---|
| 38 | CMPX #$E000
|
|---|
| 39 | BNE *-5
|
|---|
| 40 | LDD #$C000+DIR
|
|---|
| 41 | STA <$DD
|
|---|
| 42 | TFR B,DP
|
|---|
| 43 |
|
|---|
| 44 |
|
|---|
| 45 | SYNCRO TST $E7E7
|
|---|
| 46 | BPL *-3
|
|---|
| 47 | TST $E7E7
|
|---|
| 48 | BMI *-3
|
|---|
| 49 |
|
|---|
| 50 | LDD #15
|
|---|
| 51 | STA $E7DB pour voir le temps
|
|---|
| 52 | STB $E7DA CPU qu'il reste.
|
|---|
| 53 | STA $E7DA
|
|---|
| 54 |
|
|---|
| 55 | LDX #RAMA+160
|
|---|
| 56 | LDU <Z+4
|
|---|
| 57 | LDA #HAUT/8
|
|---|
| 58 | STA <Z
|
|---|
| 59 | COPYA PULU D
|
|---|
| 60 | STA -120,X
|
|---|
| 61 | STB -80,X
|
|---|
| 62 | PULU D
|
|---|
| 63 | STA -40,X
|
|---|
| 64 | STB ,X
|
|---|
| 65 | PULU D
|
|---|
| 66 | STA 40,X
|
|---|
| 67 | STB 80,X
|
|---|
| 68 | PULU D
|
|---|
| 69 | STA 120,X
|
|---|
| 70 | STB 160,X
|
|---|
| 71 | LEAX 280,X
|
|---|
| 72 | DEC <Z
|
|---|
| 73 | BNE COPYA
|
|---|
| 74 | PULU D
|
|---|
| 75 | STU <Z+4
|
|---|
| 76 |
|
|---|
| 77 | LDA #HAUT
|
|---|
| 78 | STA <Z
|
|---|
| 79 | LDU #RAMA+1
|
|---|
| 80 | SCROLA PULU D,X,Y,S
|
|---|
| 81 | LEAU -1,U
|
|---|
| 82 | PSHU S,Y,X,D
|
|---|
| 83 | LEAU 9,U
|
|---|
| 84 | FDB $3776,$335F,$3676,$3349
|
|---|
| 85 | FDB $3776,$335F,$3676,$3349
|
|---|
| 86 | FDB $3776,$335F,$3676,$3349
|
|---|
| 87 | FDB $3776,$335F,$3676,$3349
|
|---|
| 88 | DEC <Z
|
|---|
| 89 | BNE SCROLA
|
|---|
| 90 | CLR RAMA+HAUT*40
|
|---|
| 91 |
|
|---|
| 92 | LDX #RAMB+160
|
|---|
| 93 | LDU <Z+4
|
|---|
| 94 | LDA #HAUT/8
|
|---|
| 95 | STA <Z
|
|---|
| 96 | COPYB PULU D
|
|---|
| 97 | STA -120,X
|
|---|
| 98 | STB -80,X
|
|---|
| 99 | PULU D
|
|---|
| 100 | STA -40,X
|
|---|
| 101 | STB ,X
|
|---|
| 102 | PULU D
|
|---|
| 103 | STA 40,X
|
|---|
| 104 | STB 80,X
|
|---|
| 105 | PULU D
|
|---|
| 106 | STA 120,X
|
|---|
| 107 | STB 160,X
|
|---|
| 108 | LEAX 280,X
|
|---|
| 109 | DEC <Z
|
|---|
| 110 | BNE COPYB
|
|---|
| 111 | STU <Z+4
|
|---|
| 112 |
|
|---|
| 113 | LDA #HAUT
|
|---|
| 114 | STA <Z
|
|---|
| 115 | LDU #RAMB+1
|
|---|
| 116 | SCROLB PULU D,X,Y,S
|
|---|
| 117 | LEAU -1,U
|
|---|
| 118 | PSHU S,Y,X,D
|
|---|
| 119 | LEAU 9,U
|
|---|
| 120 | FDB $3776,$335F,$3676,$3349
|
|---|
| 121 | FDB $3776,$335F,$3676,$3349
|
|---|
| 122 | FDB $3776,$335F,$3676,$3349
|
|---|
| 123 | FDB $3776,$335F,$3676,$3349
|
|---|
| 124 | DEC <Z
|
|---|
| 125 | BNE SCROLB
|
|---|
| 126 | CLR RAMB+HAUT*40
|
|---|
| 127 |
|
|---|
| 128 | LDD #0
|
|---|
| 129 | STA $E7DB pour voir le temps
|
|---|
| 130 | STB $E7DA CPU qu'il reste.
|
|---|
| 131 | STA $E7DA
|
|---|
| 132 |
|
|---|
| 133 | TST $E7C8
|
|---|
| 134 | BNE RDP-4
|
|---|
| 135 | DEC <Z+1
|
|---|
| 136 | LBNE SYNCRO
|
|---|
| 137 |
|
|---|
| 138 | LDA #LONG
|
|---|
| 139 | STA <Z+1
|
|---|
| 140 | LDX <Z+2 lettre suivante
|
|---|
| 141 | LDA ,X+
|
|---|
| 142 | BNE *+7
|
|---|
| 143 | LDA #38
|
|---|
| 144 | LDX #TEXTE
|
|---|
| 145 | LDU #FONTE
|
|---|
| 146 | LDB #HAUT*LONG
|
|---|
| 147 | ASLA
|
|---|
| 148 | MUL
|
|---|
| 149 | LEAU D,U
|
|---|
| 150 | STU <Z+4
|
|---|
| 151 | STX <Z+2
|
|---|
| 152 | JMP SYNCRO
|
|---|
| 153 |
|
|---|
| 154 | LDS #0
|
|---|
| 155 | RDP LDD #0
|
|---|
| 156 | TFR A,DP
|
|---|
| 157 | STB $E7E6
|
|---|
| 158 | CLR $E7DD
|
|---|
| 159 | CLR $E7DC
|
|---|
| 160 | LDA #255
|
|---|
| 161 | LDX #COLORS
|
|---|
| 162 | JSR $EC00
|
|---|
| 163 | SWI
|
|---|
| 164 |
|
|---|
| 165 | COLORS FDB 0,15,240,255,3840,3855
|
|---|
| 166 | FDB 4080,4095,1911,826,931
|
|---|
| 167 | FDB 938,2611,2618,3815,123
|
|---|
| 168 | TEXTE
|
|---|
| 169 |
|
|---|
| 170 | END
|
|---|
