Add source files from Michael

1 files changed, 437 insertions, 0 deletions

diff --git a/system/shard-x86-at/7/src/I8250.ASM b/system/shard-x86-at/7/src/I8250.ASM
new file mode 100644
index 0000000..19f584d
--- /dev/null
+++ b/system/shard-x86-at/7/src/I8250.ASM
@@ -0,0 +1,437 @@
+;***************************************************************************

+;*======= Copyright (C) 1985,86 Martin Schoenbeck, Spenge =================*

+;*                                                                         *

+;*   Routinen fuer 8250 UART im EUMEL - System                             *

+;*                                                                         *

+;*                                                                         *

+;***************************************************************************

+

+i8250_data equ 0

+i8250_ier  equ 1                 ;interrupt enable register

+i8250_iir  equ 2                 ;interrupt indicator register

+i8250_lcr  equ 3                 ;line control register

+i8250_mcr  equ 4                 ;modem control register

+i8250_lsr  equ 5                 ;line status register

+i8250_msr  equ 6                 ;modem status register

+

+     device i8250

+

+     dtcbroutines iocontrol

+     routine 1,i8250_devicetype

+     routine 2,frout

+     routine 3,i8250_stop

+     routine 4,i8250_weiter

+     routine 5,nil_size

+     routine 6,priv_op_question

+     routine 8,priv_op_question

+     routine 9,priv_op_question

+     routine -2,frout

+     routine -3,i8250_status

+     routine -4,stream_in_count

+     routine -5,stream_out_count

+     routine -6,i8250_sendbreak

+     routine -10,i8250_i_stop

+     routine -11,i8250_i_weiter

+     routine -1,unknowncontrol

+

+     dtcbroutines control32

+     routine 6,i8250_flow

+     routine 8,i8250_baud

+     routine 9,i8250_bits

+     routine -2,i8250_init

+     routine -3,i8250_test

+     routine -1,no_channel_setup

+

+     dtcbroutines blockin

+     dtcbroutines blockout

+     routine -1,unknowncontrol

+

+     dtcbparams i8250_output,3   ;typ = nur stream io

+

+

+;******************************************************************

+;*   der macro i8250_ccb muss fuer jeden 8250 im system einmal

+;*   aufgerufen werden

+;*

+;*   parameter: 

+

+i8250_ccb macro i8250,kanal

+i8250&buf db 100 DUP (0ffh)

+     startccb i8250&ccb,kanal

+     stream 100,i8250&buf        ;;die 8250 routinen benutzen stream routinen

+ccbentry i8250_stat

+     db 0

+ccbentry i8250_statusandmask

+     db 0                        ;;keine statusleitungen abfragen

+ccbentry i8250_statusxormask

+     db 0

+ccbentry i8250_errmask

+     db 0                        ;;keine fehler auswerten

+ccbentry i8250_errflags

+     db 0

+ccbentry i8250_irq_line

+     db i8250&irq

+ccbentry i8250_base

+     dw i8250&base

+ccbentry i8250_next_ccb

+     dw 0

+ccbentry i8250_int_entry

+     call i8250_interrupt

+     endm

+

+;*** bits in i8250_stat:

+i8250_rtscts equ 1

+i8250_exists equ 2

+

+i8250_baud_table:

+     dw 2304                     ;50 

+     dw 1536                     ;75

+     dw 1047                     ;110

+     dw 857                      ;134.5

+     dw 768                      ;150

+     dw 384                      ;300

+     dw 192                      ;600

+     dw 96                       ;1200

+     dw 64                       ;1800

+     dw 48                       ;2400

+     dw 32                       ;3600

+     dw 24                       ;4800

+     dw 16                       ;7200

+     dw 12                       ;9600

+

+

+i8250_devicetype:

+     mov cx,0                      ;erstmal 0 setzen

+     test byte ptr [di+i8250_stat],i8250_exists ;ist da einer

+     ifnz <mov cl,shard:(si+devtype)>     ;type dazu

+     ret

+

+

+

+

+i8250_test:

+     cmp bh,0                    ;abfrage

+     ifnz <int 0bh>

+     mov dx,(di+i8250_base)

+     add dx,i8250_iir            ;auf interrupt indicator register

+     in al,(dx)

