mirror of
https://github.com/TomHarte/CLK.git
synced 2024-12-02 02:49:28 +00:00
286 lines
5.3 KiB
XML
286 lines
5.3 KiB
XML
;
|
|
; Fichier de script CSL
|
|
; Execution du module SHAKE26D du DSK SHAKER26.DSK en CRTC 4
|
|
; Le module genere des instructions au format SSM
|
|
;
|
|
csl_version 1.0
|
|
crtc_select 4
|
|
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
|
|
|
|
;
|
|
; CRTC 3/4 STATUS
|
|
key_output 'U'
|
|
wait 10000000 ; 3bc
|
|
key_output ' '
|
|
wait 10000000 ; 3bd
|
|
key_output ' '
|
|
wait 10000000 ; 3be
|
|
key_output ' '
|
|
wait 15000000 ; 3bf
|
|
key_output ' '
|
|
wait 45000000 ; 3c0
|
|
key_output ' '
|
|
wait 10000000 ; 3c1
|
|
key_output ' '
|
|
wait 4000000 ; 3c2
|
|
key_output ' '
|
|
wait 4000000 ; 3c3
|
|
key_output ' '
|
|
wait 4000000 ; 3c4
|
|
key_output ' '
|
|
wait 4000000 ; 3c5
|
|
key_output ' '
|
|
wait 4000000 ; 3c6
|
|
key_output ' '
|
|
wait 4000000 ; 3c7
|
|
key_output ' '
|
|
wait 4000000 ; 3c8
|
|
key_output ' '
|
|
wait 4000000 ; 3c9
|
|
key_output ' '
|
|
wait 4000000 ; 3ca
|
|
key_output ' '
|
|
wait 4000000 ; 3cb
|
|
key_output ' '
|
|
wait 4000000 ; 3cc
|
|
key_output ' '
|
|
wait 4000000 ; 3cd
|
|
key_output ' '
|
|
wait 4000000 ; 3ce
|
|
key_output ' '
|
|
wait 4000000 ; 3cf
|
|
key_output ' '
|
|
wait 4000000 ; 3d0
|
|
key_output ' '
|
|
wait 4000000 ; 3d1
|
|
key_output ' '
|
|
wait 4000000 ; 3d2
|
|
key_output ' '
|
|
wait 4000000 ; 3d3
|
|
key_output ' '
|
|
wait 4000000 ; 3d4
|
|
key_output ' '
|
|
wait 4000000 ; 3d5
|
|
key_output ' '
|
|
wait 4000000 ; 3d6
|
|
key_output ' '
|
|
wait 4000000 ; 3d7
|
|
key_output ' '
|
|
wait 4000000 ; 3d8
|
|
key_output ' '
|
|
wait 4000000 ; 3d9
|
|
key_output ' '
|
|
wait 4000000 ; 3da
|
|
key_output ' '
|
|
wait 4000000 ; 3db
|
|
key_output ' '
|
|
wait 4000000 ; 3dc
|
|
key_output ' '
|
|
wait 4000000 ; 3dd
|
|
key_output ' '
|
|
wait 4000000 ; 3de
|
|
key_output ' '
|
|
wait 4000000 ; 3df
|
|
key_output ' '
|
|
wait 4000000 ; 3e0
|
|
key_output ' '
|
|
wait 4000000 ; 3e1
|
|
key_output ' '
|
|
wait 4000000 ; 3e2
|
|
key_output ' '
|
|
wait 4000000 ; 3e3
|
|
key_output ' '
|
|
wait 4000000 ; 3e4
|
|
key_output ' '
|
|
wait 4000000 ; menu
|
|
|
|
csl_load 'SHAKE26D-3' |