BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000002
000002                  20 REM  TEST PRINT NUMERIC FORMATTING                                   00000003
000003                  30 REM                                                                  00000004
000004                  40 READ A,B,C                                                           00000005
000008                  50 IF A=9999 THEN 9000                                                  00000006
000012                  60 PRINT A,B,C                                                          00000007
000019                  61 PRINT A-1,B-1,C-1                                                    00000008
000035                  62 PRINT A+1,B+1,C+1                                                    00000009
000051                  70 GOTO 40                                                              00000010
000053                  100 DATA 1,2,3                                                          00000011
000054                  110 DATA 1.23,3,432.3                                                   00000012
000055                  120 DATA 1.0E+5,1.0E+6,1.0E+7                                           00000013
000056                  130 DATA -1.0E+5,-1.0E+6,-1.0E+7                                        00000014
000057                  140 DATA 1.0E-5,1.0E-6,1.0E-7                                           00000015
000058                  150 DATA -1.0E-5,-1.0E-6,-1.0E-7                                        00000016
000059                  160 DATA 9999,9999,9999                                                 00000017
000060                  9000 END                                                                00000018
**** END OF COMPILATION **** NO ERRORS FOUND
 1             2             3
 0             1             2
 2             3             4
 1.229999      3             432.299804
 0.229999      2             431.299804
 2.229999      4             433.299804
 100000        1.00000E+06   1.00000E+07
 99999         999999        9.99999E+06
 100001        1.00000E+06   1.00000E+07
-100000       -1.00000E+06  -1.00000E+07
-100001       -1.00000E+06  -1.00000E+07
-99999        -999999       -9.99999E+06
 0.000009      9.99999E-07   9.99999E-08
-0.99999      -0.999999     -0.999999
 1.000009      1             1
-0.000009     -9.99999E-07  -9.99999E-08
-1.000009     -1            -1
 0.99999       0.999999      0.999999
**** PROGRAM EXECUTION COMPLETE -      307 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000020
000002                  20 REM  VALUDATION PROGRAM FOR BASIC/360                                00000021
000003                  30 REM                                                                  00000022
000004                  40 FOR I=1 TO 10                                                        00000023
000009                  50 PRINT I,I*I,SQR(I),ABS(I)                                            00000024
000027                  60 NEXT I                                                               00000025
000029                  70 PRINT                                                                00000026
000031                  100 REM                                                                 00000027
000032                  110 LET J=1                                                             00000028
000035                  120 PRINT J,J*J,SQR(J)                                                  00000029
000048                  130 LET J=J+1                                                           00000030
000054                  140 IF J<=10 THEN 120                                                   00000031
000058                  150 REM                                                                 00000032
000059                  9000 END                                                                00000033
**** END OF COMPILATION **** NO ERRORS FOUND
 1             1             1             1
 2             4             1.414213      2
 3             9             1.73205       3
 4             16            2             4
 5             25            2.236067      5
 6             36            2.449489      6
 7             49            2.64575       7
 8             64            2.828427      8
 9             81            3             9
 10            100           3.162277      10
 1             1             1
 2             4             1.414213
 3             9             1.73205
 4             16            2
 5             25            2.236067
 6             36            2.449489
 7             49            2.64575
 8             64            2.828427
 9             81            3
 10            100           3.162277
