Rev 1041 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1041 | Rev 1065 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ; LAST UPDATE: 03.12.2022 savelij |
2 | ; LAST UPDATE: 15.02.2023 savelij |
| 3 | 3 | ||
| 4 | ; ((out&0ffff)==37f7)&&((val&0ff)==1) |
4 | ; ((out&0ffff)==37f7)&&((val&0ff)==1) |
| 5 | ; ((out&0ffff)==77f7)&&((val&0ff)==1) |
5 | ; ((out&0ffff)==77f7)&&((val&0ff)==1) |
| 6 | ; ((out&0ffff)==0b7f7)&&((val&0ff)==1) |
6 | ; ((out&0ffff)==0b7f7)&&((val&0ff)==1) |
| 7 | ; ((out&0ffff)==0f7f7)&&((val&0ff)==1) |
7 | ; ((out&0ffff)==0f7f7)&&((val&0ff)==1) |
| Line 868... | Line 868... | ||
| 868 | 868 | ||
| 869 | ; чтение порта 0x1F |
869 | ; чтение порта 0x1F |
| 870 | IN_1F LD A,(WR_1F) |
870 | IN_1F LD A,(WR_1F) |
| 871 | AND %11110000 |
871 | AND %11110000 |
| 872 | CP 0x10 |
872 | CP 0x10 |
| 873 | JR C,.L1 |
873 | JR C,.L1 ; 00-0F команды восстановления |
| 874 | CP 0x20 |
874 | CP 0x20 |
| 875 | JR C,.L3 |
875 | JR C,.L3 ; 10-1F команды поиска |
| 876 | CP 0x80 |
876 | CP 0x80 |
| - | 877 | JR C,.L5 ; 20-7F команды шагания головки |
|
| 877 | JR C,.L5 |
878 | CP 0xC0 |
| - | 879 | JR C,.L8 ; 80-BF команды чтения/записи |
|
| 878 | CP 0xD0 |
880 | CP 0xD0 |
| 879 | JR Z,.L7 |
881 | JR Z,.L7 ; D0-DF команды принудительного прерывания |
| 880 | XOR A |
882 | XOR A |
| 881 | JR .L2 |
883 | JR .L2 |
| 882 | 884 | ||
| - | 885 | ; проверка выхода за 80 дорожку |
|
| - | 886 | .L8 LD A,(PORT_3F) |
|
| - | 887 | CP 80 |
|
| - | 888 | LD A,0 |
|
| - | 889 | JR C,.L2 |
|
| - | 890 | LD A,%00010000 ; при уходе за 80 дорожку выдача ошибки "массив не найден" |
|
| - | 891 | JR .L2 |
|
| - | 892 | ||
| 883 | .L7 LD A,0x80 |
893 | .L7 LD A,0x80 |
| 884 | JR .L2 |
894 | JR .L2 |
| 885 | 895 | ||
| 886 | .L5 LD A,(PORT_3F) |
896 | .L5 LD A,(PORT_3F) |
| 887 | AND A |
897 | AND A |