[Info-vax] iomacs.mlb

VAXman- at SendSpamHere.ORG VAXman- at SendSpamHere.ORG
Mon Jan 28 11:19:22 EST 2019


In article <q2jffv$sgd$1 at gioia.aioe.org>, GC <cornelius at eisner.decus.org.INVALID> writes:
>Emilio Moreno <emilioaxp at gmail.com> wrote:
>> 
>> This is what I get when compiling.
>
>How hard could this be?  Just wing it!
>
>Suggestions follow below.
>
>>         print_w <>,jnum(r5),pri(r5)
>> ^
>> %AMAC-E-UNRECSTMT, unrecognized statement
>> at line number 65 in file 
>
>Tempted to think this is "print word", but I won't jump to
>that conclusion yet.  Try replacing this by two invocations
>of a subroutine (or macro) that uses, say, $FAO and
>lib$put_output to print a numeric value (we're ignoring
>the first (empty) macro arg).

A concur.  Looked like "print word" and "print long".
>
>E.g.,
>
> cvtwl jnum(r5),-(sp)     ; use a pushl if long
> calls #1,print_longword  ; You'll have to write this one
> cvtwl pri(r5),-(sp)
> calls #1,print_longword
>
>>         print_l <Enter job number>
>> ^
>> %AMAC-E-UNRECSTMT, unrecognized statement
>> at line number 84 in file 
>
>I'll guess this could be replaced by invocation of a
>macro we'll call print_literal.  It should allocate
>(via .ascid) the supplied literal string in a data
>..psect, then print it with, say, lib$put_output.
>
>>         INIT_IO
>> ^
>> %AMAC-E-UNRECSTMT, unrecognized statement
>> at line number 111 in file
>
>No-op this one.
> 
>> menu:   print_l <1. Insert new node.>
>> .....^
>> %AMAC-E-UNRECSTMT, unrecognized statement
>> at line number 124 in file 
>
>See above.
>
>> 
>>         EXIT
>> ^
>> %AMAC-E-UNRECSTMT, unrecognized statement
>> at line number 159 in file 
>
>Try 
>
> $EXIT_S
>
>or
>
> RET
> 
>>         .end final
>> ^
>> %AMAC-E-PREVERROR, previous errors prevent further analysis
>> at line number 161 in file
>
>[likely errors and typos above - don't do much MACRO any more]
>
>George

Simple calls to LIB$FAO and LIB$PUT_OUTPUT.  *I* would use dynamic
string descriptors composed on the stack for the output string and
then, invoke STR$FREE1_DX to free up the allocated dynamic memory.

-- 
VAXman- A Bored Certified VMS Kernel Mode Hacker    VAXman(at)TMESIS(dot)ORG

I speak to machines with the voice of humanity.



More information about the Info-vax mailing list