ААА Патя на середину апреля

[goodboy]

поковыряв, получил таки заветные коды

молодец.
когда DrBars намекнул про чит в dizzy я понял что надо назначить кнопки движения особым образом.
чёткой проверки небыло, пришлось писать переборщик на бейсике.
запустил в турбо режиме и достаточно скоро посыпались подходящие слова.
как оказалось он выбрал какую-то бессмыслицу

[Titus]

ocsocc же )

Не гуглится)

[shurik-ua]

Не гуглится)

oscoss ))

Затупил сразу не написал - просто страницы 2-3 назад её активно ломали - и так и не доломали.

[BlastOff]

Я уже обрадовался - думал ААА вернулся А тут эвона как!

[Hacker VBI]

shurik-ua, впечатляешь
я когда-то потыкался, но ничего так и не понял.

робус говорил что заюзал защиту, которую пользовал для кода на работе

расскажи, как разломал?

[shurik-ua]

расскажи, как разломал?

небольшое howto

ставим бряк на 0x8aae - вызов функции хеширования строки
на выходе в DE - хеш

далее хеш и сама строка копируются по адресам
0х4397 hash
0х4399 string, zero terminated


далее ставим бряк на 0x406f
это главный цикл некоей виртуальной машины, которая обрабатывает придуманный автором пикод.
собственно по адресу 0x406f и стоит сам переход на нужную функцию в зависимости от опкода.

в HL - указатель на текущий опкод
в А - сам опкод
вот опкод который нас интересует
0х60 - сравнение хеша строки с аргументами в ленте пикода, и переход на адрес пикода если не равно.

вот все хеши с которыми идёт сравнение

hashes:
	0563	warning, need 128k mode
	31f8	ZUAF=AB		this is ending

	26c6	GREETINGS
	ea56	MORPHING
	1980	AAA
	0109	TITUS
	bc18	TETRIS
	032b	POP ROLLER
	3ba7	VNN
	08ef	DMM

опкод 0х05 по всей видимости - расшифровать блок
расшифровка - это простой XOR со строкой - поэтому даже зная хеш расшифровать блок не получится.
)) - так видимо задумывал автор, но он сделал маленькое упущение, которое заключается в том что после этой расшифровки первые 0x20
байт оказываются одинаковыми для всех частей )

для начала я проверил эту догадку, зная как раз два кода 'AAA' и 'VNN' - после

расшифровки они на выходе имеют такую хекс строку:

0C137025CFFB70B5
1FB57BC5FC738504
749563BC9BCF7D50
238C32CD1698D967

ну а дальше дело техники
1.подменяем хеш из списка
2.доходим до программы декcора - сохраняем зашифрованные 0х20 байт
3.ксорим их с хекс строкой выше
4.и получайм искомую строку )

shurik-ua, впечатляешь

спасибо, просто я иногда реверсю для х86 машин (иногда даже за деньги ) - а тут выяснилось что для такой простенькой машины как спек придумали чтото неломаемое ) - вот и захотелось посмотреть что же там такое намудрили ) - вдруг есть чтото чего я не знаю ).
Но оказалось всё довольно банально - виртуальные машины в защитах на ПЦ встречаются повсеместно (VMProtect, Themida и пр.) - а тут даже обфускации не было )

[Hacker VBI]

shurik-ua, нам надо будет с тобой забухать

[Alex Rider]

Я уже обрадовался - думал ААА вернулся

31.07.2017 ~01:00 ожидаем вероятного шоу по этому поводу.

[Nuts_]

чтобы не быть голословным http://www.pouet.net/prod.php?which=61311
витуальная машина это весьма интересно. сам мечтал сделать что-то подобное
однако увидев этот топик мне захотелось сделать запил...

[Robus]

)) - так видимо задумывал автор, но он сделал маленькое упущение, которое заключается в том что после этой расшифровки первые 0x20

Ха ... Я думал что Лёша выложил поправленную версию. Я заметил этот просчёт когда отправил ААА первую сборку. Видать вторая сборка не попала к нему. Эти 20 байт это вот эта строчка:

         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START

