Commit 5386300e authored by Philippe Rimauro's avatar Philippe Rimauro
Browse files

Modification de CAS IN OPEN pour qu'il ne modifie pas IX qui est censé être...

Modification de CAS IN OPEN pour qu'il ne modifie pas IX qui est censé être modifié d'après la doc mais qui ne l'est pas effectivement
parent ad831d7c
No preview for this file type
......@@ -14,6 +14,7 @@
; Si NC,Z alors ESC a t press
; A = code d'erreur
; Altr - AF,BC,DE,HL,IX
; Note - IX n'est pas modifi dans la CAS IN OPEN de l'AMSDOS
CAS_InOpen
ld a,b ; Fichier vide
......@@ -95,8 +96,7 @@ InOpenAgain
jp nz,casreturn_notadirectory_hl
InOpenFile
GET_A fileindrive ; Fichier dj ouvert ?
cp &ff
call infilegetdrive
jp nz,casreturn_alreadyopened
call getworkdrive_rega
......@@ -316,8 +316,7 @@ InOpenDispatchError
; Altr - AF,BC,DE,HL
CAS_InClose
GET_A fileindrive
cp &ff
call infilegetdrive
jp z,casreturn_alreadyclosed
ld c,a
......@@ -344,8 +343,7 @@ InCloseOurs
; Altr - AF,BC,DE,HL
CAS_InAbandon
GET_A fileindrive
cp &ff
call infilegetdrive
ret z
ld c,a
......@@ -379,8 +377,7 @@ CAS_InChar
pop de
pop bc
ret
InChar GET_A fileindrive
cp &ff
InChar call infilegetdrive
jp z,casreturn_notopened
ld c,a
......@@ -486,8 +483,7 @@ InCharGetLastReadByte
; Altr - AF,BC,DE,HL,IX
CAS_InDirect
GET_A fileindrive
cp &ff
call infilegetdrive
jp z,casreturn_notopened
ld c,a
......@@ -549,8 +545,7 @@ CAS_Return
ret
CAS_ReturnInternal
ld a,&ff
CP_A fileindrive
call infilegetdrive
ret z
ld c,a
......@@ -589,8 +584,7 @@ CAS_TestEOF
pop de
pop bc
ret
TestEOF GET_A fileindrive
cp &ff ; Si pas de fichier ouvert alors
TestEOF call infilegetdrive ; Si pas de fichier ouvert alors
jp z,testeofreached ; c'est comme si on tait la fin
ld c,a
......@@ -647,7 +641,9 @@ InReadHeader
cp fileheadsize ; Fichier trop petit pour tre binaire ?
ret c ; C/NZ
push ix
call decodeheader ; Tentative de dcodage de l'entte binaire
pop ix
scf
ret ; C/Z ou C/NZ
......@@ -677,6 +673,11 @@ InReadCopy1stRecord
ret
InFileGetDrive
GET_A fileindrive
cp &ff
ret
InAddSoftEOF
GET_A optionflags
and opt_emulatesofteoff
......
......@@ -67,8 +67,7 @@ OutOpenCheckFile
cp &ff
jp z,outopencreatedir
GET_A fileoutdrive
cp &ff
call outfilegetdrive
jp nz,casreturn_alreadyopened
PUT_8 fileoutmode,dsk_file_mode_pending
......@@ -170,8 +169,7 @@ OutOpenCreateDir
; Altr - AF,BC,DE,HL
CAS_OutClose
GET_A fileoutdrive
cp &ff
call outfilegetdrive
jp z,casreturn_alreadyclosed
ld c,a
......@@ -308,8 +306,7 @@ OutCloseExit
; Altr - AF,BC,DE,HL
CAS_OutAbandon
GET_A fileoutdrive
cp &ff
call outfilegetdrive
ret z
ld c,a
......@@ -345,8 +342,7 @@ CAS_OutChar
ret
OutChar ld b,a
GET_A fileoutdrive
cp &ff
call outfilegetdrive
jp z,casreturn_notopened
ld c,a
......@@ -421,8 +417,9 @@ OutCharWriteBuffer
CAS_OutDirect
push bc
ld c,a
GET_A fileoutdrive
cp &ff
call outfilegetdrive
ld a,c
pop bc
jp z,casreturn_notopened
......@@ -499,6 +496,11 @@ OutWriteHeader
ld de,128
jp device_outwritestream
OutFileGetDrive
GET_A fileoutdrive
cp &ff
ret
OutDispatchWriteError
cp dsk_err_disc_changed
jp nz,casreturn_badcommand
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment