mirror of
https://github.com/moshix/mvs.git
synced 2026-02-16 04:02:53 +00:00
34 lines
906 B
Plaintext
34 lines
906 B
Plaintext
PRINT NOGEN
|
||
****************************************************************
|
||
* FILENAME: MOVE2D.MLC *
|
||
* AUTHOR : Bill Qualls *
|
||
* SYSTEM : Compaq 286LTE, PC/370 R4.2 *
|
||
* REMARKS : Demonstrate character moves. *
|
||
****************************************************************
|
||
START 0
|
||
BEGIN BEGIN
|
||
WTO IPHONE
|
||
MVC OPFX,IPFX
|
||
MVI OHYPHEN,HYPHEN
|
||
MVC OLINE,ILINE
|
||
WTO OPHONE
|
||
RETURN
|
||
*
|
||
* Literals, if any, will go here
|
||
*
|
||
LTORG
|
||
*
|
||
* Other field definitions
|
||
*
|
||
HYPHEN EQU C'-'
|
||
*
|
||
IPHONE DS 0CL7
|
||
IPFX DC CL3'555'
|
||
ILINE DC CL4'1212'
|
||
*
|
||
OPHONE DS 0CL8
|
||
OPFX DS CL3
|
||
OHYPHEN DS CL1
|
||
OLINE DS CL4
|
||
END BEGIN
|
||
|