Язык программирования Форт



Приложение Д. Ответы к упражнениям - часть 33


Выполнение программы ." делает то же самое для скомпилированных строк. )

Блок 154 [154 :0] ( Глава 15. Упражнения 8. 01 из 01 ) ( 1. ) : FACTORIAL ( n -- ) 1 SWAP 1+ 2 DO I * LOOP ; ( 2. ) : SHOWASCII ( n1 n2 -- ) 1+ SWAP DO I 3 .R I SPACE EMIT 3 SPACES LOOP ; : SHOWASCII ( n1 n2 -- ) SWAP DUP DUP 3 .R SPACE EMIT 3 SPACES 1+ SWAP OVER OVER UNTIL DROP ; : RGENERATIONS ( 0 1 -- n ) SWAP 1+ SWAP DUP + DUP 2000 < IF MYSELF ELSE DROP THEN ;

Блок 155 [155 :0] ( Глава 16. Упражнения 1. 01 из 03 ) ( 1. ) ( Z80 DROP E1 NEXT POP HL NEXT 8088 DROP 5B NEXT POP BX NEXT Z80 DUP E1 E5 E5 NEXT POP HL PUSH HL PUSH HL NEXT 8088 DUP 5B 53 53 NEXT POP BX PUSH BX PUSH BX NEXT Z80 OVER E1 D1 D5 E5 D5 NEXT POP HL POP DE PUSH DE PUSH HL PUSH DE NEXT 8088 OVER 5B 5A 52 53 52 NEXT POP BX POP DX PUSH DX PUSH BX PUSH DX NEXT

Блок 156 [156 :0] ( Глава 16. Упражнения 1. 02 из 03 ) ( 2. ) ( HEX ASSEMBLER ) ( Z80 CREATE TUCK HERE DUP 2- ! E1 C, D1 C, E5 C, D5 С, E5 С, NEXT 8088 CREATE TUCK HERE DUP 2- ! 5В С, 5A C, 53 С, 52 С, 53 C, NEXT ( 3. ) ( Z80 CREATE NIP HERE DUP 2- ! E1 C, D1 C, D5 C, NEXT 8088 CREATE NIP HERE DUP 2- ! 5В С, 5A С, 53 С, NEXT ) ( 4. ) DECIMAL ( ROT = POP HL POP DE EX [SP],HL PUSH DE PUSH HL NEXT SWAP = POP HL EX [SP],HL PUSH HL NEXT

Блок 157 [157 :0] ( Глава 16. Упражнения 1. 03 из 03 ) ( 5. ) ( -ROT = POP HL POP DE EX (SP),HL PUSH HL PUSH DE NEXT -ROT = POP AX POP BX POP CX PUSH BX PUSH CX PUSH AX NEXT ) ( 6.) ( Приращение указателя стека осуществлятся командой INC SР или эквивалентной.)

Блок 158 [158 :0] ( Глава 16. Упражнения 2. 01 из 04 ) ( 1. ) ( Z80 ) CODE DUP HL POP HL PUSH HL PUSH NEXT END-CODE CODE OVER HL POP DE POP DE PUSH HL PUSH DE PUSH NEXT END-CODE CODE ROT DE POP HL POP E3 C, ( HL SP EX ) DE PUSH HL PUSH NEXT END-CODE CODE 2DUP HL POP DE POP DE PUSH HL PUSH DE PUSH HL PUSH NEXT END-CODE CODE TUCK HL POP DE POP HL PUSH DE PUSH HL PUSH NEXT END-CODE CODE NIP HL POP DE POP HL PUSH NEXT END-CODE CODE -ROT HL POP DE POP E3 C, ( HL SP EX ) DE PUSH HL PUSH NEXT END-CODE




Содержание  Назад  Вперед