OS/2 Shareware BBS: Science/Science.zip/imdisp79.zip/TRIDENT.ASM

Assembly Source File | 1992-04-19 | 3KB | 260 lines

    public    _READLINETRI

        push    BP
        mov    BP,SP
        push    SS
        push    SI
        push    DI
        mov    AL,05Dh
        xor    AH,AH
        int    L1C
        mov    DX,03C4h
        mov    AL,0Bh
        out    AL,DX
        inc    DX
        in    AL,DX
        mov    DX,03CEh
        mov    AX,0506h
        out    AX,DX
        out    AL,DX
        pop    DI
        pop    SI
        pop    SS
        pop    BP
        retf

                push    BP
        mov    BP,SP
        push    SS
        push    SI
        push    DI
        mov    BX,6[BP]
        mov    CX,8[BP]
        mov    DX,0Ah[BP]
        mov    AX,0Ch[BP]
        mov    SI,AX
        mov    AX,0Eh[BP]
        mov    SS,AL
        mov    AX,0A000h
        mov    ES,AL
        mov    AX,0280h
        mov    BX,0Ah[BP]
        mov    CX,6[BP]
        mul    BX
        add    AX,CX
        jae    L4F
        inc    DX
        mov    BX,AX
        add    BX,8[BP]
        jae    L81
        mov    DI,AX
        mov    BX,DX
        push    DX
        mov    DI,AX
        mov    BX,DX
        mov    BH,DL
        mov    AH,BH
        xor    AH,2
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        cld
        mov    CX,0FFFFh
        sub    CX,DI
        mov    BX,8[BP]
        sub    BX,CX
        mov    8[BP],BX
        inc    CX
        rep
        movsb
        pop    DX
        inc    DX
        xor    AX,AX
        mov    DI,AX
        mov    BX,DX
        mov    BH,DL
        mov    AH,BH
        xor    AH,2
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        cld
        mov    CX,8[BP]
        rep
        movsb
        pop    DI
        pop    SI
        pop    SS
        pop    BP
        retf

_READLINETRI:
        push    BP
        mov    BP,SP
        push    SS
        push    SI
        push    DI
        mov    BX,6[BP]
        mov    CX,8[BP]
        mov    DX,0Ah[BP]
        mov    AX,0Ch[BP]
        mov    DI,AX
        mov    AX,0Eh[BP]
        mov    ES,AL
        mov    AX,0A000h
        mov    SS,AL
        mov    AX,0280h
        mov    BX,0Ah[BP]
        mov    CX,6[BP]
        mul    BX
        add    AX,CX
        jae    LCB
        inc    DX
LCB:        mov    BX,AX
        add    BX,8[BP]
        jae    LFE
        mov    SI,AX
        mov    BX,DX
        push    DX
        mov    BX,DX
        mov    BH,DL
        mov    AH,BH
        xor    AH,2
        and    AH,0FFh
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        cld
        mov    CX,0FFFFh
        sub    CX,SI
        mov    BX,8[BP]
        sub    BX,CX
        mov    8[BP],BX
        inc    CX
        rep
        movsb
        pop    DX
        inc    DX
        xor    AX,AX
LFE:        mov    SI,AX
        mov    BX,DX
        mov    BH,DL
        mov    AH,BH
        xor    AH,2
        and    AH,0FFh
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        cld
        mov    CX,8[BP]
        rep
        movsb
        pop    DI
        pop    SI
        pop    SS
        pop    BP
        retf

                push    BP
        mov    BP,SP
        push    SS
        push    SI
        push    DI
        mov    BX,6[BP]
        mov    AX,0A000h
        mov    ES,AL
        mov    BL,0
        mov    BH,BL
        mov    AH,BH
        xor    AH,2
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        xor    DI,DI
        out    AX,DX
        mov    CX,0FFFFh
        mov    AX,6[BP]
        rep
        stosb
        inc    BL
        cmp    BL,9
        jne    L12D
        pop    DI
        pop    SI
        pop    SS
        pop    BP
        retf

                push    BP
        mov    BP,SP
        push    SS
        push    SI
        push    DI
        mov    BX,6[BP]
        mov    CX,8[BP]
        mov    AX,0Ah[BP]
        mov    DI,AX
        mov    AX,0Ch[BP]
        mov    ES,AL
        mov    AX,0A000h
        mov    SS,AL
        mov    AX,0280h
        mov    BX,6[BP]
        mov    CX,8[BP]
        mul    BX
        add    AX,CX
        jae    L17C
        inc    DX
        mov    SI,AX
        mov    BX,DX
        mov    BH,DL
        mov    AH,BH
        xor    AH,2
        and    AH,0FFh
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        cld
        movsb
        pop    DI
        pop    SI
        pop    SS
        pop    BP
        retf

                push    BP
        mov    BP,SP
        push    SS
        push    SI
        push    DI
        mov    BX,6[BP]
        mov    CX,8[BP]
        mov    DX,0Ah[BP]
        mov    AX,0A000h
        mov    ES,AL
        mov    AX,0280h
        mov    BX,6[BP]
        mov    CX,8[BP]
        mul    BX
        add    AX,CX
        jae    L1BB
        inc    DX
        mov    DI,AX
        mov    BX,DX
        mov    BH,DL
        mov    AH,BH
        xor    AH,2
        and    AH,0FFh
        mov    DX,03C4h
        mov    AL,0Eh
        out    AX,DX
        cld
        mov    AX,0Ah[BP]
        xor    AH,AH
        stosb
        pop    DI
        pop    SI
        pop    SS
        pop    BP
        retf