ZXDEMOS.RU

Diman 2
https://zxaaa.net/view_demo.php?id=5475

Программа написана на Gens'e
Сама то программа манюсенькая, но автор, может для солидности, решил сначала проверить на 128k и если нету, то сброс, а потом и выгрузил херзнает сколько непакованной памяти вместе с генсом...
Вот в памяти лежит листинг программы:
[spoiler] CALL 25006
LD SP,22+31
JP ST
ORG 45043
LD SP,22+31
LD BC,32765
LD A,%00010001
OUT (C),A
JP 52000

EC BC
LD A,B
OR C
JR NZ,CONT1
CONT2 LD SP,16384+25

ORG 40000
A7
HALT
ST1 LD A,#7F
IN A,(254)
BIT 0,A
JP Z,CONT
B1 LD A,2
DEC A
LD (B1+1),A
JP NZ,CONT
LD A,3
LD (B1+1),A
SCR LD B,0
LD HL,#41E8
LD DE,#40E8
LD C,16
LDIR
LD HL,#42E8
LD DE,#41E8
LD C,16
LDIR
LD HL,#43E8
LD DE,#42E8
LD C,16
LDIR
LD HL,#44E8
LD DE,#43E8
LD C,16
LDIR
LD HL,#45E8
LD DE,#44E8
LD C,16
LDIR
LD HL,#46E8
LD DE,#45E8
LD C,16
LDIR
LD HL,#47E8
LD DE,#46E8
LD C,16
LDIR
LD HL,#4808
LD DE,#47E8
LD C,16
LDIR
LD HL,#4908
LD DE,#4808
LD C,16
LDIR
LD HL,#4A08
LD DE,#4908
LD C,16
LDIR
LD HL,#4B08
LD DE,#4A08
LD C,16
LDIR
LD HL,#4C08
LD DE,#4B08
LD C,16
LDIR
LD HL,#4D08
LD DE,#4C08
LD C,#10
LDIR
LD HL,#4E08
LD DE,#4D08
LD C,16
LDIR
LD HL,#4F08
LD DE,#4E08
LD C,16
LDIR
LD HL,#4828
LD DE,#4F08
LD C,16
LDIR
LD HL,#4928
LD DE,#4828
LD C,16
LDIR
LD HL,#4A28
LD DE,#4928
LD C,16
LDIR
LD HL,#4B28
LD DE,#4A28
LD C,16
LDIR
LD HL,#4C28
LD DE,#4B28
LD C,16
LDIR
LD HL,#4D28
LD DE,#4C28
LD C,#10
LDIR
LD HL,#4E28
LD DE,#4D28
LD C,#10
LDIR
LD HL,#4F28
LD DE,#4E28
LD C,#10
LDIR
LD HL,#4848
LD DE,#4F28
LD C,#10
LDIR
LD HL,#4948
LD DE,#4848
LD C,#10
LDIR
LD HL,#4A48
LD DE,#4948
LD C,#10
LDIR
LD HL,#4B48
LD DE,#4A48
LD C,#10
LDIR
LD HL,#4C48
LD DE,#4B48
LD C,#10
LDIR
LD HL,#4D48
LD DE,#4C48
LD C,#10
LDIR
LD HL,#4E48
LD DE,#4D48
LD C,#10
LDIR
LD HL,#4F48
LD DE,#4E48
LD C,#10
LDIR
LD HL,#4868
LD DE,#4F48
LD C,#10
LDIR
LD HL,#4968
LD DE,#4868
LD C,#10
LDIR
LD HL,#4A68
LD DE,#4968
LD C,#10
LDIR
LD HL,#4B68
LD DE,#4A68
LD C,#10
LDIR
LD HL,#4C68
LD DE,#4B68
LD C,#10
LDIR
LD HL,#4D68
LD DE,#4C68
LD C,#10
LDIR
LD HL,#4E68
LD DE,#4D68
LD C,#10
LDIR
LD HL,#4F68
LD DE,#4E68
LD C,#10
LDIR
LD HL,#4888
LD DE,#4F68
LD C,#10
LDIR
LD HL,#4988
LD DE,#4888
LD C,#10
LDIR
LD HL,#4A88
LD DE,#4988
LD C,#10
LDIR
LD HL,#4B88
LD DE,#4A88
LD C,#10
LDIR
LD HL,#4C88
LD DE,#4B88
LD C,#10
LDIR
LD HL,#4D88
LD DE,#4C88
LD C,#10
LDIR
LD HL,#4E88
LD DE,#4D88
LD C,#10
LDIR
LD HL,#4F88
LD DE,#4E88
LD C,#10
LDIR
LD HL,#48A8
LD DE,#4F88
LD C,#10
LDIR
LD HL,#49A8
LD DE,#48A8
LD C,#10
LDIR
LD HL,#4AA8
LD DE,#49A8
LD C,#10
LDIR
LD HL,#4BA8
LD DE,#4AA8
LD C,#10
LDIR
LD HL,#4CA8
LD DE,#4BA8
LD C,#10
LDIR
LD HL,#4DA8
LD DE,#4CA8
LD C,#10
LDIR
LD HL,#4EA8
LD DE,#4DA8
LD C,#10
LDIR
LD HL,#4FA8
LD DE,#4EA8
LD C,#10
LDIR
LD HL,#48C8
LD DE,#4FA8
LD C,#10
LDIR
LD HL,#49C8
LD DE,#48C8
LD C,#10
LDIR
LD HL,#4AC8
LD DE,#49C8
LD C,#10
LDIR
LD HL,#4BC8
LD DE,#4AC8
LD C,#10
LDIR
LD HL,#4CC8
LD DE,#4BC8
LD C,#10
LDIR
LD HL,#4DC8
LD DE,#4CC8
LD C,#10
LDIR
LD HL,#4EC8
LD DE,#4DC8
LD C,#10
LDIR
LD HL,#4FC8
LD DE,#4EC8
LD C,#10
LDIR
LD A,7
INC A
AND 7
LD (A1+1),A
LD BC,41000
ADD A,C
LD C,A
JR NC,A2
INC B
LD DE,#4FC8
LD A,16
EX AF,AF'
LD A,(IY+0)
OR A
JR NZ,A6
LD IY,46000
JR A4
A6 SUB 32
LD L,A
LD H,0
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,BC
LDI
INC BC
LD A,(A4+2)
INC A
LD (A4+2),A
EX AF,AF'
DEC A
JR NZ,A3
XOR A
LD (A4+2),A
A7 LD A,0
INC A
AND 7
LD (A7+1),A
JR NZ,CONT2
LD DE,16
ADD IY,DE
CONT LD BC,140
CONT1 DEC BC
LD A,B
OR C
JR NZ,CONT1
CONT2 LD SP,16384+25
CALL 25006
LD SP,22+31
JP ST
ORG 45043
LD SP,22+31
LD BC,32765
LD A,%00010001
OUT (C),A
JP 52000[/spoiler]

