/dports/devel/asl/asl-current/ |
H A D | code96.c | 136 LongInt AdrInt; in DecodeAdr() local 246 Boolean IsShort = (AdrInt >= -128) && (AdrInt <= 127); in DecodeAdr() 925 AdrInt--; in DecodeSCALL_LCALL_CALL() 926 BAsmCode[1] = Lo(AdrInt); in DecodeSCALL_LCALL_CALL() 927 BAsmCode[2] = Hi(AdrInt); in DecodeSCALL_LCALL_CALL() 978 AdrInt--; in DecodeBR_LJMP_SJMP() 979 BAsmCode[1] = Lo(AdrInt); in DecodeBR_LJMP_SJMP() 980 BAsmCode[2] = Hi(AdrInt); in DecodeBR_LJMP_SJMP() 1028 LongInt AdrInt; in DecodeDJNZ_DJNZW() local 1060 LongInt AdrInt; in DecodeJBC_JBS() local [all …]
|
H A D | code68rs08.c | 319 LongInt AdrInt; in DecodeRel() local 327 …if (!mSymbolQuestionable(Flags) && ((AdrInt < -128) || (AdrInt>127))) WrError(ErrNum_JmpDistTooBig… in DecodeRel() 332 BAsmCode[1] = Lo(AdrInt); in DecodeRel() 347 LongInt AdrInt; in DecodeCBEQx() local 365 BAsmCode[2] = AdrInt & 0xff; in DecodeCBEQx() 377 LongInt AdrInt; in DecodeCBEQ() local 434 LongInt AdrInt; in DecodeDBNZx() local 446 BAsmCode[2] = AdrInt & 0xff; in DecodeDBNZx() 452 BAsmCode[1] = AdrInt & 0xff; in DecodeDBNZx() 463 LongInt AdrInt; in DecodeDBNZ() local [all …]
|
H A D | codest6.c | 67 Integer AdrInt; in DecodeAdr() local 98 AdrVal = (AdrInt & 0x3f) + 0x40; in DecodeAdr() 105 if (mFirstPassUnknown(EvalResult.Flags)) AdrInt = Lo(AdrInt); in DecodeAdr() 110 AdrVal = AdrInt; in DecodeAdr() 384 BAsmCode[1] = Lo(AdrInt); in DecodeLDI() 390 BAsmCode[2] = Lo(AdrInt); in DecodeLDI() 422 Word AdrInt; in DecodeJP_CALL() local 442 AdrInt &= 0x7ff; in DecodeJP_CALL() 446 BAsmCode[1] = AdrInt >> 4; in DecodeJP_CALL() 586 Integer AdrInt; in DecodeJRR_JRS() local [all …]
|
H A D | code78c10.c | 379 Integer AdrInt; in DecodeMOV() local 444 BAsmCode[2] = Lo(AdrInt); in DecodeMOV() 445 BAsmCode[3] = Hi(AdrInt); in DecodeMOV() 456 BAsmCode[2] = Lo(AdrInt); in DecodeMOV() 457 BAsmCode[3] = Hi(AdrInt); in DecodeMOV() 562 Integer AdrInt; in DecodeLXI() local 576 BAsmCode[1] = Lo(AdrInt); in DecodeLXI() 749 Integer AdrInt; in DecodeAbs() local 839 Integer AdrInt; in DecodeJ_JR_JRE() local 882 Integer AdrInt; in DecodeCALF() local [all …]
|
H A D | code6805.c | 354 LongInt AdrInt; in DecodeRel() local 362 …if (!mSymbolQuestionable(Flags) && ((AdrInt < -128) || (AdrInt > 127))) WrError(ErrNum_JmpDistTooB… in DecodeRel() 367 BAsmCode[1] = Lo(AdrInt); in DecodeRel() 377 LongInt AdrInt; in DecodeCBEQx() local 393 BAsmCode[2] = AdrInt & 0xff; in DecodeCBEQx() 405 LongInt AdrInt; in DecodeCBEQ() local 481 LongInt AdrInt; in DecodeDBNZx() local 493 BAsmCode[1] = AdrInt & 0xff; in DecodeDBNZx() 504 LongInt AdrInt; in DecodeDBNZ() local 810 LongInt AdrInt; in DecodeBRx() local [all …]
|
H A D | code6809.c | 182 Integer AdrInt; in DecodeAdr() local 416 AdrInt &= 0x0f; in DecodeAdr() 437 if ((AdrInt < -16) || (AdrInt > 15)) WrError(ErrNum_NoShortAddr); in DecodeAdr() 458 AdrVals[1] = Lo(AdrInt); in DecodeAdr() 470 AdrVals[1] = Hi(AdrInt); in DecodeAdr() 471 AdrVals[2] = Lo(AdrInt); in DecodeAdr() 510 AdrVals[1] = Hi(AdrInt); in DecodeAdr() 511 AdrVals[2] = Lo(AdrInt); in DecodeAdr() 543 AdrInt--; in DecodeAdr() 546 AdrVals[1] = Hi(AdrInt); in DecodeAdr() [all …]
|
H A D | code6804.c | 129 …Integer AdrInt = EvalStrIntExpressionWithResult(&ArgStr[1], Int16, &EvalResult) - (EProgCounter() … in DecodeRel() local 133 …if (!mSymbolQuestionable(EvalResult.Flags) && ((AdrInt < -16) || (AdrInt > 15))) WrError(ErrNum_Jm… in DecodeRel() 137 BAsmCode[0] = Code + (AdrInt & 0x1f); in DecodeRel() 149 Word AdrInt = EvalStrIntExpressionWithResult(&ArgStr[1], UInt12, &EvalResult); in DecodeJSR_JMP() local 154 BAsmCode[1] = Lo(AdrInt); in DecodeJSR_JMP() 155 BAsmCode[0] = Code + (Hi(AdrInt) & 15); in DecodeJSR_JMP() 329 Integer AdrInt; in DecodeBRSET_BRCLR() local 332 … AdrInt = EvalStrIntExpressionWithResult(&ArgStr[3], Int16, &EvalResult) - (EProgCounter() + 3); in DecodeBRSET_BRCLR() 335 …if (!mSymbolQuestionable(EvalResult.Flags) && ((AdrInt < -128) || (AdrInt > 127))) WrError(ErrNum_… in DecodeBRSET_BRCLR() 339 BAsmCode[2] = AdrInt & 0xff; in DecodeBRSET_BRCLR()
|
H A D | code78k0.c | 1082 Integer AdrInt; in DecodeBR() local 1117 HReg = ((AdrInt >= -128) && (AdrInt < 127)) ? 2 : 1; in DecodeBR() 1133 BAsmCode[1] = AdrInt & 0xff; in DecodeBR() 1144 Integer AdrInt; in DecodeRel() local 1153 …if (((AdrInt < -128) || (AdrInt > 127)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooB… in DecodeRel() 1157 BAsmCode[1] = AdrInt & 0xff; in DecodeRel() 1166 Integer AdrInt; in DecodeBRel() local 1205 …if (((AdrInt < -128) || (AdrInt > 127)) & !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooBi… in DecodeBRel() 1208 BAsmCode[HReg] = AdrInt & 0xff; in DecodeBRel() 1217 Integer AdrInt; in DecodeDBNZ() local [all …]
|
H A D | codeavr.c | 735 LongInt AdrInt; in DecodeRel() local 743 if (WrapFlag) AdrInt = CutAdr(AdrInt); in DecodeRel() 744 …if (!mSymbolQuestionable(EvalResult.Flags) && ((AdrInt < -64) || (AdrInt > 63))) WrError(ErrNum_Jm… in DecodeRel() 754 LongInt AdrInt; in DecodeBRBSBC() local 765 if (WrapFlag) AdrInt = CutAdr(AdrInt); in DecodeBRBSBC() 766 …if (!mSymbolQuestionable(EvalResult.Flags) && ((AdrInt < -64) || (AdrInt > 63))) WrError(ErrNum_Jm… in DecodeBRBSBC() 776 LongInt AdrInt; in DecodeJMPCALL() local 785 AppendCode(0x940c | Index | ((AdrInt & 0x3e0000) >> 13) | ((AdrInt & 0x10000) >> 16)); in DecodeJMPCALL() 786 AppendCode(AdrInt & 0xffff); in DecodeJMPCALL() 793 LongInt AdrInt; in DecodeRJMPCALL() local [all …]
|
H A D | code87c800.c | 843 BAsmCode[1] = AdrInt & 0xff; in DecodeLDW() 844 BAsmCode[2] = AdrInt >> 8; in DecodeLDW() 850 BAsmCode[2] = AdrInt & 0xff; in DecodeLDW() 851 BAsmCode[3] = AdrInt >> 8; in DecodeLDW() 860 BAsmCode[2] = AdrInt >> 8; in DecodeLDW() 1277 Integer AdrInt, Condition; in DecodeJRS() local 1288 …if (((AdrInt < -16) || (AdrInt > 15)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooBig… in DecodeJRS() 1305 Integer Condition, AdrInt; in DecodeJR() local 1321 BAsmCode[1] = AdrInt & 0xff; in DecodeJR() 1401 if ((Hi(AdrInt) != 0xff) && (Hi(AdrInt) != 0)) WrError(ErrNum_OverRange); in DecodeCALLP() [all …]
|
H A D | code75k0.c | 1309 Integer AdrInt, Dist; in DecodeBR() local 1329 Dist = AdrInt - EProgCounter(); in DecodeBR() 1349 BAsmCode[1] = Lo(AdrInt); in DecodeBR() 1355 BAsmCode[1] = Hi(AdrInt & 0x3fff); in DecodeBR() 1356 BAsmCode[2] = Lo(AdrInt); in DecodeBR() 1381 BAsmCode[1] = Lo(AdrInt); in DecodeBRCB() 1401 if ((BrLong) || (AdrInt > 0x7ff)) in DecodeCALL() 1405 BAsmCode[2] = Lo(AdrInt); in DecodeCALL() 1412 BAsmCode[1] = Lo(AdrInt); in DecodeCALL() 1430 BAsmCode[0] = 0x40 + Hi(AdrInt); in DecodeCALLF() [all …]
|
H A D | code97c241.c | 2035 LongInt AdrInt; in DecodeCALR_JR() local 2041 if (Odd(AdrInt)) WrError(ErrNum_DistIsOdd); in DecodeCALR_JR() 2044 WAsmCode[0] = Code + (AdrInt & 0x1ffe); in DecodeCALR_JR() 2064 LongInt AdrInt; in DecodeJRC() local 2100 LongInt AdrInt; in DecodeJRBC_JRBS() local 2132 LongInt AdrInt; in DecodeDJNZ() local 2171 LongInt AdrInt; in DecodeDJNZC() local 2197 LongInt AdrInt; in DecodeLINK_RETD() local 2203 AdrInt &= 0x1fe; in DecodeLINK_RETD() 2204 if (ChkRange(AdrInt, -0x80000, 0x7ffff)) in DecodeLINK_RETD() [all …]
|
H A D | code370.c | 670 …Integer AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[1], Int16, &OK, &Flags) - (EProgCounter() +… in DecodeRel8() local 674 …if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooB… in DecodeRel8() 679 BAsmCode[1] = AdrInt & 0xff; in DecodeRel8() 930 …Integer AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[3], UInt16, &OK, &Flags) - (EProgCounter() … in DecodeALU2() local 934 else if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) in DecodeALU2() 940 BAsmCode[CodeLen++] = AdrInt & 0xff; in DecodeALU2() 1021 …Integer AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[2], Int16, &OK, &Flags) - (EProgCounter() +… in DecodeABReg() local 1025 else if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) in DecodeABReg() 1031 BAsmCode[CodeLen++] = AdrInt & 0xff; in DecodeABReg() 1074 else if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) in DecodeBit() [all …]
|
H A D | code870c.c | 652 BAsmCode[1] = AdrInt & 0xff; in DecodeLDW() 653 BAsmCode[2] = AdrInt >> 8; in DecodeLDW() 660 BAsmCode[1] = AdrInt & 0xff; in DecodeLDW() 661 BAsmCode[2] = AdrInt >> 8; in DecodeLDW() 668 BAsmCode[1] = AdrInt & 0xff; in DecodeLDW() 669 BAsmCode[2] = AdrInt >> 8; in DecodeLDW() 1085 Integer AdrInt, Condition; in DecodeJRS() local 1096 …if (((AdrInt < -16) || (AdrInt > 15)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooBig… in DecodeJRS() 1113 Integer Condition, AdrInt; in DecodeJR() local 1126 …if (((AdrInt < -128) || (AdrInt > 127)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooB… in DecodeJR() [all …]
|
H A D | codest9.c | 1498 Integer AdrInt; in DecodeBTJF_BTJT() local 1519 BAsmCode[2] = AdrInt & 0xff; in DecodeBTJF_BTJT() 1554 Integer AdrInt; in DecodeCPJFI_CPJTI() local 1571 …if (!mSymbolQuestionable(EvalResult.Flags) && ((AdrInt<-128) || (AdrInt>127))) WrError(ErrNum_JmpD… in DecodeCPJFI_CPJTI() 1576 BAsmCode[2] = AdrInt & 0xff; in DecodeCPJFI_CPJTI() 1594 Integer AdrInt; in DecodeDJNZ() local 1605 BAsmCode[1] = AdrInt & 0xff; in DecodeDJNZ() 1622 Integer AdrInt; in DecodeDWJNZ() local 1634 BAsmCode[2] = AdrInt & 0xff; in DecodeDWJNZ() 1669 …if (!mSymbolQuestionable(EvalResult.Flags) && ((AdrInt < -128) || (AdrInt > 127))) WrError(ErrNum_… in DecodeCondRel() [all …]
|
H A D | code90c141.c | 896 Integer AdrInt = EvalStrIntExpression(&ArgStr[2], Int16, &OK) - (EProgCounter() + 2); in DecodeLDAR() local 901 BAsmCode[1] = Lo(AdrInt); in DecodeLDAR() 902 BAsmCode[2] = Hi(AdrInt); in DecodeLDAR() 1120 …if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooB… in DecodeJR() 1125 BAsmCode[1] = AdrInt & 0xff; in DecodeJR() 1226 …if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooB… in DecodeDJNZ() 1231 BAsmCode[1] = AdrInt & 0xff; in DecodeDJNZ() 1250 && (AdrInt >= -128) in DecodeJRL_CALR() 1251 && (AdrInt <= 127)) in DecodeJRL_CALR() 1253 BAsmCode[1] = Lo(AdrInt); in DecodeJRL_CALR() [all …]
|
H A D | codetms7.c | 246 Integer AdrInt = EvalStrIntExpression(&ArgStr[1], UInt16, &OK) - (EProgCounter() + 2); in DecodeRel8() local 250 if ((AdrInt > 127) || (AdrInt<-128)) WrError(ErrNum_JmpDistTooBig); in DecodeRel8() 255 BAsmCode[1] = AdrInt & 0xff; in DecodeRel8() 414 …Integer AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[3], Int16, &OK, &Flags) - (EProgCounter() +… in DecodeALU2() local 417 else if (!mSymbolQuestionable(Flags) && ((AdrInt > 127) || (AdrInt < -128))) in DecodeALU2() 422 BAsmCode[CodeLen++] = AdrInt & 0xff; in DecodeALU2() 488 …Integer AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[2], UInt16, &OK, &Flags) - (EProgCounter() … in DecodeABReg() local 492 else if (!mSymbolQuestionable(Flags) & ((AdrInt > 127) || (AdrInt < -128))) in DecodeABReg() 497 BAsmCode[CodeLen++]=AdrInt & 0xff; in DecodeABReg()
|
H A D | codecop4.c | 41 static IntType AdrInt; variable 105 Addr = EvalStrIntExpression(&ArgStr[1], AdrInt, &OK); in DecodeJmp() 288 Addr = EvalStrIntExpressionWithFlags(&ArgStr[1], AdrInt, &OK, &Flags); in DecodeJSRP() 311 Addr = EvalStrIntExpressionWithFlags(&ArgStr[1], AdrInt, &OK, &Flags); in DecodeJP() 507 AdrInt = UInt11; in SwitchTo_COP4() 512 AdrInt = UInt10; in SwitchTo_COP4() 517 AdrInt = UInt9; in SwitchTo_COP4()
|
H A D | code68.c | 427 Integer AdrInt; in DecodeRel() local 434 AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[1], Int16, &OK, &Flags); in DecodeRel() 437 AdrInt -= EProgCounter() + 2; in DecodeRel() 438 …if (((AdrInt < -128) || (AdrInt > 127)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooB… in DecodeRel() 443 BAsmCode[1] = Lo(AdrInt); in DecodeRel() 541 Integer AdrInt; in DecodeBRxx() local 562 AdrInt = EvalStrIntExpression(&ArgStr[ArgCnt], Int16, &OK); in DecodeBRxx() 565 AdrInt -= EProgCounter() + 3 + PrefCnt + AdrCnt; in DecodeBRxx() 566 if ((AdrInt < -128) || (AdrInt > 127)) WrError(ErrNum_JmpDistTooBig); in DecodeBRxx() 575 BAsmCode[PrefCnt + 2 + AdrCnt] = Lo(AdrInt); in DecodeBRxx()
|
H A D | code960.c | 532 LongInt AdrInt; in DecodeCobr() local 545 AdrInt &= (~3); in DecodeCobr() 548 if (AdrInt & 3) WrError(ErrNum_NotAligned); in DecodeCobr() 549 …else if (!mSymbolQuestionable(Flags) && ((AdrInt < -4096) || (AdrInt > 4090))) WrError(ErrNum_JmpD… in DecodeCobr() 556 + (AdrInt & 0x1ffc); in DecodeCobr() 566 LongInt AdrInt; in DecodeCtrl() local 572 AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[1], UInt32, &OK, &Flags) - EProgCounter(); in DecodeCtrl() 573 if (mFirstPassUnknown(Flags)) AdrInt &= (~3); in DecodeCtrl() 576 if (AdrInt & 3) WrError(ErrNum_NotAligned); in DecodeCtrl() 577 …else if (!mSymbolQuestionable(Flags) && ((AdrInt < -8388608) || (AdrInt > 8388604))) WrError(ErrNu… in DecodeCtrl() [all …]
|
H A D | codeh8_5.c | 1604 Integer AdrInt; in DecodePRTD_RTD() local 1619 if (mFirstPassUnknown(Flags)) AdrInt &= 127; in DecodePRTD_RTD() 1624 if ((AdrInt < 127) && (AdrInt > -128)) OpSize = eSymbolSize8Bit; in DecodePRTD_RTD() 1631 if (ChkRange(AdrInt, -128, 127)) in DecodePRTD_RTD() 1634 BAsmCode[1 + IsPRTD] = AdrInt & 0xff; in DecodePRTD_RTD() 1641 BAsmCode[2 + IsPRTD] = AdrInt & 0xff; in DecodePRTD_RTD() 1668 Integer AdrInt; in DecodeLINK() local 1681 if ((AdrInt < 127) && (AdrInt > -128)) OpSize = eSymbolSize8Bit; in DecodeLINK() 1687 if (ChkRange(AdrInt, -128, 127)) in DecodeLINK() 1690 BAsmCode[1] = AdrInt & 0xff; in DecodeLINK() [all …]
|
H A D | codez8.c | 1520 Integer AdrInt; in DecodeJR() local 1536 && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooBig); in DecodeJR() 1541 BAsmCode[1] = Lo(AdrInt); in DecodeJR() 1551 Integer AdrInt; in DecodeDJNZ() local 1565 && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooBig); in DecodeDJNZ() 1569 BAsmCode[1] = Lo(AdrInt); in DecodeDJNZ() 1596 && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooBig); in DecodeCPIJNE() 1600 BAsmCode[2] = Lo(AdrInt); in DecodeCPIJNE() 2249 && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooBig); in DecodeBTJCore() 2370 && ((AdrInt > 127) || (AdrInt < -128))) WrError(ErrNum_JmpDistTooBig); in DecodeBitRel() [all …]
|
H A D | codecop8.c | 566 …Integer AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[1], UInt16, &OK, &Flags) - (EProgCounter() … in DecodeJP() local 569 if (AdrInt == 0) in DecodeJP() 575 …else if (((AdrInt > 31) || (AdrInt < -32)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistT… in DecodeJP() 578 BAsmCode[0] = AdrInt & 0xff; in DecodeJP()
|
H A D | code4004.c | 335 Word AdrInt; in DecodeJCN() local 338 AdrInt = EvalStrIntExpressionWithFlags(&ArgStr[2], UInt12, &OK, &Flags); in DecodeJCN() 341 …if (!mSymbolQuestionable(Flags) && (Hi(EProgCounter() + 2) != Hi(AdrInt))) WrError(ErrNum_JmpDistT… in DecodeJCN() 345 BAsmCode[1] = Lo(AdrInt); in DecodeJCN()
|
H A D | code65.c | 608 …if (((AdrInt > 127) || (AdrInt < -128)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooB… in DecodeBBC_BBS() 612 BAsmCode[CodeLen - 1] = AdrInt & 0xff; in DecodeBBC_BBS() 639 Integer AdrInt; in DecodeBBR_BBS() local 646 …if (((AdrInt > 127) || (AdrInt < -128)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDistTooB… in DecodeBBR_BBS() 650 BAsmCode[2] = AdrInt & 0xff; in DecodeBBR_BBS() 901 Integer AdrInt; in DecodeCond() local 921 AdrInt -= EProgCounter() + (4 - ForceSize); in DecodeCond() 926 …else if (((AdrInt > 127) || (AdrInt < -128)) && !mSymbolQuestionable(Flags)) WrError(ErrNum_JmpDis… in DecodeCond() 930 BAsmCode[1] = AdrInt & 0xff; in DecodeCond() 939 BAsmCode[1] = AdrInt & 0xff; in DecodeCond() [all …]
|