/usr/share/picolisp/src64/lib/fmt.s.l is in picolisp 3.1.5.2-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | # 03aug12abu
# (c) Software Lab. Alexander Burger
(de newSection (Sym)
(unless (== *Section Sym)
(prinl)
(prinl " ." (setq *Section Sym)) )
(prinl) )
# Print instruction
(de prinst (Name . @)
(if (rest)
(tab (3 -9 0) NIL Name (glue ", " @))
(tab (3 -9) NIL Name) ) )
# Directives
(de label (Lbl Flg)
(and Flg (prinl " .globl " Lbl))
(prinl Lbl ':) )
(asm word (N)
(prinst ".quad" N) )
(asm byte (N)
(prinst ".byte" N) )
(asm bytes (Lst)
(prinst ".byte" (glue ", " Lst)) )
(asm hx2 (Lst)
(prinst ".short" (glue ", " (mapcar hex Lst))) )
(asm ascii (Str)
(prinst ".ascii" (pack "\"" Str "\"")) )
(asm asciz (Str)
(prinst ".asciz" (pack "\"" Str "\"")) )
# vi:et:ts=3:sw=3
|