//// imported
#include "../_sdk/io.h"
#include "../_sdk/str.h"
////
EXPORT VAR BOOL _cmts;
EXPORT VAR UINT _curlnbeg; //эюьхЁ ёЄЁюъш эр ьюьхэЄ эрўрыр Єюъхэр
EXPORT VAR PBYTE _ferr;
EXPORT VAR PBYTE _fvar;
EXPORT VAR BOOL _hints;
EXPORT VAR BOOL _errs;
VAR PBYTE _curfile;
PROC endhint FORWARD();
EXPORT VAR CHAR _m_fn[_STRLEN];
EXPORT VAR PCHAR _fn;
EXPORT VAR UINT _lenfn;
EXPORT VAR BOOL _wasdig;
EXPORT VAR CHAR _nbuf[6];
EXPORT VAR UINT _lennbuf;
VAR UINT _num;
EXPORT PROC emitdig(UINT d)
{
VAR BYTE dig;
dig = (BYTE)'0';
WHILE (_num >= d) {
_num = _num - d;
INC dig;
_wasdig = +TRUE;
};
IF (_wasdig) {
//_lennbuf = stradd(_nbuf, _lennbuf, (CHAR)dig);
_nbuf[_lennbuf] = (CHAR)dig;
INC _lennbuf;
};
}
EXPORT PROC emitn(UINT i)
{
_num = i;
_lennbuf = 0;
_wasdig = +TRUE;
IF (i != 0) {
_wasdig = +FALSE;
emitdig(10000);
emitdig(1000);
emitdig(100);
emitdig(10);
};
emitdig(1);
_nbuf[_lennbuf] = '\0'; //strclose(_nbuf, _lennbuf);
}
EXPORT PROC emituint(UINT i, PBYTE f)
{
emitn(i);
}
/////////////////////////////////////
//яЁюЎхфєЁ√ эшчъюую єЁютэ , т√ч√трхь√х ъюфюухэхЁрЄюЁюь
EXPORT PROC asmc(CHAR c)
{
writefout((BYTE)c);
}
EXPORT PROC asmstr(PCHAR s)
{
}
EXPORT PROC asmuint(UINT i)
{
emituint(i, _fout);
}
EXPORT PROC endasm()
{
writefout((BYTE)'\n');
}
/////////////////////////////////////
//яЁюЎхфєЁ√ эшчъюую єЁютэ , т√ч√трхь√х ъюьяшы ЄюЁюь ш ъюфюухэхЁрЄюЁюь
#ifdef USE_COMMENTS
;;EXPORT PROC cmt(CHAR c) {
;; IF (_cmts) writefout((BYTE)c);
;;}
;;EXPORT PROC cmtstr(PCHAR s) {
;; IF
(_cmts
) fputs(s
, _fout
); ;;}
;;EXPORT PROC cmtuint(UINT i) {
;; IF (_cmts) emituint(i, _fout);
;;}
;;EXPORT PROC endcmt() {
;; IF (_cmts) {
;; fputs(" ;Line=", _fout
); ;; emituint(_curlnbeg, _fout);
;; writefout(+(BYTE)'\n');
;; };
;;}
#endif //USE_COMMENTS
#ifdef USE_HINTS
;;EXPORT PROC hint(CHAR c) {
;; IF (_hints) writefout((BYTE)c);
;;}
;;EXPORT PROC hintstr(PCHAR s) {
;; IF
(_hints
) fputs(s
, _fout
); ;;}
;;EXPORT PROC hintuint(UINT i) {
;; IF (_hints) emituint(i, _fout);
;;}
;;EXPORT PROC endhint() {
;; IF (_hints) {
;; fputs(" ;Line=", _fout
); ;; emituint(_curlnbeg, _fout);
;; writefout(+(BYTE)'\n');
;; };
;;}
;;EXPORT PROC hinttype(PCHAR msg, BYTE t) {
;; hintstr("//"); hintstr(msg); hintstr(" type="); hintuint((UINT)t); endhint();
;;}
#endif //USE_HINTS
EXPORT PROC err(CHAR c)
{
IF (_errs) writebyte(_ferr, (BYTE)c);
}
EXPORT PROC errstr(PCHAR s)
{
IF
(_errs
) fputs(s
, _ferr
);}
EXPORT PROC erruint(UINT i)
{
IF (_errs) emituint(i, _ferr);
}
EXPORT PROC enderr()
{
IF (_errs) {
writebyte
(_ferr
, (BYTE
)';'); fputs(_fn
, _ferr
); fputs(" line=", _ferr
); emituint
(_curlnbeg
, _ferr
); writebyte(_ferr, (BYTE)'\n');
};
}
EXPORT PROC varc(CHAR c)
{
writebyte(_fvar, (BYTE)c);
}
EXPORT PROC varstr(PCHAR s)
{
}
EXPORT PROC varuint(UINT i)
{
emituint(i, _fvar);
}
EXPORT PROC endvar()
{
writebyte(_fvar, (BYTE)'\n');
}