?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;Начальные установки и защита
  2. DELRET  LD HL,START1
  3.         LD DE,START1+1
  4.         LD (HL),H
  5.         LD BC,START2-START1-2
  6.         LDIR
  7.         RET
  8. START1
  9.         LD HL,start
  10.         LD (JP_ST+1),HL
  11.        if PROTECT
  12. ;------------защита проц боя
  13.         ;4 - пров свопперов
  14.         LD DE,LQWE-MAN
  15.         LD BC,+(B_LOOP-LQWE) *256 +8
  16.         LD IX,MAN
  17.         ADD IX,DE
  18. prt4_   LD A,(IX+2)
  19.         OR A
  20.         JR Z,prt44_
  21.         ADD A,C
  22.         LD C,A
  23. prt44_  INC IX
  24.         DJNZ prt4_
  25.         LD (CRC4),A
  26.         ;
  27.        endif
  28.         CALL SWPBAT
  29.         CALL LDASM1
  30.         CALL LDASM2
  31.        if PROTECT
  32. ;------------защита проц меню/карты
  33.         ;2
  34.         Ms 0
  35.         LD HL,SCR
  36.         PUSH HL
  37.         LD BC,#2000
  38.         ADD HL,BC
  39.         POP DE
  40. prt1    LD A,(DE)
  41.         CP (HL)
  42.         JR Z,prt1_
  43.         DEC C
  44.         ADD A,B
  45.         ADD A,(HL)
  46.         LD B,A
  47. prt1_   INC HL
  48.         INC DE
  49.         LD A,H
  50.         OR L
  51.         JR NZ,prt1
  52.         LD (CRC2),BC
  53.         ;3
  54.         LD HL,#FF02
  55.         LD (TX),HL
  56.         XOR A
  57.         CALL MEM
  58.         XOR A
  59.         LD C,A
  60.         ADD A,#3D
  61.         LD B,A
  62. prt3_   LD DE,TY
  63.         LD A,(DE)
  64.         EXX
  65.         LD HL,TX
  66.         SUB (HL)
  67.         LD (HL),A
  68.         EXX
  69.         LDD
  70.         JP PE,prt3_
  71.         LD A,(TX)
  72.         LD (CRC3),A
  73.         ;
  74.        endif
  75.         CALL MEM7
  76.         JP DELRET
  77. START2  LD A,R
  78.         JR STRT2
  79.         DEFM "*** Hello, my dear! You find hidden entry in my subject! ***"
  80.         DEFM " (812)1433303 *** UFO-2 by Vyacheslav Mednonogov (c)1996 ***"
  81. STRT2   LD (RNB),A
  82.         LD (NX_RNB),A
  83. ;------------созд игр данных
  84.         Ms 3
  85.         LD HL,DATA
  86.         LD DE,NEWDAT
  87.         LD B,6
  88. JJ0     PUSH BC
  89.         PUSH HL
  90. JJ1     CALL RND
  91.         CP 192
  92.         JR NC,JJ1
  93.         INC A
  94.         LD (N_AQU),A
  95.         CALL RND
  96.         LD (RNBgen),A
  97.         CALL RND
  98.         LD (RNAgen+1),A
  99.         AND #F
  100.         INC A
  101.         LD (TARoff),A
  102.         LD BC,480
  103.         LDIR
  104.         POP HL
  105.         POP BC
  106.         DJNZ JJ0
  107.         JP MEM7
  108.