mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
80 lines
768 B
NASM
80 lines
768 B
NASM
; bioscall.asm 3/10/2012 dwg - bios binding for Aztec C
|
||
|
||
global irega_,1
|
||
global iregbc_,2
|
||
global iregde_,2
|
||
global ireghl_,2
|
||
|
||
|
||
public getmeta_
|
||
getmeta_:
|
||
push psw
|
||
push b
|
||
push d
|
||
push h
|
||
|
||
lxi b,4
|
||
lxi d,0
|
||
call 0e61bh
|
||
|
||
lxi d,0
|
||
call 0e61eh
|
||
|
||
lxi d,11
|
||
call 0e621h
|
||
|
||
lxi d,80h
|
||
call 0e624h
|
||
|
||
call 0e627h
|
||
|
||
pop h
|
||
pop d
|
||
pop b
|
||
pop psw
|
||
ret
|
||
|
||
PUBLIC bioscall_
|
||
bioscall_:
|
||
|
||
push b
|
||
push d
|
||
push h
|
||
push psw
|
||
|
||
lhld iregbc_
|
||
mov b,h
|
||
mov c,l
|
||
|
||
lhld iregde_
|
||
mov d,h
|
||
mov e,l
|
||
|
||
lhld ireghl_
|
||
shld mycall+1
|
||
|
||
lda irega_
|
||
|
||
mycall: call 5
|
||
|
||
sta irega_
|
||
|
||
shld ireghl_
|
||
|
||
mov l,e
|
||
mov h,d
|
||
shld iregde_
|
||
|
||
mov l,c
|
||
mov h,b
|
||
shld iregbc_
|
||
|
||
pop psw
|
||
pop h
|
||
pop d
|
||
pop b
|
||
|
||
RET
|
||
|
||
END
|
||
|