Liren Large Software Subsidy 10/10.iso/l/l292/2.ddi/MISCIO.ASM

Assembly Source File | 1989-10-13 | 14.7 KB | 814 lines

;    Async driver for MS Fortran 5.0.    10/10/89
;       Written by Quinn-Curtis for use with their Science, Engineering
;       and Graphics Tools for MS FORTRAN
;       Originally written in MS C, compiled to an .ASM file, then
;       modified to remove MS C library calls.  Other minor changes
;       were made to make the module compatible with MS FORTRAN.  This
;       .ASM file should be compiled with MS MASM 5.x.
;
;
    TITLE   MISCIO.c
    NAME    MISCIO

    .8087
MISCIO_TEXT    SEGMENT  WORD PUBLIC 'CODE'
MISCIO_TEXT    ENDS
_DATA    SEGMENT  WORD PUBLIC 'DATA'
_DATA    ENDS
CONST    SEGMENT  WORD PUBLIC 'CONST'
CONST    ENDS
_BSS    SEGMENT  WORD PUBLIC 'BSS'
_BSS    ENDS
DGROUP    GROUP    CONST, _BSS, _DATA
    ASSUME  CS: MISCIO_TEXT, DS: DGROUP, SS: DGROUP
PUBLIC  _com_flag
_BSS      SEGMENT
COMM NEAR    _overrun_flag:    BYTE:     2
COMM NEAR    _com_buffer:    BYTE:     1000
COMM NEAR    _com_port:    BYTE:     2
COMM NEAR    _intlev:    BYTE:     2
COMM NEAR    _buffer_in:    BYTE:     2
COMM NEAR    _buffer_out:    BYTE:     2
COMM NEAR    _buffer_length:    BYTE:     2
COMM NEAR    _bf_hndshk:    BYTE:     2
COMM NEAR    _thr:    BYTE:     2
COMM NEAR    _rbr:    BYTE:     2
COMM NEAR    _ier:    BYTE:     2
COMM NEAR    _lcr:    BYTE:     2
COMM NEAR    _mcr:    BYTE:     2
COMM NEAR    _lsr:    BYTE:     2
COMM NEAR    _msr:    BYTE:     2
COMM NEAR    _hndshk:    BYTE:     2
COMM NEAR    _oldfunc:    BYTE:     4
_BSS      ENDS
_DATA      SEGMENT
_com_flag    DW    00H
_DATA      ENDS
CONST      SEGMENT
$T20000    DW SEG _rbr
$T20001    DW SEG _buffer_in
$T20002    DW SEG _com_buffer
$T20003    DW SEG _buffer_length
$T20004    DW SEG _overrun_flag
$T20005    DW SEG _mcr
$T20006    DW SEG _bf_hndshk
CONST      ENDS
MISCIO_TEXT      SEGMENT
    ASSUME    CS: MISCIO_TEXT
    PUBLIC    _com_isr
_com_isr    PROC FAR
    push    ax
    push    cx
    push    dx
    push    bx
    push    sp
    push    bp
    push    si
    push    di
    push    ds
    push    es
    mov    bp,sp
    sub    sp,2
    mov    ax,DGROUP
    mov    ds,ax
    ASSUME DS: DGROUP
    cld
    cmp    WORD PTR _com_flag,1
    je    $JCC26
    jmp    $I249
$JCC26:
    mov    es,$T20000
    mov    ax,WORD PTR es:_rbr
    mov    WORD PTR [bp-2],ax
    mov    dx,ax
    in    al,dx
    mov    es,$T20001
    mov    bx,WORD PTR es:_buffer_in
    mov    es,$T20002
    mov    BYTE PTR es:_com_buffer[bx],al
    mov    es,$T20001
    inc    WORD PTR es:_buffer_in
    cmp    WORD PTR es:_buffer_in,1000
    jne    $I247
    mov    WORD PTR es:_buffer_in,0
