14 Jul
2013
14 Jul
'13
7:11 p.m.
I have a program in MACRO-11 and I have retained just
the essential aspects related to my question. That portion
of the program is at the bottom.
I have unsuccessfully attempted to isolate the first 5 characters
of STRING in the MACRO ABC, but I have been unsuccessful.
Concatenation is possible along with checking individual characters
of the argument, but there does not seem to be support for
changing the last character from "T" to "2" as in my example.
If that were possible, I could always use "ABC WRKTXT"
and check to determine if "WRKTX2" was a defined STRING
name at which point the MACRO ABC would automatically use:
: Mov #WRKTX2,-(SP)
without the necessity of providing the explicit STRING name
of WRKTX2 to be used WITHIN the conditional A$. It
is essential that the address of the STRING be placed on the
stack when the text is in the .PSect TX2. Sometimes, the
text must remain in .PSect TXT, so that is why ABC has
the additional code to detect the last character of STRING.
As I have shown, it is possible to determine if the 6th character
of the STRING name is a :"2", but I don't seem to be able to
strip off the 6th character of the name from STRING and
replace it with a "2". At that point, it would be possible, still
within the MACRO ABC, to test to see if the STRING name
for which the 6th character has been replaced by a "2" exists
and use the second form of ABC.
Thank you in advance for any suggestions?
Jerome Fine
=============================
.IIf NDF A$,A$ = 0
.IIf NDF A$,A$ = 1
.MACRO ABC STRING
..STRI = 0
...STR = 0
.IRPC ..STR.,<STRING>
...STR = ...STR+1
.If EQ ...STR-6
.If IDN ..STR.,<2>
..STRI = 1
.EndC;IDN ..STR.,<2>
.EndC;EQ ...STR-6
.EndR;.IRPC
.If EQ ..STRI
Mov #STRING,R0
.IfF;EQ ..STRI
Mov #STRING,-(SP)
.EndC;EQ ..STRI
.ENDM ABC
.If EQ A$
.PSect TXT RW,D
WRKTXT: .Ascii /Work/
.IfF;EQ A$
.PSect TX2 RW,D
WRKTX2: .Ascii /Work/
.EndC;EQ A$
.PSect Code RW,I
.If EQ A$
ABC WRKTXT
.IfF;EQ A$
ABC WRKTX2
.EndC;EQ A$
.End
17 Jul
17 Jul
3:13 p.m.
On Sun, 14 Jul 2013, Jerome H. Fine wrote:
Date: Sun, 14 Jul 2013 16:11:16
From: Jerome H. Fine <jhfinedp3k at compsys.to>
Reply-To: "General Discussion: On-Topic and Off-Topic Posts"
<cctalk at classiccmp.org>
To: General Discussion: On-Topic and Off-Topic Posts <cctalk at classiccmp.org>
;
Subject: Help with a .MACRO in MACRO-11
I have a program in MACRO-11 and I have retained just
the essential aspects related to my question. That portion
of the program is at the bottom.
I have unsuccessfully attempted to isolate the first 5 characters
of STRING in the MACRO ABC, but I have been unsuccessful.
Concatenation is possible along with checking individual characters
of the argument, but there does not seem to be support for
changing the last character from "T" to "2" as in my example.
If that were possible, I could always use "ABC WRKTXT"
and check to determine if "WRKTX2" was a defined STRING
name at which point the MACRO ABC would automatically use:
: Mov #WRKTX2,-(SP)
without the necessity of providing the explicit STRING name
of WRKTX2 to be used WITHIN the conditional A$. It
is essential that the address of the STRING be placed on the
stack when the text is in the .PSect TX2. Sometimes, the
text must remain in .PSect TXT, so that is why ABC has
the additional code to detect the last character of STRING.
As I have shown, it is possible to determine if the 6th character
of the STRING name is a :"2", but I don't seem to be able to
strip off the 6th character of the name from STRING and
replace it with a "2". At that point, it would be possible, still
within the MACRO ABC, to test to see if the STRING name
for which the 6th character has been replaced by a "2" exists
and use the second form of ABC.
Thank you in advance for any suggestions?
Jerome Fine
=============================
.IIf NDF A$,A$ = 0
.IIf NDF A$,A$ = 1
.MACRO ABC STRING
..STRI = 0
...STR = 0
.IRPC ..STR.,<STRING>
...STR = ...STR+1
.If EQ ...STR-6
.If IDN ..STR.,<2>
..STRI = 1
.EndC;IDN ..STR.,<2>
.EndC;EQ ...STR-6
.EndR;.IRPC
.If EQ ..STRI
Mov #STRING,R0
.IfF;EQ ..STRI
Mov #STRING,-(SP)
.EndC;EQ ..STRI
.ENDM ABC
.If EQ A$
.PSect TXT RW,D
WRKTXT: .Ascii /Work/
.IfF;EQ A$
.PSect TX2 RW,D
WRKTX2: .Ascii /Work/
.EndC;EQ A$
.PSect Code RW,I
.If EQ A$
ABC WRKTXT
.IfF;EQ A$
ABC WRKTX2
.EndC;EQ A$
.End
- - - -
Jerome,
I've never used MACRO-11, but have done a lot of macro and
string manipulation work. Given the limitation that you have
listed (cannot change a character of a string), and the ability
to test the sixth character of the passed string, one solution
might be to
(1) create or build up a new string NEWSTR that contains the
first five characters of the passed argument, then
(2) test the last character of the passed argument and,
depending on the results of the test,
(3) append the appropriate character to the NEWSTR and do any
other actions that use the complete NEWSTR but are based on the
value of the last character of the passed argumenet.
In a pseudocode, using PASSED as the passed six-char value, and
NEWSTR as the built-up string, it would be:
; initialize NEWSTR
NEWSTR = ""
;
; Next, build up NEWSTR to hold the first five chars of PASSED
;
; Here the setting of the value of NEWSTR is shown as a single
; line, but it might be necessary to build it up with a long
; series of test much like the testing of the sixth character of
; PASSED. You might have to use 5 loops, or if that isn't
; possible, five blocks with each block containing 36 to 40
; tests.
;
NEWSTR = first five chars of PASSED
;
; test the sixth char of PASSED, append it to NEWSTR, and
; perform any other required actions. "##" is a CPP-style
; concatenation operator.
;
if sixth-char-of-PASSED == "A"
NEWSTR = NEWSTR ## "A"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "B"
NEWSTR = NEWSTR ## "B"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "C"
NEWSTR = NEWSTR ## "C"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "D"
NEWSTR = NEWSTR ## "D"
; use NEWSTR based on 6th char of PASSED
.
.
.
if sixth-char-of-PASSED == "0"
NEWSTR = NEWSTR ## "0"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "1"
NEWSTR = NEWSTR ## "1"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "2"
NEWSTR = NEWSTR ## "2"
; use NEWSTR based on 6th char of PASSED
endif
.
.
.
It isn't pretty or elegant, but I've had success with this
approach several times when the tool or simple language I've
had to use cannot change a character in an existing string.
Best wishes,
--Ernest
18 Jul
18 Jul
11:58 p.m.
Ernest G. Allen wrote:
On Sun, 14 Jul
2013, Jerome H. Fine wrote:
Date: Sun, 14 Jul 2013 16:11:16
From: Jerome H. Fine <jhfinedp3k at compsys.to>
Reply-To: "General Discussion: On-Topic and Off-Topic Posts"
<cctalk at classiccmp.org>
To: General Discussion: On-Topic and Off-Topic Posts <cctalk at classiccmp.org>
;
Subject: Help with a .MACRO in MACRO-11
I have a program in MACRO-11 and I have retained just
the essential aspects related to my question. That portion
of the program is at the bottom.
I have unsuccessfully attempted to isolate the first 5 characters
of STRING in the MACRO ABC, but I have been unsuccessful.
Concatenation is possible along with checking individual characters
of the argument, but there does not seem to be support for
changing the last character from "T" to "2" as in my example.
If that were possible, I could always use "ABC WRKTXT"
and check to determine if "WRKTX2" was a defined STRING
name at which point the MACRO ABC would automatically use:
: Mov #WRKTX2,-(SP)
without the necessity of providing the explicit STRING name
of WRKTX2 to be used WITHIN the conditional A$. It
is essential that the address of the STRING be placed on the
stack when the text is in the .PSect TX2. Sometimes, the
text must remain in .PSect TXT, so that is why ABC has
the additional code to detect the last character of STRING.
As I have shown, it is possible to determine if the 6th character
of the STRING name is a :"2", but I don't seem to be able to
strip off the 6th character of the name from STRING and
replace it with a "2". At that point, it would be possible, still
within the MACRO ABC, to test to see if the STRING name
for which the 6th character has been replaced by a "2" exists
and use the second form of ABC.
Thank you in advance for any suggestions?
Jerome Fine
=============================
.IIf NDF A$,A$ = 0
.IIf NDF A$,A$ = 1
.MACRO ABC STRING
..STRI = 0
...STR = 0
.IRPC ..STR.,<STRING>
...STR = ...STR+1
.If EQ ...STR-6
.If IDN ..STR.,<2>
..STRI = 1
.EndC;IDN ..STR.,<2>
.EndC;EQ ...STR-6
.EndR;.IRPC
.If EQ ..STRI
Mov #STRING,R0
.IfF;EQ ..STRI
Mov #STRING,-(SP)
.EndC;EQ ..STRI
.ENDM ABC
.If EQ A$
.PSect TXT RW,D
WRKTXT: .Ascii /Work/
.IfF;EQ A$
.PSect TX2 RW,D
WRKTX2: .Ascii /Work/
.EndC;EQ A$
.PSect Code RW,I
.If EQ A$
ABC WRKTXT
.IfF;EQ A$
ABC WRKTX2
.EndC;EQ A$
.End
Jerome,
I've never used MACRO-11, but have done a lot of macro and
string manipulation work. Given the limitation that you have
listed (cannot change a character of a string), and the ability
to test the sixth character of the passed string, one solution
might be to
(1) create or build up a new string NEWSTR that contains the
first five characters of the passed argument, then
(2) test the last character of the passed argument and,
depending on the results of the test,
(3) append the appropriate character to the NEWSTR and do any
other actions that use the complete NEWSTR but are based on the
value of the last character of the passed argumenet.
In a pseudocode, using PASSED as the passed six-char value, and
NEWSTR as the built-up string, it would be:
; initialize NEWSTR
NEWSTR = ""
;
; Next, build up NEWSTR to hold the first five chars of PASSED
;
; Here the setting of the value of NEWSTR is shown as a single
; line, but it might be necessary to build it up with a long
; series of test much like the testing of the sixth character of
; PASSED. You might have to use 5 loops, or if that isn't
; possible, five blocks with each block containing 36 to 40
; tests.
;
NEWSTR = first five chars of PASSED
;
; test the sixth char of PASSED, append it to NEWSTR, and
; perform any other required actions. "##" is a CPP-style
; concatenation operator.
;
if sixth-char-of-PASSED == "A"
NEWSTR = NEWSTR ## "A"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "B"
NEWSTR = NEWSTR ## "B"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "C"
NEWSTR = NEWSTR ## "C"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "D"
NEWSTR = NEWSTR ## "D"
; use NEWSTR based on 6th char of PASSED
.
.
.
if sixth-char-of-PASSED == "0"
NEWSTR = NEWSTR ## "0"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "1"
NEWSTR = NEWSTR ## "1"
; use NEWSTR based on 6th char of PASSED
endif
if sixth-char-of-PASSED == "2"
NEWSTR = NEWSTR ## "2"
; use NEWSTR based on 6th char of PASSED
endif
.
.
.
It isn't pretty or elegant, but I've had success with this
approach several times when the tool or simple language I've
had to use cannot change a character in an existing string.
17 Jul
17 Jul
5:46 p.m.
On Sun, Jul 14, 2013 at 07:11:16PM -0400, Jerome H. Fine wrote:
I have unsuccessfully attempted to isolate the first 5
characters
of STRING in the MACRO ABC, but I have been unsuccessful.
Fun problem! Thanks for the hack break. I may have missed the point of what
you're doing but I got something which I *think* is on the right track (actual
code generated by the macro may miss the point), by nesting .IRPCs until I got
all six characters in separate .IRPC variables. May be all wrong, but what
else is new ...
John Wilson
D Bit
---------------------------------------------------------------------------
;+
;
; Hideously inefficient macro which explodes a symbol name using six nested
; .IRPCs (each level started only when outer ones reach correct character --
; otherwise assembly is SUPER slow).
;
; JMBW 17-Jul-2013.
;
;-
.macro abc foo
.nchr ct1,<foo> ;must be .GE. 6 chars long
.iif lt ct1-6, .mexit ;no op if not
ct1= 0 ;CH1 is first char
.irpc ch1,<foo>
ct1= ct1+1
.if eq ct1-1
ct2= 0 ;CH2 is second char
.irpc ch2,<foo>
ct2= ct2+1
.if eq ct2-2
ct3= 0 ;you see where I'm going with this
.irpc ch3,<foo>
ct3= ct3+1
.if eq ct3-3
ct4= 0 ;nested .IRPCs run until each position found
.irpc ch4,<foo>
ct4= ct4+1
.if eq ct4-4
ct5= 0
.irpc ch5,<foo>
ct5= ct5+1
.if eq ct5-5
ct6= 0
.irpc ch6,<foo>
ct6= ct6+1
.if eq ct6-6 ;got 'em all, in order
; do whatever you had in mind, with
ch1''ch2''ch3''ch4''ch5''ch6 = sym name
.if df ch1''ch2''ch3''ch4''ch5'2 ;***** N.B. must be
backward ref *****
mov #ch1''ch2''ch3''ch4''ch5'2,-(sp) ;replace CH6
with 2
.iff
mov #foo,r0 ;use original string
.endc
; unwind all that
.endc ; CT6.EQ.6
.endm ; .IRPC CH6
.endc ; CT5.EQ.5
.endm ; .IRPC CH5
.endc ; CT4.EQ.4
.endm ; .IRPC CH4
.endc ; CT3.EQ.3
.endm ; .IRPC CH3
.endc ; CT2.EQ.2
.endm ; .IRPC CH2
.endc ; CT1.EQ.1
.endm ; .IRPC CH1
.endm abc
;
tstvar: .blkw ;exists with and without 2 as sixth char
tstva2: .blkw ;(so macro will choose this one)
;
tstnum: .blkw ;only exists without
;
pig: .blkw ;not long enough (won't really be touched)
;
.list me
abc tstvar ;MOV #TSTVA2,-(SP)
abc tstnum ;MOV #TSTNUM,R0
abc pig ;no op (name too short)
;
.end
18 Jul
18 Jul
11:59 p.m.
John Wilson wrote:
On Sun, Jul 14,
2013 at 07:11:16PM -0400, Jerome H. Fine wrote:
I have unsuccessfully attempted to isolate the
first 5 characters
of STRING in the MACRO ABC, but I have been unsuccessful.
Fun problem! Thanks for the hack break. I may have missed the point of what
you're doing but I got something which I *think* is on the right track (actual
code generated by the macro may miss the point), by nesting .IRPCs until I got
all six characters in separate .IRPC variables. May be all wrong, but what
else is new ...
---------------------------------------------------------------------------
;+
;
; Hideously inefficient macro which explodes a symbol name using six nested
; .IRPCs (each level started only when outer ones reach correct character --
; otherwise assembly is SUPER slow).
;
; JMBW 17-Jul-2013.
;
;-
.macro abc foo
.nchr ct1,<foo> ;must be .GE. 6 chars long
.iif lt ct1-6, .mexit ;no op if not
ct1= 0 ;CH1 is first char
.irpc ch1,<foo>
ct1= ct1+1
.if eq ct1-1
ct2= 0 ;CH2 is second char
.irpc ch2,<foo>
ct2= ct2+1
.if eq ct2-2
ct3= 0 ;you see where I'm going with this
.irpc ch3,<foo>
ct3= ct3+1
.if eq ct3-3
ct4= 0 ;nested .IRPCs run until each position found
.irpc ch4,<foo>
ct4= ct4+1
.if eq ct4-4
ct5= 0
.irpc ch5,<foo>
ct5= ct5+1
.if eq ct5-5
ct6= 0
.irpc ch6,<foo>
ct6= ct6+1
.if eq ct6-6 ;got 'em all, in order
; do whatever you had in mind, with
ch1''ch2''ch3''ch4''ch5''ch6 = sym name
.if df ch1''ch2''ch3''ch4''ch5'2 ;***** N.B. must be
backward ref *****
mov #ch1''ch2''ch3''ch4''ch5'2,-(sp) ;replace CH6
with 2
.iff
mov #foo,r0 ;use original string
.endc
; unwind all that
.endc ; CT6.EQ.6
.endm ; .IRPC CH6
.endc ; CT5.EQ.5
.endm ; .IRPC CH5
.endc ; CT4.EQ.4
.endm ; .IRPC CH4
.endc ; CT3.EQ.3
.endm ; .IRPC CH3
.endc ; CT2.EQ.2
.endm ; .IRPC CH2
.endc ; CT1.EQ.1
.endm ; .IRPC CH1
.endm abc
;
tstvar: .blkw ;exists with and without 2 as sixth char
tstva2: .blkw ;(so macro will choose this one)
;
tstnum: .blkw ;only exists without
;
pig: .blkw ;not long enough (won't really be touched)
;
.list me
abc tstvar ;MOV #TSTVA2,-(SP)
abc tstnum ;MOV #TSTNUM,R0
abc pig ;no op (name too short)
;
.end
4055
days inactive
4060
days old
4 comments
3 participants
participants (3)
-
eallen＠owt.com -
jhfinedp3k＠compsys.to -
wilson＠dbit.com