?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;Загрузчик загрузчика :)
  2. ;игры Вера (в Бейсик строке)
  3.  
  4. PG_SPR  EQU 0 ;спрайты 2*2 512 штук
  5. PG_MAP  EQU 1 ;карта,массив,путь,скрипты,звуки
  6. PG_MISC EQU 3 ;распак. текст,ключевой кадр, упак.карта,массив
  7. PG_HERO EQU 4 ;спрайты героя
  8. PG_MUZ  EQU 6 ;Плеер,музыка
  9. PG_VIEW EQU 7 ;упак. экран
  10.  
  11.         ORG #6000
  12.  
  13.         DISP 23872
  14.  
  15.         DB 16,7,17,7
  16.         DB "SETUP"
  17. SETUP   DB 1 ;мышь
  18.         DB 1 ;колесо
  19.         DB 0 ;джойстик
  20.         DB 1 ;клавиатура
  21.         DB 0 ;ускорение курсора
  22.         DB 1 ;музыка
  23.         DB 1 ;звуки
  24.  
  25.  
  26. LOADER
  27.         LD HL,#5800
  28.         LD DE,#5801
  29.         LD BC,767
  30.         LD (HL),L
  31.         LDIR
  32.         LD HL,#4000
  33.         PUSH HL
  34.         LD DE,(#5CF4)
  35.         LD BC,#1705
  36.         JP #3D13
  37.  
  38.         ENT
  39.  
  40.         DISPLAY "Длина загрузчика ",$-#6000
  41.         DISPLAY /A,/T,SETUP
  42.