Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 7 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -1,2 +1,9 @@
/build
/*.lst
/RUN
/.vscode
/Hidden
/make.bat
/make_image.bat
/*.exe
/make_image
24 changes: 12 additions & 12 deletions disktest.asm
Original file line number Diff line number Diff line change
Expand Up @@ -146,7 +146,7 @@ TestConsistentRead:
pop bc
pop hl
xor a
or h ;Слишком большое время
or h ;���誮� ����讥 �६�
jr nz,.tobig
ld c,b
ld b,l
Expand All @@ -158,7 +158,7 @@ TestConsistentRead:
rr e
ld hl,0
pop bc
call div32 ;в DE - частное - KB/s
call div32 ; DE - ��⭮� - KB/s
push de
pop hl
ld bc,SpeedNumStr
Expand Down Expand Up @@ -241,7 +241,7 @@ CreateFile: ld hl,Buffer
pop bc
pop hl
xor a
or h ;Слишком большое время
or h ;���誮� ����讥 �६�
jr nz,.tobig
ld c,b
ld b,l
Expand All @@ -253,7 +253,7 @@ CreateFile: ld hl,Buffer
rr e
ld hl,0
pop bc
call div32 ;в DE - частное - Б/С
call div32 ; DE - ��⭮� - �/�
push de
pop hl
ld bc,SpeedNumStr
Expand Down Expand Up @@ -294,7 +294,8 @@ Exit: ld a,(FileHandler)
ld c,Dss.Close
rst 0x10
.next: call DeleteTestFile
LD BC, 0xFF00 + Dss.Exit
;LD BC, 0xFF00 + Dss.Exit
LD BC, Dss.Exit ;[x] 30/07/23 -bug with error number
RST 0x10 ; exit

GetCurrentTime:
Expand Down Expand Up @@ -421,22 +422,22 @@ TimeInSeconds: push bc
.next4: ex hl,de
ret

;Ожидание до начала секунды
;�������� �� ��砫� ᥪ㭤�
CMOSWait: di
ld bc,CMOS_AWR ;далее не портится
ld bc,CMOS_AWR ;����� �� �������
ld a,0
out (c),a
ld a,0FFh
in a,(0xBD)
ld e,a
.loop0: ld bc,CMOS_AWR ;далее не портится
.loop0: ld bc,CMOS_AWR ;����� �� �������
ld a,0
out (c),A
ld a,0xff
in a,(0xBD) ;отфильтруем тик (на тот случай если попали в его конец)
in a,(0xBD) ;��䨫���㥬 ⨪ (�� �� ��砩 �᫨ ������ � ��� �����)
cp e ;
jr z,.loop0 ;
ld e,a ;4, а вот от сюда и начинается отсчёт тактов
ld e,a ;4, � ��� �� � � ��稭����� ������ ⠪⮢
ret

;Parse Arguments in Command line
Expand Down Expand Up @@ -632,5 +633,4 @@ WorkDriveNumber:
include "prnum.asm"

Buffer: equ $
EXEend:
savebin "DISKTEST.EXE",EXEhead,EXEend-EXEhead
EXEend: ifndef _VSCODE_ savebin "DISKTEST.EXE",EXEhead,EXEend-EXEhead : endif
Binary file removed disktest.exe
Binary file not shown.
Binary file removed image/dss_image.img
Binary file not shown.
14 changes: 0 additions & 14 deletions make.bat

This file was deleted.

36 changes: 0 additions & 36 deletions make_image.bat

This file was deleted.