+     mov cl,al

+     mov ch,1

+     ret

+

+i8250_init:

+     mov ax,0

+     mov es,ax

+; pruefen, ob ueberhaupt vorhanden

+     mov dx,(di+i8250_base)

+     add dx,i8250_iir         ;interrupt indicate register holen

+     jmp short $+2

+     in al,dx

+     nop                      ;der in befehl erwischt einen von diesen

+     nop                      ;codes, wenn auf der adresse kein port ist

+     nop

+     nop

+     nop

+     test al,0f8h             ;alle bits weg, die nicht da sein koennen

+     ifnz <ret>               ;keine schnittstelle da

+     or byte ptr [di+i8250_stat],i8250_exists ;da ist einer

+

+     mov bx,first_ictlr_int

+     add bl,(di+i8250_irq_line)  ;an welchem pin des controllers haengt er

+                                 ;carry kann hier nicht auftreten

+     mov byte ptr i8250_initint,bl ;fuer passenden initialisierungsint basteln

+     add bx,bx                   ;*2 als wortadresse

+     mov dx,word ptr (i8250_i_tab-((3+first_ictlr_int)*2))[bx] ;letzten ccb holen

+     mov word ptr (i8250_i_tab-((3+first_ictlr_int)*2))[bx],di ;neuen eintragen

+     mov (di+i8250_next_ccb),dx  ;alten selbst merken

+     add bx,bx                   ;*4

+     mov word ptr es:[bx+2],cs

+     mov dx,di                   ;adresse ccb holen

+     add dx,i8250_int_entry      ;adresse interrupt routine errechnen

+     mov word ptr es:[bx],dx     ;eintragen

+     mov cl,(di+i8250_irq_line)  ;nochmal bit im controller

+     inc cl                      ;mindestens einmal shiften

+     stc

+     mov ch,0                    ;mit nichts anfangen

+     rcl ch,cl

+     in al,int_ctlr+1            ;interrupt enable register holen

+     or al,ch                    ;bit fuer i8250 setzen 

+     xor al,ch                   ;und freigeben

+     out int_ctlr+1,al

+     mov dx,(di+i8250_base)

+     add dx,i8250_ier            ;auf interrupt enable register

+     mov al,0fh                  ;alle interrupts an

+     out dx,al                   ;interrupt enable

+     add dx,i8250_mcr-i8250_ier  ;auf modem control register

+     mov al,0bh                  ;rts, dtr, int enable

+     out dx,al

+;    ret

+i8250_initint = $+1

+     int 12

+     ret

+

+i8250_i_tab:

+     dw 0                        ;int 3

+     dw 0                        ;int 4

+     dw 0                        ;int 5

+     dw 0                        ;int 6

+     dw 0                        ;int 7

+

+i8250_interrupt:

+     push ds

+     push cx

+     push di

+     push bx

+     push dx

+     push ax

+     mov ax,cs

+     mov ds,ax                   ;ds = cs setzen

+     mov bx,sp                   ;auf stack zeigen

+     mov di,ss:[bx+12]           ;return adresse im ccb holen

+     sub di,i8250_int_entry+3    ;auf anfang ccb rechnen

+i8250_to_first_ccb:

+     push di                     ;ersten ccb merken

+     mov ah,1                    ;bis jetzt keinen port gefunden

+i8250_check_same_int:

+     mov dx,(di+i8250_base)

+     add dx,i8250_iir            ;interrupt indicate register lesen

+     in al,(dx)

+     test al,1                   ;war interrupt auf diesem kanal

+     jnz i8250_int_end

+     mov ah,0                    ;ax als index, gleichzeitig ah loeschen

+     push ax

+     mov bx,ax

+     call word ptr i8250_int_table[bx]    ;passende service routine aufrufen

+     pop ax

+     jmp i8250_check_same_int

+

+i8250_int_end:

+     mov di,(di+i8250_next_ccb)  ;naechsten port fuer diesen vektor holen

+     or di,di                    ;ende eintrag?

+     jnz i8250_check_same_int

+     pop di                      ;ersten ccb holen

+     or ah,ah                    ;haben wir im letzten durchlauf einen gefunden

+     jz i8250_to_first_ccb       ;ja, dann weiter suchen