Да это мой промах был, лепил всё в кучу, и получилось, что первым всегда грузился один и тот же кусок. А выглядит текст первой сборки в компиляторе вот так:

;O-OPEN TRD                   "PATH\file"
;o-OPEN BOOT.B                "NAME.B"
;C-CLOSE TRD                  "PATH\file"
;L-LOAD                       "PATH\file",Start,Size
;U-LOAD/UNPACK                "PATH\file",Start,Size
;P-PAGE                       Page
;E-FLUSH & EXEC               Start
;R-REDEFINE CMD               "CMD",Value
;G-GoTo                       Label
;g-GoSub                      Label
;I-GoToIF                     A,<=>,B,Label
;i-GoSubIF                    A,<=>,B,Label
;T-RET
;l-Label
;K-Start Coding OUT DATA      CodingString
;k-End Coding OUT DATA

        ReDef   :"L","..\loados.inc"CMD.L
        ReDef   :"U","..\loados.inc"CMD.U
        ReDef   :"X","..\loados.inc"CMD.X
        ReDef   :"x","..\loados.inc"CMD.XX
        ReDef   :"E","..\loados.inc"CMD.E
        ReDef   :"P","..\loados.inc"CMD.P
        ReDef   :"G","..\loados.inc"CMD.G
        ReDef   :"g","..\loados.inc"CMD.GG
        ReDef   :"I","..\loados.inc"CMD.I
        ReDef   :"i","..\loados.inc"CMD.II
        ReDef   :"T","..\loados.inc"CMD.T
        ReDef   :1,"..\loados.inc"CMD.COM1
        ReDef   :2,"..\loados.inc"CMD.COM2
        ReDef   :3,"..\loados.inc"CMD.COM3
        ReDef   :4,"..\loados.inc"CMD.COM4
        ReDef   :5,"..\loados.inc"CMD.COM5
        ReDef   :6,"..\loados.inc"CMD.COM6
        ReDef   :"K","..\loados.inc"CMD.K

        OpenTRD :"..\oscoss.trd",1664
        OpenFile:"boot.B"

        StartKEY:"48"
         GoTo   :Loading48K
        StopKEY

;        StartKEY:"ASD"
;         Pack   :"test.cod","test.txt"START
;         Exec   :"test.txt"START
;        StopKEY


;        Load    :"..\DOS\dsq.bin","..\DOS\dosdsq.inc"DSQ.START

;LOA.PTR_MEM = 128 128K MODE
;LOA.PTR_MEM =  48  48K MODE
        GoToIF  :"..\loader.inc"LOA.PTR_MEM = 48, Loading48K


;A=0 - Uncnown Model
;A=1 - Pentagon
;A=2 - Spectrum 128
;A=3 - Scorpion
;A=4 - Spectrum Lvov
;A=5 - TURBO MODE
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 5,  LoadingTurboMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 0,  LoadingNeedPentagonMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 2,  LoadingNeedPentagonMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 3,  LoadingNeedPentagonMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 4,  LoadingNeedPentagonMode



;EPILOGUE
        StartKEY:"ZUAF=AB"
         Page    :"..\MODE\epilogue.txt"MUSIC.PAGE
         Pack    :"..\MODE\epilogue.mus","..\MODE\epilogue.txt"MUSIC.START
         Page    :17
         Load    :"..\MODE\epilogue.p17",49152
         Page    :19
         Load    :"..\MODE\epilogue.p19",49152
         Page    :20
         Load    :"..\MODE\epilogue.p20",49152
         Page    :16
         Pack    :"..\MODE\epilogue.cod","..\MODE\epilogue.txt"START
         Exec    :"..\MODE\epilogue.txt"START
        StopKEY



;HIDDEN-1
        StartKEY:"GREETINGS"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-1.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\idiotics.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\kumar.bin","..\MODE\hidden.txt"MUSIC.DATA
