;
; 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'