+     mov al,20h                  ;end of interrupt

+     out int_ctlr,al

+     pop ax

+     pop dx

+     pop bx

+     pop di

+     pop cx

+     pop ds

+     pop cs:[i8250_ret_dummy]    ;return adresse im ccb vergessen

+     iret                        ;fertig

+

+i8250_ret_dummy dw 0

+

+i8250_int_table:

+     dw offset i8250_out_restart ;bei ext. status wechsel oder bei tx empty

+     dw offset i8250_out_restart ;nur output ggf. neu starten

+     dw offset i8250_rec_int

+     dw offset i8250_error_int

+

+

+i8250_baud:

+     cmp bh,15                   ;negativer wert oder > 15

+     jnc i8250_not_ok

+     cmp bh,0

+     jz i8250_not_ok

+     test bl,1                   ;abfage?

+     jnz i8250_ok                ;ja, wir koennen alles

+     mov dx,(di+i8250_base)

+     add dx,i8250_lcr            ;line control register

+     cli                         ;nichts dazwischen lassen

+     in al,dx                    ;alten wert holen

+     push ax

+     mov al,80h

+     out dx,al                   ;auf baudrate register schalten

+     sub dx,i8250_lcr            ;wieder auf base

+     mov bl,bh                   ;baudrate schluessel nach bx ausdehnen

+     mov bh,0

+     sal bx,1                    ;ein baudrate eintrag ist zwei byte

+     mov ax,word ptr i8250_baud_table-2[bx] ;passenden baudrate eintrag holen

+     out dx,al                   ;low byte raus

+     mov al,ah

+     inc dx

+     out dx,al                   ;high byte raus

+     pop ax

+     add dx,i8250_lcr-1          ;wieder auf lcr

+     out dx,al                   ;alte lcr wieder setzen

+     sti                         ;jetzt darf er wieder

+     jmp short i8250_ok          ;alles klar

+     ret

+

+i8250_bits:

+     test bh,0a0h                ;negativer wert oder 1.5 Stopbits

+     jnz i8250_not_ok

+     test bh,4                   ;bitzahl >= 5

+     jz i8250_not_ok             ;nein, muss aber

+     test bl,1                   ;abfrage

+     jnz i8250_ok

+     mov al,bh                   ;anfoderung nach al

+     test al,10h                 ;gerade paritaet?

+     jz i8250_not_even

+     or al,8                     ;dann paritaet auch enablen

+i8250_not_even:

+     test al,40h                 ;2 stopbits

+     jnz i8250_not_two           ;nein, das bit steht schon

+     and al,0ffh-4               ;bit ausknipsen

+i8250_not_two:

+     and al,1fh                  ;alle unbenutzten loeschen

+     mov dx,(di+i8250_base)

+     add dx,i8250_lcr            ;auf line control register

+     out dx,al

+     mov cl,bh                   ;anzahl bits nach cl

+     and cl,7                    ;ausblenden

+     inc cl                      ;aus 0-7 1-8 machen

+     mov dx,0ffh                 ;von 0 bits ausgehen

+     shl dl,cl                   ;bits anzahl nullen reinziehen

+     xor dl,0ffh                 ;und 1 und 0 tauschen

+     call set_out_mask

+     call set_inp_mask

+     call set_inp_errmask

+i8250_ok:

+     mov cx,0

+     ret

+

+i8250_not_ok:

+     mov cx,1

+     ret

+

+i8250_flow:

+     test bh,80h                 ;negativer wert?

+     jnz i8250_not_ok

+     cmp bh,3

+     jnc i8250_not_ok            ;oder > 2

+     test bl,1                   ;abfrage

+     jnz i8250_ok                ;ja

+   cli

+     mov byte ptr (di+i8250_statusxormask),0 ;beim status nichts abfragen

+     mov byte ptr (di+i8250_statusandmask),0

+     and byte ptr (di+i8250_stat),0ffh-i8250_rtscts ;handshake ausschalten

+     dec bh

+     jnz i8250_not_xonxoff

+     call enablexon

+     jmp i8250_flow_end

+i8250_not_xonxoff:

+     call disablexon

+     dec bh

+     jnz i8250_flow_end

+     mov byte ptr (di+i8250_statusandmask),10h ;cts abfragen

