On 6/14/2012 9:52 AM, McKown, John wrote:
If that is the definition:
label:
is functionally identical to:
label DS 0H
It would be __simple__ to implement for users of FLOWASM. Just modify the
source input routine to change the statement to remove the tailing : and insert
DS 0H.
Change this:
IF CLI,0(R3),GT,C' ' If label present
JAS R14,FLOW_SrcParse Advance past Label
ENDIF , EndIf
to this:
IF CLI,0(R3),GT,C' ' If label present
JAS R14,FLOW_SrcParse Advance past label
IF LTR,R4,R4,NP If nothing after label
LR R14,R3 Point to last character
AHI R14,-1 (same)
IF CLI,0(R14),EQ,C':' If trailing colon
L R0,FLOWSAV2+4 Old stmt pointer
L R1,FLOWSAV2 Old stmt length
AHI R1,-1 Adjust for colon
LA R3,FLOWSTMW New stmt pointer
ST R3,FLOWSAV2+4 (same)
LA R4,L'FLOWSTMW New stmt length
ST R4,FLOWSAV2 (same)
LR R14,R3 Target pointer
LR R15,R4 Target length
DO UNTIL=NO Do for MVCLE
MVCLE R14,R0,C' ' Copy with blank pad
ENDDO , EndDo
JAS R14,FLOW_SrcParse Advance past label
MVC 1(5,R3),=C'DC 0H' Set 'DC 0H'
ENDIF , EndIf trailing colon
ENDIF , EndIf nothing after label
ENDIF , EndIf label present
--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
310-338-0400 x318
[email protected]
http://www.phoenixsoftware.com/
