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:
15.5 KB
|
| Line | |
|---|
| 1 |
|
|---|
| 2 | ******** EDITEUR *******
|
|---|
| 3 |
|
|---|
| 4 | M EQU $C000
|
|---|
| 5 | COMPT EQU M
|
|---|
| 6 | COMPTL EQU M+1
|
|---|
| 7 | FLGCOM EQU M+2
|
|---|
| 8 | TYPPAR EQU M+3
|
|---|
| 9 | DEBTXT EQU M+4
|
|---|
| 10 | PTEXT EQU M+6
|
|---|
| 11 | FINTXT EQU M+8
|
|---|
| 12 | LIMTXT EQU M+10
|
|---|
| 13 | PTRCOU EQU M+12
|
|---|
| 14 | GECAR EQU M+14
|
|---|
| 15 | CCAR EQU M+16
|
|---|
| 16 | CCOM EQU M+17
|
|---|
| 17 | CPAR EQU M+18
|
|---|
| 18 | CGRA EQU M+19
|
|---|
| 19 | CERR EQU M+20
|
|---|
| 20 | CFILET EQU M+21
|
|---|
| 21 | CRIEN EQU M+22
|
|---|
| 22 | FLGCLI EQU M+24
|
|---|
| 23 | FLGMOD EQU M+25
|
|---|
| 24 | MCAR EQU M+26
|
|---|
| 25 | MCOM EQU M+28
|
|---|
| 26 | MPAR EQU M+30
|
|---|
| 27 | MGRA EQU M+32
|
|---|
| 28 | MACC EQU M+34
|
|---|
| 29 | FLGACG EQU M+36
|
|---|
| 30 | PTRGRA EQU M+37
|
|---|
| 31 | PILEB EQU M+38
|
|---|
| 32 |
|
|---|
| 33 | MEMCOU EQU $C100 /$C2B7
|
|---|
| 34 |
|
|---|
| 35 | ******** PROGRAMME *******
|
|---|
| 36 |
|
|---|
| 37 | ORG $C800
|
|---|
| 38 | G LDB #$1B
|
|---|
| 39 | JSR $E803
|
|---|
| 40 | LDB #$60
|
|---|
| 41 | JSR $E803
|
|---|
| 42 | LDX #$C300
|
|---|
| 43 | STX DEBTXT
|
|---|
| 44 | LDX #$C328
|
|---|
| 45 | STX PTEXT
|
|---|
| 46 | LDX #$C350
|
|---|
| 47 | STX FINTXT
|
|---|
| 48 | LDX #$C7FF
|
|---|
| 49 | STX LIMTXT
|
|---|
| 50 | LDX #$A001
|
|---|
| 51 | STX GECAR
|
|---|
| 52 | LDX #$F8C3
|
|---|
| 53 | STX CCAR
|
|---|
| 54 | LDX #$C6D0
|
|---|
| 55 | STX CPAR
|
|---|
| 56 | LDX #$D1E0
|
|---|
| 57 | STX CERR
|
|---|
| 58 | LDX #$E000
|
|---|
| 59 | STX CRIEN
|
|---|
| 60 | LDX #$6000
|
|---|
| 61 | STX MCAR
|
|---|
| 62 | LDX #$6496
|
|---|
| 63 | STX MACC
|
|---|
| 64 | LDX #$631F
|
|---|
| 65 | STX MCOM
|
|---|
| 66 | LDX #$661E
|
|---|
| 67 | STX MPAR
|
|---|
| 68 | LDX #$621D
|
|---|
| 69 | STX MGRA
|
|---|
| 70 | LDX #0
|
|---|
| 71 | STX FLGCLI
|
|---|
| 72 | LDA #20
|
|---|
| 73 | STA PTRGRA
|
|---|
| 74 | LBRA PREPEC
|
|---|
| 75 |
|
|---|
| 76 | INSERT LDU FINTXT
|
|---|
| 77 | CMPU LIMTXT
|
|---|
| 78 | LBHS GETC
|
|---|
| 79 | LEAU 1,U
|
|---|
| 80 | STU FINTXT
|
|---|
| 81 | PSHS B
|
|---|
| 82 | LDX PTEXT
|
|---|
| 83 | STX INS4+2,PCR
|
|---|
| 84 | LEAX 40,X
|
|---|
| 85 | STX INS2+2,PCR
|
|---|
| 86 | CMPX FINTXT
|
|---|
| 87 | BHS INS3
|
|---|
| 88 | INS1 LEAU -7,U
|
|---|
| 89 | PULU X,Y,A,B,DP
|
|---|
| 90 | LEAU 1,U
|
|---|
| 91 | PSHU X,Y,A,B,DP
|
|---|
| 92 | LEAU -8,U
|
|---|
| 93 | PULU X,Y,A,B,DP
|
|---|
| 94 | LEAU 1,U
|
|---|
| 95 | PSHU X,Y,A,B,DP
|
|---|
| 96 | LEAU -8,U
|
|---|
| 97 | PULU X,Y,A,B,DP
|
|---|
| 98 | LEAU 1,U
|
|---|
| 99 | PSHU X,Y,A,B,DP
|
|---|
| 100 | LEAU -8,U
|
|---|
| 101 | PULU X,Y,A,B,DP
|
|---|
| 102 | LEAU 1,U
|
|---|
| 103 | PSHU X,Y,A,B,DP
|
|---|
| 104 | LEAU -8,U
|
|---|
| 105 | PULU X,Y,A,B,DP
|
|---|
| 106 | LEAU 1,U
|
|---|
| 107 | PSHU X,Y,A,B,DP
|
|---|
| 108 | LEAU -1,U
|
|---|
| 109 | INS2 CMPU #0
|
|---|
| 110 | BHI INS1
|
|---|
| 111 | INS3 LDA ,-U
|
|---|
| 112 | STA 1,U
|
|---|
| 113 | INS4 CMPU #0
|
|---|
| 114 | BHI INS3
|
|---|
| 115 | PULS B
|
|---|
| 116 | LDX PTEXT
|
|---|
| 117 | STB ,X+
|
|---|
| 118 | STX PTEXT
|
|---|
| 119 | LBRA AFFICH
|
|---|
| 120 |
|
|---|
| 121 | DELETE LDX PTEXT
|
|---|
| 122 | CMPX FINTXT
|
|---|
| 123 | LBHI GETC
|
|---|
| 124 | TFR X,U
|
|---|
| 125 | LDX FINTXT
|
|---|
| 126 | STX DEL4+2,PCR
|
|---|
| 127 | LEAX -1,X
|
|---|
| 128 | STX FINTXT
|
|---|
| 129 | LEAX -39,X
|
|---|
| 130 | STX DEL2+2,PCR
|
|---|
| 131 | STX DEL0+2,PCR
|
|---|
| 132 | LEAU 1,U
|
|---|
| 133 | DEL0 CMPU #0000
|
|---|
| 134 | BHS DEL3
|
|---|
| 135 | DEL1 PULU X,Y,A,B,DP
|
|---|
| 136 | LEAU -1,U
|
|---|
| 137 | PSHU X,Y,A,B,DP
|
|---|
| 138 | LEAU 8,U
|
|---|
| 139 | PULU X,Y,A,B,DP
|
|---|
| 140 | LEAU -1,U
|
|---|
| 141 | PSHU X,Y,A,B,DP
|
|---|
| 142 | LEAU 8,U
|
|---|
| 143 | PULU X,Y,A,B,DP
|
|---|
| 144 | LEAU -1,U
|
|---|
| 145 | PSHU X,Y,A,B,DP
|
|---|
| 146 | LEAU 8,U
|
|---|
| 147 | PULU X,Y,A,B,DP
|
|---|
| 148 | LEAU -1,U
|
|---|
| 149 | PSHU X,Y,A,B,DP
|
|---|
| 150 | LEAU 8,U
|
|---|
| 151 | PULU X,Y,A,B,DP
|
|---|
| 152 | LEAU -1,U
|
|---|
| 153 | PSHU X,Y,A,B,DP
|
|---|
| 154 | LEAU 8,U
|
|---|
| 155 | DEL2 CMPU #0
|
|---|
| 156 | BLO DEL1
|
|---|
| 157 | DEL3 LDA ,U+
|
|---|
| 158 | STA -2,U
|
|---|
| 159 | DEL4 CMPU #0
|
|---|
| 160 | BLO DEL3
|
|---|
| 161 | LBRA AFFICH
|
|---|
| 162 |
|
|---|
| 163 | PREPEC LDA $E7C3
|
|---|
| 164 | ORA #1
|
|---|
| 165 | STA $E7C3
|
|---|
| 166 | LDU #$5F40
|
|---|
| 167 | LDX #0
|
|---|
| 168 | TFR X,Y
|
|---|
| 169 | LDA #10
|
|---|
| 170 | FOND0 LDB #200
|
|---|
| 171 | FOND1 PSHU X,Y
|
|---|
| 172 | DECB
|
|---|
| 173 | BNE FOND1
|
|---|
| 174 | DECA
|
|---|
| 175 | BNE FOND0
|
|---|
| 176 | LDU #$5F40
|
|---|
| 177 | LDX #$FFFF
|
|---|
| 178 | TFR X,Y
|
|---|
| 179 | LDA #12
|
|---|
| 180 | FILET0 LDB #20
|
|---|
| 181 | FILET1 PSHU X,Y
|
|---|
| 182 | DECB
|
|---|
| 183 | BNE FILET1
|
|---|
| 184 | LEAU -$280,U
|
|---|
| 185 | DECA
|
|---|
| 186 | BNE FILET0
|
|---|
| 187 |
|
|---|
| 188 | LDA $E7C3
|
|---|
| 189 | ANDA #$FE
|
|---|
| 190 | STA $E7C3
|
|---|
| 191 | LDU #$5F40
|
|---|
| 192 | LDA CFILET
|
|---|
| 193 | TFR A,B
|
|---|
| 194 | TFR D,X
|
|---|
| 195 | TFR D,Y
|
|---|
| 196 | LDA #12
|
|---|
| 197 | FILET2 LDB #20
|
|---|
| 198 | FILET3 PSHU X,Y
|
|---|
| 199 | DECB
|
|---|
| 200 | BNE FILET3
|
|---|
| 201 | LEAU -$280,U
|
|---|
| 202 | DECA
|
|---|
| 203 | BNE FILET2
|
|---|
| 204 |
|
|---|
| 205 | AFFICH LDA #11
|
|---|
| 206 | STA COMPTL
|
|---|
| 207 | LDA #40
|
|---|
| 208 | STA COMPT
|
|---|
| 209 | LDA $E7C3
|
|---|
| 210 | ORA #1
|
|---|
| 211 | STA $E7C3
|
|---|
| 212 | LDU #MEMCOU
|
|---|
| 213 | LDY #$40F0
|
|---|
| 214 | LDX PTEXT
|
|---|
| 215 | LEAX -$E0,X
|
|---|
| 216 | CMPX DEBTXT
|
|---|
| 217 | LBHS AT2
|
|---|
| 218 | AT0 LDD CRIEN
|
|---|
| 219 | STA ,U+
|
|---|
| 220 | LDD #$FF00
|
|---|
| 221 | STB -$78,Y
|
|---|
| 222 | STB -$50,Y
|
|---|
| 223 | STB -$28,Y
|
|---|
| 224 | STA ,Y
|
|---|
| 225 | STA $28,Y
|
|---|
| 226 | STB $50,Y
|
|---|
| 227 | STB $78,Y
|
|---|
| 228 | LEAY $118,Y
|
|---|
| 229 | STB -$78,Y
|
|---|
| 230 | STB -$50,Y
|
|---|
| 231 | STA -$28,Y
|
|---|
| 232 | STA ,Y
|
|---|
| 233 | STB $28,Y
|
|---|
| 234 | STB $50,Y
|
|---|
| 235 | STB $78,Y
|
|---|
| 236 | LEAY -$117,Y
|
|---|
| 237 | DEC COMPT
|
|---|
| 238 | BNE AT1
|
|---|
| 239 | DEC COMPTL
|
|---|
| 240 | LDA #40
|
|---|
| 241 | STA COMPT
|
|---|
| 242 | LEAY 680,Y
|
|---|
| 243 | AT1 LEAX 1,X
|
|---|
| 244 | CMPX DEBTXT
|
|---|
| 245 | BLO AT0
|
|---|
| 246 | AT2 STU PTRCOU
|
|---|
| 247 | LBRA AT19
|
|---|
| 248 | AT3 LDB ,X+
|
|---|
| 249 | CMPB #$90
|
|---|
| 250 | BLO AT4
|
|---|
| 251 | SUBB #$90
|
|---|
| 252 | LBRA GRAPH
|
|---|
| 253 | AT4 CMPB #$20
|
|---|
| 254 | LBHS CARA
|
|---|
| 255 | AT5 LDA FLGCOM
|
|---|
| 256 | BMI AT13
|
|---|
| 257 | LBNE AT18
|
|---|
| 258 | CMPB #3
|
|---|
| 259 | BNE AT6
|
|---|
| 260 | LDU #$8300
|
|---|
| 261 | LBRA COMSET
|
|---|
| 262 | AT6 CMPB #6
|
|---|
| 263 | BNE AT7
|
|---|
| 264 | LDU #$8600
|
|---|
| 265 | LBRA COMSET
|
|---|
| 266 | AT7 CMPB #4
|
|---|
| 267 | BEQ AT8
|
|---|
| 268 | CMPB #5
|
|---|
| 269 | BEQ AT8
|
|---|
| 270 | CMPB #9
|
|---|
| 271 | BNE AT9
|
|---|
| 272 | AT8 LDU #0
|
|---|
| 273 | LBRA COMSET
|
|---|
| 274 | AT9 CMPB #1
|
|---|
| 275 | BEQ AT10
|
|---|
| 276 | CMPB #7
|
|---|
| 277 | BEQ AT10
|
|---|
| 278 | CMPB #22
|
|---|
| 279 | BNE AT11
|
|---|
| 280 | AT10 LDU #$0101
|
|---|
| 281 | LBRA COMSET
|
|---|
| 282 | AT11 CMPB #2
|
|---|
| 283 | BEQ AT12
|
|---|
| 284 | CMPB #11
|
|---|
| 285 | BEQ AT12
|
|---|
| 286 | CMPB #15
|
|---|
| 287 | BEQ AT12
|
|---|
| 288 | CMPB #16
|
|---|
| 289 | BEQ AT12
|
|---|
| 290 | CMPB #20
|
|---|
| 291 | BNE ERRCOM
|
|---|
| 292 | AT12 LDU #$0200
|
|---|
| 293 | BRA COMSET
|
|---|
| 294 | AT13 CMPA #$83
|
|---|
| 295 | BNE AT17
|
|---|
| 296 | CMPB #1
|
|---|
| 297 | BNE AT15
|
|---|
| 298 | AT14 LDU #$0280
|
|---|
| 299 | BRA COMSET
|
|---|
| 300 | AT15 CMPB #9
|
|---|
| 301 | BEQ AT14
|
|---|
| 302 | CMPB #16
|
|---|
| 303 | BNE AT16
|
|---|
| 304 | LDU #$1080
|
|---|
| 305 | BRA COMSET
|
|---|
| 306 | AT16 CMPB #18
|
|---|
| 307 | BEQ AT8
|
|---|
| 308 | CMPB #20
|
|---|
| 309 | BNE ERRCOM
|
|---|
| 310 | LDU #$0180
|
|---|
| 311 | BRA COMSET
|
|---|
| 312 | AT17 CMPA #$86
|
|---|
| 313 | BNE ERRCOM
|
|---|
| 314 | CMPB #1
|
|---|
| 315 | BEQ AT8
|
|---|
| 316 | CMPB #2
|
|---|
| 317 | BEQ AT8
|
|---|
| 318 | BRA ERRCOM
|
|---|
| 319 | AT18 DEC FLGCOM
|
|---|
| 320 | TST TYPPAR
|
|---|
| 321 | BEQ PARA9
|
|---|
| 322 | BMI PARAF
|
|---|
| 323 | PARA3 CMPB #3
|
|---|
| 324 | BHI ERRPAR
|
|---|
| 325 | PARA9 CMPB #9
|
|---|
| 326 | BHI ERRPAR
|
|---|
| 327 | PARAF CMPB #15
|
|---|
| 328 | BHI ERRPAR
|
|---|
| 329 | LDA CPAR
|
|---|
| 330 | BRA PARA
|
|---|
| 331 | GRAPH LDA CGRA
|
|---|
| 332 | CMPB #31
|
|---|
| 333 | BLS PARA
|
|---|
| 334 | ERRPAR LDA CERR
|
|---|
| 335 | LDU #0
|
|---|
| 336 | PARA CMPB #10
|
|---|
| 337 | BLO PARAS
|
|---|
| 338 | ADDB #7
|
|---|
| 339 | PARAS ADDB #16
|
|---|
| 340 | BRA CARAF
|
|---|
| 341 | ERRCOM LDA CERR
|
|---|
| 342 | LDU #0
|
|---|
| 343 | BRA CARAV
|
|---|
| 344 | COMSET LDA CCOM
|
|---|
| 345 | CARAV ADDB #32
|
|---|
| 346 | BRA CARAS
|
|---|
| 347 | CARA SUBB #32
|
|---|
| 348 | TST FLGCOM
|
|---|
| 349 | BNE ERRCOM
|
|---|
| 350 | LDA CCAR
|
|---|
| 351 | LDU #0
|
|---|
| 352 | CARAS STU FLGCOM
|
|---|
| 353 | CARAF LDU PTRCOU
|
|---|
| 354 | STA ,U+
|
|---|
| 355 | STU PTRCOU
|
|---|
| 356 | LDA #16
|
|---|
| 357 | MUL
|
|---|
| 358 | ADDD GECAR
|
|---|
| 359 | TFR D,U
|
|---|
| 360 | PULU A,B
|
|---|
| 361 | STA -$78,Y
|
|---|
| 362 | STB -$50,Y
|
|---|
| 363 | PULU A,B
|
|---|
| 364 | STA -$28,Y
|
|---|
| 365 | STB ,Y
|
|---|
| 366 | PULU A,B
|
|---|
| 367 | STA $28,Y
|
|---|
| 368 | STB $50,Y
|
|---|
| 369 | PULU A,B
|
|---|
| 370 | STA $78,Y
|
|---|
| 371 | LEAY $118,Y
|
|---|
| 372 | STB -$78,Y
|
|---|
| 373 | PULU A,B
|
|---|
| 374 | STA -$50,Y
|
|---|
| 375 | STB -$28,Y
|
|---|
| 376 | PULU A,B
|
|---|
| 377 | STA ,Y
|
|---|
| 378 | STB $28,Y
|
|---|
| 379 | PULU A,B
|
|---|
| 380 | STA $50,Y
|
|---|
| 381 | STB $78,Y
|
|---|
| 382 | LEAY -$117,Y
|
|---|
| 383 | DEC COMPT
|
|---|
| 384 | BNE AT19
|
|---|
| 385 | DEC COMPTL
|
|---|
| 386 | LBEQ AFFCOU
|
|---|
| 387 | LDA #40
|
|---|
| 388 | STA COMPT
|
|---|
| 389 | LEAY 680,Y
|
|---|
| 390 | AT19 CMPX FINTXT
|
|---|
| 391 | LBLS AT3
|
|---|
| 392 | LDU PTRCOU
|
|---|
| 393 | AT20 LDD CRIEN
|
|---|
| 394 | STA ,U+
|
|---|
| 395 | LDD #$FF00
|
|---|
| 396 | STB -$78,Y
|
|---|
| 397 | STB -$50,Y
|
|---|
| 398 | STB -$28,Y
|
|---|
| 399 | STA ,Y
|
|---|
| 400 | STA $28,Y
|
|---|
| 401 | STB $50,Y
|
|---|
| 402 | STB $78,Y
|
|---|
| 403 | LEAY $118,Y
|
|---|
| 404 | STB -$78,Y
|
|---|
| 405 | STB -$50,Y
|
|---|
| 406 | STA -$28,Y
|
|---|
| 407 | STA ,Y
|
|---|
| 408 | STB $28,Y
|
|---|
| 409 | STB $50,Y
|
|---|
| 410 | STB $78,Y
|
|---|
| 411 | LEAY -$117,Y
|
|---|
| 412 | DEC COMPT
|
|---|
| 413 | BNE AT20
|
|---|
| 414 | DEC COMPTL
|
|---|
| 415 | BEQ AFFCOU
|
|---|
| 416 | LDA #40
|
|---|
| 417 | STA COMPT
|
|---|
| 418 | LEAY 680,Y
|
|---|
| 419 | BRA AT20
|
|---|
| 420 | AFFCOU LDA $E7C3
|
|---|
| 421 | ANDA #$FE
|
|---|
| 422 | STA $E7C3
|
|---|
| 423 | LDU #MEMCOU
|
|---|
| 424 | LDX #$4055
|
|---|
| 425 | LDA #11
|
|---|
| 426 | STA COMPTL
|
|---|
| 427 | AC0 LDA #8
|
|---|
| 428 | STA COMPT
|
|---|
| 429 | AC1 PULU A,B,Y,DP
|
|---|
| 430 | EXG U,X
|
|---|
| 431 | PSHU A,B,Y,DP
|
|---|
| 432 | LEAU 45,U
|
|---|
| 433 | PSHU A,B,Y,DP
|
|---|
| 434 | LEAU 45,U
|
|---|
| 435 | PSHU A,B,Y,DP
|
|---|
| 436 | LEAU 45,U
|
|---|
| 437 | PSHU A,B,Y,DP
|
|---|
| 438 | LEAU 45,U
|
|---|
| 439 | PSHU A,B,Y,DP
|
|---|
| 440 | LEAU 45,U
|
|---|
| 441 | PSHU A,B,Y,DP
|
|---|
| 442 | LEAU 45,U
|
|---|
| 443 | PSHU A,B,Y,DP
|
|---|
| 444 | LEAU 45,U
|
|---|
| 445 | PSHU A,B,Y,DP
|
|---|
| 446 | LEAU 45,U
|
|---|
| 447 | PSHU A,B,Y,DP
|
|---|
| 448 | LEAU 45,U
|
|---|
| 449 | PSHU A,B,Y,DP
|
|---|
| 450 | LEAU 45,U
|
|---|
| 451 | PSHU A,B,Y,DP
|
|---|
| 452 | LEAU 45,U
|
|---|
| 453 | PSHU A,B,Y,DP
|
|---|
| 454 | LEAU 45,U
|
|---|
| 455 | PSHU A,B,Y,DP
|
|---|
| 456 | LEAU 45,U
|
|---|
| 457 | PSHU A,B,Y,DP
|
|---|
| 458 | LEAU 45,U
|
|---|
| 459 | PSHU A,B,Y,DP
|
|---|
| 460 | LEAU 45,U
|
|---|
| 461 | PSHU A,B,Y,DP
|
|---|
| 462 | LEAU -590,U
|
|---|
| 463 | EXG U,X
|
|---|
| 464 | DEC COMPT
|
|---|
| 465 | BNE AC1
|
|---|
| 466 | LEAX 680,X
|
|---|
| 467 | DEC COMPTL
|
|---|
| 468 | BNE AC0
|
|---|
| 469 | LBRA GETC
|
|---|
| 470 | CLIGNO COM FLGCLI
|
|---|
| 471 | LDY #$4EF0
|
|---|
| 472 | TST FLGMOD
|
|---|
| 473 | LBMI CLIPLN
|
|---|
| 474 | LDA -$78,Y
|
|---|
| 475 | ADDA #128
|
|---|
| 476 | STA -$78,Y
|
|---|
| 477 | LDA -$50,Y
|
|---|
| 478 | ADDA #128
|
|---|
| 479 | STA -$50,Y
|
|---|
| 480 | LDA -$28,Y
|
|---|
| 481 | ADDA #128
|
|---|
| 482 | STA -$28,Y
|
|---|
| 483 | LDA ,Y
|
|---|
| 484 | ADDA #128
|
|---|
| 485 | STA ,Y
|
|---|
| 486 | LDA $28,Y
|
|---|
| 487 | ADDA #128
|
|---|
| 488 | STA $28,Y
|
|---|
| 489 | LDA $50,Y
|
|---|
| 490 | ADDA #128
|
|---|
| 491 | STA $50,Y
|
|---|
| 492 | LDA $78,Y
|
|---|
| 493 | ADDA #128
|
|---|
| 494 | STA $78,Y
|
|---|
| 495 | LDA $A0,Y
|
|---|
| 496 | ADDA #128
|
|---|
| 497 | STA $A0,Y
|
|---|
| 498 | LDA $C8,Y
|
|---|
| 499 | ADDA #128
|
|---|
| 500 | STA $C8,Y
|
|---|
| 501 | LDA $F0,Y
|
|---|
| 502 | ADDA #128
|
|---|
| 503 | STA $F0,Y
|
|---|
| 504 | LDA $118,Y
|
|---|
| 505 | ADDA #128
|
|---|
| 506 | STA $118,Y
|
|---|
| 507 | LDA $140,Y
|
|---|
| 508 | ADDA #128
|
|---|
| 509 | STA $140,Y
|
|---|
| 510 | LDA $168,Y
|
|---|
| 511 | ADDA #128
|
|---|
| 512 | STA $168,Y
|
|---|
| 513 | LDA $190,Y
|
|---|
| 514 | ADDA #128
|
|---|
| 515 | STA $190,Y
|
|---|
| 516 | LDA $1B8,Y
|
|---|
| 517 | ADDA #128
|
|---|
| 518 | STA $1B8,Y
|
|---|
| 519 | LDA $1E0,Y
|
|---|
| 520 | ADDA #128
|
|---|
| 521 | STA $1E0,Y
|
|---|
| 522 | RTS
|
|---|
| 523 | CLIPLN COM -$78,Y
|
|---|
| 524 | COM -$50,Y
|
|---|
| 525 | COM -$28,Y
|
|---|
| 526 | COM ,Y
|
|---|
| 527 | COM $28,Y
|
|---|
| 528 | COM $50,Y
|
|---|
| 529 | COM $78,Y
|
|---|
| 530 | COM $A0,Y
|
|---|
| 531 | COM $C8,Y
|
|---|
| 532 | COM $F0,Y
|
|---|
| 533 | COM $118,Y
|
|---|
| 534 | COM $140,Y
|
|---|
| 535 | COM $168,Y
|
|---|
| 536 | COM $190,Y
|
|---|
| 537 | COM $1B8,Y
|
|---|
| 538 | COM $1E0,Y
|
|---|
| 539 | RTS
|
|---|
| 540 | GETC CLR FLGCLI
|
|---|
| 541 | LDA $E7C3
|
|---|
| 542 | ORA #1
|
|---|
| 543 | STA $E7C3
|
|---|
| 544 | GC0 LBSR CLIGNO
|
|---|
| 545 | LDX #$2000
|
|---|
| 546 | GC1 ANDCC #$FE
|
|---|
| 547 | GC2 JSR $E809
|
|---|
| 548 | BCS GC3
|
|---|
| 549 | LEAX -1,X
|
|---|
| 550 | BNE GC2
|
|---|
| 551 | BRA GC0
|
|---|
| 552 | GC3 JSR $E806
|
|---|
| 553 | TSTB
|
|---|
| 554 | BEQ GC1
|
|---|
| 555 | TST FLGCLI
|
|---|
| 556 | BEQ GC4
|
|---|
| 557 | LBSR CLIGNO
|
|---|
| 558 | GC4 CMPB #24 )
|
|---|
| 559 | BNE GC4BIS )à supprimer
|
|---|
| 560 | K NOP )
|
|---|
| 561 | GC4BIS CMPB #1 Mode ACCENT
|
|---|
| 562 | BEQ ACC
|
|---|
| 563 | CMPB #22
|
|---|
| 564 | BNE GC5
|
|---|
| 565 | ACC LDD MACC
|
|---|
| 566 | BRA MODE
|
|---|
| 567 | GC5 CMPB #2 Mode CARACT
|
|---|
| 568 | BEQ SMCAR
|
|---|
| 569 | CMPB #3
|
|---|
| 570 | BNE GC6
|
|---|
| 571 | SMCAR LDD MCAR
|
|---|
| 572 | BRA MODE
|
|---|
| 573 | GC6 CMPB #4 Mode DIFFUSION
|
|---|
| 574 | BNE GC7
|
|---|
| 575 | JMP GC7 Saut à DIFF.
|
|---|
| 576 | GC7 CMPB #5 Mode ESSAI
|
|---|
| 577 | BNE GC8
|
|---|
| 578 | JMP GC8 Saut à ESSAI
|
|---|
| 579 | GC8 CMPB #6 Mode FONCTION
|
|---|
| 580 | BNE GC9
|
|---|
| 581 | LDD MCOM
|
|---|
| 582 | MODE STB FLGMOD
|
|---|
| 583 | LDB #$1B
|
|---|
| 584 | JSR $E803
|
|---|
| 585 | TFR A,B
|
|---|
| 586 | JSR $E803
|
|---|
| 587 | TST FLGACG
|
|---|
| 588 | BEQ GOGET0
|
|---|
| 589 | CLR FLGACG
|
|---|
| 590 | LBRA DELETE
|
|---|
| 591 | GOGET0 LBRA GETC
|
|---|
| 592 | GC9 CMPB #7 Mode GRAPHISMES
|
|---|
| 593 | BNE GC10
|
|---|
| 594 | LDD MGRA
|
|---|
| 595 | BRA MODE
|
|---|
| 596 | GC10 CMPB #8
|
|---|
| 597 | BNE GC12
|
|---|
| 598 | LDX PTEXT
|
|---|
| 599 | CMPX DEBTXT
|
|---|
| 600 | BLS GOGET0
|
|---|
| 601 | LEAX -1,X
|
|---|
| 602 | STX PTEXT
|
|---|
| 603 | GC11 LBRA AFFICH
|
|---|
| 604 | GC12 CMPB #9
|
|---|
| 605 | BNE GC13
|
|---|
| 606 | LDX PTEXT
|
|---|
| 607 | CMPX FINTXT
|
|---|
| 608 | BHI GOGET0
|
|---|
| 609 | LEAX 1,X
|
|---|
| 610 | STX PTEXT
|
|---|
| 611 | BRA GC11
|
|---|
| 612 | GC13 CMPB #10
|
|---|
| 613 | BNE GC14
|
|---|
| 614 | LDX PTEXT
|
|---|
| 615 | LEAX 40,X
|
|---|
| 616 | CMPX FINTXT
|
|---|
| 617 | BHI GOGET0
|
|---|
| 618 | STX PTEXT
|
|---|
| 619 | BRA GC11
|
|---|
| 620 | GC14 CMPB #11
|
|---|
| 621 | BNE GC15
|
|---|
| 622 | LDX PTEXT
|
|---|
| 623 | LEAX -40,X
|
|---|
| 624 | CMPX DEBTXT
|
|---|
| 625 | BLO GOGET0
|
|---|
| 626 | STX PTEXT
|
|---|
| 627 | BRA GC11
|
|---|
| 628 | GC15 CMPB #13 Mémorisation
|
|---|
| 629 | BNE GC16 pour tiroir ?
|
|---|
| 630 | JMP GC16
|
|---|
| 631 | GC16 CMPB #16 Mode PARAMETRE
|
|---|
| 632 | BNE GC17
|
|---|
| 633 | LDD MPAR
|
|---|
| 634 | LBRA MODE
|
|---|
| 635 | GC17 CMPB #29 DELETE
|
|---|
| 636 | LBEQ DELETE
|
|---|
| 637 | LDA FLGMOD
|
|---|
| 638 | BNE GC20
|
|---|
| 639 | CMPB #32
|
|---|
| 640 | BLO GC18
|
|---|
| 641 | CMPB #128
|
|---|
| 642 | BLO GC19
|
|---|
| 643 | GC18 LBRA GETC
|
|---|
| 644 | GC19 LBRA INSERT
|
|---|
| 645 | GC20 CMPB #64
|
|---|
| 646 | BLO GC205
|
|---|
| 647 | ANDB #$DF
|
|---|
| 648 | GC205 CMPA #$96
|
|---|
| 649 | LBNE GCOM
|
|---|
| 650 | LDX PTEXT
|
|---|
| 651 | LDA ,X
|
|---|
| 652 | CMPA #99
|
|---|
| 653 | BNE GC21
|
|---|
| 654 | CMPB #67
|
|---|
| 655 | BNE GC30
|
|---|
| 656 | LDA #128
|
|---|
| 657 | STA ,X
|
|---|
| 658 | BRA AFFACC
|
|---|
| 659 | GC21 CMPA #97
|
|---|
| 660 | BEQ LETA
|
|---|
| 661 | CMPA #129
|
|---|
| 662 | BLO GC26
|
|---|
| 663 | CMPA #132
|
|---|
| 664 | BHI GC26
|
|---|
| 665 | LETA CMPB #65
|
|---|
| 666 | BNE GC22
|
|---|
| 667 | LDA #129
|
|---|
| 668 | BRA AFFACC
|
|---|
| 669 | GC22 CMPB #67
|
|---|
| 670 | BNE GC23
|
|---|
| 671 | LDA #130
|
|---|
| 672 | BRA AFFACC
|
|---|
| 673 | GC23 CMPB #84
|
|---|
| 674 | BNE GC24
|
|---|
| 675 | LDA #131
|
|---|
| 676 | BRA AFFACC
|
|---|
| 677 | GC24 CMPB #71
|
|---|
| 678 | BNE GC30
|
|---|
| 679 | LDA #132
|
|---|
| 680 | BRA AFFACC
|
|---|
| 681 | GC26 CMPA #101
|
|---|
| 682 | BEQ LETE
|
|---|
| 683 | CMPA #133
|
|---|
| 684 | BLO GC31
|
|---|
| 685 | CMPA #136
|
|---|
| 686 | BHI GC31
|
|---|
| 687 | LETE CMPB #65
|
|---|
| 688 | BNE GC27
|
|---|
| 689 | LDA #133
|
|---|
| 690 | BRA AFFACC
|
|---|
| 691 | GC27 CMPB #67
|
|---|
| 692 | BNE GC28
|
|---|
| 693 | LDA #134
|
|---|
| 694 | BRA AFFACC
|
|---|
| 695 | GC28 CMPB #84
|
|---|
| 696 | BNE GC29
|
|---|
| 697 | LDA #135
|
|---|
| 698 | BRA AFFACC
|
|---|
| 699 | GC29 CMPB #71
|
|---|
| 700 | BNE GC30
|
|---|
| 701 | LDA #136
|
|---|
| 702 | AFFACC STA ,X
|
|---|
| 703 | LBRA AFFICH
|
|---|
| 704 | GC30 LBRA GETC
|
|---|
| 705 | GC31 CMPA #105
|
|---|
| 706 | BEQ LETI
|
|---|
| 707 | CMPA #137
|
|---|
| 708 | BLO GC33
|
|---|
| 709 | CMPA #138
|
|---|
| 710 | BHI GC33
|
|---|
| 711 | LETI CMPB #67
|
|---|
| 712 | BNE GC32
|
|---|
| 713 | LDA #137
|
|---|
| 714 | BRA AFFACC
|
|---|
| 715 | GC32 CMPB #84
|
|---|
| 716 | BNE GC30
|
|---|
| 717 | LDA #138
|
|---|
| 718 | BRA AFFACC
|
|---|
| 719 | GC33 CMPA #111
|
|---|
| 720 | BEQ LETO
|
|---|
| 721 | CMPA #139
|
|---|
| 722 | BLO GC35
|
|---|
| 723 | CMPA #140
|
|---|
| 724 | BHI GC35
|
|---|
| 725 | LETO CMPB #67
|
|---|
| 726 | BNE GC34
|
|---|
| 727 | LDA #139
|
|---|
| 728 | BRA AFFACC
|
|---|
| 729 | GC34 CMPB #84
|
|---|
| 730 | BNE GC30
|
|---|
| 731 | LDA #140
|
|---|
| 732 | BRA AFFACC
|
|---|
| 733 | GC35 CMPA #117
|
|---|
| 734 | BEQ LETU
|
|---|
| 735 | CMPA #141
|
|---|
| 736 | BLO GC37
|
|---|
| 737 | CMPA #143
|
|---|
| 738 | BHI GC37
|
|---|
| 739 | LETU CMPB #67
|
|---|
| 740 | BNE GC36
|
|---|
| 741 | LDA #141
|
|---|
| 742 | BRA AFFACC
|
|---|
| 743 | GC36 CMPB #84
|
|---|
| 744 | BNE GC37
|
|---|
| 745 | LDA #142
|
|---|
| 746 | BRA AFFACC
|
|---|
| 747 | GC37 CMPB #71
|
|---|
| 748 | BNE GC30
|
|---|
| 749 | LDA #143
|
|---|
| 750 | BRA AFFACC
|
|---|
| 751 | GCOM CMPA #31
|
|---|
| 752 | BNE GPAR
|
|---|
| 753 | SUBB #64
|
|---|
| 754 | BLE GOGET1
|
|---|
| 755 | CMPB #22
|
|---|
| 756 | BHI GOGET1
|
|---|
| 757 | CMPB #8
|
|---|
| 758 | BEQ GOGET1
|
|---|
| 759 | CMPB #10
|
|---|
| 760 | BEQ GOGET1
|
|---|
| 761 | CMPB #17
|
|---|
| 762 | BEQ GOGET1
|
|---|
| 763 | CMPB #19
|
|---|
| 764 | BEQ GOGET1
|
|---|
| 765 | CMPB #21
|
|---|
| 766 | BEQ GOGET1
|
|---|
| 767 | CMPB #12
|
|---|
| 768 | BLO GINS
|
|---|
| 769 | CMPB #14
|
|---|
| 770 | BLS GOGET1
|
|---|
| 771 | GINS LBRA INSERT
|
|---|
| 772 | GPAR CMPA #30
|
|---|
| 773 | BNE GGRA
|
|---|
| 774 | SUBB #48
|
|---|
| 775 | BMI GOGET1
|
|---|
| 776 | CMPB #9
|
|---|
| 777 | BLS GINS
|
|---|
| 778 | SUBB #7
|
|---|
| 779 | CMPB #10
|
|---|
| 780 | BLO GOGET1
|
|---|
| 781 | CMPB #15
|
|---|
| 782 | BLS GINS
|
|---|
| 783 | GOGET1 LBRA GETC
|
|---|
| 784 | GGRA CMPA #29
|
|---|
| 785 | BNE GOGET1
|
|---|
| 786 | SUBB #48
|
|---|
| 787 | BMI GOGET1
|
|---|
| 788 | CMPB #9
|
|---|
| 789 | BHI GOGET1
|
|---|
| 790 | COM FLGACG
|
|---|
| 791 | BEQ GGRA2
|
|---|
| 792 | STB PILEB
|
|---|
| 793 | ADDB #48
|
|---|
| 794 | BRA GINS
|
|---|
| 795 | GGRA2 LDX PTEXT
|
|---|
| 796 | PSHS B
|
|---|
| 797 | LDA #10
|
|---|
| 798 | LDB PILEB
|
|---|
| 799 | MUL
|
|---|
| 800 | ADDB ,S+
|
|---|
| 801 | CMPB PTRGRA
|
|---|
| 802 | BLS GGRA3
|
|---|
| 803 | LEAX -1,X
|
|---|
| 804 | STX PTEXT
|
|---|
| 805 | LBRA DELETE
|
|---|
| 806 | GGRA3 ADDB #$90
|
|---|
| 807 | STB ,-X
|
|---|
| 808 | LBRA AFFICH
|
|---|
| 809 |
|
|---|
| 810 |
|
|---|
| 811 |
|
|---|
| 812 |
|
|---|
| 813 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
