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:
6.6 KB
|
| Line | |
|---|
| 1 | *VIDEOTEXT
|
|---|
| 2 |
|
|---|
| 3 |
|
|---|
| 4 | *EDITEUR
|
|---|
| 5 |
|
|---|
| 6 | COMPTX EQU $9800
|
|---|
| 7 | COMPTY EQU $9801
|
|---|
| 8 | LX EQU $9802
|
|---|
| 9 | LY EQU $9803
|
|---|
| 10 |
|
|---|
| 11 | ORG $9000
|
|---|
| 12 |
|
|---|
| 13 | DEBUT PSHS A,B,CC,DP,X,Y,U
|
|---|
| 14 | G LDB #$11
|
|---|
| 15 | JSR $E803
|
|---|
| 16 | LDD #$0600
|
|---|
| 17 | STD LX
|
|---|
| 18 | B0 LDY #$A000
|
|---|
| 19 | BOUCLE CMPY #$A000
|
|---|
| 20 | BLO B0
|
|---|
| 21 | CMPY #$DF80
|
|---|
| 22 | BLO B1
|
|---|
| 23 | LDY #$DF78
|
|---|
| 24 | B1 TFR Y,X
|
|---|
| 25 | LBSR AFFICH
|
|---|
| 26 | CURSOR LDD LX
|
|---|
| 27 | LBSR LOCATE
|
|---|
| 28 | *KTST JSR $E809
|
|---|
| 29 | * BCC KTST
|
|---|
| 30 | GETC JSR $E806
|
|---|
| 31 | BCC GETC
|
|---|
| 32 | ANAL LDA LX
|
|---|
| 33 | LDU #TABLIN
|
|---|
| 34 | KEY8 CMPB #8
|
|---|
| 35 | BNE KEY9
|
|---|
| 36 | KEY81 DECA
|
|---|
| 37 | CMPA #6
|
|---|
| 38 | BLO KEY82
|
|---|
| 39 | TST A,U
|
|---|
| 40 | BEQ KEY81
|
|---|
| 41 | BRA POSCUR
|
|---|
| 42 | KEY82 LDA #39
|
|---|
| 43 | BRA POSCUR
|
|---|
| 44 | KEY9 CMPB #9
|
|---|
| 45 | BNE KEY10
|
|---|
| 46 | KEY91 INCA
|
|---|
| 47 | CMPA #38
|
|---|
| 48 | BHI KEY92
|
|---|
| 49 | TST A,U
|
|---|
| 50 | BEQ KEY91
|
|---|
| 51 | BRA POSCUR
|
|---|
| 52 | KEY92 LDA #6
|
|---|
| 53 | POSCUR STA LX
|
|---|
| 54 | BRA CURSOR
|
|---|
| 55 | KEY10 CMPB #10
|
|---|
| 56 | BNE KEY11
|
|---|
| 57 | KEY101 INC LY
|
|---|
| 58 | LDA LY
|
|---|
| 59 | CMPA #25
|
|---|
| 60 | BLO CURSOR
|
|---|
| 61 | DEC LY
|
|---|
| 62 | LBRA SCRHAU
|
|---|
| 63 | KEY11 CMPB #11
|
|---|
| 64 | BNE AUTRE
|
|---|
| 65 | KEY111 DEC LY
|
|---|
| 66 | BPL CURSOR
|
|---|
| 67 | INC LY
|
|---|
| 68 | LBRA SCRBAS
|
|---|
| 69 | AUTRE CMPB #153
|
|---|
| 70 | LBEQ K
|
|---|
| 71 | CMPB #32
|
|---|
| 72 | BLO GETC
|
|---|
| 73 | CMPB #127
|
|---|
| 74 | BHI GETC
|
|---|
| 75 | TST A,U
|
|---|
| 76 | BPL MODIF
|
|---|
| 77 | CMPB #$30
|
|---|
| 78 | BLO GETC
|
|---|
| 79 | CMPB #$3A
|
|---|
| 80 | BLO MODIF
|
|---|
| 81 | ANDB #$DF
|
|---|
| 82 | CMPB #$41
|
|---|
| 83 | BLO GETC
|
|---|
| 84 | CMPB #$46
|
|---|
| 85 | BHI GETC
|
|---|
| 86 | MODIF TST A,U
|
|---|
| 87 | BMI CODHEX
|
|---|
| 88 | PSHS B
|
|---|
| 89 | SUBA #31
|
|---|
| 90 | LEAX A,Y
|
|---|
| 91 | LDA LY
|
|---|
| 92 | LDB #8
|
|---|
| 93 | MUL
|
|---|
| 94 | LEAX D,X
|
|---|
| 95 | PULS A
|
|---|
| 96 | BRA ECRIT
|
|---|
| 97 | CODHEX SUBB #$30
|
|---|
| 98 | CMPB #10
|
|---|
| 99 | BLO COD0
|
|---|
| 100 | SUBB #7
|
|---|
| 101 | COD0 PSHS B
|
|---|
| 102 | LDB A,U
|
|---|
| 103 | ANDB #$0F
|
|---|
| 104 | PSHS B
|
|---|
| 105 | LSRB
|
|---|
| 106 | LEAX B,Y
|
|---|
| 107 | LDA LY
|
|---|
| 108 | LDB #8
|
|---|
| 109 | MUL
|
|---|
| 110 | LEAX D,X
|
|---|
| 111 | PULS A
|
|---|
| 112 | BITA #1
|
|---|
| 113 | BEQ GAUCHE
|
|---|
| 114 | PULS B
|
|---|
| 115 | LDA ,X
|
|---|
| 116 | LSRA
|
|---|
| 117 | LSRA
|
|---|
| 118 | LSRA
|
|---|
| 119 | LSRA
|
|---|
| 120 | LSLB
|
|---|
| 121 | LSLB
|
|---|
| 122 | LSLB
|
|---|
| 123 | LSLB
|
|---|
| 124 | LSRA
|
|---|
| 125 | RORB
|
|---|
| 126 | LSRA
|
|---|
| 127 | RORB
|
|---|
| 128 | LSRA
|
|---|
| 129 | RORB
|
|---|
| 130 | LSRA
|
|---|
| 131 | RORB
|
|---|
| 132 | TFR B,A
|
|---|
| 133 | BRA ECRIT
|
|---|
| 134 | GAUCHE PULS A
|
|---|
| 135 | LDB ,X
|
|---|
| 136 | LSLB
|
|---|
| 137 | LSLB
|
|---|
| 138 | LSLB
|
|---|
| 139 | LSLB
|
|---|
| 140 | LSRA
|
|---|
| 141 | RORB
|
|---|
| 142 | LSRA
|
|---|
| 143 | RORB
|
|---|
| 144 | LSRA
|
|---|
| 145 | RORB
|
|---|
| 146 | LSRA
|
|---|
| 147 | RORB
|
|---|
| 148 | TFR B,A
|
|---|
| 149 | ECRIT STA ,X
|
|---|
| 150 | STX $9900
|
|---|
| 151 | LDB #9
|
|---|
| 152 | LDA LY
|
|---|
| 153 | LDB #8
|
|---|
| 154 | MUL
|
|---|
| 155 | LEAX D,Y
|
|---|
| 156 | LDA LY
|
|---|
| 157 | BSR AFFLI
|
|---|
| 158 | LDA LX
|
|---|
| 159 | CMPA #38
|
|---|
| 160 | BNE NOR1
|
|---|
| 161 | LDA #31
|
|---|
| 162 | BRA NOR2
|
|---|
| 163 | NOR1 CMPA #28
|
|---|
| 164 | BNE NOR3
|
|---|
| 165 | LDA #6
|
|---|
| 166 | NOR2 STA LX
|
|---|
| 167 | LBRA KEY101
|
|---|
| 168 | NOR3 LBRA KEY91
|
|---|
| 169 |
|
|---|
| 170 | K NOP
|
|---|
| 171 |
|
|---|
| 172 |
|
|---|
| 173 | ****AFFICHAGE D'UNE PAGE DEPUIS X ****
|
|---|
| 174 |
|
|---|
| 175 | AFFICH LDA #25
|
|---|
| 176 | STA COMPTY
|
|---|
| 177 | NLIGNE BSR LIGNE
|
|---|
| 178 | DEC COMPTY
|
|---|
| 179 | BNE NLIGNE
|
|---|
| 180 | RTS
|
|---|
| 181 |
|
|---|
| 182 | **** affichage de la ligne no A
|
|---|
| 183 |
|
|---|
| 184 | AFFLI NEGA
|
|---|
| 185 | ADDA #25
|
|---|
| 186 | STA COMPTY
|
|---|
| 187 |
|
|---|
| 188 | **** affichage d'une ligne
|
|---|
| 189 |
|
|---|
| 190 | LIGNE LDA #8
|
|---|
| 191 | STA COMPTX
|
|---|
| 192 | LDB COMPTY
|
|---|
| 193 | NEGB
|
|---|
| 194 | ADDB #25
|
|---|
| 195 | CLRA
|
|---|
| 196 | BSR LOCATE
|
|---|
| 197 | BSR HEXA4
|
|---|
| 198 | BSR SPACE
|
|---|
| 199 | BSR SPACE
|
|---|
| 200 | HEXA LDA ,X+
|
|---|
| 201 | BSR HEXA2
|
|---|
| 202 | BSR SPACE
|
|---|
| 203 | DEC COMPTX
|
|---|
| 204 | BNE HEXA
|
|---|
| 205 | LEAX -8,X
|
|---|
| 206 | LDA #8
|
|---|
| 207 | STA COMPTX
|
|---|
| 208 | BSR SPACE
|
|---|
| 209 | ASCII LDB ,X+
|
|---|
| 210 | CMPB #$20
|
|---|
| 211 | BLO POINT
|
|---|
| 212 | CMPB #$80
|
|---|
| 213 | BLO PRINT
|
|---|
| 214 | POINT LDB #$2E
|
|---|
| 215 | PRINT JSR $E803
|
|---|
| 216 | DEC COMPTX
|
|---|
| 217 | BNE ASCII
|
|---|
| 218 | RTS
|
|---|
| 219 |
|
|---|
| 220 | ****LOCATE A,B
|
|---|
| 221 |
|
|---|
| 222 | LOCATE PSHS A
|
|---|
| 223 | PSHS B
|
|---|
| 224 | LDB #$1F
|
|---|
| 225 | JSR $E803
|
|---|
| 226 | PULS B
|
|---|
| 227 | ADDB #$40
|
|---|
| 228 | JSR $E803
|
|---|
| 229 | PULS B
|
|---|
| 230 | ADDB #$41
|
|---|
| 231 | JMP $E803
|
|---|
| 232 |
|
|---|
| 233 | ****HEXA4 AFF. DU NBRE X DE 4 CH.EN HEXA
|
|---|
| 234 |
|
|---|
| 235 | HEXA4 TFR X,D
|
|---|
| 236 | PSHS B
|
|---|
| 237 | BSR HEXA2
|
|---|
| 238 | PULS A
|
|---|
| 239 |
|
|---|
| 240 | ****HEXA2 AFF. DU NBRE A DE 2 CH.EN HEXA
|
|---|
| 241 |
|
|---|
| 242 | HEXA2 TFR A,B
|
|---|
| 243 | LSRB
|
|---|
| 244 | LSRB
|
|---|
| 245 | LSRB
|
|---|
| 246 | LSRB
|
|---|
| 247 | CMPB #10
|
|---|
| 248 | BLO HEXA21
|
|---|
| 249 | ADDB #7
|
|---|
| 250 | HEXA21 ADDB #$30
|
|---|
| 251 | JSR $E803
|
|---|
| 252 | TFR A,B
|
|---|
| 253 | ANDB #$0F
|
|---|
| 254 | CMPB #10
|
|---|
| 255 | BLO HEXA22
|
|---|
| 256 | ADDB #7
|
|---|
| 257 | HEXA22 ADDB #$30
|
|---|
| 258 | JMP $E803
|
|---|
| 259 |
|
|---|
| 260 | **** SPACE: AFF. DE A ESPACES
|
|---|
| 261 |
|
|---|
| 262 | SPACE LDB #$20
|
|---|
| 263 | JMP $E803
|
|---|
| 264 |
|
|---|
| 265 | **** scroll haut
|
|---|
| 266 |
|
|---|
| 267 | SCRHAU PSHS X,Y,U
|
|---|
| 268 | LDB #$14
|
|---|
| 269 | JSR $E803
|
|---|
| 270 | LDX #$4140
|
|---|
| 271 | LDY #$4000
|
|---|
| 272 | LDA #192
|
|---|
| 273 | SH0 LDU ,X++
|
|---|
| 274 | STU ,Y++
|
|---|
| 275 | LDU ,X++
|
|---|
| 276 | STU ,Y++
|
|---|
| 277 | LDU ,X++
|
|---|
| 278 | STU ,Y++
|
|---|
| 279 | LDU ,X++
|
|---|
| 280 | STU ,Y++
|
|---|
| 281 | LDU ,X++
|
|---|
| 282 | STU ,Y++
|
|---|
| 283 | LDU ,X++
|
|---|
| 284 | STU ,Y++
|
|---|
| 285 | LDU ,X++
|
|---|
| 286 | STU ,Y++
|
|---|
| 287 | LDU ,X++
|
|---|
| 288 | STU ,Y++
|
|---|
| 289 | LDU ,X++
|
|---|
| 290 | STU ,Y++
|
|---|
| 291 | LDU ,X++
|
|---|
| 292 | STU ,Y++
|
|---|
| 293 | LDU ,X++
|
|---|
| 294 | STU ,Y++
|
|---|
| 295 | LDU ,X++
|
|---|
| 296 | STU ,Y++
|
|---|
| 297 | LDU ,X++
|
|---|
| 298 | STU ,Y++
|
|---|
| 299 | LDU ,X++
|
|---|
| 300 | STU ,Y++
|
|---|
| 301 | LDU ,X++
|
|---|
| 302 | STU ,Y++
|
|---|
| 303 | LDU ,X++
|
|---|
| 304 | STU ,Y++
|
|---|
| 305 | LDU ,X++
|
|---|
| 306 | STU ,Y++
|
|---|
| 307 | LDU ,X++
|
|---|
| 308 | STU ,Y++
|
|---|
| 309 | LDU ,X++
|
|---|
| 310 | STU ,Y++
|
|---|
| 311 | LDU ,X++
|
|---|
| 312 | STU ,Y++
|
|---|
| 313 | DECA
|
|---|
| 314 | BNE SH0
|
|---|
| 315 | LDB #$11
|
|---|
| 316 | JSR $E803
|
|---|
| 317 | PULS X,Y,U
|
|---|
| 318 | LDA #24
|
|---|
| 319 | LEAY 8,Y
|
|---|
| 320 | LEAX 192,Y
|
|---|
| 321 | LBSR AFFLI
|
|---|
| 322 | LBRA CURSOR
|
|---|
| 323 |
|
|---|
| 324 | **** scroll bas
|
|---|
| 325 |
|
|---|
| 326 | SCRBAS PSHS X,Y,U
|
|---|
| 327 | LDB #$14
|
|---|
| 328 | JSR $E803
|
|---|
| 329 | LDX #$5E00
|
|---|
| 330 | LDY #$5F40
|
|---|
| 331 | LDA #192
|
|---|
| 332 | SB0 LDU ,--X
|
|---|
| 333 | STU ,--Y
|
|---|
| 334 | LDU ,--X
|
|---|
| 335 | STU ,--Y
|
|---|
| 336 | LDU ,--X
|
|---|
| 337 | STU ,--Y
|
|---|
| 338 | LDU ,--X
|
|---|
| 339 | STU ,--Y
|
|---|
| 340 | LDU ,--X
|
|---|
| 341 | STU ,--Y
|
|---|
| 342 | LDU ,--X
|
|---|
| 343 | STU ,--Y
|
|---|
| 344 | LDU ,--X
|
|---|
| 345 | STU ,--Y
|
|---|
| 346 | LDU ,--X
|
|---|
| 347 | STU ,--Y
|
|---|
| 348 | LDU ,--X
|
|---|
| 349 | STU ,--Y
|
|---|
| 350 | LDU ,--X
|
|---|
| 351 | STU ,--Y
|
|---|
| 352 | LDU ,--X
|
|---|
| 353 | STU ,--Y
|
|---|
| 354 | LDU ,--X
|
|---|
| 355 | STU ,--Y
|
|---|
| 356 | LDU ,--X
|
|---|
| 357 | STU ,--Y
|
|---|
| 358 | LDU ,--X
|
|---|
| 359 | STU ,--Y
|
|---|
| 360 | LDU ,--X
|
|---|
| 361 | STU ,--Y
|
|---|
| 362 | LDU ,--X
|
|---|
| 363 | STU ,--Y
|
|---|
| 364 | LDU ,--X
|
|---|
| 365 | STU ,--Y
|
|---|
| 366 | LDU ,--X
|
|---|
| 367 | STU ,--Y
|
|---|
| 368 | LDU ,--X
|
|---|
| 369 | STU ,--Y
|
|---|
| 370 | LDU ,--X
|
|---|
| 371 | STU ,--Y
|
|---|
| 372 | DECA
|
|---|
| 373 | BNE SB0
|
|---|
| 374 | LDB #$11
|
|---|
| 375 | JSR $E803
|
|---|
| 376 | PULS X,Y,U
|
|---|
| 377 | CLRA
|
|---|
| 378 | LEAY -8,Y
|
|---|
| 379 | TFR Y,X
|
|---|
| 380 | LBSR AFFLI
|
|---|
| 381 | LBRA CURSOR
|
|---|
| 382 |
|
|---|
| 383 |
|
|---|
| 384 |
|
|---|
| 385 |
|
|---|
| 386 |
|
|---|
| 387 |
|
|---|
| 388 |
|
|---|
| 389 | TABLIN FCB 0,0,0,0,0,0,$80,$81,0,$82
|
|---|
| 390 | FCB $83,0,$84,$85,0,$86,$87,0
|
|---|
| 391 | FCB $88,$89,0,$8A,$8B,0,$8C
|
|---|
| 392 | FCB $8D,0,$8E,$8F,0,0
|
|---|
| 393 | FCB 1,1,1,1,1,1,1,1,0
|
|---|
| 394 |
|
|---|
| 395 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