Текст скролла (под спойлером, так как сильно длинная простыня получилась):

Код: Выделить всё

 ПРИВЕТ ДИМАН ! 
НУ, ВОТ, И ВЫШЛА
  В СВЕТ НОВАЯ  
  ПРОГРАММА ИЗ  
      СЕРИИ     
````````````````
'ТЫ МНЕ, Я ТЕБЕ'
````````````````
%%%%%%%%%%%%%%%%
 (КСТАТИ СКАЖУ  
 СРАЗУ: ЕСЛИ НЕ 
УСПЕВАЕШЬ ЧИТАТЬ
ТО НАЖМИ КЛАВИШУ
     SPACE     )
%%%%%%%%%%%%%%%%
НУ, ЧТО СКАЗАТЬ 
     О ТВОЕЙ    
   ПРЕДЫДУЩЕЙ   
   ПРОГРАММЕ ?  
ЗРЯ, КОНЕЧНО, ТЫ
 ВЫДРАЛ И ШРИФТ,
И ГРАФИКУ, И,ВСЕ
   (ПОЧТИ ВСЕ)  
 ОСТАЛЬНОЕ  ИЗ  
МОЕЙ ПРОГРАММЫ ,
НО Я ПОНИМАЮ,ЧТО
 ТЫ ПИСАЛ НЕ У  
СЕБЯ,А У ВАДИМА.
 ВСЕЖЕ ХОЧЕТСЯ  
  ЧЕГО НИБУДЬ   
 БОЛЕЕ ЛУТЬШЕГО 
 Я НАДЕЮСЬ, ЧТО 
 СЛЕДУЮЩАЯ ТВОЯ 
