Бэйсик

Таблица ключевых слов BASIC, расположенная с адреса 0104170:

LIST LET READ REM RUN RESTORE RETURN
DATA DIM DELETE PRINT GOSUB GOTO
IF FOR NEXT INPUT SAVE STOP END
DEF LOAD RANDOMIZE INIT KILL DRAW
DIS CLS LOCATE WAIT PLAY AUTO NAME
FILES ' DEV EDIT MEM BSAVE BLOAD
TRON TROFF CONT PATCH RESUME ON
RENUM NEW SYSTEM CALL TIME DATE
OPEN PUT GET CLOSE PAINT USR @

За таблицей ключевых слов идет таблица адресов переходов (листинг).

Например, ключевое слова INIT (форматирование картриджа, предваряемое сообщением "Вы уверены?" и ожиданием нажатия клавиши 'Y'):

...
155702 004767 176506                        call    154414
155706 122702 000131                        cmpb    #131, R2 ; 'Y'
155712 001103                               bne     loc_156122
...
(полный листинг)

Интерпретатор языка Бэйсик выполнен с применением команды TRAP. Это позволяет значительно экономить память на вызовах подпрограмм. Например, TRAP 66 - это вызов PUTSTR. Адрес строки - в R2. И т.д.


2005