mirror of https://github.com/nmlgc/ReC98.git
68 lines
871 B
NASM
68 lines
871 B
NASM
; master library - (pf.lib)
|
|
;
|
|
; Description:
|
|
; 1バイト読み込み
|
|
;
|
|
; Functions/Procedures:
|
|
; int bgetc(bf_t bf);
|
|
;
|
|
; Parameters:
|
|
; bf bfileハンドル
|
|
;
|
|
; Returns:
|
|
;
|
|
;
|
|
; Binding Target:
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
;
|
|
; Running Target:
|
|
; MS-DOS
|
|
;
|
|
; Requiring Resources:
|
|
; CPU: 186
|
|
;
|
|
; Notes:
|
|
;
|
|
;
|
|
; Assembly Language Note:
|
|
;
|
|
;
|
|
; Compiler/Assembler:
|
|
; TASM 3.0
|
|
; OPTASM 1.6
|
|
;
|
|
; Author:
|
|
; iR
|
|
; 恋塚昭彦
|
|
;
|
|
; Revision History:
|
|
; BGETC.ASM 1 435 94-05-26 21:51
|
|
; 95/ 1/10 Initial: bgetc.asm/master.lib 0.23
|
|
|
|
func BGETC ; bgetc() {
|
|
push BP
|
|
mov BP,SP
|
|
|
|
;arg bf:word
|
|
bf = (RETSIZE+1)*2
|
|
|
|
mov ES,[BP+bf] ; BFILE構造体のセグメント
|
|
|
|
cmp ES:[b_left],0
|
|
jz short @@_fill
|
|
dec ES:[b_left]
|
|
mov BX,ES:[b_pos]
|
|
inc ES:[b_pos]
|
|
mov AL,ES:[b_buff][BX]
|
|
clr AH
|
|
pop BP
|
|
ret (1)*2
|
|
|
|
@@_fill:
|
|
push ES
|
|
_call BFILL
|
|
|
|
pop BP
|
|
ret (1)*2
|
|
endfunc ; }
|