+
+(define-public fasm
+ (package
+ (name "fasm")
+ (version "1.73.22")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://flatassembler.net/fasm-"
+ version ".tgz"))
+ (sha256
+ (base32 "1pb0rcfdsb0h89khjjrbikz5wjdllavj3ajim0rcyh7x12xr1hw5"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; no tests exist
+ #:strip-binaries? #f ; fasm has no sections
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure) ; no "configure" script
+ (replace 'build
+ (lambda _
+ (chdir "source/Linux/")
+ (if (string=? ,(%current-system) "x86_64-linux")
+ ;; Use pre-compiled binaries in top-level directory to build
+ ;; fasm.
+ (invoke "../../fasm.x64" "fasm.asm")
+ (invoke "../../fasm" "fasm.asm"))))
+ (replace 'install
+ (lambda _
+ (let ((out (assoc-ref %outputs "out")))
+ (install-file "fasm" (string-append out "/bin")))
+ #t)))))
+ (supported-systems '("x86_64-linux" "i686-linux"))
+ (synopsis "Assembler for x86 processors")
+ (description
+ "@acronym{FASM, the Flat ASseMbler} is an assembler that supports x86 and
+IA-64 Intel architectures. It does multiple passes to optimize machine code.
+It has macro abilities and focuses on operating system portability.")
+ (home-page "https://flatassembler.net/")
+ (license license:bsd-2)))
+
+(define-public dev86
+ (package
+ (name "dev86")
+ (version "0.16.21")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "http://v3.sk/~lkundrak/dev86/Dev86src-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "154dyr2ph4n0kwi8yx0n78j128kw29rk9r9f7s2gddzrdl712jr3"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:parallel-build? #f ; They use submakes wrong
+ #:make-flags (list "CC=gcc"
+ (string-append "PREFIX="
+ (assoc-ref %outputs "out")))
+ #:system "i686-linux" ; Standalone ld86 had problems otherwise
+ #:tests? #f ; No tests exist
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (add-before 'install 'mkdir
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (mkdir-p (string-append out "/bin"))
+ (mkdir-p (string-append out "/man/man1"))
+ #t))))))
+ (synopsis "Intel 8086 (primarily 16-bit) assembler, C compiler and
+linker")
+ (description "This package provides a Intel 8086 (primarily 16-bit)
+assembler, a C compiler and a linker. The assembler uses Intel syntax
+(also Intel order of operands).")
+ (home-page "https://github.com/jbruchon/dev86")
+ (supported-systems '("i686-linux" "x86_64-linux"))
+ (license license:gpl2+)))
+
+(define-public libjit
+ (let ((commit "554c9f5c750daa6e13a6a5cd416873c81c7b8226"))
+ (package
+ (name "libjit")
+ (version "0.1.4")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://git.savannah.gnu.org/r/libjit.git")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0p6wklslkkp3s4aisj3w5a53bagqn5fy4m6088ppd4fcfxgqkrcd"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("bison" ,bison)
+ ("flex" ,flex)
+ ("help2man" ,help2man)
+ ("gettext" ,gettext-minimal)
+ ("libtool" ,libtool)
+ ("makeinfo" ,texinfo)
+ ("pkg-config" ,pkg-config)))
+ (home-page "https://www.gnu.org/software/libjit/")
+ (synopsis "Just-In-Time compilation library")
+ (description
+ "GNU libjit is a library that provides generic Just-In-Time compiler
+functionality independent of any particular bytecode, language, or
+runtime")
+ (license license:lgpl2.1+))))
+
+(define-public rgbds
+ (package
+ (name "rgbds")
+ (version "0.4.0")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/rednex/rgbds.git")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "15680964nlsa83nqgxk7knxajn98lddz2hg6jnn8ffmnms5wdam7"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (replace 'check
+ (lambda _
+ (with-directory-excursion "test/asm"
+ (invoke "./test.sh"))
+ (with-directory-excursion "test/link"
+ (invoke "./test.sh")))))
+ #:make-flags `("CC=gcc"
+ ,(string-append "PREFIX="
+ (assoc-ref %outputs "out")))))
+ (native-inputs
+ `(("bison" ,bison)
+ ("flex" ,flex)
+ ("pkg-config" ,pkg-config)
+ ("util-linux" ,util-linux)))
+ (inputs
+ `(("libpng" ,libpng)))
+ (home-page "https://github.com/rednex/rgbds")
+ (synopsis "Rednex Game Boy Development System")
+ (description
+ "RGBDS (Rednex Game Boy Development System) is an assembler/linker
+package for the Game Boy and Game Boy Color. It consists of:
+@itemize @bullet
+@item rgbasm (assembler)
+@item rgblink (linker)
+@item rgbfix (checksum/header fixer)
+@item rgbgfx (PNG-to-Game Boy graphics converter)
+@end itemize")
+ (license license:expat)))
+
+(define-public wla-dx
+ (package
+ (name "wla-dx")
+ (version "9.10")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/vhelin/wla-dx.git")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "022isf7s9q5i0j4xj69zpp0lgw8p9n37sn7ii25v68r15zaahk2w"))))
+ (build-system cmake-build-system)
+ (native-inputs
+ `(("sphinx" ,python-sphinx))) ; to generate man pages
+ (arguments
+ `(#:tests? #f)) ; no tests
+ (home-page "https://github.com/vhelin/wla-dx")
+ (synopsis "Assemblers for various processors")
+ (description "WLA DX is a set of tools to assemble assembly files to
+object or library files (@code{wla-ARCH}) and link them together (@code{wlalink}).
+Supported architectures are:
+
+@itemize @bullet
+@item z80
+@item gb (z80-gb)
+@item 6502
+@item 65c02
+@item 6510
+@item 65816
+@item 6800
+@item 6801
+@item 6809
+@item 8008
+@item 8080
+@item huc6280
+@item spc700
+@end itemize")
+ (license license:gpl2)))
+
+(define-public xa
+ (package
+ (name "xa")
+ (version "2.3.10")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://www.floodgap.com/retrotech/xa"
+ "/dists/xa-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0y5sd247g11jfk5msxy91hz2nhpy7smj125dzfyfhjsjnqk5nyw6"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; TODO: custom test harness, not sure how it works
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)) ; no "configure" script
+ #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))))
+ (native-inputs `(("perl" ,perl)))
+ (home-page "https://www.floodgap.com/retrotech/xa/")
+ (synopsis "Two-pass portable cross-assembler")
+ (description
+ "xa is a high-speed, two-pass portable cross-assembler.
+It understands mnemonics and generates code for NMOS 6502s (such
+as 6502A, 6504, 6507, 6510, 7501, 8500, 8501, 8502 ...),
+ CMOS 6502s (65C02 and Rockwell R65C02) and the 65816.")
+ (license license:gpl2)))