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.9 KB
|
Line | |
---|
1 | ****************************************
|
---|
2 | * *
|
---|
3 | * *
|
---|
4 | * *
|
---|
5 | * *
|
---|
6 | * PROTECTION ASSDESAS *
|
---|
7 | * *
|
---|
8 | * *
|
---|
9 | * *
|
---|
10 | * *
|
---|
11 | ****************************************
|
---|
12 |
|
---|
13 | L4D EQU $604D
|
---|
14 | L4B EQU $604B
|
---|
15 | L4E EQU $604E
|
---|
16 |
|
---|
17 |
|
---|
18 | DEBUT LDX #NOM
|
---|
19 | LDB #8+2+3
|
---|
20 | LDU #FPDE1
|
---|
21 | JSR NET1
|
---|
22 | CLRA
|
---|
23 | JSR OPELEC
|
---|
24 | LBCS SERR
|
---|
25 | CLR BLO
|
---|
26 | LDX #BUF1
|
---|
27 | STX BUF
|
---|
28 | LDD #$0009
|
---|
29 | STD PISEC
|
---|
30 |
|
---|
31 | LOOP CLRA
|
---|
32 | JSR LEC
|
---|
33 | LBCS SERR
|
---|
34 | JSR ECRO
|
---|
35 | TST LF0
|
---|
36 | BNE LOOP
|
---|
37 | JSR CLOSO
|
---|
38 | JMP PBOOT
|
---|
39 |
|
---|
40 | NOM FCC /DFBIN/
|
---|
41 | FDB $200
|
---|
42 | BUF RMB 2
|
---|
43 | BLO RMB 1
|
---|
44 | PISEC RMB 2
|
---|
45 | BUF1 RMB 256
|
---|
46 |
|
---|
47 | ECRO PSHS A,B,X
|
---|
48 | LDX BUF
|
---|
49 | STB ,X+
|
---|
50 | STX BUF
|
---|
51 | INC BLO
|
---|
52 | BNE ECR1
|
---|
53 | FCB $F5
|
---|
54 | CLOSO PSHS A,B,X
|
---|
55 | CLR BLO
|
---|
56 | LDX #BUF1
|
---|
57 | STX BUF
|
---|
58 | STX L4F
|
---|
59 | CLR L49
|
---|
60 | LDD PISEC
|
---|
61 | STD $604B
|
---|
62 | LDB #8
|
---|
63 | STB L48
|
---|
64 | JSR LE004
|
---|
65 | BCS SERR
|
---|
66 | LDD PISEC
|
---|
67 | CMPB #16
|
---|
68 | BLO REC5
|
---|
69 | CLRB
|
---|
70 | INCA
|
---|
71 | REC5 INCB
|
---|
72 | STD PISEC
|
---|
73 |
|
---|
74 | ECR1 PULS A,B,X,PC
|
---|
75 |
|
---|
76 | SERR
|
---|
77 | LDB #'E
|
---|
78 | JSR $E803
|
---|
79 | SWI
|
---|
80 |
|
---|
81 |
|
---|
82 | INCLUD SED
|
---|
83 |
|
---|
84 | PBOOT LDX #BOOT
|
---|
85 | LDU #BUF1
|
---|
86 | LDB #FBOOT-BOOT
|
---|
87 | JSR NET1
|
---|
88 | LDX #BUF1
|
---|
89 | LDA #$55
|
---|
90 | INU ADDA ,X
|
---|
91 | COM ,X
|
---|
92 | INC ,X+
|
---|
93 | CMPX #BUF1+127
|
---|
94 | BNE INU
|
---|
95 | STA ,X
|
---|
96 | LDX #BUF1
|
---|
97 | STX L4F
|
---|
98 | LDA #8
|
---|
99 | STA L48
|
---|
100 | LDD #001
|
---|
101 | STD $604B
|
---|
102 | JSR LE004
|
---|
103 | LBCS SERR
|
---|
104 | SWI
|
---|
105 | BOOT
|
---|
106 | LDD #9
|
---|
107 | STD L4B
|
---|
108 | STB L4C
|
---|
109 | BSR AUDIS
|
---|
110 | LOUP
|
---|
111 | BSR LECT
|
---|
112 | TFR A,B
|
---|
113 | BSR LECT
|
---|
114 | TFR D,Y
|
---|
115 | BSR LECT
|
---|
116 | TFR B,A
|
---|
117 | BSR LECT
|
---|
118 | TFR D,X
|
---|
119 | LDA ,S+
|
---|
120 | BNE BNI
|
---|
121 | LO
|
---|
122 | BSR LECT
|
---|
123 | STB ,X+
|
---|
124 | LEAY -1,Y
|
---|
125 | BNE LO
|
---|
126 | BRA LOUP
|
---|
127 | UI0
|
---|
128 | LDB #12
|
---|
129 | JSR $E803
|
---|
130 | LDB #'E
|
---|
131 | JSR $E803
|
---|
132 | BRA *
|
---|
133 |
|
---|
134 | BNI JMP ,X
|
---|
135 |
|
---|
136 | LECT
|
---|
137 | LDB ,U+
|
---|
138 | CMPU #$6300
|
---|
139 | BNE LOP10
|
---|
140 | PSHS A,B
|
---|
141 | LDA L4B
|
---|
142 | LDB L4C
|
---|
143 | CMPB #16
|
---|
144 | BNE LYP6
|
---|
145 | INCA
|
---|
146 | CLRB
|
---|
147 | LYP6
|
---|
148 | INCB
|
---|
149 | STA L4B
|
---|
150 | STB L4C
|
---|
151 | BSR AUDIS
|
---|
152 | PULS A,B
|
---|
153 | LOP10 RTS
|
---|
154 | AUDIS
|
---|
155 | LDU #$6280
|
---|
156 | STU L4F
|
---|
157 | CLR L4A
|
---|
158 | CLR L4D
|
---|
159 | CLR L4E
|
---|
160 | CLR L49
|
---|
161 | LDA #2
|
---|
162 | STA L48
|
---|
163 | JMP LE004
|
---|
164 | FBOOT
|
---|
165 |
|
---|
166 |
|
---|
167 |
|
---|
168 |
|
---|
169 |
|
---|
170 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.