**** PROGRAM EXECUTION COMPLETE -      447 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000035
000002                  20 REM  VALUDATION PROGRAM FOR BASIC/360                                00000036
000003                  30 REM                                                                  00000037
000004                  34 PRINT                                                                00000038
000006                  35 PRINT "I","I*I","SQR(I)","ABS(I)"                                    00000039
000015                  36 FOR I=1 TO 4                                                         00000040
000020                  37 PRINT "======",                                                      00000041
000023                  38 NEXT I                                                               00000042
000025                  39 PRINT                                                                00000043
000027                  40 FOR I=1 TO 10                                                        00000044
000032                  50 PRINT I,I*I,SQR(I),ABS(I)                                            00000045
000050                  60 NEXT I                                                               00000046
000052                  70 PRINT                                                                00000047
000054                  100 REM                                                                 00000048
000055                  104 PRINT                                                               00000049
000057                  105 PRINT "J","J*J","SQR(J)"                                            00000050
000064                  106 FOR I=1 TO 3                                                        00000051
000069                  107 PRINT "======",                                                     00000052
000072                  108 NEXT I                                                              00000053
000074                  109 PRINT                                                               00000054
000076                  110 LET J=1                                                             00000055
000079                  120 PRINT TAB(J),J,J*J,SQR(J)                                           00000056
000097                  130 LET J=J+1                                                           00000057
000103                  140 IF J<=10 THEN 120                                                   00000058
000107                  150 REM                                                                 00000059
000108                  200 READ A,B,C                                                          00000060
000112                  202 DATA 4000,1630,-33                                                  00000061
000113                  210 PRINT A,B,C                                                         00000062
000120                  1000 RESTORE                                                            00000063
000122                  2000 READ A,B,C                                                         00000064
000126                  2100 PRINT A,B,C                                                        00000065
000133                  9000 END                                                                00000066
**** END OF COMPILATION **** NO ERRORS FOUND
I             I*I           SQR(I)        ABS(I)
======        ======        ======        ======
 1             1             1             1
 2             4             1.414213      2
 3             9             1.73205       3
 4             16            2             4
 5             25            2.236067      5
 6             36            2.449489      6
 7             49            2.64575       7
 8             64            2.828427      8
 9             81            3             9
 10            100           3.162277      10
J             J*J           SQR(J)
======        ======        ======
  1            1             1
   2           4             1.414213
    3          9             1.73205
     4         16            2
      5        25            2.236067
       6       36            2.449489
        7      49            2.64575
         8     64            2.828427
          9    81            3
           10  100           3.162277
 4000          1630         -33
 4000          1630         -33
**** PROGRAM EXECUTION COMPLETE -      591 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000068
000002                  20 REM  VALIDATE IF                                                     00000069
000003                  30 REM                                                                  00000070
000004                  35 PRINT "I","I*I"                                                      00000071
000009                  40 LET I=1                                                              00000072
000012                  50 PRINT I,I*I                                                          00000073
000020                  60 LET I=I+1                                                            00000074
000026                  70 IF I<=10 THEN 50                                                     00000075
000030                  80 PRINT "A","B"                                                        00000076
000035                  100 READ A,B                                                            00000077
000038                  110 IF A=999 THEN 900                                                   00000078
000042                  120 IF A=B THEN 200                                                     00000079
000046                  130 IF A<B THEN 220                                                     00000080
000050                  140 IF A>B THEN 240                                                     00000081
000054                  150 IF A<=B THEN 260                                                    00000082
000058                  160 IF A>=B THEN 280                                                    00000083
000062                  170 IF A<>B THEN 300                                                    00000084
000066                  180 GOTO 100                                                            00000085
000068                  200 PRINT A,B,"A=B"                                                     00000086
000075                  210 GO TO 130                                                           00000087
000077                  220 PRINT A,B,"A<B"                                                     00000088
000084                  230 GO TO 140                                                           00000089
000086                  240 PRINT A,B,"A>B"                                                     00000090
000093                  250 GOTO 150                                                            00000091
000095                  260 PRINT A,B,"A<=B"                                                    00000092
000102                  270 GOTO 160                                                            00000093
000104                  280 PRINT A,B,"A>=B"                                                    00000094
000111                  290 GOTO 170                                                            00000095
000113                  300 PRINT A,B,"A<>B"                                                    00000096
000120                  310 GOTO 180                                                            00000097
000122                  500 DATA 1,1,1,2,2,1                                                    00000098
000123                  510 DATA 100,25,32,-5                                                   00000099
000124                  520 DATA 999,999                                                        00000100
000125                  900 END                                                                 00000101
**** END OF COMPILATION **** NO ERRORS FOUND
I             I*I
 1             1
 2             4
 3             9
 4             16
 5             25
 6             36
 7             49
 8             64
 9             81
 10            100
A             B
 1             1            A=B
 1             1            A<=B
 1             1            A>=B
 1             2            A<B
 1             2            A<=B
 1             2            A<>B
 2             1            A>B
 2             1            A>=B
 2             1            A<>B
 100           25           A>B
 100           25           A>=B
 100           25           A<>B
 32           -5            A>B
 32           -5            A>=B
 32           -5            A<>B
