Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
SEITE 246<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
X/Y - Koordinate und Zeichenfarbe bereitstellen<br />
aus Koordinaten in 0 und E<br />
14734 398E D5<br />
CALL 4050 EIN-BYTE-WERT NACH DE/ACCU<br />
PUSH DE<br />
14683 395B CD 50 4D<br />
14735 398F 16 00 LD D. 0<br />
14684 14736<br />
14685 147.37 3991 62 LD H.D<br />
FE 50 CP 50 80 (X-KOORDINATE MAXIMAL)<br />
14686 395E 14738 3992 6B LD L.E<br />
14687<br />
14688 3960 D2 01 21 JP NC. 2101 ZU GROSS + DATENFEHLER<br />
14739 3993 29 ADD HL<br />
14740 3994 29 ADD HL<br />
14689 14741 3995 19 ADD HL<br />
14690 14742 ·3996 29 ADD HL<br />
14691 3963 F5 PUSH AF X-KOORDINATE PUNKT<br />
14743 3997 29 ADD HL<br />
14692 3964 7E LD A. (HL> NÄCHSTES PROGRAMMBYTE<br />
14744 .3998 29<br />
CALL 3332 SYNTAX Komma<br />
ADD HL.<br />
14693 3965 CD 32 33<br />
14745 3999 01 POP DE<br />
14694 14746 399A 5A LD E.D<br />
14695<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
14747 399B 16 00 LD D. 0<br />
14696 3968 CD 50 4D CALL 4050<br />
14748<br />
14697 14749 399D 19 ADD HL<br />
14698<br />
100 (Y-KOORDINATE MAXIMAL)<br />
14750 399E 11 00 DO LD DE.<br />
14699 396B FE 64 CP 64<br />
14751<br />
14700<br />
JP NC. 2101 ZU GROSS + DATENFEHLER<br />
14752<br />
14701 396D D2 01 21<br />
14753 39Al 19 ADD HL<br />
14702 14754 39A2 C9 RET<br />
14703<br />
14704 3970 5F LD E.A Y-KOORDINATE<br />
14705 3971 F1 POP AF X-KOORDINATE HOLEN<br />
Befehl JOY<br />
14706 3972 57<br />
LD D.A UND MERKEN<br />
14707 3973 3A 50 00 LD A. (005D)<br />
ZEICHEN/HINTERGRUNDFARBE<br />
14755 39A3 E5 PUSH HL<br />
14708 14756 39A4 CD 21 3D CALL 3D<br />
14709<br />
ZEICHENFARBE MASKIEREN<br />
14757<br />
14710 3976 E6 70 AND A. 70<br />
14711<br />
UND MERKEN<br />
14759 39A7 7C LD A.H<br />
14712 3978 4F LD C.A<br />
14760 3 9A8 B7 oR A<br />
14713 3979 7E LD A. (HL> NÄCHSTES PROGRAMM BYTE<br />
14761 39A9 C2 01 21 JP NZ,<br />
14714 397A FE 2C CP 2C (Komma) ?<br />
14762<br />
14715 14763<br />
14716 3 97C CO RET NZ KEINE FARBE ANGEGEBEN<br />
14764 39AC 70 LD A.L<br />
14717 397D 23 INC HL Komma üBERSPRINGEN<br />
14765 39AD FE 08 CP 08<br />
14718 397E 05 PUSH DE X/Y -KOORDINATE<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
14766<br />
14719 397F CD 50 40 CALL 4050<br />
14767 39AF D2 01 2 1 JP NC.<br />
14720 14768<br />
14758<br />
14721<br />
X/Y - KOORDINATE<br />
14769<br />
14722 3982 01 POP OE<br />
14770 39B2 CD 61 00 CALL 00<br />
14723 3983 FE 08 CP 08 FARBE MAXIMAL<br />
14771<br />
14724 14772<br />
14725 3985 02 01 21 JP NC. 2101 ZU GROSS + DATENFEHLER<br />
14773 39B5 E1 POP HL<br />
14726 14774 3986 38 OE JR C. O<br />
14727 14775<br />
14728 3988 07 RLCA I FARBE AUF H-NIBBLE<br />
14776 3 988 28 OC JR Z. O<br />
14729 .3989 07 RLCA I SCHIEBEN<br />
14777<br />
14730 398A 07 RLCA I<br />
14778 3 9BA 11 FF FF LD DE.<br />
14731 398B 07 RLCA I<br />
14779<br />
14732 398C 4F LD C.A ZEICHENFARBE<br />
14780<br />
14733 398D C9 RET<br />
14781 39BD CD 82 3A CALL 3A<br />
14782<br />
14783<br />
14784 39CO 3E 05 LD A. 0<br />
14785<br />
14786 39C2 32 65 6A LD (6A<br />
14787<br />
14788<br />
14789 39C5 C9 RET