$I247:
    mov    es,$T20003
    inc    WORD PTR es:_buffer_length
    cmp    WORD PTR es:_buffer_length,1000
    jle    $I248
    mov    WORD PTR es:_buffer_length,1000
    mov    es,$T20004
    mov    WORD PTR es:_overrun_flag,1
$I248:
    mov    es,$T20003
    cmp    WORD PTR es:_buffer_length,900
    jle    $I249
    mov    es,$T20005
    mov    ax,WORD PTR es:_mcr
    mov    WORD PTR [bp-2],ax
    mov    ax,9
    mov    dx,WORD PTR [bp-2]
    out    dx, al

    mov    es,$T20006
    mov    WORD PTR es:_bf_hndshk,1
$I249:
    mov    ax,32
    out    32, al

    mov    sp,bp
    pop    es
    pop    ds
    ASSUME DS: DGROUP
    pop    di
    pop    si
    pop    bp
    pop    bx
    pop    bx
    pop    dx
    pop    cx
    pop    ax
    iret

_com_isr    ENDP
MISCIO_TEXT      ENDS
CONST      SEGMENT
$T20007    DW SEG _buffer_out
CONST      ENDS
MISCIO_TEXT      SEGMENT
    ASSUME    CS: MISCIO_TEXT
    PUBLIC    _reset_buffer
_reset_buffer    PROC FAR
    mov    es,$T20006
    mov    WORD PTR es:_bf_hndshk,0
    mov    es,$T20001
    mov    WORD PTR es:_buffer_in,0
    mov    es,$T20007
    mov    WORD PTR es:_buffer_out,0
    mov    es,$T20003
    mov    WORD PTR es:_buffer_length,0
    mov    es,$T20004
    mov    WORD PTR es:_overrun_flag,0
    ret

_reset_buffer    ENDP
MISCIO_TEXT      ENDS
CONST      SEGMENT
$T20008    DW SEG _com_port
$T20009    DW SEG _hndshk
$T20011    DW SEG _thr
$T20012    DW SEG _ier
$T20013    DW SEG _lcr
$T20014    DW SEG _lsr
$T20015    DW SEG _msr
$T20016    DW SEG _intlev
$T20017    DW SEG _oldfunc
CONST      ENDS
MISCIO_TEXT      SEGMENT
    ASSUME    CS: MISCIO_TEXT
    PUBLIC    _open_com
_open_com    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,6
;    numbits = 14
;    handshake = 16
;    error_code = 18
;    comdata = -4
;    ptemp = -2
;    Cport = 6
;    baud = 8
;    parity = 10
;    stopbits = 12
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],0
    mov    es,$T20008
    mov    ax,WORD PTR [bp+6]    ;Cport
    mov    WORD PTR es:_com_port,ax
    mov    WORD PTR [bp-4],0    ;comdata
    cmp    WORD PTR [bp+14],7    ;numbits
    je    $I264
    cmp    WORD PTR [bp+14],8    ;numbits
    jne    $I263
$I264:
    mov    ax,WORD PTR [bp+14]    ;numbits
    sub    ax,5
    or    WORD PTR [bp-4],ax    ;comdata
    jmp    SHORT $I265
    nop
$I263:
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],5
$I265:
    cmp    WORD PTR [bp+12],2    ;stopbits
    je    $I267
    cmp    WORD PTR [bp+12],1    ;stopbits
    jne    $I266
$I267:
    mov    ax,WORD PTR [bp+12]    ;stopbits
    shl    ax,1
    shl    ax,1
    sub    ax,4
    or    WORD PTR [bp-4],ax    ;comdata
    jmp    SHORT $I268
    nop
$I266:
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],4
$I268:
    cmp    WORD PTR [bp+10],1    ;parity
    je    $I270
    cmp    WORD PTR [bp+10],3    ;parity
    je    $I270
    cmp    WORD PTR [bp+10],0    ;parity
    jne    $I269
$I270:
    mov    ax,WORD PTR [bp+10]    ;parity
    mov    cl,3
    shl    ax,cl
    or    WORD PTR [bp-4],ax    ;comdata
    jmp    SHORT $I271
