mirror of
https://github.com/TomHarte/CLK.git
synced 2024-12-02 02:49:28 +00:00
390 lines
7.8 KiB
XML
390 lines
7.8 KiB
XML
;
|
|
; Fichier de script CSL
|
|
; Execution du module SHAKE26B 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"SHAKE26B"\(RET)'
|
|
wait 10000000
|
|
;
|
|
; test 1 interlace c4/c9 counters R9 base=07 Parity Odd
|
|
key_output '1'
|
|
wait 5000000 ; Ecran settings, ecran intermediaire
|
|
wait 7000000 ; 1er ecran
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; menu
|
|
key_output 'Y' ; bascule sur parity Even (R9 Base=7)
|
|
wait 300000
|
|
;
|
|
key_output '1'
|
|
wait 5000000 ; Ecran settings, ecran intermediaire
|
|
wait 7000000 ; 1er ecran
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; menu
|
|
key_output 'Z' ; Passe sur R9 BASE=6 (parity Even)
|
|
wait 300000
|
|
;
|
|
key_output '1'
|
|
wait 5000000 ; Ecran settings, ecran intermediaire
|
|
wait 7000000 ; 1er ecran
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; menu
|
|
;
|
|
key_output 'Y' ; bascule sur parity Odd (R9 base=6)
|
|
wait 300000
|
|
key_output '1'
|
|
wait 5000000 ; Ecran settings, ecran intermediaire
|
|
wait 7000000 ; 1er ecran
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; 5251584
|
|
key_output ' '
|
|
wait 7000000 ; menu
|
|
;
|
|
; test 9 (garder la foi tu dois, mecreant)
|
|
key_output '9' ; En Odd
|
|
wait 20000000 ;
|
|
key_output ' '
|
|
wait 20000000
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'Y' ; Repasser en Even
|
|
wait 100000
|
|
key_output '9' ; En even
|
|
wait 20000000 ;
|
|
key_output ' '
|
|
wait 20000000
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output '0' ; vertical sub pixel scroll
|
|
wait 1000000 ; 816677 1/8
|
|
key_output ' '
|
|
wait 1000000 ; 890842 1/16
|
|
key_output ' '
|
|
wait 1000000 ; 830950 1/32
|
|
key_output ' '
|
|
wait 1000000 ; 870899 1/64
|
|
key_output ' '
|
|
wait 1000000 ; 830965 1/128
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
;
|
|
;
|
|
key_output '4' ;
|
|
wait 2000000 ; 1913669
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 900000 ; 730624
|
|
key_output ' '
|
|
wait 1000000 ;
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
;
|
|
key_output '5' ; rlal crtc 2 (tous crtc)
|
|
wait 900000
|
|
key_output ' '
|
|
wait 2000000
|
|
key_output ' ' ; Menu
|
|
wait 1000000
|
|
;
|
|
;
|
|
key_output '\(RET)'
|
|
wait 800000 ; 632429
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
key_output ' '
|
|
wait 800000 ; 647344
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
key_output ' '
|
|
wait 800000 ; 667312
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
;Test Bounga
|
|
key_output '\(FN0)'
|
|
wait 30000000 ; ???
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
; Test RVNI LTD
|
|
;
|
|
key_output '\(CAP)'
|
|
wait 6000000 ; 753563
|
|
key_output ' '
|
|
wait 6000000 ; 727728
|
|
key_output ' '
|
|
wait 6000000 ; 728880
|
|
key_output ' '
|
|
wait 6000000
|
|
;
|
|
; Shaker Killer Don't be afraid
|
|
;
|
|
key_output 'R'
|
|
wait 5000000 ; 2615301 z80aintb
|
|
key_output ' '
|
|
wait 6000000 ; 4692484 r52Reset
|
|
key_output ' '
|
|
wait 9000000 ; 7867387 Inter Test IM1
|
|
key_output ' '
|
|
wait 9000000 ; 6888966 Inter Test IM2
|
|
key_output ' '
|
|
wait 3000000 ; 1711766 R52 Incr
|
|
key_output ' '
|
|
wait 900000 ; 486262 Otir Zone
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
;
|
|
; R3 JIT
|
|
key_output 'I'
|
|
wait 1000000 ; 474622
|
|
key_output ' '
|
|
wait 1000000 ; 519168
|
|
key_output ' '
|
|
wait 1000000 ; 519168
|
|
key_output ' '
|
|
wait 1000000 ; 499200
|
|
key_output ' '
|
|
wait 1000000 ; 619008
|
|
key_output ' '
|
|
wait 1000000 ; 619008
|
|
key_output ' '
|
|
wait 1000000 ; 619008
|
|
key_output ' '
|
|
wait 1000000 ; 599040
|
|
key_output ' '
|
|
wait 1000000 ; Menu
|
|
;
|
|
; test crtc 0,1 only
|
|
;
|
|
key_output '\(COP)'
|
|
wait 1000000 ; 787700
|
|
key_output ' '
|
|
wait 1000000 ; 778752
|
|
key_output ' '
|
|
wait 2000000 ; 702326+19968
|
|
key_output ' '
|
|
wait 2000000 ; 835656
|
|
key_output ' '
|
|
wait 2000000 ; 924826
|
|
key_output ' '
|
|
wait 4000000
|
|
;
|
|
;
|
|
; test crtc 1 , ouvert aux autres CRTCs
|
|
;
|
|
key_output '6'
|
|
wait 10000000 ; 1676617
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
; test crtc 0 only
|
|
;
|
|
key_output '7' ; resultat a verifier
|
|
wait 800000 ; 613742
|
|
wait 600000 ; 511808
|
|
wait 2000000 ; 1277952
|
|
wait 5000000 ; 3833856
|
|
wait 2000000 ; 1277952
|
|
wait 5000000 ; 3833856
|
|
wait 2000000 ; 1277952
|
|
key_output ' '
|
|
wait 800000 ; 533680
|
|
wait 6000000 ; 5111808
|
|
wait 2000000 ; 1277952
|
|
wait 6000000 ; 3833856
|
|
wait 2000000 ; 1277952
|
|
wait 6000000 ; 3833856
|
|
wait 2000000 ; 1277952
|
|
key_output ' '
|
|
wait 800000 ; 565936
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 2000000 ; 1277952
|
|
wait 6000000 ; 3833856
|
|
wait 2000000 ; 1277952
|
|
key_output ' '
|
|
key_output ' '
|
|
wait 800000 ; 565936
|
|
wait 6000000 ; 5111808
|
|
wait 6000000 ; 5111808
|
|
wait 2000000 ; 1277952
|
|
wait 6000000 ; 3833856
|
|
wait 2000000 ; 1277952
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
;
|
|
; test crtc 0 only
|
|
;
|
|
key_output 'U'
|
|
wait 1200000 ;
|
|
key_output ' ' ; A
|
|
wait 1200000 ;
|
|
key_output ' ' ; B
|
|
wait 1200000 ;
|
|
key_output ' ' ; C
|
|
wait 1200000 ;
|
|
key_output ' ' ; D
|
|
wait 1200000 ;
|
|
key_output ' ' ; E
|
|
wait 1200000 ;
|
|
key_output ' ' ; F
|
|
wait 1200000 ;
|
|
key_output ' ' ; G
|
|
wait 1200000 ;
|
|
key_output ' ' ; H
|
|
wait 1200000 ;
|
|
key_output ' ' ; I
|
|
wait 1200000 ;
|
|
key_output ' ' ; J
|
|
wait 1200000 ;
|
|
key_output ' ' ; K
|
|
wait 1200000 ;
|
|
key_output ' ' ; L
|
|
wait 1200000 ;
|
|
key_output ' ' ; M
|
|
wait 1200000 ;
|
|
key_output ' ' ; N
|
|
wait 1200000 ;
|
|
key_output ' ' ; O
|
|
wait 1200000 ;
|
|
key_output ' ' ; P
|
|
wait 1200000 ;
|
|
key_output ' ' ; Q
|
|
wait 1200000 ;
|
|
key_output ' ' ; R
|
|
wait 1200000 ;
|
|
key_output ' ' ; S
|
|
wait 1200000 ;
|
|
;
|
|
; Test Analyzer des premieres heures
|
|
;
|
|
key_output 'P'
|
|
wait 100000000 ; 12828735+638976
|
|
key_output ' '
|
|
wait 100000000 ; 5440000+638976
|
|
key_output ' '
|
|
wait 100000000 ; 11637760+638976
|
|
key_output ' '
|
|
wait 100000000 ; 13560624+638976
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
csl_load 'SHAKE26B-1' |