**** PROGRAM EXECUTION COMPLETE -      505 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000103
000002                  20 REM  VALIDATE ARITHMETIC FUNCTIONS                                   00000104
000003                  30 REM                                                                  00000105
000004                  35 PRINT "HELLO WORLD"                                                  00000106
000007                  40 LET A=10                                                             00000107
000010                  50 LET B=15                                                             00000108
000013                  60 LET C=2                                                              00000109
000016                  70 LET D=16                                                             00000110
000019                  80 PRINT "A=",A,"B=",B                                                  00000111
000028                  90 PRINT "C=",C,"D=",D                                                  00000112
000037                  110 PRINT "VALIDATE ARITHMETIC"                                         00000113
000040                  120 PRINT "EXPRESSION","EXPECTED","RESULT"                              00000114
000047                  130 LET X=A+B                                                           00000115
000053                  135 PRINT "A+B",25,X                                                    00000116
000060                  140 LET X=A-B                                                           00000117
000066                  145 PRINT "A-B",-5,X                                                    00000118
000076                  150 LET X=A*B                                                           00000119
000082                  155 PRINT "A*B",150,X                                                   00000120
000089                  160 LET X=A/B                                                           00000121
000095                  165 PRINT "A/B",.6666,X                                                 00000122
000102                  170 LET X=AC                                                           00000123
000108                  175 PRINT "AC",100,X                                                   00000124
000115                  200 LET X=A+B*C+D                                                       00000125
000127                  205 PRINT "A+B*C+D",56,X                                                00000126
000134                  210 LET X=(A+B)*(C+D)                                                   00000127
000145                  215 PRINT "(A+B)*(C+D)",450,X                                           00000128
000152                  300 END                                                                 00000129
**** END OF COMPILATION **** NO ERRORS FOUND
HELLO WORLD
A=             10           B=             15
C=             2            D=             16
VALIDATE ARITHMETIC
EXPRESSION    EXPECTED      RESULT
A+B            25            25
A-B           -5            -5
A*B            150           150
A/B            0.666599      0.666666
AC            100           99.999908
A+B*C+D        56            56
(A+B)*(C+D)    450           450
**** PROGRAM EXECUTION COMPLETE -      153 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000131
000002                  20 REM   PLOT A SINE CURVE                                              00000132
000003                  30 REM                                                                  00000133
000004                  40 PRINT "X";TAB(68);"SIN(X)"                                           00000134
000014                  50 REM                                                                  00000135
000015                  60 FOR X=0 TO 6.28 STEP .1                                              00000136
000020                  70 LET Y=SIN(X)                                                         00000137
000026                  71 LET Y2=Y*40+70                                                       00000138
000035                  80 PRINT X,Y2;                                                          00000139
000040                  90 IF Y2>70 THEN 200                                                    00000140
000044                  100 IF Y2<70 THEN 210                                                   00000141
000048                  110 PRINT TAB(70);"*"                                                   00000142
000056                  120 GOTO 300                                                            00000143
000058                  200 PRINT TAB(70);"|";TAB(Y2);"*"                                       00000144
000073                  201 GOTO 300                                                            00000145
000075                  210 PRINT TAB(Y2);"*";TAB(70);"|"                                       00000146
000090                  300 NEXT X                                                              00000147
000092                  400 END                                                                 00000148
**** END OF COMPILATION **** NO ERRORS FOUND - RENUMBERING PROGRAM
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     2
OFFSET
000001                  00010 REM                                                                  00000
000002                  00020 REM   PLOT A SINE CURVE                                              00000
000003                  00030 REM                                                                  00000
000004                  00040 PRINT "X";TAB(68);"SIN(X)"                                           00000
000014                  00050 REM                                                                  00000
000015                  00060 FOR X=0 TO 6.28 STEP .1                                              00000
000020                  00070 LET Y=SIN(X)                                                         00000
000026                  00080 LET Y2=Y*40+70                                                       00000
000035                  00090 PRINT X,Y2;                                                          00000
000040                  00100 IF Y2>70 THEN 00140
000044                  00110 IF Y2<70 THEN 00160
000048                  00120 PRINT TAB(70);"*"                                                   000001
000056                  00130 GOTO 00170
000058                  00140 PRINT TAB(70);"|";TAB(Y2);"*"                                       000001
000073                  00150 GOTO 00170
000075                  00160 PRINT TAB(Y2);"*";TAB(70);"|"                                       000001
000090                  00170 NEXT X                                                              000001
000092                  00180 END                                                                 000001
**** END OF COMPILATION **** NO ERRORS FOUND
X                                                                   SIN(X)
 0             70                                                     *
 0.099999      73.993331                                              |  *
 0.199999      77.946762                                              |      *
 0.299999      81.8208                                                |          *
 0.399999      85.576721                                              |              *
 0.499999      89.177001                                              |                  *
 0.599999      92.585678                                              |                     *
 0.699999      95.768692                                              |                        *
 0.799999      98.694229                                              |                           *
 0.899999      101.333068                                             |                              *
 0.999999      103.658828                                             |                                *
 1.099999      105.648269                                             |                                  *
 1.199998      107.281539                                             |                                    *
 1.299998      108.542297                                             |                                     *
 1.399997      109.417968                                             |                                      *
 1.499997      109.89978                                              |                                      *
 1.599996      109.98294                                              |                                      *
 1.699995      109.66661                                              |                                      *
 1.799995      108.953933                                             |                                     *
 1.899994      107.852066                                             |                                    *
 1.999994      106.371978                                             |                                   *
 2.099993      104.528488                                             |                                 *
 2.199993      102.340011                                             |                               *
 2.299992      99.828399                                              |                            *
 2.399991      97.018753                                              |                          *
 2.499991      93.939147                                              |                      *
 2.59999       90.620361                                              |                   *
 2.69999       87.095535                                              |                *
 2.799989      83.399902                                              |            *
 2.899989      79.570388                                              |        *
 2.999988      75.645248                                              |    *
 3.099987      71.663696                                              |*
 3.199987      67.665527                                           *  |
 3.299986      63.690689                                       *      |
 3.399986      59.778884                                   *          |
 3.499985      55.969207                               *              |
 3.599985      52.299728                            *                 |
 3.699984      48.807083                        *                     |
 3.799983      45.526199                     *                        |
 3.899983      42.489837                  *                           |
 3.999982      39.728363               *                              |
 4.099982      37.269332             *                                |
 4.199981      35.137329           *                                  |
 4.299981      33.353668         *                                    |
 4.39998       31.936157       *                                      |
 4.499979      30.898971      *                                       |
 4.599979      30.252456      *                                       |
 4.699978      30.003082      *                                       |
 4.799978      30.15335       *                                       |
 4.899977      30.701736      *                                       |
 4.999977      31.642776       *                                      |
 5.099976      32.967071        *                                     |
 5.199975      34.661376          *                                   |
 5.299975      36.70877             *                                 |
 5.399974      39.08879                *                              |
 5.499974      41.777664                 *                            |
 5.599973      44.748519                    *                         |
 5.699973      47.971694                       *                      |
 5.799972      51.414947                           *                  |
 5.899971      55.043884                               *              |
 5.999971      58.82228                                   *           |
 6.09997       62.712341                                      *       |
 6.19997       66.675231                                          *   |
