;z80 ;assembler ;zx-spectrum DI XOR A LD HL,BUFER10 LD B,16 MSK1 LD (HL),#FE INC HL LD (HL),A INC HL LD (HL),A INC HL DJNZ MSK1 LD IX,BUFER10 LD HL,BUFER10+48 LD DE,3 LD C,7 MSK3 LD B,16 MSK2 LD A,(IX+0) SLA A LD (HL),A INC HL LD (HL),0 INC HL CPL LD (HL),A INC HL ADD IX,DE DJNZ MSK2 DEC C JR NZ,MSK3 LD DE,SPRITE LD HL,BUFER CALL INIT_S LD HL,BUFER4 CALL INIT_S LD HL,BUFER6 LD B,COORY INITS1 LD A,(DE) LD (HL),#FF INC HL LD (HL),A INC HL INC DE LD A,(DE) LD (HL),A INC HL INC DE DJNZ INITS1 LD IX,BUFER LD HL,BUFER2 CALL INIT_S1 LD IX,BUFER4 LD HL,BUFER5 CALL INIT_S1 LD IX,BUFER6 LD HL,BUFER7 LD B,7 LNITS2 PUSH BC LD B,COORY LNITS3 LD E,(IX+0) LD D,(IX+1) LD C,(IX+2) SCF RL C RL D RL E LD (HL),E INC HL LD (HL),D INC HL LD (HL),C INC HL INC IX INC IX INC IX DJNZ LNITS3 POP BC DJNZ LNITS2 DI LD HL,HI_TAB LD D,159 LD E,0 LD BC,#0105 XOR A LD (23824),A CALL 15635 CALL ANTI_X1 JP START IN_STR XOR A LD (COORDX),A LD (COORDY),A LD (FIRE+1),A LD (GAME+1),A INC A LD (KEY+1),A LD (CH_SPR1+1),A LD A,40 LD (KOL_SP+1),A JP VIEV INST_I LD HL,BUF_I LD DE,BUF_I+1 LD BC,60 LD (HL),B LDIR LD (HL),19 LD BC,39 LDIR INC HL LD A,(SEL_LEV) ADD A,A ADD A,A LD E,A ADD A,A ADD A,A ADD A,E LD E,A LD D,0 ADD HL,DE LD DE,BUF_I+40 LD C,20 LDIR LD HL,TAB_K1 LD DE,TAB_K LD BC,12 LDIR LD HL,TAB_I LD DE,TAB_J LD BC,12 LDIR RET SCOR_IN XOR A LD (MIN+1),A LD (SEC+1),A LD (HOUR+1),A INC A LD (TIME+1),A LD (VIV+1),A LD HL,0 LD (BUF_T1),HL LD (BUF_T1+3),HL LD (BUF_T1+6),HL LD (SC_YA),HL LD (SC_YA+1),HL LD (SC_WR),HL LD (SC_WR+1),HL LD (S_WR2+1),HL LD (S_YA2+1),HL LD A,#0A LD (BUF_T1+2),A LD (BUF_T1+5),A RET