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:
1.3 KB
|
Line | |
---|
1 | ORG $A000
|
---|
2 |
|
---|
3 | LDA #&64
|
---|
4 | STA $602B
|
---|
5 | JSR $E812
|
---|
6 | LDX #$A000
|
---|
7 | STX $9033
|
---|
8 | BCL4 LDA #&08
|
---|
9 | STA $602B
|
---|
10 | LDB #&27
|
---|
11 | JSR $E812
|
---|
12 | LDB #&71
|
---|
13 | JSR $E812
|
---|
14 | LDB #&57
|
---|
15 | JSR $E812
|
---|
16 | LDB #&54
|
---|
17 | JSR $E812
|
---|
18 | LDB #&48
|
---|
19 | JSR $E812
|
---|
20 | LDX $9033
|
---|
21 | LEAX $78,X
|
---|
22 | STX $9037
|
---|
23 | BCL3 LDX $9033
|
---|
24 | LEAX $3C0,X
|
---|
25 | STX $9035
|
---|
26 | LDA #$80
|
---|
27 | STA $9032
|
---|
28 | BCL2 LDX $9033
|
---|
29 | LDA #$01
|
---|
30 | STA $9031
|
---|
31 | CLR $9030
|
---|
32 | BCL1 LDA ,X
|
---|
33 | ANDA $9032
|
---|
34 | CMPA $9032
|
---|
35 | BNE J1
|
---|
36 | LDB $9031
|
---|
37 | ADDB $9030
|
---|
38 | STB $9030
|
---|
39 | J1 LEAX $78,X
|
---|
40 | LDB $9031
|
---|
41 | LDA #$02
|
---|
42 | MUL
|
---|
43 | STB $9031
|
---|
44 | CMPX $9035
|
---|
45 | BNE BCL1
|
---|
46 | LDB $9030
|
---|
47 | JSR $E812
|
---|
48 | LDA $9032
|
---|
49 | LSRA
|
---|
50 | STA $9032
|
---|
51 | CMPA #$00
|
---|
52 | BNE BCL2
|
---|
53 | LDX $9033
|
---|
54 | LEAX $01,X
|
---|
55 | STX $9033
|
---|
56 | CMPX $9037
|
---|
57 | BNE BCL3
|
---|
58 | LDB #&10
|
---|
59 | JSR $E812
|
---|
60 | LDX $9033
|
---|
61 | LEAX $348,X
|
---|
62 | STX $9033
|
---|
63 | CMPX #$DC00
|
---|
64 | LBNE BCL4
|
---|
65 | LDA #&16
|
---|
66 | STA $602B
|
---|
67 | JSR $E812
|
---|
68 | RTS
|
---|
69 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.