**** PROGRAM EXECUTION COMPLETE -     2789 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  10 REM                                                                  00000150
000002                  20 REM   PLOT A COSINE CURVE                                            00000151
000003                  30 REM                                                                  00000152
000004                  40 PRINT "X";TAB(68);"COS(X)"                                           00000153
000014                  50 REM                                                                  00000154
000015                  60 FOR X=0 TO 6.28 STEP .1                                              00000155
000020                  70 LET Y2=COS(X)*40+70                                                  00000156
000032                  80 PRINT X,Y2;                                                          00000157
000037                  90 IF Y2>70 THEN 200                                                    00000158
000041                  100 IF Y2<70 THEN 210                                                   00000159
000045                  110 PRINT TAB(70);"*"                                                   00000160
000053                  120 GOTO 300                                                            00000161
000055                  200 PRINT TAB(70);"|";TAB(Y2);"*"                                       00000162
000070                  201 GOTO 300                                                            00000163
000072                  210 PRINT TAB(Y2);"*";TAB(70);"|"                                       00000164
000087                  300 NEXT X                                                              00000165
000089                  400 END                                                                 00000166
**** END OF COMPILATION **** NO ERRORS FOUND
X                                                                   COS(X)
 0             110                                                    |                                       *
 0.099999      109.800155                                             |                                      *
 0.199999      109.202651                                             |                                      *
 0.299999      108.213455                                             |                                     *
 0.399999      106.842437                                             |                                   *
 0.499999      105.103302                                             |                                  *
 0.599999      103.013427                                             |                                *
 0.699999      100.593688                                             |                             *
 0.799999      97.86827                                               |                          *
 0.899999      94.864395                                              |                       *
 0.999999      91.612091                                              |                    *
 1.099999      88.143859                                              |                 *
 1.199998      84.494338                                              |             *
 1.299998      80.700012                                              |         *
 1.399997      76.798767                                              |     *
 1.499997      72.829589                                              | *
 1.599996      68.832153                                            * |
 1.699995      64.846374                                        *     |
 1.799995      60.912094                                    *         |
 1.899994      57.068603                                 *            |
 1.999994      53.354339                             *                |
 2.099993      49.806381                         *                    |
 2.199993      46.460189                      *                       |
 2.299992      43.349182                   *                          |
 2.399991      40.50447                 *                             |
 2.499991      37.954467             *                                |
 2.59999       35.724639           *                                  |
 2.69999       33.83728          *                                    |
 2.799989      32.311248        *                                     |
 2.899989      31.161788       *                                      |
 2.999988      30.400375      *                                       |
 3.099987      30.034622      *                                       |
 3.199987      30.068191      *                                       |
 3.299986      30.500732      *                                       |
 3.399986      31.327941       *                                      |
 3.499985      32.541534        *                                     |
 3.599985      34.129409          *                                   |
 3.699984      36.075683            *                                 |
 3.799983      38.3609                *                               |
 3.899983      40.962265                *                             |
 3.999982      43.853744                   *                          |
 4.099982      47.006469                       *                      |
 4.199981      50.388946                          *                   |
 4.299981      53.967346                             *                |
 4.39998       57.705932                                 *            |
 4.499979      61.567382                                     *        |
 4.599979      65.513076                                         *    |
 4.699978      69.503601                                             *|
 4.799978      73.499084                                              |  *
 4.899977      77.459609                                              |      *
 4.999977      81.345596                                              |          *
 5.099976      85.118225                                              |              *
 5.199975      88.739807                                              |                 *
 5.299975      92.174148                                              |                     *
 5.399974      95.386932                                              |                        *
 5.499974      98.346054                                              |                           *
 5.599973      101.021957                                             |                              *
 5.699973      103.387908                                             |                                *
 5.799972      105.420257                                             |                                  *
 5.899971      107.098709                                             |                                    *
 5.999971      108.406478                                             |                                     *
 6.09997       109.33052                                              |                                      *
 6.19997       109.861572                                             |                                      *
