Merge branch 'for-linus' of git://brick.kernel.dk/data/git/linux-2.6-block
[linux-2.6] / drivers / char / ser_a2232fw.ax
1 ;.lib "axm"
2 ;
3 ;begin
4 ;title "A2232 serial board driver"
5 ;
6 ;set modules "2232"
7 ;set executable "2232.bin"
8 ;
9 ;;;;set nolink
10 ;
11 ;set temporary directory "t:"
12 ;
13 ;set assembly options "-m6502 -l60:t:list"
14 ;set link options "bin"; loadadr"
15 ;;;bin2c 2232.bin msc6502.h msc6502code
16 ;end
17 ;
18 ;
19 ; ### Commodore A2232 serial board driver for NetBSD by JM v1.3 ###
20 ;
21 ; - Created 950501 by JM -
22 ;
23 ;
24 ; Serial board driver software.
25 ;
26 ;
27 % Copyright (c) 1995 Jukka Marin <jmarin@jmp.fi>.
28 % All rights reserved.
29 %
30 % Redistribution and use in source and binary forms, with or without
31 % modification, are permitted provided that the following conditions
32 % are met:
33 % 1. Redistributions of source code must retain the above copyright
34 %    notice, and the entire permission notice in its entirety,
35 %    including the disclaimer of warranties.
36 % 2. Redistributions in binary form must reproduce the above copyright
37 %    notice, this list of conditions and the following disclaimer in the
38 %    documentation and/or other materials provided with the distribution.
39 % 3. The name of the author may not be used to endorse or promote
40 %    products derived from this software without specific prior
41 %    written permission.
42 %
43 % ALTERNATIVELY, this product may be distributed under the terms of
44 % the GNU General Public License, in which case the provisions of the
45 % GPL are required INSTEAD OF the above restrictions.  (This clause is
46 % necessary due to a potential bad interaction between the GPL and
47 % the restrictions contained in a BSD-style copyright.)
48 %
49 % THIS SOFTWARE IS PROVIDED `AS IS'' AND ANY EXPRESS OR IMPLIED
50 % WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
51 % OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
52 % DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
53 % INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
54 % (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
55 % SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
56 % HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
57 % STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
58 % ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
59 % OF THE POSSIBILITY OF SUCH DAMAGE.
60 ;
61 ;
62 ; Bugs:
63 ;
64 ; - Can't send a break yet
65 ;
66 ;
67 ;
68 ; Edited:
69 ;
70 ; - 950501 by JM -> v0.1        - Created this file.
71 ; - 951029 by JM -> v1.3        - Carrier Detect events now queued in a separate
72 ;                                 queue.
73 ;
74 ;
75
76
77 CODE            equ     $3800           ; start address for program code
78
79
80 CTL_CHAR        equ     $00             ; byte in ibuf is a character
81 CTL_EVENT       equ     $01             ; byte in ibuf is an event
82
83 EVENT_BREAK     equ     $01
84 EVENT_CDON      equ     $02
85 EVENT_CDOFF     equ     $03
86 EVENT_SYNC      equ     $04
87
88 XON             equ     $11
89 XOFF            equ     $13
90
91
92 VARBASE         macro   *starting_address       ; was VARINIT
93 _varbase        set     \1
94                 endm
95
96 VARDEF          macro   *name space_needs
97 \1              equ     _varbase
98 _varbase        set     _varbase+\2
99                 endm
100
101
102 stz             macro   * address
103                  db     $64,\1
104                 endm
105
106 stzax           macro   * address
107                  db     $9e,<\1,>\1
108                 endm
109
110
111 biti            macro   * immediate value
112                 db      $89,\1
113                 endm
114
115 smb0            macro   * address
116                 db      $87,\1
117                 endm
118 smb1            macro   * address
119                 db      $97,\1
120                 endm
121 smb2            macro   * address
122                 db      $a7,\1
123                 endm
124 smb3            macro   * address
125                 db      $b7,\1
126                 endm
127 smb4            macro   * address
128                 db      $c7,\1
129                 endm
130 smb5            macro   * address
131                 db      $d7,\1
132                 endm
133 smb6            macro   * address
134                 db      $e7,\1
135                 endm
136 smb7            macro   * address
137                 db      $f7,\1
138                 endm
139
140
141
142 ;-----------------------------------------------------------------------;
143 ;                                                                       ;
144 ; stuff common for all ports, non-critical (run once / loop)            ;
145 ;                                                                       ;
146 DO_SLOW         macro   * port_number                                   ;
147                 .local                  ;                               ;
148                 lda     CIA+C_PA        ; check all CD inputs           ;
149                 cmp     CommonCDo       ; changed from previous accptd? ;
150                 beq     =over           ; nope, do nothing else here    ;
151                                         ;                               ;
152                 cmp     CommonCDb       ; bouncing?                     ;
153                 beq     =nobounce       ; nope ->                       ;
154                                         ;                               ;
155                 sta     CommonCDb       ; save current state            ;
156                 lda     #64             ; reinitialize counter          ;
157                 sta     CommonCDc       ;                               ;
158                 jmp     =over           ; skip CD save                  ;
159                                         ;                               ;
160 =nobounce       dec     CommonCDc       ; no, decrement bounce counter  ;
161                 bpl     =over           ; not done yet, so skip CD save ;
162                                         ;                               ;
163 =saveCD         ldx     CDHead          ; get write index               ;
164                 sta     cdbuf,x         ; save status in buffer         ;
165                 inx                     ;                               ;
166                 cpx     CDTail          ; buffer full?                  ;
167                 .if     ne              ; no: preserve status:          ;
168                  stx    CDHead          ; update index in RAM           ;
169                  sta    CommonCDo       ; save state for the next check ;
170                 .end                    ;                               ;
171 =over           .end    local                                           ;
172                 endm                                                    ;
173                                                                         ;
174 ;-----------------------------------------------------------------------;
175
176
177 ; port specific stuff (no data transfer)
178
179 DO_PORT         macro   * port_number
180                 .local                  ;                               ;
181                 lda     SetUp\1         ; reconfiguration request?      ;
182                 .if     ne              ; yes:                          ;
183                  lda    SoftFlow\1      ; get XON/XOFF flag             ;
184                  sta    XonOff\1        ; save it                       ;
185                  lda    Param\1         ; get parameter                 ;
186                  ora    #%00010000      ; use baud generator for Rx     ;
187                  sta    ACIA\1+A_CTRL   ; store in control register     ;
188                  stz    OutDisable\1    ; enable transmit output        ;
189                  stz    SetUp\1         ; no reconfiguration no more    ;
190                 .end                    ;                               ;
191                                         ;                               ;
192                 lda     InHead\1        ; get write index               ;
193                 sbc     InTail\1        ; buffer full soon?             ;
194                 cmp     #200            ; 200 chars or more in buffer?  ;
195                 lda     Command\1       ; get Command reg value         ;
196                 and     #%11110011      ; turn RTS OFF by default       ;
197                 .if     cc              ; still room in buffer:         ;
198                  ora    #%00001000      ; turn RTS ON                   ;
199                 .end                    ;                               ;
200                 sta     ACIA\1+A_CMD    ; set/clear RTS                 ;
201                                         ;                               ;
202                 lda     OutFlush\1      ; request to flush output buffer;
203                 .if     ne              ; yessh!                        ;
204                  lda    OutHead\1       ; get head                      ;
205                  sta    OutTail\1       ; save as tail                  ;
206                  stz    OutDisable\1    ; enable transmit output        ;
207                  stz    OutFlush\1      ; clear request                 ;
208                 .end
209                 .end    local
210                 endm
211
212
213 DO_DATA         macro   * port number
214                 .local
215                 lda     ACIA\1+A_SR     ; read ACIA status register     ;
216                 biti    [1<<3]          ; something received?           ;
217                 .if     ne              ; yes:                          ;
218                  biti   [1<<1]          ; framing error?                ;
219                  .if    ne              ; yes:                          ;
220                   lda   ACIA\1+A_DATA   ; read received character       ;
221                   bne   =SEND           ; not break -> ignore it        ;
222                   ldx   InHead\1        ; get write pointer             ;
223                   lda   #CTL_EVENT      ; get type of byte              ;
224                   sta   ictl\1,x        ; save it in InCtl buffer       ;
225                   lda   #EVENT_BREAK    ; event code                    ;
226                   sta   ibuf\1,x        ; save it as well               ;
227                   inx                   ;                               ;
228                   cpx   InTail\1        ; still room in buffer?         ;
229                   .if   ne              ; absolutely:                   ;
230                    stx  InHead\1        ; update index in memory        ;
231                   .end                  ;                               ;
232                   jmp   =SEND           ; go check if anything to send  ;
233                  .end                   ;                               ;
234                                         ; normal char received:         ;
235                  ldx    InHead\1        ; get write index               ;
236                  lda    ACIA\1+A_DATA   ; read received character       ;
237                  sta    ibuf\1,x        ; save char in buffer           ;
238                  stzax  ictl\1          ; set type to CTL_CHAR          ;
239                  inx                    ;                               ;
240                  cpx    InTail\1        ; buffer full?                  ;
241                  .if    ne              ; no: preserve character:       ;
242                   stx   InHead\1        ; update index in RAM           ;
243                  .end                   ;                               ;
244                  and    #$7f            ; mask off parity if any        ;
245                  cmp    #XOFF           ; XOFF from remote host?        ;
246                  .if    eq              ; yes:                          ;
247                   lda   XonOff\1        ; if XON/XOFF handshaking..     ;
248                   sta   OutDisable\1    ; ..disable transmitter         ;
249                  .end                   ;                               ;
250                 .end                    ;                               ;
251                                         ;                               ;
252                                         ; BUFFER FULL CHECK WAS HERE    ;
253                                         ;                               ;
254 =SEND           lda     ACIA\1+A_SR     ; transmit register empty?      ;
255                 and     #[1<<4]         ;                               ;
256                 .if     ne              ; yes:                          ;
257                  ldx    OutCtrl\1       ; sending out XON/XOFF?         ;
258                  .if    ne              ; yes:                          ;
259                   lda   CIA+C_PB        ; check CTS signal              ;
260                   and   #[1<<\1]        ; (for this port only)          ;
261                   bne   =DONE           ; not allowed to send -> done   ;
262                   stx   ACIA\1+A_DATA   ; transmit control char         ;
263                   stz   OutCtrl\1       ; clear flag                    ;
264                   jmp   =DONE           ; and we're done                ;
265                  .end                   ;                               ;
266                                         ;                               ;
267                  ldx    OutTail\1       ; anything to transmit?         ;
268                  cpx    OutHead\1       ;                               ;
269                  .if    ne              ; yes:                          ;
270                   lda   OutDisable\1    ; allowed to transmit?          ;
271                   .if   eq              ; yes:                          ;
272                    lda  CIA+C_PB        ; check CTS signal              ;
273                    and  #[1<<\1]        ; (for this port only)          ;
274                    bne  =DONE           ; not allowed to send -> done   ;
275                    lda  obuf\1,x        ; get a char from buffer        ;
276                    sta  ACIA\1+A_DATA   ; send it away                  ;
277                    inc  OutTail\1       ; update read index             ;
278                   .end                  ;                               ;
279                  .end                   ;                               ;
280                 .end                    ;                               ;
281 =DONE           .end    local
282                 endm
283
284
285
286 PORTVAR         macro   * port number
287                 VARDEF  InHead\1 1
288                 VARDEF  InTail\1 1
289                 VARDEF  OutDisable\1 1
290                 VARDEF  OutHead\1 1
291                 VARDEF  OutTail\1 1
292                 VARDEF  OutCtrl\1 1
293                 VARDEF  OutFlush\1 1
294                 VARDEF  SetUp\1 1
295                 VARDEF  Param\1 1
296                 VARDEF  Command\1 1
297                 VARDEF  SoftFlow\1 1
298                 ; private:
299                 VARDEF  XonOff\1 1
300                 endm
301
302
303  VARBASE 0      ; start variables at address $0000
304  PORTVAR 0      ; define variables for port 0
305  PORTVAR 1      ; define variables for port 1
306  PORTVAR 2      ; define variables for port 2
307  PORTVAR 3      ; define variables for port 3
308  PORTVAR 4      ; define variables for port 4
309  PORTVAR 5      ; define variables for port 5
310  PORTVAR 6      ; define variables for port 6
311
312
313
314  VARDEF Crystal 1       ; 0 = unknown, 1 = normal, 2 = turbo
315  VARDEF Pad_a   1
316  VARDEF TimerH  1
317  VARDEF TimerL  1
318  VARDEF CDHead  1
319  VARDEF CDTail  1
320  VARDEF CDStatus 1
321  VARDEF Pad_b   1
322
323  VARDEF CommonCDo 1     ; for carrier detect optimization
324  VARDEF CommonCDc 1     ; for carrier detect debouncing
325  VARDEF CommonCDb 1     ; for carrier detect debouncing
326
327
328  VARBASE $0200
329  VARDEF obuf0 256       ; output data (characters only)
330  VARDEF obuf1 256
331  VARDEF obuf2 256
332  VARDEF obuf3 256
333  VARDEF obuf4 256
334  VARDEF obuf5 256
335  VARDEF obuf6 256
336
337  VARDEF ibuf0 256       ; input data (characters, events etc - see ictl)
338  VARDEF ibuf1 256
339  VARDEF ibuf2 256
340  VARDEF ibuf3 256
341  VARDEF ibuf4 256
342  VARDEF ibuf5 256
343  VARDEF ibuf6 256
344
345  VARDEF ictl0 256       ; input control information (type of data in ibuf)
346  VARDEF ictl1 256
347  VARDEF ictl2 256
348  VARDEF ictl3 256
349  VARDEF ictl4 256
350  VARDEF ictl5 256
351  VARDEF ictl6 256
352
353  VARDEF cdbuf 256       ; CD event queue
354
355
356 ACIA0           equ     $4400
357 ACIA1           equ     $4c00
358 ACIA2           equ     $5400
359 ACIA3           equ     $5c00
360 ACIA4           equ     $6400
361 ACIA5           equ     $6c00
362 ACIA6           equ     $7400
363
364 A_DATA          equ     $00
365 A_SR            equ     $02
366 A_CMD           equ     $04
367 A_CTRL          equ     $06
368 ;  00   write transmit data     read received data
369 ;  02   reset ACIA              read status register
370 ;  04   write command register  read command register
371 ;  06   write control register  read control register
372
373 CIA             equ     $7c00           ; 8520 CIA
374 C_PA            equ     $00             ; port A data register
375 C_PB            equ     $02             ; port B data register
376 C_DDRA          equ     $04             ; data direction register for port A
377 C_DDRB          equ     $06             ; data direction register for port B
378 C_TAL           equ     $08             ; timer A
379 C_TAH           equ     $0a
380 C_TBL           equ     $0c             ; timer B
381 C_TBH           equ     $0e
382 C_TODL          equ     $10             ; TOD LSB
383 C_TODM          equ     $12             ; TOD middle byte
384 C_TODH          equ     $14             ; TOD MSB
385 C_DATA          equ     $18             ; serial data register
386 C_INTCTRL       equ     $1a             ; interrupt control register
387 C_CTRLA         equ     $1c             ; control register A
388 C_CTRLB         equ     $1e             ; control register B
389
390
391
392
393
394                 section main,code,CODE-2
395
396                 db      >CODE,<CODE
397
398 ;-----------------------------------------------------------------------;
399 ; here's the initialization code:                                       ;
400 ;                                                                       ;
401 R_RESET         ldx     #$ff                                            ;
402                 txs                     ; initialize stack pointer      ;
403                 cld                     ; in case a 6502 is used...     ;
404                 ldx     #0              ;                               ;
405                 lda     #0              ;                               ;
406                 ldy     #Crystal        ; this many bytes to clear      ;
407 clr_loop        sta     0,x             ; clear zero page variables     ;
408                 inx                     ;                               ;
409                 dey                     ;                               ;
410                 bne     clr_loop        ;                               ;
411                                         ;                               ;
412                 stz     CommonCDo       ; force CD test at boot         ;
413                 stz     CommonCDb       ;                               ;
414                 stz     CDHead          ; clear queue                   ;
415                 stz     CDTail          ;                               ;
416                                         ;                               ;
417                 lda     #0              ;                               ;
418                 sta     Pad_a           ;                               ;
419                 lda     #170            ; test cmp                      ;
420                 cmp     #100            ;                               ;
421                 .if     cs              ;                               ;
422                  inc    Pad_a           ; C was set                     ;
423                 .end                    ;                               ;
424                                                                         ;
425 ;-----------------------------------------------------------------------;
426 ; Speed check                                                           ;
427 ;-----------------------------------------------------------------------;
428                                                                         ;
429                 lda     Crystal         ; speed already set?            ;
430                 beq     DoSpeedy        ;                               ;
431                 jmp     LOOP            ; yes, skip speed test          ;
432                                         ;                               ;
433 DoSpeedy        lda     #%10011000      ; 8N1, 1200/2400 bps            ;
434                 sta     ACIA0+A_CTRL    ;                               ;
435                 lda     #%00001011      ; enable DTR                    ;
436                 sta     ACIA0+A_CMD     ;                               ;
437                 lda     ACIA0+A_SR      ; read status register          ;
438                                         ;                               ;
439                 lda     #%10000000      ; disable all ints (unnecessary);
440                 sta     CIA+C_INTCTRL   ;                               ;
441                 lda     #255            ; program the timer             ;
442                 sta     CIA+C_TAL       ;                               ;
443                 sta     CIA+C_TAH       ;                               ;
444                                         ;                               ;
445                 ldx     #0              ;                               ;
446                 stx     ACIA0+A_DATA    ; transmit a zero               ;
447                 nop                     ;                               ;
448                 nop                     ;                               ;
449                 lda     ACIA0+A_SR      ; read status                   ;
450                 nop                     ;                               ;
451                 nop                     ;                               ;
452                 stx     ACIA0+A_DATA    ; transmit a zero               ;
453 Speedy1         lda     ACIA0+A_SR      ; read status                   ;
454                 and     #[1<<4]         ; transmit data reg empty?      ;
455                 beq     Speedy1         ; not yet, wait more            ;
456                                         ;                               ;
457                 lda     #%00010001      ; load & start the timer        ;
458                 stx     ACIA0+A_DATA    ; transmit one more zero        ;
459                 sta     CIA+C_CTRLA     ;                               ;
460 Speedy2         lda     ACIA0+A_SR      ; read status                   ;
461                 and     #[1<<4]         ; transmit data reg empty?      ;
462                 beq     Speedy2         ; not yet, wait more            ;
463                 stx     CIA+C_CTRLA     ; stop the timer                ;
464                                         ;                               ;
465                 lda     CIA+C_TAL       ; copy timer value for 68k      ;
466                 sta     TimerL          ;                               ;
467                 lda     CIA+C_TAH       ;                               ;
468                 sta     TimerH          ;                               ;
469                 cmp     #$d0            ; turbo or normal?              ;
470                 .if     cs              ;                               ;
471                  lda    #2              ; turbo! :-)                    ;
472                 .else                   ;                               ;
473                  lda    #1              ; normal :-(                    ;
474                 .end                    ;                               ;
475                 sta     Crystal         ;                               ;
476                 lda     #0              ;                               ;
477                 sta     ACIA0+A_SR      ;                               ;
478                 sta     ACIA0+A_CTRL    ; reset UART                    ;
479                 sta     ACIA0+A_CMD     ;                               ;
480                                                                         ;
481                 jmp     LOOP                                            ;
482                                                                         ;
483 ;                                                                       ;
484 ;-----------------------------------------------------------------------;
485 ;                                                                       ;
486 ; The Real Thing:                                                       ;
487 ;                                                                       ;
488 LOOP            DO_SLOW                 ; do non-critical things        ;
489                 jsr     do_input        ; check for received data
490                 DO_PORT 0
491                 jsr     do_input
492                 DO_PORT 1
493                 jsr     do_input
494                 DO_PORT 2
495                 jsr     do_input
496                 DO_PORT 3
497                 jsr     do_input
498                 DO_PORT 4
499                 jsr     do_input
500                 DO_PORT 5
501                 jsr     do_input
502                 DO_PORT 6
503                 jsr     do_input
504                 jmp     LOOP
505
506
507 do_input        DO_DATA 0
508                 DO_DATA 1
509                 DO_DATA 2
510                 DO_DATA 3
511                 DO_DATA 4
512                 DO_DATA 5
513                 DO_DATA 6
514                 rts
515
516
517 ;-----------------------------------------------------------------------;
518                 section vectors,data,$3ffa
519                 dw      $d0d0
520                 dw      R_RESET
521                 dw      $c0ce
522 ;-----------------------------------------------------------------------;
523
524
525
526                 end
527
528
529