basm.inc

Turbo Pascal 6.0编译器源码

tOPCODE	equ	41h
tNOT	equ	43h
tOFFSET	equ	44h
tSEG	equ	45h
tTYPE	equ	46h
tOR	equ	48h
tXOR	equ	49h
tAND	equ	4ah
tMOD	equ	4bh
tSHR	equ	4ch
tSHL	equ	4dh
tHIGH	equ	4eh
tLOW	equ	4fh
tPTR	equ	50h
tNUMBER	equ	64h
tREG	equ	65h
tTYP	equ	66h
tMEM	equ	67h
tSYM	equ	6bh

TSymbol	struc
	sScope	dd	?
	sAddr	dd	?
	sValue	dd	?
	sSize	dw	?
	sFlag	dw	?
	sParent	dd	?
	ends

TAsmSymbol	struc
	aValue	dd	?
	aParent	dd	?
	aAddr	dd	?
	aSize	dw	?
	aRegs	db	?
	aSeg	db	?
	aRegNum	dw	?
	aType	db	?
	aHalf	db	?
	ends

TCodeBuffer	struc
	cType	dw	?
	cValue	dd	?
	cAddr	dd	?
	ends

rfInd	equ	40h
rfBX	equ	8
rfBP	equ	4
rfSI	equ	2
rfDI	equ	1

szByte	equ	0
szWord	equ	1
szSreg	equ	2
szST	equ	4
szDword	equ	0ffh
szQword	equ	0feh
szTbyte	equ	0fdh
sz???	equ	0fch

rgAL	equ	0
rgCL	equ	1
rgDL	equ	2
rgBL	equ	3
rgAH	equ	4
rgCH	equ	5
rgDH	equ	6
rgBH	equ	7
rgAX	equ	0
rgCX	equ	1
rgDX	equ	2
rgBX	equ	3
rgSP	equ	4
rgBP	equ	5
rgSI	equ	6
rgDI	equ	7
rgES	equ	0
rgCS	equ	1
rgSS	equ	2
rgDS	equ	3

eByte	equ	0
eFixup	equ	1
eShort	equ	2
eFloat	equ	3

fRel	equ	0
fOffs	equ	1
fSegm	equ	2
fPtr	equ	3

cNop		equ	0
cPushD16	equ	2
cPushD8		equ	4
cLea		equ	6
cOutDX		equ	8
cOutD8		equ	10
cInDX		equ	12
cInD8		equ	14
cXchgRAX	equ	16
cXchgAXR	equ	18
cInt		equ	20
cEnter		equ	22
cArOpRD		equ	24
cMovRD		equ	26
cJmpRM16	equ	28
cJmpFar		equ	30
cJmpRM32	equ	32
cJcc		equ	34
cJmpNear	equ	36
cMovMAcc	equ	38
cMovAccM	equ	40
cRet		equ	42
cRetnD16	equ	44
cPrefix		equ	46
cPushSr		equ	48
cPopSr		equ	50
cIncR16		equ	52
cLgdt		equ	54
cLar		equ	56
cArpl		equ	58
cImul286	equ	60
cMovSrRM	equ	62
cMovRMSr	equ	64
cMovRMR		equ	66
cXchgRMR	equ	68
cPopRM		equ	70
cArOpRMD	equ	72
cMovRMD		equ	74
cIncRM		equ	76
cLds		equ	78
cShift		equ	80
cFoper		equ	82
cFstswAX	equ	84
cF_STi		equ	86
cF_STiST	equ	88
cF_STSTi	equ	90
cF_RM		equ	92
cF_Tbyte	equ	94
cFstsw		equ	96
cFiadd		equ	98
cFild		equ	100
cFstenv		equ	102
cFsave		equ	104
cDB		equ	106

Offs	equ	(word ptr 0)
Segm	equ	(word ptr 2)
W0	equ	(word ptr 0)
W2	equ	(word ptr 2)
B0	equ	(byte ptr 0)
B1	equ	(byte ptr 1)

Argm	macro	Symbol,SType,Count
	local	Offset
	@AP = (@AP + SType * Count + 1) and 0fffeh
	Offset = @AP
Symbol	equ	(SType ptr [bp+@AF-Offset])
	endm

@AP = 0
@AF = 0

Loc	macro	Symbol,SType,Count
	local	Offset,S
	@LP = @LP + SType * Count
	Offset = @LP
Symbol	equ	(SType ptr [bp-Offset])
	endm

@LP = 0

Entry	macro	Name
	public	Name
Name	proc	far
	push	bp
	mov	bp,sp
	@AF = @AP + 6
	if	@LP ne 0
		sub	sp,@LP
	endif
	endm

Exit	macro	Name,X
	if	@LP ne 0
		mov	sp,bp
	endif
	pop	bp
	retf	@AP
	@AP = 0
	@LP = 0
	endp	Name
	endm

Dwc	macro	A,B
	dw	H&A&_&B
endm

Zeroc	macro	A,B
	@H&A&_&B = 0
endm

Peekc	macro	A,B,C
	A = @H&B&_&C
endm

Pokec	macro	 A,B,C
	@H&A&_&B = C
endm

Fixupc	macro	A,B
	H&A&_&B = @H&A&_&B
endm

@HN=0

Hash	macro	NBuck
	local	Nb
	@I = 0
	@Hn = @Hn+1
	@Nb = (NBuck-1) shl 1
	Nb = @Nb
	dw 	Nb
	rept	NBuck
		Dwc	%@Hn,%@I
		Zeroc	%@Hn,%@I
		@I = @I+2
		endm
	endm

HEnt	macro	Nm
	local	A,I
	I = 0
	@Hs = 0
	irpc	@C,<Nm>
		I = I+1
		@Hs = @Hs+'&@C&'-1
		endm
	@Hs = (@Hs*2) and @NB
	Peekc	A,%@Hn,%@Hs
	Pokec	%@Hn,%@Hs,$
	dw	A
	db	I,'&Nm&'
	endm

HEnd	macro
	@I = 0
	rept	(@Nb shr 1)+1
		Fixupc	%@Hn,%@I
		@I = @I+2
		endm
	endm

	model	large Basm_Text,pascal
	locals	@@