Rev 1374 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log
| Rev 1374 | Rev 1623 | ||
|---|---|---|---|
| Line 649... | Line 649... | ||
| 649 | JR LOOP |
649 | JR LOOP |
| 650 | 650 | ||
| 651 | LOOPT DEFW XMENUS,T_SLOW,I_RET,T_MID,SELTAR |
651 | LOOPT DEFW XMENUS,T_SLOW,I_RET,T_MID,SELTAR |
| 652 | DEFW T_FAST,UPEDIA,OPTION,FINANS,INFO |
652 | DEFW T_FAST,UPEDIA,OPTION,FINANS,INFO |
| 653 | 653 | ||
| - | 654 | if MUSIC |
|
| - | 655 | SETMENUMUSIC |
|
| - | 656 | halt |
|
| - | 657 | ld a,19 |
|
| - | 658 | call setpg |
|
| - | 659 | call 0xc000 |
|
| - | 660 | ld hl,0xc005 |
|
| - | 661 | OS_SETMUSIC |
|
| - | 662 | ret |
|
| - | 663 | endif |
|
| - | 664 | ||
| 654 | XMR CALL NOKEYw |
665 | XMR CALL NOKEYw |
| - | 666 | if MUSIC |
|
| - | 667 | call SETMENUMUSIC |
|
| - | 668 | endif |
|
| 655 | MLOOP LD SP,#403E |
669 | MLOOP LD SP,#403E |
| 656 | CALL MEM7 |
670 | CALL MEM7 |
| 657 | CALL XEARTH;*******Главный цикл |
671 | CALL XEARTH;*******Главный цикл |
| 658 | LD DE,DSCR+24 |
672 | LD DE,DSCR+24 |
| 659 | CALL PDDS |
673 | CALL PDDS |
| Line 1846... | Line 1860... | ||
| 1846 | BAD_ CALL MNU |
1860 | BAD_ CALL MNU |
| 1847 | RIP LD IX,MU81 |
1861 | RIP LD IX,MU81 |
| 1848 | CALL MENUC |
1862 | CALL MENUC |
| 1849 | CALL TMOF |
1863 | CALL TMOF |
| 1850 | CALL NW_GE |
1864 | CALL NW_GE |
| - | 1865 | if MUSIC |
|
| - | 1866 | call SETMENUMUSIC |
|
| - | 1867 | endif |
|
| 1851 | CALL MLOOP |
1868 | CALL MLOOP |
| 1852 | MU82 DEFW #802,#5218 |
1869 | MU82 DEFW #802,#5218 |
| 1853 | 1870 | ||
| 1854 | ACTD ;действия кжд день |
1871 | ACTD ;действия кжд день |
| 1855 | CALL baseUP |
1872 | CALL baseUP |