?login_element?

Subversion Repositories NedoOS

Rev

Rev 1916 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.         align 256
  2. distbuf;=#BA00 ;#300 ;ID,texx,dist
  3.         ds 0x300
  4.  
  5.       IF atm
  6.        MACRO setpgfast pg
  7.         LD A,pg
  8.         setpgafast
  9.        ENDM
  10.        MACRO setpgafast
  11.         ;LD (curpg),A
  12.         ;LD BC,#FFF7
  13.         ;OUT (C),A
  14.         SETPGC000
  15.        ENDM
  16.       ELSE ;~atm
  17.        MACRO setpg pg
  18.         LD A,pg
  19.         setpgA
  20.        ENDM
  21.        MACRO setpgA
  22.         CALL SETPGA
  23.        ENDM
  24.        MACRO setpgfast pg
  25.         LD A,pg
  26.         setpgafast
  27.        ENDM
  28.        MACRO setpgafast
  29.         LD (curpg),A
  30.         LD BC,#7FFD
  31.         OUT (C),A
  32.        ENDM
  33.       ENDIF ;~atm
  34.      
  35.  
  36.  
  37. wascorrlogd
  38.         INCBIN "corlogd_"
  39.         ORG $-256
  40.        DUP 256
  41.         DB {$+(scrtopx*8)}&0xff
  42.        EDUP
  43.        IF lores
  44.         ORG $-256
  45. _=$
  46.        DUP 128
  47.         DB {_}&0xff
  48. _=_+2
  49.        EDUP
  50.         DS 128
  51.        ENDIF
  52. wasda
  53.         INCBIN "da"
  54.         ORG $-256
  55.        DUP 256
  56.         DB 0xff&({$}+128)
  57.        EDUP
  58.         ORG $-256
  59.        DUP 256
  60.         DB 0xff&({$+(scrtopx*8)})
  61.        EDUP
  62.        IF lores
  63.         ORG $-256
  64. _=$
  65.        DUP 128
  66.         DB {_}&0xff
  67. _=_+2
  68.        EDUP
  69.         DS 128
  70.        ENDIF
  71.  
  72. TEXCODEGO
  73.        IF atm == 0
  74.         LD HL,0;-2
  75.         ADD HL,SP
  76.         LD (clscrbufsp),HL
  77.         LD (eorfillsp),HL
  78.        endif
  79.  
  80.        IF atm
  81.         call setpgmap4000
  82.        ENDIF
  83.         LD BC,#FBDF
  84.         IN A,(C)
  85.         LD (mouseoldx),A       
  86.         CALL RECMAP
  87.  
  88.         LD HL,tcos
  89. REtcos0
  90.        DUP 2;4
  91.         SRA (HL)
  92.        EDUP
  93.         INC L
  94.         jr NZ,REtcos0
  95.  
  96.         INCLUDE "zxloop.asm"
  97.         INCLUDE "WSCAN10.asm"
  98.         INCLUDE "WREND.asm"
  99.         INCLUDE "WCTRL.asm"
  100.  
  101. ;переменные рендера (обновляются в начале рендера)
  102. curXx
  103. curx    DB #80
  104. curX    DB #0
  105. curYy
  106. cury    DB #80
  107. curY    DB #0
  108. curxy   DW 0
  109. curyx   DW 0
  110. curYX   DW 0
  111. curangle
  112.         DW tsin
  113. demobegin
  114.        IF demoplay
  115.         INCBIN "demorec9"
  116.        ELSE
  117.         DB %00111111 ;all keys released
  118.        ENDIF
  119.  
  120.         ;DISPLAY "PROG END=",$
  121.  
  122.         align 256 ;DS .(-$)
  123. tables
  124. wastables
  125. shift=tables-$
  126. tlogd2sca=$+shift
  127.        IF scale64
  128.        IF scale64 == 3
  129.         INCBIN "logd2sc3"
  130.        ELSE
  131.         INCBIN "logd2sc2"
  132.        ENDIF
  133.        ELSE
  134.         INCBIN "logd2sc_"
  135.        ENDIF
  136. tsqr2=$+shift
  137.         INCBIN "sqr2int"
  138. tlogd=$+shift
  139.         INCBIN "logd"
  140. tcorrlogd=$+shift
  141.        DUP 256
  142.         DB {wascorrlogd+$-tcorrlogd}&0xff
  143.        EDUP
  144. tcos=$+shift
  145.         INCBIN "cos"
  146. tlogcos=$+shift
  147.         INCBIN "pluslcos"
  148. tda=$+shift
  149.        DUP 256
  150.         DB {wasda+$-tda}&0xff
  151.        EDUP
  152. tctg=$+shift
  153.         INCBIN "plusctg"
  154. tsin=$+shift
  155.         INCBIN "sin"
  156. tscaljps=$+shift
  157.         ds 256;INCBIN "scaljps"
  158. tID=$+shift
  159.         MACRO WALL pgnum,num2
  160.         DB pgnum,num2;-pgnum,num2
  161.         ENDM
  162.        DUP 64+16 ;skip and 0..15 ;в примере используются стены 16..35
  163.         WALL 0,#02
  164.        EDUP
  165.         MACRO PGWALL pgnum
  166.         WALL pgnum,#02
  167.         WALL pgnum,#42
  168.         WALL pgnum,#82
  169.         WALL pgnum,#C2
  170.         ENDM
  171.         PGWALL 0
  172.         PGWALL 1
  173.         PGWALL 2
  174.         PGWALL 3
  175.         PGWALL 4
  176.        DUP 64-20-16 ;?..63
  177.         WALL 0,#02
  178.        EDUP
  179. cursprites=$+shift
  180.         DS 256
  181. ltables=$-wastables
  182.  
  183.         include "recmap.asm"
  184.