mirror of
https://github.com/moshix/mvs.git
synced 2026-02-04 23:14:55 +00:00
34 lines
568 B
Plaintext
34 lines
568 B
Plaintext
WTORPC MACRO ?,?
|
||
AIF &1=?.READ
|
||
AIF &1='.LIT
|
||
&LABEL$$ SVC 31
|
||
IC 0,&1+L'&1
|
||
MVI &1+L'&1,C'$'
|
||
LA 2,&1
|
||
SVC 209
|
||
STC 0,&1+L'&1
|
||
AGO .READ
|
||
.LIT ANOP
|
||
&LABEL$$ SVC 31
|
||
TEXT SETC &1
|
||
LA 2,=C'&TEXT.$'
|
||
SVC 209
|
||
.READ SVC 30
|
||
MVC &2,=16C' '
|
||
LA 2,WTOR$&N$
|
||
SVC 210
|
||
LA 2,=C'$'
|
||
SVC 209
|
||
XR 2,2
|
||
IC 2,WTOR$&N$+1
|
||
LTR 2,2
|
||
BZ *+26
|
||
BCTR 2,0
|
||
STC 2,*+5
|
||
MVC &2,WTOR$&N$+2
|
||
LA 1,&2
|
||
LA 2,1(2)
|
||
SVC 12
|
||
B *+22
|
||
WTOR$&N$ DC AL1(L'&2+1,0),16X'20'
|
||
|