**** PROGRAM EXECUTION COMPLETE -     2605 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  **TABLE                                                                 00000168
000001                  **DUMP                                                                  00000169
000001                  **STACK                                                                 00000170
000001                  **ICODE                                                                 00000171
000001                  10 DIM I(10)                                                            00000172
000002                  20 DIM J(10),K(10)                                                      00000173
000003                  30 LET X=I(1)                                                           00000174
000010                  31 PRINT X                                                              00000175
000013                  40 LET X=I(1)+1                                                         00000176
000023                  41 PRINT X                                                              00000177
000026                  50 LET X=I(J+1)                                                         00000178
000036                  51 PRINT X                                                              00000179
000039                  60 LET I(1)=X                                                           00000180
000045                  100 FOR X=1 TO 10                                                       00000181
000050                  110 LET I(X)=X                                                          00000182
000056                  120 LET J(X)=X*X                                                        00000183
000065                  130 LET K(X)=SQR(X)                                                     00000184
000074                  140 NEXT X                                                              00000185
000076                  200 FOR X=10 TO 1 STEP -1                                               00000186
000084                  210 PRINT I(X),J(X),K(X)                                                00000187
000103                  220 NEXT X                                                              00000188
000105                  999 END                                                                 00000189
**** END OF COMPILATION **** NO ERRORS FOUND
 0
 1
 0
 10            100           3.162277
 9             81            3
 8             64            2.828427
 7             49            2.64575
 6             36            2.449489
 5             25            2.236067
 4             16            2
 3             9             1.73205
 2             4             1.414213
 1             1             1
