C/L

C/L (читается «си-дробь-эл») — фортовское слово Каллисто. Количество символов в одной строке экрана Каллисто.

C/L            ( -- 64 )                       Длина строки. Число 64.

Примитив C/L кладёт на стек число 64, длину строки экрана Каллисто.

Ввод слова C/L

В режиме ЛАТ последовательно нажмите клавиши  С/П     P   F   ÷     Р-ГРД-Г   − 

История

Название C/L происходит от английского «characters per line», что переводится как «символов в строке».

Длина строки в 64 символа взята в Каллисто из Форта. Это значительно упрощает перенос экранов Форта на Каллисто, но несколько усложняет совместимость со встроенной программой, редактор которой полагает длину строки равной 24 символам.

Реализация

Слово C/L делает шитый код короче и быстрее. C/L засылает в стек 64 в обход механизма литералов. Это также ускоряет время компиляции программы, существенный плюс для Каллисто.

2691 ;#CDivL
2692 ; C/L              ( −− 64 )                            Длина строки. Число 64.
2693 LCL0:           .DB     3
2694                 .TEXT   "C/L"                   ; ( −− 64 )
2695                 .DW     LBL                     ; Количество литер в одной строке экрана Форта.
2696 LIT64:          .DW SCONP,64                    ; CHAR# PER LINE, осторожней, иногда исп. как 64

Реализация из SP-Forth 4.20:

1024  VALUE  C/L \ максимальный размер строки, которую можно ввести в TIB

Советская реализация

Определение константы C/L в FORTH ИТЭФ:

            HEAD     202Q,'C',314Q,$CL,$CON               ; C/L
            DW 64   ;CHAR# PER LINE

Ссылки

• Исходный текст слова C/L в Каллисто Классик 1.0

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.