Код:
IFN compile
KUDABAS=#6000
KUDACOD=#7000
ORG #C000,1 ;грузим упаковщик хруста в #11 страницу
HRQC
INCBIN "HRQC" ;#500 упаковщик Hrust 2.1, работает с адреса #4000
HRQClen=$-HRQC
ORG #5B00
QCSAVER
DI
LD BC,#7FFD
LD A,#11
OUT (C),A
LD HL,HRQC
LD DE,#4000
LD BC,HRQClen
LDIR
LD HL,QCSTART
LD DE,KUDACOD
LD BC,QCLENGTH
CALL #4000 ;PACK, на выходе: HL-где упакованный блок, BC-длина
PUSH BC ;TOTAL LENGTH
ADD HL,BC
XOR A
LD (HL),A ;затираем нулями мусор в конце
INC HL
INC H
DEC H
JR NZ,$-4
LD A,H
INC L
DEC L
JR Z,$+3
INC A
LD (LENGTH),A ;длина кодового блока для загрузчика
LD HL,#5D3B ;сюда компилируется basic часть QC
LD DE,KUDABAS
LD BC,#100
LDIR
LD HL,BASNAME
CALL SETNAME
;СОХРАНЯЕМ СИСТЕМНЫЕ УКАЗАТЕЛИ
PROG EQU #5C53 ;начало BASIC программы
SVARS EQU #5C4B ;конец программы, начало переменных
E_LINE EQU #5C59 ;конец переменных (начало буфера строки)
ARUN EQU #5CD1 ;Здесь TR-DOS хранит номер строки старта
LD HL,(SVARS)
PUSH HL
LD HL,(PROG)
PUSH HL
LD HL,(E_LINE)
PUSH HL
;ПЕРЕИНИЦИАЛИЗИРУЕМ ИХ, ЧТОБЫ ПОСЛЕ ТОГО,
;КАК ТР-ДОС СОЗДАСТ БУФЕР ДЛЯ ОПЕРАЦИЙ С КАТАЛОГОМ,
;ОНИ УКАЗЫВАЛИ НА НАШУ ПРОГУ, КОТОРУЮ МЫ ЗАПИСЫВАЕМ.
LD HL,KUDABAS-#101
LD (PROG),HL
LD HL,BASEND-#5D3B+KUDABAS-#101
LD (SVARS),HL
INC HL
LD (E_LINE),HL
LD HL,1
LD (ARUN),HL
LD C,#C
CALL #3D13
;ВОССТАНОВИМ УКАЗАТЕЛИ НА СТАРУЮ ПРОГУ
POP HL
LD (E_LINE),HL
POP HL
LD (PROG),HL
POP HL
LD (SVARS),HL
LD HL,CODNAME
CALL SETNAME
LD HL,KUDACOD
POP DE ;длина
LD C,#B ;Create
JP #3D13
BASNAME DB "QC B" ;имя basic
CODNAME DB "QC C" ;имя code
SETNAME LD C,#13 ;УСТАНОВИМ ИМЯ ФАЙЛА
CALL #3D13
LD A,9 ;ПОИСК ПО 8+1 СИМВОЛАМ
LD (#5D06),A
LD C,#A ;Find
CALL #3D13
INC C
LD C,#12 ;Delete
CALL NZ,#3D13
RET
DISPLAY "Warning! After RUN project have been saved."
ENDIF
(здесь выкинута basic часть, считается что она скомпилирована в #5D3B, конец обозначен меткой BASEND).