**** PROGRAM EXECUTION COMPLETE -      529 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  **TABLE                                                                 00000191
000001                  **DUMP                                                                  00000192
000001                  **STACK                                                                 00000193
000001                  **ICODE                                                                 00000194
000001                  10 REM                                                                  00000195
000002                  19 PRINT "AT LINE 19"                                                   00000196
000005                  20 DEF FNA(X)=X*X+1                                                     00000197
000017                  21 PRINT "AT LINE 21"                                                   00000198
000020                  22 REM DEF FN$(X)=X*X+1                                                 00000199
000021                  29 DIM FNB(10)                                                          00000200
000022                  30 LET X=FNA(10)                                                        00000201
000028                  31 PRINT X,FNA(2)                                                       00000202
000036                  40 PRINT "AT LINE 40"                                                   00000203
000039                  50 END                                                                  00000204
**** END OF COMPILATION **** NO ERRORS FOUND
AT LINE 19
AT LINE 21
 101           5
AT LINE 40
**** PROGRAM EXECUTION COMPLETE -       50 INSTRUCTIONS EXECUTED ****
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     1
OFFSET
000001                  *TABLE                                                                  00000206
000001                  *DUMP                                                                   00000207
000001                  *STACK                                                                  00000208
000001                  **ICODE                                                                 00000209
000001                  210 LET X=(A+B)*(C+D)                                                   00000210
POPULTAT STACK EXIT
        1                                       (
        2               A                       +
        3               B                       )
        4                                       *
        5                                       (
        6               C                       +
        7               D                       )
SIMPLIFY_SUB_STACK ENTRY FROM                           1               TO                              3
        1                                       (
        2               A                       +
        3               B                       )
PROCESS_OPERATORS ENTRY         2                       2                                      
        1                                       (
        2               A                       +
        3               B                       )
        4                                       *
        5                                       (
        6               C                       +
        7               D                       )
PROCESS_OPERATORS EXIT          3                       2
        1                                       (
        2               A                       +
        3               B                       )
        4                                       *
        5                                       (
        6               C                       +
        7               D                       )
PROCESS_OPERATORS ENTRY         2                       2               *                       /
        1                                       (
        2               A                       +
        3               B                       )
        4                                       *
        5                                       (
        6               C                       +
        7               D                       )
PROCESS_OPERATORS EXIT          3                       2
        1                                       (
        2               A                       +
        3               B                       )
        4                                       *
        5                                       (
        6               C                       +
        7               D                       )
PROCESS_OPERATORS ENTRY         2                       2               +                       -
        1                                       (
        2               A                       +
        3               B                       )
 
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     2
OFFSET
        4                                       *
        5                                       (
        6               C                       +
        7               D                       )
PROCESS_OPERATORE UPDATE                                1                       1
        1                                       (
        2               TMP00                   )
        3                                       *
        4                                       (
        5               C                       +
        6               D                       )
PROCESS_OPERATORS EXIT          2                       1
        1                                       (
        2               TMP00                   )
        3                                       *
        4                                       (
        5               C                       +
        6               D                       )
SIMPLIFY_SUB_STACK BEFORE UPDATE                        1                       3
        1                                       (
        2               TMP00                   )
        3                                       *
        4                                       (
        5               C                       +
        6               D                       )
SIMPLIFY_SUB_STACK AFTER UPDATE                         1                       3
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
SIMPLIFY_SUB_STACK EXIT
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
SIMPLIFY_SUB_STACK ENTRY FROM                           2               TO                              4
        2                                       (
        3               C                       +
        4               D                       )
PROCESS_OPERATORS ENTRY         3                       3                                      
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
PROCESS_OPERATORS EXIT          4                       3
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
PROCESS_OPERATORS ENTRY         3                       3               *                       /
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
PROCESS_OPERATORS EXIT          4                       3
 
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     3
OFFSET
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
PROCESS_OPERATORS ENTRY         3                       3               +                       -
        1               TMP00                   *
        2                                       (
        3               C                       +
        4               D                       )
PROCESS_OPERATORE UPDATE                                2                       2
        1               TMP00                   *
        2                                       (
        3               TMP01                   )
PROCESS_OPERATORS EXIT          3                       2
        1               TMP00                   *
        2                                       (
        3               TMP01                   )
SIMPLIFY_SUB_STACK BEFORE UPDATE                        2                       4
        1               TMP00                   *
        2                                       (
        3               TMP01                   )
SIMPLIFY_SUB_STACK AFTER UPDATE                         2                       4
        1               TMP00                   *
        2               TMP01
SIMPLIFY_SUB_STACK EXIT
        1               TMP00                   *
        2               TMP01
SIMPLIFY_SUB_STACK ENTRY FROM                           1               TO                              2
        1               TMP00                   *
        2               TMP01
