Programming in iS-DOS

ZXNet echo conference «code.zx»

From Felix Knajzev To All 16 August 1998

Greetings, O venerable All! Here is the PANEL procedure for working with file panels. Did I do everything right here? Maybe there's something missing? Or maybe something did you write too much? ;) PANEL LD IX,STOR_S; 4 bytes LD C,#37; restore the environment ;why is this needed, and in what cases? XOR A RST #10 RET C JR PANEL1 CH_DEV LD C,#02; _does this need to be done here_? RST #10 RET C ;device selection LD C,#8A RST #10 EXX LD A,#07 SUB B LD C,#8E RST #10 RET C CP#F1 JR NZ,PANELW PANEL1 LD A,#F0 LD C,#8E RST #10 RET C PANELW LD A,#FF LD C,#8E RST #10 RET C CP#08 JR C,CH_DEV; CS+1, CS+2, CS+3, CS+4 pressed CP#10 SCF RET Z; "SS+A" (failure) CP#0D JR NZ,PANELW LD C,#8A RST #10 LD C,#26 RST #10 RET C EXX PUSH HL LD BC,#000B ADD HL,BC BIT 5,(HL) POP HL RET Z; this is a file! LD A,#0D; open directory. LD C,#8E RST #10 JR NC,PANEL1 RET STOR_S DEFS 4 P.S. Maybe someone has a _complete_ description of restarts and others docks for version iS-DOS 3.5 and higher? And also a description of AS2.COM from 07.12.94. Best regards, Felix!