$I269:
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],3
$I271:
    mov    es,$T20009
    mov    ax,WORD PTR [bp+16]    ;handshake
    mov    WORD PTR es:_hndshk,ax
    mov    ax,WORD PTR [bp+8]    ;baud
    cmp    ax,600
    jne    $JCC393
    jmp    $SC279
$JCC393:
    jle    $JCC398
    jmp    $L20010
$JCC398:
    cmp    ax,110
    je    $SC276
    cmp    ax,150
    je    $SC277
    cmp    ax,300
    jne    $JCC416
    jmp    $SC278
$JCC416:
    jmp    $SD284
$SC277:
    or    BYTE PTR [bp-4],32    ;comdata
$SC276:
    cmp    WORD PTR [bp+6],0    ;Cport
    jl    $I286
    cmp    WORD PTR [bp+6],1    ;Cport
    jle    $I285
$I286:
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],1
$I285:
    les    bx,DWORD PTR [bp+18]    ;error_code
    cmp    WORD PTR es:[bx],0
    jne    $I287
       sub ax,ax
       mov dx, WORD PTR [bp+6]
       mov ax, WORD PTR [bp-4]
       int 14H

$I287:
    cmp    WORD PTR [bp+6],0    ;Cport
    je    $JCC478
    jmp    $I289
$JCC478:
    mov    es,$T20011
    mov    WORD PTR es:_thr,1016
    mov    es,$T20000
    mov    WORD PTR es:_rbr,1016
    mov    es,$T20012
    mov    WORD PTR es:_ier,1017
    mov    es,$T20013
    mov    WORD PTR es:_lcr,1019
    mov    es,$T20005
    mov    WORD PTR es:_mcr,1020
    mov    es,$T20014
    mov    WORD PTR es:_lsr,1021
    mov    es,$T20015
    mov    WORD PTR es:_msr,1022
    jmp    $I290
    nop
$SC278:
    or    BYTE PTR [bp-4],64    ;comdata
    jmp    $SC276
    nop
$SC279:
    or    BYTE PTR [bp-4],96    ;comdata
    jmp    $SC276
    nop
$SC280:
    or    BYTE PTR [bp-4],128    ;comdata
    jmp    $SC276
    nop
$SC281:
    or    BYTE PTR [bp-4],160    ;comdata
    jmp    $SC276
    nop
$SC282:
    or    BYTE PTR [bp-4],192    ;comdata
    jmp    $SC276
    nop
$SC283:
    or    BYTE PTR [bp-4],224    ;comdata
    jmp    $SC276
    nop
$L20010:
    cmp    ax,1200
    je    $SC280
    cmp    ax,2400
    je    $SC281
    cmp    ax,4800
    je    $SC282
    cmp    ax,9600
    je    $SC283
$SD284:
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],2
    jmp    $SC276
    nop
$I289:
    mov    es,$T20011
    mov    WORD PTR es:_thr,760
    mov    es,$T20000
    mov    WORD PTR es:_rbr,760
    mov    es,$T20012
    mov    WORD PTR es:_ier,761
    mov    es,$T20013
    mov    WORD PTR es:_lcr,763
    mov    es,$T20005
    mov    WORD PTR es:_mcr,764
    mov    es,$T20014
    mov    WORD PTR es:_lsr,765
    mov    es,$T20015
    mov    WORD PTR es:_msr,766
