****** PART 2 HDS-300 89AW3391B01 FAT, REV 1.20  DATE 06-02-88 ******
 lml spa021
 SPA021
INIT
 @esig
 @undo;d
 @proc
 @bcol
 @undo;d
 @proc
 @sdef
 @undo;d
 @proc
 @st1
 @undo;d
 @proc
 @st2
 @undo;d
 @proc
 @st3
 @undo;d
 @proc
 @st4
 @undo;d
 @proc
 @map
 @undo;d
 @proc
CHECK1
 @bcol
 @sf \0 @
 @proc
 @bdis
 @arm
 @g f000
 @ifl 4 "\1"
 @else
 mf spaerr ERROR13 10
 @end
BNC2
 @bcol
 @sf 4 @
 @proc
 @st1
 @undo;d
 @proc
 @bdis
 @arm
 @ms e0041 b9;cm
 @g f000
 @ifl 0 "DISARMED"
 @else
 mf spaerr ERROR13 10
 @end
 @s
BNC3
 @display 17 10 "BNC connector J3 and J6              -- testing"
 @ms f000 4e 71 60 fe;l
 @bcol
 @sf 13 @
 @sf 15 @
 @proc
 @sdef
 @sf 1 a
 @sf 2 x
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 xtgi
 @sf 16 x
 @sf 18 x
 @sf 21
 @proc
 @arm
 @ms e0041 b9;cm
 @g f000
 @wait 1
 @darm
 @bdis
 @s
 @ifl 1 "0000"
 mf spaerr ERROR23 17
 @else
 @end
 @s
 INIT
 @display 17 50 "PASSED"
TERM
 @st1
 @sf 1 \0
 @sf 2 11111111
 @sf 3 11111111
 @sf 4 11111111
 @sf 5 11111111
 @proc
STTR
 WTRM wt1 \0 \1
 WTRM wt2 \0 \1
 @bdis
 @arm
 @g f0000000
 @darm
 CHECK2 \0 \1
WTRM
 \0
 @sf 1 \1
 @sf 2 \2
 @sf 9 \1
 @sf 10 \2
 @proc
CHECK2
 @ifl 4 "\0 \1"
 @else
 mf spaerr ERROR14 11
 @end
 @ifl 5 "\0 \1"
 @else
 mf spaerr ERROR14 11
 @end
CHECK3
 @gs \0
 @gt last
 @ifl 19 "\1"
 @else
 mf spaerr ERROR19 13
 @end
CHECK4
 @bdis
 @clr
 @arm
 @wait \0
 @ifl 1 "0001"
 @else
 mf spaerr ERROR21 15
 @end
 @sdef
SBCOL
 @bcol
 @undo;d
 @sf 13 @
 @sf \0 @
 @sf 21 \1
 @proc
 @bdis
 @arm
HOME
 @reset
 @tstat off
 @display 23 23 "Type a ^A to terminate the Test"
 @de nologm
 @repeat
 @end
