Phoenix Heaven Sunny 2/APPARE2.BIN/oh_towns/ugoku/ugokulib/etc/pp.asm

Assembly Source File | 1995-06-20 | 2KB | 178 lines

;        Graph_lib
;
;        call from High C
;
;        1990 4  Hiroshi TODA
;

    .386p

        cseg    segment    'CODE'
    assume    cs:cseg,ds:cseg

;peekw( address, segment )

    public    peekw
    db    'peekw',5
peekw    proc    near
    mov    eax,4[esp]
    mov    fs,8[esp]
    mov    ax,fs:[eax]
    and    eax,0ffffH
    ret
peekw    endp

;pokew( address, segment, data )

    public    pokew
    db    'pokew',5
pokew    proc    near
    push    esi
    mov    esi,8[esp]
    mov    fs,12[esp]
    mov    eax,16[esp]
    mov    fs:[esi],ax
    pop    esi
    ret
pokew    endp

;xorw( address, segment, data )

    public    xorw
    db    'xorw',4
xorw    proc    near
    push    esi
    mov    esi,8[esp]
    mov    fs,12[esp]
    mov    eax,16[esp]
    xor    fs:[esi],ax
    pop    esi
    ret
xorw    endp

;peekd( address, segment )

    public    peekd
    db    'peekd',5
peekd    proc    near
    mov    eax,4[esp]
    mov    fs,8[esp]
    mov    eax,fs:[eax]
    ret
peekd    endp

;poked( address, segment, data )

    public    poked
    db    'poked',5
poked    proc    near
    push    esi
    mov    esi,8[esp]
    mov    fs,12[esp]
    mov    eax,16[esp]
    mov    fs:[esi],eax
    pop    esi
    ret
poked    endp

;xord( address, segment, data )

    public    xord
    db    'xord',4
xord    proc    near
    push    esi
    mov    esi,8[esp]
    mov    fs,12[esp]
    mov    eax,16[esp]
    xor    fs:[esi],eax
    pop    esi
    ret
xord    endp

;outfa( fa, haj )        ; 垂直帰線中にhaj,fa WRITE

    public    outfa
    db    'outfa',5
outfa    proc    near
    mov    dx,0440h    ; 垂直同期を読む
    mov    al,30
    out    dx,al
    mov    dx,0443h    ; 0443h
    xor    ecx,ecx        ; カウンター
outf01:    in    al,dx
    and    al,04h
    je    outf02
    loop    outf01
outf02:    in    al,dx
    and    al,04h
    jne    outf03
    loop    outf02
outf03:    mov    al,18        ;*
    mov    dx,0440h
    out    dx,al
    mov    eax,[esp+8]
    mov    dx,0442h
    out    dx,ax
    mov    al,22        ;*
    mov    dx,0440h
    out    dx,al
    mov    eax,[esp+8]
    mov    dx,0442h
    out    dx,ax
    mov    al,17        ;*
    mov    dx,0440h
    out    dx,al
    mov    eax,[esp+4]
    mov    dx,0442h
    out    dx,ax
    mov    al,21        ;*
    mov    dx,0440h
    out    dx,al
    mov    eax,[esp+4]
    mov    dx,0442h
    out    dx,ax
    ret
outfa    endp

;outb( address, data )  outw( address, data )  inb( address )  inw( address )

    public    outb
    db    'outb',4
outb    proc    near
    mov    edx,[esp+4]
    mov    eax,[esp+8]
    out    dx,al
    ret
outb    endp

    public    outw
    db    'outb',4
outw    proc    near
    mov    edx,[esp+4]
    mov    eax,[esp+8]
    out    dx,ax
    ret
outw    endp

    public    inb
    db    'inb',3
inb    proc    near
    mov    edx,[esp+4]
    in    al,dx
    movzx    eax,al
    ret
inb    endp

    public    inw
    db    'inw',3
inw    proc    near
    mov    edx,[esp+4]
    in    ax,dx
    movzx    eax,ax
    ret
inw    endp

        cseg    ends
    end