mirror of
https://github.com/TomHarte/CLK.git
synced 2024-12-12 08:30:05 +00:00
187 lines
3.4 KiB
XML
187 lines
3.4 KiB
XML
;
|
|
; Fichier de script CSL
|
|
; Execution du module SHAKE26C 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"SHAKE26C"\(RET)'
|
|
wait 10000000
|
|
;
|
|
; R8 IVM ODD C9
|
|
key_output '2'
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; Parity Switch Status
|
|
key_output '3'
|
|
wait 5000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; Ivm On/Off
|
|
key_output '4'
|
|
wait 800000 ; 23D
|
|
key_output ' '
|
|
wait 1000000 ; 23E
|
|
key_output ' '
|
|
wait 1000000 ; 23F
|
|
key_output ' '
|
|
wait 1000000 ; 27F
|
|
key_output ' '
|
|
wait 1000000 ; 280
|
|
key_output ' '
|
|
wait 1000000 ; 281
|
|
key_output ' '
|
|
wait 1000000 ; 282
|
|
key_output ' '
|
|
wait 1000000 ; 283
|
|
key_output ' '
|
|
wait 1000000 ; 284
|
|
key_output ' '
|
|
wait 1000000 ; 285, 286
|
|
key_output ' '
|
|
wait 1000000 ; 287, 288
|
|
key_output ' '
|
|
wait 1000000 ; 289
|
|
key_output ' '
|
|
wait 1000000 ; 28A
|
|
key_output ' '
|
|
wait 1000000 ; 28B
|
|
key_output ' '
|
|
wait 1000000 ; 28c
|
|
key_output ' '
|
|
wait 1000000 ; 28d
|
|
key_output ' '
|
|
wait 1000000 ; 28e
|
|
key_output ' '
|
|
wait 1000000 ; 28f
|
|
key_output ' '
|
|
wait 1000000 ; 290
|
|
key_output ' '
|
|
wait 1000000 ; 291
|
|
key_output ' '
|
|
wait 1000000 ; 292
|
|
key_output ' '
|
|
wait 1000000 ; 293
|
|
key_output ' '
|
|
wait 1000000 ; 294
|
|
key_output ' '
|
|
wait 1000000 ; 295
|
|
key_output ' '
|
|
wait 1000000 ; 296, 297
|
|
key_output ' '
|
|
wait 1000000 ; 298, 299
|
|
key_output ' '
|
|
wait 1000000 ; 29a
|
|
key_output ' '
|
|
wait 1000000 ; 29b
|
|
key_output ' '
|
|
wait 1000000 ; 29c
|
|
key_output ' '
|
|
wait 1000000 ; 29d
|
|
key_output ' '
|
|
|
|
; test prevu pour CRTC 2 mais disp autre crc Last Line cond
|
|
key_output '7'
|
|
wait 64000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; test crtc 2 vma' sur R1=0
|
|
key_output 'T'
|
|
wait 1100000
|
|
key_output ' '
|
|
wait 1200000
|
|
key_output ' '
|
|
wait 1200000
|
|
key_output ' '
|
|
wait 1200000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; crtc 2 ghost vsync vs Last Line (others crtc welcome)
|
|
key_output '\(RET)'
|
|
wait 5000000
|
|
key_output ' '
|
|
wait 2000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; Add Line R5 on last line
|
|
key_output 'E'
|
|
wait 20000000
|
|
key_output ' '
|
|
wait 10000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; Add line R8
|
|
key_output 'P'
|
|
wait 20000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; r5 additional line in interlace mode
|
|
key_output 'S'
|
|
wait 4000000
|
|
key_output ' '
|
|
wait 1000000 ; menu
|
|
|
|
; CRTC 1 Interlace vsync nightmare (2 1er test uniqu CRTC1)
|
|
key_output 'O'
|
|
wait 12000000 ; cvsct1_a
|
|
key_output ' '
|
|
wait 6000000 ; cvsct1_b
|
|
key_output ' '
|
|
wait 3500000 ; cvstot
|
|
key_output ' '
|
|
wait 2000000 ; parity00
|
|
wait 8000000
|
|
key_output ' '
|
|
wait 6000000 ; cvms_a
|
|
key_output ' '
|
|
wait 6000000 ; cvms_b
|
|
key_output ' '
|
|
wait 6000000 ; cvms_b
|
|
key_output ' '
|
|
wait 6000000 ; cvms_c
|
|
key_output ' '
|
|
wait 6000000 ; cvms_c
|
|
key_output ' '
|
|
wait 3000000 ; parity01a
|
|
key_output ' '
|
|
wait 3000000 ; parity01b
|
|
key_output ' '
|
|
wait 3000000 ; parity01c
|
|
key_output ' '
|
|
wait 3000000 ; parity01d
|
|
key_output ' '
|
|
wait 3000000 ; parity01e
|
|
key_output ' '
|
|
wait 3000000 ; parity01f
|
|
key_output ' '
|
|
wait 1000000
|
|
|
|
csl_load 'SHAKE26C-2' |