!* modified 26/02/86 gdum2 !* !* !* %recordformat Stkfmt(%byteinteger Form,Type,Reg,Modreg, Base,Modbase,Scale,Modform, (%integer Offset %or %integer Intval), (%integer Modoffset %or %integer Modintval), %integer Size,Adid) !* !* %externalroutine Op RR(%integer Op,Reg1,Reg2,Size) %monitor;%stop %end;! Op RR !* %externalroutine Op RX(%integer Op,Reg,%record(Stkfmt)%name Stkpar) %monitor;%stop %end;! Op RX !* %externalroutine Op R(%integer Op,Reg) %monitor;%stop %end;! Op R !* %externalroutine Op X(%integer Op,%record(Stkfmt)%name Stkpar) %monitor;%stop %end;! Op X !* %externalroutine Op RL(%integer Op,Reg,Lit) %monitor;%stop %end;! Op RL !* %externalroutine Op Short Jump(%integer Op,Bytes) %monitor;%stop %end;! Op Short Jump !* %externalroutine Op Fp(%integer Op,Reg,%record(Stkfmt)%name Stk) %monitor;%stop %end;! Op Fp !* %externalroutine Op Short FBcc(%integer Condition,Bytes) %monitor;%stop %end;! Op Short FBcc !* %externalroutine Op Move(%record(Stkfmt)%name Sourcepar,Destpar) %monitor;%stop %end;! Op Move !* %externalroutine Op Move RR(%integer From,To) %monitor;%stop %end;! Op Move RR !* %externalroutine Op Move Rdisp(%integer Rfrom,Dfrom,Rto,Dto) %monitor;%stop %end;! Op Move Rdisp !* %externalroutine Op Move Bytes(%record(Stkfmt)%name Len,From,To) %integer Source ea,Dest ea,Size,Instr,Key,Ar0,Ar1 %record(Stkfmt) R %monitor;%stop %end;! Op Move Bytes !* !* %externalroutine Check Conflict(%integer Key) %monitor;%stop %end !* !* %endoffile