Pobranie adresu symbolu Sparta Dos X
Zadaniem funkcji FSYMBOL() autorstwa kolegi Lizard-a jest pobranie adresu symbolu z tablicy symboli Sparta Dos X. W parametrach przekazywanych do funkcji podajemy nazwę symbolu oraz adres zmiennej, do której zostanie przekazany rodzaj pamięci wskazywany przez symbol – główna albo rozszerzona. FSYMBOL() zwraca adres symbolu albo 0 (zero), jeśli wskazany symbol nie został odnaleziony. Do zmiennej M wpisywany jest rodzaj pamięci.
Symbol jest 8 znakową tablicą, więc przy poszukiwaniu symbolu krótszego niż 8 znaków brakujące znaki dopełniamy spacjami.
CARD FUNC FSYMBOL=*(BYTE ARRAY S BYTE POINTER M) ; Lizard
[$A284$6918$9001$E801$EB20$D007$A903$AA00$A085$A186$A098$9100$60A2]
Przykład: poszukiwanie symbolu VBXEBASE wskazującego na adres bazowy karty VBXE
PROC Main()
BYTE M
CARD Symbol
Symbol=FSymbol(„VBXEBASE” , @M)
IF Symbol THEN PrintCE(Symbol) PrintBE(M)
ELSE PrintE(„Brak symbolu”) FI
Listę symboli w Sparta Dos X wypisuje polecenie SL.