mirror of
https://github.com/TomHarte/CLK.git
synced 2024-12-11 00:52:13 +00:00
201 lines
3.8 KiB
XML
201 lines
3.8 KiB
XML
;
|
|
; Fichier de script CSL
|
|
; Execution du module SHAKE26D du DSK SHAKER26.DSK en CRTC 0
|
|
; Le module genere des instructions au format SSM
|
|
;
|
|
csl_version 1.0
|
|
crtc_select 0
|
|
reset
|
|
wait 3000000
|
|
disk_insert 'shaker26.dsk'
|
|
key_delay 70000 70000 400000
|
|
key_output 'RUN"SHAKE26D"\(RET)'
|
|
wait 10000000
|
|
;
|
|
; SHAKER KILLER 2
|
|
key_output 'I'
|
|
wait 2000000 ; 2e3 ecran bleu
|
|
key_output ' '
|
|
wait 2000000 ; 2e4
|
|
key_output ' '
|
|
wait 2000000 ; 2e5
|
|
key_output ' '
|
|
wait 2000000 ; 2e6
|
|
key_output ' '
|
|
wait 2000000 ; 2e7
|
|
key_output ' '
|
|
wait 2000000 ; 2e8
|
|
key_output ' '
|
|
wait 2000000 ; 2e9
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; VSYNC TORTURE (LOCK MECHANISM)
|
|
; Eventuellement ajouter des SS sur les 3 tests desync crtc 0
|
|
key_output 'R'
|
|
wait 22000000 ; 2ea
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; VSYNC/CSYNC GATE ARRAY
|
|
key_output 'T'
|
|
wait 800000 ; 2eb
|
|
key_output ' '
|
|
wait 2000000 ; 2ec
|
|
key_output ' '
|
|
wait 2000000 ; 2ed
|
|
key_output ' '
|
|
wait 2000000 ; 2ee
|
|
key_output ' '
|
|
wait 2000000 ; 2ef
|
|
key_output ' '
|
|
wait 2000000 ; 2ef
|
|
key_output ' '
|
|
wait 2000000 ; 2f0
|
|
key_output ' '
|
|
wait 2000000 ; 2f1
|
|
key_output ' '
|
|
wait 2000000 ; 2f2
|
|
key_output ' '
|
|
wait 2000000 ; 2f3
|
|
key_output ' '
|
|
wait 2000000 ; 2f4
|
|
key_output ' '
|
|
wait 2000000 ; 2f5
|
|
key_output ' '
|
|
wait 2000000 ; 2fb
|
|
key_output ' '
|
|
wait 8000000 ; 2fc 2fd
|
|
key_output ' '
|
|
wait 4000000 ; 2fe
|
|
key_output ' '
|
|
wait 4000000 ; 2ff
|
|
key_output ' '
|
|
wait 4000000 ; 300
|
|
key_output ' '
|
|
wait 4000000 ; 301
|
|
key_output ' '
|
|
wait 1000000
|
|
key_delay 90000
|
|
key_output ' '
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
|
|
; HSYNC CSYNC GATE ARRAY
|
|
key_output 'H'
|
|
wait 1000000 ; 306
|
|
key_output ' '
|
|
wait 1200000 ; 307
|
|
key_output ' '
|
|
wait 1200000 ; 308
|
|
key_output ' '
|
|
wait 1200000 ; 309
|
|
key_output ' '
|
|
wait 1200000 ; 30A
|
|
key_output ' '
|
|
wait 1200000 ; 30B
|
|
key_output ' '
|
|
wait 1200000 ; 30C
|
|
key_output ' '
|
|
wait 1200000 ; 30D
|
|
key_output ' '
|
|
wait 1200000 ; 30E
|
|
key_output ' '
|
|
wait 1200000 ; 30F
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; CSYNC4 VS 2XCSYNC2
|
|
;
|
|
key_output '1'
|
|
wait 4600000 ; 310
|
|
wait 4000000 ; 311
|
|
wait 8000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; R2JIT >> NO CSYNC UPD
|
|
;
|
|
key_output '2'
|
|
wait 4500000 ; 312
|
|
wait 4000000 ; 313
|
|
wait 4000000
|
|
key_output ' '
|
|
wait 10000000
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
; 2 CSYNC RELATIVE;
|
|
key_output '3'
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
; CSYNC MULTIPLES
|
|
key_output '4'
|
|
wait 1000000 ; 37f
|
|
key_output ' '
|
|
wait 3000000 ; 380
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
; Hardware scroll 1 pixel mode 1/0 (no buffering)
|
|
key_output '6'
|
|
wait 10000000 ; 381
|
|
key_output ' '
|
|
wait 10000000 ; 382
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
;
|
|
; R2 oscillation story;
|
|
key_output '7'
|
|
wait 10000000 ; 383
|
|
key_output ' '
|
|
wait 4000000 ; 384
|
|
key_output ' '
|
|
wait 4000000 ; 385
|
|
key_output ' '
|
|
wait 4000000 ; 386
|
|
key_output ' '
|
|
wait 4000000 ; 387
|
|
key_output ' '
|
|
wait 4000000 ; 388
|
|
key_output ' '
|
|
wait 4000000 ; 389
|
|
key_output ' '
|
|
wait 4000000 ; 38a
|
|
key_output ' '
|
|
wait 4000000 ; 38b
|
|
key_output ' '
|
|
wait 4000000 ; 38c
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
;
|
|
; no hsync for xx line
|
|
key_output '8'
|
|
wait 3000000 ; 38d
|
|
key_output ' '
|
|
wait 3000000 ; 38e
|
|
key_output ' '
|
|
wait 3000000 ; 38f
|
|
key_output ' '
|
|
wait 3000000 ; 390
|
|
key_output ' '
|
|
wait 3000000 ; 391
|
|
key_output ' '
|
|
wait 3000000 ; 392
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
|
|
csl_load 'SHAKE26D-1' |