COPY
Перейти к навигации
Перейти к поиску
COPY (копировать, читается «копи») — встроенное слово Каллисто. Копирует экран в новый блок.
COPY ( c1 c2 −− ) Копировать блок c1 в блок c2.
n m COPY копирует экран n на экран m
Ввод слова COPY
В режиме ЛАТ последовательно нажмите четыре клавиши С/П 5 6 ,
Реализация
В некоторых Фортах это команда редактора, но её удобно иметь в ядре.
3898 ;#COPY 3899 ; COPY ( c1 c2 −− ) Копировать блок c1 в блок c2. 3900 ; n m COPY копирует экран n на экран m 3901 ; Часто это команда редактора, но её удобно иметь в ядре. 3902 LCOPY: .DB 4 3903 .TEXT "COPY" ; ( откуда куда −− ) 3904 .DW LWORDS 3905 COPY: .DW CALL, SWAP, BLOCK,TWOM,STORE, UPDAT, BRAN,RFLUSH
Советская реализация
Юрий Семёнов приводит следующее определение слова COPY (стр. 33), как пример использования слова FLUSH:
: COPY ↔ ( в стеке m n ) BLOCK ( m и адрес первого байта буфера, куда считан экран с номером n) 2- ( m и адрес ячейки, где лежит номер экрана, хранящегося в буфере) ! ( очистка стека, номер экрана n заменён на m) UPDATE ( установка флага "спасения") FLUSH ; ( запись на диск)
Определение слова COPY в FORTH ИТЭФ тоже использует FLUSH:
HEAD 204Q,'COP',331Q,COPY,$COL ; COPY DW SWAP,BLOCK,CFA,STORE,UPDAT,FLUSH,SEMI
colorForth (cf2019.nasm 2019 Sep 14)
copy_: ; ( blk -- ) \ copy the given block (and shadow) to the currently displayed block (and shadow) cmp _TOS_, byte 0x0C ; below block 12 is machine code jc abort push edi push esi push ecx call blockToCellAddress ; source block shl _TOS_, 0x02 ; convert cell address to byte address mov esi, _TOS_ mov _TOS_, [ v_blk ] call blockToCellAddress ; destination block shl _TOS_, 0x02 ; convert cell address to byte address mov edi, _TOS_ mov ecx, 0x0200 rep movsd ; copy ecx 32 bit words from ds:esi to es:edi pop ecx pop esi pop edi _DROP_ ret
Ссылки
- Исходный текст слова COPY в Каллисто Классик 1.0
- КАК РАБОТАТЬ НА ФОРТЕ в книге Л.Броуди «Начальный курс программирования на языке Форт»
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |