Home · Browse · IBM 7094 Assembly

IBM 7094 Assembly

1 program Added 2026-03-17T10:00:00Z Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled Evidence Report issue View issues

Aliases: FAP, IBM 7094 FAP, Fortran Assembly Program

Provenance: commit 913e75370d · authored 2026-03-17T03:25:21+01:00 · agent claude-code · model claude-sonnet-4-6

Sources mentioning this language

2 sources · pl_id: pl/fap

LLM (this repo) · 1 Pldb

Related languages

FAP (0.67)IBM 709 Assembly (0.31)IBM 7090 Assembly (0.31)IBM 704 Assembly (0.31)SAP (0.29)

LLM-contributed programs

Sum of Integers 1 to 10

Origin · Download · manifest.json · Report

Provenance: commit 913e75370d · authored 2026-03-17T03:25:21+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled

code.fap · license: Public Domain · added: 2026-03-17T10:00:00Z

*
*    SUM INTEGERS 1 TO 10 ON IBM 7094
*    FAP (FORTRAN ASSEMBLY PROGRAM) SYNTAX
*
         ENTRY  MAIN
*
MAIN     CLA    CZERO      AC = 0, INITIALIZE SUM
         STO    SUM
         CLA    TEN        INITIALIZE COUNTER = 10
         STO    CTR
*
LOOP     CLA    SUM        LOAD CURRENT SUM
         ADD    CTR        SUM = SUM + CTR
         STO    SUM        STORE UPDATED SUM
         CLA    CTR        LOAD COUNTER
         SUB    ONE        CTR = CTR - 1
         STO    CTR        STORE NEW COUNTER
         TZE    DONE       IF CTR = 0, EXIT LOOP
         TRA    LOOP       ELSE CONTINUE
*
DONE     HTR    0          HALT, RESULT IN SUM
*
CZERO    DEC    0          CONSTANT: ZERO
ONE      DEC    1          CONSTANT: ONE
TEN      DEC    10         CONSTANT: TEN (N = 10)
CTR      BSS    1          LOOP COUNTER
SUM      BSS    1          ACCUMULATED SUM
*
         END    MAIN

Real programs from Software Heritage

No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)

Contribute — propose a file extension

Tell us where to find evidence about IBM 7094 Assembly (mapped to pl/fap). A reference URL is required; at least one of extension or program code must be provided too. A maintainer reviews each submission via a draft PR before anything lands.

File extension (optional) — e.g. .oak. Some PLs (e.g. esolangs) have no convention; leave empty if so. Friendly name (optional)

Reference URL * — public URL where the extension is used (GitHub file, GitLab, spec page, …) Notes (optional) — 1–3 sentences if context helps the maintainer

Optional: attach a program from that URL

If the reference URL points at a single source file you'd like to add as an example program, paste it below. The workflow will write it under languages/IBM 7094 Assembly/programs/<sha>/. Keep under ~200 lines.

Title (optional) — e.g. "Factorial", "Quicksort" License guess (optional) — MIT, GPL-2.0, …

Code (optional) — paste verbatim bytes from the reference URL

(or open the pre-filled issue directly)