Subversion Repositories pentevo

Rev

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

  1.  
  2. ; LAST UPDATE: 13.02.2025 savelij
  3.  
  4.         TITLE "pack main menu"
  5.  
  6.         PHASE 0
  7.                 JP $
  8.  
  9.                 DB 0x0008-$ DUP 0xFF
  10.                 JP $
  11.  
  12.                 DB 0x0010-$ DUP 0xFF
  13.                 JP $
  14.  
  15.                 DB ADR_SEL_ROM-$ DUP 0xFF
  16.                 OUT (C),A                       ; 0014
  17.                 NOP
  18.                 RET
  19.  
  20.                 DB 0x0018-$ DUP 0xFF
  21.                 JP $
  22.  
  23.                 DB 0x0020-$ DUP 0xFF
  24.                 JP $
  25.  
  26.                 DB 0x0028-$ DUP 0xFF
  27.                 JP $
  28.  
  29.                 DB 0x0030-$ DUP 0xFF
  30.                 JP CALL2PAGE
  31.  
  32.                 DB 0x0038-$ DUP 0xFF
  33.                 EI
  34.                 RET
  35.  
  36.                 DB 0x0040-$ DUP 0xFF
  37.                 JP UNP_MAINMENU
  38.  
  39.                 DB 0x0080-$ DUP 0xFF
  40.                 include ../../dec40.a80
  41.  
  42.                 DB 0x00FF-$ DUP 0xFF
  43.                 DW 0x0038
  44.  
  45. UNP_MAINMENU    PUSH BC
  46.                 LD HL,.LOADADR
  47.                 CALL UNPACK
  48.                 POP BC
  49.                 XOR A
  50.                 JP ADR_SEL_ROM
  51.  
  52. .LOADADR
  53.         IFDEF DOS_FE
  54.                 binclude ../../mainmenu/main_fe_pack.rom
  55.         ELSE
  56.                 binclude ../../mainmenu/main_pack.rom
  57.         ENDIF
  58.  
  59. FREE_MAINMENU   EQU 0x3FF6-$
  60.  
  61.         PHASE $&0x3FFF
  62.                 DB FREE_MAINMENU DUP 0xFF
  63.                 DW FREE_MAINMENU                ; свободное место
  64.                 DB "MNMENU"
  65.                 DW DATA_VERS
  66.         DEPHASE
  67.