mirror of https://github.com/nmlgc/ReC98.git
89 lines
1.2 KiB
NASM
89 lines
1.2 KiB
NASM
|
; master library - PC-9801 - ASM
|
||
|
|
;
|
||
|
|
; Description:
|
||
|
|
; サウンドボードのレジスタ設定／読み込み
|
||
|
|
;
|
||
|
|
; Function/Procedures:
|
||
|
|
;
|
||
|
|
;
|
||
|
|
; Subroutines:
|
||
|
|
; SOUND_I:near
|
||
|
|
; SOUND_O:near
|
||
|
|
;
|
||
|
|
; Parameters:
|
||
|
|
; SOUND_O: BH = reg number
|
||
|
|
; BL = value
|
||
|
|
; SOUND_I: BH = reg number
|
||
|
|
; SOUND_JOY: BL = port 0fhにセットするデータ
|
||
|
|
;
|
||
|
|
; Break Registers:
|
||
|
|
; AL,DX, BH(SOUND_JOY)
|
||
|
|
;
|
||
|
|
; Returns:
|
||
|
|
; SOUND_I: AL = read value
|
||
|
|
; SOUND_JOY: AL = port 0eh から読み込んだ値の反転
|
||
|
|
;
|
||
|
|
; Binding Target:
|
||
|
|
; asm
|
||
|
|
;
|
||
|
|
; Running Target:
|
||
|
|
; PC-9801
|
||
|
|
;
|
||
|
|
; Requiring Resources:
|
||
|
|
; CPU: 8086
|
||
|
|
;
|
||
|
|
; Notes:
|
||
|
|
; サウンドドライバとの競合を避けるため、割り込み禁止状態で呼び出して
|
||
|
|
; 下さい。
|
||
|
|
;
|
||
|
|
; Assembly Language Note:
|
||
|
|
;
|
||
|
|
;
|
||
|
|
; Compiler/Assembler:
|
||
|
|
; TASM 3.0
|
||
|
|
; OPTASM 1.6
|
||
|
|
;
|
||
|
|
; Author:
|
||
|
|
; 恋塚昭彦
|
||
|
|
;
|
||
|
|
; Revision History:
|
||
|
|
; 93/ 5/ 2 Initial:soundio.asm/master.lib 0.16
|
||
|
|
|
||
|
|
WAITREADY macro
|
||
|
|
local LO
|
||
|
|
LO:
|
||
|
|
in AL,DX
|
||
|
|
test AL,80h
|
||
|
|
jnz short LO
|
||
|
|
endm
|
||
|
|
|
||
|
|
|
||
|
|
SOUND_O proc near
|
||
|
|
mov DX,188h
|
||
|
|
|
||
|
|
WAITREADY
|
||
|
|
mov AL,BH
|
||
|
|
out DX,AL
|
||
|
|
|
||
|
|
WAITREADY
|
||
|
|
inc DX
|
||
|
|
inc DX
|
||
|
|
mov AL,BL
|
||
|
|
out DX,AL
|
||
|
|
ret
|
||
|
|
SOUND_O endp
|
||
|
|
|
||
|
|
SOUND_I proc near
|
||
|
|
mov DX,188h
|
||
|
|
|
||
|
|
WAITREADY
|
||
|
|
mov AL,BH
|
||
|
|
out DX,AL
|
||
|
|
|
||
|
|
WAITREADY
|
||
|
|
inc DX
|
||
|
|
inc DX
|
||
|
|
in AL,DX
|
||
|
|
ret
|
||
|
|
SOUND_I endp
|