$I290:
    mov    es,$T20016
    mov    ax,12
    sub    ax,WORD PTR [bp+6]    ;Cport
    mov    WORD PTR es:_intlev,ax

        mov     ah, 35H
        int     21H
        mov     ax,es

    mov    es,$T20017
    mov    WORD PTR es:_oldfunc,bx
    mov    WORD PTR es:_oldfunc+2,ax
        mov     dx, offset _com_isr
        mov     bx, seg _com_isr
        mov     es, $T20016
        mov     ax, WORD PTR es:_intlev
        mov     ah, 25H
        push    ds
        mov     ds,bx
        int     21H
        pop     ds
    cli
    mov    es,$T20013
    mov    ax,WORD PTR es:_lcr
    mov    WORD PTR [bp-6],ax
    mov    dx,ax
    in    al,dx
    sub    ah,ah
    and    ax,127
    mov    WORD PTR [bp-2],ax    ;ptemp
    out    dx, al

    mov    es,$T20014
    mov    ax,WORD PTR es:_lsr
    mov    WORD PTR [bp-6],ax
    mov    dx,ax
    in    al,dx
    sub    ah,ah
    mov    WORD PTR [bp-2],ax    ;ptemp
    mov    es,$T20000
    mov    ax,WORD PTR es:_rbr
    mov    WORD PTR [bp-6],ax
    mov    dx,ax
    in    al,dx
    sub    ah,ah
    mov    WORD PTR [bp-2],ax    ;ptemp
    cmp    WORD PTR [bp+6],0    ;Cport
    jne    $I291
    in    al,33
    and    ax,239
    jmp    SHORT $L20018
    nop
$I291:
    in    al,33
    sub    ah,ah
    and    ax,247
$L20018:
    mov    WORD PTR [bp-2],ax    ;ptemp
    out    33, al

    mov    es,$T20012
    mov    ax,WORD PTR es:_ier
    mov    WORD PTR [bp-6],ax
    mov    ax,1
    mov    dx,WORD PTR [bp-6]
    out    dx, al

    mov    es,$T20005
    mov    ax,WORD PTR es:_mcr
    mov    WORD PTR [bp-6],ax
    mov    dx,ax
    in    al,dx
    sub    ah,ah
    or    al,11
    mov    WORD PTR [bp-2],ax    ;ptemp
    out    dx, al

    sti
    les    bx,DWORD PTR [bp+18]    ;error_code
    mov    WORD PTR es:[bx],0
    mov    WORD PTR _com_flag,1
    push    cs
    call    _reset_buffer
    mov    sp,bp
    pop    bp
    ret
    nop

_open_com    ENDP
    PUBLIC    _close_com
_close_com    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,4
;    ptemp = -2
    cmp    WORD PTR _com_flag,1
    jne    $I296
    cli
    in    al,33
    sub    ah,ah
    or    al,24
    mov    WORD PTR [bp-2],ax    ;ptemp
    out    33, al

    mov    es,$T20013
    mov    ax,WORD PTR es:_lcr
    mov    WORD PTR [bp-4],ax
    mov    dx,ax
    in    al,dx
    sub    ah,ah
    or    al,127
    mov    WORD PTR [bp-2],ax    ;ptemp
    out    dx, al

    mov    es,$T20012
    mov    ax,WORD PTR es:_ier
    mov    WORD PTR [bp-4],ax
    sub    ax,ax
    mov    dx,WORD PTR [bp-4]
    out    dx, al

    mov    es,$T20005
    mov    ax,WORD PTR es:_mcr
    mov    WORD PTR [bp-4],ax
    sub    ax,ax
    mov    dx,WORD PTR [bp-4]
    out    dx, al

        mov     dx, word ptr es:_oldfunc
        mov     bx, word ptr es:_oldfunc+2
        mov     es, $T20016
        mov     ax, word ptr es:_intlev
        mov     ah, 25H
        push    ds
        mov     ds,bx
        int     21H
        pop     ds

    sti
    mov    WORD PTR _com_flag,0
$I296:
    mov    sp,bp
    pop    bp
    ret
    nop

_close_com    ENDP
    PUBLIC    _check_com
_check_com    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,2
;    c = 6
;    error_code = 10
    cmp    WORD PTR _com_flag,0
    jne    $I301
    les    bx,DWORD PTR [bp+10]    ;error_code
    mov    WORD PTR es:[bx],10
    mov    sp,bp
    pop    bp
    ret
    nop
$I301:
    mov    es,$T20003
    cmp    WORD PTR es:_buffer_length,0
    jne    $I303
    les    bx,DWORD PTR [bp+10]    ;error_code
    mov    WORD PTR es:[bx],6
    mov    sp,bp
    pop    bp
    ret