l:LabelHidEXEC
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-2
        StartKEY:"MORPHING"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-2.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level1.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level2.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-3
        StartKEY:"AAA"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-3.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level3.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level4.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-4
        StartKEY:"TITUS"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-4.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level5.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level6.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-5
        StartKEY:"TETRIS"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-5.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level7.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level8.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-6
        StartKEY:"POP ROLLER"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-6.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\move.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\never.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-7
        StartKEY:"VNN"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-7.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\poor.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\shaman.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-8
        StartKEY:"DMM"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-8.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\stick.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\percuss.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY


;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_RU.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end

l:MainLoading
        Page    :"..\MUSIC\jetset.txt"MUSIC.PAGE
        Pack    :"..\MUSIC\jetset.cod","..\iorq.inc"MUSIC.START
        GoSub   :XaraLoading
        Pack    :"..\CODE\iorq.cod","..\iorq.inc"IORQ.START
        Pack    :"..\CODE\main.cod","..\main.inc"MAIN.START
        Exec    :"..\iorq.inc"IORQ.START






;XARA PACKs
l:XaraLoading
;EFF FINISH ... Start Loader
;        XaraPack:"..\EFFECT\finish.bin"
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaFuckVAL0
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaFuckVAL1
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaFuckVAL2
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaFuckVAL3
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B00","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF JokerA
        XaraPack:"..\EFFECT\jokera.bin"
        XaraPack:"..\GRAPHICS\JOKER\jokera.bin"
;EFF Long Girl
;        XaraPack:"..\EFFECT\logr.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaGIRL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaGIRL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaGIRL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaGIRL1
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b00"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b01"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b02"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b03"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b04"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b05"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b06"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b07"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b08"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b09"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b0a"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_YI.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B01","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Long Girl MESSAGE
        XaraPack:"..\EFFECT\lomsg.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_IT.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF Life
        XaraPack:"..\EFFECT\life.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_a2.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_a1.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_a0.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__b.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__c.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__d.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__e.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__f.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_f0.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_HI.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B02","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF JokerB MackDonalds
        XaraPack:"..\EFFECT\jokerb.bin"
        XaraPack:"..\GRAPHICS\JOKER\jokerb.bic"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_FR.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B03","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Nude Mellona
        XaraPack:"..\EFFECT\nude.bin"
        XaraPack:"..\GRAPHICS\NUDE\melly-03.bin"
        XaraPack:"..\GRAPHICS\NUDE\melly-04.bin"
        XaraPack:"..\GRAPHICS\NUDE\melly-05.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_FI.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF SPACE SPACE SPACE SPACE SPACE SPACE EFF
;        Xara    :"..\EFFECT\_space_.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_UA.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B04","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Head
        XaraPack:"..\EFFECT\head.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LoaHEADA
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx2 = 1 ,LoaHEADB
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_PL.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B05","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Greetings
        XaraPack:"..\EFFECT\greets.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 0 ,LoaGREE0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 1 ,LoaGREE1
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 2 ,LoaGREE2
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 3 ,LoaGREE3
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 4 ,LoaGREE4
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 5 ,LoaGREE5
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 6 ,LoaGREE6
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 7 ,LoaGREE7
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_ES.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B06","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF WomanMan
        XaraPack:"..\EFFECT\wo_ma.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_DE.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF Multicolor Move
        XaraPack:"..\EFFECT\multic.bin"
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B07","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF ZebraGirl
        XaraPack:"..\EFFECT\zebra_g.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_EN.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B08","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF FINISH ... Start Loader
        XaraPack:"..\EFFECT\finish.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaFuckVAL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaFuckVAL1
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaFuckVAL2
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaFuckVAL3

;EFF Piano
;        XaraPack:"..\EFFECT\piano.bin"
;        Xara:"..\EFFECT\c_tnl.bin"
;        Xara:"..\EFFECT\c_tunel.bin"
;        Xara:"..\EFFECT\chunka.bin"
;        Xara:"..\EFFECT\mult_g.bin"
;        Xara:"..\EFFECT\thunka.bin"

;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B09","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP


        Return


l:LoaFuckVAL0
        XaraPack:"..\GRAPHICS\FUCK\fuck.bin"
        Return
