703 lines
13 KiB
PHP
703 lines
13 KiB
PHP
;;STRUC--Stucture Macro Library
|
|
;;Optimizing Version 2.30 03/31/87
|
|
|
|
if1
|
|
$NoConj equ 0
|
|
$And equ 1
|
|
$Or equ 2
|
|
$Short equ 3
|
|
$Near equ 4
|
|
$NearToShort equ 5
|
|
$ncxz equ 6
|
|
$AndOr = 0
|
|
$Temp = 0
|
|
$Temp2 = 0
|
|
$Dist = 0
|
|
|
|
$NoType equ 10
|
|
$ConjIfType equ 11
|
|
$IfType equ 12
|
|
$ElseType equ 13
|
|
$WhileType equ 14
|
|
$ConjWhileType equ 15
|
|
$RepeatType equ 16
|
|
$ConjUntilType equ 17
|
|
$ForType equ 18
|
|
$ConjLeaveType equ 19
|
|
$SelectType equ 20
|
|
$WhenType equ 21
|
|
$ConjWhenType equ 22
|
|
$OtherwiseType equ $ElseType
|
|
|
|
$StrucError macro text
|
|
Structure error -- text
|
|
endm
|
|
|
|
J macro
|
|
endm
|
|
JN macro
|
|
endm
|
|
|
|
$BuildJump macro j1,j2
|
|
j1 macro t
|
|
.xcref j1
|
|
j2 t
|
|
endm
|
|
endm
|
|
|
|
irp x,<<jeq,je>,<jlt,jl>,<jgt,jg>,<jneq,jne>,<jnlt,jnl>,<jngt,jng>,<jnpe,jpo>,<jnpo,jpe>>
|
|
$BuildJump x
|
|
endm
|
|
irp x,<<jzero,jz>,<jnzero,jnz>,<jnonzero,jnz>,<jnnonzero,jz>,<jand,jnz>,<jnand,jz>,<jnnand,jnz>>
|
|
$BuildJump x
|
|
endm
|
|
irp x,<a,ae,b,be,c,e,g,ge,l,le,o,p,s,z,cxz>
|
|
$BuildJump jnn&x,j&x
|
|
endm
|
|
|
|
jncxz macro t
|
|
if $Dist eq $NearToShort
|
|
jcxz $+5
|
|
jmp t
|
|
else
|
|
jcxz $+4
|
|
jmp short t
|
|
endif
|
|
endm
|
|
|
|
purge $BuildJump
|
|
|
|
$GetConj macro p1,p2
|
|
$AndOr = $NoConj
|
|
irp parm,<p1,p2>
|
|
ifnb <&parm>
|
|
irp x,<and,AND,or,OR>
|
|
ifidn <parm>,<x>
|
|
$AndOr = $&&&x
|
|
exitm
|
|
endif
|
|
endm
|
|
endif
|
|
endm
|
|
endm
|
|
|
|
$GetDist macro p1,p2
|
|
irp parm,<p1,p2>
|
|
ifnb <parm>
|
|
irp x,<short,SHORT,near,NEAR>
|
|
ifidn <parm>,<x>
|
|
$Dist = $&&&x
|
|
exitm
|
|
endif
|
|
endm
|
|
endif
|
|
endm
|
|
endm
|
|
|
|
|
|
$Poke macro n,m
|
|
$st&n = m
|
|
.xcref $st&n
|
|
endm
|
|
|
|
$Peek macro x,n
|
|
x = $st&n
|
|
endm
|
|
|
|
$Push macro n
|
|
$st = $st+1
|
|
$Poke %$st,n
|
|
endm
|
|
|
|
$Pop macro x
|
|
if $st gt 0
|
|
$Peek x,%$st
|
|
$st = $st-1
|
|
else
|
|
$StrucError <open structure>
|
|
endif
|
|
endm
|
|
|
|
$EquateLabel macro last,this
|
|
if $LastLabelOrg eq $
|
|
$ll&last = this
|
|
.xcref $ll&last
|
|
endif
|
|
endm
|
|
|
|
$TraceLabel macro n,a,b
|
|
if $ll&a eq $ll&b
|
|
$ll&n = b
|
|
.xcref $ll&n
|
|
else
|
|
$TraceLabel n,%$ll&a,%$ll&b
|
|
endif
|
|
endm
|
|
|
|
$Label macro n
|
|
if1
|
|
$EquateLabel %$LastLabel,n
|
|
$ll&n = n
|
|
.xcref $ll&n
|
|
$LastLabel = n
|
|
$LastLabelOrg = $
|
|
$l&n:
|
|
else
|
|
if $ll&n eq n
|
|
$l&n:
|
|
else
|
|
.xcref $l&n
|
|
.xcref $ll&n
|
|
endif
|
|
endif
|
|
endm
|
|
|
|
$CondJump macro l,tf,c
|
|
if1
|
|
ifb <c>
|
|
$EquateLabel %$LastLabel,l
|
|
endif
|
|
ifndef <$ll&l>
|
|
$ll&l = l
|
|
.xcref $ll&l
|
|
endif
|
|
else
|
|
$TraceLabel l,l,%$ll&l
|
|
endif
|
|
$CondJump2 %$ll&l,tf,c
|
|
endm
|
|
|
|
$CondJump2 macro l,tf,c
|
|
if $Dist eq $Short
|
|
ifb <c>
|
|
jmp short $l&l
|
|
else
|
|
ifidn <tf>,<f>
|
|
jn&c $l&l
|
|
else
|
|
j&c $l&l
|
|
endif
|
|
endif
|
|
else
|
|
ifnb <c>
|
|
ifdef $l&l
|
|
if (($ - $l&l) le 126) and (($l&l - $) le 129)
|
|
$Dist = $NearToShort
|
|
$nops = 3
|
|
ifidn <tf>,<f>
|
|
jn&c $l&l
|
|
ifdef $n&c
|
|
if $n&c eq $ncxz
|
|
$nops = 0
|
|
endif
|
|
endif
|
|
ifdef $&c
|
|
if $&c eq $ncxz
|
|
$nops = 5
|
|
endif
|
|
endif
|
|
else
|
|
j&c $l&l
|
|
ifdef $n&c
|
|
if $n&c eq $ncxz
|
|
$nops = 5
|
|
endif
|
|
endif
|
|
ifdef $&c
|
|
if $&c eq $ncxz
|
|
$nops = 0
|
|
endif
|
|
endif
|
|
endif
|
|
rept $nops
|
|
nop
|
|
endm
|
|
else
|
|
ifidn <tf>,<f>
|
|
j&c $+5
|
|
else
|
|
jn&c $+5
|
|
endif
|
|
jmp $l&l
|
|
endif
|
|
else
|
|
ifidn <tf>,<f>
|
|
j&c $+5
|
|
else
|
|
jn&c $+5
|
|
endif
|
|
jmp $l&l
|
|
endif
|
|
else
|
|
ifdef $l&l
|
|
ifidn <tf>,<NoFold>
|
|
jmp $l&l
|
|
else
|
|
if (($ - $l&l) le 126) and (($l&l - $) le 129)
|
|
jmp short $l&l
|
|
nop
|
|
else
|
|
jmp $l&l
|
|
endif
|
|
endif
|
|
else
|
|
jmp $l&l
|
|
endif
|
|
endif
|
|
endif
|
|
endm
|
|
|
|
|
|
$CondLoop macro l,c
|
|
loop&c $l&l
|
|
endm
|
|
|
|
$Test macro tgt,a1,a2,a3,a4,x
|
|
ifb <a1>
|
|
$StrucError <invalid condition>
|
|
else
|
|
ifb <a2>
|
|
$CondJump %&tgt,a1
|
|
else
|
|
ifb <a3>
|
|
ifdif <a1>,<zero>
|
|
ifdif <a1>,<nonzero>
|
|
ifdif <a1>,<ZERO>
|
|
ifdif <a1>,<NONZERO>
|
|
$StrucError <invalid condition>
|
|
exitm
|
|
endif
|
|
endif
|
|
endif
|
|
endif
|
|
or a2,a2
|
|
$CondJump %&tgt,a1
|
|
else
|
|
ifb <a4>
|
|
cmp a1,a3
|
|
$CondJump %&tgt,a2
|
|
else
|
|
ifb <x>
|
|
ifdif <a1>,<bit>
|
|
ifdif <a1>,<BIT>
|
|
$StrucError <invalid condition>
|
|
exitm
|
|
endif
|
|
endif
|
|
test a2,a4
|
|
$CondJump %&tgt,a3
|
|
else
|
|
$StrucError <invalid condition>
|
|
endif
|
|
endif
|
|
endif
|
|
endif
|
|
endif
|
|
endm
|
|
|
|
$TopTest macro args,n,c,p4,p5
|
|
$GetConj p4,p5
|
|
$Dist = $DefDist
|
|
$GetDist p4,p5
|
|
if $AndOr eq $NoConj
|
|
$Test <$sn-1,f>,args
|
|
$Pop $Temp
|
|
if $OrFound
|
|
$Label %$Temp
|
|
endif
|
|
$Push n
|
|
else
|
|
if $AndOr eq $And
|
|
$Test <$sn-1,f>,args
|
|
else
|
|
$OrFound = 1
|
|
$Test <$sn,t>,args
|
|
endif
|
|
$Push c
|
|
endif
|
|
endm
|
|
;;*****************************************************************************
|
|
.if macro t,p2,p3
|
|
$Peek $Temp,%$st
|
|
if $Temp eq $ConjIfType
|
|
$Pop $Temp
|
|
else
|
|
$OrFound = 0
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
endif
|
|
$TopTest <t>,$IfType,$ConjIfType,p2,p3
|
|
endm
|
|
;;*****************************************************************************
|
|
.then macro
|
|
$Peek $Temp,%$st
|
|
if $Temp ne $IfType
|
|
if $Temp ne $WhenType
|
|
$StrucError <then without if or when>
|
|
endif
|
|
endif
|
|
endm
|
|
;;*****************************************************************************
|
|
.elseif macro t,p2,p3
|
|
$Pop $Temp
|
|
if $Temp ne $IfType
|
|
$StrucError <elseif without if>
|
|
exitm
|
|
endif
|
|
$OrFound = 0
|
|
$Pop $Temp
|
|
$Peek $Temp2,%$st
|
|
$Dist = $Near
|
|
$CondJump %$Temp2
|
|
$Label %$Temp
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$TopTest <t>,$IfType,$ConjIfType,p2,p3
|
|
endm
|
|
;;*****************************************************************************
|
|
.else macro dist
|
|
$Pop $Temp
|
|
if $Temp ne $IfType
|
|
if $Temp ne $WhenType
|
|
if $Temp ne $SelectType
|
|
$StrucError <else without if, when or select>
|
|
exitm
|
|
endif
|
|
endif
|
|
endif
|
|
$sn = $sn+1
|
|
if $Temp eq $SelectType
|
|
$Push $sn
|
|
else
|
|
$Dist = $DefDist
|
|
$GetDist dist
|
|
$CondJump %$sn
|
|
$Pop $Temp
|
|
$Label %$Temp
|
|
$Push $sn
|
|
endif
|
|
$push $ElseType
|
|
endm
|
|
;;*****************************************************************************
|
|
.endif macro
|
|
$Pop $Temp
|
|
if $Temp ne $IfType
|
|
if $Temp ne $ElseType
|
|
$StrucError <endif without if>
|
|
exitm
|
|
endif
|
|
endif
|
|
$Pop $Temp
|
|
$Label %$Temp
|
|
$Pop $Temp
|
|
$Label %$Temp
|
|
endm
|
|
;;*****************************************************************************
|
|
.select macro x
|
|
$OrFound = 0
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$Push $SelectType
|
|
endm
|
|
;;*****************************************************************************
|
|
.when macro tst,p2,p3
|
|
$Pop $Temp
|
|
if $Temp ne $SelectType
|
|
if $Temp ne $WhenType
|
|
if $Temp ne $ConjWhenType
|
|
$StrucError <when without select>
|
|
exitm
|
|
endif
|
|
endif
|
|
endif
|
|
if $Temp ne $ConjWhenType
|
|
$Dist = $Near
|
|
$OrFound = 0
|
|
if $Temp eq $WhenType
|
|
$Pop $Temp2
|
|
$Peek $Temp,%$st
|
|
$CondJump %$Temp
|
|
$Label %$Temp2
|
|
endif
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
endif
|
|
$TopTest <tst>,$WhenType,$ConjWhenType,p2,p3
|
|
endm
|
|
;;*****************************************************************************
|
|
.otherwise macro dist
|
|
$Pop $Temp
|
|
if $Temp ne $WhenType
|
|
if $Temp ne $SelectType
|
|
if $Temp ne $IfType
|
|
$StrucError <otherwise without if, when or select>
|
|
exitm
|
|
endif
|
|
endif
|
|
endif
|
|
$sn = $sn+1
|
|
if $Temp eq $SelectType
|
|
$Push $sn
|
|
else
|
|
$Dist = $DefDist
|
|
$GetDist dist
|
|
$CondJump %$sn
|
|
$Pop $Temp
|
|
$Label %$Temp
|
|
$Push $sn
|
|
endif
|
|
$push $OtherwiseType
|
|
endm
|
|
;;*****************************************************************************
|
|
.endselect macro
|
|
$Pop $Temp
|
|
if $Temp ne $WhenType
|
|
if $Temp ne $OtherwiseType
|
|
if $Temp ne $SelectType
|
|
$StrucError <endselect without select>
|
|
exitm
|
|
endif
|
|
endif
|
|
endif
|
|
$pop $Temp2
|
|
if $Temp ne $SelectType
|
|
$Label %$Temp2
|
|
$Pop $Temp2
|
|
$Label %$Temp2
|
|
endif
|
|
endm
|
|
;;*****************************************************************************
|
|
.while macro t,p2,p3
|
|
$Peek $Temp,%$st
|
|
if $Temp eq $ConjWhileType
|
|
$Pop $Temp
|
|
else
|
|
$Push $LoopEnd
|
|
$OrFound = 0
|
|
$sn = $sn + 1
|
|
$Push $sn
|
|
$Label %$sn
|
|
$sn = $sn + 2
|
|
$Push $sn
|
|
$LoopEnd = $sn - 1
|
|
endif
|
|
$TopTest <t>,$WhileType,$ConjWhileType,p2,p3
|
|
endm
|
|
;;*****************************************************************************
|
|
.endwhile macro p1
|
|
$Pop $Temp
|
|
if $Temp ne $WhileType
|
|
$StrucError <endwhile without while>
|
|
exitm
|
|
endif
|
|
$Dist = $Near
|
|
$Pop $Temp
|
|
$CondJump %$Temp,NoFold
|
|
$Label %$Temp+1
|
|
$Pop $LoopEnd
|
|
endm
|
|
;;*****************************************************************************
|
|
.repeat macro
|
|
$Push $LoopEnd
|
|
$Push $LeaveFound
|
|
$sn = $sn+1
|
|
$Label %$sn
|
|
$Push $sn
|
|
$Push $RepeatType
|
|
$sn = $sn+1
|
|
$LoopEnd = $sn
|
|
$LeaveFound = 0
|
|
endm
|
|
;;*****************************************************************************
|
|
.until macro t,p2,p3
|
|
$until2 p2,p3,t
|
|
endm
|
|
$until2 macro p2,p3,a1,a2,a3,a4,x
|
|
$Pop $Temp
|
|
if $Temp ne $RepeatType
|
|
if $Temp ne $ConjUntilType
|
|
$StrucError <until without repeat>
|
|
exitm
|
|
endif
|
|
else
|
|
$OrFound = 0
|
|
endif
|
|
$Dist = $DefDist
|
|
$GetDist p2,p3
|
|
$GetConj p2,p3
|
|
|
|
if $AndOr eq $NoConj
|
|
$Pop $Temp
|
|
ifb <a1>
|
|
$Dist = $Near
|
|
$CondJump %$Temp,NoFold
|
|
else
|
|
$Test <$Temp,f>,<a1>,<a2>,<a3>,<a4>,<x>
|
|
endif
|
|
if $OrFound or $LeaveFound
|
|
$Label %$Temp+1
|
|
endif
|
|
$Pop $LeaveFound
|
|
$Pop $LoopEnd
|
|
else
|
|
$Peek $Temp,%$st
|
|
if $AndOr eq $And
|
|
$Test <$Temp,f>,<a1>,<a2>,<a3>,<a4>,<x>
|
|
else
|
|
$OrFound = 1
|
|
$Test <$Temp+1,t>,<a1>,<a2>,<a3>,<a4>,<x>
|
|
endif
|
|
$Push $ConjUntilType
|
|
endif
|
|
endm
|
|
;;*****************************************************************************
|
|
.loop macro cond
|
|
$Pop $Temp
|
|
if $Temp ne $RepeatType
|
|
$StrucError <loop without repeat>
|
|
exitm
|
|
endif
|
|
$Pop $Temp
|
|
$CondLoop %$Temp,cond
|
|
if $LeaveFound
|
|
$Label %$Temp+1
|
|
endif
|
|
$Pop $LeaveFound
|
|
$Pop $LoopEnd
|
|
endm
|
|
;;*****************************************************************************
|
|
.for macro index,equals,start,to,stop,by,step,dist
|
|
mov index,start
|
|
$Push $LoopEnd
|
|
$sn = $sn+1
|
|
$Push $sn
|
|
$Label %$sn
|
|
$sn = $sn+1
|
|
$LoopEnd = $sn
|
|
cmp index,stop
|
|
$Dist = $DefDist
|
|
ifb <step>
|
|
$Push 1
|
|
$GetDist by
|
|
$CondJump %$sn,t,gt
|
|
else
|
|
$GetDist dist
|
|
$Push %(step)
|
|
if step lt 0
|
|
$CondJump %$sn,t,lt
|
|
else
|
|
$CondJump %$sn,t,gt
|
|
endif
|
|
endif
|
|
$Push $ForType
|
|
endm
|
|
;;*****************************************************************************
|
|
.next macro index,dist
|
|
$Pop $Temp
|
|
if $Temp ne $ForType
|
|
$StrucError <next without for>
|
|
exitm
|
|
endif
|
|
$Pop $Temp
|
|
if $Temp eq 1
|
|
inc index
|
|
else
|
|
if $Temp eq -1
|
|
dec index
|
|
else
|
|
add index,$Temp
|
|
endif
|
|
endif
|
|
$Pop $Temp
|
|
$Dist = $Near
|
|
$CondJump %$Temp,NoFold
|
|
$Label %$Temp+1
|
|
$Pop $LoopEnd
|
|
endm
|
|
;;*****************************************************************************
|
|
.leave macro t,p2,p3
|
|
$leave2 p2,p3,t
|
|
endm
|
|
$leave2 macro p2,p3,a1,a2,a3,a4,x
|
|
ife $LoopEnd
|
|
$StrucError <leave outside a loop>
|
|
exitm
|
|
endif
|
|
$LeaveFound = 1
|
|
$Peek $Temp,%$st
|
|
if $Temp eq $ConjLeaveType
|
|
$Pop $Temp
|
|
else
|
|
$OrFound = 0
|
|
$sn = $sn + 1
|
|
endif
|
|
$Dist = 0
|
|
$GetDist <a1>
|
|
if $Dist
|
|
$CondJump %$LoopEnd
|
|
if $OrFound
|
|
$Label %$sn
|
|
endif
|
|
else
|
|
$Dist = $DefDist
|
|
$GetDist p2,p3
|
|
$GetConj p2,p3
|
|
if $AndOr eq $NoConj
|
|
ifb <a1>
|
|
$CondJump %$LoopEnd,t
|
|
else
|
|
$Test <$LoopEnd,t>,<a1>,<a2>,<a3>,<a4>,<x>
|
|
endif
|
|
if $OrFound
|
|
$Label %$sn
|
|
endif
|
|
else
|
|
if $AndOr eq $And
|
|
$OrFound = 1
|
|
$Test <$sn,f>,<a1>,<a2>,<a3>,<a4>,<x>
|
|
else
|
|
$Test <$LoopEnd,t>,<a1>,<a2>,<a3>,<a4>,<x>
|
|
endif
|
|
$Push $ConjLeaveType
|
|
endif
|
|
endif
|
|
endm
|
|
;;*****************************************************************************
|
|
else ;else for if1
|
|
$Pop $Temp
|
|
;;if $Temp ne $NoType
|
|
if $st ne 0
|
|
$StrucError <open structure(s)>
|
|
endif
|
|
.xcref $NoConj,$And,$Or,$Short,$Near,$NearToShort,$AndOr,$Temp,$Temp2,$Dist
|
|
.xcref $NoType,$ConjIfType,$IfType,$ElseType,$WhileType,$ConjWhileType
|
|
.xcref $RepeatType,$ConjUntilType,$ForType,$ConjLeaveType,jncxz
|
|
.xcref $SelectType,$WhenType,$OtherwiseType,$ConjWhenType
|
|
.xcref jeq,jgt,jlt,jneq,jngt,jnlt,jnna,jnnae,jnnb,jnnbe,jnnc,jnncxz
|
|
.xcref jnne,jnng,jnnge,jnnl,jnnle,jnno,jnnp,jnns,jnnz,jnpe,jnpo,$BuildJump
|
|
.xcref $GetConj,$GetDist,$Poke,$Peek,$Push,$Pop,$Label,$CondJump,$CondLoop,$Test
|
|
.xcref $TopTest,$leave2,$until2,$StrucError,j,jn,jand,jnand,jnnand
|
|
.xcref jnnonzero,jnonzero,jnzero,jzero
|
|
.xcref $st,$sn,$OrFound,$LoopEnd,$LeaveFound,$DefDist
|
|
.xcref $LastLabel,$LastLabelOrg,$EquateLabel,$TraceLabel,$CondJump2,$ncxz
|
|
endif
|
|
|
|
|
|
$st = 0
|
|
$sn = 0
|
|
$OrFound = 0
|
|
$LoopEnd = 0
|
|
$LeaveFound = 0
|
|
$LastLabel = -1
|
|
$LastLabelOrg = $
|
|
$DefDist= $Short
|
|
$Push %$NoType
|