158 Strojni jezik za rrocesor Z80 Kar se Janezek nauči... 159 Z1962 SEOF DOL LD A, 15 32033 SD DEC A 31964 B8 CP B 32034 20D6 JR NZ, DL 31965 (CB RET Z 32036 (C9 RET 31966 (C5 PUSH BC : 32037 MD9 METULJ EXX 31967 78 LD A, B 32038 HES5 PUSH HL 319768 D6i5 SUB 21 32039 21667B LD HL, GIB 31970 47 LD B, A 32042 35 k DEC (HL) 31971 CDA497E CALL NASLOV 32043 CC537D CALL Z, KAM 31974 CBSE BIT 3, (HL) 32046 šE1O LD A, 16 31776 C4i27E CALL NZ, KONEC 32048 C5 PUSH BC č 31979 CDA4F7E CALL BIT40 ; 32049? F5 RACUN PUSH AF 31982 23 INC HL 32050 D5 PUSH DE 31983 CBS5E . BIT 3, (HL) 32051 CD4A97E CALL NASLOV 31985 C4127E CALL NZ, KONEC 32054 Di POP DE 31988 CDA4F7E CALL BIT4O 32055 1A LD A, (DE) 31991 Ci POP BC 32056 77 LD (HLI, A 31992 SEOB LD A, B 32057 13 INC DE 31994 S25E7B DL LD (STEVCI), A ; 32058 23 INC HL 31997 (05 DEC B 32057 1A LD A, (DE) 31998 (C5 PUSH BC 32060 77 LD (HLI, A 319997 7B LD A, B 32061 13 INC DE 32000 D6OF SUB 15 ; 32062 05 DEC B 32002 47 LD B, A 32063 Fl POP AF 32003 SE10 LD A, 16 32064 SD DEC A 32005 325F7B ZAN2 LD (STEVC2), A 32065 20EE JR NZ, RACUN 32008 CD497E CALL NASLOV š ; 32067 šE64 LD A, 100 sHitrost metulja. Iz 32011 HES5 PUSH HL 32069 32677B LD (STVME), A ;basica jo spremeni- 32012 04 INC B 32072 (Cl POP BC zmo s POKE 32068, n. 32013 CD497E CALL NASLOV 32073 El POP HL 32016 Di POP DE 32074 D9? EXX 32017 JE LD A, KHL) 32075 21637B LD HL, TESTI 32018 12 LD (DE), A 32078 35 | DEC (HL) 32019? 25 INC HL 32079 Co RET NZ — 32020 13 INC DE 32080 CD1i27E CALL KONEC 32021 TE LD A, (HO 32083 ZEO04 KAM LD A, 4 32022 12 LD (DE), A 32085 77 LD (HLI, A 32023 ZASF7B LD A, (STEVC2) 32086 C5 PUSH BC 32026 3D DEC A 32087 SE10 LD A, 16 32027 20E8. JR NZ, ZAN2 32089 F5 ZANKA PUSH AF 32029 (Ci POP BC . 32090 CD497E CALL NASLOV 32030 SZAS5E7B LD A, (STEVCI) 32093 77 LD (HLI, A