You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
532 B
36 lines
532 B
(
|
|
(mkbf r0)
|
|
|
|
(bfpush @r0 1)
|
|
(bfpush @r0 2)
|
|
|
|
(bfpop r1 @r0)
|
|
(cmp r1 2 (ne? (fault)))
|
|
|
|
(bfpop r1 @r0)
|
|
(cmp r1 1 (ne? (fault)))
|
|
|
|
; test reverse push
|
|
(bfpush @r0 '🐈')
|
|
(bfpush @r0 7)
|
|
(bfrpush @r0 8)
|
|
|
|
(bfpop r1 @r0)
|
|
(cmp r1 7 (ne? (fault)))
|
|
|
|
(bfpop r1 @r0)
|
|
(cmp r1 '🐈' (ne? (fault)))
|
|
|
|
(bfpop r1 @r0)
|
|
(cmp r1 8 (ne? (fault)))
|
|
|
|
; test reverse pop
|
|
|
|
(bfpush @r0 1000)
|
|
(bfpush @r0 2000)
|
|
|
|
(bfrpop r1 @r0)
|
|
(cmp r1 1000 (ne? (fault)))
|
|
|
|
(del @r0)
|
|
)
|
|
|