Top secrets sources NedoPC pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?


;LAST UPDATE: 12.09.2019 savelij

; ᮧ¤ ­¨¥ â ¡«¨æë ᬥ饭¨© ¤«ï  ¢â®­ áâனª¨ ­   ¤à¥á  § ¯ã᪠

; ¨­¨æ¨ «¨§ æ¨ï ¯¥à¥¬¥­­®© ¤«ï £¥­¥à æ¨¨ â ¡«¨æë ᬥ饭¨©
INIT_GETADR     MACRO NAME
NAME_DIGIT := 0
        IF MOMPASS = 1
NAME_DIGITMAX := NAME_DIGIT
        ENDIF
                ENDM

; £¥­¥à æ¨ï ¨¬¥­¨ ¯¥à¥¬¥­­®© ¤«ï â ¡«¨æë ᬥ饭¨©
GETADR          MACRO NAME
$$dIgIt1 := CHARFROMSTR("\{NAME_DIGIT >> 12}",0)
$$dIgIt2 := CHARFROMSTR("\{NAME_DIGIT >> 8}",0)
$$dIgIt3 := CHARFROMSTR("\{NAME_DIGIT >> 4}",0)
$$dIgIt4 := CHARFROMSTR("\{NAME_DIGIT & 0X0F}",0)
$$dIgIt0 := "\{$$dIgIt1}\{$$dIgIt2}\{$$dIgIt3}\{$$dIgIt4}"
NAME_{$$dIgIt0} EQU $-2
NAME_DIGIT := NAME_DIGIT+1
        IF NAME_DIGITMAX < NAME_DIGIT
NAME_DIGITMAX := NAME_DIGITMAX + 1
        ENDIF
                ENDM

; £¥­¥à æ¨ï â ¡«¨æë ᬥ饭¨©
PUTADR          MACRO NAME
NAME_TMPDIGIT := 0
                REPT NAME_DIGITMAX
$$dIgIt1 := CHARFROMSTR("\{NAME_TMPDIGIT >> 12}",0)
$$dIgIt2 := CHARFROMSTR("\{NAME_TMPDIGIT >> 8}",0)
$$dIgIt3 := CHARFROMSTR("\{NAME_TMPDIGIT >> 4}",0)
$$dIgIt4 := CHARFROMSTR("\{NAME_TMPDIGIT & 0X0F}",0)
$$dIgIt0 := "\{$$dIgIt1}\{$$dIgIt2}\{$$dIgIt3}\{$$dIgIt4}"
                DW NAME_{$$dIgIt0}
NAME_TMPDIGIT := NAME_TMPDIGIT+1
                ENDM
                ENDM