SPA021
 @display 10 10 "SPA clock source & BNC J6 and J7     -- testing"
 @ms f000 4e 71 23 fc 12 34 56 78 00 00 f1 00 60 f2;l
 @sdef
 @sf 1 a
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 st1
 @sf 14 x
 @sf 16 x
 @sf 18 x
 @sf 21
 @proc
 TERM f000
 @bcol
 @sf 2 @
 @sf 13 @
 @sf 21 0005
 @proc
 @bdis
 @arm
 @g f000
 @ifl 8 "F100 12345678 0000000004  WR  SD  4B L"
 @else
 mf spaerr ERROR13 10
 @end
 @sfh
 @sf 2 ADEFBGH
 @proc
 @fh 2
 CHECK1 9 "?"
 @map
 @sf 7 1
 @proc
 CHECK1 3 "?"
 @ifl 8 "F100  WR  SD  4B 12345678"
 @else
 mf spaerr ERROR13 10
 @end
 @clr
 @map
 @sf 7 0
 @proc
 @fh 1
 CHECK1 6 "E>0000" 
 @ifl 9 "0005"
 @else
 mf spaerr ERROR13 10
 @end
 CHECK1 8 L
 @ifl 8 "L"
 @else
 mf spaerr ERROR13 10
 @end
 @ls bnc
 @ifl 18 "TRUE"
 BNC2
 @else
 @end
 INIT
 @display 10 50 "PASSED"
 @display 11 10 "Window Terms triggering              -- testing"
 @map
 @undo;d
 @sf 1 f
 @sf 2 f000f
 @proc
 @esig
 @undo;d
 @sf 25 @
 @proc
 @ms f0000000 4e 71 23 fc 11 11 11 11 00 00 00 00 23 fc 22 22;l
 @ms f0000010 22 22 11 11 11 11 23 fc 44 44 44 44 22 22 22 22;l
 @ms f0000020 23 fc 88 88 88 88 44 44 44 44 23 fc ff ff ff ff;l
 @ms f0000030 88 88 88 88 23 fc 00 00 00 00 00 00 00 00 60 c2;l
 WTRM wt1 00000000 11111111
 @sf 3 11111111
 @sf 4 11111111
 @sf 5 11111111
 @sf 6 11111111
 @sf 11 11111111
 @sf 12 11111111
 @sf 13 11111111
 @sf 14 11111111
 @proc
 WTRM wt2 00000000 11111111
 @sf 3 11111111
 @sf 4 11111111
 @sf 5 11111111
 @sf 6 11111111
 @sf 11 11111111
 @sf 12 11111111
 @sf 13 11111111
 @sf 14 11111111
 @proc
 @wt1_o
 @sf 1 0
 @proc
 @wt2_o
 @sf 1 0
 @proc
 @sdef
 @sf 1 a
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 wt1
 @sf 18 x
 @sf 21
 @sf 22 b
 @sf 23 b
 @sf 24 wt2
 @sf 25 x
 @sf 27 x
 @sf 29 x
 @sf 32
 @proc
 @bcol
 @sf 13 @
 @sf 15 @
 @proc
 @wt2
 @sf 19 002
 @proc
 @bdis
 @arm
 @g f0000000
 @darm
 CHECK2 00000000 11111111
 STTR 11111111 22222222
 STTR 22222222 44444444
 STTR 44444444 88888888
 STTR 88888888 ffffffff
 STTR 00000000 00000000
 INIT
 @display 11 50 "PASSED"
 @display 12 10 "Event counters st1,st2,st3 and st4   -- testing"
 @ms f000 4e 71 60 fc;l
 @st1
 @sf 41 256
 @proc
 @st2
 @sf 41 256
 @proc
 @st3
 @sf 41 256
 @proc
 @st4
 @sf 41 256
 @proc
 @bcol
 @sf 13 @
 @sf 15 @
 @proc
 @sdef
 @sf 1 a
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 st1
 @sf 18 x
 @sf 21
 @sf 22 b
 @sf 23 b
 @sf 24 st2
 @sf 29 x
 @sf 32
 @sf 33 c
 @sf 34 c
 @sf 35 st3
 @sf 40 x
 @sf 43
 @sf 44 d
 @sf 45 d
 @sf 46 st4
 @sf 47 x
 @sf 49 x
 @sf 51 x
 @sf 54
 @proc
 @bdis
 @arm
 @g f000
 @darm
 @ifl 4 "0000000255"
 @else
 @mf spaerr ERROR15 12
 @end
 @ifl 5 "0000000511"
 @else
 @mf spaerr ERROR16 12
 @end
 @ifl 6 "0000000767"
 @else
 @mf spaerr ERROR17 12
 @end
 @ifl 7 "0000001023"
 @else
 @mf spaerr ERROR18 12
 @end
 INIT
 @display 12 50 "PASSED"
 @display 13 10 "Trace buffer segmentation            -- testing"
 @ms f000 4e 71 60 fc;l
 @sdef
 @sf 1 a
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 st1
 @sf 18 x
 @sf 21
 @sf 22 b
 @sf 23 b
 @sf 24 st2
 @sf 29 x
 @sf 32
 @sf 33 c
 @sf 34 c
 @sf 35 st3
 @sf 40 x
 @sf 43
 @sf 44 d
 @sf 45 d
 @sf 46 st4
 @sf 51 x
 @sf 54
 @sf 56 a
 @proc
 @g f000
 SBCOL 16 4095
 CHECK3 1 0000004095
 SBCOL 17 2047
 CHECK3 1 0000002047
 CHECK3 2 0000004094
 SBCOL 18 1023
 CHECK3 1 0000001023
 CHECK3 2 0000002046
 CHECK3 3 0000003069
 CHECK3 4 0000004092
 SBCOL 19 0511
 CHECK3 1 0000000511
 CHECK3 2 0000001022
 CHECK3 3 0000001533
 CHECK3 4 0000002044
 CHECK3 5 0000002555
 CHECK3 6 0000003066
 CHECK3 7 0000003577
 CHECK3 8 0000004088
 SBCOL 20 0255
 CHECK3 1 0000000255
 CHECK3 2 0000000510
 CHECK3 3 0000000765
 CHECK3 4 0000001020
 CHECK3 5 0000001275
 CHECK3 6 0000001530
 CHECK3 7 0000001785
 CHECK3 8 0000002040
 CHECK3 9 0000002295
 CHECK3 10 0000002550
 CHECK3 11 0000002805
 CHECK3 12 0000003060
 CHECK3 13 0000003315
 CHECK3 14 0000003570
 CHECK3 15 0000003825
 CHECK3 16 0000004080
 @s
 @INIT
 @display 13 50 "PASSED"
 @display 14 10 "Trigger events only, continuous mode -- testing"
 @ms f000 4e 71 60 fe;l
 @sdef
 @sf 1 a
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 st1
 @sf 18 x
 @sf 21
 @proc
 @bcol
 @sf 13 @
 @sf 15 @
 @proc
 @bdis
 @g f000
 @arm
 @gt last
 @ifl 19 "4095"
 @else
 mf spaerr ERROR20 14
 @end
 @bcol
 @sf 12 @
 @proc
 @bdis
 @clr
 @arm
 @wait 1
 @darm
 @gt last
 @ifl 19 "4095"
 @else
 mf spaerr ERROR20 14
 @end
 @s
 INIT
 @display 14 50 "PASSED"
 @display 15 10 "Time delay event                     -- testing"
 @ms f000 4e 71 60 fc;l
 @bcol
 @sf 13 @
 @sf 21 0005
 @proc
 @sdef
 @sf 1 a
 @sf 6
 @sf 11 002
 @sf 12 a
 @sf 13 tde
 @sf 14 x
 @sf 18 x
 @sf 21
 @proc
 @g f000
 CHECK4 1
 @sf 10 002
 @sf 11 100
 @proc
 CHECK4 1
 @sf 9 01
 @sf 10 001
 @sf 11 000
 @proc
 CHECK4 10
 @s
 INIT
 @display 15 50 "PASSED"
 @display 16 10 "Cache disable generation from SPA    -- testing"
 @ms f000 4e 71 60 fc;l
 @bcol
 @sf 13 @
 @proc
 @sdef
 @sf 1 a
 @sf 6 x
 @sf 11
 @sf 12 a
 @sf 13 st1
 @sf 18 x
 @sf 21
 @sf 22 b
 @sf 23 b
 @sf 24 st2
 @sf 29 x
 @sf 32
 @proc
 @reset
 @rs cacr 1
 @bdis
 @arm
 @g f000
 @darm
 @ifl 1 "0003"
 @else
 mf spaerr ERROR22 16
 @end
 @reset
 @sdef
 @undo;d
 @sf 1 a
 @sf 6
 @sf 11
 @sf 12 a
 @sf 13 st1
 @sf 18 x
 @sf 21 x
 @sf 22 b
 @sf 23 b
 @sf 24 st2
 @sf 29 x
 @sf 32
 @proc
 @bdis
 @rs cacr 1
 @arm
 @g f000
 @darm
 @ifl 1 "0005"
 @else
 mf spaerr ERROR22 16
 @end
 @reset
 INIT
 @display 16 50 "PASSED"
 @debug
 @ls bnc
 @ifl 18 "TRUE"
 BNC3
 @else
 @end
 @cls
 @display 8 20 "S P A   B O A R D  T E S T  --  P A S S E D"
 @display 23 23 "Type any character to terminate SPA020 "
 @input ;skey