ReC98/ReC98.inc

55 lines
1.3 KiB
PHP
Raw Normal View History

; ReC98
; Main include file
locals
include libs/BorlandC/RULES.ASI
include libs/BorlandC/ctype.inc
2014-10-27 01:50:32 +00:00
include libs/BorlandC/dos.inc
include libs/BorlandC/doserror.inc
2014-11-09 13:49:18 +00:00
include libs/BorlandC/errno.inc
include libs/BorlandC/fcntl.inc
include libs/BorlandC/stdio.inc
include libs/BorlandC/_printf.inc
include libs/BorlandC/sys/stat.inc
include libs/master.lib/func.inc
include libs/master.lib/super.inc
include libs/master.lib/bgm.inc
2014-08-26 18:54:57 +00:00
include libs/master.lib/pf.inc
2014-08-28 01:42:26 +00:00
include libs/master.lib/clip.inc
include th02/formats/pi_slots.inc
; Manually put dseg into DGROUP if we're not tiny. The alternative, renaming
; dseg to _DATA - a segment automatically generated by the .MODEL directive -
; unfortunately doesn't work for us because we have no control over the
; segment's alignment value...
if @model ne 1
DGROUP group dseg
endif
nopcall macro func
if LDATA
nop ; PC-98 Touhou compatibility
endif
call func
endm
; Avoids specifying both segment and offset of a function. Too bad that it
; still doesn't cause TASM to require [func] to be a valid identifier.
setfarfp macro farfp, func
mov word ptr farfp+2, seg func
mov word ptr farfp, offset func
endm
pushSS_ macro
if LDATA
push ss
endif
endm
popCX_ macro
if LDATA
pop cx
endif
endm