40 lines
593 B
PHP
40 lines
593 B
PHP
|
|
||
|
|
; Extended implementation of anonymous labels.
|
||
|
|
|
||
|
|
; Classic use like:
|
||
|
|
; @@: ; A
|
||
|
|
; je @f ; -> B
|
||
|
|
; loop @b ; -> A
|
||
|
|
; @@: ; B
|
||
|
|
|
||
|
|
; Additional sets of labels are available for more flexibility:
|
||
|
|
; @1: ; A
|
||
|
|
; je @1f ; -> C
|
||
|
|
; jg @2f ; -> B
|
||
|
|
; loop @1b ; -> A
|
||
|
|
; @2: ; B
|
||
|
|
; loop @2b ; -> B
|
||
|
|
; @1: ; C
|
||
|
|
|
||
|
|
macro @INIT name,prefix
|
||
|
|
|
||
|
|
macro name tail&
|
||
|
|
match label, prefix#f?
|
||
|
|
label tail
|
||
|
|
prefix#b? equ prefix#f?
|
||
|
|
prefix#r? equ prefix#f?
|
||
|
|
end match
|
||
|
|
local anonymous
|
||
|
|
prefix#f? equ anonymous
|
||
|
|
end macro
|
||
|
|
|
||
|
|
define prefix#f?
|
||
|
|
name
|
||
|
|
|
||
|
|
end macro
|
||
|
|
|
||
|
|
@INIT @@,@
|
||
|
|
|
||
|
|
repeat 10, i:0
|
||
|
|
@INIT @#i,@#i
|
||
|
|
end repeat
|