$I303:
    mov    es,$T20004
    cmp    WORD PTR es:_overrun_flag,1
    jne    $I305
    les    bx,DWORD PTR [bp+10]    ;error_code
    mov    WORD PTR es:[bx],7
    jmp    SHORT $I306
$I305:
    les    bx,DWORD PTR [bp+10]    ;error_code
    mov    WORD PTR es:[bx],0
$I306:
    mov    es,$T20007
    mov    bx,WORD PTR es:_buffer_out
    mov    es,$T20002
    mov    al,BYTE PTR es:_com_buffer[bx]
    les    bx,DWORD PTR [bp+6]    ;c
    mov    BYTE PTR es:[bx],al
    mov    es,$T20007
    inc    WORD PTR es:_buffer_out
    cmp    WORD PTR es:_buffer_out,1000
    jne    $I307
    mov    WORD PTR es:_buffer_out,0
$I307:
    mov    es,$T20003
    dec    WORD PTR es:_buffer_length
    mov    es,$T20006
    cmp    WORD PTR es:_bf_hndshk,0
    je    $I308
    mov    es,$T20003
    cmp    WORD PTR es:_buffer_length,100
    jge    $I308
    mov    es,$T20005
    mov    ax,WORD PTR es:_mcr
    mov    WORD PTR [bp-2],ax
    mov    ax,11
    mov    dx,WORD PTR [bp-2]
    out    dx, al

    mov    es,$T20006
    mov    WORD PTR es:_bf_hndshk,0
$I308:
    mov    sp,bp
    pop    bp
    ret
    nop

_check_com    ENDP
    PUBLIC    _send_com
_send_com    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,10
;    c = 6
;    error_code = 8
;    handshake = -6
;    counter = -4
    cmp    WORD PTR _com_flag,0
    jne    $I315
    les    bx,DWORD PTR [bp+8]    ;error_code
    mov    WORD PTR es:[bx],10
    mov    sp,bp
    pop    bp
    ret
    nop
$I315:
    sub    ax,ax
    mov    WORD PTR [bp-2],ax
    mov    WORD PTR [bp-4],ax    ;counter
    mov    es,$T20009
    mov    ax,WORD PTR es:_hndshk
    mov    WORD PTR [bp-6],ax    ;handshake
$D317:
    add    WORD PTR [bp-4],1    ;counter
    adc    WORD PTR [bp-2],0
    mov    es,$T20015
    mov    ax,WORD PTR es:_msr
    mov    WORD PTR [bp-8],ax
    mov    dx,ax
    in    al,dx
    sub    ah,ah
    and    ax,WORD PTR [bp-6]    ;handshake
    cmp    ax,WORD PTR [bp-6]    ;handshake
    jne    $D317
    mov    es,$T20014
    mov    ax,WORD PTR es:_lsr
    mov    WORD PTR [bp-10],ax
    mov    dx,ax
    in    al,dx
    and    al,32
    cmp    al,32
    jne    $D317
    cli
    out    dx, al

    sti
    les    bx,DWORD PTR [bp+8]    ;error_code
    mov    WORD PTR es:[bx],0
    mov    sp,bp
    pop    bp
    ret
    nop

_send_com    ENDP
    PUBLIC    _writeln_com
_writeln_com    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,2
    push    si
;    str = 6
;    error_code = 10
;    i = -2
    mov    WORD PTR [bp-2],0    ;i
    les    bx,DWORD PTR [bp+6]    ;str
    cmp    BYTE PTR es:[bx],0
    je    $I325
$D326:
    push    WORD PTR [bp+12]
    push    WORD PTR [bp+10]    ;error_code
    mov    bx,WORD PTR [bp-2]    ;i
    mov    si,WORD PTR [bp+6]    ;str
    mov    al,es:[bx][si]
    cbw
    push    ax
