Screen Compress

ЭКРАН КОМПРЕСС

Лука Раска

Единственное предложение я получил, было это собрание предложение, так что вместо

работать его как дамп (Ох! все эти циркулирующие байт!), я установка вызов в этом месяце, чтобы улучшить упаковку экрана это рутина. Вы можете написать свой собственный с нуля, если вы хотите. Послать эти и любые другие блестящие программы и подпрограммы, чтобы: Программы Pitstop, Ваше Синклер, 14 Рэтбоун Place, London W1P 1DE. Это так!

Увидимся!

Экран Сжатие

Вот довольно простой сжатия экран подпрограмма от Luca Раска. Она сканирует через экран и сохраняет сжатую версию на 50000. Она делает это путем принятия к сведению все нули и регистрации, как многие это находит. Так он сканирует по экрану не найти 255s которые часто так часто, как нулей. Но вот это:

Листинг Ассамблея

0000 00000; Экран Сжатие 0000 00000; Лука Раска 0000 00000; от Your Sinclair, Feb’88 0000 00000; 0000 00000; я добавил финиша шаг к 0000 00000; загрузить до н.э. с конечным адресом, 0000 00000; так что USR 65200-50000 будет 0000 00000; дать сжатый экран 0000 00000; длина. [JimG] 0000 00000 орг 65200 FEB0 210040 00000 КОМП LD HL, 16384 FEB3 1150C3 00000 LD DE, 50000 FEB6 7E 00000 LOOP1 LD, (гл) FEB7 A7 00000 и FEB8 12 00000 LD (де), FEB9 280A 00000 младший г, ZERO FEBB 23 00000 INC HL FEBC 13 00000 CONT вкл де FEBD 3E5B 00000 LD, 91 FEBF BC 00000 ф ч FEC0 20F4 00000 JR NZ, LOOP1

FEC8 3E5B 00000 LD, 91 FECA BC 00000 ф ч FECB 79 00000 LD A, C FECC 12 00000 LD (де), FECD 28F3 00000 младший г, ОТДЕЛКА FECF AF 00000 исключающее FED0 BE 00000 ф (гл) FED1 20E9 00000 JR NZ, CONT FED3 0C 00000 вкл с FED4 20F1 00000 JR NZ, LOOP2 FED6 18E4 00000 младший CONT FED8 00000; FED8 00000 орг 65248 FEE0 F3 00000 Увеличить ди Плата1 110040 00000 LD DE, 16384 FEE4 2150C3 00000 LD HL, 50000 FEE7 7E 00000 Loop3 LD, (гл) FEE8 A7 00000 и Стоимость9 12 00000 LD (де), FEEA 2009 00000 JR NZ, RICONT ДЭК 23 00000 INC HL FEED 46 00000 LD B, (гл) FEEE B8 00000 ф б FEEF 2804 00000 младший г, RICONT FEF1 13 00000 LOOP4 вкл де FeF2 12 00000 LD (де), FeF3 10FC 00000 DJNZ LOOP4 FEF5 13 00000 RICONT вкл де FEF6 23 00000 INC HL FEF7 3E5B 00000 LD, 91 FEF9 BA 00000 ф d FEFA 20EB 00000 JR NZ, Loop3 FEFC FB 00000 е

ДФО C9 00000 в отставке