* 00000100 * This program is free software; you can redistribute it and/or modify 00000200 * it under the terms of the GNU General Public License as published by 00000300 * the Free Software Foundation; either version 2 of the License 00000400 * or (at your option) any later version. 00000500 * The license text is available at the following internet addresses: 00000600 * - http://www.bixoft.com/english/gpl.htm 00000700 * - http://fsf.org 00000800 * - http://opensource.org 00000900 * 00001000 * This program is distributed in the hope that it will be useful, 00001100 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00001200 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 00001300 * See the GNU General Public License for more details. 00001400 * 00001500 * You should have received a copy of the GNU General Public License 00001600 * along with this program; if not, write to either of the following: 00001700 * the Free Software Foundation, Inc. B.V. Bixoft 00001800 * 59 Temple Place, Suite 330 Rogge 9 00001900 * Boston, MA 02111-1307 7261 JA Ruurlo 00002000 * United States of America The Netherlands 00002100 * 00002200 * e-mail: bixoft@bixoft.nl 00002300 * phone : +31-6-22755401 00002400 * 00002500 *PROCESS RENT 00010000 *PROCESS FLAG(SUBSTR) 00020000 *********************************************************************** 00030000 * 00040000 * BIXXAMS - Bixoft Cross Access Method Services 00050000 * Licensed material - Property of B.V. Bixoft 00060000 * 00070000 * This program can be licensed or used on an as-is basis. 00080000 * No warranty, neither implicit nor explicit, is given. 00090000 * It remains your own responsibility to ensure the correct 00100000 * working of this program in your installation. 00110000 * 00120000 * Suggestions for improvement are always welcome at 00130000 * http://www.bixoft.com or mail to bixoft@bixoft.nl 00140000 * 00150000 * (C) Copyright B.V. Bixoft, 1999-2000 00160000 *********************************************************************** 00170000 * 00180000 * Entry for stand-alone testing new mapping macro's 00190000
PGM VERSION=V00R00M00, * Version number *00200000
HDRTXT='Testpgm for GLUE macro', *00210000 ENTRY=MAIN, * Entry for subroutine *00220000 AMODE=24, * 24-bit addr. mode *00230000 RMODE=24, * Resides below 16 Mb *00240000
ABND=4090, * Abend code for BXALOWPG *00250000
MAPS=(BITS,REGS), * Standard mappings *00260000
LIST=NO * 00270000 * 00280000
R_RCD EQUREG , * Allocate retcode register 00290000
USE R_RCD * 00300000 * 00310000
RWTO 'BXALOWPG is now running' 00320000
ABND TSTRC,RCD=R5 * warning messages in assembly 00330000 * 00340000
RETRN RC=0 * Normal return to caller 00350000 *********************************************************************** 00360000 * 00370000 * Constants etc. 00380000 * 00390000 *********************************************************************** 00400000 LTORG , * 00410000 * 00420000 END 00430000
¤ Dauer der Verarbeitung: 0.29 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
