Subversion Repositories pentevo

Rev

Rev 803 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 06.07.2019 savelij
  3.  
  4.         TITLE "pack main menu"
  5.  
  6.                 PHASE 0
  7.                 JP $
  8.  
  9.                 DUPL 0X0008-$,0XFF
  10.                 JP $
  11.  
  12.                 DUPL 0X0010-$,0XFF
  13.                 JP $
  14.  
  15.                 DUPL ADR_SEL_ROM-$,0XFF
  16.                 OUT (C),A                       ;0014
  17.                 NOP
  18.                 RET
  19.  
  20.                 DUPL 0X0018-$,0XFF
  21.                 JP $
  22.  
  23.                 DUPL 0X0020-$,0XFF
  24.                 JP $
  25.  
  26.                 DUPL 0X0028-$,0XFF
  27.                 JP $
  28.  
  29.                 DUPL 0X0030-$,0XFF
  30.                 JP CALL2PAGE
  31.  
  32.                 DUPL 0X0038-$,0XFF
  33.                 EI
  34.                 RET
  35.  
  36.                 DUPL 0X0040-$,0XFF
  37.                 JP UNP_MAINMENU
  38.  
  39.                 DUPL 0X0080-$,0XFF
  40.                 include ../../dec40.a80
  41.  
  42.                 DUPL 0X00FF-$,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.                 DUPL FREE_MAINMENU,0XFF
  63.                 DW FREE_MAINMENU                ;СВОБОДНОЕ МЕСТО
  64.                 DB "MNMENU"
  65.                 DW DATA_VERS
  66.                 DEPHASE
  67.