Rev 1047 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1047 | Rev 1067 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ; LAST UPDATE: 26.11.2022 savelij |
2 | ; LAST UPDATE: 21.02.2023 savelij |
| 3 | 3 | ||
| 4 | TITLE "menu_execute.a80" |
4 | TITLE "menu_execute.a80" |
| 5 | 5 | ||
| 6 | ; загрузка с ленты |
6 | ; загрузка с ленты |
| 7 | TAPELOAD LD H,CMOS_BYTE_00 |
7 | TAPELOAD LD H,CMOS_BYTE_00 |
| Line 328... | Line 328... | ||
| 328 | JP Z,RESTART |
328 | JP Z,RESTART |
| 329 | LD IX,WDISMOUNT |
329 | LD IX,WDISMOUNT |
| 330 | RST8 _WINW |
330 | RST8 _WINW |
| 331 | JP _RULILKA ; возвращаемся к общему управлению |
331 | JP _RULILKA ; возвращаемся к общему управлению |
| 332 | 332 | ||
| - | 333 | ; демонтирование всех дисков |
|
| - | 334 | DISMOUNT_ALL LD A,3 |
|
| - | 335 | RST8 _MOUNTER,_CLOSEMOUNT |
|
| - | 336 | LD A,2 |
|
| - | 337 | RST8 _MOUNTER,_CLOSEMOUNT |
|
| - | 338 | LD A,1 |
|
| - | 339 | RST8 _MOUNTER,_CLOSEMOUNT |
|
| 333 | DISMOUNT_A XOR A |
340 | DISMOUNT_A XOR A |
| 334 | DISMOUNT_DRV |
341 | DISMOUNT_DRV |
| 335 | RST8 _MOUNTER,_CLOSEMOUNT |
342 | RST8 _MOUNTER,_CLOSEMOUNT |
| 336 | JP RESTART |
343 | JP RESTART |
| 337 | 344 | ||