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:
829 bytes
|
| Line | |
|---|
| 1 | ****************************************
|
|---|
| 2 | * *
|
|---|
| 3 | * Calcul du checksum pour une zone DSK *
|
|---|
| 4 | * *
|
|---|
| 5 | ************(MEGASPREADER)**************
|
|---|
| 6 |
|
|---|
| 7 | ORG $9F00
|
|---|
| 8 |
|
|---|
| 9 | G ORCC #80
|
|---|
| 10 | LDD #$11B face et piste
|
|---|
| 11 | STA $6049
|
|---|
| 12 | STB $604B
|
|---|
| 13 | LDX #$A000
|
|---|
| 14 | STX $604F
|
|---|
| 15 | CLR $E7E5
|
|---|
| 16 |
|
|---|
| 17 | LDD #$102 lecture secteur 1
|
|---|
| 18 | STB $6048
|
|---|
| 19 | CLRB
|
|---|
| 20 |
|
|---|
| 21 | LOAD STA $604C
|
|---|
| 22 | JSR $E004
|
|---|
| 23 | LDX #$A000
|
|---|
| 24 | ADDB ,X+
|
|---|
| 25 | CMPX #$A100
|
|---|
| 26 | BNE *-5
|
|---|
| 27 | INCA
|
|---|
| 28 | CMPA #17
|
|---|
| 29 | BNE LOAD
|
|---|
| 30 | LDA $604B
|
|---|
| 31 | INCA
|
|---|
| 32 | STA $604B
|
|---|
| 33 | CMPA #80 derniere piste ?
|
|---|
| 34 | BEQ *+6
|
|---|
| 35 | LDA #1
|
|---|
| 36 | BRA LOAD
|
|---|
| 37 | STB *+4 la somme finale
|
|---|
| 38 | RTS
|
|---|
| 39 |
|
|---|
| 40 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
