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 16<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
810 032A 30 OEC A CURSORZEICHEN IM BILDSP. 868<br />
811 0328 C8 RET Z JA 869 0365 23 INC H<br />
812 032C OE 01 LO C. 01 I CODE CURSORZEICHEN 870 0366 13 INC D<br />
871<br />
872 0367 10 09 OJNZ<br />
813<br />
814 032E 78 LO A.E<br />
I IM BILOSPEICHER<br />
CURSORZEICHEN HOLEN<br />
815 032F CO F2 00 CALL 00F2 I NACH BILDSPEICHER 873 0369 79 LO A.<br />
036A 03 EI OUT (<br />
816<br />
817<br />
I üBERTRAGEN 874<br />
875<br />
818 0332 C9 RET 876 036C FB EI<br />
Abfrage. ob sich Tastaturstatus geändert hat 879<br />
880<br />
877 0360 01 POP D<br />
878 036E EI POP H<br />
819 0333 C5 PUSH BC I REGISTER RETTEN<br />
820 0334 E5 PUSH HL I<br />
821 0335 05 PUSH DE I Tastatur abfragen; bei R<br />
822 0336 11 F2 OE LD OE. OEF2 I ZEIGER AUF WERTE gedrückten Taste oder OOH<br />
823 ILETZTER ZEILENSTATUS<br />
824 881 0371 C5 PUSH<br />
825 0339 21 E8 OE LD HL. OEE8 I ZEIGER AUF WERTE 882 0372 E5 PUSH<br />
883 0373 D5<br />
826 IAKTUELLER ZEILENSTATUS PUSH<br />
827 884 0374 21 E8 OE LO HL<br />
828 033C 01 00 OA LD BC. OAOO OA ANZAHL SPALTEN 885<br />
829 00 VORGABE FüR FLAGS 886<br />
830 887 0377 11 F2 OE LO DE<br />
831 033F F3 01 INTERRUPT SPERREN<br />
888<br />
832 0340 03 E3 OUT (E3).A I UMSCHALTEN AUF SYSTEM 889<br />
833 I ADRESSEN AB $0000 890 037A E5 PUSH<br />
834 0342 78 LD A.B ZÄHLER RESTANZAHL SPALTEN ~91 037B 05 PUSH<br />
835 0343 C6 EF ADD A. EF IUMRECHEN IN SPALTENWERT 892 037C 01 OA 00 LD BC<br />
836 I FüR PORT A / 8255 893<br />
837 0345 32 00 EO LD (EOOO).A SPALTENNUMMER AUSGEBEN 894<br />
838 895 037F EO BO LDIR<br />
839 896<br />
840 0348 FE F8 CP F8 SPALTE MIT SFT/BREAK/CTRL 897 0381 EI<br />
POP H<br />
841 898 0382 DI POP O<br />
842 034A 3 A 01 EO LD A. (EOOI) ZEILENWERT ABFRAGEN 899 0383 01 F9 OA LD BC<br />
843<br />
900<br />
844<br />
901<br />
845 0340 20 02 JR NZ. 02 ~ 0351H NORMALE SPALTE 902 0386 F3·<br />
01<br />
846 903 0387 03 E3 OUT (<br />
847 034F F6 7F OR 7F I TASTEN BIS AUF BREAK 904<br />
848 I VERGESSEN 905 0389 79 LD A.C<br />
849 035.1 FE FF CP FF TASTE GEDRUCKT ? 906 038A 32 00 EO LD (E<br />
850 907<br />
851 0353 28 02 JR Z. 02 ~ 0357H 908<br />
• NEIN<br />
852 909 038D 00 NOP<br />
853 0355 CB Cl SET O.C CODE TASTE GEDRüCKT 910 038E 3A 01 EO LO A.<br />
854 911<br />
855 0357 EB EX DE.HL ZEIGER LETZTER WERT NACH HL<br />
912<br />
856 0358 BE CP (HLl • VERGLEICHEN<br />
913 0391 12 LD .A NEUEN STATUS MERKEN 914 0392 79<br />
LD A.C<br />
858 035A EB EX DE.HL 915 0393 32 00 EO LD (E<br />
859 035B 28 02 JR Z. 02 + 035FH • I GLEICHER STATUS +<br />
916<br />
860 I TASTE NICHT GEPRELLT<br />
917<br />
861 035D CB C9 SET 1.C • CODE TASTE GEPRELLT 918 0396 FE Fa CP F<br />
862 919<br />
863 035F 2F CPL I TASTE ZUSÄTZLICH 920 0398 3A 01 EO LD A.<br />
864 0360 A6 AND (HL> ; I GEDRUCKT ? 921<br />
865 0361 28 02 JR Z. 02 + 0365H NEIN 922<br />
866 923 039B 12 LD (O<br />
867 0363 CB Dl SET 2.C I CODE TASTATURSTATUR 924 039C 28 23 JR Z.<br />
036F<br />
0370<br />
Ci<br />
C9<br />
POP<br />
RET<br />
B