?login_element?

Subversion Repositories NedoOS

Rev

Rev 286 | Blame | Compare with Previous | Last modification | View Log | Download

  1.  
  2. ;ДЕМОНСТРАЦИОННЫЙ РЕЖИМ
  3.  
  4. NNN_D   ;демо-режим
  5.         EI
  6.         ;jr $
  7.         CALL MEM6
  8.         CALL ANIMTR ;6
  9.         CALL SPLIN  ;6
  10.         CALL cTIC   ;6
  11.         CALL MEM0
  12.         CALL  d_LIFE ;*
  13.         CALL ACTION ;0
  14.         CALL SHED_H ;0
  15.         CALL SHED_K ;0
  16.         CALL BULLER ;0
  17.         CALL hSCAN  ;0
  18.         CALL kSCAN  ;0
  19.         CALL MEM7
  20.         CALL O12X12 ;m OU_SCR
  21.         LD A,(CONTRB)
  22.         OR A
  23.         JR Z,NNN_D
  24.         RET
  25.  
  26. d_LIFE  LD HL,KUNGE+5
  27.         LD DE,16
  28.         LD B,10
  29. d_L1    LD (HL),200
  30.         ADD HL,DE
  31.         DJNZ d_L1
  32.         ;
  33. d_CTRL  CALL loop_H
  34. d_C2    LD A,(IX+9)
  35.         OR A
  36.         JR NZ,d_C1
  37.         LD (IX+10),24
  38.         LD (IX+11),30
  39.         CALL IX_93
  40. d_C1    ADD IX,DE
  41.         DJNZ d_C2
  42.         ;
  43.         LD A,4
  44.         LD (makTRY),A
  45.         ;
  46.         LD HL,0
  47.         LD (MX),HL
  48.         ;
  49. d_NEW   LD A,(TIC)
  50.         CP 1
  51.         RET NZ
  52.         LD A,R
  53.         LD C,13
  54.         AND 2
  55.         JR Z,d_N1
  56.         DEC C
  57. d_N1    CALL RND
  58.         AND 15
  59.         INC A
  60.         LD B,A
  61.         LD A,R
  62.         AND 15
  63.         ADD A,16
  64.         LD L,A
  65.         LD H,16
  66. d_N2    PUSH HL
  67.         PUSH BC
  68.         CALL stayON
  69.         POP BC
  70.         PUSH BC
  71.         LD A,C
  72.         EX AF,AF
  73.         XOR A
  74.         CALL NEWHER
  75.         POP BC
  76.         POP HL
  77.         DJNZ d_N2
  78.         RET
  79.  
  80. DEMO    DI
  81.         CALL MEM0       ;0
  82.         CALL setMAP     ;0
  83.         CALL shadwS     ;1
  84.  
  85.         ld b,50
  86. showflags0
  87.         push bc
  88.         YIELD
  89.         pop bc
  90.         djnz showflags0
  91.         if EGA
  92.         call setpal
  93.         ld e,0
  94.         OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
  95.         ld e,0
  96.         OS_SETSCREEN
  97.         ld e,0 ;color byte
  98.         OS_CLS
  99.         ld e,1
  100.         OS_SETSCREEN
  101.         ld e,0 ;color byte
  102.         OS_CLS
  103.         endif
  104.  
  105.         CALL ANIset     ;1
  106.         CALL NEWALL ;1
  107.         CALL NEWenm ;1
  108.         LD HL,#1412
  109.         LD (X0),HL
  110.         ;
  111. d_FRAM  ;выв демо оформл
  112.         CALL MEM7
  113.         LD HL,0
  114.         LD BC,#1820
  115.         PUSH HL
  116.         PUSH BC
  117.         LD E,L
  118.         CALL STS
  119.         CALL ATRBAR
  120.         CALL O12X12
  121.         CALL STS
  122.         LD A,R
  123.         AND 1
  124.         INC A
  125.         OUT (254),A
  126.         POP BC
  127.         POP HL
  128.         if EGA==0
  129.         ADD A,#30
  130.         LD E,A
  131.         CALL ATRBAR
  132.         LD HL,#202
  133.         LD BC,#1414
  134.         LD E,#70
  135.         CALL ATRBAR
  136.         endif
  137.         if EGA
  138.         ld a,21;24
  139.         LD DE,0xe800;0xc000
  140.         call putBAR_ade
  141.         endif
  142.         JP NNN_D
  143.  
  144.