l:LoaFuckVAL1
        XaraPack:"..\GRAPHICS\FUCK\luck.bin"
        Return
l:LoaFuckVAL2
        XaraPack:"..\GRAPHICS\FUCK\love.bin"
        Return
l:LoaFuckVAL3
        XaraPack:"..\GRAPHICS\FUCK\lovefuck.bin"
        Return

l:LoaGIRL0
        XaraPack:"..\EFFECT\logr.bin"
        Return
l:LoaGIRL1
        XaraPack:"..\EFFECT\logr1.bin"
        Return


l:LoaHEADA
        XaraPack:"..\EFFECT\head0.bin"
        XaraPack:"..\EFFECT\head3.bin"
        Return
l:LoaHEADB
        XaraPack:"..\EFFECT\head1.bin"
        XaraPack:"..\EFFECT\head2.bin"
        Return

l:LoaGREE0
        XaraPack:"..\QR-CODE\txt_o00.bin"
        Return
l:LoaGREE1
        XaraPack:"..\QR-CODE\txt_o01.bin"
        Return
l:LoaGREE2
        XaraPack:"..\QR-CODE\txt_o02.bin"
        Return
l:LoaGREE3
        XaraPack:"..\QR-CODE\txt_o03.bin"
        Return
l:LoaGREE4
        XaraPack:"..\QR-CODE\txt_o04.bin"
        Return
l:LoaGREE5
        XaraPack:"..\QR-CODE\txt_o05.bin"
        Return
l:LoaGREE6
        XaraPack:"..\QR-CODE\txt_o06.bin"
        Return
l:LoaGREE7
        XaraPack:"..\QR-CODE\txt_o07.bin"
        Return

l:Loading48K
        Load    :"..\MODE\warning.cod","..\MODE\warning.txt"START
        Pack    :"..\GRAPHICS\WARNING\48.bin","..\MODE\warning.txt"WARNDATA
        Exec    :"..\MODE\warning.txt"START
        Pack    :"..\MODE\starwars.cod","..\MODE\starwars.txt"START
        Exec    :"..\MODE\starwars.txt"START

l:LoadingTurboMode
        Load    :"..\MODE\warning.cod","..\MODE\warning.txt"START
        Pack    :"..\GRAPHICS\WARNING\turbo.bin","..\MODE\warning.txt"WARNDATA
        Exec    :"..\MODE\warning.txt"START
        Page    :"..\MODE\pianogir.txt"MUSIC.PAGE
        Pack    :"..\MODE\pianogir.mus","..\MODE\pianogir.txt"MUSIC.START
        Page    :"..\MODE\pianogir.txt"PIAG_P
        Pack    :"..\GRAPHICS\NINBER\piagirl.big","..\MODE\pianogir.txt"PIAG
        Page    :"..\MODE\pianogir.txt"PIAM_P
        Pack    :"..\GRAPHICS\NINBER\piagirl.bim","..\MODE\pianogir.txt"PIAM
        Page    :16
        Pack    :"..\MODE\pianogir.cod","..\MODE\pianogir.txt"START
        Exec    :"..\MODE\pianogir.txt"START

l:LoadingNeedPentagonMode
        Load    :"..\MODE\warning.cod","..\MODE\warning.txt"START
        Pack    :"..\GRAPHICS\WARNING\pentagon.bin","..\MODE\warning.txt"WARNDATA
        Exec    :"..\MODE\warning.txt"START
        Pack    :"..\MODE\needpent.cod","..\MODE\needpent.txt"START
        Exec    :"..\MODE\needpent.txt"START





;l:TestLoading
;
;        Pack    :"test.cod","test.txt"START
;        Exec    :"test.txt"START
;        Return

        CloseTRD:"---.trd"

        RenameFile:,"boot.B","OSCOSS.B"
        RenameFile:,"boot.B","OSCOSS.L"
        RenameFile:,"boot.B","OSCOSS.I"
        RenameFile:,"boot.B","OSCOSS.N"
        RenameFile:,"boot.B","OSCOSS.C"