Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
SEITE 462 <br />
BASIC 1Z-013B V1_0A <br />
Funktion LN<br />
26422 6736 6751H<br />
C5 PUSH BC REGISTER RETTEN<br />
26423 6737 23 INC HL ZEIGER AUF MANTISSE<br />
26424 6738 7E LO A. (HLl MSBYTE MANTISSE ARGUMENT<br />
26425 6739 CB 07 RLC A VORZEICHEN NACH CARRY<br />
26426<br />
26427 6738 DA 01 21 JP C. 2101 I ARGUMENT NEGATIV ~<br />
26428 I DATENFEHLER<br />
26429<br />
26430 673E 2B DEC HL ZEIGER WIEDER AUF EXPONENT<br />
26431 673F 7E LD A. (HLl EXPONENT HOLEN<br />
26432 6740 B7 OR A GLEICH NULL ?<br />
26433 6741 CA 01 21 JP Z. 2101 I ARGUMENT GLEICH NULL<br />
26434 I-+- DATENFEHLER<br />
26435<br />
26436 6744 D6 81 SUB A. 81 I EXPONENTENZÄHLER FüR<br />
26437 I ERGEBNIS ERRECHNEN<br />
26438 6746 32 24 6A LD (6A24).A I<br />
26439<br />
26440<br />
26441 6749 36 81 LD (HLl. 81 INEUEN EXPONENTEN VORGEBEN<br />
26442 • (Wert 1 iegt zwischen 1 u 2<br />
26443 674B AF XOR A<br />
26444 674C 06 08 LD B. 08 8 VERGLEICHSWERTE<br />
26445<br />
26446 674E 11 28 68 LD DE. 6828 ZEIGER AUF SQR(2)<br />
26447<br />
26448<br />
26449 6751 C5 PUSH BC<br />
26450 6752 F5 PUSH AF<br />
26451 6753 CD 4A 5E CALL 5E4A IZAHLEN (HL> UND (DE)<br />
26452 I VERGLEICHEN<br />
26453<br />
26454 6756 38 OF JR C. OF ~ 6767H RESTWERT < VERGLEICHSWERT<br />
26455<br />
26456 6758 E5 PUSH HL ZEIGER AUF RESTWERT<br />
26457 6759 21 28 00 LO HL. 0028 IOFFSET ZUR ENTSPRECHENDEN<br />
26458 • Nten WURZEL AUS 1/2<br />
26459<br />
26460 675C 19 ADD HL.DE ZEIGER AUF TABELLE ERRECHN.<br />
26461 675D EB EX DE.HL<br />
26462 675E E3 EX (SP).HL<br />
26463 675F CO E1 5F CALL 5FE1 * - ROUTINE<br />
26464<br />
26465<br />
26466 6762 01 POP OE<br />
26467 6763 F1 POP AF ANGEPASSTEN EXPONENTEN HOL.<br />
26468 6764 CB FF SET 7.A<br />
26469<br />
26470 6766 F5 PUSH AF<br />
26471 6767 F1 POP AF<br />
26472 6768 CB 07 RLC A<br />
26473<br />
26474 676A CD AD 3A CALL 3AAD •• ZEIGER IN DE AUF NÄCHSTEN<br />
26475 'WERT IN TABELLE STELLEN<br />
26476<br />
26477 676D Cl POP BC<br />
26478 676E 10 E1 DJNZ El ~ 26479<br />
26480 6770 22 12 6A LD (6A12). HL<br />
26481<br />
BASIC 1Z<br />
26482<br />
26483 6773 CO C9 61<br />
26484<br />
26485<br />
26486 6776 EB<br />
26487 6777 5F<br />
26488 6778 16 00<br />
26489<br />
26490 677A CD 82 3A<br />
26491<br />
26492<br />
26493 677D 7E<br />
26494 677E B7<br />
26495 677F 28 03 <br />
26496 <br />
26497 6781 D6 08 <br />
26498 <br />
26499 6783 77<br />
26500 6784 3A 24 6A <br />
26501 <br />
26502 <br />
CALL 6<br />
EX DE<br />
LD E.A<br />
LD D.<br />
CALL 3<br />
LD A.<br />
OR A<br />
JR Z.<br />
SUB A<br />
LD (H<br />
LD A.<br />
26503 6787 FE 80 CP 8<br />
26504 <br />
26505 6789 3 8 02 JR C.<br />
26506 <br />
26507 6788 ED 44 NEG <br />
26508 <br />
PUSH<br />
26509 678D E5<br />
26510 678E CD C9 61<br />
26511 <br />
26512 <br />
26513 6791 EB<br />
26514 6792 22 14 6A<br />
26515 <br />
26516 <br />
26517 6795 5F<br />
26518 6796 16 00 <br />
26519 <br />
26520 6798 CD 82 3A<br />
26521 <br />
26522 <br />
26523 679B 3 A 24 6A <br />
26524 <br />
26525 <br />
26526 679E E6 80 <br />
26527 <br />
26528 67AO 23<br />
26529 67A1 B6<br />
26530 67A2 77<br />
26531 67A3 2 B<br />
26532 67A4 EB<br />
26533 67A5 E1<br />
26534 67A6 CD AF 50 <br />
26535 <br />
26536 <br />
26537 67A9 3A 65 6A <br />
26538 <br />
26539 <br />
26540 67AC 11 8C 68 <br />
26541 <br />
26542 <br />
26543 67AF FE 05<br />
CALL<br />
EX D<br />
LD (6<br />
LD E<br />
LD D<br />
CALL<br />
LD A<br />
AND<br />
INC<br />
OR (<br />
LD (<br />
DEC<br />
EX D<br />
POP<br />
CALL<br />
LO A<br />
LO D<br />
CP