//BASIC CROSS ASSEMBLER

//Extra Opcode Routines - for the Xerox LCC processor
//Q[uit] X will time stamp and compile.
//Geoff Thompson<THOMPSON.PA>923*4540
//created September 19, 1980 5:11 PM
//last modified (January 14, 1981 11:32 AM)

get "bcastruct.bcpl"

let OpcodeDefRtn() be
[ NoParClass(0)
PgZClass(0)
ImmClass(0)
I40DClass(0)
I40DAClass(0)
I40DDClass(0)
I40AClass(0)
LccIOClass(0)
LccCompareAndJumpClass(0)
LccNoOp2Class(0)
Lcc3BitOpClass(0)
]

and NoParClass(pass, value) = valof
[ switchon pass into
[
case 0: AddOpcodeClass("@noparclass", NoParClass)
endcase
case 1:resultis 1//Total bytes of code generated this line.

case 2: ValueGen(value)
endcase
default:
]
resultis 0
]

and PgZClass(pass, value) = valof
[ switchon pass into
[
case 0: AddOpcodeClass("@pgzclass", PgZClass)
endcase
case 1:resultis 2

case 2:
[ ValueGen(value)
let Expr = vec size E/WORDSIZE
MustHaveKExpressions(1, 1, Expr)
ExprGen(Expr, EntireAddr)
]
endcase

default:
]
resultis 0
]

and ImmClass(pass, value) = valof
[ switchon pass into
[
case 0: AddOpcodeClass("@immclass", ImmClass)
endcase
case 1:resultis 2

case 2:
[ ValueGen(value)
let Expr = vec size E/WORDSIZE
let Expr2 = vec size E/WORDSIZE
let k = MustHaveKExpressions(2, 1, Expr, Expr2)
let relocation = AnyByte
if k gr 1 then
relocation = selecton FORCEFIELD(Expr2, 0, 2, 0, 15) into[
case 0: EntireAddr
case 1: HighByte
case 2: LowByte
]
ExprGen(Expr, relocation)
]
endcase
default:
]
resultis 0
]

and Lcc3BitOpClass(pass, value) = valof
[ switchon pass into
[
case 0:AddOpcodeClass("@lcc3bitopclass", Lcc3BitOpClass)
endcase
case 1: resultis 1

case 2:
[ let Expr = vec size E/WORDSIZE
MustHaveKExpressions(1,1, Expr)
ValueGen(value+FORCEFIELD(Expr, 0, 7, 13, 15))
]
endcase
default:
]
resultis 0
]


and LccIOClass(pass, value) = valof
[ switchon pass into
[
case 0:AddOpcodeClass("@lccioopclass", LccIOClass)
endcase
case 1: resultis 2

case 2:
[ let Expr = vec size E/WORDSIZE
let Expr2 = vec size E/WORDSIZE
MustHaveKExpressions(2,2, Expr, Expr2)
ValueGen(value+FORCEFIELD(Expr, -16, 15, 12, 15))
ExprGen(Expr2, EntireAddr)
]
endcase
default:
]
resultis 0
]

and I40DClass(pass, value) = valof
[ switchon pass into
[
case 0:AddOpcodeClass("@40dclass", I40DClass)
endcase
case 1: resultis 1

case 2:
[ let Expr = vec size E/WORDSIZE
MustHaveKExpressions(1,1, Expr)
ValueGen(value+FORCEFIELD(Expr, -16, 15, 12, 15))
]
endcase
default:
]
resultis 0
]


and I40DAClass(pass, value) = valof
[ switchon pass into
[ case 0:AddOpcodeClass("@40daclass", I40DAClass)
endcase
case 1: resultis 2

case 2:
[ let Expr = vec size E/WORDSIZE
let Expr2 = vec size E/WORDSIZE
MustHaveKExpressions(2,2, Expr, Expr2)
ValueGen(value+FORCEFIELD(Expr, -16, 15, 12, 15))
let DestPC = FORCEFIELD(Expr2, 0, 4095, 0, 15)
ValueGen(FORCEVALUE(DestPC xor
((PCAtBegin+1)᳨), 0, 255, 8, 15))
]
endcase
default:
]
resultis 0
]


and I40DDClass(pass, value) = valof

[ switchon pass into
[ case 0:AddOpcodeClass("@40ddclass", I40DDClass)
endcase

case 1: resultis 2

case 2:
[ let Expr = vec size E/WORDSIZE
let Expr2 = vec size E/WORDSIZE
MustHaveKExpressions(2,2, Expr, Expr2)
ValueGen(value+FORCEFIELD(Expr, -16, 15, 12, 15))
ExprGen(Expr2, AnyByte)
]
endcase

default:
]

resultis 0
]


and I40AClass(pass, value) = valof
[ switchon pass into
[
case 0:AddOpcodeClass("@40aclass", I40AClass)
endcase
case 1: resultis 2

case 2:
[ let Expr = vec size E/WORDSIZE
MustHaveKExpressions(1,1, Expr)
Expr>>E.value = Expr>>E.value+(value lshift 8)
ExprGen(Expr, HighByte)
ExprGen(Expr, LowByte)
]
endcase
default:
]
resultis 0
]


and LccCompareAndJumpClass(pass, value) = valof
[ switchon pass into
[
case 0:AddOpcodeClass("@lcccompareandjumpclass",
LccCompareAndJumpClass)
endcase
case 1: resultis 3

case 2:
[ let Expr = vec size E/WORDSIZE
let Expr2 = vec size E/WORDSIZE
let Expr3 = vec size E/WORDSIZE
MustHaveKExpressions(3,3, Expr, Expr2, Expr3)
ValueGen(value+FORCEFIELD(Expr, 0, 15, 12, 15))
ValueGen(FORCEFIELD(Expr2, -128, 255, 8, 15))
let DestPC = FORCEFIELD(Expr3, 0, 4095, 0, 15)
ValueGen(FORCEVALUE(DestPC xor
((PCAtBegin+2)᳨), 0, 255, 8, 15))
]
endcase
default:
]
resultis 0
]

and LccNoOp2Class(pass, value) = valof
[ switchon pass into
[
case 0:AddOpcodeClass("@lccnoop2class", LccNoOp2Class)
endcase
case 1: resultis 3

case 2: ValueGen(value)
ValueGen(0)
ValueGen(0)
endcase
default:
]
resultis 0
]