mirror of
https://github.com/TomHarte/CLK.git
synced 2024-12-03 08:51:40 +00:00
297 lines
5.6 KiB
Plaintext
297 lines
5.6 KiB
Plaintext
|
;
|
||
|
|
; 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'
|