ПРОГРАММА (ЕСЛИ,
  КОНЕЧНО, ОНА  
ВООБЩЕ ПОЯВИТСЯ)
БУДЕТ ИМЕТЬ СВОЙ
ШРИФТ И ГРАФИКУ.
 ДА , И НАСЧЕТ  
FUCK'ОВ В  ТВОЕЙ
 ПРОГРАММЕ  :   
ПРОЧИТАЙ ЕЩЕ РАЗ
  SATISFACTION  
    MEGADEMO    
################
НУ,ТЕПЕРЬ О МОЕЙ
ПРОГРАММЕ: ТЕКСТ
КАК-ВСЕГДА НАБИ-
ВАЕТСЯ В BASIC'Е
НО, УЖЕ В БОЛЕЕ 
СОВЕРШЕННОМ ВИДЕ
(ИЗМЕНЕН ШРИФТ).
ГРАФИКА ЛЮБЕЗНО 
 ПРЕДОСТАВЛЕНА  
ФИРМОЙ 'WEE-ART'
 НУ , А МУЗЫКА  
ВЫДРАНА ВАДИМОМ 
ИЗ SPECTROFON'А 
НОМЕР 10 ( И ПО-
МОЕМУ ОНА ОЧЕНЬ 
ПОДХОДИТ ПОД МОЮ
 ПРОГРАММУ).    
 ТЕПЕРЬ О ТВОЕМ 
ЗАДАНИИ НА ЭТОТ 
РАЗ:ТЫ НИЧЕГО НЕ
ДОЛЖЕН ВЫДИРАТЬ,
А ДОЛЖЕН ПРОСТО 
  ВСКРЫТЬ ЭТУ   
  ПРОГРАММУ И   
ПЕРЕПИСАТЬ ТЕКСТ
КОТОРЫЙ ВПИСАН В
МЕСТО НАДПИСИ : 
    SONG BY     
  ST COMPILER   
________________
 ЗА ЭТО Я ТЕБЕ  
 НИЧЕГО НЕДАМ,  
 Т.К. У МЕНЯ И  
 ТАК НИЧЕГО НЕТ,
НО Я НЕВЕРЮ, ЧТО
  ТЫ НЕСТАНЕШЬ  
 ВСКРЫВАТЬ ЭТО  
  ПРОИЗВЕДЕНИЕ. 
 НО, Я СЛЕГКА   
ПОМУЧЕЛСЯ,ЧТО-БЫ
  ЗАЩИТИТЬ ЭТУ  
     ШТУКУ.     
________________
 ТЕПЕРЬ ПЕРЕЙДУ 
 К СЛЕДУЮЩЕЙ ЧА-
 СТИ ПРОГРАММЫ -
  К ПРИВЕТАМ.   
################
################
%%%%%%%%%%%%%%%%
1.ПРИВЕТ WEE-ART
ОГРОМНОЕ СПАСИБО
 ТЕБЕ ЗА КРУТУЮ 
    ГРАФИКУ ,   
  В КРОТЧАЙШИЕ  
     СРОКИ      
%%%%%%%%%%%%%%%%
________________
%%%%%%%%%%%%%%%%
2.ПРИВЕТ ДЕНИС. 
  НАКОНЕЦТО ТЫ  
 ЗАРАБОТАЛ СВОЕ 
 'СПАСИБО', САМ 
 ЗНАЕШЬ ЗА ЧТО. 
КАК ТАМ ПОЖИВАЕТ
ТВОЙ 'ASSEMBLER'
     УЧИШЬ ?    
Я ДУМАЮ ЧТО ТЕБЕ
 ПОРА ПРИДУМАТЬ 
 НАЗВАНИЕ СВОЕЙ 
