🚀 go-pugleaf

 I wrote a test program using extended parameter list as bellow. But it

doesn't work. That is, the parameters I type on command line cannot be

referred by the module generated by the assembly source. Can anyone

point out what I mistake?


Thanks in advance                      Tetsuichi Wazawa
                                       Dept.of Science, Biological Institute
                                       Tohoku University

--------------------------- Cut Here ------------------------------------------


*                                                                       ATE00010
         PRINT GEN                                                      ATE00020
         START 0                                                        ATE00030
         STM   14,12,12(13)                                             ATE00040
         BALR  12,0                                                     ATE00050
         USING BEGIN,12                                                 ATE00060
*                                                                       ATE00070
         LA    3,ADRCMD                                                 ATE00080
         MVC   0(4,3),0(0)                                              ATE00090
         LA    3,ADRARST                                                ATE00100
         MVC   0(4,3),4(0)                                              ATE00110
         LA    3,ADRAREN                                                ATE00120
         MVC   0(4,3),8(0)                                              ATE00130
         L     3,ADRCMD                                                 ATE00140
         LA    4,BUF                                                    ATE00150
         MVC   0(8,4),0(3)                                              ATE00160
         WRTERM BUF,8                                                   ATE00170
         L     3,ADRARST                                                ATE00180
         LA    4,BUF                                                    ATE00190
         MVC   0(30,4),0(3)                                             ATE00200
         WRTERM BUF,30                                                  ATE00210
         LM    14,12,12(13)                                             ATE00220
         SR    15,15                                                    ATE00230
         BR    14                                                       ATE00240
*                                                                       ATE00250
ADRCMD   DS    A                                                        ATE00260
ADRARST  DS    A                                                        ATE00270
ADRAREN  DS    A                                                        ATE00280
BUF      DC    80X'40'                                                  ATE00290
         END                                                            ATE00300