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:
3.6 KB
|
| Line | |
|---|
| 1 | ****** HORLOGE ******
|
|---|
| 2 |
|
|---|
| 3 | ****** EQUATES ******
|
|---|
| 4 |
|
|---|
| 5 | DIXIEM EQU $6580
|
|---|
| 6 | SECOND EQU $6581
|
|---|
| 7 | MINUTE EQU $6582
|
|---|
| 8 | HEURE EQU $6583
|
|---|
| 9 | JOUR EQU $6584
|
|---|
| 10 | MOIS EQU $6585
|
|---|
| 11 | ANNEE EQU $6586
|
|---|
| 12 | AFTIME EQU $6587
|
|---|
| 13 |
|
|---|
| 14 |
|
|---|
| 15 |
|
|---|
| 16 | ****** INITIALISATION ******
|
|---|
| 17 |
|
|---|
| 18 | DEBUT PSHS U,Y,X,DP,B,A,CC
|
|---|
| 19 | LDU #DIXIEM
|
|---|
| 20 | LDA #$4F
|
|---|
| 21 | BDEB CLR A,U
|
|---|
| 22 | DECA
|
|---|
| 23 | BNE BDEB
|
|---|
| 24 | LDX #$65D0
|
|---|
| 25 | STX $6027
|
|---|
| 26 | LDA $6019
|
|---|
| 27 | ORA #$20
|
|---|
| 28 | STA $6019
|
|---|
| 29 | LDA #$01
|
|---|
| 30 | STA SECOND
|
|---|
| 31 | PULS CC,A,B,DP,X,Y,U,PC
|
|---|
| 32 |
|
|---|
| 33 | ****** INTERRUPTION ******
|
|---|
| 34 |
|
|---|
| 35 | INTER PSHS U,Y,X,DP,B,A,CC
|
|---|
| 36 | INC DIXIEM
|
|---|
| 37 | LDA DIXIEM
|
|---|
| 38 | CMPA #$0A
|
|---|
| 39 | LBLO SOR
|
|---|
| 40 | SEC CLR DIXIEM
|
|---|
| 41 | INC SECOND
|
|---|
| 42 | LDA SECOND
|
|---|
| 43 | CMPA #$3C
|
|---|
| 44 | LBNE TIMEOK
|
|---|
| 45 | CLR SECOND
|
|---|
| 46 | INC MINUTE
|
|---|
| 47 | LDA MINUTE
|
|---|
| 48 | CMPA #$3C
|
|---|
| 49 | LBNE TIMEOK
|
|---|
| 50 | CLR MINUTE
|
|---|
| 51 | INC HEURE
|
|---|
| 52 | LDA HEURE
|
|---|
| 53 | CMPA #$18
|
|---|
| 54 | LBNE TIMEOK
|
|---|
| 55 | CLR HEURE
|
|---|
| 56 | INC JOUR
|
|---|
| 57 | LDA JOUR
|
|---|
| 58 | CMPA #$20
|
|---|
| 59 | BEQ CHGT31
|
|---|
| 60 | CMPA #$1F
|
|---|
| 61 | BEQ CHGT30
|
|---|
| 62 | CMPA #$1E
|
|---|
| 63 | BEQ CHGT29
|
|---|
| 64 | CMPA #$1D
|
|---|
| 65 | LBNE TIMEOK
|
|---|
| 66 | LDA MOIS
|
|---|
| 67 | CMPA #2
|
|---|
| 68 | LBNE TIMEOK
|
|---|
| 69 | CHGT28 LDA ANNEE
|
|---|
| 70 | ANDA #3
|
|---|
| 71 | LBEQ TIMEOK
|
|---|
| 72 | BRA CHGTM
|
|---|
| 73 | CHGT29 LDA MOIS
|
|---|
| 74 | CMPA #2
|
|---|
| 75 | LBNE TIMEOK
|
|---|
| 76 | LDA ANNEE
|
|---|
| 77 | ANDA #3
|
|---|
| 78 | LBNE TIMEOK
|
|---|
| 79 | BRA CHGTM
|
|---|
| 80 | CHGT30 LDA MOIS
|
|---|
| 81 | CMPA #4
|
|---|
| 82 | BEQ CHGTM
|
|---|
| 83 | CMPA #6
|
|---|
| 84 | BEQ CHGTM
|
|---|
| 85 | CMPA #9
|
|---|
| 86 | BEQ CHGTM
|
|---|
| 87 | CMPA #11
|
|---|
| 88 | BEQ CHGTM
|
|---|
| 89 | LBRA TIMEOK
|
|---|
| 90 | CHGT31 LDA MOIS
|
|---|
| 91 | CMPA #1
|
|---|
| 92 | BEQ CHGTM
|
|---|
| 93 | CMPA #3
|
|---|
| 94 | BEQ CHGTM
|
|---|
| 95 | CMPA #5
|
|---|
| 96 | BEQ CHGTM
|
|---|
| 97 | CMPA #7
|
|---|
| 98 | BEQ CHGTM
|
|---|
| 99 | CMPA #8
|
|---|
| 100 | BEQ CHGTM
|
|---|
| 101 | CMPA #10
|
|---|
| 102 | BEQ CHGTM
|
|---|
| 103 | CMPA #12
|
|---|
| 104 | LBNE TIMEOK
|
|---|
| 105 | CHGTM LDA #1
|
|---|
| 106 | STA JOUR
|
|---|
| 107 | INC MOIS
|
|---|
| 108 | LDA MOIS
|
|---|
| 109 | CMPA #13
|
|---|
| 110 | BNE TIMEOK
|
|---|
| 111 | CHGTA LDA #1
|
|---|
| 112 | STA MOIS
|
|---|
| 113 | INC ANNEE
|
|---|
| 114 | LDA ANNEE
|
|---|
| 115 | CMPA #100
|
|---|
| 116 | BNE TIMEOK
|
|---|
| 117 | CLR ANNEE
|
|---|
| 118 | TIMEOK TST AFTIME
|
|---|
| 119 | LBNE SOR
|
|---|
| 120 | LDY #$4020
|
|---|
| 121 | LDB JOUR
|
|---|
| 122 | BSR AFNBR
|
|---|
| 123 | LDB #$2F
|
|---|
| 124 | BSR AFASC
|
|---|
| 125 | LDB MOIS
|
|---|
| 126 | BSR AFNBR
|
|---|
| 127 | LDB #$2F
|
|---|
| 128 | BSR AFASC
|
|---|
| 129 | LDB ANNEE
|
|---|
| 130 | BSR AFNBR
|
|---|
| 131 | LDY #$4160
|
|---|
| 132 | LDB HEURE
|
|---|
| 133 | BSR AFNBR
|
|---|
| 134 | LDB #$3A
|
|---|
| 135 | BSR AFASC
|
|---|
| 136 | LDB MINUTE
|
|---|
| 137 | BSR AFNBR
|
|---|
| 138 | LDB #$2E
|
|---|
| 139 | BSR AFASC
|
|---|
| 140 | LDB SECOND
|
|---|
| 141 | BSR AFNBR
|
|---|
| 142 | JMP MMS
|
|---|
| 143 | AFNBR CLRA
|
|---|
| 144 | TSTB
|
|---|
| 145 | BEQ AFF0
|
|---|
| 146 | BDAA INCA
|
|---|
| 147 | DAA
|
|---|
| 148 | DECB
|
|---|
| 149 | BNE BDAA
|
|---|
| 150 | AFF0 PSHS A
|
|---|
| 151 | TFR A,B
|
|---|
| 152 | RORB
|
|---|
| 153 | RORB
|
|---|
| 154 | RORB
|
|---|
| 155 | RORB
|
|---|
| 156 | ANDB #$0F
|
|---|
| 157 | ADDB #$30
|
|---|
| 158 | BSR AFASC
|
|---|
| 159 | PULS B
|
|---|
| 160 | ANDB #$0F
|
|---|
| 161 | ADDB #$30
|
|---|
| 162 | BSR AFASC
|
|---|
| 163 | RTS
|
|---|
| 164 | AFASC PSHS Y
|
|---|
| 165 | LDA $E7C3
|
|---|
| 166 | ORA #$01
|
|---|
| 167 | STA $E7C3
|
|---|
| 168 | LDA #8
|
|---|
| 169 | MUL
|
|---|
| 170 | ADDD #$E74D
|
|---|
| 171 | TFR D,X
|
|---|
| 172 | LDA #8
|
|---|
| 173 | BAFF LDB ,-X
|
|---|
| 174 | STB ,Y
|
|---|
| 175 | LEAY $28,Y
|
|---|
| 176 | DECA
|
|---|
| 177 | BNE BAFF
|
|---|
| 178 | PULS Y
|
|---|
| 179 | LEAY 1,Y
|
|---|
| 180 | RTS
|
|---|
| 181 | MMS LDA $E7C3
|
|---|
| 182 | ORA #1
|
|---|
| 183 | STA $E7C3
|
|---|
| 184 | LDX #$A340
|
|---|
| 185 | LDY #$4000
|
|---|
| 186 | LDB #$10
|
|---|
| 187 | BMMS0 LDA #5
|
|---|
| 188 | BMMS1 LDU ,X++
|
|---|
| 189 | STU ,Y++
|
|---|
| 190 | DECA
|
|---|
| 191 | BNE BMMS1
|
|---|
| 192 | DECB
|
|---|
| 193 | BEQ SOR
|
|---|
| 194 | LEAY $1E,Y
|
|---|
| 195 | BRA BMMS0
|
|---|
| 196 |
|
|---|
| 197 | SOR PULS CC,A,B,DP,X,Y,U
|
|---|
| 198 | JMP $E830
|
|---|
| 199 |
|
|---|
| 200 |
|
|---|
| 201 | ****** FIN ******
|
|---|
| 202 |
|
|---|
| 203 |
|
|---|
| 204 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
