· Text 2212 · w8 · inlagg
Jag har haft vissa problem med RA-rutinerna i ovanstående.
Problemet var med blockpointern.Patchen som löste mina problem
följer nedan:
;
; Patch av UFD-dos från DIAB (För att fixa Random-access rutinerna)
; DOS:et struntar nämligen i parameter till CALL:et
;
ORG 28603
;
CALL SETSECT
;
ORG 28571 ; Utrymme i DOS:et som är ledigt (29 bytes)
;
SETSECT LD IX,(64790) ; Bortpatchad instruktion
PUSH AF ; Spara markering LÄS/SKRIV (Carry)
LD A,(IX+12) ; Läs FILNO
ADD A,66 ; Addera offset till SECTNO
LD L,A
LD H,253 ; HL:=adress till SECTNO i DOSFILBESK
INC DE ; DE måste ökas med ett för att det skall fungera
LD (HL),E ; Stoppa dit medskickat sektornummer
INC HL
LD (HL),D
POP AF
RET
;
END
BER