TITLE 'DEMOAST1 - READ AND PRINT'
*
* AUTHOR.  DON HIGGINS.
* DATE.    12/30/82.
* REMARKS. PC/370 DEMO TO ILLUSTRATE ASSIST DUMP AND LOG OUTPUT.
*
* THIS PROGRAM READS CARDS FROM DEMOAST1.DAT AND LISTS THEM ALONG
* WITH SELECTED DUMPS OF REGISTERS AND STORAGE ON DEMOAST1.LOG.
*
* MAINTENANCE
*
* 05/18/87 CONVERTED TO R2.0 XFILI/XFILO PATH/FILENAME FORMAT
*
*
DEMOAST1  CSECT
	USING *,R15
	XFILI =C'DEMOAST1.DAT'
	XFILO =C'DEMOAST1.LOG'
	XDUMP
LOOP     EQU   *
	XREAD CARD
	BNZ   EOF
	XPRNT CARD,80
	B     LOOP
EOF      EQU   *
	XDUMP CARD,80
	XDUMP CARD
	SVC   EXIT
R15      EQU   15
EXIT     EQU   0
CARD     DC    CL80' '
	END   DEMOAST1
/pre>
                  

• "The PC/370 package provides the capability to assemble, link, and execute IBM 370 assembler programs on any 80x86 MSDOS 2.0+ micro computer such as the IBM PC, XT, AT, PS/2, Compaq, etc. " ~1988
• A more detailed description in an ACM abstract
• Based on ASSIST which was implemented as a batch 360 system ~1974
• includes lots of short example programs
• includes the source for a working full screen character-based editor
• I found it at http://www.ibmmainframes.com/downloads/PC-370.zip
• I put a copy at http://mshook.googlepages.com/PC-370.zip

    1      SEE DEMO                 invoke full screen editor to
                                    create DEMO.ALC 370 assembler
                                    source file.
    2      DEMO CSECT               first line - define section
    3           USING *,15          second     - define base register
    4           LA    2,=C'HELLO$'  third      - address of msg. text
    5           SVC   209           fourth     - request console msg.
    6           BR    14            fifth      - exit to MS-DOS
    7           END                 sixth      - end of program

    8                          enter escape key to save DEMO.ALC
                                    and exit to MS-DOS
    9      A370 DEMO/LX             assemble DEMO.ALC and create
                                    DEMO.OBJ object code file and
                                    DEMO.PRN listing with symbol
                                    cross reference.

• Volumes of scans of IBM and paper company specifications and test procedures
• Many references to TAPPI (Technical Association of the Pulp and Paper Industry) standards.
• Hosted by the IBM 1401 Restoration Project of the Computer History Museum
• The host domain is actually Ed Thelen's Nike Missile Web Site