PROCESS_OPERATORS ENTRY         1                       2                                      
        1               TMP00                   *
        2               TMP01
PROCESS_OPERATORS EXIT          3                       2
        1               TMP00                   *
        2               TMP01
PROCESS_OPERATORS ENTRY         1                       2               *                       /
        1               TMP00                   *
        2               TMP01
PROCESS_OPERATORE UPDATE                                1                       1
        1               TMP02
PROCESS_OPERATORS EXIT          2                       1
        1               TMP02
PROCESS_OPERATORS ENTRY         1                       1               +                       -
        1               TMP02
PROCESS_OPERATORS EXIT          2                       1
        1               TMP02
SIMPLIFY_SUB_STACK EXIT
        1               TMP02
POPULTAT STACK EXIT
        1                                       (
        2               X                       )
SIMPLIFY_SUB_STACK ENTRY FROM                           1               TO                              2
 
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     4
OFFSET
        1                                       (
        2               X                       )
PROCESS_OPERATORS ENTRY         2                       1                                      
        1                                       (
        2               X                       )
PROCESS_OPERATORS EXIT          2                       1
        1                                       (
        2               X                       )
PROCESS_OPERATORS ENTRY         2                       1               *                       /
        1                                       (
        2               X                       )
PROCESS_OPERATORS EXIT          2                       1
        1                                       (
        2               X                       )
PROCESS_OPERATORS ENTRY         2                       1               +                       -
        1                                       (
        2               X                       )
PROCESS_OPERATORS EXIT          2                       1
        1                                       (
        2               X                       )
SIMPLIFY_SUB_STACK EXIT
        1               X
OFFSET                  SYMBOL                  VALUE                   TYPE
        1               NULL                     0.00000E+00            VAR
        2               SQR                      0.00000E+00            FUNCTION
        3               ABS                      0.00000E+00            FUNCTION
        4               TAB                      0.00000E+00            FUNCTION
        5               INT                      0.00000E+00            FUNCTION
        6               COS                      0.00000E+00            FUNCTION
        7               SIN                      0.00000E+00            FUNCTION
        8               TAN                      0.00000E+00            FUNCTION
        9               A                        0.00000E+00            VAR
       10               B                        0.00000E+00            VAR
       11               TMP00                    0.00000E+00            VAR
       12               C                        0.00000E+00            VAR
       13               D                        0.00000E+00            VAR
       14               TMP01                    0.00000E+00            VAR
       15               TMP02                    0.00000E+00            VAR
       16               X                        0.00000E+00            VAR
END OF SYMBOL TABLE
OFFSET                  STRING
END OF STRING TABLE
DEF NAME                OFFSET
END OF DEF NAME TABLE
OFFSET       LINE  OP   OBJECT
000001       210  SLN
000002             LDA   A
000003             ADD   B
000004             STA   TMP00
000005             LDA   C
 
---------------------------------------------------------------------------------------------------------------------------
                                                           BASIC/360 V2.0                   DATE 09/17/2016  PAGE     5
000006             ADD   D
000007             STA   TMP01
000008             LDA   TMP00
000009             MUL   TMP01
000010             STA   NULL
000011             STA   X
END OF PCODE TABLE
**** END OF COMPILATION **** NO ERRORS FOUND

**** PROGRAM EXECUTION TERMINATED IN LINE   210 ****
**** PROGRAM RUN AWAY DETECTED ****
OFFSET                  SYMBOL                  VALUE                   TYPE
        1               NULL                     0.00000E+00            VAR
        2               SQR                      0.00000E+00            FUNCTION
        3               ABS                      0.00000E+00            FUNCTION
        4               TAB                      0.00000E+00            FUNCTION
        5               INT                      0.00000E+00            FUNCTION
        6               COS                      0.00000E+00            FUNCTION
        7               SIN                      0.00000E+00            FUNCTION
        8               TAN                      0.00000E+00            FUNCTION
        9               A                        0.00000E+00            VAR
       10               B                        0.00000E+00            VAR
       11               TMP00                    0.00000E+00            VAR
       12               C                        0.00000E+00            VAR
       13               D                        0.00000E+00            VAR
       14               TMP01                    0.00000E+00            VAR
       15               TMP02                    0.00000E+00            VAR
       16               X                        0.00000E+00            VAR
END OF SYMBOL TABLE
---------------------------------------------------------------------------------------------------------------------------

[close window]