76 lines
1.9 KiB
NASM
76 lines
1.9 KiB
NASM
;
|
|
; Copyright (c) Mix Software 1988
|
|
;
|
|
; -------------------------------------------------------
|
|
; peek(segment, offset) - read a word from memory
|
|
; unsigned segment;
|
|
; unsigned offset;
|
|
; -------------------------------------------------------
|
|
;
|
|
IDT peek
|
|
DEF peek
|
|
;
|
|
peek MOV BX,SP
|
|
MOV ES,[BX][%PARM1-2]
|
|
MOV SI,[BX][%PARM2-2]
|
|
SEGES
|
|
MOV AX,[SI]
|
|
RETSEG
|
|
END
|
|
;
|
|
; -------------------------------------------------------
|
|
; peekb(segment, offset) - read a byte from memory
|
|
; unsigned segment;
|
|
; unsigned offset;
|
|
; -------------------------------------------------------
|
|
;
|
|
IDT peekb
|
|
DEF peekb
|
|
;
|
|
peekb MOV BX,SP
|
|
MOV ES,[BX][%PARM1-2]
|
|
MOV SI,[BX][%PARM2-2]
|
|
SEGES
|
|
MOV AL,[SI]
|
|
XOR AH,AH
|
|
RETSEG
|
|
END
|
|
;
|
|
; -------------------------------------------------------
|
|
; poke(segment, offset, value) - store a word
|
|
; unsigned segment;
|
|
; unsigned offset;
|
|
; int value;
|
|
; -------------------------------------------------------
|
|
;
|
|
IDT poke
|
|
DEF poke
|
|
;
|
|
poke MOV BX,SP
|
|
MOV ES,[BX][%PARM1-2]
|
|
MOV SI,[BX][%PARM2-2]
|
|
MOV AX,[BX][%PARM3-2]
|
|
SEGES
|
|
MOV [SI],AX
|
|
RETSEG
|
|
END
|
|
;
|
|
; -------------------------------------------------------
|
|
; pokeb(segment, offset, value) - store a byte
|
|
; unsigned segment;
|
|
; unsigned offset;
|
|
; int value;
|
|
; -------------------------------------------------------
|
|
;
|
|
IDT pokeb
|
|
DEF pokeb
|
|
;
|
|
pokeb MOV BX,SP
|
|
MOV ES,[BX][%PARM1-2]
|
|
MOV SI,[BX][%PARM2-2]
|
|
MOV AL,[BX][%PARM3-2]
|
|
SEGES
|
|
MOV [SI],AL
|
|
RETSEG
|
|
END
|