proc
; PROC FN table entry
nolist
proc_stt macro
proc.cnt setnum 0
proc.len setnum 0
proc.nam setstr {proc[.l]}
dc.w [proc.nam]
endm
proc_def macro name,entry
proc.cnt setnum [proc.cnt]+1
proc.len setnum [proc.len]+[.len(name)]+1
proc.ent setstr {[entry]}
ifstr {[proc.ent]} <> {} goto proc_set
proc.ent setstr {[name]}
proc_set maclab
xref [proc.ent]
dc.w [proc.ent]-*
dc.b [.len(name)],'[name]'
endm
proc_ref macro name,entry
proc.cnt setnum [proc.cnt]+1
proc.len setnum [proc.len]+[.len(name)]+1
proc.ent setstr {[entry]}
ifstr {[proc.ent]} <> {} goto proc_set
proc.ent setstr {[name]}
proc_set maclab
dc.w [proc.ent]-*
dc.b [.len(name)],'[name]'
endm
proc_end macro
ifnum [proc.cnt] = 0 goto proc_cnt
proc.len setnum ([proc.len]+9)/8
ifnum [proc.cnt] >= [proc.len] goto proc_cnt
proc.cnt setnum [proc.len]
proc_cnt maclab
[proc.nam] equ [proc.cnt]
dc.w 0
endm
list
Back to Index
HTML generated by the amazing asm2htm !
2006 Sep 30 16:54:07