mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
768 B
80 lines
768 B
; 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
|
|
|