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:
2.1 KB
|
Line | |
---|
1 | ***************************************
|
---|
2 | * *
|
---|
3 | * ****** **** ** ** ** ** *
|
---|
4 | * ** ** ** *** *** *** *
|
---|
5 | * ** ** ** ** * * ** ** **** *
|
---|
6 | * ** ** ** ** * ** ** ** *
|
---|
7 | * ** ** ** ** ** ** ** *
|
---|
8 | * ** ** ** ** ** ** ** *
|
---|
9 | * ** **** ** ** ** **** *
|
---|
10 | * *
|
---|
11 | ***************************************
|
---|
12 |
|
---|
13 |
|
---|
14 | FIN EQU $9100
|
---|
15 |
|
---|
16 |
|
---|
17 | ORG $9000
|
---|
18 |
|
---|
19 | TOMI1 PSHS U,Y,X,DP,B,A,CC
|
---|
20 | LDA #$E7
|
---|
21 | PSHS A
|
---|
22 | TFR A,DP
|
---|
23 | TOMI2 LDU #$A000
|
---|
24 | TOMI3 LDA $E7C3
|
---|
25 | ANDA #8
|
---|
26 | BNE SORTIE
|
---|
27 | LDA #$08
|
---|
28 | STA ,S
|
---|
29 | LDA <$CA
|
---|
30 | ANDA #$C4
|
---|
31 | STA <$CA
|
---|
32 | LDA <$C8
|
---|
33 | LDY #$0000
|
---|
34 | LDB #$1E
|
---|
35 | TEMPO LEAY -1,Y
|
---|
36 | BNE TOMI4
|
---|
37 | DECB
|
---|
38 | BEQ TOMI11
|
---|
39 | LDY #$0000
|
---|
40 | TOMI4 LDA <$CA
|
---|
41 | BITA #$40
|
---|
42 | BEQ TEMPO
|
---|
43 | ANDCC #$FE
|
---|
44 | LDX #$0013
|
---|
45 | TOMI5 LEAX -1,X
|
---|
46 | BNE TOMI5
|
---|
47 | TOMI6 BCC TOMI8
|
---|
48 | BSR TOMI13
|
---|
49 | BCS TOMI7
|
---|
50 | RORB
|
---|
51 | ANDCC #$FE
|
---|
52 | BRA TOMI10
|
---|
53 | TOMI7 RORB
|
---|
54 | ORCC #$01
|
---|
55 | BRA TOMI10
|
---|
56 | TOMI8 BSR TOMI15
|
---|
57 | BCC TOMI9
|
---|
58 | RORB
|
---|
59 | ORCC #$01
|
---|
60 | BRA TOMI10
|
---|
61 | TOMI9 RORB
|
---|
62 | ANDCC #$FE
|
---|
63 | BRA TOMI10
|
---|
64 | TOMI10 DEC ,S
|
---|
65 | BNE TOMI6
|
---|
66 | ANDB #$7F
|
---|
67 | BRA TOMI12
|
---|
68 | TOMI11 LDB #$00
|
---|
69 | TOMI12 STB ,U+
|
---|
70 | CMPU #$E000
|
---|
71 | BNE TOMI3
|
---|
72 | INC $E7E5
|
---|
73 | LDA $E7E5
|
---|
74 | CMPA #$10 ou $20 si 512Ko
|
---|
75 | BLO TOMI2
|
---|
76 | SORTIE STU FIN
|
---|
77 | LDA $E7E5
|
---|
78 | STA FIN+2
|
---|
79 | PULS A
|
---|
80 | PULS CC,A,B,DP,X,Y,U,PC
|
---|
81 |
|
---|
82 | TOMI13 LDA <$CA
|
---|
83 | ANDA #$C4
|
---|
84 | STA <$CA
|
---|
85 | LDA <$C8
|
---|
86 | BSR TEMPO1
|
---|
87 | LDA <$CA
|
---|
88 | ANDA #$40
|
---|
89 | BNE TOMI16
|
---|
90 | TOMI14 ORCC #$01
|
---|
91 | RTS
|
---|
92 | TOMI15 LDA <$CA
|
---|
93 | ORA #$10
|
---|
94 | STA <$CA
|
---|
95 | LDA <$C8
|
---|
96 | BSR TEMPO1
|
---|
97 | LDA <$CA
|
---|
98 | ANDA #$40
|
---|
99 | BNE TOMI14
|
---|
100 | TOMI16 ANDCC #$FE
|
---|
101 | RTS
|
---|
102 | TEMPO1 LDX #$005E
|
---|
103 | TEMPO2 LEAX -1,X
|
---|
104 | BNE TEMPO2
|
---|
105 | RTS
|
---|
106 |
|
---|
107 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.