45 lines
532 B
Plaintext
45 lines
532 B
Plaintext
Queue::dispose:
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super List, $4
|
|
bnot
|
|
ret
|
|
|
|
Queue::put:
|
|
pushi $9f ; 159, add
|
|
push0
|
|
&rest $1
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Queue::get:
|
|
link $1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Queue::peek:
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
ret
|
|
|