?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ;Object Saver v4.0 ЦаПрЮгА 12vi5 Alone
  2.  
  3. ;GO=куда идти без CAPS
  4.  
  5. ;проект должен только что скомпилировать таблицу
  6. ;ORG ObjTab
  7. ;DB "имяфайлаE
  8. ;DW begin in mem
  9. ;DW len
  10. ;DB page
  11. ;DW start/ещё_2_буквы_расширения
  12. ;...
  13.         NOP
  14. ;       ORG $
  15. nenado
  16. ;       IFN ?make
  17. ;       CALL 8026
  18. ;       RET C
  19. ;       JP C,GO
  20. ;       ENDIF
  21.  
  22. ;       ORG #6000
  23.  
  24.         LD HL,ObjTab
  25. _SVNEXT LD A,(HL)
  26.         OR A
  27.         RET Z
  28.         LD DE,#5CDD
  29.         LD BC,9
  30.         LDIR
  31.         LD E,(HL)
  32.         INC HL
  33.         LD D,(HL)
  34.         INC HL
  35.         PUSH DE
  36.         LD E,(HL)
  37.         INC HL
  38.         LD D,(HL)
  39.         INC HL
  40.         LD A,(HL)
  41.         INC HL
  42.         LD BC,#7FFD
  43.         OUT (C),A
  44.         EX (SP),HL ;HL=begin
  45.         PUSH HL,DE
  46.         LD C,10
  47.         CALL #3D13
  48.         INC C
  49.         LD C,18
  50.         CALL NZ,#3D13
  51.         POP DE,HL
  52.         LD C,11
  53.         CALL #3D13
  54.  
  55.        LD C,10 ;find desc
  56.        CALL #3D13
  57.         POP HL
  58.        LD E,(HL)
  59.        INC HL
  60.        LD D,(HL)
  61.        INC HL
  62.         PUSH HL
  63.        LD (#5CE6),DE
  64.        LD A,C
  65.        LD C,9 ;save desc
  66.        CALL #3D13
  67.         POP HL
  68.         JR _SVNEXT
  69.  
  70.         DB "12345678C"
  71.  
  72. ObjTab
  73.  
  74. ;0 SPR
  75.         DB "0_PAGE  C"
  76.         DW SPR
  77.         DW 16384
  78.         DB PG_SPR+16
  79.         DB 32,32
  80.  
  81. ;1 MAP
  82.         DB "1_PAGE  C"
  83.         DW DNPK
  84.         DW LN_MAP
  85.         DB PG_MAP+16
  86.         DB 32,32
  87.  
  88. ;3 MISC
  89.         DB "3_PAGE  C"
  90.         DW #C000
  91.         DW LN_MISC
  92.         DB PG_MISC+16
  93.         DB 32,32
  94.  
  95. ;4 HERO
  96.         DB "4_PAGE  C"
  97.         DW #C000
  98.         DW LN_HERO
  99.         DB PG_HERO+16
  100.         DB 32,32
  101.  
  102. ;6 MUZ
  103.         DB "6_PAGE  C"
  104.         DW INTRO
  105.         DW LN_MUZ
  106.         DB PG_MUZ+16
  107.         DB 32,32
  108.  
  109. ;7 VIEW
  110.         DB "7_PAGE  C"
  111.         DW FNT
  112.         DW LN_VIEW
  113.         DB PG_VIEW+16
  114.         DB 32,32
  115.  
  116.         DB 0 ;Конец сохранения
  117.  
  118.         DISPLAY "Длина сейвера:",$-SOBJ
  119.  
  120. ;       DISPLAY "Saver:",nenado,"-",$
  121. ;       DISPLAY "RUN[CS/Ent]