func doStart()
gvar(BLK_POST_IMP,BLK_POST_PRIV,BLK_POST_PUBL)
var(old)

BLK_POST_IMP=block.reggen()
BLK_POST_PRIV=block.reggen()
BLK_POST_PUBL=block.reggen()


trace("Начало компиляции")


block.select(block.reggen())
println('unit HiAsmUnit;')
println('')
println('interface')
println('')
println('uses ',code(uses),' ;')
Println('')
Println('type')
Println(' THiAsmClass = class(TDebug)')
Println('')
Println(' Private')
block.select(BLK_POST_PRIV)

Event(onPrivate)
Println('')
Println(' Public')
block.select(BLK_POST_PUBL)

Event(onPublic)
Println('end;')
Println('')
Event(onFunc)
Println('')
Println('implementation')
block.select(BLK_POST_IMP)

Println('')
println('end.')
trace("Компиляция завершена!!!")
Event(onNext)

end

func doWVPoint(data)
fvar(old)
block.reg(BLK_PUBL)
block.reg(BLK_PRIV)

old = block.select(BLK_PRIV)
Println(' Procedure ',code(WVpoint),'(var _Data:TData; Index:Word);')
block.copyhere(BLK_POST_IMP)

block.select(BLK_PRIV)
Println('Procedure THiAsmClass.',code(WVpoint),';')
block.copyhere(BLK_POST_PUBL)
block.select(old)
Event(onVWPoint)
end

end.


Public

end;


implementation

unit HiAsmUnit;

interface

uses kol,Share,Debug ;

type
THiAsmClass = class(TDebug)

Private


Procedure doWork(var _Data:TData; Index:Word);

end.
Procedure THiAsmClass.avar1;
end;


implementation