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.3 KB
|
Line | |
---|
1 | *************************
|
---|
2 | * *
|
---|
3 | * PUTC80.ASM * DISK RESEAU 1
|
---|
4 | * *
|
---|
5 | *************************
|
---|
6 |
|
---|
7 | ORG $A000
|
---|
8 | PSHS A,B,X,Y,U,CC
|
---|
9 | LDA COL,PCR
|
---|
10 | CMPA #80
|
---|
11 | BHS FIN
|
---|
12 | LDA LIG,PCR
|
---|
13 | CMPA #24
|
---|
14 | BLS S01
|
---|
15 | FIN LDB #$07
|
---|
16 | JSR >$E803
|
---|
17 | FIN1 PULS A,B,X,Y,U,CC
|
---|
18 | RTS
|
---|
19 | S01 LDB #$08 *CALCULS :
|
---|
20 | MUL
|
---|
21 | LDA #$28 *NO LIG
|
---|
22 | MUL
|
---|
23 | ADDD #$4000 *ADR D'AFFICHA
|
---|
24 | TFR D,X
|
---|
25 | LDB COL,PCR
|
---|
26 | LSRB *DIVISE COL
|
---|
27 | ABX *PAR 2.
|
---|
28 | TFR X,U
|
---|
29 | LDX TEX,PCR
|
---|
30 | DEBUT LDY POL,PCR *MODIFIE
|
---|
31 | LDA ,X+ *NUMERO LETTRE
|
---|
32 | CMPA #$1F
|
---|
33 | BLS FIN1
|
---|
34 | CMPA #$7F
|
---|
35 | BHI FIN1
|
---|
36 | CMPA #64 *TEST SI A-Z
|
---|
37 | BLS S02
|
---|
38 | CMPA #91
|
---|
39 | BHS S02
|
---|
40 | SUBA #65
|
---|
41 | BRA SUIT
|
---|
42 | S02 CMPA #96 *TEST SI a-z
|
---|
43 | BLS S03
|
---|
44 | CMPA #127
|
---|
45 | BEQ S05
|
---|
46 | SUBA #45
|
---|
47 | BRA SUIT
|
---|
48 | S03 CMPA #47 *TEST SI 0-9
|
---|
49 | BLS S04
|
---|
50 | CMPA #58
|
---|
51 | BHS S04
|
---|
52 | SUBA #06
|
---|
53 | BRA SUIT
|
---|
54 | S04 CMPA #36 *TEST SI -#
|
---|
55 | BHS S05
|
---|
56 | SUBA #06
|
---|
57 | BRA SUIT
|
---|
58 | S05 LDB #30
|
---|
59 | PSHS U
|
---|
60 | LEAU TAB,PCR
|
---|
61 | S06 CMPA ,U+
|
---|
62 | BEQ S07
|
---|
63 | INCB
|
---|
64 | CMPB #42
|
---|
65 | BNE S06
|
---|
66 | S07 TFR B,A
|
---|
67 | PULS U
|
---|
68 | SUIT LDB #8
|
---|
69 | STA NUM,PCR
|
---|
70 | LSRA
|
---|
71 | MUL
|
---|
72 | LEAY D,Y
|
---|
73 | BSR AFFI
|
---|
74 | INC COL,PCR
|
---|
75 | LDA COL,PCR
|
---|
76 | CMPA #80
|
---|
77 | BNE S08
|
---|
78 | CLR COL,PCR
|
---|
79 | INC LIG,PCR
|
---|
80 | LDA LIG,PCR
|
---|
81 | CMPA #25
|
---|
82 | LBEQ FIN
|
---|
83 | LEAU $118,U
|
---|
84 | S08 LDA COL,PCR
|
---|
85 | LSRA
|
---|
86 | LSLA
|
---|
87 | CMPA COL,PCR
|
---|
88 | BNE S09
|
---|
89 | LEAU $01,U
|
---|
90 | S09 LBRA DEBUT
|
---|
91 | ************************
|
---|
92 | ****AFFICHAGE LETTRE****
|
---|
93 | ************************
|
---|
94 | AFFI BSR RAMA *PRISE EN COMPTE
|
---|
95 | LDA COL,PCR *COLONNE
|
---|
96 | LSRA
|
---|
97 | LSLA
|
---|
98 | CMPA COL,PCR
|
---|
99 | BNE S12
|
---|
100 | LDB #$08
|
---|
101 | S11 LDA ,U
|
---|
102 | ANDA #$0F
|
---|
103 | STA ,U
|
---|
104 | LDA ,Y+
|
---|
105 | PSHS B
|
---|
106 | LDB NUM,PCR
|
---|
107 | LSRB
|
---|
108 | LSLB
|
---|
109 | CMPB NUM,PCR
|
---|
110 | BEQ S111
|
---|
111 | LSLA
|
---|
112 | LSLA
|
---|
113 | LSLA
|
---|
114 | LSLA
|
---|
115 | S111 PULS B
|
---|
116 | ANDA #$F0
|
---|
117 | ORA ,U
|
---|
118 | STA ,U
|
---|
119 | LEAU $28,U
|
---|
120 | DECB
|
---|
121 | BNE S11
|
---|
122 | BRA S13
|
---|
123 | S12 LDB #$08
|
---|
124 | S122 LDA ,U
|
---|
125 | ANDA #$F0
|
---|
126 | STA ,U
|
---|
127 | LDA ,Y+
|
---|
128 | PSHS B
|
---|
129 | LDB NUM,PCR
|
---|
130 | LSRB
|
---|
131 | LSLB
|
---|
132 | CMPB NUM,PCR
|
---|
133 | BNE S121
|
---|
134 | LSRA
|
---|
135 | LSRA
|
---|
136 | LSRA
|
---|
137 | LSRA
|
---|
138 | S121 PULS B
|
---|
139 | ANDA #$0F
|
---|
140 | ORA ,U
|
---|
141 | STA ,U
|
---|
142 | LEAU $28,U
|
---|
143 | DECB
|
---|
144 | BNE S122
|
---|
145 | S13 LEAU -$140,U
|
---|
146 | BSR RAMB
|
---|
147 | LDA >$603B
|
---|
148 | LDB #$08
|
---|
149 | S131 STA ,U
|
---|
150 | LEAU $28,U
|
---|
151 | DECB
|
---|
152 | BNE S131
|
---|
153 | LEAU -$140,U
|
---|
154 | RTS
|
---|
155 | ************
|
---|
156 | ****RAMA****
|
---|
157 | ************
|
---|
158 | RAMA LDA >$E7C3
|
---|
159 | ORA #$01
|
---|
160 | STA >$E7C3
|
---|
161 | RTS
|
---|
162 | ************
|
---|
163 | ****RAMB****
|
---|
164 | ************
|
---|
165 | RAMB LDA >$E7C3
|
---|
166 | ANDA #$FE
|
---|
167 | STA >$E7C3
|
---|
168 | RTS
|
---|
169 | *************
|
---|
170 | ****STOCK****
|
---|
171 | *************
|
---|
172 | COL FCB $00
|
---|
173 | LIG FCB $00
|
---|
174 | TEX FDB $0000
|
---|
175 | POL FDB $0000
|
---|
176 | NUM FCB $00
|
---|
177 | TAB FCC \+-/*,\
|
---|
178 | FCB 127
|
---|
179 | FCC \'?.=:$\
|
---|
180 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.