Getting started with BASE24. Compiling your first TAL program

Posted on 7th Jun 2017 1134 views

To compile execute:

TAL /IN NAME_OF_THE_SOURCE/ PROGRAM_NAME 

TAL
this calls the TAL compiler on your machine giving the parameters
/IN
followed by the name of the input file to compile
NAME_OF_THE_SOURCE/
the source file
PROGRAM_NAME
the name of the object to compile to

[break]

$NEAPAY TRAINING 30> tal /in prog101/ prog101o
 TAL - T9250H01 - (01MAY200
 Copyright Tandem Computers Incorporated 1976, 1978, 1981-83, 1985, 1987-97

     1.    000000 0  0   ?NOCODE, inspect, symbols
     2.    000000 0  0   
     3.    000000 0  0   ?NOLIST, source $system.system.extdecs0(
    11.    000000 0  0   
    12.    000000 0  0   literal maxlen = 256;
    13.    000000 0  0   
    14.    000000 0  0   proc startup_proc(rucb, passthru, message, msglen, matc
h) variable;
    15.    000000 1  0   int .rucb, .passthru, .message, msglen, match;
    16.    000000 1  0       begin
    17.    000000 1  1       end;

MATCH                            Variable       INT            
                                 Direct         L-004
MESSAGE                          Variable       INT            
                                 Indirect       L-006
MSGLEN                           Variable       INT            
                                 Direct         L-005
PASSTHRU                         Variable       INT            
                                 Indirect       L-007
RUCB                             Variable       INT            
                                 Indirect       L-010

    18.    000000 0  0   
    19.    000000 0  0   proc param_proc(rucb, passthru, message, msglen, match)
 variable;
    20.    000000 1  0   int .rucb, .passthru, .message, msglen, match;
    21.    000000 1  0       begin
    22.    000000 1  1       end;

MATCH                            Variable       INT            
                                 Direct         L-004
MESSAGE                          Variable       INT            
                                 Indirect       L-006
MSGLEN                           Variable       INT            
                                 Direct         L-005
PASSTHRU                         Variable       INT            
                                 Indirect       L-007
RUCB                             Variable       INT            
                                 Indirect       L-010

    23.    000000 0  0   
    24.    000000 0  0   proc assign_proc(rucb, passthru, message, msglen, match
) variable;
    25.    000000 1  0   int .rucb, .passthru, .message, msglen, match;
    26.    000000 1  0       begin
    27.    000000 1  1       end;

MATCH                            Variable       INT            
                                 Direct         L-004
MESSAGE                          Variable       INT            
                                 Indirect       L-006
MSGLEN                           Variable       INT            
                                 Direct         L-005
PASSTHRU                         Variable       INT            
                                 Indirect       L-007
RUCB                             Variable       INT            
                                 Indirect       L-010

    28.    000000 0  0   
    29.    000000 0  0   proc hello_w main;
    30.    000000 1  0       begin
    31.    000000 1  1       int term_length, termnum, count;
    32.    000000 1  1       string .terminal_name[0:maxlen - 1], .sbuffer[0:max
len - 1];
    33.    000000 1  1   
    34.    000000 1  1       call initializer(,, startup_proc, param_proc, assig
n_proc,,);
    35.    000040 1  1       call process_getinfo_(,,,,, terminal_name:maxlen, t
erm_length);
    36.    000057 1  1       call file_open_(terminal_name:term_length, termnum)
;
    37.    000074 1  1       sbuffer ':=' "Hello world!";
    38.    000104 1  1       count := 12;
    39.    000106 1  1       call writex(termnum, sbuffer, count);
    40.    000120 1  1       call file_close_(termnum);
    41.    000127 1  1       end;

COUNT                            Variable       INT            
                                 Direct         L+003
SBUFFER                          Variable       STRING         
                                 Indirect       L+005
TERMINAL_NAME                    Variable       STRING         
                                 Indirect       L+004
TERMNUM                          Variable       INT            
                                 Direct         L+002
TERM_LENGTH                      Variable       INT            
                                 Direct         L+001

ASSIGN_PROC                      Proc                          
                                 %000000    
FILE_CLOSE_                      Proc           INT            
                                 External
FILE_OPEN_                       Proc           INT            
                                 External
HELLO_W                          Proc                          
                                 %000000    
INITIALIZER                      Proc           INT            
                                 External
MAXLEN                           Literal        INT            
                                 %000400    
PARAM_PROC                       Proc                          
                                 %000000    
PROCESS_GETINFO_                 Proc           INT            
                                 External
STARTUP_PROC                     Proc                          
                                 %000000    
WRITEX                           Proc                          
                                 External

ENTRY POINT MAP BY NAME FOR FILE: TANDEM.$NEAPAY.TRAINING.PROG101O
 
SP  PEP BASE   LIMIT  ENTRY  ATTRS   NAME                               
                 DATE      TIME  LANGUAGE SOURCE FILE
 
00  004 000010 000010 000010 V       ASSIGN_PROC                        
                2017-06-07 14:08 TAL      TANDEM.$NEAPAY.TRAINING.PROG101
00  005 000011 000150 000011 M       HELLO_W                            
                2017-06-07 14:08 TAL      TANDEM.$NEAPAY.TRAINING.PROG101
00  003 000007 000007 000007 V       PARAM_PROC                         
                2017-06-07 14:08 TAL      TANDEM.$NEAPAY.TRAINING.PROG101
00  002 000006 000006 000006 V       STARTUP_PROC                       
                2017-06-07 14:08 TAL      TANDEM.$NEAPAY.TRAINING.PROG101
DATA BLOCK MAP BY NAME FOR FILE: TANDEM.$NEAPAY.TRAINING.PROG101O
 
 BASE   LIMIT  TYPE    MODE    NAME                               
                 DATE      TIME  LANGUAGE  SOURCE FILE
 
 000000        COMMON  WORD    #GLOBAL                            
                2017-06-07 14:08 TAL       TANDEM.$NEAPAY.TRAINING.PROG101
BINDER - OBJECT FILE BINDER - T9621H01   SYSTEM TANDEM
Copyright Compaq Computers Corporation, 1988-2002 
 
Object file TANDEM.$NEAPAY.TRAINING.PROG101O
TIMESTAMP  2017-06-07 14:08:23 
 
         1  Code page
 
         1  Data page
         0  Resident code pages
         0  Extended data pages
 
         0  Top of stack location in words
         1  Code segment
 
         0  Binder Warnings
         0  Binder Errors
 

TAL - Transaction Application Language - T9250H01 - (01MAY200
Number of compiler errors =  0  
Number of unsuppressed compiler warnings =  0  
Number of warnings suppressed by NOWARN =  0  
Maximum symbol table space used was = 21466 bytes
Number of source lines = 11130
Compile cpu time = 00:00:00 
Total Elapsed time = 00:00:00 

$NEAPAY TRAINING 29>