main
|
Last change
on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago |
|
Add that collection of 3rdparty source I had lying on my disk for some time...
git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
|
-
Property mode
set to
100644
|
|
File size:
5.1 KB
|
| Line | |
|---|
| 1 |
|
|---|
| 2 |
|
|---|
| 3 | ***** ENTETE *****
|
|---|
| 4 |
|
|---|
| 5 | ***** EQUATES ****
|
|---|
| 6 |
|
|---|
| 7 | T EQU $B800
|
|---|
| 8 |
|
|---|
| 9 | COMPT EQU T
|
|---|
| 10 | COMPTL EQU T+1
|
|---|
| 11 | COMPT1 EQU T+2
|
|---|
| 12 | COMPT2 EQU T+3
|
|---|
| 13 | GECAR EQU T+4
|
|---|
| 14 | FLACLI EQU T+6
|
|---|
| 15 |
|
|---|
| 16 | ***** PROGRAMME **
|
|---|
| 17 |
|
|---|
| 18 | ORG $C000
|
|---|
| 19 | G LDX #$9E00
|
|---|
| 20 | STX GECAR
|
|---|
| 21 | LDX #PARAM
|
|---|
| 22 | LDA ,X+
|
|---|
| 23 | PUTC LDB ,X+
|
|---|
| 24 | JSR $E803
|
|---|
| 25 | DECA
|
|---|
| 26 | BNE PUTC
|
|---|
| 27 | LDA $E7C3
|
|---|
| 28 | ORA #1
|
|---|
| 29 | STA $E7C3
|
|---|
| 30 | PSHS X
|
|---|
| 31 | CLR FLACLI
|
|---|
| 32 | LDX #$4000
|
|---|
| 33 | LDB #80
|
|---|
| 34 | BSR GRAND
|
|---|
| 35 | LEAX -1,X
|
|---|
| 36 | BSR P0
|
|---|
| 37 | LEAX 159,X
|
|---|
| 38 | LDD #$38FF
|
|---|
| 39 | BSR P1
|
|---|
| 40 | LEAX 2079,X
|
|---|
| 41 | BSR P0
|
|---|
| 42 | LEAX -1,X
|
|---|
| 43 | LDB #79
|
|---|
| 44 | BSR GRAND
|
|---|
| 45 | LDD #$08FF
|
|---|
| 46 | BSR P1
|
|---|
| 47 | LDB #49
|
|---|
| 48 | LEAX -1,X
|
|---|
| 49 | BSR GRAND
|
|---|
| 50 | BRA AT0
|
|---|
| 51 |
|
|---|
| 52 | GRAND BSR ADRCAR
|
|---|
| 53 | OCT LDA ,Y+
|
|---|
| 54 | LDB #4
|
|---|
| 55 | STB COMPT
|
|---|
| 56 | NOCT CLRB
|
|---|
| 57 | ROLA
|
|---|
| 58 | BCC PB1
|
|---|
| 59 | ORB #$F0
|
|---|
| 60 | PB1 ROLA
|
|---|
| 61 | BCC PB0
|
|---|
| 62 | ORB #$F
|
|---|
| 63 | PB0 STB $78,X
|
|---|
| 64 | STB $50,X
|
|---|
| 65 | STB $28,X
|
|---|
| 66 | STB ,X+
|
|---|
| 67 | DEC COMPT
|
|---|
| 68 | BNE NOCT
|
|---|
| 69 | LEAX 156,X
|
|---|
| 70 | DEC COMPTL
|
|---|
| 71 | BNE OCT
|
|---|
| 72 | LEAX -476,X
|
|---|
| 73 | RTS
|
|---|
| 74 |
|
|---|
| 75 | P0 LDD #$080F
|
|---|
| 76 | BSR P1
|
|---|
| 77 | LEAX 2079,X
|
|---|
| 78 | LDD #$08F0
|
|---|
| 79 | BRA P1
|
|---|
| 80 | P1 STB ,X
|
|---|
| 81 | LEAX 40,X
|
|---|
| 82 | DECA
|
|---|
| 83 | BNE P1
|
|---|
| 84 | LEAX -2398,X
|
|---|
| 85 | RTS
|
|---|
| 86 |
|
|---|
| 87 | ADRCAR LDA #16
|
|---|
| 88 | STA COMPTL
|
|---|
| 89 | MUL
|
|---|
| 90 | ADDD GECAR
|
|---|
| 91 | TFR D,Y
|
|---|
| 92 | RTS
|
|---|
| 93 |
|
|---|
| 94 | AT0 LDY #$403A
|
|---|
| 95 | LDD #$14EB
|
|---|
| 96 | LBSR CADRE
|
|---|
| 97 | PULS U
|
|---|
| 98 | AT3 LDA ,U+
|
|---|
| 99 | BEQ AT5
|
|---|
| 100 | STA COMPT
|
|---|
| 101 | LDX ,U++
|
|---|
| 102 | AT4 LDB ,U+
|
|---|
| 103 | BSR PETIT
|
|---|
| 104 | DEC COMPT
|
|---|
| 105 | BNE AT4
|
|---|
| 106 | BRA AT3
|
|---|
| 107 | PETIT BSR ADRCAR
|
|---|
| 108 | MO1 LDB ,Y+
|
|---|
| 109 | STB ,X
|
|---|
| 110 | LEAX 40,X
|
|---|
| 111 | DEC COMPTL
|
|---|
| 112 | BNE MO1
|
|---|
| 113 | LEAX -639,X
|
|---|
| 114 | RTS
|
|---|
| 115 | AT5 LDA ,U+
|
|---|
| 116 | BEQ AT9
|
|---|
| 117 | STA COMPT
|
|---|
| 118 | LDX ,U++
|
|---|
| 119 | AT6 CLR FLACLI
|
|---|
| 120 | LDB ,U+
|
|---|
| 121 | CMPB #73
|
|---|
| 122 | BNE AT65
|
|---|
| 123 | COM FLACLI
|
|---|
| 124 | AT65 CMPB #46
|
|---|
| 125 | BEQ AT7
|
|---|
| 126 | MOYEN LBSR ADRCAR
|
|---|
| 127 | M0 LDA ,Y+
|
|---|
| 128 | STA COMPT1
|
|---|
| 129 | LDA #8
|
|---|
| 130 | STA COMPT2
|
|---|
| 131 | CLRA
|
|---|
| 132 | CLRB
|
|---|
| 133 | M1 ROL COMPT1
|
|---|
| 134 | BCC M2
|
|---|
| 135 | ROLB
|
|---|
| 136 | ORA #$80
|
|---|
| 137 | ROLA
|
|---|
| 138 | ROLB
|
|---|
| 139 | ROLA
|
|---|
| 140 | BRA M3
|
|---|
| 141 | M2 LSLB
|
|---|
| 142 | ROLA
|
|---|
| 143 | LSLB
|
|---|
| 144 | ROLA
|
|---|
| 145 | M3 DEC COMPT2
|
|---|
| 146 | BNE M1
|
|---|
| 147 | TST FLACLI
|
|---|
| 148 | BNE M4
|
|---|
| 149 | ANDB #$FE
|
|---|
| 150 | STD ,X
|
|---|
| 151 | BRA M5
|
|---|
| 152 | M4 RORA
|
|---|
| 153 | RORB
|
|---|
| 154 | RORA
|
|---|
| 155 | RORB
|
|---|
| 156 | RORA
|
|---|
| 157 | RORB
|
|---|
| 158 | ANDB #$FC
|
|---|
| 159 | STB ,X
|
|---|
| 160 | M5 LEAX 40,X
|
|---|
| 161 | DEC COMPTL
|
|---|
| 162 | BNE M0
|
|---|
| 163 | TST FLACLI
|
|---|
| 164 | BNE M6
|
|---|
| 165 | LEAX -638,X
|
|---|
| 166 | BRA AT8
|
|---|
| 167 | M6 LEAX -639,X
|
|---|
| 168 | BRA AT8
|
|---|
| 169 | AT7 LBSR PETIT
|
|---|
| 170 | AT8 DEC COMPT
|
|---|
| 171 | BNE AT6
|
|---|
| 172 | BRA AT5
|
|---|
| 173 |
|
|---|
| 174 | AT9 LDY #$4FA4
|
|---|
| 175 | LDD #$1EE1
|
|---|
| 176 | BSR CADRE
|
|---|
| 177 | BRA AT10
|
|---|
| 178 |
|
|---|
| 179 |
|
|---|
| 180 | CADRE STB COMPT
|
|---|
| 181 | LDB #$3F
|
|---|
| 182 | STB -40,Y
|
|---|
| 183 | STB $C30,Y
|
|---|
| 184 | LDB #$7F
|
|---|
| 185 | STB $C08,Y
|
|---|
| 186 | STB ,Y+
|
|---|
| 187 | LDB #$FF
|
|---|
| 188 | CA0 STB $C30,Y
|
|---|
| 189 | STB $C08,Y
|
|---|
| 190 | STB -40,Y
|
|---|
| 191 | STB ,Y+
|
|---|
| 192 | DECA
|
|---|
| 193 | BNE CA0
|
|---|
| 194 | LDD #$FCFE
|
|---|
| 195 | STA -40,Y
|
|---|
| 196 | STA $C30,Y
|
|---|
| 197 | STB $C08,Y
|
|---|
| 198 | STB ,Y
|
|---|
| 199 | LDX #76
|
|---|
| 200 | LDB COMPT
|
|---|
| 201 | CA1 LEAY 40,Y
|
|---|
| 202 | LDA #$C0
|
|---|
| 203 | STA B,Y
|
|---|
| 204 | LDA #3
|
|---|
| 205 | STA ,Y
|
|---|
| 206 | LEAX -1,X
|
|---|
| 207 | BNE CA1
|
|---|
| 208 | RTS
|
|---|
| 209 |
|
|---|
| 210 | AT10 CLR FLACLI
|
|---|
| 211 | LDA $E7C3
|
|---|
| 212 | ANDA #$FE
|
|---|
| 213 | STA $E7C3
|
|---|
| 214 | CM1 LDU #$5BFC
|
|---|
| 215 | LDA #$F6
|
|---|
| 216 | COM FLACLI
|
|---|
| 217 | BNE CM2
|
|---|
| 218 | LDA #$CB
|
|---|
| 219 | CM2 TFR A,B
|
|---|
| 220 | TFR D,X
|
|---|
| 221 | TFR D,Y
|
|---|
| 222 | LDA #80
|
|---|
| 223 | CM3 LEAU -8,U
|
|---|
| 224 | LDB #8
|
|---|
| 225 | CM4 PSHU X,Y
|
|---|
| 226 | DECB
|
|---|
| 227 | BNE CM4
|
|---|
| 228 | DECA
|
|---|
| 229 | BNE CM3
|
|---|
| 230 | TST FLACLI
|
|---|
| 231 | BNE CM5
|
|---|
| 232 | LDA #$CE
|
|---|
| 233 | STA ,U
|
|---|
| 234 | STA 31,U
|
|---|
| 235 | STA 40,U
|
|---|
| 236 | STA 71,U
|
|---|
| 237 | LEAU $C30,U
|
|---|
| 238 | STA ,U
|
|---|
| 239 | STA 31,U
|
|---|
| 240 | STA 40,U
|
|---|
| 241 | STA 71,U
|
|---|
| 242 | CM5 LDX #$2000
|
|---|
| 243 | ANDCC #$FE
|
|---|
| 244 | CM6 LEAX -1,X
|
|---|
| 245 | BEQ CM1
|
|---|
| 246 | JSR $E809
|
|---|
| 247 | BCC CM6
|
|---|
| 248 | JSR $E806
|
|---|
| 249 | TSTB
|
|---|
| 250 | BEQ CM6
|
|---|
| 251 | CMPB #49
|
|---|
| 252 | LBEQ EDIT DIFFUSION
|
|---|
| 253 | CMPB #51
|
|---|
| 254 | LBEQ EDIT GRAPHISME
|
|---|
| 255 | CMPB #50
|
|---|
| 256 | BNE CM6
|
|---|
| 257 | EDIT NOP
|
|---|
| 258 |
|
|---|
| 259 | FINAL LDB #$1B
|
|---|
| 260 | JSR $E803
|
|---|
| 261 | LDB #$60
|
|---|
| 262 | JSR $E803
|
|---|
| 263 | K NOP
|
|---|
| 264 | PARAM FCB 13,27,68,27,86,27,102,31
|
|---|
| 265 | FCB 18,20,31,32,32,12
|
|---|
| 266 | FCB 20,$41,$7B
|
|---|
| 267 | FCC "Association pour les"
|
|---|
| 268 | FCB 18,$45,$3C
|
|---|
| 269 | FCC "Services Connexes"
|
|---|
| 270 | FCB 16,$48,$FD,132
|
|---|
| 271 | FCC " l'Informatique"
|
|---|
| 272 | FCB 12,$4A,$03
|
|---|
| 273 | FCC "Version 1.02"
|
|---|
| 274 | FCB 40,$4C,$80
|
|---|
| 275 | FCC "Publicit"
|
|---|
| 276 | FCB 133
|
|---|
| 277 | FCC " et Information par "
|
|---|
| 278 | FCC "Ordinateur."
|
|---|
| 279 | FCB 40,$5C,$C0
|
|---|
| 280 | FCC "ASCI Association loi 190"
|
|---|
| 281 | FCC "1 Copyright 1989"
|
|---|
| 282 | FCB 0,20,$50,$E6
|
|---|
| 283 | FCC "DIFFUSION..........1"
|
|---|
| 284 | FCB 22,$54,$A6
|
|---|
| 285 | FCC "EDITION..............2"
|
|---|
| 286 | FCB 19,$58,$66
|
|---|
| 287 | FCC "GRAPHISME.........3"
|
|---|
| 288 | FCB 0
|
|---|
| 289 |
|
|---|
| 290 |
|
|---|
| 291 |
|
|---|
| 292 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