;    push    cs
    call    _send_com
    add    sp,6
    inc    WORD PTR [bp-2]    ;i
    mov    bx,WORD PTR [bp-2]    ;i
    les    si,DWORD PTR [bp+6]    ;str
    cmp    BYTE PTR es:[bx][si],0
    jne    $D326
    push    WORD PTR [bp+12]
    push    WORD PTR [bp+10]    ;error_code
    mov    ax,13
    push    ax
;    push    cs
    call    _send_com
    add    sp,6
$I325:
    pop    si
    mov    sp,bp
    pop    bp
    ret

_writeln_com    ENDP

    PUBLIC    _readln_com
_readln_com    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,4
    push    si
;    str = 6
;    error_code = 10
;    i = -4
;    c = -2
    mov    WORD PTR [bp-4],0    ;i
$D335:
    push    WORD PTR [bp+12]
    push    WORD PTR [bp+10]    ;error_code
    lea    ax,WORD PTR [bp-2]    ;c
    push    ss
    push    ax
;    push    cs
    call    _check_com
    add    sp,8
    les    bx,DWORD PTR [bp+10]    ;error_code
    cmp    WORD PTR es:[bx],0
    jne    $I338
    mov    bx,WORD PTR [bp-4]    ;i
    les    si,DWORD PTR [bp+6]    ;str
    mov    al,BYTE PTR [bp-2]    ;c
    mov    es:[bx][si],al
    inc    WORD PTR [bp-4]    ;i
$I338:
    cmp    WORD PTR [bp-4],80    ;i
    jge    $D339
    cmp    BYTE PTR [bp-2],13    ;c
    jne    $D335
    dec    WORD PTR [bp-4]    ;       i backup to CR
$D339:
    mov    bx,WORD PTR [bp-4]    ;i
    les    si,DWORD PTR [bp+6]    ;str
    mov    BYTE PTR es:[bx][si],32 ; replace CR with a space
    pop    si
    mov    sp,bp
    pop    bp
    ret

_readln_com    ENDP


    PUBLIC    _POC
_POC    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,2
;       port = 6
;       c = 8
;       status = 12

    sub    ax,ax
        mov     al,BYTE PTR [bp+8] ;  al = c
        mov     dx,WORD PTR [bp+6] ;  dx = port

        int     17H       ;  call printer I/O

    les    bx,DWORD PTR [bp+12]    ;
    mov    BYTE PTR es:[bx],ah

    mov    sp,bp
    pop    bp
    ret

_POC    ENDP

    PUBLIC    _ReadKey
_ReadKey PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,2

;       char = 6
;       scancode = 10

    sub    ax,ax

        int     16H       ;  call keyboard I/O

    les    bx,DWORD PTR [bp+6]    ;
    mov    BYTE PTR es:[bx],al

    les    bx,DWORD PTR [bp+10]    ;
    mov    BYTE PTR es:[bx],ah


    mov    sp,bp
    pop    bp
    ret

_ReadKey ENDP

    PUBLIC    _GotoXY
_GotoXY    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,2
;       x = 6
;       y = 8
        sub     ax,ax
        mov     al,BYTE PTR [bp+8] ;
        sub     ax,1
        mov     dh,al              ;  dh = row y

        sub     ax,ax
        mov     al,BYTE PTR [bp+6] ;
        sub     ax,1
        mov     dl,al              ;  dl = col y

        sub     ax,ax
        mov     bx,ax   ; page 0
        mov     ah,2    ; position cursor
        int     10H       ;  call screen I/O

    mov    sp,bp
    pop    bp
    ret

_GotoXY    ENDP

    PUBLIC    _WriteChar
_WriteChar    PROC FAR
    push    bp
    mov    bp,sp
    sub    sp,2
;       c = 6
        sub     ax,ax
        mov     al,BYTE PTR [bp+6] ;   c
        mov     cx,1  ; count
        mov     bx,0  ; page

        mov     ah,10    ; write char
        int     10H      ;  call screen I/O

    mov    sp,bp
    pop    bp
    ret

_WriteChar    ENDP


MISCIO_TEXT    ENDS
END