ФИРМЫ.КАК НАСЧЕТ
  'WEE SOFT' ?  
  ( ТОЛЬКО  НЕ- 
  СПРАШИВАЙ КАК 
ЭТО ПЕРЕВОДИТСЯ)
%%%%%%%%%%%%%%%%
________________
%%%%%%%%%%%%%%%%
3.ПРИВЕТ ВАДИМ. 
СПАСИБО ТЕБЕ ЗА 
ПОМОЩЬ ПРИ ИЗГО-
ТОВЛЕНИИ ПРОГ-  
РАММЫ 'SERGEJ'. 
НО,ВСЕЖЕ,ГРАФИКУ
МОЖНО БЫЛО ПЕРЕ-
ДЕЛАТЬ И ПОЛУТЬ-
ШЕ.(Я ИМЕЮ ВВЕДУ
ИНИЦЫАЛЫ, НАПИ- 
САННЫЕ НА ДАЛЬ- 
   НЕМ ПЛАНЕ)   
%%%%%%%%%%%%%%%%
________________
%%%%%%%%%%%%%%%%
  4.ПРИВЕТ МОЙ  
БРАТ.НАДЕЮСЬ ЧТО
   ПОСЛЕ ЭТОЙ   
 ПРОГРАММЫ ТЕБЕ 
СТАНЕТ СТЫДНО И 
СОВЕСТНО.(Я ИМЕЮ
ВВИДУ НАЛИЧИЕ, А
 ТОЧНЕЕ ОТСУТСТ-
    ВИЕ НАШЕЙ   
    ЭМБЛЕММЫ)   
%%%%%%%%%%%%%%%%
________________
%%%%%%%%%%%%%%%%
5.ПРИВЕТ ВОВКА. 
ЧТО-ТО ТЫ ДАВНО 
 НЕ ЗАХОДИШЬ ?  
  ЛИБО ЗАБЫЛ О  
 СУЩЕСТВОВАНИИ  
ФИРМЫ'ОГПУ SOFT'
%%%%%%%%%%%%%%%%
________________
%%%%%%%%%%%%%%%%
 6.ПРИВЕТ ВСЕМ  
ЛЮДЯМ,СЛУЖАЩИМ В
     АРМИИ.     
  VVS, КОГДА ЖЕ 
    ДЕМБЕЛЬ ?   
%%%%%%%%%%%%%%%%
 НУ, ОСТАЛОСЬ 2 
СКРОМНЫХ ПРИВЕТА
%%%%%%%%%%%%%%%%
7. ПРИВЕТ ТЕБЕ. 
%%%%%%%%%%%%%%%%
________________
%%%%%%%%%%%%%%%%
8. ПРИВЕТ МНЕ.  
%%%%%%%%%%%%%%%%
````````````````
````````````````
%%%%%%%%%%%%%%%%
                
ТАК ВОТ, ДИМАН, 
 ЕСЛИ ТЫ ХОЧЕШЬ 
ПРОДОЛЖЕНИЯ ЭТОЙ
СЕРИИ ПРОГРАММ, 
 ТО, ТЫ ДОЛЖЕН  
НАПИСАТЬ ПРОДОЛ-
ЖЕНИЕ, А ЗА МНОЙ
ДЕЛО НЕ ПОСТОИТ.
 ВДРУГ И ДЕНИС  
 ЗАЙМЕТСЯ ЭТИМ  
    ДЕЛОМ ?     
________________
 ПРИ НАПИСАНИИ  
ЭТОЙ ПРОГРАММЫ  
 ИСПОЛЬЗОВАЛИСЬ 
  ТАКИЕ ВЕЩИ :  
1.              
ST SONG COMPILER
                
2.              
    BASIC 48    
                
3.              
 TR-DOS  V.5.03 
                
4.              
    GENS 4D     
                
5.              
     FOXMON     
                
6.              
 SPRITE EDITOR 2
                
7.              
 ART STUDIO 128 
                
________________
                
 ОГПУ SOFT 1995
 6.22  11.35 AM 
                
                
                
                
                
                
                
                
                
                
                
P.S. NO MAGIC   
                
                
                
                
                
                
                
                
                
P.P.S.          
ИНТЕРНАЦИОНАЛЬ- 
НЫЙ ЛОЗУНГ :    
'   ЛЮДИ !!!    
 БЕРЕГИТЕ СВОИ  
КОМПЬЮТЕРЫ, А ТО
БУДЕТЕ МУЧИТЬСЯ 
    КАК Я '     
                
                
                
                
                
                
                
                
                
                
                
P.P.P.S.        
ДЛИНА ТЕКСТА:   
    4368 БАЙТ