IBM Basic assembly language and successors
Basic Assembly Language (BAL) is the commonly used term for a low-level programming language used on IBM System/360 and successor mainframes. Originally "Basic Assembly Language" applied only to an extremely restricted dialect designed to run under control of IBM Basic Programming Support (BPS/360) on systems with only 8 KB of main memory, and only a card reader, a card punch, and a printer for input/output — thus the word "Basic". However, the full name and the initialism "BAL" almost immediately attached themselves in popular use to all assembly-language dialects on the System/360 and its descendants. BAL for BPS/360 was introduced with the System/360 in 1964.
Assemblers on other System/360 operating systems through System/370, System/390, and System z, as well as the UNIVAC Series 90 mainframes made by Sperry Corporation, and the BS2000 Mainframes currently made by Fujitsu, inherited and extended its syntax. The latest derived language is known as the IBM High-Level Assembler (HLASM). Programmers utilizing this family of assemblers also refer to them as ALC, (for Assembly Language Coding), or simply "assembler".
- 1 General characteristics
- 2 Assembler Statement Format
- 3 Types of instructions
- 4 Examples
- 5 Versions
- 6 Specialized versions
- 7 Non-IBM assemblers
- 8 See also
- 9 References
- 10 External links
The architecture of IBM mainframes has undergone several extensions over the years, including System/360, System/370, System/370 XA, ESA/370, ESA/390, and z/Architecture. Each of these architectures has retained compatibility with most of the features of its predecessor. BAL uses the native instruction set of these machines. It is thus closer to the hardware than third-generation languages such as COBOL.
The instruction set consists of the low-level operations supported by the hardware, such as:
|LOAD||L||copy a value from memory to a register|
|STORE||ST||copy a value from a register to memory|
|COMPARE||C||compare a register value with a value in memory|
|Shift||SLL, SRL||move the bits of a register left or right|
|START SUBCHANNEL||SSCH||start a sub-channel I/O operation using a string of Channel Command Words|
The extreme simplicity of these operations means that the source code of a program written in assembler will usually be much longer than an equivalent program in, say, COBOL or Fortran. In the past, the speed of hand-coded assembler programs was often felt to make up for this drawback, but with the advent of optimizing compilers, C for the mainframe, and other advances, assembler has lost much of its appeal. IBM continues to upgrade the assembler, however, and it is still used when the need for speed or very fine control is paramount.
Another reason to use assembler is that not all operating system functions can be accessed in high level languages. The application program interface of mainframe operating systems is defined as a set of assembly language "macro" instructions, that typically invoke Supervisor Call (SVC) [on z/OS] or Diagnose (DIAG) [on z/VM] hardware instructions to invoke operating system routines. It is possible to use operating system services from programs written in high-level languages by use of assembler subroutines.
Assembler Statement Format
The format of assembler language statements reflects the layout of an 80-column punched card, though successive versions have relaxed most of the restrictions.
- The optional statement label or name was one to six alphanumeric characters beginning in column 1. The first character had to be alphabetic.
- The operation code or mnemonic could begin in any column to the right of column 1, separated from the statement label by a blank.
- The operand field could begin in any column to the right of the operation code, separated from the operation code by at least one blank. Blanks were invalid in operands except in character constants. The operand field, consisting of one or more operands, was optional depending on the operation code.
- Optional comments could appear to the right of the operand field, separated by at least one blank.
- Basic Assembly Language did not allow statement continuation. Later versions of the assembler indicated continuation by the appearance of any character in column 72 of the statement being continued. Basic Assembly Language required that column 72 be blank.
- A "full-card comment" was indicated by an asterisk (*) in column 1.
- Card columns 73–80, called the identification-sequence field could be used by the programmer for any purpose, but usually contained sequence numbers for resorting a jumbled card deck.
Basic Assembly language also permitted an alternate statement format with the statement starting in column 25, allowing the assembled instruction to be punched into the same card beginning in column 1. This option was not continued in later versions of the assembler.
Types of instructions
Three main types of instructions are found in the source code of a program written in assembler.
Machine instructions (mnemonic)
There is a one-to-one relationship with machine instructions. The full mnemonic instruction set is described in the Principles of Operation manual for each processor. Examples:
* This is a comment line * Load the fullword integer stored at the * location labeled 'ZIGGY' into general register 3: L 3,ZIGGY SLA 4,5 shift the value in general register 4 left by 5 bits MVC TARGET,SOURCE move characters from location 'SOURCE' to 'TARGET' AP COUNT,=P'1' add 1 to value in memory location 'COUNT' (packed decimal format) B NEXT unconditional branch to label 'NEXT' HERE EQU * This is a label CLC TARGET,=C'ADDRESS' Compare memory location 'TARGET' to string 'ADDRESS' BE THERE branch if equal to program label 'THERE'
Generally accepted standards, although by no means mandatory, include the identification of general purpose registers with mnemonics. Unlike assemblers for some other systems, such as X86 assembly language, register mnemonics are not reserved symbols but are defined through EQU statements elsewhere in the program. This improves readability of assembler language programs and provides a cross-reference of register usage. Thus typically you may see the following in an assembler program:
R3 EQU 3 ... L R3,ZIGGY
Some notable instruction mnemonics are
BALR for a call storing the return address in a register before stacks were used,
ZAP. The latter inspired the name of the SuperZAP utility by a programmer using the pseudonym WAMOZART, cf. SuperZap at the Free On-line Dictionary of Computing .
Assembler instructions, sometimes termed directives on other systems, are requests to the assembler to perform various operations during the code generation process. For instance,
CSECT means "start a section of code here";
DC defines a constant to be placed in the object code.
Macros and conditional assembly
Basic assembler language did not support macros.
Later assembler versions allowed the programmer to group instructions together into macros and add them to a library, which can then be invoked in other programs, usually with parameters, like the preprocessor facilities in C and related languages. Macros can include conditional assembler instructions, such as
AIF (an ‘if’ construct), used to generate different code according to the chosen parameters. That makes the macro facility of this assembler very powerful. While multiline macros in C are an exception, macro definitions in assembler can easily be hundreds of lines.
Operating system macros
Most programs will require services from the operating system, and the OS provides standard macros for requesting those services. These are analogous to Unix system calls. For instance, in MVS (later z/OS), STORAGE (with the OBTAIN parameter) dynamically allocates a block of memory, and GET retrieves the next logical record from a file.
Unlike Unix system calls, macros are not standardized across operating systems though. Even something as simple as writing a "sequential file" is coded differently e.g. in Z/OS than in Z/VSE.
The following fragment shows how the logic "If SEX = 'M', add 1 to MALES; else, add 1 to FEMALES" would be performed in assembler.
CLI SEX,C'M' Male? BNE IS_FEM If not, branch around L 7,MALES Load current value of MALES into register 7 AL 7,=F'1' add 1 ST 7,MALES store back the result B GO_ON Finished with this portion IS_FEM EQU * A label L 7,FEMALES Load current value in FEMALES into register 7 AL 7,=F'1' add 1 ST 7,FEMALES store back the result GO_ON EQU * - rest of program - * MALES DC F'0' Counter for MALES (initially=0) FEMALES DC F'0' Counter for FEMALES (initially=0)
HELLO CSECT The name of this program is 'HELLO' * Register 15 points here on entry from OPSYS or caller. STM 14,12,12(13) Save registers 14,15, and 0 thru 12 in caller's Save area LR 12,15 Set up base register with program's entry point address USING HELLO,12 Tell assembler which register we are using for pgm. base LA 15,SAVE Now Point at our own save area ST 15,8(13) Set forward chain ST 13,4(15) Set back chain LR 13,15 Set R13 to address of new save area * -end of housekeeping (similar for most programs) - WTO 'Hello World' Write To Operator (Operating System macro) * L 13,4(13) restore address to caller-provided save area XC 8(4,13),8(13) Clear forward chain LM 14,12,12(13) Restore registers as on entry DROP 12 The opposite of 'USING' SR 15,15 Set register 15 to 0 so that the return code (R15) is Zero BR 14 Return to caller * SAVE DS 18F Define 18 fullwords to save calling program registers END HELLO This is the end of the program
WTO is an assembler macro that generates an operating system call. Because of saving registers and later restoring and returning, this small program is usable as a batch program invoked directly by the operating system Job control language (JCL) like this:
// EXEC PGM=HELLO
or, alternatively, it can be CALLed as a subroutine from such a program:
With the exception of the assemblers for the IBM System/360 Model 20 the IBM assemblers were largely upward-compatible. The differences were mainly in the complexity of expressions allowed and in macro processing. OS/360 assemblers were originally designated according to their memory requirements.
7090/7094 Support Package assembler
Basic Programming Support assembler
The assembler for BPS is the true "basic assembler." It was intended to be loaded from cards and would run on an 8 KB System/360 (except Model 20). It had no support for macro instructions or extended mnemonics (such as BH in place of BC 2 to branch if condition code 2 indicates a high compare). It could assemble only a single control section and did not allow dummy sections (structure definitions). Parenthesized expressions were not allowed and expressions were limited to three terms with the only operators being '+', '-', and '*'.:pp.59–61
Basic Operating System assembler
Assembler D was the DOS/360 assembler for machines with a memory size of 16 KB. It came in two versions: A 10 KB variant for machines with the minimum 16 KB memory, and a 14 KB variant for machines with 24 KB. An F-level assembler was also available for DOS machines with 64 KB or more. D assemblers offered nearly all the features of higher versions.:p.7
Assembler E and F
Assembler E was designed to run on an OS/360 system with a minimum of 32 KB of main storage, with the assembler itself requiring 15 KB.:p.2 Assembler F could run under either DOS/360 or OS/360 on a system with a 64 KB memory, with the assembler requiring 44 KB. These assemblers were a standard part of OS/360; the version that was generated was specified at system generation (SYSGEN).
"Assembler G" was a set of modifications made to Assembler F in the 1970s by the University of Waterloo (Assembler F was/is open source). Enhancements were mostly in better handling of input/output and improved buffering which speed up assemblies considerably. "Assembler G" was never an IBM product.
Assembler H Version 2 was announced in 1981 and included support for Extended Architecture (XA), including the AMODE and RMODE directives.:p.3–28 It was withdrawn from marketing in 1994 and support ended in 1995. It was replaced by High Level Assembler.
Assembler XF was an upgrade of Assembler F which included the new System/370 architecture instructions. This version provided a common assembler for OS/VS and DOS/VS systems. Other changes included relaxing restrictions on expressions and macro processing. Assembler XF required a minimum partition/region size of 64 KB (virtual). Recommended size was 128 KB.:p.73
High Level Assembler
High Level Assembler (HLASM), announced in 1992 as a licensed program "becomes the default translator for System/370 (TM) and System/390 (TM) operating environments." The assembler supports the MVS, VSE, and VM operating systems and successors. As of Release 6 it now is able to run under Linux on zSeries and generate ELF or COFF object files. It features a long list of mostly usability enhancements, and incorporates the SLAC (Stanford Linear Accelerator) modifications to Assembler H. Among features added were an indication of
DSECT for location counter, a list of "using" registers currently active, an indication of whether a variable is read or written in the cross-reference, and allowing mixed-case symbol names. The
RSECT directive (Read-only Control Section) allows the assembler to check reentrancy on a per-section basis.
RSECT was previously "undocumented and inconsistently implemented in Assembler H.":p.43 HLASM is the current assembler for IBM mainframe systems as of 2012.
IBM System/360 Model 44 PS assembler
The IBM System/360 Model 44 Programming System Assembler processed a language that was a "selected subset" of OS/360 and DOS/360 assembler language. It had no support for storage-to-storage (SS) instructions or the convert to binary (
CVB), convert to decimal (
CVD), read direct (
RDD) and write direct (
WRD) instructions. It did include four instructions unique to the Model 44: Change Priority Mask (
CHPM), Load PSW Special (
LPSX), Read Direct Word (
RDDW), and Write Direct Word (
WRDW). It also included directives to update the source program, a function performed by utility programs in other systems (
ENDUP). It provided named common and implicitly defined
&SETA symbols, but had some restrictions as well.:pp.53,73
IBM System/360 TSS assembler
The assembler for the System/360 Model 67 Time Sharing System had a number of differences in directives to support unique TSS features. The
PSECT directive generated a Prototype Control Section containing relocatable address constants and modifiable data used by the program.:p.143
There have been several IBM-compatible assemblers for special environments.
- The Univac 90/60, 90/70 and 90/80 series from Unisys was designed to accept IBM-format assembler, as the machine series was a workalike to the S/360 and S/370.
- The Fujitsu BS2000 series was also built as a 370 workalike from the same resource as Univac, and is still in use in some parts of Europe.
- Dignus LLC Systems/ASM is an HLASM-compatible assembler that can run natively on IBM systems or as a cross-assembler.
- Freeware PC/370, written by Don Higgins, was later purchased by Micro Focus.
- z390 was an assembler and System 390 emulator also written by Don Higgins and is programmed in Java. It is open source and available from http://www.z390.org/
- Penn State University authored a package called ASSIST, which included a System 370 assembler and interpreter.
- Tachyon Software LLC markets the Tachyon Assembler Workbench which runs on Windows, Linux/x86, Linux for S/390 and zSeries, AIX and Solaris.
- GNU Assembler (gas) is part of the GNU Compiler Collection (gcc) for Linux on OS/390 and System/z. This assembler has a unique syntax that is incompatible with other assemblers for IBM architectures.
- IBM System/360
- Assembly language
- PC-based IBM-compatible mainframes – list of compatible machines or virtual machines
- Disassembler – reverse process of Assembly, reconstructing assembly-like source from machine code
- "HLASM - List of all Opcodes, Extended Mnemonics and Function Codes, Sorted by Mnemonic". Retrieved January 14, 2013.
- IBM Corporation (1965). IBM System/360 Basic Programming Support Basic Assembler Language (PDF).
- IBM Corporation (1964). IBM 7090/7094 Support Package for IBM System/360 (PDF).
- IBM Corporation (1965). IBM System/360 Basic Operating System Language Specifications Assembler ('16K Disk/Tape) (PDF).
- IBM Corporation (1970). IBM System/360 Disk and Tape Operating Systems Assembler Language (PDF).
- IBM Corporation (1966). IBM System/360 Operating System Assembler (32K) Program Logic Manual (PDF).
- IBM Corporation (1968). IBM System/360 Disk Operating System Assembler(F) Program Logic (PDF).
- IBM Corporation (1971). IBM System/360 Assembler(F) Program Logic (PDF).
- IBM Corporation (1974). IBM OS Assembler Language (PDF).
- Stanford Linear Accelerator Center. "GENERALIZED IBM SYSTEM 360 SOFTWARE MEASUREMENT (SLAC-PUB-715)" (PDF). Retrieved October 8, 2012.
- IBM Corporation (1984). MVS/Extended Architecture Conversion Notebook (PDF).
- IBM Corporation. "5668-962 IBM Assembler H Version 2 Release 1.0". Retrieved October 8, 2012.
- IBM Corporation (1973). OS/VS Assembler Programmer's Guide (PDF).
- IBM Corporation (2008). High Level Assembler for Linux on zSeries User's Guide (PDF).
- IBM Corporation. "Announcement Letter Number 292-244". Retrieved October 8, 2012.
- IBM Corporation (1995). IBM High Level Assembler for MVS & VM & VSE Release 2 Presentation Guide (PDF). Archived from the original (PDF) on 2016-01-23.
- IBM Corporation (1966). IBM System/360 Model 44 Programming System Assembler Language (PDF).
- IBM Corporation (1976). IBM Time Sharing System Assembler Programmer's Guide (PDF).
- Alcock, David. "Dave's z/Architecture Assembler FAQ". Planet MVS. Retrieved December 15, 2012.
- Fujitsu ASSEMH manuals available from http://manuals.ts.fujitsu.com/index.php?id=1-2-2926-15435 (Retrieved 2016-02-27)
- Dignus, LLC. "Systems/ASM". Retrieved December 15, 2012.
- Tachyon Software LLC. "Tachyon Software". Retrieved December 15, 2012.
- Rudd, Anthony. An Illustrated Guide for z/Architecture Assembler Programmers. Create Space (2012).
|Wikibooks has a book on the topic of: 360 Assembly|
- A Programmer's Introduction to IBM System/360 Assembler Language (Student Text)
- High Level Assembler for z/OS & z/VM & z/VSE Language Reference
- The Punctilious Programmer: IBM Mainframe Assembler
- Basic IBM Mainframe Assembly Language Programming
- OS/390 Assembler Programming Introduction
- Web enabled IBM Assembler F compiler for small experiments
- ASSIST – Assembler System for Student Instruction & Systems Teaching