+     mov byte ptr (di+i8250_statusxormask),10h ;auf gesetzt

+     or byte ptr (di+i8250_stat),i8250_rtscts

+i8250_flow_end:

+     call i8250_out_restart      ;immer probieren, ob jetzt output moeglich

+     sti

+     jmp i8250_ok

+

+i8250_output:

+     call fillbuffer

+     pushf

+     jz i8250_no_orest

+     call i8250_out_restart

+i8250_no_orest:

+     popf

+     ret

+

+;* out_restart kann jederzeit aufgerufen werden, da der status jedesmal

+;* abgefragt wird

+i8250_out_restart:

+     mov dx,(di+i8250_base)      ;commandport laden

+     add dx,i8250_lsr            ;adresse line status register

+    cli

+     in al,(dx)                  ;status holen

+     test al,20h                 ;tx buffer empty

+     lahf                        ;modem status register immer lesen

+     inc dx                      ;auf modem status register

+     in al,(dx)                  ;holen

+     sahf

+     jz i8250_stiret             ;nein, sti und zurueck

+     and al,(di+i8250_statusandmask) ;gewuenschte bits ausblenden

+     xor al,(di+i8250_statusxormask)

+     jnz i8250_stiret

+     call getnextchar            ;zeichen holen, xon/xoff etc. abhandeln

+     mov dx,(di+i8250_base)      ;port holen

+     ifnz <out (dx),al>          ;wenn was da, ausgeben

+i8250_stiret:

+    sti

+     ret                         ;fertig

+

+i8250_rec_int:

+     mov dx,(di+i8250_base)

+     in al,(dx)                  ;zeichen holen

+     call input                  ;zeichen uebergeben, xon/xoff etc. abhandeln

+     jz i8250_out_restart        ;ggf. output neu starten

+     ret

+

+i8250_error_int:

+     mov dx,(di+i8250_base)

+     add dx,i8250_lsr            ;line status register holen

+     in al,(dx)

+     or (di+i8250_errflags),al   ;alte errorflags dazu

+     test al,10h                 ;break detected

+     jnz i8250_break

+     and al,(di+i8250_errmask)   ;welche fehlerbits sollen behandelt werden

+     jz i8250_rec_int            ;keine, normal einlesen

+     mov dx,(di+i8250_base)

+     in al,(dx)                  ;zeichen holen

+     call errorinput             ;uebergeben

+     jz i8250_out_restart

+     ret

+

+i8250_break:

+     call breakinput             ;break zeichen uebergeben

+     jz i8250_out_restart

+     ret

+

+i8250_stop:

+     call stream_stop

+     ifnz <call i8250_out_restart> ;output ggf neu starten

+     test byte ptr (di+i8250_stat),i8250_rtscts

+     jz i8250_stop_end

+i8250_i_stop:

+     mov dx,(di+i8250_base)

+     add dx,i8250_mcr            ;auf modem control register

+     mov al,9                    ;rts wegnehmen

+     out (dx),al

+i8250_stop_end:

+     ret

+

+i8250_weiter:

+     call stream_weiter

+     ifnz <call i8250_out_restart> ;output ggf. neu starten

+     test byte ptr (di+i8250_stat),i8250_rtscts

+     jz i8250_stop_end

+i8250_i_weiter:

+     mov dx,(di+i8250_base)

+     add dx,i8250_mcr            ;auf modem control register

+     mov al,0bh                  ;rts wieder setzen

+     out (dx),al

+     ret

+

+i8250_status:

+     cli

+     mov cl,(di+i8250_errflags)    ;fehler holen

+     mov byte ptr (di+i8250_errflags),0 ;loeschen

+     mov dx,(di+i8250_base)

+     add dx,i8250_lsr

+     in al,dx

+     mov ch,al

+     sti

+     ret

+

+i8250_sendbreak:

+     cli

+     mov dx,(di+i8250_base)

+     add dx,i8250_lcr

+     in al,dx

+     and al,10111111b            ;switch breakbit off

+     and bl,1                    ;nur ein bit behalten

+     ror bl,1

+     ror bl,1                    ;auf bit 6 position

+     or al,bl                    ;send break or not

+     out dx,al

+     sti

+     ret

+
\ No newline at end of file