mirror of
https://github.com/TomHarte/CLK.git
synced 2024-12-12 08:30:05 +00:00
297 lines
5.6 KiB
XML
297 lines
5.6 KiB
XML
;
|
|
; Fichier de script CSL
|
|
; Execution du module SHAKE26A du DSK SHAKER26.DSK en CRTC 1
|
|
; Le module genere des instructions au format SSM
|
|
;
|
|
csl_version 1.0
|
|
crtc_select 1
|
|
reset
|
|
wait 3000000
|
|
disk_insert 'shaker26.dsk'
|
|
key_delay 70000 70000 400000
|
|
key_output 'RUN"SHAKE26A"\(RET)'
|
|
wait 10000000
|
|
;
|
|
; test 1
|
|
key_output '1'
|
|
wait 800000 ; fin affichage 1er ecran & ssm 595215
|
|
key_output ' '
|
|
wait 800000 ; fin affichage 2nd ecran & ssm 659451
|
|
key_output ' '
|
|
wait 800000 ; fin affichage 3eme ecran & ssm 627963
|
|
key_output ' '
|
|
wait 800000 ; fin affichage 4eme ecran & ssm 698883
|
|
key_output ' '
|
|
wait 800000 ; fin affichage 5eme ecran & ssm 551415
|
|
key_output ' '
|
|
wait 1000000 ; retour menu
|
|
;
|
|
; test 2
|
|
key_output '2'
|
|
wait 800000 ; 519961 crt 0 1 ecran
|
|
wait 800000 ; 2 ecrans
|
|
key_output ' '
|
|
wait 800000 ;
|
|
key_output ' '
|
|
wait 800000 ; 723923
|
|
key_output ' '
|
|
wait 800000 ; 599040
|
|
key_output ' '
|
|
wait 1000000 ; retour menu
|
|
;
|
|
; test 3
|
|
key_output '3'
|
|
wait 800000 ; 596058
|
|
wait 1500000 ; 1337856
|
|
key_output ' '
|
|
wait 800000 ; 730624
|
|
wait 1500000 ; 1337856
|
|
key_output ' '
|
|
wait 800000 ; 750685
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 750592
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 750592
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 750592
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 710656
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 726016
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 726952
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 1000000 ; 845824
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 666112
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 666112
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 706048
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 610816
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 610816
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 610816
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 730624
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 900000 ; 745984
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 900000 ; 805888
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 1000000 ; 865792
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 686080
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 686080
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 10000000
|
|
;
|
|
key_output '4'
|
|
wait 8000000 ; 6743019
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output '5'
|
|
wait 800000 ; 434016
|
|
key_output ' '
|
|
wait 800000 ; 547328
|
|
key_output ' '
|
|
wait 800000 ; 567296
|
|
key_output ' '
|
|
wait 800000 ; 587264
|
|
key_output ' '
|
|
wait 800000 ; 607232
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output '6'
|
|
wait 800000 ; 473960
|
|
key_output ' '
|
|
wait 800000 ; 607232
|
|
key_output ' '
|
|
wait 800000 ; 627200
|
|
key_output ' '
|
|
wait 800000 ; 647168
|
|
key_output ' '
|
|
wait 800000 ; 667136
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output '7'
|
|
wait 800000 ; 473957
|
|
key_output ' '
|
|
wait 800000 ; 667072
|
|
key_output ' '
|
|
wait 800000 ; 527296
|
|
key_output ' '
|
|
wait 800000 ; 547264
|
|
key_output ' '
|
|
wait 800000 ; 567232
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output '8'
|
|
wait 800000 ; 431083
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output '9'
|
|
wait 800000 ; 474048
|
|
key_output ' '
|
|
wait 800000 ; 559104
|
|
key_output ' '
|
|
wait 800000 ; 598363
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'E'
|
|
wait 800000 ; 514468
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'R'
|
|
wait 800000 ; 592695
|
|
wait 1200000 ; 998400
|
|
key_output ' '
|
|
wait 800000 ; 599040
|
|
wait 1200000 ; 998400
|
|
key_output ' '
|
|
wait 800000 ; 658944
|
|
wait 1200000 ; 998400
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'T'
|
|
wait 800000 ; 531832
|
|
key_output ' '
|
|
wait 800000 ; 579072
|
|
key_output ' '
|
|
wait 800000 ; 579072
|
|
key_output ' '
|
|
wait 800000 ; 579072
|
|
key_output ' '
|
|
wait 800000 ; 579072
|
|
key_output ' '
|
|
wait 800000 ; 638976
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'Y'
|
|
wait 800000 ; 511931
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 800000 ; ???
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'U'
|
|
wait 14000000 ; 11803953+1007210
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'I'
|
|
wait 2200000 ; 2013010
|
|
key_output ' '
|
|
wait 2200000 ; 2315008
|
|
key_output ' '
|
|
wait 5000000 ; 4233216
|
|
key_output ' '
|
|
wait 35000000 ; 31301630
|
|
key_output ' '
|
|
wait 2000000 ; 1557507
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'O'
|
|
wait 800000 ; 576098
|
|
key_output ' '
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 698880
|
|
key_output ' '
|
|
wait 800000 ; 599040
|
|
key_output ' '
|
|
wait 800000 ; 497671
|
|
key_output ' '
|
|
wait 800000 ; 469504
|
|
key_output ' '
|
|
wait 800000 ; 522696
|
|
key_output ' '
|
|
wait 800000 ; 547978
|
|
key_output ' '
|
|
wait 800000 ; 579072
|
|
; crtc 1
|
|
;key_output ' '
|
|
;wait 800000 ; 482251
|
|
;key_output ' '
|
|
;wait 800000 ; 599552
|
|
;key_output ' '
|
|
;wait 800000 ; 599552
|
|
;key_output ' '
|
|
;wait 800000 ; 599552
|
|
;key_output ' '
|
|
;wait 800000 ; 519680
|
|
key_output ' '
|
|
wait 1000000
|
|
;
|
|
key_output 'P'
|
|
wait 450000 ; 427222
|
|
wait 5200000 ; 5111808
|
|
key_output ' '
|
|
wait 800000 ; 529408
|
|
key_output ' '
|
|
wait 800000 ; 489472
|
|
key_output ' '
|
|
wait 800000 ; 449536
|
|
key_output ' '
|
|
wait 800000 ; 509440
|
|
key_output ' '
|
|
wait 800000 ; 587307
|
|
key_output ' '
|
|
wait 800000 ; 479104
|
|
key_output ' '
|
|
wait 800000 ; 479360
|
|
key_output ' '
|
|
wait 800000 ; 490944
|
|
key_output ' '
|
|
wait 800000 ; 638464
|
|
key_output ' '
|
|
wait 800000 ; 619008
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
csl_load 'SHAKE26A-2' |