nedoPC.org

struct HEADER
{
   char name[8];
   BYTE ext;
   UINT len;
   UINT adr;
   BYTE atr;
   UINT kc;
};

SYS-BASE DW 0
SYS-TEMP DW 0
SYS-CODE DB 0,0,0,0,0,0

SYS:
 SHLD SYS-TEMP ; запоминаем HL
 POP HL ; вытаскиваем адрес возврата
 PUSH PSW ; запоминаем на стеке аккумулятор и флаги
 MOV A,M ; читаем байт по адресу возврата
 INX H ; инкрементируем HL
 CPI #00 ; проверяем прочитанный байт на #00
 JNZ SYS1 ; если не равно, то идём на SYS1
 POP PSW ; восстанавливаем аккумулятор и флаги
 PUSH H ; запоминаем на стеке новый адрес возврата
 LHLD SYS-BASE ; загружаем базовый адрес текущей SYS-программы
 DAD B ; корректируем адрес BC
 PUSH H ; кладём HL на стек
 POP B ; снимаем со стека BC
 LHLD SYS-TEMP ; восстанавливаем HL
 RET ; возвращаемся
SYS1:
 CPI #10 ; проверяем прочитанный байт на #10
 JNZ SYS2 ; если не равно, то идём на SYS2
 POP PSW ; восстанавливаем аккумулятор и флаги
 PUSH H ; запоминаем на стеке новый адрес возврата
 LHLD SYS-BASE ; загружаем базовый адрес текущей SYS-программы
 DAD D ; корректируем адрес DE
 PUSH H ; кладём HL на стек
 POP D ; снимаем со стека DE
 LHLD SYS-TEMP ; восстанавливаем HL
 RET ; возвращаемся
SYS2:
 CPI #20 ; проверяем прочитанный байт на #20
 JNZ SYS3 ; если не равно, то идём на SYS3
 POP PSW ; восстанавливаем аккумулятор и флаги
 PUSH H ; запоминаем на стеке новый адрес возврата
 PUSH D ; запоминаем на стеке DE
 LHLD SYS-TEMP ; восстанавливаем HL
 XCHG ; меняем местами DE и HL
 LHLD SYS-BASE ; загружаем базовый адрес текущей SYS-программы
 DAD D ; корректируем адрес сохраняя его в HL
 POP D ; восстанавливаем DE
 RET ; возвращаемся
SYS3:
 CPI #30 ; проверяем прочитанный байт на #30
 JNZ SYS_ ; если не равно, то идём на SYS_
 POP PSW ; восстанавливаем аккумулятор и флаги
 PUSH H ; запоминаем на стеке новый адрес возврата
 ; TODO: загрузка SYS-файла в память
 LHLD SYS-TEMP ; восстанавливаем HL
 RET ; возвращаемся
SYS_:
 STA SYS-CODE ; запоминаем байт после вызова как команду
 PUSH D ; запоминаем DE
 MOV E,M ; читаем следующий байт
 INX H ; инкрементируем HL
 MOV D,M ; читаем следующий байт
 INX H ; инкрементируем HL
 MVI A,#C3 ; запоминаем в аккумуляторе код #C3
 STA SYS-CODE+3 ; запоминаем код #C3
 SHLD SYS-CODE+4 ; запоминаем адрес возврата после команды JMP
 LHLD SYS-BASE ; загружаем базовый адрес текущей SYS-программы
 DAD D ; корректируем адрес сохраняя его в HL
 SHLD SYS-CODE+1 ; запоминаем значение HL в коде
 POP D ; восстанавливаем DE
 POP PSW ; восстанавливаем аккумулятор и флаги
 JMP SYS-CODE ; передаём управление на сформированную последовательность инструкций