CAC 2017-01-19

basic

qedx
i
10 goto 10
20 end
\f
w spin.basic
q
r 11:00 0.217 3

basic spin
File "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\c000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0
\c00\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\00
\c0\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000
\c\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\c000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0
\c00\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\00
\c0\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000
\c\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000": Useless loop

pbm >unb>basic

                    basic    01/19/17  1116.8 pst Thu

Bindmap for >unb>bound_basic_
Created on 12/26/15  1139.5 pst Sat, by Swenson.SysAdmin.a
using Multics Binder, Version 12 of Tuesday, March 26, 1985
>LDD>MR12.7>LDD>UNB>bound_basic_.archive

        Object    Text    Defs    Link    Symb  Static
Start        0       0   41140   42132   42344   42142
Length   44052   41140     772     212    1472      54

Component                            Text        Int-Stat       Symbol
                                 Start Length  Start Length  Start Length

PNOTICE_basic                        0     46      0      0    100    106
basic_system                        46   5124      0     20    206    120
basic                             5172   2322     20      6    326    120
basic_                            7514  24272     26     24    446    306
basic_next_line                  34006    520     52      0    754    104
basic_data                       34526   1760     52      2   1060    122
basic_resequence_                36506   2432     54      0   1202    106

Bindfile

bound_basic_.bind

In basic_system

      209      error: procedure (message, info, fatal);                         /* generalized error routine */

error                           003516 constant        entry                    internal dcl 209 ref 202 246 358 366 371 394 396 430

003516+046 3564

The trace dosen't appear to call error

entry: 00310:005345 - 5172 153 in basic

ENTRY TO basic                                              STATEMENT 1 ON LINE 35
basic:
     proc;

000152  da     000353200000
000153  aa   000640 6270 00   eax7      416
000154  aa  7 00034 3521 20   epp2      pr7|28,*
000155  aa  2 01045 2721 00   tsp2      pr2|549             ext_entry
000156  aa     000000000000
000157  aa     000000000000
000160  aa   777761 7000 04   tsx0      -15,ic              000141

DBG(2464648715793)> CPU TRACE: 00310:005345 4 000640627000 (EAX7 000640) 000640 627(0) 0 0 0 00^M
DBG(2464648715795)> CPU TRACE: 00310:005346 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00^M
DBG(2464648715797)> CPU TRACE: 00310:005347 4 201045272100 (TSP2 PR2|1045) 201045 272(0) 1 0 0 00^M
DBG(2464648715841)> CPU TRACE: 00310:005352 4 777761700004 (TSX0 777761,IC) 777761 700(0) 0 0 0 04^M

PROLOGUE SEQUENCE
000141  aa  6 00432 4401 00   sxl0      pr6|282
                                                            STATEMENT 1 ON LINE 38
000142  aa   777664 2370 04   ldaq      -76,ic              000026 = 000000000000 000000000000
000143  aa  6 00110 7571 00   staq      pr6|72              time_limit
000144  aa   777702 2370 04   ldaq      -62,ic              000046 = 077777000043 000001000000
000145  aa  6 00120 7571 00   staq      pr6|80              source_info_pt
000146  aa  6 00122 7571 00   staq      pr6|82              input_pt
000147  aa  6 00124 7571 00   staq      pr6|84              output_pt
000150  aa  6 00432 7201 00   lxl0      pr6|282
000151  aa   000000 7100 10   tra       0,0

DBG(2464648715843)> CPU TRACE: 00310:005333 4 600432440100 (SXL0 PR6|432) 600432 440(0) 1 0 0 00^M
DBG(2464648715845)> CPU TRACE: 00310:005334 4 777664237004 (LDAQ 777664,IC) 777664 237(0) 0 0 0 04^M
DBG(2464648715847)> CPU TRACE: 00310:005335 4 600110757100 (STAQ PR6|110) 600110 757(0) 1 0 0 00^M
DBG(2464648715849)> CPU TRACE: 00310:005336 4 777702237004 (LDAQ 777702,IC) 777702 237(0) 0 0 0 04^M
DBG(2464648715851)> CPU TRACE: 00310:005337 4 600120757100 (STAQ PR6|120) 600120 757(0) 1 0 0 00^M
DBG(2464648715853)> CPU TRACE: 00310:005340 4 600122757100 (STAQ PR6|122) 600122 757(0) 1 0 0 00^M
DBG(2464648715855)> CPU TRACE: 00310:005341 4 600124757100 (STAQ PR6|124) 600124 757(0) 1 0 0 00^M
DBG(2464648715857)> CPU TRACE: 00310:005342 4 600432720100 (LXL0 PR6|432) 600432 720(0) 1 0 0 00^M
DBG(2464648715859)> CPU TRACE: 00310:005343 4 000000710010 (TRA 000000,0) 000000 710(0) 0 0 0 10^M
start:
          word_count = 0;

000161  aa  6 00417 4501 00   stz       pr6|271             source_info.word_count
                                                            STATEMENT 1 ON LINE 138
          basic_severity_ = 5;^L000162  aa   000005 2360 07   ldq       5,dl
000163  aa  6 00044 3701 20   epp4      pr6|36,*
000164  la  4 00110 7561 20   stq       pr4|72,*            basic_severity_
                                                            STATEMENT 1 ON LINE 140
          on program_interrupt goto done;

000165  aa   000021 7260 07   lxl6      17,dl
000166  aa   777674 3520 04   epp2      -68,ic              000062 = 160162157147
000167  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
000170  aa   000004 7100 04   tra       4,ic                000174
000171  aa     000134000000
DBG(2464648715861)> CPU TRACE: 00310:005353 4 600417450100 (STZ PR6|417) 600417 450(0) 1 0 0 00^M
DBG(2464648715863)> CPU TRACE: 00310:005354 4 000005236007 (LDQ 000005,DL) 000005 236(0) 0 0 0 07^M
DBG(2464648715865)> CPU TRACE: 00310:005355 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00^M
DBG(2464648715867)> CPU TRACE: 00310:005356 4 400130756120 (STQ PR4|130,N*) 400130 756(0) 1 0 1 00^M
DBG(2464648715869)> CPU TRACE: 00310:005357 4 000021726007 (LXL6 000021,DL) 000021 726(0) 0 0 0 07^M
DBG(2464648715871)> CPU TRACE: 00310:005360 4 777674352004 (EPP2 777674,IC) 777674 352(0) 0 0 0 04^M
DBG(2464648715873)> CPU TRACE: 00310:005361 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00^M
DBG(2464648715919)> CPU TRACE: 00310:005364 4 000012710004 (TRA 000012,IC) 000012 710(0) 0 0 0 04^M

          got_path, had_bad_option = "0"b;

000204  aa  6 00115 4501 00   stz       pr6|77              got_path
000205  aa  6 00116 4501 00   stz       pr6|78              had_bad_option
                                                            STATEMENT 1 ON LINE 144
          call cu_$af_return_arg (arg_count, null, 0, code);

000206  aa   777640 3734 24   epp7      -96,ic*
000207  aa  6 00434 6535 00   spri7     pr6|284
000210  aa  6 00433 4501 00   stz       pr6|283
000211  aa  6 00106 3521 00   epp2      pr6|70              arg_count
000212  aa  6 00440 2521 00   spri2     pr6|288
000213  aa  6 00434 3521 00   epp2      pr6|284
000214  aa  6 00442 2521 00   spri2     pr6|290
000215  aa  6 00433 3521 00   epp2      pr6|283
000216  aa  6 00444 2521 00   spri2     pr6|292
000217  aa  6 00102 3521 00   epp2      pr6|66              code
000220  aa  6 00446 2521 00   spri2     pr6|294
000221  aa  6 00436 6211 00   eax1      pr6|286
000222  aa   020000 4310 07   fld       8192,dl
000223  aa  6 00044 3701 20   epp4      pr6|36,*
000224  la  4 00020 3521 20   epp2      pr4|16,*            cu_$af_return_arg
000225  aa  0 00623 7001 00   tsx0      pr0|403             call_ext_out
                                                            STATEMENT 1 ON LINE 145
          if code = 0
          then do;

000226  aa  6 00102 2361 00   ldq       pr6|66              code
000227  aa   000027 6010 04   tnz       23,ic               000256

DBG(2464648715921)> CPU TRACE: 00310:005376 4 600115450100 (STZ PR6|115) 600115 450(0) 1 0 0 00^M
DBG(2464648715923)> CPU TRACE: 00310:005377 4 600116450100 (STZ PR6|116) 600116 450(0) 1 0 0 00^M
DBG(2464648715925)> CPU TRACE: 00310:005400 4 777640373424 (EPP7 777640,IC*) 777640 373(1) 0 0 1 04^M
DBG(2464648715927)> CPU TRACE: 00310:005401 4 600434653500 (SPRI7 PR6|434) 600434 653(1) 1 0 0 00^M
DBG(2464648715929)> CPU TRACE: 00310:005402 4 600433450100 (STZ PR6|433) 600433 450(0) 1 0 0 00^M
DBG(2464648715931)> CPU TRACE: 00310:005403 4 600106352100 (EPP2 PR6|106) 600106 352(0) 1 0 0 00^M
DBG(2464648715933)> CPU TRACE: 00310:005404 4 600440252100 (SPRI2 PR6|440) 600440 252(0) 1 0 0 00
DBG(2464648715935)> CPU TRACE: 00310:005405 4 600434352100 (EPP2 PR6|434) 600434 352(0) 1 0 0 00
DBG(2464648715937)> CPU TRACE: 00310:005406 4 600442252100 (SPRI2 PR6|442) 600442 252(0) 1 0 0 00
DBG(2464648715939)> CPU TRACE: 00310:005407 4 600433352100 (EPP2 PR6|433) 600433 352(0) 1 0 0 00
DBG(2464648715941)> CPU TRACE: 00310:005410 4 600444252100 (SPRI2 PR6|444) 600444 252(0) 1 0 0 00
DBG(2464648715943)> CPU TRACE: 00310:005411 4 600102352100 (EPP2 PR6|102) 600102 352(0) 1 0 0 00
DBG(2464648715945)> CPU TRACE: 00310:005412 4 600446252100 (SPRI2 PR6|446) 600446 252(0) 1 0 0 00
DBG(2464648715947)> CPU TRACE: 00310:005413 4 600436621100 (EAX1 PR6|436) 600436 621(0) 1 0 0 00
DBG(2464648715949)> CPU TRACE: 00310:005414 4 020000431007 (FLD 020000,DL) 020000 431(0) 0 0 0 07
DBG(2464648715951)> CPU TRACE: 00310:005415 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648715953)> CPU TRACE: 00310:005416 4 400132352120 (EPP2 PR4|132,N*) 400132 352(0) 1 0 1 00
DBG(2464648715955)> CPU TRACE: 00310:005417 4 000623700100 (TSX0 PR0|623) 000623 700(0) 1 0 0 00
DBG(2464648716063)> CPU TRACE: 00310:005420 4 600102236100 (LDQ PR6|102) 600102 236(0) 1 0 0 00
DBG(2464648716065)> CPU TRACE: 00310:005421 4 000027601004 (TNZ 000027,IC) 000027 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 151
          do i = 1 to arg_count;

000256  aa  6 00106 2361 00   ldq       pr6|70              arg_count
000257  aa  6 00420 7561 00   stq       pr6|272
000260  aa   000001 2360 07   ldq       1,dl
000261  aa  6 00100 7561 00   stq       pr6|64              i
000262  aa  6 00100 2361 00   ldq       pr6|64              i
000263  aa  6 00420 1161 00   cmpq      pr6|272
000264  aa   000433 6054 04   tpnz      283,ic              000717
                                                            STATEMENT 1 ON LINE 153
               call cu_$arg_ptr (i, argpt, arglen, code);

000265  aa  6 00100 3521 00   epp2      pr6|64              i
000266  aa  6 00440 2521 00   spri2     pr6|288
000267  aa  6 00126 3521 00   epp2      pr6|86              argpt
000270  aa  6 00442 2521 00   spri2     pr6|290
000271  aa  6 00104 3521 00   epp2      pr6|68              arglen
000272  aa  6 00444 2521 00   spri2     pr6|292
000273  aa  6 00102 3521 00   epp2      pr6|66              code
000274  aa  6 00446 2521 00   spri2     pr6|294
000275  aa  6 00436 6211 00   eax1      pr6|286
000276  aa   020000 4310 07   fld       8192,dl
000277  aa  6 00044 3701 20   epp4      pr6|36,*
000300  la  4 00016 3521 20   epp2      pr4|14,*            cu_$arg_ptr
000301  aa  0 00623 7001 00   tsx0      pr0|403             call_ext_out

BG(2464648716067)> CPU TRACE: 00310:005450 4 600106236100 (LDQ PR6|106) 600106 236(0) 1 0 0 00
DBG(2464648716069)> CPU TRACE: 00310:005451 4 600420756100 (STQ PR6|420) 600420 756(0) 1 0 0 00
DBG(2464648716071)> CPU TRACE: 00310:005452 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648716073)> CPU TRACE: 00310:005453 4 600100756100 (STQ PR6|100) 600100 756(0) 1 0 0 00
DBG(2464648716075)> CPU TRACE: 00310:005454 4 600100236100 (LDQ PR6|100) 600100 236(0) 1 0 0 00
DBG(2464648716077)> CPU TRACE: 00310:005455 4 600420116100 (CMPQ PR6|420) 600420 116(0) 1 0 0 00
DBG(2464648716079)> CPU TRACE: 00310:005456 4 000433605404 (TPNZ 000433,IC) 000433 605(1) 0 0 0 04
DBG(2464648716081)> CPU TRACE: 00310:005457 4 600100352100 (EPP2 PR6|100) 600100 352(0) 1 0 0 00
DBG(2464648716083)> CPU TRACE: 00310:005460 4 600440252100 (SPRI2 PR6|440) 600440 252(0) 1 0 0 00
DBG(2464648716085)> CPU TRACE: 00310:005461 4 600126352100 (EPP2 PR6|126) 600126 352(0) 1 0 0 00
DBG(2464648716087)> CPU TRACE: 00310:005462 4 600442252100 (SPRI2 PR6|442) 600442 252(0) 1 0 0 00
DBG(2464648716089)> CPU TRACE: 00310:005463 4 600104352100 (EPP2 PR6|104) 600104 352(0) 1 0 0 00
DBG(2464648716091)> CPU TRACE: 00310:005464 4 600444252100 (SPRI2 PR6|444) 600444 252(0) 1 0 0 00
DBG(2464648716093)> CPU TRACE: 00310:005465 4 600102352100 (EPP2 PR6|102) 600102 352(0) 1 0 0 00
DBG(2464648716095)> CPU TRACE: 00310:005466 4 600446252100 (SPRI2 PR6|446) 600446 252(0) 1 0 0 00
DBG(2464648716097)> CPU TRACE: 00310:005467 4 600436621100 (EAX1 PR6|436) 600436 621(0) 1 0 0 00
DBG(2464648716099)> CPU TRACE: 00310:005470 4 020000431007 (FLD 020000,DL) 020000 431(0) 0 0 0 07
DBG(2464648716101)> CPU TRACE: 00310:005471 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648716103)> CPU TRACE: 00310:005472 4 400074352120 (EPP2 PR4|74,N*) 400074 352(0) 1 0 1 00
DBG(2464648716105)> CPU TRACE: 00310:005473 4 000623700100 (TSX0 PR0|623) 000623 700(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 155
               if substr (arg, 1, 1) ^= "-"
               then do;

000302  aa  6 00126 3735 20   epp7      pr6|86,*            argpt
000303  aa  040 004 106 500   cmpc      (pr),(ic),fill(040)
000304  aa  7 00000 00 0001   desc9a    pr7|0,1             arg^L000305  aa   002015 00 0001   desc9a    1037,1              002320 = 055000000000
000306  aa   000211 6000 04   tze       137,ic              000517

DBG(2464648716201)> CPU TRACE: 00310:005474 4 600126373520 (EPP7 PR6|126,N*) 600126 373(1) 1 0 1 00
DBG(2464648716203)> CPU TRACE: 00310:005475 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(2464648716205)> CPU TRACE: 00310:005500 4 000211600004 (TZE 000211,IC) 000211 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 157
                         if got_path
                         then do;

000307  aa  6 00115 2351 00   lda       pr6|77              got_path
000310  aa   000032 6000 04   tze       26,ic               000342

DBG(2464648716207)> CPU TRACE: 00310:005501 4 600115235100 (LDA PR6|115) 600115 235(0) 1 0 0 00
DBG(2464648716209)> CPU TRACE: 00310:005502 4 000032600004 (TZE 000032,IC) 000032 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 163
                         got_path = "1"b;

000342  aa   400000 2350 03   lda       131072,du
000343  aa  6 00115 7551 00   sta       pr6|77              got_path
                                                            STATEMENT 1 ON LINE 164
                         call expand_pathname_$add_suffix (arg, "basic", dir, sourcename, code);

000344  aa  6 00104 2361 00   ldq       pr6|68              arglen
000345  aa   526000 2760 03   orq       175104,du
000346  aa  6 00433 7561 00   stq       pr6|283
000347  aa   777475 2370 04   ldaq      -195,ic             000044 = 142141163151 143000000000
000350  aa  6 00434 7571 00   staq      pr6|284
000351  aa  7 00000 3521 00   epp2      pr7|0               arg
000352  aa  6 00512 2521 00   spri2     pr6|330
000353  aa  6 00434 3521 00   epp2      pr6|284
000354  aa  6 00514 2521 00   spri2     pr6|332
000355  aa  6 00172 3521 00   epp2      pr6|122             dir
000356  aa  6 00516 2521 00   spri2     pr6|334
000357  aa  6 00162 3521 00   epp2      pr6|114             sourcename
000360  aa  6 00520 2521 00   spri2     pr6|336
000361  aa  6 00102 3521 00   epp2      pr6|66              code
000362  aa  6 00522 2521 00   spri2     pr6|338
000363  aa  6 00433 3521 00   epp2      pr6|283
000364  aa  6 00524 2521 00   spri2     pr6|340
000365  aa   777431 3520 04   epp2      -231,ic             000016 = 524000000005
000366  aa  6 00526 2521 00   spri2     pr6|342
000367  aa   777426 3520 04   epp2      -234,ic             000015 = 526000000250
000370  aa  6 00530 2521 00   spri2     pr6|344
000371  aa   777423 3520 04   epp2      -237,ic             000014 = 526000000040
000372  aa  6 00532 2521 00   spri2     pr6|346
000373  aa   777431 3520 04   epp2      -231,ic             000024 = 404000000021
000374  aa  6 00534 2521 00   spri2     pr6|348
000375  aa  6 00510 6211 00   eax1      pr6|328
000376  aa   024000 4310 07   fld       10240,dl
000377  aa  6 00044 3701 20   epp4      pr6|36,*
000400  la  4 00040 3521 20   epp2      pr4|32,*            expand_pathname_$add_suffix
000401  aa  0 00622 7001 00   tsx0      pr0|402             call_ext_out_desc

DBG(2464648716211)> CPU TRACE: 00310:005534 4 400000235003 (LDA 400000,DU) 400000 235(0) 0 0 0 03
DBG(2464648716213)> CPU TRACE: 00310:005535 4 600115755100 (STA PR6|115) 600115 755(0) 1 0 0 00
DBG(2464648716215)> CPU TRACE: 00310:005536 4 600104236100 (LDQ PR6|104) 600104 236(0) 1 0 0 00
DBG(2464648716217)> CPU TRACE: 00310:005537 4 526000276003 (ORQ 526000,DU) 526000 276(0) 0 0 0 03
DBG(2464648716219)> CPU TRACE: 00310:005540 4 600433756100 (STQ PR6|433) 600433 756(0) 1 0 0 00
DBG(2464648716221)> CPU TRACE: 00310:005541 4 777475237004 (LDAQ 777475,IC) 777475 237(0) 0 0 0 04
DBG(2464648716223)> CPU TRACE: 00310:005542 4 600434757100 (STAQ PR6|434) 600434 757(0) 1 0 0 00
DBG(2464648716225)> CPU TRACE: 00310:005543 4 700000352100 (EPP2 PR7|0) 700000 352(0) 1 0 0 00
DBG(2464648716227)> CPU TRACE: 00310:005544 4 600512252100 (SPRI2 PR6|512) 600512 252(0) 1 0 0 00
DBG(2464648716229)> CPU TRACE: 00310:005545 4 600434352100 (EPP2 PR6|434) 600434 352(0) 1 0 0 00
DBG(2464648716231)> CPU TRACE: 00310:005546 4 600514252100 (SPRI2 PR6|514) 600514 252(0) 1 0 0 00
DBG(2464648716233)> CPU TRACE: 00310:005547 4 600172352100 (EPP2 PR6|172) 600172 352(0) 1 0 0 00
DBG(2464648716235)> CPU TRACE: 00310:005550 4 600516252100 (SPRI2 PR6|516) 600516 252(0) 1 0 0 00
DBG(2464648716237)> CPU TRACE: 00310:005551 4 600162352100 (EPP2 PR6|162) 600162 352(0) 1 0 0 00
DBG(2464648716239)> CPU TRACE: 00310:005552 4 600520252100 (SPRI2 PR6|520) 600520 252(0) 1 0 0 00
DBG(2464648716241)> CPU TRACE: 00310:005553 4 600102352100 (EPP2 PR6|102) 600102 352(0) 1 0 0 00
DBG(2464648716243)> CPU TRACE: 00310:005554 4 600522252100 (SPRI2 PR6|522) 600522 252(0) 1 0 0 00
DBG(2464648716245)> CPU TRACE: 00310:005555 4 600433352100 (EPP2 PR6|433) 600433 352(0) 1 0 0 00
DBG(2464648716247)> CPU TRACE: 00310:005556 4 600524252100 (SPRI2 PR6|524) 600524 252(0) 1 0 0 00
DBG(2464648716249)> CPU TRACE: 00310:005557 4 777431352004 (EPP2 777431,IC) 777431 352(0) 0 0 0 04
DBG(2464648716251)> CPU TRACE: 00310:005560 4 600526252100 (SPRI2 PR6|526) 600526 252(0) 1 0 0 00
DBG(2464648716253)> CPU TRACE: 00310:005561 4 777426352004 (EPP2 777426,IC) 777426 352(0) 0 0 0 04
DBG(2464648716255)> CPU TRACE: 00310:005562 4 600530252100 (SPRI2 PR6|530) 600530 252(0) 1 0 0 00
DBG(2464648716257)> CPU TRACE: 00310:005563 4 777423352004 (EPP2 777423,IC) 777423 352(0) 0 0 0 04
DBG(2464648716259)> CPU TRACE: 00310:005564 4 600532252100 (SPRI2 PR6|532) 600532 252(0) 1 0 0 00
DBG(2464648716261)> CPU TRACE: 00310:005565 4 777431352004 (EPP2 777431,IC) 777431 352(0) 0 0 0 04
DBG(2464648716263)> CPU TRACE: 00310:005566 4 600534252100 (SPRI2 PR6|534) 600534 252(0) 1 0 0 00
DBG(2464648716265)> CPU TRACE: 00310:005567 4 600510621100 (EAX1 PR6|510) 600510 621(0) 1 0 0 00
DBG(2464648716267)> CPU TRACE: 00310:005570 4 024000431007 (FLD 024000,DL) 024000 431(0) 0 0 0 07
DBG(2464648716269)> CPU TRACE: 00310:005571 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648716271)> CPU TRACE: 00310:005572 4 400140352120 (EPP2 PR4|140,N*) 400140 352(0) 1 0 1 00
DBG(2464648716273)> CPU TRACE: 00310:005573 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 165
                         if code ^= 0
                         then do;

000402  aa  6 00102 2361 00   ldq       pr6|66              code
000403  aa   000076 6000 04   tze       62,ic               000501

DBG(2464648724709)> CPU TRACE: 00310:005574 4 600102236100 (LDQ PR6|102) 600102 236(0) 1 0 0 00
DBG(2464648724711)> CPU TRACE: 00310:005575 4 000076600004 (TZE 000076,IC) 000076 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 172
                         ent = substr (sourcename, 1, length (rtrim (sourcename)) - length (".basic"));

000501  aa  000 000 165 500   tctr      (pr)
000502  aa  6 00162 00 0040   desc9a    pr6|114,32          sourcename
000503  aa  0 76605 0001 00   arg       pr0|-635            = 777777777777
000504  aa  6 00056 0001 00   arg       pr6|46
000505  aa  6 00056 2361 00   ldq       pr6|46
000506  aa  0 00242 3761 00   anq       pr0|162             = 000777777777
000507  aa  6 00433 7561 00   stq       pr6|283
000510  aa   000040 2360 07   ldq       32,dl
000511  aa  6 00433 1761 00   sbq       pr6|283
000512  aa   000006 1760 07   sbq       6,dl
000513  aa  040 100 100 540   mlr       (pr,rl),(pr),fill(040)
000514  aa  6 00162 00 0006   desc9a    pr6|114,ql          sourcename
000515  aa  6 00152 00 0040   desc9a    pr6|106,32          ent

DBG(2464648724713)> CPU TRACE: 00310:005673 4 000000165500 (TCTR PR0|0) 000000 165(1) 0 0 0 00
DBG(2464648724715)> CPU TRACE: 00310:005677 4 600056236100 (LDQ PR6|56) 600056 236(0) 1 0 0 00
DBG(2464648724717)> CPU TRACE: 00310:005700 4 000242376100 (ANQ PR0|242) 000242 376(0) 1 0 0 00
DBG(2464648724719)> CPU TRACE: 00310:005701 4 600433756100 (STQ PR6|433) 600433 756(0) 1 0 0 00
DBG(2464648724721)> CPU TRACE: 00310:005702 4 000040236007 (LDQ 000040,DL) 000040 236(0) 0 0 0 07
DBG(2464648724723)> CPU TRACE: 00310:005703 4 600433176100 (SBQ PR6|433) 600433 176(0) 1 0 0 00
DBG(2464648724725)> CPU TRACE: 00310:005704 4 000006176007 (SBQ 000006,DL) 000006 176(0) 0 0 0 07
DBG(2464648724727)> CPU TRACE: 00310:005705 4 040100100540 (MLR PR0|40100,F1) 040100 100(1) 0 0 0 00
                                                            STATEMENT 1 ON LINE 173
                    end;

000516  aa   000177 7100 04   tra       127,ic              000715

                                                            STATEMENT 1 ON LINE 196
          end;

000715  aa  6 00100 0541 00   aos       pr6|64              i
000716  aa   777344 7100 04   tra       -284,ic             000262

DBG(2464648724731)> CPU TRACE: 00310:006107 4 600100054100 (AOS PR6|100) 600100 054(0) 1 0 0 00
DBG(2464648724733)> CPU TRACE: 00310:006110 4 777344710004 (TRA 777344,IC) 777344 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 151
          do i = 1 to arg_count;

000256  aa  6 00106 2361 00   ldq       pr6|70              arg_count
000257  aa  6 00420 7561 00   stq       pr6|272
000260  aa   000001 2360 07   ldq       1,dl
000261  aa  6 00100 7561 00   stq       pr6|64              i
000262  aa  6 00100 2361 00   ldq       pr6|64              i
000263  aa  6 00420 1161 00   cmpq      pr6|272
000264  aa   000433 6054 04   tpnz      283,ic              000717

DBG(2464648724735)> CPU TRACE: 00310:005454 4 600100236100 (LDQ PR6|100) 600100 236(0) 1 0 0 00
DBG(2464648724737)> CPU TRACE: 00310:005455 4 600420116100 (CMPQ PR6|420) 600420 116(0) 1 0 0 00
DBG(2464648724739)> CPU TRACE: 00310:005456 4 000433605404 (TPNZ 000433,IC) 000433 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 198
          if ^got_path
          then go to USAGE;

000717  aa  6 00115 2351 00   lda       pr6|77              got_path
000720  aa   777371 6000 04   tze       -263,ic             000311

DBG(2464648724741)> CPU TRACE: 00310:006111 4 600115235100 (LDA PR6|115) 600115 235(0) 1 0 0 00
DBG(2464648724743)> CPU TRACE: 00310:006112 4 777371600004 (TZE 777371,IC) 777371 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 200
          if had_bad_option
          then return;

000721  aa  6 00116 2351 00   lda       pr6|78              had_bad_option
000722  aa  0 00631 6011 00   tnz       pr0|409             return_mac

DBG(2464648724745)> CPU TRACE: 00310:006113 4 600116235100 (LDA PR6|116) 600116 235(0) 1 0 0 00
DBG(2464648724747)> CPU TRACE: 00310:006114 4 000631601100 (TNZ PR0|631) 000631 601(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 203
have_source:
          call hcs_$initiate_count (dir, sourcename, "", bitcnt, 1, input_pt, code);

000723  aa   000001 2360 07   ldq       1,dl
000724  aa  6 00536 7561 00   stq       pr6|350
000725  aa  6 00172 3521 00   epp2      pr6|122             dir
000726  aa  6 00542 2521 00   spri2     pr6|354
000727  aa  6 00162 3521 00   epp2      pr6|114             sourcename
000730  aa  6 00544 2521 00   spri2     pr6|356
000731  aa  6 00433 3521 00   epp2      pr6|283
000732  aa  6 00546 2521 00   spri2     pr6|358
000733  aa  6 00105 3521 00   epp2      pr6|69              bitcnt
000734  aa  6 00550 2521 00   spri2     pr6|360
000735  aa  6 00536 3521 00   epp2      pr6|350
000736  aa  6 00552 2521 00   spri2     pr6|362
000737  aa  6 00122 3521 00   epp2      pr6|82              input_pt
000740  aa  6 00554 2521 00   spri2     pr6|364
000741  aa  6 00102 3521 00   epp2      pr6|66              code
000742  aa  6 00556 2521 00   spri2     pr6|366
000743  aa   777052 3520 04   epp2      -470,ic             000015 = 526000000250
000744  aa  6 00560 2521 00   spri2     pr6|368
000745  aa   777047 3520 04   epp2      -473,ic             000014 = 526000000040
000746  aa  6 00562 2521 00   spri2     pr6|370
000747  aa   777041 3520 04   epp2      -479,ic             000010 = 524000000000
000750  aa  6 00564 2521 00   spri2     pr6|372
000751  aa   777053 3520 04   epp2      -469,ic             000024 = 404000000021
000752  aa  6 00566 2521 00   spri2     pr6|374
000753  aa  6 00570 2521 00   spri2     pr6|376
000754  aa  6 00574 2521 00   spri2     pr6|380
000755  aa   777031 3520 04   epp2      -487,ic             000006 = 464000000000
000756  aa  6 00572 2521 00   spri2     pr6|378
000757  aa  6 00540 6211 00   eax1      pr6|352
000760  aa   034000 4310 07   fld       14336,dl
000761  aa  6 00044 3701 20   epp4      pr6|36,*
000762  la  4 00042 3521 20   epp2      pr4|34,*            hcs_$initiate_count
000763  aa  0 00622 7001 00   tsx0      pr0|402             call_ext_out_desc

DBG(2464648724749)> CPU TRACE: 00310:006115 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648724751)> CPU TRACE: 00310:006116 4 600536756100 (STQ PR6|536) 600536 756(0) 1 0 0 00
DBG(2464648724753)> CPU TRACE: 00310:006117 4 600172352100 (EPP2 PR6|172) 600172 352(0) 1 0 0 00
DBG(2464648724755)> CPU TRACE: 00310:006120 4 600542252100 (SPRI2 PR6|542) 600542 252(0) 1 0 0 00
DBG(2464648724757)> CPU TRACE: 00310:006121 4 600162352100 (EPP2 PR6|162) 600162 352(0) 1 0 0 00
DBG(2464648724759)> CPU TRACE: 00310:006122 4 600544252100 (SPRI2 PR6|544) 600544 252(0) 1 0 0 00
DBG(2464648724761)> CPU TRACE: 00310:006123 4 600433352100 (EPP2 PR6|433) 600433 352(0) 1 0 0 00
DBG(2464648724763)> CPU TRACE: 00310:006124 4 600546252100 (SPRI2 PR6|546) 600546 252(0) 1 0 0 00
DBG(2464648724765)> CPU TRACE: 00310:006125 4 600105352100 (EPP2 PR6|105) 600105 352(0) 1 0 0 00
DBG(2464648724767)> CPU TRACE: 00310:006126 4 600550252100 (SPRI2 PR6|550) 600550 252(0) 1 0 0 00
DBG(2464648724769)> CPU TRACE: 00310:006127 4 600536352100 (EPP2 PR6|536) 600536 352(0) 1 0 0 00
DBG(2464648724771)> CPU TRACE: 00310:006130 4 600552252100 (SPRI2 PR6|552) 600552 252(0) 1 0 0 00
DBG(2464648724773)> CPU TRACE: 00310:006131 4 600122352100 (EPP2 PR6|122) 600122 352(0) 1 0 0 00
DBG(2464648724775)> CPU TRACE: 00310:006132 4 600554252100 (SPRI2 PR6|554) 600554 252(0) 1 0 0 00
DBG(2464648724777)> CPU TRACE: 00310:006133 4 600102352100 (EPP2 PR6|102) 600102 352(0) 1 0 0 00
DBG(2464648724779)> CPU TRACE: 00310:006134 4 600556252100 (SPRI2 PR6|556) 600556 252(0) 1 0 0 00
DBG(2464648724781)> CPU TRACE: 00310:006135 4 777052352004 (EPP2 777052,IC) 777052 352(0) 0 0 0 04
DBG(2464648724783)> CPU TRACE: 00310:006136 4 600560252100 (SPRI2 PR6|560) 600560 252(0) 1 0 0 00
DBG(2464648724785)> CPU TRACE: 00310:006137 4 777047352004 (EPP2 777047,IC) 777047 352(0) 0 0 0 04
DBG(2464648724787)> CPU TRACE: 00310:006140 4 600562252100 (SPRI2 PR6|562) 600562 252(0) 1 0 0 00
DBG(2464648724789)> CPU TRACE: 00310:006141 4 777041352004 (EPP2 777041,IC) 777041 352(0) 0 0 0 04
DBG(2464648724791)> CPU TRACE: 00310:006142 4 600564252100 (SPRI2 PR6|564) 600564 252(0) 1 0 0 00
DBG(2464648724793)> CPU TRACE: 00310:006143 4 777053352004 (EPP2 777053,IC) 777053 352(0) 0 0 0 04
DBG(2464648724795)> CPU TRACE: 00310:006144 4 600566252100 (SPRI2 PR6|566) 600566 252(0) 1 0 0 00
DBG(2464648724797)> CPU TRACE: 00310:006145 4 600570252100 (SPRI2 PR6|570) 600570 252(0) 1 0 0 00
DBG(2464648724799)> CPU TRACE: 00310:006146 4 600574252100 (SPRI2 PR6|574) 600574 252(0) 1 0 0 00
DBG(2464648724801)> CPU TRACE: 00310:006147 4 777031352004 (EPP2 777031,IC) 777031 352(0) 0 0 0 04
DBG(2464648724803)> CPU TRACE: 00310:006150 4 600572252100 (SPRI2 PR6|572) 600572 252(0) 1 0 0 00
DBG(2464648724805)> CPU TRACE: 00310:006151 4 600540621100 (EAX1 PR6|540) 600540 621(0) 1 0 0 00
DBG(2464648724807)> CPU TRACE: 00310:006152 4 034000431007 (FLD 034000,DL) 034000 431(0) 0 0 0 07
DBG(2464648724809)> CPU TRACE: 00310:006153 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648724811)> CPU TRACE: 00310:006154 4 400102352120 (EPP2 PR4|102,N*) 400102 352(0) 1 0 1 00
DBG(2464648724813)> CPU TRACE: 00310:006155 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 206
          if input_pt = null
          then do;
000764  aa  6 00122 2371 00   ldaq      pr6|82              input_pt
000765  aa   777061 6770 04   eraq      -463,ic             000046 = 077777000043 000001000000
000766  aa  0 00460 3771 00   anaq      pr0|304             = 077777000077 777777077077
000767  aa   000035 6010 04   tnz       29,ic               001024

                                                            STATEMENT 1 ON LINE 212
          if bitcnt = 0
          then do;

001024  aa  6 00105 2361 00   ldq       pr6|69              bitcnt
001025  aa   000005 6010 04   tnz       5,ic                001032

DBG(2464648732707)> CPU TRACE: 00310:006216 4 600105236100 (LDQ PR6|105) 600105 236(0) 1 0 0 00
DBG(2464648732709)> CPU TRACE: 00310:006217 4 000005601004 (TNZ 000005,IC) 000005 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 218
          input_length = divide (bitcnt, 9, 17, 0);

001032  aa   000011 5060 07   div       9,dl
001033  aa  6 00101 7561 00   stq       pr6|65              input_length
                                                            STATEMENT 1 ON LINE 220
          on cleanup call clean_up;

001034  aa   000007 7260 07   lxl6      7,dl
001035  aa   777013 3520 04   epp2      -501,ic             000050 = 143154145141
001036  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
001037  aa   000004 7100 04   tra       4,ic                001043

DBG(2464648732711)> CPU TRACE: 00310:006224 4 000011506007 (DIV 000011,DL) 000011 506(0) 0 0 0 07
DBG(2464648732713)> CPU TRACE: 00310:006225 4 600101756100 (STQ PR6|101) 600101 756(0) 1 0 0 00
DBG(2464648732715)> CPU TRACE: 00310:006226 4 000007726007 (LXL6 000007,DL) 000007 726(0) 0 0 0 07
DBG(2464648732717)> CPU TRACE: 00310:006227 4 777013352004 (EPP2 777013,IC) 777013 352(0) 0 0 0 04
DBG(2464648732719)> CPU TRACE: 00310:006230 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00
DBG(2464648732769)> CPU TRACE: 00310:006233 4 000015710004 (TRA 000015,IC) 000015 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 222
          level = level + 1;

001056  aa  6 00044 3701 20   epp4      pr6|36,*
001057  ia  4 00010 0541 00   aos       pr4|8               level
                                                            STATEMENT 1 ON LINE 224
          if source_info_pt ^= null
          then do;

001060  aa  6 00120 2371 00   ldaq      pr6|80              source_info_pt
001061  aa   776765 6770 04   eraq      -523,ic             000046 = 077777000043 000001000000
001062  aa  0 00460 3771 00   anaq      pr0|304             = 077777000077 777777077077
001063  aa   000151 6000 04   tze       105,ic              001234

DBG(2464648732771)> CPU TRACE: 00310:006250 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648732773)> CPU TRACE: 00310:006251 4 400030054100 (AOS PR4|30) 400030 054(0) 1 0 0 00

DBG(2464648732775)> CPU TRACE: 00310:006252 4 600120237100 (LDAQ PR6|120) 600120 237(0) 1 0 0 00
DBG(2464648732777)> CPU TRACE: 00310:006253 4 776765677004 (ERAQ 776765,IC) 776765 677(0) 0 0 0 04
DBG(2464648732779)> CPU TRACE: 00310:006254 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(2464648732781)> CPU TRACE: 00310:006255 4 000151600004 (TZE 000151,IC) 000151 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 244
          else if level = 1
          then do;

001234  ia  4 00010 2361 00   ldq       pr4|8               level
001235  aa   000001 1160 07   cmpq      1,dl
001236  aa   000051 6010 04   tnz       41,ic               001307

DBG(2464648732783)> CPU TRACE: 00310:006426 4 400030236100 (LDQ PR4|30) 400030 236(0) 1 0 0 00
DBG(2464648732785)> CPU TRACE: 00310:006427 4 000001116007 (CMPQ 000001,DL) 000001 116(0) 0 0 0 07
DBG(2464648732787)> CPU TRACE: 00310:006430 4 000051601004 (TNZ 000051,IC) 000051 601(0) 0 0 0 04

                    if work_seg = null
                    then call hcs_$make_seg ("", "basic_temporary_", "", 01111b, work_seg, code);

001237  ia  4 00012 2371 00   ldaq      pr4|10              work_seg
001240  aa   776606 6770 04   eraq      -634,ic             000046 = 077777000043 000001000000
001241  aa  0 00460 3771 00   anaq      pr0|304             = 077777000077 777777077077
001242  aa   000041 6010 04   tnz       33,ic               001303
001243  aa   776613 2370 04   ldaq      -629,ic             000056 = 142141163151 143137164145
001244  aa  6 00436 7571 00   staq      pr6|286
001245  aa   776613 2370 04   ldaq      -629,ic             000060 = 155160157162 141162171137
001246  aa  6 00440 7571 00   staq      pr6|288
001247  aa   000017 2360 07   ldq       15,dl
001250  aa  6 00537 7561 00   stq       pr6|351
001251  aa  6 00536 3521 00   epp2      pr6|350
001252  aa  6 00542 2521 00   spri2     pr6|354
001253  aa  6 00436 3521 00   epp2      pr6|286
001254  aa  6 00544 2521 00   spri2     pr6|356
001255  aa  6 00433 3521 00   epp2      pr6|283
001256  aa  6 00546 2521 00   spri2     pr6|358
001257  aa  6 00537 3521 00   epp2      pr6|351
001260  aa  6 00550 2521 00   spri2     pr6|360
001261  ia  4 00012 3521 00   epp2      pr4|10              work_seg
001262  aa  6 00552 2521 00   spri2     pr6|362
001263  aa  6 00102 3521 00   epp2      pr6|66              code
001264  aa  6 00554 2521 00   spri2     pr6|364
001265  aa   776523 3520 04   epp2      -685,ic             000010 = 524000000000
001266  aa  6 00556 2521 00   spri2     pr6|366
001267  aa  6 00562 2521 00   spri2     pr6|370
001270  aa   776515 3520 04   epp2      -691,ic             000005 = 524000000020
001271  aa  6 00560 2521 00   spri2     pr6|368
001272  aa   776532 3520 04   epp2      -678,ic             000024 = 404000000021
001273  aa  6 00564 2521 00   spri2     pr6|372
001274  aa  6 00570 2521 00   spri2     pr6|376
001275  aa   776511 3520 04   epp2      -695,ic             000006 = 464000000000
001276  aa  6 00566 2521 00   spri2     pr6|374
001277  aa  6 00540 6211 00   eax1      pr6|352
001300  aa   030000 4310 07   fld       12288,dl
001301  la  4 00052 3521 20   epp2      pr4|42,*            hcs_$make_seg
001302  aa  0 00622 7001 00   tsx0      pr0|402             call_ext_out_desc

DBG(2464648732789)> CPU TRACE: 00310:006431 4 400032237100 (LDAQ PR4|32) 400032 237(0) 1 0 0 00
DBG(2464648732791)> CPU TRACE: 00310:006432 4 776606677004 (ERAQ 776606,IC) 776606 677(0) 0 0 0 04
DBG(2464648732793)> CPU TRACE: 00310:006433 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(2464648732795)> CPU TRACE: 00310:006434 4 000041601004 (TNZ 000041,IC) 000041 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 253
          if output_pt = null
          then do;

001342  aa  6 00124 2371 00   ldaq      pr6|84              output_pt
001343  aa   776503 6770 04   eraq      -701,ic             000046 = 077777000043 000001000000
001344  aa  0 00460 3771 00   anaq      pr0|304             = 077777000077 777777077077
001345  aa   000035 6010 04   tnz       29,ic               001402

DBG(2464648732797)> CPU TRACE: 00310:006475 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648732799)> CPU TRACE: 00310:006476 4 400032373520 (EPP7 PR4|32,N*) 400032 373(1) 1 0 1 00
DBG(2464648732801)> CPU TRACE: 00310:006477 4 600124653500 (SPRI7 PR6|124) 600124 653(1) 1 0 0 00
DBG(2464648732803)> CPU TRACE: 00310:006500 4 000034710004 (TRA 000034,IC) 000034 710(0) 0 0 0 04
DBG(2464648732805)> CPU TRACE: 00310:006534 4 600124237100 (LDAQ PR6|124) 600124 237(0) 1 0 0 00
DBG(2464648732807)> CPU TRACE: 00310:006535 4 776503677004 (ERAQ 776503,IC) 776503 677(0) 0 0 0 04
DBG(2464648732809)> CPU TRACE: 00310:006536 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(2464648732811)> CPU TRACE: 00310:006537 4 000035601004 (TNZ 000035,IC) 000035 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 259
          basic_severity_ = 0;

001402  aa  6 00044 3701 20   epp4      pr6|36,*
001403  la  4 00110 4501 20   stz       pr4|72,*            basic_severity_
                                                            STATEMENT 1 ON LINE 260
          call basic_ (input_pt, input_length, output_pt, source_info_pt, main_pt, err_count);

001404  aa  6 00122 3521 00   epp2      pr6|82              input_pt
001405  aa  6 00452 2521 00   spri2     pr6|298
001406  aa  6 00101 3521 00   epp2      pr6|65              input_length
001407  aa  6 00454 2521 00   spri2     pr6|300
001410  aa  6 00124 3521 00   epp2      pr6|84              output_pt
001411  aa  6 00456 2521 00   spri2     pr6|302
001412  aa  6 00120 3521 00   epp2      pr6|80              source_info_pt
001413  aa  6 00460 2521 00   spri2     pr6|304
001414  aa  6 00132 3521 00   epp2      pr6|90              main_pt
001415  aa  6 00462 2521 00   spri2     pr6|306
001416  aa  6 00103 3521 00   epp2      pr6|67              err_count
001417  aa  6 00464 2521 00   spri2     pr6|308
001420  aa  6 00450 6211 00   eax1      pr6|296
001421  aa   030000 4310 07   fld       12288,dl
001422  la  4 00072 3521 20   epp2      pr4|58,*            basic_
001423  aa  0 00623 7001 00   tsx0      pr0|403             call_ext_out

DBG(2464648732813)> CPU TRACE: 00310:006574 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648732815)> CPU TRACE: 00310:006575 4 400130450120 (STZ PR4|130,N*) 400130 450(0) 1 0 1 00
DBG(2464648732817)> CPU TRACE: 00310:006576 4 600122352100 (EPP2 PR6|122) 600122 352(0) 1 0 0 00
DBG(2464648732819)> CPU TRACE: 00310:006577 4 600452252100 (SPRI2 PR6|452) 600452 252(0) 1 0 0 00
DBG(2464648732821)> CPU TRACE: 00310:006600 4 600101352100 (EPP2 PR6|101) 600101 352(0) 1 0 0 00
DBG(2464648732823)> CPU TRACE: 00310:006601 4 600454252100 (SPRI2 PR6|454) 600454 252(0) 1 0 0 00
DBG(2464648732825)> CPU TRACE: 00310:006602 4 600124352100 (EPP2 PR6|124) 600124 352(0) 1 0 0 00
DBG(2464648732827)> CPU TRACE: 00310:006603 4 600456252100 (SPRI2 PR6|456) 600456 252(0) 1 0 0 00
DBG(2464648732829)> CPU TRACE: 00310:006604 4 600120352100 (EPP2 PR6|120) 600120 352(0) 1 0 0 00
DBG(2464648732831)> CPU TRACE: 00310:006605 4 600460252100 (SPRI2 PR6|460) 600460 252(0) 1 0 0 00
DBG(2464648732833)> CPU TRACE: 00310:006606 4 600132352100 (EPP2 PR6|132) 600132 352(0) 1 0 0 00
DBG(2464648732835)> CPU TRACE: 00310:006607 4 600462252100 (SPRI2 PR6|462) 600462 252(0) 1 0 0 00
DBG(2464648732837)> CPU TRACE: 00310:006610 4 600103352100 (EPP2 PR6|103) 600103 352(0) 1 0 0 00
DBG(2464648732839)> CPU TRACE: 00310:006611 4 600464252100 (SPRI2 PR6|464) 600464 252(0) 1 0 0 00
DBG(2464648732841)> CPU TRACE: 00310:006612 4 600450621100 (EAX1 PR6|450) 600450 621(0) 1 0 0 00
DBG(2464648732843)> CPU TRACE: 00310:006613 4 030000431007 (FLD 030000,DL) 030000 431(0) 0 0 0 07
DBG(2464648732845)> CPU TRACE: 00310:006614 4 010402352000 (EPP2 010402) 010402 352(0) 0 0 0 00
DBG(2464648732847)> CPU TRACE: 00310:006615 4 000623700100 (TSX0 PR0|623) 000623 700(0) 1 0 0 00

Now in basic_

ENTRY TO basic_                                             STATEMENT 1 ON LINE 27
basic_:
     proc (source_p, source_l, output_pointer, info_p, mp, err_count);

000660  at     000006000421
000661  tt     000420000421
000662  tt     000421000421
000663  ta     000420000000
000664  ta     000660000000
000665  da     000405300000
000666  aa   020000 6270 00   eax7      8192
000667  aa  7 00034 3521 20   epp2      pr7|28,*
000670  aa  2 01045 2721 00   tsp2      pr2|549             ext_entry
000671  aa     000014000000
000672  aa     000000000000
000673  aa  6 00032 3735 20   epp7      pr6|26,*
000674  aa  7 00006 3715 20   epp5      pr7|6,*
000675  aa  6 15110 6515 00   spri5     pr6|6728
000676  aa   777756 7000 04   tsx0      -18,ic              000654

DBG(2464648732867)> CPU TRACE: 00310:010402 4 020000627000 (EAX7 020000) 020000 627(0) 0 0 0 00
DBG(2464648732869)> CPU TRACE: 00310:010403 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(2464648732871)> CPU TRACE: 00310:010404 4 201045272100 (TSP2 PR2|1045) 201045 272(0) 1 0 0 00
DBG(2464648732915)> CPU TRACE: 00310:010407 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(2464648732917)> CPU TRACE: 00310:010410 4 700006371520 (EPP5 PR7|6,N*) 700006 371(1) 1 0 1 00
DBG(2464648732919)> CPU TRACE: 00310:010411 4 615110651500 (SPRI5 PR6|15110) 615110 651(1) 1 0 0 00
DBG(2464648732921)> CPU TRACE: 00310:010412 4 777756700004 (TSX0 777756,IC) 777756 700(0) 0 0 0 04

BEGIN PROCEDURE basic_
PROLOGUE SEQUENCE
000654  aa  6 16656 4401 00   sxl0      pr6|7598
                                                            STATEMENT 1 ON LINE 330
000655  aa  6 10260 4501 00   stz       pr6|4272            next_line_storage.line_number
000656  aa  6 16656 7201 00   lxl0      pr6|7598
000657  aa   000000 7100 10   tra       0,0

DBG(2464648732923)> CPU TRACE: 00310:010370 4 616656440100 (SXL0 PR6|16656) 616656 440(0) 1 0 0 00
DBG(2464648732925)> CPU TRACE: 00310:010371 4 610260450100 (STZ PR6|10260) 610260 450(0) 1 0 0 00
DBG(2464648732927)> CPU TRACE: 00310:010372 4 616656720100 (LXL0 PR6|16656) 616656 720(0) 1 0 0 00
DBG(2464648732929)> CPU TRACE: 00310:010373 4 000000710010 (TRA 000000,0) 000000 710(0) 0 0 0 10

          which = 1;

000677  aa   000001 2360 07   ldq       1,dl
000700  aa  6 00336 7561 00   stq       pr6|222             which
                                                            STATEMENT 1 ON LINE 70
          main_pt = null;

000701  aa   777567 2370 04   ldaq      -137,ic             000470 = 077777000043 000001000000
000702  aa  6 00142 7571 00   staq      pr6|98              main_pt
                                                            STATEMENT 1 ON LINE 71
          source_info_pt = addr (auto_source_info);

000703  aa  6 13134 3735 00   epp7      pr6|5724            auto_source_info
000704  aa  6 00144 6535 00   spri7     pr6|100             source_info_pt
                                                            STATEMENT 1 ON LINE 74
          if info_p = null
          then do;

000705  aa  6 00032 3715 20   epp5      pr6|26,*
000706  aa  5 00010 6771 20   eraq      pr5|8,*             info_p
000707  aa  0 00460 3771 00   anaq      pr0|304             = 077777000077 777777077077
000710  aa   000011 6010 04   tnz       9,ic                000721

DBG(2464648732931)> CPU TRACE: 00310:010413 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648732933)> CPU TRACE: 00310:010414 4 600336756100 (STQ PR6|336) 600336 756(0) 1 0 0 00
DBG(2464648732935)> CPU TRACE: 00310:010415 4 777567237004 (LDAQ 777567,IC) 777567 237(0) 0 0 0 04
DBG(2464648732937)> CPU TRACE: 00310:010416 4 600142757100 (STAQ PR6|142) 600142 757(0) 1 0 0 00
DBG(2464648732939)> CPU TRACE: 00310:010417 4 613134373500 (EPP7 PR6|13134) 613134 373(1) 1 0 0 00
DBG(2464648732941)> CPU TRACE: 00310:010420 4 600144653500 (SPRI7 PR6|144) 600144 653(1) 1 0 0 00
DBG(2464648732943)> CPU TRACE: 00310:010421 4 600032371520 (EPP5 PR6|32,N*) 600032 371(1) 1 0 1 00
DBG(2464648732945)> CPU TRACE: 00310:010422 4 500010677120 (ERAQ PR5|10,N*) 500010 677(0) 1 0 1 00
DBG(2464648732947)> CPU TRACE: 00310:010423 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(2464648732949)> CPU TRACE: 00310:010424 4 000011601004 (TNZ 000011,IC) 000011 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 76
                    generate_object = "0"b;

000711  aa  6 01474 4501 00   stz       pr6|828             generate_object
                                                            STATEMENT 1 ON LINE 77
                    source_info.dirname, source_info.segname, source_info.given_ename = "";

000712  aa  7 00012 4501 00   stz       pr7|10              source_info.dirname
000713  aa  7 00065 4501 00   stz       pr7|53              source_info.segname
000714  aa  7 00001 4501 00   stz       pr7|1               source_info.given_ename
                                                            STATEMENT 1 ON LINE 78
                    source_info.date_time_modified = 0;

000715  aa   777551 2370 04   ldaq      -151,ic             000466 = 000000000000 000000000000
000716  aa  7 00076 7571 00   staq      pr7|62              source_info.date_time_modified
                                                            STATEMENT 1 ON LINE 79
                    source_info.unique_id = "0"b;

000717  aa  7 00100 4501 00   stz       pr7|64              source_info.unique_id
                                                            STATEMENT 1 ON LINE 80
               end;

000720  aa   000114 7100 04   tra       76,ic               001034

DBG(2464648732951)> CPU TRACE: 00310:010425 4 601474450100 (STZ PR6|1474) 601474 450(0) 1 0 0 00
DBG(2464648732953)> CPU TRACE: 00310:010426 4 700012450100 (STZ PR7|12) 700012 450(0) 1 0 0 00
DBG(2464648732955)> CPU TRACE: 00310:010427 4 700065450100 (STZ PR7|65) 700065 450(0) 1 0 0 00
DBG(2464648732957)> CPU TRACE: 00310:010430 4 700001450100 (STZ PR7|1) 700001 450(0) 1 0 0 00
DBG(2464648732959)> CPU TRACE: 00310:010431 4 777551237004 (LDAQ 777551,IC) 777551 237(0) 0 0 0 04
DBG(2464648732961)> CPU TRACE: 00310:010432 4 700076757100 (STAQ PR7|76) 700076 757(0) 1 0 0 00
DBG(2464648732963)> CPU TRACE: 00310:010433 4 700100450100 (STZ PR7|100) 700100 450(0) 1 0 0 00
DBG(2464648732965)> CPU TRACE: 00310:010434 4 000114710004 (TRA 000114,IC) 000114 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 90
          source_info.version = compiler_source_info_version_2;

001034  aa   000002 2360 07   ldq       2,dl
001035  aa  7 00000 7561 00   stq       pr7|0               source_info.version
                                                            STATEMENT 1 ON LINE 91
          source_info.input_pointer = source_p;

001036  aa  6 00032 3715 20   epp5      pr6|26,*
001037  aa  5 00002 3535 20   epp3      pr5|2,*             source_p
001040  aa  3 00000 3535 20   epp3      pr3|0,*             source_p
001041  aa  7 00102 2535 00   spri3     pr7|66              source_info.input_pointer
                                                            STATEMENT 1 ON LINE 92
          source_info.input_lng = source_l;

001042  aa  5 00004 2361 20   ldq       pr5|4,*             source_l
001043  aa  7 00101 7561 00   stq       pr7|65              source_info.input_lng
                                                            STATEMENT 1 ON LINE 94
          add_lib_name = build_lib_list;

001044  aa   020331 3520 04   epp2      8409,ic             021375 = 000120627000
001045  aa  6 00100 2521 00   spri2     pr6|64              add_lib_name
001046  aa  6 00102 6521 00   spri6     pr6|66              add_lib_name
                                                            STATEMENT 1 ON LINE 95
          go to join;

001047  aa   000123 7100 04   tra       83,ic               001172

DBG(2464648732967)> CPU TRACE: 00310:010550 4 000002236007 (LDQ 000002,DL) 000002 236(0) 0 0 0 07
DBG(2464648732969)> CPU TRACE: 00310:010551 4 700000756100 (STQ PR7|0) 700000 756(0) 1 0 0 00
DBG(2464648732971)> CPU TRACE: 00310:010552 4 600032371520 (EPP5 PR6|32,N*) 600032 371(1) 1 0 1 00
DBG(2464648732973)> CPU TRACE: 00310:010553 4 500002353520 (EPP3 PR5|2,N*) 500002 353(1) 1 0 1 00
DBG(2464648732975)> CPU TRACE: 00310:010554 4 300000353520 (EPP3 PR3|0,N*) 300000 353(1) 1 0 1 00
DBG(2464648732977)> CPU TRACE: 00310:010555 4 700102253500 (SPRI3 PR7|102) 700102 253(1) 1 0 0 00
DBG(2464648732979)> CPU TRACE: 00310:010556 4 500004236120 (LDQ PR5|4,N*) 500004 236(0) 1 0 1 00
DBG(2464648732981)> CPU TRACE: 00310:010557 4 700101756100 (STQ PR7|101) 700101 756(0) 1 0 0 00
DBG(2464648732983)> CPU TRACE: 00310:010560 4 020307352004 (EPP2 020307,IC) 020307 352(0) 0 0 0 04
DBG(2464648732985)> CPU TRACE: 00310:010561 4 600100252100 (SPRI2 PR6|100) 600100 252(0) 1 0 0 00
DBG(2464648732987)> CPU TRACE: 00310:010562 4 600102652100 (SPRI6 PR6|102) 600102 652(0) 1 0 0 00
DBG(2464648732989)> CPU TRACE: 00310:010563 4 000123710004 (TRA 000123,IC) 000123 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 853
join:                                                       /* Per compilation initialization */
          on conversion goto invalid_constant;

001172  aa   000012 7260 07   lxl6      10,dl
001173  aa   777311 3520 04   epp2      -311,ic             000504 = 143157156166
001174  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
001175  aa   000004 7100 04   tra       4,ic                001201

DBG(2464648732991)> CPU TRACE: 00310:010706 4 000012726007 (LXL6 000012,DL) 000012 726(0) 0 0 0 07
DBG(2464648732993)> CPU TRACE: 00310:010707 4 777311352004 (EPP2 777311,IC) 777311 352(0) 0 0 0 04
DBG(2464648732995)> CPU TRACE: 00310:010710 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00
DBG(2464648733041)> CPU TRACE: 00310:010713 4 000012710004 (TRA 000012,IC) 000012 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 855
          on size goto size_error;

001211  aa   000004 7260 07   lxl6      4,dl
001212  aa   777201 3520 04   epp2      -383,ic             000413 = 163151172145
001213  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
001214  aa   000004 7100 04   tra       4,ic                001220

DBG(2464648733043)> CPU TRACE: 00310:010725 4 000004726007 (LXL6 000004,DL) 000004 726(0) 0 0 0 07
DBG(2464648733045)> CPU TRACE: 00310:010726 4 777201352004 (EPP2 777201,IC) 777201 352(0) 0 0 0 04
DBG(2464648733047)> CPU TRACE: 00310:010727 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00
DBG(2464648733097)> CPU TRACE: 00310:010732 4 000012710004 (TRA 000012,IC) 000012 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 856
          on overflow goto overflow_error;

001230  aa   000010 7260 07   lxl6      8,dl
001231  aa   777241 3520 04   epp2      -351,ic             000472 = 157166145162
001232  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
001233  aa   000004 7100 04   tra       4,ic                001237
DBG(2464648733099)> CPU TRACE: 00310:010744 4 000010726007 (LXL6 000010,DL) 000010 726(0) 0 0 0 07
DBG(2464648733101)> CPU TRACE: 00310:010745 4 777241352004 (EPP2 777241,IC) 777241 352(0) 0 0 0 04
DBG(2464648733103)> CPU TRACE: 00310:010746 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00
DBG(2464648733161)> CPU TRACE: 00310:010751 4 000012710004 (TRA 000012,IC) 000012 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 857
          on underflow goto underflow_error;

001247  aa   000011 7260 07   lxl6      9,dl
001250  aa   777231 3520 04   epp2      -359,ic             000501 = 165156144145
001251  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
001252  aa   000004 7100 04   tra       4,ic                001256

DBG(2464648733163)> CPU TRACE: 00310:010763 4 000011726007 (LXL6 000011,DL) 000011 726(0) 0 0 0 07
DBG(2464648733165)> CPU TRACE: 00310:010764 4 777231352004 (EPP2 777231,IC) 777231 352(0) 0 0 0 04
DBG(2464648733167)> CPU TRACE: 00310:010765 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00
DBG(2464648733233)> CPU TRACE: 00310:010770 4 000012710004 (TRA 000012,IC) 000012 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 859
          next_line_storage.input_pt = source_info.input_pointer;

001266  aa  6 00144 3735 20   epp7      pr6|100,*           source_info_pt
001267  aa  7 00102 3735 20   epp7      pr7|66,*            source_info.input_pointer
001270  aa  6 10254 6535 00   spri7     pr6|4268            next_line_storage.input_pt^L                                                            STATEMENT 1 ON LINE 860
          next_line_storage.input_length = source_info.input_lng;

001271  aa  6 00144 3715 20   epp5      pr6|100,*           source_info_pt
001272  aa  5 00101 2361 00   ldq       pr5|65              source_info.input_lng
001273  aa  6 10256 7561 00   stq       pr6|4270            next_line_storage.input_length
                                                            STATEMENT 1 ON LINE 861
          next_line_storage.input_pos = 0;

001274  aa  6 10257 4501 00   stz       pr6|4271            next_line_storage.input_pos
                                                            STATEMENT 1 ON LINE 862
          next_line_storage.statement_number = 0;

001275  aa  6 10270 4501 00   stz       pr6|4280            next_line_storage.statement_number
                                                            STATEMENT 1 ON LINE 863
          next_line_storage.statement_ending = 0;

001276  aa  6 10271 4501 00   stz       pr6|4281            next_line_storage.statement_ending
                                                            STATEMENT 1 ON LINE 864
          next_line_storage.temp_ch = 0;

001277  aa  6 10272 4501 00   stz       pr6|4282            next_line_storage.temp_ch
                                                            STATEMENT 1 ON LINE 865
          source_number = 0;

001300  aa  6 00340 4501 00   stz       pr6|224             source_number
                                                            STATEMENT 1 ON LINE 867
          output_pt = output_pointer;

001301  aa  6 15110 3535 20   epp3      pr6|6728,*          output_pointer
001302  aa  3 00000 3535 20   epp3      pr3|0,*             output_pointer
001303  aa  6 00146 2535 00   spri3     pr6|102             output_pt
                                                            STATEMENT 1 ON LINE 868
          output_pos = 0;

001304  aa  6 01346 4501 00   stz       pr6|742             output_pos

                                                            STATEMENT 1 ON LINE 870
          precision_lng = basic_data$precision_length;

001305  aa  6 00044 3701 20   epp4      pr6|36,*
001306  la  4 00056 2361 20   ldq       pr4|46,*            basic_data$precision_length
001307  aa  6 00226 7561 00   stq       pr6|150             precision_lng
                                                            STATEMENT 1 ON LINE 871
          if precision_lng = 1
          then single = "1"b;

001310  aa   000001 1160 07   cmpq      1,dl
001311  aa   000004 6010 04   tnz       4,ic                001315
001312  aa   400000 2350 03   lda       131072,du
001313  aa  6 01471 7551 00   sta       pr6|825             single
001314  aa   000002 7100 04   tra       2,ic                001316
                                                            STATEMENT 1 ON LINE 873
          else single = "0"b;

001315  aa  6 01471 4501 00   stz       pr6|825             single

DBG(2464648733235)> CPU TRACE: 00310:011002 4 600144373520 (EPP7 PR6|144,N*) 600144 373(1) 1 0 1 00
DBG(2464648733237)> CPU TRACE: 00310:011003 4 700102373520 (EPP7 PR7|102,N*) 700102 373(1) 1 0 1 00
DBG(2464648733239)> CPU TRACE: 00310:011004 4 610254653500 (SPRI7 PR6|10254) 610254 653(1) 1 0 0 00
DBG(2464648733241)> CPU TRACE: 00310:011005 4 600144371520 (EPP5 PR6|144,N*) 600144 371(1) 1 0 1 00
DBG(2464648733243)> CPU TRACE: 00310:011006 4 500101236100 (LDQ PR5|101) 500101 236(0) 1 0 0 00
DBG(2464648733245)> CPU TRACE: 00310:011007 4 610256756100 (STQ PR6|10256) 610256 756(0) 1 0 0 00
DBG(2464648733247)> CPU TRACE: 00310:011010 4 610257450100 (STZ PR6|10257) 610257 450(0) 1 0 0 00
DBG(2464648733249)> CPU TRACE: 00310:011011 4 610270450100 (STZ PR6|10270) 610270 450(0) 1 0 0 00
DBG(2464648733251)> CPU TRACE: 00310:011012 4 610271450100 (STZ PR6|10271) 610271 450(0) 1 0 0 00
DBG(2464648733253)> CPU TRACE: 00310:011013 4 610272450100 (STZ PR6|10272) 610272 450(0) 1 0 0 00
DBG(2464648733255)> CPU TRACE: 00310:011014 4 600340450100 (STZ PR6|340) 600340 450(0) 1 0 0 00
DBG(2464648733257)> CPU TRACE: 00310:011015 4 615110353520 (EPP3 PR6|15110,N*) 615110 353(1) 1 0 1 00
DBG(2464648733259)> CPU TRACE: 00310:011016 4 300000353520 (EPP3 PR3|0,N*) 300000 353(1) 1 0 1 00
DBG(2464648733261)> CPU TRACE: 00310:011017 4 600146253500 (SPRI3 PR6|146) 600146 253(1) 1 0 0 00
DBG(2464648733263)> CPU TRACE: 00310:011020 4 601346450100 (STZ PR6|1346) 601346 450(0) 1 0 0 00
DBG(2464648733265)> CPU TRACE: 00310:011021 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648733267)> CPU TRACE: 00310:011022 4 400062236100 (LDQ PR4|62) 400062 236(0) 1 0 0 00
DBG(2464648733269)> CPU TRACE: 00310:011023 4 600226756100 (STQ PR6|226) 600226 756(0) 1 0 0 00
DBG(2464648733271)> CPU TRACE: 00310:011024 4 000001116007 (CMPQ 000001,DL) 000001 116(0) 0 0 0 07
DBG(2464648733273)> CPU TRACE: 00310:011025 4 000004601004 (TNZ 000004,IC) 000004 601(0) 0 0 0 04
DBG(2464648733275)> CPU TRACE: 00310:011026 4 400000235003 (LDA 400000,DU) 400000 235(0) 0 0 0 03
DBG(2464648733277)> CPU TRACE: 00310:011027 4 601471755100 (STA PR6|1471) 601471 755(0) 1 0 0 00
DBG(2464648733279)> CPU TRACE: 00310:011030 4 000002710004 (TRA 000002,IC) 000002 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 874
          inst_pt = addr (basic_data$instruction_sequences (precision_lng));

001316  aa   000166 4020 07   mpy       118,dl
001317  la  4 00074 3515 20   epp1      pr4|60,*
001320  aa  1 77612 3515 06   epp1      pr1|-118,ql         basic_data$instruction_sequences
001321  aa  6 00166 2515 00   spri1     pr6|118             inst_pt
                                                            STATEMENT 1 ON LINE 876
          if generate_object
          then do;

001322  aa  6 01474 2351 00   lda       pr6|828             generate_object
001323  aa   000024 6000 04   tze       20,ic               001347

DBG(2464648733281)> CPU TRACE: 00310:011032 4 000166402007 (MPY 000166,DL) 000166 402(0) 0 0 0 07
DBG(2464648733283)> CPU TRACE: 00310:011033 4 036131351400 (EPP1 036131) 036131 351(1) 0 0 0 00
DBG(2464648733285)> CPU TRACE: 00310:011034 4 177612351506 (EPP1 PR1|77612,QL) 177612 351(1) 1 0 0 06
DBG(2464648733287)> CPU TRACE: 00310:011035 4 600166251500 (SPRI1 PR6|166) 600166 251(1) 1 0 0 00
DBG(2464648733289)> CPU TRACE: 00310:011036 4 601474235100 (LDA PR6|1474) 601474 235(0) 1 0 0 00
DBG(2464648733291)> CPU TRACE: 00310:011037 4 000024600004 (TZE 000024,IC) 000024 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 884
          else seg_name = "{main_program}";

001347  aa   000016 2360 07   ldq       14,dl
001350  aa  6 01376 7561 00   stq       pr6|766             seg_name
001351  aa  040 140 100 444   mlr       (rl,ic),(pr,rl),fill(040)
001352  aa   777156 00 0006   desc9a    -402,ql             000527 = 173155141151
001353  aa  6 01377 00 0006   desc9a    pr6|767,ql          seg_name
                                                            STATEMENT 1 ON LINE 886
          basic_temp_ptr = null;

001354  aa   777114 2370 04   ldaq      -436,ic             000470 = 077777000043 000001000000
001355  aa  6 00200 7571 00   staq      pr6|128             basic_temp_ptr
                                                            STATEMENT 1 ON LINE 887
          instruction_temp_ptr = null;

001356  aa  6 00150 7571 00   staq      pr6|104             instruction_temp_ptr
                                                            STATEMENT 1 ON LINE 888
          number_of_errors = 0;

001357  aa  6 00206 4501 00   stz       pr6|134             number_of_errors
                                                            STATEMENT 1 ON LINE 889
          program_number = 0;

001360  aa  6 00207 4501 00   stz       pr6|135             program_number
                                                            STATEMENT 1 ON LINE 890
          lib_count = 0;

001361  aa  6 00337 4501 00   stz       pr6|223             lib_count
                                                            STATEMENT 1 ON LINE 892
          on cleanup
               begin;

001362  aa   000007 7260 07   lxl6      7,dl
001363  aa   777111 3520 04   epp2      -439,ic             000474 = 143154145141
001364  aa  0 00717 7001 00   tsx0      pr0|463             enable_op
001365  aa   000004 7100 04   tra       4,ic                001371
001366  aa     000104000000
001367  aa   000067 7100 04   tra       55,ic               001456
BEGIN CONDITION cleanup.5

DBG(2464648733281)> CPU TRACE: 00310:011032 4 000166402007 (MPY 000166,DL) 000166 402(0) 0 0 0 07
DBG(2464648733283)> CPU TRACE: 00310:011033 4 036131351400 (EPP1 036131) 036131 351(1) 0 0 0 00
DBG(2464648733285)> CPU TRACE: 00310:011034 4 177612351506 (EPP1 PR1|77612,QL) 177612 351(1) 1 0 0 06
DBG(2464648733287)> CPU TRACE: 00310:011035 4 600166251500 (SPRI1 PR6|166) 600166 251(1) 1 0 0 00
DBG(2464648733289)> CPU TRACE: 00310:011036 4 601474235100 (LDA PR6|1474) 601474 235(0) 1 0 0 00
DBG(2464648733291)> CPU TRACE: 00310:011037 4 000024600004 (TZE 000024,IC) 000024 600(0) 0 0 0 04
DBG(2464648733293)> CPU TRACE: 00310:011063 4 000016236007 (LDQ 000016,DL) 000016 236(0) 0 0 0 07
DBG(2464648733295)> CPU TRACE: 00310:011064 4 601376756100 (STQ PR6|1376) 601376 756(0) 1 0 0 00
DBG(2464648733297)> CPU TRACE: 00310:011065 4 040140100444 (MLR 040140,SD) 040140 100(1) 0 0 0 00
DBG(2464648733299)> CPU TRACE: 00310:011070 4 777114237004 (LDAQ 777114,IC) 777114 237(0) 0 0 0 04
DBG(2464648733301)> CPU TRACE: 00310:011071 4 600200757100 (STAQ PR6|200) 600200 757(0) 1 0 0 00
DBG(2464648733303)> CPU TRACE: 00310:011072 4 600150757100 (STAQ PR6|150) 600150 757(0) 1 0 0 00
DBG(2464648733305)> CPU TRACE: 00310:011073 4 600206450100 (STZ PR6|206) 600206 450(0) 1 0 0 00
DBG(2464648733307)> CPU TRACE: 00310:011074 4 600207450100 (STZ PR6|207) 600207 450(0) 1 0 0 00
DBG(2464648733309)> CPU TRACE: 00310:011075 4 600337450100 (STZ PR6|337) 600337 450(0) 1 0 0 00
DBG(2464648733311)> CPU TRACE: 00310:011076 4 000007726007 (LXL6 000007,DL) 000007 726(0) 0 0 0 07
DBG(2464648733313)> CPU TRACE: 00310:011077 4 777111352004 (EPP2 777111,IC) 777111 352(0) 0 0 0 04
DBG(2464648733315)> CPU TRACE: 00310:011100 4 000717700100 (TSX0 PR0|717) 000717 700(0) 1 0 0 00
DBG(2464648733389)> CPU TRACE: 00310:011103 4 000067710004 (TRA 000067,IC) 000067 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 901
          call get_temp_segment_ ("basic", instruction_temp_ptr, code);

001456  aa   777004 2370 04   ldaq      -508,ic             000462 = 142141163151 143000000000
001457  aa  6 16706 7571 00   staq      pr6|7622
001460  aa  6 16706 3521 00   epp2      pr6|7622
001461  aa  6 16662 2521 00   spri2     pr6|7602
001462  aa  6 00150 3521 00   epp2      pr6|104             instruction_temp_ptr
001463  aa  6 16664 2521 00   spri2     pr6|7604
001464  aa  6 00351 3521 00   epp2      pr6|233             code
001465  aa  6 16666 2521 00   spri2     pr6|7606
001466  aa   776722 3520 04   epp2      -558,ic             000410 = 524000000005
001467  aa  6 16670 2521 00   spri2     pr6|7608
001470  aa   776731 3520 04   epp2      -551,ic             000421 = 464000000000
001471  aa  6 16672 2521 00   spri2     pr6|7610
001472  aa   776724 3520 04   epp2      -556,ic             000416 = 404000000043
001473  aa  6 16674 2521 00   spri2     pr6|7612
001474  aa  6 16660 6211 00   eax1      pr6|7600
001475  aa   014000 4310 07   fld       6144,dl
001476  aa  6 00044 3701 20   epp4      pr6|36,*
001477  la  4 00042 3521 20   epp2      pr4|34,*            get_temp_segment_
001500  aa  0 00622 7001 00   tsx0      pr0|402             call_ext_out_desc
                                                            STATEMENT 1 ON LINE 902
          if code ^= 0
          then do;

001501  aa  6 00351 2361 00   ldq       pr6|233             code
001502  aa   000020 6000 04   tze       16,ic               001522

DBG(2464648733391)> CPU TRACE: 00310:011172 4 777004237004 (LDAQ 777004,IC) 777004 237(0) 0 0 0 04
DBG(2464648733393)> CPU TRACE: 00310:011173 4 616706757100 (STAQ PR6|16706) 616706 757(0) 1 0 0 00
DBG(2464648733395)> CPU TRACE: 00310:011174 4 616706352100 (EPP2 PR6|16706) 616706 352(0) 1 0 0 00
DBG(2464648733397)> CPU TRACE: 00310:011175 4 616662252100 (SPRI2 PR6|16662) 616662 252(0) 1 0 0 00
DBG(2464648733399)> CPU TRACE: 00310:011176 4 600150352100 (EPP2 PR6|150) 600150 352(0) 1 0 0 00
DBG(2464648733401)> CPU TRACE: 00310:011177 4 616664252100 (SPRI2 PR6|16664) 616664 252(0) 1 0 0 00
DBG(2464648733403)> CPU TRACE: 00310:011200 4 600351352100 (EPP2 PR6|351) 600351 352(0) 1 0 0 00
DBG(2464648733405)> CPU TRACE: 00310:011201 4 616666252100 (SPRI2 PR6|16666) 616666 252(0) 1 0 0 00
DBG(2464648733407)> CPU TRACE: 00310:011202 4 776722352004 (EPP2 776722,IC) 776722 352(0) 0 0 0 04
DBG(2464648733409)> CPU TRACE: 00310:011203 4 616670252100 (SPRI2 PR6|16670) 616670 252(0) 1 0 0 00
DBG(2464648733411)> CPU TRACE: 00310:011204 4 776731352004 (EPP2 776731,IC) 776731 352(0) 0 0 0 04
DBG(2464648733413)> CPU TRACE: 00310:011205 4 616672252100 (SPRI2 PR6|16672) 616672 252(0) 1 0 0 00
DBG(2464648733415)> CPU TRACE: 00310:011206 4 776724352004 (EPP2 776724,IC) 776724 352(0) 0 0 0 04
DBG(2464648733417)> CPU TRACE: 00310:011207 4 616674252100 (SPRI2 PR6|16674) 616674 252(0) 1 0 0 00
DBG(2464648733419)> CPU TRACE: 00310:011210 4 616660621100 (EAX1 PR6|16660) 616660 621(0) 1 0 0 00
DBG(2464648733421)> CPU TRACE: 00310:011211 4 014000431007 (FLD 014000,DL) 014000 431(0) 0 0 0 07
DBG(2464648733423)> CPU TRACE: 00310:011212 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648733425)> CPU TRACE: 00310:011213 4 400200352120 (EPP2 PR4|200,N*) 400200 352(0) 1 0 1 00
DBG(2464648733427)> CPU TRACE: 00310:011214 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00
DBG(2464648734539)> CPU TRACE: 00310:011215 4 600351236100 (LDQ PR6|351) 600351 236(0) 1 0 0 00
DBG(2464648734541)> CPU TRACE: 00310:011216 4 000020600004 (TZE 000020,IC) 000020 600(0) 0 0 0 04
DBG(2464648734539)> CPU TRACE: 00310:011215 4 600351236100 (LDQ PR6|351) 600351 236(0) 1 0 0 00
DBG(2464648734541)> CPU TRACE: 00310:011216 4 000020600004 (TZE 000020,IC) 000020 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 909
          first_statement = "1"b;

001522  aa   400000 2350 03   lda       131072,du
001523  aa  6 01472 7551 00   sta       pr6|826             first_statement
                                                            STATEMENT 1 ON LINE 910
          sub_ok = "0"b;

001524  aa  6 01475 4501 00   stz       pr6|829             sub_ok
                                                            STATEMENT 1 ON LINE 912
process_source:
          source_number = source_number + 1;

001525  aa  6 00340 0541 00   aos       pr6|224             source_number
                                                            STATEMENT 1 ON LINE 914
          source_map_info (source_number).pathname = source_info.dirname || ">" || source_info.segname;

001526  aa  6 00340 2361 00   ldq       pr6|224             source_number
001527  aa   000056 4020 07   mpy       46,dl
001530  aa  6 00144 3735 20   epp7      pr6|100,*           source_info_pt
001531  aa  6 16657 7561 00   stq       pr6|7599
001532  aa  7 00012 2361 00   ldq       pr7|10              source_info.dirname
001533  aa   000001 0760 07   adq       1,dl
001534  aa  0 00551 7001 00   tsx0      pr0|361             alloc_char_temp
001535  aa  7 00012 7271 00   lxl7      pr7|10              source_info.dirname
001536  aa  040 140 100 540   mlr       (pr,rl),(pr,rl),fill(040)
001537  aa  7 00013 00 0017   desc9a    pr7|11,x7           source_info.dirname
001540  aa  2 00000 00 0017   desc9a    pr2|0,x7
001541  aa  7 00012 7271 00   lxl7      pr7|10              source_info.dirname
001542  aa  040 117 100 404   mlr       (ic),(pr,x7),fill(040)
001543  aa   022547 00 0001   desc9a    9575,1              024311 = 076000000000
001544  aa  2 00000 00 0001   desc9a    pr2|0,1
001545  aa  6 16716 7561 00   stq       pr6|7630
001546  aa  7 00065 0761 00   adq       pr7|53              source_info.segname
001547  aa  6 16717 7561 00   stq       pr6|7631^L001550  aa  0 00606 7001 00   tsx0      pr0|390             cat_realloc_chars
001551  aa  6 16716 2351 00   lda       pr6|7630
001552  aa  7 00065 7271 00   lxl7      pr7|53              source_info.segname
001553  aa  040 145 100 540   mlr       (pr,rl),(pr,rl,al),fill(040)
001554  aa  7 00066 00 0017   desc9a    pr7|54,x7           source_info.segname
001555  aa  2 00000 00 0017   desc9a    pr2|0,x7
001556  aa  6 16717 2361 00   ldq       pr6|7631
001557  aa   000250 1160 07   cmpq      168,dl
001560  aa   000002 6040 04   tmi       2,ic                001562
001557  aa   000250 1160 07   cmpq      168,dl
001560  aa   000002 6040 04   tmi       2,ic                001562
001561  aa   000250 2360 07   ldq       168,dl
001562  aa  6 16657 7271 00   lxl7      pr6|7599
001563  aa  6 11226 7561 17   stq       pr6|4758,7          source_map_info.pathname
001564  aa  6 11227 3715 17   epp5      pr6|4759,7          source_map_info.pathname
001565  aa  040 140 100 540   mlr       (pr,rl),(pr,rl),fill(040)
001566  aa  2 00000 00 0006   desc9a    pr2|0,ql
001567  aa  5 00000 00 0006   desc9a    pr5|0,ql            source_map_info.pathname
                                                            STATEMENT 1 ON LINE 915
          source_map_info (source_number).uid = source_info.unique_id;

001570  aa  0 01014 7001 00   tsx0      pr0|524             shorten_stack
001571  aa  7 00100 2351 00   lda       pr7|64              source_info.unique_id
001572  aa  6 11301 7551 17   sta       pr6|4801,7          source_map_info.uid
                                                            STATEMENT 1 ON LINE 916
          source_map_info (source_number).dtm = source_info.date_time_modified;

001573  aa  7 00076 2371 00   ldaq      pr7|62              source_info.date_time_modified
001574  aa  6 11302 7571 17   staq      pr6|4802,7          source_map_info.dtm
                                                            STATEMENT 1 ON LINE 918
          do while (input_pos < input_length);

001575  aa   000000 0110 03   nop       0,du
001576  aa  6 10257 2361 00   ldq       pr6|4271            next_line_storage.input_pos
001577  aa  6 10256 1161 00   cmpq      pr6|4270            next_line_storage.input_length
001600  aa   000174 6050 04   tpl       124,ic              001774

DBG(2464648734543)> CPU TRACE: 00310:011236 4 400000235003 (LDA 400000,DU) 400000 235(0) 0 0 0 03
DBG(2464648734545)> CPU TRACE: 00310:011237 4 601472755100 (STA PR6|1472) 601472 755(0) 1 0 0 00
DBG(2464648734547)> CPU TRACE: 00310:011240 4 601475450100 (STZ PR6|1475) 601475 450(0) 1 0 0 00
DBG(2464648734549)> CPU TRACE: 00310:011241 4 600340054100 (AOS PR6|340) 600340 054(0) 1 0 0 00
DBG(2464648734549)> CPU TRACE: Add36b op1 000000000000 op2 000000000001 carryin 0 flagsToSet 740000 flags 300200 ovf 0
DBG(2464648734549)> CPU TRACE: Add36b res 000000000001 flags 000200 ovf 0
DBG(2464648734551)> CPU TRACE: 00310:011242 4 600340236100 (LDQ PR6|340) 600340 236(0) 1 0 0 00
DBG(2464648734553)> CPU TRACE: 00310:011243 4 000056402007 (MPY 000056,DL) 000056 402(0) 0 0 0 07
DBG(2464648734555)> CPU TRACE: 00310:011244 4 600144373520 (EPP7 PR6|144,N*) 600144 373(1) 1 0 1 00
DBG(2464648734557)> CPU TRACE: 00310:011245 4 616657756100 (STQ PR6|16657) 616657 756(0) 1 0 0 00
DBG(2464648734559)> CPU TRACE: 00310:011246 4 700012236100 (LDQ PR7|12) 700012 236(0) 1 0 0 00
DBG(2464648734561)> CPU TRACE: 00310:011247 4 000001076007 (ADQ 000001,DL) 000001 076(0) 0 0 0 07
DBG(2464648734561)> CPU TRACE: Add36b op1 000000000000 op2 000000000001 carryin 0 flagsToSet 740000 flags 400200 ovf 0
DBG(2464648734561)> CPU TRACE: Add36b res 000000000001 flags 000200 ovf 0
DBG(2464648734563)> CPU TRACE: 00310:011250 4 000551700100 (TSX0 PR0|551) 000551 700(0) 1 0 0 00
DBG(2464648734611)> CPU TRACE: TRA 00310:011251
DBG(2464648734613)> CPU TRACE: 00310:011251 4 700012727100 (LXL7 PR7|12) 700012 727(0) 1 0 0 00
DBG(2464648734615)> CPU TRACE: 00310:011252 4 040140100540 (MLR PR0|40140,F1) 040140 100(1) 0 0 0 00
DBG(2464648734615)> CPU TRACE: MLR special case #1
DBG(2464648734617)> CPU TRACE: 00310:011255 4 700012727100 (LXL7 PR7|12) 700012 727(0) 1 0 0 00
DBG(2464648734619)> CPU TRACE: 00310:011256 4 040117100404 (MLR 040117,IC) 040117 100(1) 0 0 0 00
DBG(2464648734621)> CPU TRACE: 00310:011261 4 616716756100 (STQ PR6|16716) 616716 756(0) 1 0 0 00
DBG(2464648734623)> CPU TRACE: 00310:011262 4 700065076100 (ADQ PR7|65) 700065 076(0) 1 0 0 00
DBG(2464648734625)> CPU TRACE: 00310:011263 4 616717756100 (STQ PR6|16717) 616717 756(0) 1 0 0 00
DBG(2464648734627)> CPU TRACE: 00310:011264 4 000606700100 (TSX0 PR0|606) 000606 700(0) 1 0 0 00
DBG(2464648734663)> CPU TRACE: TRA 00310:011265
DBG(2464648734665)> CPU TRACE: 00310:011265 4 616716235100 (LDA PR6|16716) 616716 235(0) 1 0 0 00
DBG(2464648734667)> CPU TRACE: 00310:011266 4 700065727100 (LXL7 PR7|65) 700065 727(0) 1 0 0 00
DBG(2464648734669)> CPU TRACE: 00310:011267 4 040145100540 (MLR PR0|40145,F1) 040145 100(1) 0 0 0 00
DBG(2464648734671)> CPU TRACE: 00310:011272 4 616717236100 (LDQ PR6|16717) 616717 236(0) 1 0 0 00
DBG(2464648734673)> CPU TRACE: 00310:011273 4 000250116007 (CMPQ 000250,DL) 000250 116(0) 0 0 0 07
DBG(2464648734675)> CPU TRACE: 00310:011274 4 000002604004 (TMI 000002,IC) 000002 604(0) 0 0 0 04
DBG(2464648734677)> CPU TRACE: 00310:011276 4 616657727100 (LXL7 PR6|16657) 616657 727(0) 1 0 0 00
DBG(2464648734679)> CPU TRACE: 00310:011277 4 611226756117 (STQ PR6|11226,7) 611226 756(0) 1 0 0 17
DBG(2464648734681)> CPU TRACE: 00310:011300 4 611227371517 (EPP5 PR6|11227,7) 611227 371(1) 1 0 0 17
DBG(2464648734683)> CPU TRACE: 00310:011301 4 040140100540 (MLR PR0|40140,F1) 040140 100(1) 0 0 0 00
DBG(2464648734685)> CPU TRACE: 00310:011304 4 001014700100 (TSX0 PR0|1014) 001014 700(0) 1 0 0 00
DBG(2464648734697)> CPU TRACE: TRA 00310:011305
DBG(2464648734699)> CPU TRACE: 00310:011305 4 700100235100 (LDA PR7|100) 700100 235(0) 1 0 0 00
DBG(2464648734701)> CPU TRACE: 00310:011306 4 611301755117 (STA PR6|11301,7) 611301 755(0) 1 0 0 17
DBG(2464648734703)> CPU TRACE: 00310:011307 4 700076237100 (LDAQ PR7|76) 700076 237(0) 1 0 0 00
DBG(2464648734705)> CPU TRACE: 00310:011310 4 611302757117 (STAQ PR6|11302,7) 611302 757(0) 1 0 0 17
DBG(2464648734707)> CPU TRACE: 00310:011311 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648734709)> CPU TRACE: 00310:011312 4 610257236100 (LDQ PR6|10257) 610257 236(0) 1 0 0 00
DBG(2464648734711)> CPU TRACE: 00310:011313 4 610256116100 (CMPQ PR6|10256) 610256 116(0) 1 0 0 00
DBG(2464648734713)> CPU TRACE: 00310:011314 4 000174605004 (TPL 000174,IC) 000174 605(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 922
               for_level = 0;

001601  aa  6 00224 4501 00   stz       pr6|148             for_level
                                                            STATEMENT 1 ON LINE 923
               fn_name = 0;

001602  aa  6 00221 4501 00   stz       pr6|145             fn_name
                                                            STATEMENT 1 ON LINE 924
               current_line_number = -1;

001603  aa   000001 3360 07   lcq       1,dl
001604  aa  6 00225 7561 00   stq       pr6|149             current_line_number
                                                            STATEMENT 1 ON LINE 925
               modifier = "0"b;

001605  aa  6 01503 4501 00   stz       pr6|835             modifier
                                                            STATEMENT 1 ON LINE 929
               table_pt (1) = addr (small_numeric_data);

001606  aa  6 00362 3735 00   epp7      pr6|242             small_numeric_data
001607  aa  6 00170 6535 00   spri7     pr6|120             table_pt
                                                            STATEMENT 1 ON LINE 930
               table_max (1) = hbound (small_numeric_data, 1);

001610  aa   000144 2360 07   ldq       100,dl^L001611  aa  6 01372 7561 00   stq       pr6|762             table_max
                                                            STATEMENT 1 ON LINE 931
               table_pos (1) = 0;

001612  aa  6 01367 4501 00   stz       pr6|759             table_pos
                                                            STATEMENT 1 ON LINE 932
               large_table_offset (1) = 0;

001613  aa  6 01364 4501 00   stz       pr6|756             large_table_offset
                                                            STATEMENT 1 ON LINE 933
               small_table (1) = "1"b;

001614  aa   400000 2350 03   lda       131072,du
001615  aa  6 01476 7551 00   sta       pr6|830             small_table
                                                            STATEMENT 1 ON LINE 935
               table_pt (2) = addr (small_string_data);

001616  aa  6 00672 3715 00   epp5      pr6|442             small_string_data
001617  aa  6 00172 6515 00   spri5     pr6|122             table_pt
                                                            STATEMENT 1 ON LINE 936
               table_max (2) = hbound (small_string_data, 1);

001620  aa  6 01373 7561 00   stq       pr6|763             table_max
                                                            STATEMENT 1 ON LINE 937
               table_pos (2) = 0;

001621  aa  6 01370 4501 00   stz       pr6|760             table_pos
                                                            STATEMENT 1 ON LINE 938
               large_table_offset (2) = 2048;

001622  aa   004000 2360 07   ldq       2048,dl
001623  aa  6 01365 7561 00   stq       pr6|757             large_table_offset
                                                            STATEMENT 1 ON LINE 939
               small_table (2) = "1"b;

001624  aa  6 01477 7551 00   sta       pr6|831             small_table
                                                            STATEMENT 1 ON LINE 941
               table_pt (3) = addr (small_line);

001625  aa  6 01036 3535 00   epp3      pr6|542             small_line
001626  aa  6 00174 2535 00   spri3     pr6|124             table_pt
                                                            STATEMENT 1 ON LINE 942
               table_max (3) = hbound (small_line, 1);

001627  aa   000310 2360 07   ldq       200,dl
001630  aa  6 01374 7561 00   stq       pr6|764             table_max
                                                            STATEMENT 1 ON LINE 943
               table_pos (3) = 0;

001631  aa  6 01371 4501 00   stz       pr6|761             table_pos
                                                            STATEMENT 1 ON LINE 944
               large_table_offset (3) = 3072;

001632  aa   006000 2360 07   ldq       3072,dl
001633  aa  6 01366 7561 00   stq       pr6|758             large_table_offset
                                                            STATEMENT 1 ON LINE 945
               small_table (3) = "1"b;

001634  aa  6 01500 7551 00   sta       pr6|832             small_table
                                                            STATEMENT 1 ON LINE 947^L               if mod (output_pos, 2) ^= 0
               then output_pos = output_pos + 1;

001635  aa  6 01346 2361 00   ldq       pr6|742             output_pos
001636  aa   022454 3520 04   epp2      9516,ic             024312 = 000000000002
001637  aa  0 00704 7001 00   tsx0      pr0|452             mdfx1
001640  aa   000002 6000 04   tze       2,ic                001642
001641  aa  6 01346 0541 00   aos       pr6|742             output_pos
                                                            STATEMENT 1 ON LINE 950
               number_of_constants = 0;

001642  aa  6 01375 4501 00   stz       pr6|765             number_of_constants
                                                            STATEMENT 1 ON LINE 951
               begin;

BEGIN BLOCK  1                                              STATEMENT 1 ON LINE 954
                    constant_ptr = addrel (output_pointer, output_pos + size (basic_program_header));

001643  aa  6 01346 2361 00   ldq       pr6|742             output_pos
001644  aa   000016 0760 07   adq       14,dl
001645  aa  6 15110 3521 20   epp2      pr6|6728,*          output_pointer
001646  aa  2 00000 3521 66   epp2      pr2|0,*ql           output_pointer
001647  aa   000000 0520 03   adwp2     0,du
001650  aa  6 00152 2521 00   spri2     pr6|106             constant_ptr
                                                            STATEMENT 1 ON LINE 956
               end;

  END BLOCK  1
                                                            STATEMENT 1 ON LINE 958
               missing_pt = addr (missing_table (0));

001651  aa  6 07741 3735 00   epp7      pr6|4065            missing_table
001652  aa  6 00204 6535 00   spri7     pr6|132             missing_pt
                                                            STATEMENT 1 ON LINE 959
               missing.count = 0;

001653  aa  7 00000 4501 00   stz       pr7|0               missing.count
                                                            STATEMENT 1 ON LINE 961
               temps_pt = addr (normal_temps);

001654  aa  6 07201 3715 00   epp5      pr6|3713            normal_temps
001655  aa  6 00162 6515 00   spri5     pr6|114             temps_pt
                                                            STATEMENT 1 ON LINE 963
               last_statement = "0"b;

001656  aa  6 01473 4501 00   stz       pr6|827             last_statement
                                                            STATEMENT 1 ON LINE 965
               do i = 1 to max_temp;

001657  aa   000024 2360 07   ldq       20,dl
001660  aa  6 15114 7561 00   stq       pr6|6732
001661  aa   000001 2360 07   ldq       1,dl
001662  aa  6 00335 7561 00   stq       pr6|221             i
001663  aa   000000 0110 03   nop       0,du
001664  aa  6 00335 2361 00   ldq       pr6|221             i
001665  aa  6 15114 1161 00   cmpq      pr6|6732
001666  aa   000006 6054 04   tpnz      6,ic                001674

DBG(2464648734715)> CPU TRACE: 00310:011315 4 600224450100 (STZ PR6|224) 600224 450(0) 1 0 0 00
DBG(2464648734717)> CPU TRACE: 00310:011316 4 600221450100 (STZ PR6|221) 600221 450(0) 1 0 0 00
DBG(2464648734719)> CPU TRACE: 00310:011317 4 000001336007 (LCQ 000001,DL) 000001 336(0) 0 0 0 07
DBG(2464648734721)> CPU TRACE: 00310:011320 4 600225756100 (STQ PR6|225) 600225 756(0) 1 0 0 00
DBG(2464648734723)> CPU TRACE: 00310:011321 4 601503450100 (STZ PR6|1503) 601503 450(0) 1 0 0 00
DBG(2464648734725)> CPU TRACE: 00310:011322 4 600362373500 (EPP7 PR6|362) 600362 373(1) 1 0 0 00
DBG(2464648734727)> CPU TRACE: 00310:011323 4 600170653500 (SPRI7 PR6|170) 600170 653(1) 1 0 0 00
DBG(2464648734729)> CPU TRACE: 00310:011324 4 000144236007 (LDQ 000144,DL) 000144 236(0) 0 0 0 07
DBG(2464648734731)> CPU TRACE: 00310:011325 4 601372756100 (STQ PR6|1372) 601372 756(0) 1 0 0 00
DBG(2464648734733)> CPU TRACE: 00310:011326 4 601367450100 (STZ PR6|1367) 601367 450(0) 1 0 0 00
DBG(2464648734735)> CPU TRACE: 00310:011327 4 601364450100 (STZ PR6|1364) 601364 450(0) 1 0 0 00
DBG(2464648734737)> CPU TRACE: 00310:011330 4 400000235003 (LDA 400000,DU) 400000 235(0) 0 0 0 03
DBG(2464648734739)> CPU TRACE: 00310:011331 4 601476755100 (STA PR6|1476) 601476 755(0) 1 0 0 00
DBG(2464648734741)> CPU TRACE: 00310:011332 4 600672371500 (EPP5 PR6|672) 600672 371(1) 1 0 0 00
DBG(2464648734743)> CPU TRACE: 00310:011333 4 600172651500 (SPRI5 PR6|172) 600172 651(1) 1 0 0 00
DBG(2464648734745)> CPU TRACE: 00310:011334 4 601373756100 (STQ PR6|1373) 601373 756(0) 1 0 0 00
DBG(2464648734747)> CPU TRACE: 00310:011335 4 601370450100 (STZ PR6|1370) 601370 450(0) 1 0 0 00
DBG(2464648734749)> CPU TRACE: 00310:011336 4 004000236007 (LDQ 004000,DL) 004000 236(0) 0 0 0 07
DBG(2464648734751)> CPU TRACE: 00310:011337 4 601365756100 (STQ PR6|1365) 601365 756(0) 1 0 0 00
DBG(2464648734753)> CPU TRACE: 00310:011340 4 601477755100 (STA PR6|1477) 601477 755(0) 1 0 0 00
DBG(2464648734755)> CPU TRACE: 00310:011341 4 601036353500 (EPP3 PR6|1036) 601036 353(1) 1 0 0 00
DBG(2464648734757)> CPU TRACE: 00310:011342 4 600174253500 (SPRI3 PR6|174) 600174 253(1) 1 0 0 00
DBG(2464648734759)> CPU TRACE: 00310:011343 4 000310236007 (LDQ 000310,DL) 000310 236(0) 0 0 0 07
DBG(2464648734761)> CPU TRACE: 00310:011344 4 601374756100 (STQ PR6|1374) 601374 756(0) 1 0 0 00
DBG(2464648734763)> CPU TRACE: 00310:011345 4 601371450100 (STZ PR6|1371) 601371 450(0) 1 0 0 00
DBG(2464648734765)> CPU TRACE: 00310:011346 4 006000236007 (LDQ 006000,DL) 006000 236(0) 0 0 0 07
DBG(2464648734767)> CPU TRACE: 00310:011347 4 601366756100 (STQ PR6|1366) 601366 756(0) 1 0 0 00
DBG(2464648734769)> CPU TRACE: 00310:011350 4 601500755100 (STA PR6|1500) 601500 755(0) 1 0 0 00
DBG(2464648734771)> CPU TRACE: 00310:011351 4 601346236100 (LDQ PR6|1346) 601346 236(0) 1 0 0 00
DBG(2464648734773)> CPU TRACE: 00310:011352 4 022432352004 (EPP2 022432,IC) 022432 352(0) 0 0 0 04
DBG(2464648734775)> CPU TRACE: 00310:011353 4 000704700100 (TSX0 PR0|704) 000704 700(0) 1 0 0 00
DBG(2464648734799)> CPU TRACE: 00310:011354 4 000002600004 (TZE 000002,IC) 000002 600(0) 0 0 0 04
DBG(2464648734801)> CPU TRACE: 00310:011356 4 601375450100 (STZ PR6|1375) 601375 450(0) 1 0 0 00
DBG(2464648734803)> CPU TRACE: 00310:011357 4 601346236100 (LDQ PR6|1346) 601346 236(0) 1 0 0 00
DBG(2464648734805)> CPU TRACE: 00310:011360 4 000016076007 (ADQ 000016,DL) 000016 076(0) 0 0 0 07
DBG(2464648734807)> CPU TRACE: 00310:011361 4 615110352120 (EPP2 PR6|15110,N*) 615110 352(0) 1 0 1 00
DBG(2464648734809)> CPU TRACE: 00310:011362 4 200000352166 (EPP2 PR2|0,*QL) 200000 352(0) 1 0 3 06
DBG(2464648734811)> CPU TRACE: 00310:011363 4 000000052003 (ADWP2 000000,DU) 000000 052(0) 0 0 0 03
DBG(2464648734813)> CPU TRACE: 00310:011364 4 600152252100 (SPRI2 PR6|152) 600152 252(0) 1 0 0 00
DBG(2464648734815)> CPU TRACE: 00310:011365 4 607741373500 (EPP7 PR6|7741) 607741 373(1) 1 0 0 00
DBG(2464648734817)> CPU TRACE: 00310:011366 4 600204653500 (SPRI7 PR6|204) 600204 653(1) 1 0 0 00
DBG(2464648734819)> CPU TRACE: 00310:011367 4 700000450100 (STZ PR7|0) 700000 450(0) 1 0 0 00
DBG(2464648734821)> CPU TRACE: 00310:011370 4 607201371500 (EPP5 PR6|7201) 607201 371(1) 1 0 0 00
DBG(2464648734823)> CPU TRACE: 00310:011371 4 600162651500 (SPRI5 PR6|162) 600162 651(1) 1 0 0 00
DBG(2464648734825)> CPU TRACE: 00310:011372 4 601473450100 (STZ PR6|1473) 601473 450(0) 1 0 0 00
DBG(2464648734827)> CPU TRACE: 00310:011373 4 000024236007 (LDQ 000024,DL) 000024 236(0) 0 0 0 07
DBG(2464648734829)> CPU TRACE: 00310:011374 4 615114756100 (STQ PR6|15114) 615114 756(0) 1 0 0 00
DBG(2464648734831)> CPU TRACE: 00310:011375 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648734833)> CPU TRACE: 00310:011376 4 600335756100 (STQ PR6|335) 600335 756(0) 1 0 0 00
DBG(2464648734835)> CPU TRACE: 00310:011377 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648734837)> CPU TRACE: 00310:011400 4 600335236100 (LDQ PR6|335) 600335 236(0) 1 0 0 00
DBG(2464648734839)> CPU TRACE: 00310:011401 4 615114116100 (CMPQ PR6|15114) 615114 116(0) 1 0 0 00
DBG(2464648734841)> CPU TRACE: 00310:011402 4 000006605404 (TPNZ 000006,IC) 000006 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 966
                    normal_temps (0).address (i), normal_temps (1).address (i), normal_temps (2).address (i) = (36)"0"b;^L001667  aa  6 07201 4501 06   stz       pr6|3713,ql         normal_temps.address
001670  aa  6 07226 4501 06   stz       pr6|3734,ql         normal_temps.address
001671  aa  6 07253 4501 06   stz       pr6|3755,ql         normal_temps.address
                                                            STATEMENT 1 ON LINE 967
               end;

001672  aa  6 00335 0541 00   aos       pr6|221             i
001673  aa   777771 7100 04   tra       -7,ic               001664

DBG(2464648742887)> CPU TRACE: 00310:011412 4 600335236100 (LDQ PR6|335) 600335 236(0) 1 0 0 00
DBG(2464648742889)> CPU TRACE: 00310:011413 4 000436116007 (CMPQ 000436,DL) 000436 116(0) 0 0 0 07
DBG(2464648742891)> CPU TRACE: 00310:011414 4 000004605404 (TPNZ 000004,IC) 000004 605(1) 0 0 0 04
DBG(2464648742893)> CPU TRACE: 00310:011415 4 606214450106 (STZ PR6|6214,QL) 606214 450(0) 1 0 0 06
DBG(2464648742895)> CPU TRACE: 00310:011416 4 600335054100 (AOS PR6|335) 600335 054(0) 1 0 0 00
DBG(2464648742895)> CPU TRACE: Add36b op1 000000000436 op2 000000000001 carryin 0 flagsToSet 740000 flags 500200 ovf 0
DBG(2464648742895)> CPU TRACE: Add36b res 000000000437 flags 000200 ovf 0
DBG(2464648742897)> CPU TRACE: 00310:011417 4 777773710004 (TRA 777773,IC) 777773 710(0) 0 0 0 04
DBG(2464648742897)> CPU TRACE: TRA 00310:011412
DBG(2464648742899)> CPU TRACE: 00310:011412 4 600335236100 (LDQ PR6|335) 600335 236(0) 1 0 0 00
DBG(2464648742901)> CPU TRACE: 00310:011413 4 000436116007 (CMPQ 000436,DL) 000436 116(0) 0 0 0 07
DBG(2464648742903)> CPU TRACE: 00310:011414 4 000004605404 (TPNZ 000004,IC) 000004 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 969
               do i = lbound (scalars, 1) to hbound (scalars, 1);

001674  aa   000436 3360 07   lcq       286,dl
001675  aa  6 00335 7561 00   stq       pr6|221             i
001676  aa  6 00335 2361 00   ldq       pr6|221             i
001677  aa   000436 1160 07   cmpq      286,dl
001700  aa   000004 6054 04   tpnz      4,ic                001704
                                                            STATEMENT 1 ON LINE 970
                    scalars (i) = (36)"0"b;

001701  aa  6 06214 4501 06   stz       pr6|3212,ql         symbol_table.scalars
                                                            STATEMENT 1 ON LINE 971
               end;

001702  aa  6 00335 0541 00   aos       pr6|221             i
001703  aa   777773 7100 04   tra       -5,ic               001676

DBG(2464648742899)> CPU TRACE: 00310:011412 4 600335236100 (LDQ PR6|335) 600335 236(0) 1 0 0 00
DBG(2464648742901)> CPU TRACE: 00310:011413 4 000436116007 (CMPQ 000436,DL) 000436 116(0) 0 0 0 07
DBG(2464648742903)> CPU TRACE: 00310:011414 4 000004605404 (TPNZ 000004,IC) 000004 605(1) 0 0 0 04

                                                           STATEMENT 1 ON LINE 985
               auto_ctr (0) = first_auto_loc;

001742  aa   000200 2360 07   ldq       128,dl
001743  aa  6 00352 7561 00   stq       pr6|234             auto_ctr
                                                            STATEMENT 1 ON LINE 986
               auto_ctr (1) = 0;

001744  aa  6 00353 4501 00   stz       pr6|235             auto_ctr
                                                            STATEMENT 1 ON LINE 988
               odd_available (0) = 0;

001745  aa  6 00230 4501 00   stz       pr6|152             odd_available
                                                            STATEMENT 1 ON LINE 989
               odd_available (1) = 0;

001746  aa  6 00231 4501 00   stz       pr6|153             odd_available
                                                            STATEMENT 1 ON LINE 991
init:
               operand_level = 0;

001747  aa  6 00222 4501 00   stz       pr6|146             operand_level
                                                            STATEMENT 1 ON LINE 993
               operator_level = 0;

001750  aa  6 00223 4501 00   stz       pr6|147             operator_level
                                                            STATEMENT 1 ON LINE 997
               if which = 4
               then do;

001751  aa  6 00336 2361 00   ldq       pr6|222             which
001752  aa   000004 1160 07   cmpq      4,dl
001753  aa   000003 6010 04   tnz       3,ic                001756

DBG(2464648746151)> CPU TRACE: 00310:011456 4 000200236007 (LDQ 000200,DL) 000200 236(0) 0 0 0 07
DBG(2464648746153)> CPU TRACE: 00310:011457 4 600352756100 (STQ PR6|352) 600352 756(0) 1 0 0 00
DBG(2464648746155)> CPU TRACE: 00310:011460 4 600353450100 (STZ PR6|353) 600353 450(0) 1 0 0 00
DBG(2464648746157)> CPU TRACE: 00310:011461 4 600230450100 (STZ PR6|230) 600230 450(0) 1 0 0 00
DBG(2464648746159)> CPU TRACE: 00310:011462 4 600231450100 (STZ PR6|231) 600231 450(0) 1 0 0 00
DBG(2464648746161)> CPU TRACE: 00310:011463 4 600222450100 (STZ PR6|222) 600222 450(0) 1 0 0 00
DBG(2464648746163)> CPU TRACE: 00310:011464 4 600223450100 (STZ PR6|223) 600223 450(0) 1 0 0 00
DBG(2464648746165)> CPU TRACE: 00310:011465 4 600336236100 (LDQ PR6|336) 600336 236(0) 1 0 0 00
DBG(2464648746167)> CPU TRACE: 00310:011466 4 000004116007 (CMPQ 000004,DL) 000004 116(0) 0 0 0 07
DBG(2464648746169)> CPU TRACE: 00310:011467 4 000003601004 (TNZ 000003,IC) 000003 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1004
               do while (^last_statement);

001756  aa  6 01473 2351 00   lda       pr6|827             last_statement
001757  aa   000013 6010 04   tnz       11,ic               001772

DBG(2464648746171)> CPU TRACE: 00310:011472 4 601473235100 (LDA PR6|1473) 601473 235(0) 1 0 0 00
DBG(2464648746173)> CPU TRACE: 00310:011473 4 000013601004 (TNZ 000013,IC) 000013 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1005
                    call lexical_analyzer;

001760  aa   000710 6700 04   tsp4      456,ic              002670

BEGIN PROCEDURE lexical_analyzer
ENTRY TO lexical_analyzer                                   STATEMENT 1 ON LINE 1294
lexical_analyzer:
     proc;

002670  aa  6 15116 6501 00   spri4     pr6|6734
                                                            STATEMENT 1 ON LINE 1311
loop:
          if input_pos >= input_length
          then do;

002671  aa  6 10257 2361 00   ldq       pr6|4271            next_line_storage.input_pos
002672  aa  6 10256 1161 00   cmpq      pr6|4270            next_line_storage.input_length
002673  aa   000014 6040 04   tmi       12,ic               002707

DBG(2464648746177)> CPU TRACE: 00310:012404 4 615116650100 (SPRI4 PR6|15116) 615116 650(0) 1 0 0 00
DBG(2464648746179)> CPU TRACE: 00310:012405 4 610257236100 (LDQ PR6|10257) 610257 236(0) 1 0 0 00
DBG(2464648746181)> CPU TRACE: 00310:012406 4 610256116100 (CMPQ PR6|10256) 610256 116(0) 1 0 0 00
DBG(2464648746183)> CPU TRACE: 00310:012407 4 000014604004 (TMI 000014,IC) 000014 604(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1324
          call basic_next_line (addr (next_line_storage));

002707  aa  6 10254 3735 00   epp7      pr6|4268            next_line_storage
002710  aa  6 16722 6535 00   spri7     pr6|7634
002711  aa  6 16722 3521 00   epp2      pr6|7634
002712  aa  6 16726 2521 00   spri2     pr6|7638
002713  aa  6 16724 6211 00   eax1      pr6|7636
002714  aa   004000 4310 07   fld       2048,dl
002715  aa  6 00044 3701 20   epp4      pr6|36,*
002716  la  4 00036 3521 20   epp2      pr4|30,*            basic_next_line
002717  aa  0 00623 7001 00   tsx0      pr0|403             call_ext_out

DBG(2464648746177)> CPU TRACE: 00310:012404 4 615116650100 (SPRI4 PR6|15116) 615116 650(0) 1 0 0 00
DBG(2464648746179)> CPU TRACE: 00310:012405 4 610257236100 (LDQ PR6|10257) 610257 236(0) 1 0 0 00
DBG(2464648746181)> CPU TRACE: 00310:012406 4 610256116100 (CMPQ PR6|10256) 610256 116(0) 1 0 0 00
DBG(2464648746183)> CPU TRACE: 00310:012407 4 000014604004 (TMI 000014,IC) 000014 604(0) 0 0 0 04
DBG(2464648746185)> CPU TRACE: 00310:012423 4 610254373500 (EPP7 PR6|10254) 610254 373(1) 1 0 0 00
DBG(2464648746187)> CPU TRACE: 00310:012424 4 616722653500 (SPRI7 PR6|16722) 616722 653(1) 1 0 0 00
DBG(2464648746189)> CPU TRACE: 00310:012425 4 616722352100 (EPP2 PR6|16722) 616722 352(0) 1 0 0 00
DBG(2464648746191)> CPU TRACE: 00310:012426 4 616726252100 (SPRI2 PR6|16726) 616726 252(0) 1 0 0 00
DBG(2464648746193)> CPU TRACE: 00310:012427 4 616724621100 (EAX1 PR6|16724) 616724 621(0) 1 0 0 00
DBG(2464648746195)> CPU TRACE: 00310:012430 4 004000431007 (FLD 004000,DL) 004000 431(0) 0 0 0 07
DBG(2464648746197)> CPU TRACE: 00310:012431 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648746199)> CPU TRACE: 00310:012432 4 034006352000 (EPP2 034006) 034006 352(0) 0 0 0 00
DBG(2464648746201)> CPU TRACE: 00310:012433 4 000623700100 (TSX0 PR0|623) 000623 700(0) 1 0 0 00

(skipping call)

                                                            STATEMENT 1 ON LINE 1326
          if error_number = -3
          then if (ch (1) = "r") & (ch (2) = "e") & (ch (3) = "m")
               then error_number = 6;

002720  aa  6 10261 2361 00   ldq       pr6|4273            next_line_storage.error_number
002721  aa   021367 1160 04   cmpq      8951,ic             024310 = 777777777775
002722  aa   000014 6010 04   tnz       12,ic               002736

DBG(2464648754927)> CPU TRACE: 00310:012434 4 610261236100 (LDQ PR6|10261) 610261 236(0) 1 0 0 00
DBG(2464648754929)> CPU TRACE: 00310:012435 4 021345116004 (CMPQ 021345,IC) 021345 116(0) 0 0 0 04
DBG(2464648754931)> CPU TRACE: 00310:012436 4 000014601004 (TNZ 000014,IC) 000014 601(0) 0 0 0 04
DBG(2464648754933)> CPU TRACE: 00310:012452 4 610261236100 (LDQ PR6|10261) 610261 236(0) 1 0 0 00
DBG(2464648754935)> CPU TRACE: 00310:012453 4 000024605004 (TPL 000024,IC) 000024 605(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1330
          if error_number < 0
          then do;

002736  aa  6 10261 2361 00   ldq       pr6|4273            next_line_storage.error_number
002737  aa   000024 6050 04   tpl       20,ic               002763

DBG(2464648754933)> CPU TRACE: 00310:012452 4 610261236100 (LDQ PR6|10261) 610261 236(0) 1 0 0 00
DBG(2464648754935)> CPU TRACE: 00310:012453 4 000024605004 (TPL 000024,IC) 000024 605(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1340
          if next_line_storage.statement_number = 0
          then do;

002763  aa  6 10270 2361 00   ldq       pr6|4280            next_line_storage.statement_number
002764  aa   000133 6010 04   tnz       91,ic               003117

DBG(2464648754937)> CPU TRACE: 00310:012477 4 610270236100 (LDQ PR6|10270) 610270 236(0) 1 0 0 00
DBG(2464648754939)> CPU TRACE: 00310:012500 4 000133601004 (TNZ 000133,IC) 000133 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1346
                    if line_number > max_line_number
                    then goto line_number_too_large;

002765  aa  6 10260 2361 00   ldq       pr6|4272            next_line_storage.line_number
002766  aa   303237 1160 07   cmpq      99999,dl
002767  aa   777155 6054 04   tpnz      -403,ic             002144

DBG(2464648754941)> CPU TRACE: 00310:012501 4 610260236100 (LDQ PR6|10260) 610260 236(0) 1 0 0 00
DBG(2464648754943)> CPU TRACE: 00310:012502 4 303237116007 (CMPQ 303237,DL) 303237 116(0) 0 0 0 07
DBG(2464648754945)> CPU TRACE: 00310:012503 4 777155605404 (TPNZ 777155,IC) 777155 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1349
                    if line_number <= current_line_number
                    then goto program_out_of_order;

002770  aa  6 00225 1161 00   cmpq      pr6|149             current_line_number
002771  aa   777221 6044 04   tmoz      -367,ic             002212

DBG(2464648754947)> CPU TRACE: 00310:012504 4 600225116100 (CMPQ PR6|225) 600225 116(0) 1 0 0 00
DBG(2464648754949)> CPU TRACE: 00310:012505 4 777221604404 (TMOZ 777221,IC) 777221 604(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1354
                    number_of_lines = number_of_lines + 1;

002772  aa  6 01371 0541 00   aos       pr6|761             number_of_lines
                                                            STATEMENT 1 ON LINE 1356
                    if number_of_lines = max_number_of_lines
                    then call table_overflow (line_table);

002773  aa  6 01371 2361 00   ldq       pr6|761             number_of_lines
002774  aa  6 01374 1161 00   cmpq      pr6|764             max_number_of_lines
002775  aa   000010 6010 04   tnz       8,ic                003005

DBG(2464648754951)> CPU TRACE: 00310:012506 4 601371054100 (AOS PR6|1371) 601371 054(0) 1 0 0 00
DBG(2464648754953)> CPU TRACE: 00310:012507 4 601371236100 (LDQ PR6|1371) 601371 236(0) 1 0 0 00
DBG(2464648754955)> CPU TRACE: 00310:012510 4 601374116100 (CMPQ PR6|1374) 601374 116(0) 1 0 0 00
DBG(2464648754957)> CPU TRACE: 00310:012511 4 000010601004 (TNZ 000010,IC) 000010 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1359
                    current_line_number, line (number_of_lines).number = line_number;

003005  aa  6 10260 2361 00   ldq       pr6|4272            next_line_storage.line_number
003006  aa  6 00225 7561 00   stq       pr6|149             current_line_number
003007  aa  6 01371 7271 00   lxl7      pr6|761             number_of_lines
003010  aa  6 00174 3735 20   epp7      pr6|124,*           table_pt
003011  aa  7 77777 3715 17   epp5      pr7|-1,7            line.number
003012  aa  5 00000 5521 14   stbq      pr5|0,14            line.number
                                                            STATEMENT 1 ON LINE 1361
                    line (number_of_lines).location = bit (fixed (output_pos, 17), 17);

003013  aa  6 01346 2351 00   lda       pr6|742             output_pos
003014  aa   000002 6050 04   tpl       2,ic                003016
003015  aa   000000 5310 00   neg       0
003016  aa   000023 7350 00   als       19
003017  aa   000001 7710 00   arl       1
003020  aa  7 77777 6751 17   era       pr7|-1,7            line.location
003021  aa   377777 3750 03   ana       131071,du
003022  aa  7 77777 6551 17   ersa      pr7|-1,7            line.location

DBG(2464648754959)> CPU TRACE: 00310:012521 4 610260236100 (LDQ PR6|10260) 610260 236(0) 1 0 0 00
DBG(2464648754961)> CPU TRACE: 00310:012522 4 600225756100 (STQ PR6|225) 600225 756(0) 1 0 0 00
DBG(2464648754963)> CPU TRACE: 00310:012523 4 601371727100 (LXL7 PR6|1371) 601371 727(0) 1 0 0 00
DBG(2464648754965)> CPU TRACE: 00310:012524 4 600174373520 (EPP7 PR6|174,N*) 600174 373(1) 1 0 1 00
DBG(2464648754967)> CPU TRACE: 00310:012525 4 777777371517 (EPP5 PR7|77777,7) 777777 371(1) 1 0 0 17
DBG(2464648754969)> CPU TRACE: 00310:012526 4 500000552114 (STBQ PR5|0,4) 500000 552(0) 1 0 0 14
DBG(2464648754971)> CPU TRACE: 00310:012527 4 601346235100 (LDA PR6|1346) 601346 235(0) 1 0 0 00
DBG(2464648754973)> CPU TRACE: 00310:012530 4 000002605004 (TPL 000002,IC) 000002 605(0) 0 0 0 04
DBG(2464648754975)> CPU TRACE: 00310:012532 4 000023735000 (ALS 000023) 000023 735(0) 0 0 0 00
DBG(2464648754977)> CPU TRACE: 00310:012533 4 000001771000 (ARL 000001) 000001 771(0) 0 0 0 00
DBG(2464648754979)> CPU TRACE: 00310:012534 4 777777675117 (ERA PR7|77777,7) 777777 675(0) 1 0 0 17
DBG(2464648754981)> CPU TRACE: 00310:012535 4 377777375003 (ANA 377777,DU) 377777 375(0) 0 0 0 03
DBG(2464648754983)> CPU TRACE: 00310:012536 4 777777655117 (ERSA PR7|77777,7) 777777 655(0) 1 0 0 17

                                                            STATEMENT 1 ON LINE 1363
                    in_function (number_of_lines) = fn_name ^= 0;

003023  aa  6 00221 2361 00   ldq       pr6|145             fn_name
003024  aa  0 00515 7001 00   tsx0      pr0|333             r_ne_as
003025  aa  7 77777 6751 17   era       pr7|-1,7            line.in_function
003026  aa  0 00002 3751 00   ana       pr0|2               = 400000000000
003027  aa  7 77777 6551 17   ersa      pr7|-1,7            line.in_function

DBG(2464648754985)> CPU TRACE: 00310:012537 4 600221236100 (LDQ PR6|221) 600221 236(0) 1 0 0 00
DBG(2464648754987)> CPU TRACE: 00310:012540 4 000515700100 (TSX0 PR0|515) 000515 700(0) 1 0 0 00
DBG(2464648754995)> CPU TRACE: 00310:012541 4 777777675117 (ERA PR7|77777,7) 777777 675(0) 1 0 0 17
DBG(2464648754997)> CPU TRACE: 00310:012542 4 000002375100 (ANA PR0|2) 000002 375(0) 1 0 0 00
DBG(2464648754999)> CPU TRACE: 00310:012543 4 777777655117 (ERSA PR7|77777,7) 777777 655(0) 1 0 0 17

                                                            STATEMENT 1 ON LINE 1367
                    do i = 1 to missing.count;

003030  aa  6 00204 2361 20   ldq       pr6|132,*           missing.count
003031  aa  6 15142 7561 00   stq       pr6|6754
003032  aa   000001 2360 07   ldq       1,dl
003033  aa  6 15124 7561 00   stq       pr6|6740            i
003034  aa  6 15124 2361 00   ldq       pr6|6740            i
003035  aa  6 15142 1161 00   cmpq      pr6|6754
003036  aa   000061 6054 04   tpnz      49,ic               003117

DBG(2464648755001)> CPU TRACE: 00310:012544 4 600204236120 (LDQ PR6|204,N*) 600204 236(0) 1 0 1 00
DBG(2464648755003)> CPU TRACE: 00310:012545 4 615142756100 (STQ PR6|15142) 615142 756(0) 1 0 0 00
DBG(2464648755005)> CPU TRACE: 00310:012546 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648755007)> CPU TRACE: 00310:012547 4 615124756100 (STQ PR6|15124) 615124 756(0) 1 0 0 00
DBG(2464648755009)> CPU TRACE: 00310:012550 4 615124236100 (LDQ PR6|15124) 615124 236(0) 1 0 0 00
DBG(2464648755011)> CPU TRACE: 00310:012551 4 615142116100 (CMPQ PR6|15142) 615142 116(0) 1 0 0 00
DBG(2464648755013)> CPU TRACE: 00310:012552 4 000061605404 (TPNZ 000061,IC) 000061 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1392
          if ch_class (1) = new_line | ch_class (1) = backslash
          then goto loop;

003117  aa  6 10304 2361 00   ldq       pr6|4292            next_line_storage.ch_class
003120  aa   000016 1160 07   cmpq      14,dl
003121  aa   777550 6000 04   tze       -152,ic             002671
003122  aa   000022 1160 07   cmpq      18,dl
003123  aa   777546 6000 04   tze       -154,ic             002671

DBG(2464648755015)> CPU TRACE: 00310:012633 4 610304236100 (LDQ PR6|10304) 610304 236(0) 1 0 0 00
DBG(2464648755017)> CPU TRACE: 00310:012634 4 000016116007 (CMPQ 000016,DL) 000016 116(0) 0 0 0 07
DBG(2464648755019)> CPU TRACE: 00310:012635 4 777550600004 (TZE 777550,IC) 777550 600(0) 0 0 0 04
DBG(2464648755021)> CPU TRACE: 00310:012636 4 000022116007 (CMPQ 000022,DL) 000022 116(0) 0 0 0 07
DBG(2464648755023)> CPU TRACE: 00310:012637 4 777546600004 (TZE 777546,IC) 777546 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1395
          if ch_class (1) ^= letter
          then goto invalid_statement;

003124  aa   000007 1160 07   cmpq      7,dl
003125  aa   777042 6010 04   tnz       -478,ic             002167

DBG(2464648755025)> CPU TRACE: 00310:012640 4 000007116007 (CMPQ 000007,DL) 000007 116(0) 0 0 0 07
DBG(2464648755027)> CPU TRACE: 00310:012641 4 777042601004 (TNZ 777042,IC) 777042 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1398
          stm = ch (1);

003126  aa  6 10704 2351 00   lda       pr6|4548            next_line_storage.ch
003127  aa  0 00442 2771 00   oraq      pr0|290             = 000040040040 040040040040
003130  aa  6 15137 7551 00   sta       pr6|6751            stm
                                                            STATEMENT 1 ON LINE 1400
          j = fixed (unspec (ch (1)), 9) - letter_a + 1;

003131  aa  6 10704 2351 00   lda       pr6|4548
003132  aa   000077 7730 00   lrl       63
003133  aa   000140 1760 07   sbq       96,dl
003134  aa  6 15125 7561 00   stq       pr6|6741            j
                                                            STATEMENT 1 ON LINE 1402
          if ch_class (2) ^= letter
          then do;

003135  aa  6 10305 2361 00   ldq       pr6|4293            next_line_storage.ch_class
003136  aa   000007 1160 07   cmpq      7,dl
003137  aa   000005 6000 04   tze       5,ic                003144

DBG(2464648755029)> CPU TRACE: 00310:012642 4 610704235100 (LDA PR6|10704) 610704 235(0) 1 0 0 00
DBG(2464648755031)> CPU TRACE: 00310:012643 4 000442277100 (ORAQ PR0|442) 000442 277(0) 1 0 0 00
DBG(2464648755033)> CPU TRACE: 00310:012644 4 615137755100 (STA PR6|15137) 615137 755(0) 1 0 0 00
DBG(2464648755035)> CPU TRACE: 00310:012645 4 610704235100 (LDA PR6|10704) 610704 235(0) 1 0 0 00
DBG(2464648755037)> CPU TRACE: 00310:012646 4 000077773000 (LRL 000077) 000077 773(0) 0 0 0 00
DBG(2464648755039)> CPU TRACE: 00310:012647 4 000140176007 (SBQ 000140,DL) 000140 176(0) 0 0 0 07
DBG(2464648755041)> CPU TRACE: 00310:012650 4 615125756100 (STQ PR6|15125) 615125 756(0) 1 0 0 00
DBG(2464648755043)> CPU TRACE: 00310:012651 4 610305236100 (LDQ PR6|10305) 610305 236(0) 1 0 0 00
DBG(2464648755045)> CPU TRACE: 00310:012652 4 000007116007 (CMPQ 000007,DL) 000007 116(0) 0 0 0 07
DBG(2464648755047)> CPU TRACE: 00310:012653 4 000005600004 (TZE 000005,IC) 000005 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1409
          substr (stm, 2, 1) = ch (2);

003144  aa  6 10705 2351 00   lda       pr6|4549            next_line_storage.ch
003145  aa   000011 7710 00   arl       9
003146  aa  6 15137 5511 20   stba      pr6|6751,20         stm

                                                            STATEMENT 1 ON LINE 1411
          if (stm = "fn  ") & (ch (4) ^= "n")
          then do;

003147  aa  6 15137 2351 00   lda       pr6|6751            stm
003150  aa   775234 1150 04   cmpa      -1380,ic            000404 = 146156040040
003151  aa   000010 6010 04   tnz       8,ic                003161
003152  aa  6 10707 2351 00   lda       pr6|4551            next_line_storage.ch
003153  aa   156000 1150 03   cmpa      56320,du
003154  aa   000005 6000 04   tze       5,ic                003161

DBG(2464648755049)> CPU TRACE: 00310:012660 4 610705235100 (LDA PR6|10705) 610705 235(0) 1 0 0 00
DBG(2464648755051)> CPU TRACE: 00310:012661 4 000011771000 (ARL 000011) 000011 771(0) 0 0 0 00
DBG(2464648755053)> CPU TRACE: 00310:012662 4 615137551120 (STBA PR6|15137,N*) 615137 551(0) 1 0 1 00
DBG(2464648755055)> CPU TRACE: 00310:012663 4 615137235100 (LDA PR6|15137) 615137 235(0) 1 0 0 00
DBG(2464648755057)> CPU TRACE: 00310:012664 4 775234115004 (CMPA 775234,IC) 775234 115(0) 0 0 0 04
DBG(2464648755059)> CPU TRACE: 00310:012665 4 000010601004 (TNZ 000010,IC) 000010 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1419
          ip = 2;

003161  aa   000002 2360 07   ldq       2,dl
003162  aa  6 15127 7561 00   stq       pr6|6743            ip
                                                            STATEMENT 1 ON LINE 1421
          if stm = "if  "
          then statement_type = if_statement;

003163  aa  6 15137 2351 00   lda       pr6|6751            stm
003164  aa   775217 1150 04   cmpa      -1393,ic            000403 = 151146040040
003165  aa   000004 6010 04   tnz       4,ic                003171
003166  aa   000015 2360 07   ldq       13,dl
003167  aa  6 00210 7561 00   stq       pr6|136             statement_type
003170  aa   000042 7100 04   tra       34,ic               003232

DBG(2464648755061)> CPU TRACE: 00310:012675 4 000002236007 (LDQ 000002,DL) 000002 236(0) 0 0 0 07
DBG(2464648755063)> CPU TRACE: 00310:012676 4 615127756100 (STQ PR6|15127) 615127 756(0) 1 0 0 00
DBG(2464648755065)> CPU TRACE: 00310:012677 4 615137235100 (LDA PR6|15137) 615137 235(0) 1 0 0 00
DBG(2464648755067)> CPU TRACE: 00310:012700 4 775217115004 (CMPA 775217,IC) 775217 115(0) 0 0 0 04
DBG(2464648755069)> CPU TRACE: 00310:012701 4 000004601004 (TNZ 000004,IC) 000004 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1423
          else if stm = "on  "
          then statement_type = on_statement;

003171  aa   775211 1150 04   cmpa      -1399,ic            000402 = 157156040040
003172  aa   000004 6010 04   tnz       4,ic                003176

DBG(2464648755071)> CPU TRACE: 00310:012705 4 775211115004 (CMPA 775211,IC) 775211 115(0) 0 0 0 04
DBG(2464648755073)> CPU TRACE: 00310:012706 4 000004601004 (TNZ 000004,IC) 000004 

                                                            STATEMENT 1 ON LINE 1425
          else do;  
                                                            STATEMENT 1 ON LINE 1426
                    ip = ip + 1;

003176  aa  6 15127 0541 00   aos       pr6|6743            ip
                                                            STATEMENT 1 ON LINE 1428
                    if ch_class (3) ^= letter
                    then goto invalid_statement;

003177  aa  6 10306 2361 00   ldq       pr6|4294            next_line_storage.ch_class
003200  aa   000007 1160 07   cmpq      7,dl
003201  aa   776766 6010 04   tnz       -522,ic             002167

DBG(2464648755075)> CPU TRACE: 00310:012712 4 615127054100 (AOS PR6|15127) 615127 054(0) 1 0 0 00
DBG(2464648755077)> CPU TRACE: 00310:012713 4 610306236100 (LDQ PR6|10306) 610306 236(0) 1 0 0 00
DBG(2464648755079)> CPU TRACE: 00310:012714 4 000007116007 (CMPQ 000007,DL) 000007 116(0) 0 0 0 07
DBG(2464648755081)> CPU TRACE: 00310:012715 4 776766601004 (TNZ 776766,IC) 776766 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1431
                    substr (stm, 3, 1) = ch (3);

003202  aa  6 10706 2351 00   lda       pr6|4550            next_line_storage.ch
003203  aa   000022 7710 00   arl       18
003204  aa  6 15137 5511 10   stba      pr6|6751,10         stm
                                                            STATEMENT 1 ON LINE 1433
                    do statement_type = basic_data$statement_spelling.start (j)
                         to basic_data$statement_spelling.finish (j);

003205  aa  6 15125 2361 00   ldq       pr6|6741            j
003206  aa   000001 7360 00   qls       1
003207  aa  6 00044 3701 20   epp4      pr6|36,*
003210  la  4 00106 3735 20   epp7      pr4|70,*
003211  aa   000000 6270 06   eax7      0,ql
003212  aa  7 77777 2361 06   ldq       pr7|-1,ql           basic_data$statement_spelling.finish
003213  aa  6 15144 7561 00   stq       pr6|6756
003214  aa  7 77776 2361 17   ldq       pr7|-2,7            basic_data$statement_spelling.start
003215  aa  6 00210 7561 00   stq       pr6|136             statement_type
003216  aa  6 00210 2361 00   ldq       pr6|136             statement_type
003217  aa  6 15144 1161 00   cmpq      pr6|6756
003220  aa   000011 6054 04   tpnz      9,ic                003231

DBG(2464648755083)> CPU TRACE: 00310:012716 4 610706235100 (LDA PR6|10706) 610706 235(0) 1 0 0 00
DBG(2464648755085)> CPU TRACE: 00310:012717 4 000022771000 (ARL 000022) 000022 771(0) 0 0 0 00
DBG(2464648755087)> CPU TRACE: 00310:012720 4 615137551110 (STBA PR6|15137,0) 615137 551(0) 1 0 0 10
DBG(2464648755089)> CPU TRACE: 00310:012721 4 615125236100 (LDQ PR6|15125) 615125 236(0) 1 0 0 00
DBG(2464648755091)> CPU TRACE: 00310:012722 4 000001736000 (QLS 000001) 000001 736(0) 0 0 0 00
DBG(2464648755093)> CPU TRACE: 00310:012723 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648755095)> CPU TRACE: 00310:012724 4 034526373400 (EPP7 034526) 034526 373(1) 0 0 0 00
DBG(2464648755097)> CPU TRACE: 00310:012725 4 000000627006 (EAX7 000000,QL) 000000 627(0) 0 0 0 06
DBG(2464648755099)> CPU TRACE: 00310:012726 4 777777236106 (LDQ PR7|77777,QL) 777777 236(0) 1 0 0 06
DBG(2464648755101)> CPU TRACE: 00310:012727 4 615144756100 (STQ PR6|15144) 615144 756(0) 1 0 0 00
DBG(2464648755103)> CPU TRACE: 00310:012730 4 777776236117 (LDQ PR7|77776,7) 777776 236(0) 1 0 0 17
DBG(2464648755105)> CPU TRACE: 00310:012731 4 600210756100 (STQ PR6|210) 600210 756(0) 1 0 0 00
DBG(2464648755107)> CPU TRACE: 00310:012732 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755109)> CPU TRACE: 00310:012733 4 615144116100 (CMPQ PR6|15144) 615144 116(0) 1 0 0 00
DBG(2464648755111)> CPU TRACE: 00310:012734 4 000011605404 (TPNZ 000011,IC) 000011 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1435
                         if stm = basic_data$statement_list.first (statement_type)
                         then goto have_statement_type;

003221  aa   000002 7360 00   qls       2
003222  aa  6 15137 2351 00   lda       pr6|6751            stm
003223  aa  6 00044 3701 20   epp4      pr6|36,*
003224  la  4 00104 3735 20   epp7      pr4|68,*
003225  aa  7 77774 1151 06   cmpa      pr7|-4,ql           basic_data$statement_list.first
003226  aa   000004 6000 04   tze       4,ic                003232

                                                            STATEMENT 1 ON LINE 1442
have_statement_type:
          if statement_type = sub_statement
          then if ch_class (ip + 1) ^= quote
               then statement_type = subend_statement;^L
003232  aa  6 00210 2361 00   ldq       pr6|136             statement_type
003233  aa   000037 1160 07   cmpq      31,dl
003234  aa   000007 6010 04   tnz       7,ic                003243
003235  aa  6 15127 7271 00   lxl7      pr6|6743            ip
003236  aa  6 10304 2361 17   ldq       pr6|4292,7          next_line_storage.ch_class
003237  aa   000017 1160 07   cmpq      15,dl
003240  aa   000003 6000 04   tze       3,ic                003243
003241  aa   000040 2360 07   ldq       32,dl
003242  aa  6 00210 7561 00   stq       pr6|136             statement_type

DBG(2464648755125)> CPU TRACE: 00310:012746 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755127)> CPU TRACE: 00310:012747 4 000037116007 (CMPQ 000037,DL) 000037 116(0) 0 0 0 07
DBG(2464648755129)> CPU TRACE: 00310:012750 4 000007601004 (TNZ 000007,IC) 000007 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1447
          k = basic_data$statement_list.number (statement_type);

003243  aa  6 00210 2361 00   ldq       pr6|136             statement_type
003244  aa   000002 7360 00   qls       2
003245  aa  6 00044 3701 20   epp4      pr6|36,*
003246  la  4 00104 3735 20   epp7      pr4|68,*
003247  aa  7 77777 2361 06   ldq       pr7|-1,ql           basic_data$statement_list.number
003250  aa  6 15126 7561 00   stq       pr6|6742            k

DBG(2464648755131)> CPU TRACE: 00310:012757 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755133)> CPU TRACE: 00310:012760 4 000002736000 (QLS 000002) 000002 736(0) 0 0 0 00
DBG(2464648755135)> CPU TRACE: 00310:012761 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648755137)> CPU TRACE: 00310:012762 4 034612373400 (EPP7 034612) 034612 373(1) 0 0 0 00
DBG(2464648755139)> CPU TRACE: 00310:012763 4 777777236106 (LDQ PR7|77777,QL) 777777 236(0) 1 0 0 06
DBG(2464648755141)> CPU TRACE: 00310:012764 4 615126756100 (STQ PR6|15126) 615126 756(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1449
          if k > 0
          then do;

003251  aa   000060 6044 04   tmoz      48,ic               003331

DBG(2464648755143)> CPU TRACE: 00310:012765 4 000060604404 (TMOZ 000060,IC) 000060 604(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1454
                    rest = "";

003252  aa   775206 2370 04   ldaq      -1402,ic            000460 = 040040040040 040040040040
003253  aa  6 15140 7571 00   staq      pr6|6752            rest

DBG(2464648755145)> CPU TRACE: 00310:012766 4 775206237004 (LDAQ 775206,IC) 775206 237(0) 0 0 0 04
DBG(2464648755147)> CPU TRACE: 00310:012767 4 615140757100 (STAQ PR6|15140) 615140 757(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1455
                    do i = 1 to k;

003254  aa  6 15126 2361 00   ldq       pr6|6742            k
003255  aa  6 15145 7561 00   stq       pr6|6757
003256  aa   000001 2360 07   ldq       1,dl
003257  aa  6 15124 7561 00   stq       pr6|6740            i
003260  aa  6 15124 2361 00   ldq       pr6|6740            i
003261  aa  6 15145 1161 00   cmpq      pr6|6757
003262  aa   000015 6054 04   tpnz      13,ic               003277

DBG(2464648755149)> CPU TRACE: 00310:012770 4 615126236100 (LDQ PR6|15126) 615126 236(0) 1 0 0 00
DBG(2464648755151)> CPU TRACE: 00310:012771 4 615145756100 (STQ PR6|15145) 615145 756(0) 1 0 0 00
DBG(2464648755153)> CPU TRACE: 00310:012772 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648755155)> CPU TRACE: 00310:012773 4 615124756100 (STQ PR6|15124) 615124 756(0) 1 0 0 00
DBG(2464648755157)> CPU TRACE: 00310:012774 4 615124236100 (LDQ PR6|15124) 615124 236(0) 1 0 0 00
DBG(2464648755159)> CPU TRACE: 00310:012775 4 615145116100 (CMPQ PR6|15145) 615145 116(0) 1 0 0 00
DBG(2464648755161)> CPU TRACE: 00310:012776 4 000015605404 (TPNZ 000015,IC) 000015 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1456
                         ip = ip + 1;

003263  aa  6 15127 0541 00   aos       pr6|6743            ip

DBG(2464648755163)> CPU TRACE: 00310:012777 4 615127054100 (AOS PR6|15127) 615127 054(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1458
                         if ch_class (ip) ^= letter
                         then goto invalid_statement;

003264  aa  6 15127 7271 00   lxl7      pr6|6743            ip
003265  aa  6 10303 2361 17   ldq       pr6|4291,7          next_line_storage.ch_class
003266  aa   000007 1160 07   cmpq      7,dl
003267  aa   776700 6010 04   tnz       -576,ic             002167

                                                            STATEMENT 1 ON LINE 1461
                         substr (rest, i, 1) = ch (ip);

003270  aa  6 15124 7261 00   lxl6      pr6|6740            i
003271  aa  6 10703 3735 17   epp7      pr6|4547,7          next_line_storage.ch
003272  aa  040 116 100 500   mlr       (pr),(pr,x6),fill(040)
003273  aa  7 00000 00 0001   desc9a    pr7|0,1             next_line_storage.ch
003274  aa  6 15137 60 0001   desc9a    pr6|6751(3),1       rest
                                                            STATEMENT 1 ON LINE 1462^L                    end;

003275  aa  6 15124 0541 00   aos       pr6|6740            i
003276  aa   777762 7100 04   tra       -14,ic              003260

DBG(2464648755173)> CPU TRACE: 00310:013004 4 615124726100 (LXL6 PR6|15124) 615124 726(0) 1 0 0 00
DBG(2464648755175)> CPU TRACE: 00310:013005 4 610703373517 (EPP7 PR6|10703,7) 610703 373(1) 1 0 0 17
DBG(2464648755177)> CPU TRACE: 00310:013006 4 040116100500 (MLR PR0|40116) 040116 100(1) 0 0 0 00
DBG(2464648755179)> CPU TRACE: 00310:013011 4 615124054100 (AOS PR6|15124) 615124 054(0) 1 0 0 00
DBG(2464648755181)> CPU TRACE: 00310:013012 4 777762710004 (TRA 777762,IC) 777762 710(0) 0 0 0 04

003260  aa  6 15124 2361 00   ldq       pr6|6740            i
003261  aa  6 15145 1161 00   cmpq      pr6|6757
003262  aa   000015 6054 04   tpnz      13,ic               003277

DBG(2464648755183)> CPU TRACE: 00310:012774 4 615124236100 (LDQ PR6|15124) 615124 236(0) 1 0 0 00
DBG(2464648755185)> CPU TRACE: 00310:012775 4 615145116100 (CMPQ PR6|15145) 615145 116(0) 1 0 0 00
DBG(2464648755187)> CPU TRACE: 00310:012776 4 000015605404 (TPNZ 000015,IC) 000015 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1464
                    if rest ^= basic_data$statement_list.rest (statement_type)
                    then do;

003277  aa  6 00210 2361 00   ldq       pr6|136             statement_type
003300  aa   000002 7360 00   qls       2
003301  aa   000000 6270 06   eax7      0,ql
003302  aa  6 15140 2371 00   ldaq      pr6|6752            rest
003303  aa  6 00044 3701 20   epp4      pr6|36,*
003304  la  4 00104 3735 20   epp7      pr4|68,*
003305  aa  7 77775 1151 17   cmpa      pr7|-3,7            basic_data$statement_list.rest
003306  aa   000002 6010 04   tnz       2,ic                003310
003307  aa  7 77776 1161 17   cmpq      pr7|-2,7            basic_data$statement_list.rest
003310  aa   000021 6000 04   tze       17,ic               003331

DBG(2464648755189)> CPU TRACE: 00310:013013 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755191)> CPU TRACE: 00310:013014 4 000002736000 (QLS 000002) 000002 736(0) 0 0 0 00
DBG(2464648755193)> CPU TRACE: 00310:013015 4 000000627006 (EAX7 000000,QL) 000000 627(0) 0 0 0 06
DBG(2464648755195)> CPU TRACE: 00310:013016 4 615140237100 (LDAQ PR6|15140) 615140 237(0) 1 0 0 00
DBG(2464648755197)> CPU TRACE: 00310:013017 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(2464648755199)> CPU TRACE: 00310:013020 4 034612373400 (EPP7 034612) 034612 373(1) 0 0 0 00
DBG(2464648755201)> CPU TRACE: 00310:013021 4 777775115117 (CMPA PR7|77775,7) 777775 115(0) 1 0 0 17
DBG(2464648755203)> CPU TRACE: 00310:013022 4 000002601004 (TNZ 000002,IC) 000002 601(0) 0 0 0 04

                              if statement_type ^= chain_statement
                              then goto invalid_statement;

003311  aa  6 00210 2361 00   ldq       pr6|136             statement_type
003312  aa   000002 1160 07   cmpq      2,dl
003313  aa   776654 6010 04   tnz       -596,ic             002167

DBG(2464648755209)> CPU TRACE: 00310:013045 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755211)> CPU TRACE: 00310:013046 4 000031116007 (CMPQ 000031,DL) 000031 116(0) 0 0 0 07
DBG(2464648755213)> CPU TRACE: 00310:013047 4 777336600004 (TZE 777336,IC) 777336 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1485
          if statement_type = remark_statement
          then goto loop;

003331  aa  6 00210 2361 00   ldq       pr6|136             statement_type
003332  aa   000031 1160 07   cmpq      25,dl
003333  aa   777336 6000 04   tze       -290,ic             002671

DBG(2464648755209)> CPU TRACE: 00310:013045 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755211)> CPU TRACE: 00310:013046 4 000031116007 (CMPQ 000031,DL) 000031 116(0) 0 0 0 07
DBG(2464648755213)> CPU TRACE: 00310:013047 4 777336600004 (TZE 777336,IC) 777336 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1487
          if statement_type = data_statement
          then goto next_data_value;

003334  aa   000004 1160 07   cmpq      4,dl
003335  aa   000743 6000 04   tze       483,ic              004300

DBG(2464648755215)> CPU TRACE: 00310:013050 4 000004116007 (CMPQ 000004,DL) 000004 116(0) 0 0 0 07
DBG(2464648755217)> CPU TRACE: 00310:013051 4 000741600004 (TZE 000741,IC) 000741 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1490
          number_of_assigns = 0;

003336  aa  6 00213 4501 00   stz       pr6|139             number_of_assigns
                                                            STATEMENT 1 ON LINE 1491
          current_token = 0;

003337  aa  6 00211 4501 00   stz       pr6|137             current_token
                                                            STATEMENT 1 ON LINE 1493
next_token:
          current_token = current_token + 1;

003340  aa  6 00211 0541 00   aos       pr6|137             current_token
                                                            STATEMENT 1 ON LINE 1495
          if current_token >= hbound (tokens, 1)
          then goto line_too_long;

003341  aa  6 00211 2361 00   ldq       pr6|137             current_token
003342  aa   000372 1160 07   cmpq      250,dl
003343  aa   776643 6050 04   tpl       -605,ic             002206

DBG(2464648755215)> CPU TRACE: 00310:013050 4 000004116007 (CMPQ 000004,DL) 000004 116(0) 0 0 0 07
DBG(2464648755217)> CPU TRACE: 00310:013051 4 000741600004 (TZE 000741,IC) 000741 600(0) 0 0 0 04
DBG(2464648755219)> CPU TRACE: 00310:013052 4 600213450100 (STZ PR6|213) 600213 450(0) 1 0 0 00
DBG(2464648755221)> CPU TRACE: 00310:013053 4 600211450100 (STZ PR6|211) 600211 450(0) 1 0 0 00
DBG(2464648755223)> CPU TRACE: 00310:013054 4 600211054100 (AOS PR6|211) 600211 054(0) 1 0 0 00
DBG(2464648755223)> CPU TRACE: Add36b op1 000000000000 op2 000000000001 carryin 0 flagsToSet 740000 flags 100200 ovf 0
DBG(2464648755223)> CPU TRACE: Add36b res 000000000001 flags 000200 ovf 0
DBG(2464648755225)> CPU TRACE: 00310:013055 4 600211236100 (LDQ PR6|211) 600211 236(0) 1 0 0 00
DBG(2464648755227)> CPU TRACE: 00310:013056 4 000372116007 (CMPQ 000372,DL) 000372 116(0) 0 0 0 07
DBG(2464648755229)> CPU TRACE: 00310:013057 4 776643605004 (TPL 776643,IC) 776643 605(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1498
          token_pt = addr (tokens (current_token));

003344  aa   000006 4020 07   mpy       6,dl
003345  aa  6 02614 3735 06   epp7      pr6|1420,ql         tokens
003346  aa  6 00160 6535 00   spri7     pr6|112             token_pt
                                                            STATEMENT 1 ON LINE 1499
          this_token.name = (8)" ";

003347  aa   775111 2370 04   ldaq      -1463,ic            000460 = 040040040040 040040040040
003350  aa  7 00001 7551 00   sta       pr7|1               this_token.name
003351  aa  7 00002 7561 00   stq       pr7|2               this_token.name
                                                            STATEMENT 1 ON LINE 1501
          ip = ip + 1;

003352  aa  6 15127 0541 00   aos       pr6|6743            ip
                                                            STATEMENT 1 ON LINE 1502
          goto sw (ch_class (ip));

003353  aa  6 15127 7271 00   lxl7      pr6|6743            ip
003354  aa  6 10303 7271 17   lxl7      pr6|4291,7          next_line_storage.ch_class
003355  ta   000003 7100 17   tra       3,7

DBG(2464648755231)> CPU TRACE: 00310:013060 4 000006402007 (MPY 000006,DL) 000006 402(0) 0 0 0 07
DBG(2464648755233)> CPU TRACE: 00310:013061 4 602614373506 (EPP7 PR6|2614,QL) 602614 373(1) 1 0 0 06
DBG(2464648755235)> CPU TRACE: 00310:013062 4 600160653500 (SPRI7 PR6|160) 600160 653(1) 1 0 0 00
DBG(2464648755237)> CPU TRACE: 00310:013063 4 775111237004 (LDAQ 775111,IC) 775111 237(0) 0 0 0 04
DBG(2464648755239)> CPU TRACE: 00310:013064 4 700001755100 (STA PR7|1) 700001 755(0) 1 0 0 00
DBG(2464648755241)> CPU TRACE: 00310:013065 4 700002756100 (STQ PR7|2) 700002 756(0) 1 0 0 00
DBG(2464648755243)> CPU TRACE: 00310:013066 4 615127054100 (AOS PR6|15127) 615127 054(0) 1 0 0 00
DBG(2464648755243)> CPU TRACE: Add36b op1 000000000004 op2 000000000001 carryin 0 flagsToSet 740000 flags 000200 ovf 0
DBG(2464648755243)> CPU TRACE: Add36b res 000000000005 flags 000200 ovf 0
DBG(2464648755245)> CPU TRACE: 00310:013067 4 615127727100 (LXL7 PR6|15127) 615127 727(0) 1 0 0 00
DBG(2464648755247)> CPU TRACE: 00310:013070 4 610303727117 (LXL7 PR6|10303,7) 610303 727(0) 1 0 0 17
DBG(2464648755249)> CPU TRACE: 00310:013071 4 007517710017 (TRA 007517,7) 007517 710(0) 0 0 0 17

13071-3355  7514
DBG(2464648755253)> CPU TRACE: 00310:013640 4 601471235100 (LDA PR6|1471) 601471 235(0) 1 0 0 00

13640−7514 4124

                                                            STATEMENT 1 ON LINE 1881
sw (8):
sw (9):
          if single
          then this_token.value = s_convert_number ();

004125  aa  6 01471 2351 00   lda       pr6|825             single
004126  aa   000010 6000 04   tze       8,ic                004136
004127  aa  7 00004 3521 00   epp2      pr7|4               this_token.value
004130  aa  6 16732 2521 00   spri2     pr6|7642
004131  aa  6 16730 3521 00   epp2      pr6|7640
004132  aa   004000 4310 07   fld       2048,dl
004133  aa  2 00000 7571 00   staq      pr2|0
004134  aa   000403 6700 04   tsp4      259,ic              004537
004135  aa   000007 7100 04   tra       7,ic                004144

DBG(2464648755253)> CPU TRACE: 00310:013640 4 601471235100 (LDA PR6|1471) 601471 235(0) 1 0 0 00
DBG(2464648755255)> CPU TRACE: 00310:013641 4 000010600004 (TZE 000010,IC) 000010 600(0) 0 0 0 04
DBG(2464648755257)> CPU TRACE: 00310:013642 4 700004352100 (EPP2 PR7|4) 700004 352(0) 1 0 0 00
DBG(2464648755259)> CPU TRACE: 00310:013643 4 616732252100 (SPRI2 PR6|16732) 616732 252(0) 1 0 0 00
DBG(2464648755261)> CPU TRACE: 00310:013644 4 616730352100 (EPP2 PR6|16730) 616730 352(0) 1 0 0 00
DBG(2464648755263)> CPU TRACE: 00310:013645 4 004000431007 (FLD 004000,DL) 004000 431(0) 0 0 0 07
DBG(2464648755265)> CPU TRACE: 00310:013646 4 200000757100 (STAQ PR2|0) 200000 757(0) 1 0 0 00
DBG(2464648755267)> CPU TRACE: 00310:013647 4 000401670004 (TSP4 000401,IC) 000401 670(0) 0 0 0 04

<skip s_cnnvert_number>

DBG(2464648755425)> CPU TRACE: 00310:013650 4 000007710004 (TRA 000007,IC) 000007 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1887
          if integer
          then this_token.type = integer_token;

004144  aa  6 15134 2351 00   lda       pr6|6748            integer
004145  aa   000004 6000 04   tze       4,ic                004151
004146  aa   440040 2350 03   lda       147488,du
004147  aa  6 00160 7551 20   sta       pr6|112,*           this_token.type
004150  aa   777170 7100 04   tra       -392,ic             003340

DBG(2464648755427)> CPU TRACE: 00310:013657 4 615134235100 (LDA PR6|15134) 615134 235(0) 1 0 0 00
DBG(2464648755429)> CPU TRACE: 00310:013660 4 000004600004 (TZE 000004,IC) 000004 600(0) 0 0 0 04
DBG(2464648755431)> CPU TRACE: 00310:013661 4 440040235003 (LDA 440040,DU) 440040 235(0) 0 0 0 03
DBG(2464648755433)> CPU TRACE: 00310:013662 4 600160755120 (STA PR6|160,N*) 600160 755(0) 1 0 1 00
DBG(2464648755435)> CPU TRACE: 00310:013663 4 777171710004 (TRA 777171,IC) 777171 710(0) 0 0 0 04

next_token:
          current_token = current_token + 1;

003340  aa  6 00211 0541 00   aos       pr6|137             current_token
                                                            STATEMENT 1 ON LINE 1495
          if current_token >= hbound (tokens, 1)
          then goto line_too_long;

003341  aa  6 00211 2361 00   ldq       pr6|137             current_token
003342  aa   000372 1160 07   cmpq      250,dl
003343  aa   776643 6050 04   tpl       -605,ic             002206

DBG(2464648755437)> CPU TRACE: 00310:013054 4 600211054100 (AOS PR6|211) 600211 054(0) 1 0 0 00
DBG(2464648755439)> CPU TRACE: 00310:013055 4 600211236100 (LDQ PR6|211) 600211 236(0) 1 0 0 00
DBG(2464648755441)> CPU TRACE: 00310:013056 4 000372116007 (CMPQ 000372,DL) 000372 116(0) 0 0 0 07
DBG(2464648755443)> CPU TRACE: 00310:013057 4 776643605004 (TPL 776643,IC) 776643 605(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1498
          token_pt = addr (tokens (current_token));

003344  aa   000006 4020 07   mpy       6,dl
003345  aa  6 02614 3735 06   epp7      pr6|1420,ql         tokens
003346  aa  6 00160 6535 00   spri7     pr6|112             token_pt
                                                            STATEMENT 1 ON LINE 1499
          this_token.name = (8)" ";

003347  aa   775111 2370 04   ldaq      -1463,ic            000460 = 040040040040 040040040040
003350  aa  7 00001 7551 00   sta       pr7|1               this_token.name
003351  aa  7 00002 7561 00   stq       pr7|2               this_token.name
                                                            STATEMENT 1 ON LINE 1501
          ip = ip + 1;

003352  aa  6 15127 0541 00   aos       pr6|6743            ip
                                                            STATEMENT 1 ON LINE 1502
          goto sw (ch_class (ip));

003353  aa  6 15127 7271 00   lxl7      pr6|6743            ip
003354  aa  6 10303 7271 17   lxl7      pr6|4291,7          next_line_storage.ch_class
003355  ta   000003 7100 17   tra       3,7

DBG(2464648755445)> CPU TRACE: 00310:013060 4 000006402007 (MPY 000006,DL) 000006 402(0) 0 0 0 07
DBG(2464648755447)> CPU TRACE: 00310:013061 4 602614373506 (EPP7 PR6|2614,QL) 602614 373(1) 1 0 0 06
DBG(2464648755449)> CPU TRACE: 00310:013062 4 600160653500 (SPRI7 PR6|160) 600160 653(1) 1 0 0 00
DBG(2464648755451)> CPU TRACE: 00310:013063 4 775111237004 (LDAQ 775111,IC) 775111 237(0) 0 0 0 04
DBG(2464648755453)> CPU TRACE: 00310:013064 4 700001755100 (STA PR7|1) 700001 755(0) 1 0 0 00
DBG(2464648755455)> CPU TRACE: 00310:013065 4 700002756100 (STQ PR7|2) 700002 756(0) 1 0 0 00
DBG(2464648755457)> CPU TRACE: 00310:013066 4 615127054100 (AOS PR6|15127) 615127 054(0) 1 0 0 00
DBG(2464648755459)> CPU TRACE: 00310:013067 4 615127727100 (LXL7 PR6|15127) 615127 727(0) 1 0 0 00
DBG(2464648755461)> CPU TRACE: 00310:013070 4 610303727117 (LXL7 PR6|10303,7) 610303 727(0) 1 0 0 17
DBG(2464648755463)> CPU TRACE: 00310:013071 4 007517710017 (TRA 007517,7) 007517 710(0) 0 0 0 17
DBG(2464648755465)> CPU TRACE: 00310:007535 4 003335710004 (TRA 003335,IC) 003335 710(0) 0 0 0 04

013072 - 7514 3356
                                                            STATEMENT 1 ON LINE 1507
sw (14):
sw (18):
          this_token.type = end_token;^L
003356  aa  7 00000 4501 00   stz       pr7|0               this_token.type
                                                            STATEMENT 1 ON LINE 1510
          number_of_tokens = current_token;

003357  aa  6 00211 2361 00   ldq       pr6|137             current_token
003360  aa  6 00212 7561 00   stq       pr6|138             number_of_tokens
                                                            STATEMENT 1 ON LINE 1511
          current_token = 1;

003361  aa   000001 2360 07   ldq       1,dl
003362  aa  6 00211 7561 00   stq       pr6|137             current_token
                                                            STATEMENT 1 ON LINE 1513
          return;

003363  aa  6 15116 6101 00   rtcd      pr6|6734

DBG(2464648755467)> CPU TRACE: 00310:013072 4 700000450100 (STZ PR7|0) 700000 450(0) 1 0 0 00
DBG(2464648755469)> CPU TRACE: 00310:013073 4 600211236100 (LDQ PR6|211) 600211 236(0) 1 0 0 00
DBG(2464648755471)> CPU TRACE: 00310:013074 4 600212756100 (STQ PR6|212) 600212 756(0) 1 0 0 00
DBG(2464648755473)> CPU TRACE: 00310:013075 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648755475)> CPU TRACE: 00310:013076 4 600211756100 (STQ PR6|211) 600211 756(0) 1 0 0 00
DBG(2464648755477)> CPU TRACE: 00310:013077 4 615116610100 (RTCD PR6|15116) 615116 610(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1006
                    call compile_statement;

001761  aa   003123 6700 04   tsp4      1619,ic             005104

DBG(2464648755479)> CPU TRACE: 00310:011475 4 003121670004 (TSP4 003121,IC) 003121 670(0) 0 0 0 04
11475-7514 1761

ENTRY TO compile_statement                                  STATEMENT 1 ON LINE 2283
compile_statement:
     proc;

005104  aa  6 15336 6501 00   spri4     pr6|6878
                                                            STATEMENT 1 ON LINE 2318
          temps (0).next, temps (1).next, temps (2).next = 0;

005105  aa  6 00162 4501 20   stz       pr6|114,*           temps.next
005106  aa  6 00162 3735 20   epp7      pr6|114,*           temps_pt
005107  aa  7 00025 4501 00   stz       pr7|21              temps.next
005110  aa  7 00052 4501 00   stz       pr7|42              temps.next
                                                            STATEMENT 1 ON LINE 2322
          operand_in_register (0), operand_in_register (1), operand_in_register (2) = 0;

005111  aa  6 00272 4501 00   stz       pr6|186             operand_in_register
005112  aa  6 00273 4501 00   stz       pr6|187             operand_in_register
005113  aa  6 00274 4501 00   stz       pr6|188             operand_in_register
                                                            STATEMENT 1 ON LINE 2324
          if statement_type ^= sub_statement
          then do;

005114  aa  6 00210 2361 00   ldq       pr6|136             statement_type
005115  aa   000037 1160 07   cmpq      31,dl
005116  aa   000073 6000 04   tze       59,ic               005211

DBG(2464648755481)> CPU TRACE: 00310:014616 4 615336650100 (SPRI4 PR6|15336) 615336 650(0) 1 0 0 00
DBG(2464648755483)> CPU TRACE: 00310:014617 4 600162450120 (STZ PR6|162,N*) 600162 450(0) 1 0 1 00
DBG(2464648755485)> CPU TRACE: 00310:014620 4 600162373520 (EPP7 PR6|162,N*) 600162 373(1) 1 0 1 00
DBG(2464648755487)> CPU TRACE: 00310:014621 4 700025450100 (STZ PR7|25) 700025 450(0) 1 0 0 00
DBG(2464648755489)> CPU TRACE: 00310:014622 4 700052450100 (STZ PR7|52) 700052 450(0) 1 0 0 00
DBG(2464648755491)> CPU TRACE: 00310:014623 4 600272450100 (STZ PR6|272) 600272 450(0) 1 0 0 00
DBG(2464648755493)> CPU TRACE: 00310:014624 4 600273450100 (STZ PR6|273) 600273 450(0) 1 0 0 00
DBG(2464648755495)> CPU TRACE: 00310:014625 4 600274450100 (STZ PR6|274) 600274 450(0) 1 0 0 00
DBG(2464648755497)> CPU TRACE: 00310:014626 4 600210236100 (LDQ PR6|210) 600210 236(0) 1 0 0 00
DBG(2464648755499)> CPU TRACE: 00310:014627 4 000037116007 (CMPQ 000037,DL) 000037 116(0) 0 0 0 07
DBG(2464648755501)> CPU TRACE: 00310:014630 4 000073600004 (TZE 000073,IC) 000073 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2326
                    if sub_ok
                    then goto statement_outside_program;

005117  aa  6 01475 2351 00   lda       pr6|829             sub_ok
005120  aa   775441 6010 04   tnz       -1247,ic            002561

DBG(2464648755503)> CPU TRACE: 00310:014631 4 601475235100 (LDA PR6|1475) 601475 235(0) 1 0 0 00
DBG(2464648755505)> CPU TRACE: 00310:014632 4 775443601004 (TNZ 775443,IC) 775443 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2329
                    if first_statement
                    then do;

005121  aa  6 01472 2351 00   lda       pr6|826             first_statement
005122  aa   000067 6000 04   tze       55,ic               005211

DBG(2464648755507)> CPU TRACE: 00310:014633 4 601472235100 (LDA PR6|1472) 601472 235(0) 1 0 0 00
DBG(2464648755509)> CPU TRACE: 00310:014634 4 000067600004 (TZE 000067,IC) 000067 600(0) 0 0 0 04
                                                            STATEMENT 1 ON LINE 2334
                              program_number = 1;

005123  aa   000001 2360 07   ldq       1,dl
005124  aa  6 00207 7561 00   stq       pr6|135             program_number
                                                            STATEMENT 1 ON LINE 2335
                              if which = 1
                              then subprogram.name (1) = "";

005125  aa  6 00336 2361 00   ldq       pr6|222             which
005126  aa   000001 1160 07   cmpq      1,dl
005127  aa   000003 6010 04   tnz       3,ic                005132
005130  aa  6 01554 4501 00   stz       pr6|876             subprogram.name
005131  aa   000006 7100 04   tra       6,ic                005137

DBG(2464648755511)> CPU TRACE: 00310:014635 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648755513)> CPU TRACE: 00310:014636 4 600207756100 (STQ PR6|207) 600207 756(0) 1 0 0 00
DBG(2464648755515)> CPU TRACE: 00310:014637 4 600336236100 (LDQ PR6|336) 600336 236(0) 1 0 0 00
DBG(2464648755517)> CPU TRACE: 00310:014640 4 000001116007 (CMPQ 000001,DL) 000001 116(0) 0 0 0 07
DBG(2464648755519)> CPU TRACE: 00310:014641 4 000003601004 (TNZ 000003,IC) 000003 601(0) 0 0 0 04
DBG(2464648755521)> CPU TRACE: 00310:014642 4 601554450100 (STZ PR6|1554) 601554 450(0) 1 0 0 00
DBG(2464648755523)> CPU TRACE: 00310:014643 4 000006710004 (TRA 000006,IC) 000006 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2339
                              header_pos (1) = output_pos;

005137  aa  6 01346 2361 00   ldq       pr6|742             output_pos
005140  aa  6 01565 7561 00   stq       pr6|885             subprogram.header_pos
                                                            STATEMENT 1 ON LINE 2340
                              program_header_pt = addrel (output_pt, output_pos);

005141  aa  6 00146 3521 66   epp2      pr6|102,*ql         output_pt
005142  aa   000000 0520 03   adwp2     0,du
005143  aa  6 00154 2521 00   spri2     pr6|108             program_header_pt
                                                            STATEMENT 1 ON LINE 2342
                              output_pos = output_pos + size (basic_program_header);

005144  aa   000016 2360 07   ldq       14,dl
005145  aa  6 01346 0561 00   asq       pr6|742             output_pos

DBG(2464648755525)> CPU TRACE: 00310:014651 4 601346236100 (LDQ PR6|1346) 601346 236(0) 1 0 0 00
DBG(2464648755527)> CPU TRACE: 00310:014652 4 601565756100 (STQ PR6|1565) 601565 756(0) 1 0 0 00
DBG(2464648755529)> CPU TRACE: 00310:014653 4 600146352166 (EPP2 PR6|146,*QL) 600146 352(0) 1 0 3 06
DBG(2464648755531)> CPU TRACE: 00310:014654 4 000000052003 (ADWP2 000000,DU) 000000 052(0) 0 0 0 03
DBG(2464648755533)> CPU TRACE: 00310:014655 4 600154252100 (SPRI2 PR6|154) 600154 252(0) 1 0 0 00
DBG(2464648755535)> CPU TRACE: 00310:014656 4 000016236007 (LDQ 000016,DL) 000016 236(0) 0 0 0 07
DBG(2464648755537)> CPU TRACE: 00310:014657 4 601346056100 (ASQ PR6|1346) 601346 056(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 2343
                              first_code_word = output_pos;

005146  aa  6 01346 2361 00   ldq       pr6|742             output_pos
005147  aa  6 01352 7561 00   stq       pr6|746             first_code_word
                                                            STATEMENT 1 ON LINE 2344
                              entry_pos (1) = output_pos;

005150  aa  6 01566 7561 00   stq       pr6|886             subprogram.entry_pos
                                                            STATEMENT 1 ON LINE 2346
                              addrel (instruction_temp_ptr, output_pos) -> basic_entry.word_3 = instructions.enter_main;

005151  aa  6 00150 3515 66   epp1      pr6|104,*ql         instruction_temp_ptr
005152  aa   000000 0510 03   adwp1     0,du
005153  aa  6 00166 3715 20   epp5      pr6|118,*           inst_pt
005154  aa  5 00013 2351 00   lda       pr5|11              instructions.enter_main
005155  aa  1 00003 7551 00   sta       pr1|3               basic_entry.word_3

DBG(2464648755539)> CPU TRACE: 00310:014660 4 601346236100 (LDQ PR6|1346) 601346 236(0) 1 0 0 00
DBG(2464648755541)> CPU TRACE: 00310:014661 4 601352756100 (STQ PR6|1352) 601352 756(0) 1 0 0 00
DBG(2464648755543)> CPU TRACE: 00310:014662 4 601566756100 (STQ PR6|1566) 601566 756(0) 1 0 0 00
DBG(2464648755545)> CPU TRACE: 00310:014663 4 600150351566 (EPP1 PR6|150,*QL) 600150 351(1) 1 0 3 06
DBG(2464648755547)> CPU TRACE: 00310:014664 4 000000051003 (ADWP1 000000,DU) 000000 051(0) 0 0 0 03
DBG(2464648755549)> CPU TRACE: 00310:014665 4 600166371520 (EPP5 PR6|166,N*) 600166 371(1) 1 0 1 00
DBG(2464648755551)> CPU TRACE: 00310:014666 4 500013235100 (LDA PR5|13) 500013 235(0) 1 0 0 00
DBG(2464648755553)> CPU TRACE: 00310:014667 4 100003755100 (STA PR1|3) 100003 755(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 2347
                              output_pos = output_pos + size (basic_entry);

005156  aa   000005 2360 07   ldq       5,dl
005157  aa  6 01346 0561 00   asq       pr6|742             output_pos
                                                            STATEMENT 1 ON LINE 2348
                              output_pt = instruction_temp_ptr;

005160  aa  6 00150 3535 20   epp3      pr6|104,*           instruction_temp_ptr
005161  aa  6 00146 2535 00   spri3     pr6|102             output_pt
                                                            STATEMENT 1 ON LINE 2351
                              string (basic_program_header.incoming_args) = "0"b;

005162  aa  2 00005 4501 00   stz       pr2|5
                                                            STATEMENT 1 ON LINE 2352
                              basic_program_header.time_limit = 0.0e0;

005163  aa   400000 4310 03   fld       131072,du
005164  aa  2 00006 4551 00   fst       pr2|6               basic_program_header.time_limit

DBG(2464648756629)> CPU TRACE: 00310:014670 4 000005236007 (LDQ 000005,DL) 000005 236(0) 0 0 0 07
DBG(2464648756631)> CPU TRACE: 00310:014671 4 601346056100 (ASQ PR6|1346) 601346 056(0) 1 0 0 00
DBG(2464648756633)> CPU TRACE: 00310:014672 4 600150353520 (EPP3 PR6|150,N*) 600150 353(1) 1 0 1 00
DBG(2464648756635)> CPU TRACE: 00310:014673 4 600146253500 (SPRI3 PR6|146) 600146 253(1) 1 0 0 00
DBG(2464648756637)> CPU TRACE: 00310:014674 4 200005450100 (STZ PR2|5) 200005 450(0) 1 0 0 00
DBG(2464648756639)> CPU TRACE: 014674 000542657220 (SCU 000542,N*) 000542 657(0) 0 1 1 00
DBG(2464648756640)> CPU TRACE: 014674 000442710220 (TRA 000442,N*) 000442 710(0) 0 1 1 00
DBG(2464648757710)> CPU TRACE: RCU ACV RESTART return
DBG(2464648757711)> CPU TRACE: restart
DBG(2464648757711)> CPU TRACE: 00310:014674 4 200005450100 (STZ PR2|5) 200005 450(0) 1 0 0 00
DBG(2464648757713)> CPU TRACE: 00310:014675 4 400000431003 (FLD 400000,DU) 400000 431(0) 0 0 0 03
DBG(2464648757715)> CPU TRACE: 00310:014676 4 200006455100 (FST PR2|6) 200006 455(0) 1 0 0 00

                              do i = 1 to number_of_lines;

005165  aa  6 01371 2361 00   ldq       pr6|761             number_of_lines
005166  aa  6 15506 7561 00   stq       pr6|6982
005167  aa   000001 2360 07   ldq       1,dl
005170  aa  6 15344 7561 00   stq       pr6|6884            i
005171  aa   000000 0110 03   nop       0,du
005172  aa  6 15344 2361 00   ldq       pr6|6884            i
005173  aa  6 15506 1161 00   cmpq      pr6|6982
005174  aa   000014 6054 04   tpnz      12,ic               005210

DBG(2464648757711)> CPU TRACE: 00310:014674 4 200005450100 (STZ PR2|5) 200005 450(0) 1 0 0 00
DBG(2464648757713)> CPU TRACE: 00310:014675 4 400000431003 (FLD 400000,DU) 400000 431(0) 0 0 0 03
DBG(2464648757715)> CPU TRACE: 00310:014676 4 200006455100 (FST PR2|6) 200006 455(0) 1 0 0 00
DBG(2464648757717)> CPU TRACE: 00310:014677 4 601371236100 (LDQ PR6|1371) 601371 236(0) 1 0 0 00
DBG(2464648757719)> CPU TRACE: 00310:014700 4 615506756100 (STQ PR6|15506) 615506 756(0) 1 0 0 00
DBG(2464648757721)> CPU TRACE: 00310:014701 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648757723)> CPU TRACE: 00310:014702 4 615344756100 (STQ PR6|15344) 615344 756(0) 1 0 0 00
DBG(2464648757725)> CPU TRACE: 00310:014703 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648757727)> CPU TRACE: 00310:014704 4 615344236100 (LDQ PR6|15344) 615344 236(0) 1 0 0 00
DBG(2464648757729)> CPU TRACE: 00310:014705 4 615506116100 (CMPQ PR6|15506) 615506 116(0) 1 0 0 00
DBG(2464648757731)> CPU TRACE: 00310:014706 4 000014605404 (TPNZ 000014,IC) 000014 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2360
                                   line (i).location = bit (fixed (output_pos, 17), 18);

005175  aa  6 01346 2351 00   lda       pr6|742             output_pos
005176  aa   000002 6050 04   tpl       2,ic                005200
005177  aa   000000 5310 00   neg       0
005200  aa   000023 7350 00   als       19
005201  aa   000001 7710 00   arl       1
005202  aa  6 00174 3735 20   epp7      pr6|124,*           table_pt
005203  aa  7 77777 6751 06   era       pr7|-1,ql           line.location
005204  aa   377777 3750 03   ana       131071,du
005205  aa  7 77777 6551 06   ersa      pr7|-1,ql           line.location
                                                            STATEMENT 1 ON LINE 2361
                              end;

005206  aa  6 15344 0541 00   aos       pr6|6884            i
005207  aa   777763 7100 04   tra       -13,ic              005172

DBG(2464648757733)> CPU TRACE: 00310:014707 4 601346235100 (LDA PR6|1346) 601346 235(0) 1 0 0 00
DBG(2464648757735)> CPU TRACE: 00310:014710 4 000002605004 (TPL 000002,IC) 000002 605(0) 0 0 0 04
DBG(2464648757737)> CPU TRACE: 00310:014712 4 000023735000 (ALS 000023) 000023 735(0) 0 0 0 00
DBG(2464648757739)> CPU TRACE: 00310:014713 4 000001771000 (ARL 000001) 000001 771(0) 0 0 0 00
DBG(2464648757741)> CPU TRACE: 00310:014714 4 600174373520 (EPP7 PR6|174,N*) 600174 373(1) 1 0 1 00
DBG(2464648757743)> CPU TRACE: 00310:014715 4 777777675106 (ERA PR7|77777,QL) 777777 675(0) 1 0 0 06
DBG(2464648757745)> CPU TRACE: 00310:014716 4 377777375003 (ANA 377777,DU) 377777 375(0) 0 0 0 03
DBG(2464648757747)> CPU TRACE: 00310:014717 4 777777655106 (ERSA PR7|77777,QL) 777777 655(0) 1 0 0 06
DBG(2464648757749)> CPU TRACE: 00310:014720 4 615344054100 (AOS PR6|15344) 615344 054(0) 1 0 0 00
DBG(2464648757751)> CPU TRACE: 00310:014721 4 777763710004 (TRA 777763,IC) 777763 710(0) 0 0 0 04

005172  aa  6 15344 2361 00   ldq       pr6|6884            i
005173  aa  6 15506 1161 00   cmpq      pr6|6982
005174  aa   000014 6054 04   tpnz      12,ic               005210

DBG(2464648757753)> CPU TRACE: 00310:014704 4 615344236100 (LDQ PR6|15344) 615344 236(0) 1 0 0 00
DBG(2464648757755)> CPU TRACE: 00310:014705 4 615506116100 (CMPQ PR6|15506) 615506 116(0) 1 0 0 00
DBG(2464648757757)> CPU TRACE: 00310:014706 4 000014605404 (TPNZ 000014,IC) 000014 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2363
                              first_statement = "0"b;

005210  aa  6 01472 4501 00   stz       pr6|826             first_statement
                                                            STATEMENT 1 ON LINE 2364
                         end;

                                                            STATEMENT 1 ON LINE 2365
               end;

                                                            STATEMENT 1 ON LINE 2367
          goto stm (statement_type);^L
005211  aa  6 00210 7271 00   lxl7      pr6|136             statement_type
005212  ta   000047 7100 17   tra       39,7

DBG(2464648757759)> CPU TRACE: 00310:014722 4 601472450100 (STZ PR6|1472) 601472 450(0) 1 0 0 00
DBG(2464648757761)> CPU TRACE: 00310:014723 4 600210727100 (LXL7 PR6|210) 600210 727(0) 1 0 0 00
DBG(2464648757763)> CPU TRACE: 00310:014724 4 007563710017 (TRA 007563,7) 007563 710(0) 0 0 0 17
DBG(2464648757765)> CPU TRACE: 00310:007576 4 006717710004 (TRA 006717,IC) 006717 710(0) 0 0 0 04
DBG(2464648757765)> CPU TRACE: TRA 00310:016515
014724-5211 7513

16515-7513 7002

                                                            STATEMENT 1 ON LINE 3084
stm (11):
          call gen_xfer (instructions.tra);

007007  aa  6 00166 3735 20   epp7      pr6|118,*           inst_pt
007010  aa  7 00157 3521 00   epp2      pr7|111             instructions.tra
007011  aa  6 17044 2521 00   spri2     pr6|7716
007012  aa  6 17042 3521 00   epp2      pr6|7714
007013  aa   004000 4310 07   fld       2048,dl
007014  aa  2 00000 7571 00   staq      pr2|0
007015  aa   005241 6700 04   tsp4      2721,ic             014256

DBG(2464648757767)> CPU TRACE: 00310:016515 4 600166373520 (EPP7 PR6|166,N*) 600166 373(1) 1 0 1 00
DBG(2464648757769)> CPU TRACE: 00310:016516 4 700157352100 (EPP2 PR7|157) 700157 352(0) 1 0 0 00
DBG(2464648757771)> CPU TRACE: 00310:016517 4 617044252100 (SPRI2 PR6|17044) 617044 252(0) 1 0 0 00
DBG(2464648757773)> CPU TRACE: 00310:016520 4 617042352100 (EPP2 PR6|17042) 617042 352(0) 1 0 0 00
DBG(2464648757775)> CPU TRACE: 00310:016521 4 004000431007 (FLD 004000,DL) 004000 431(0) 0 0 0 07
DBG(2464648757777)> CPU TRACE: 00310:016522 4 200000757100 (STAQ PR2|0) 200000 757(0) 1 0 0 00
DBG(2464648757779)> CPU TRACE: 00310:016523 4 005231670004 (TSP4 005231,IC) 005231 670(0) 0 0 0 04

ENTRY TO gen_xfer                                           STATEMENT 1 ON LINE 5204
gen_xfer:
     proc (op);

014256  aa  6 16166 6501 00   spri4     pr6|7286
014257  aa  6 16170 2521 00   spri2     pr6|7288
                                                            STATEMENT 1 ON LINE 5212
          token_pt = addr (tokens (current_token));

014260  aa  6 00211 2361 00   ldq       pr6|137             current_token
014261  aa   000006 4020 07   mpy       6,dl
014262  aa  6 02614 3735 06   epp7      pr6|1420,ql         tokens
014263  aa  6 00160 6535 00   spri7     pr6|112             token_pt
                                                            STATEMENT 1 ON LINE 5214
          if this_token.type ^= integer_token
          then if this_token.type = end_token
               then goto line_number_required;

014264  aa  7 00000 2351 00   lda       pr7|0               this_token.type
014265  aa   440040 1150 03   cmpa      147488,du
014266  aa   000004 6000 04   tze       4,ic                014272
014267  aa   777777 3150 03   cana      262143,du
014270  aa   766067 6000 04   tze       -5065,ic            002357

DBG(2464648757781)> CPU TRACE: 00310:023754 4 616166650100 (SPRI4 PR6|16166) 616166 650(0) 1 0 0 00
DBG(2464648757783)> CPU TRACE: 00310:023755 4 616170252100 (SPRI2 PR6|16170) 616170 252(0) 1 0 0 00
DBG(2464648757785)> CPU TRACE: 00310:023756 4 600211236100 (LDQ PR6|211) 600211 236(0) 1 0 0 00
DBG(2464648757787)> CPU TRACE: 00310:023757 4 000006402007 (MPY 000006,DL) 000006 402(0) 0 0 0 07
DBG(2464648757789)> CPU TRACE: 00310:023760 4 602614373506 (EPP7 PR6|2614,QL) 602614 373(1) 1 0 0 06
DBG(2464648757791)> CPU TRACE: 00310:023761 4 600160653500 (SPRI7 PR6|160) 600160 653(1) 1 0 0 00
DBG(2464648757793)> CPU TRACE: 00310:023762 4 700000235100 (LDA PR7|0) 700000 235(0) 1 0 0 00
DBG(2464648757795)> CPU TRACE: 00310:023763 4 440040115003 (CMPA 440040,DU) 440040 115(0) 0 0 0 03
DBG(2464648757797)> CPU TRACE: 00310:023764 4 000004600004 (TZE 000004,IC) 000004 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 5219
          ln = fixed (this_token.value, 17);
014272  aa  7 00004 4311 00   fld       pr7|4               this_token.value
014273  aa  0 00654 7001 00   tsx0      pr0|428             fl2_to_fx1
014274  aa  6 16175 7561 00   stq       pr6|7293            ln
                                                            STATEMENT 1 ON LINE 5221
          if ln <= current_line_number
          then do;

014275  aa  6 00225 1161 00   cmpq      pr6|149             current_line_number
014276  aa   000062 6054 04   tpnz      50,ic               014360
DBG(2464648757801)> CPU TRACE: 00310:023771 4 000654700100 (TSX0 PR0|654) 000654 700(0) 1 0 0 00
DBG(2464648757811)> CPU TRACE: TRA 00310:023772
DBG(2464648757813)> CPU TRACE: 00310:023772 4 616175756100 (STQ PR6|16175) 616175 756(0) 1 0 0 00
DBG(2464648757815)> CPU TRACE: 00310:023773 4 600225116100 (CMPQ PR6|225) 600225 116(0) 1 0 0 00
DBG(2464648757817)> CPU TRACE: 00310:023774 4 000062605404 (TPNZ 000062,IC) 000062 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 5226
                    lower = 1;

014277  aa   000001 2360 07   ldq       1,dl
014300  aa  6 16176 7561 00   stq       pr6|7294            lower
                                                            STATEMENT 1 ON LINE 5227
                    upper = number_of_lines;

014301  aa  6 01371 2361 00   ldq       pr6|761             number_of_lines
014302  aa  6 16177 7561 00   stq       pr6|7295            upper
                                                            STATEMENT 1 ON LINE 5229
                    do while (lower <= upper);

014303  aa   000000 0110 03   nop       0,du
014304  aa  6 16176 2361 00   ldq       pr6|7294            lower
014305  aa  6 16177 1161 00   cmpq      pr6|7295            upper
014306  aa   000052 6054 04   tpnz      42,ic               014360

DBG(2464648757819)> CPU TRACE: 00310:023775 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648757821)> CPU TRACE: 00310:023776 4 616176756100 (STQ PR6|16176) 616176 756(0) 1 0 0 00
DBG(2464648757823)> CPU TRACE: 00310:023777 4 601371236100 (LDQ PR6|1371) 601371 236(0) 1 0 0 00
DBG(2464648757825)> CPU TRACE: 00310:024000 4 616177756100 (STQ PR6|16177) 616177 756(0) 1 0 0 00
DBG(2464648757827)> CPU TRACE: 00310:024001 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648757829)> CPU TRACE: 00310:024002 4 616176236100 (LDQ PR6|16176) 616176 236(0) 1 0 0 00
DBG(2464648757831)> CPU TRACE: 00310:024003 4 616177116100 (CMPQ PR6|16177) 616177 116(0) 1 0 0 00
DBG(2464648757833)> CPU TRACE: 00310:024004 4 000052605404 (TPNZ 000052,IC) 000052 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 5230
                         i = divide (upper + lower, 2, 17, 0);

014307  aa  6 16177 0761 00   adq       pr6|7295            upper
014310  aa   000002 5060 07   div       2,dl
014311  aa  6 16174 7561 00   stq       pr6|7292            i

DBG(2464648757835)> CPU TRACE: 00310:024005 4 616177076100 (ADQ PR6|16177) 616177 076(0) 1 0 0 00
DBG(2464648757837)> CPU TRACE: 00310:024006 4 000002506007 (DIV 000002,DL) 000002 506(0) 0 0 0 07
DBG(2464648757839)> CPU TRACE: 00310:024007 4 616174756100 (STQ PR6|16174) 616174 756(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 5232
                         if ln = line (i).number
                         then do;

014312  aa  6 00174 3735 20   epp7      pr6|124,*           table_pt
014313  aa  7 77777 2351 06   lda       pr7|-1,ql           line.number
014314  aa   000022 7350 00   als       18
014315  aa   000066 7330 00   lrs       54
014316  aa  6 17262 7561 00   stq       pr6|7858            line.number
014317  aa  6 16175 1161 00   cmpq      pr6|7293            ln
014320  aa   000027 6010 04   tnz       23,ic               014347

DBG(2464648757841)> CPU TRACE: 00310:024010 4 600174373520 (EPP7 PR6|174,N*) 600174 373(1) 1 0 1 00
DBG(2464648757843)> CPU TRACE: 00310:024011 4 777777235106 (LDA PR7|77777,QL) 777777 235(0) 1 0 0 06
DBG(2464648757845)> CPU TRACE: 00310:024012 4 000022735000 (ALS 000022) 000022 735(0) 0 0 0 00
DBG(2464648757847)> CPU TRACE: 00310:024013 4 000066733000 (LRS 000066) 000066 733(0) 0 0 0 00
DBG(2464648757849)> CPU TRACE: 00310:024014 4 617260756100 (STQ PR6|17260) 617260 756(0) 1 0 0 00
DBG(2464648757851)> CPU TRACE: 00310:024015 4 616175116100 (CMPQ PR6|16175) 616175 116(0) 1 0 0 00
DBG(2464648757853)> CPU TRACE: 00310:024016 4 000027601004 (TNZ 000027,IC) 000027 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 5235
                                   if fn_name = 0
                                   then if in_function (i)
                                        then goto l0;

014321  aa  6 00221 2361 00   ldq       pr6|145             fn_name
014322  aa   000006 6010 04   tnz       6,ic                014330
014323  aa  6 16174 7271 00   lxl7      pr6|7292            i
014324  aa  7 77777 2351 17   lda       pr7|-1,7            line.in_function
014325  aa   400000 3150 03   cana      131072,du
014326  aa   000032 6010 04   tnz       26,ic               014360

DBG(2464648757855)> CPU TRACE: 00310:024017 4 600221236100 (LDQ PR6|221) 600221 236(0) 1 0 0 00
DBG(2464648757857)> CPU TRACE: 00310:024020 4 000006601004 (TNZ 000006,IC) 000006 601(0) 0 0 0 04
DBG(2464648757859)> CPU TRACE: 00310:024021 4 616174727100 (LXL7 PR6|16174) 616174 727(0) 1 0 0 00
DBG(2464648757861)> CPU TRACE: 00310:024022 4 777777235117 (LDA PR7|77777,7) 777777 235(0) 1 0 0 17
DBG(2464648757863)> CPU TRACE: 00310:024023 4 400000315003 (CANA 400000,DU) 400000 315(0) 0 0 0 03
DBG(2464648757865)> CPU TRACE: 00310:024024 4 000032601004 (TNZ 000032,IC) 000032 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 5238
                                        else ;

014327  aa   000004 7100 04   tra       4,ic                014333

                                                            STATEMENT 1 ON LINE 5242
                                   offset = bit (fixed (fixed (line (i).location, 17) - output_pos + 262144, 18), 18);

014333  aa  6 16174 7271 00   lxl7      pr6|7292            i
014334  aa  7 77777 2351 17   lda       pr7|-1,7            line.location
014335  aa   000001 7350 00   als       1
014336  aa   000067 7730 00   lrl       55
014337  aa  6 01346 1761 00   sbq       pr6|742             output_pos
014340  aa   000001 0760 03   adq       1,du
014341  aa   000003 6050 04   tpl       3,ic                014344
014342  aa  0 00110 6761 00   erq       pr0|72              = 777777777777
014343  aa   000001 0760 07   adq       1,dl
014344  aa   000066 7370 00   lls       54
014345  aa  6 16200 7551 00   sta       pr6|7296            offset

DBG(2464648757869)> CPU TRACE: 00310:024031 4 616174727100 (LXL7 PR6|16174) 616174 727(0) 1 0 0 00
DBG(2464648757871)> CPU TRACE: 00310:024032 4 777777235117 (LDA PR7|77777,7) 777777 235(0) 1 0 0 17
DBG(2464648757873)> CPU TRACE: 00310:024033 4 000001735000 (ALS 000001) 000001 735(0) 0 0 0 00
DBG(2464648757875)> CPU TRACE: 00310:024034 4 000067773000 (LRL 000067) 000067 773(0) 0 0 0 00
DBG(2464648757877)> CPU TRACE: 00310:024035 4 601346176100 (SBQ PR6|1346) 601346 176(0) 1 0 0 00
DBG(2464648757879)> CPU TRACE: 00310:024036 4 000001076003 (ADQ 000001,DU) 000001 076(0) 0 0 0 03
DBG(2464648757879)> CPU TRACE: Add36b op1 000000000000 op2 000001000000 carryin 0 flagsToSet 740000 flags 500300 ovf 0
DBG(2464648757879)> CPU TRACE: Add36b res 000001000000 flags 000300 ovf 0
DBG(2464648757881)> CPU TRACE: 00310:024037 4 000003605004 (TPL 000003,IC) 000003 605(0) 0 0 0 04
DBG(2464648757883)> CPU TRACE: 00310:024042 4 000066737000 (LLS 000066) 000066 737(0) 0 0 0 00
DBG(2464648757885)> CPU TRACE: 00310:024043 4 616200755100 (STA PR6|16200) 616200 755(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 5243
                                   goto l1;

014346  aa   000053 7100 04   tra       43,ic               014421

DBG(2464648757887)> CPU TRACE: 00310:024044 4 000053710004 (TRA 000053,IC) 000053 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 5279
l1:
          output_word (output_pos) = op | offset | ic (0);

014421  aa  6 16170 3735 20   epp7      pr6|7288,*
014422  aa  7 00002 2351 20   lda       pr7|2,*             op
014423  aa  6 16200 2751 00   ora       pr6|7296            offset
014424  aa   000004 2750 07   ora       4,dl
014425  aa  6 01346 7261 00   lxl6      pr6|742             output_pos
014426  aa  6 00146 7551 76   sta       pr6|102,*6          output_word
                                                            STATEMENT 1 ON LINE 5281
          output_pos = output_pos + 1;

014427  aa  6 01346 0541 00   aos       pr6|742             output_pos
                                                            STATEMENT 1 ON LINE 5283
          current_token = current_token + 1;

014430  aa  6 00211 0541 00   aos       pr6|137             current_token
                                                            STATEMENT 1 ON LINE 5284
     end;

014431  aa  6 16166 6101 00   rtcd      pr6|7286

DBG(2464648757889)> CPU TRACE: 00310:024117 4 616170373520 (EPP7 PR6|16170,N*) 616170 373(1) 1 0 1 00
DBG(2464648757891)> CPU TRACE: 00310:024120 4 700002235120 (LDA PR7|2,N*) 700002 235(0) 1 0 1 00
DBG(2464648757893)> CPU TRACE: 00310:024121 4 616200275100 (ORA PR6|16200) 616200 275(0) 1 0 0 00
DBG(2464648757895)> CPU TRACE: 00310:024122 4 000004275007 (ORA 000004,DL) 000004 275(0) 0 0 0 07
DBG(2464648757897)> CPU TRACE: 00310:024123 4 601346726100 (LXL6 PR6|1346) 601346 726(0) 1 0 0 00
DBG(2464648757899)> CPU TRACE: 00310:024124 4 600146755176 (STA PR6|146,*6) 600146 755(0) 1 0 3 16
DBG(2464648757901)> CPU TRACE: 00310:024125 4 601346054100 (AOS PR6|1346) 601346 054(0) 1 0 0 00
DBG(2464648757903)> CPU TRACE: 00310:024126 4 600211054100 (AOS PR6|211) 600211 054(0) 1 0 0 00
DBG(2464648757905)> CPU TRACE: 00310:024127 4 616166610100 (RTCD PR6|16166) 616166 610(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 3086
          goto done;

007016  aa   777502 7100 04   tra       -190,ic             006520

DBG(2464648757907)> CPU TRACE: 00310:016524 4 777503710004 (TRA 777503,IC) 777503 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2892
done:
          if current_token ^= number_of_tokens
          then goto incorrect_format;

006520  aa  6 00211 2361 00   ldq       pr6|137             current_token
006521  aa  6 00212 1161 00   cmpq      pr6|138             number_of_tokens
006522  aa   773416 6010 04   tnz       -2290,ic            002140

DBG(2464648757909)> CPU TRACE: 00310:016227 4 600211236100 (LDQ PR6|211) 600211 236(0) 1 0 0 00
DBG(2464648757911)> CPU TRACE: 00310:016230 4 600212116100 (CMPQ PR6|212) 600212 116(0) 1 0 0 00
DBG(2464648757913)> CPU TRACE: 00310:016231 4 773423601004 (TNZ 773423,IC) 773423 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 2896
          return;

006523  aa  6 15336 6101 00   rtcd      pr6|6878

DBG(2464648757915)> CPU TRACE: 00310:016232 4 615336610100 (RTCD PR6|15336) 615336 610(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1008
                    if operator_level + operand_level ^= 0
                    then call error (12);

001762  aa  6 00223 2361 00   ldq       pr6|147             operator_level
001763  aa  6 00222 0761 00   adq       pr6|146             operand_level
001764  aa   777772 6000 04   tze       -6,ic               001756
001765  aa   000014 2360 07   ldq       12,dl
001766  aa  6 16657 7561 00   stq       pr6|7599
001767  aa   022301 3520 04   epp2      9409,ic             024270 = 000002000000
001770  aa   017651 6700 04   tsp4      8105,ic             021641

DBG(2464648757917)> CPU TRACE: 00310:011476 4 600223236100 (LDQ PR6|223) 600223 236(0) 1 0 0 00
DBG(2464648757919)> CPU TRACE: 00310:011477 4 600222076100 (ADQ PR6|222) 600222 076(0) 1 0 0 00
DBG(2464648757919)> CPU TRACE: Add36b op1 000000000000 op2 000000000000 carryin 0 flagsToSet 740000 flags 500300 ovf 0
DBG(2464648757919)> CPU TRACE: Add36b res 000000000000 flags 400300 ovf 0
DBG(2464648757921)> CPU TRACE: 00310:011500 4 777772600004 (TZE 777772,IC) 777772 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1001
                    end;

                                                            STATEMENT 1 ON LINE 1004
               do while (^last_statement);

001756  aa  6 01473 2351 00   lda       pr6|827             last_statement
001757  aa   000013 6010 04   tnz       11,ic               001772

DBG(2464648757923)> CPU TRACE: 00310:011472 4 601473235100 (LDA PR6|1473) 601473 235(0) 1 0 0 00
DBG(2464648757925)> CPU TRACE: 00310:011473 4 000013601004 (TNZ 000013,IC) 000013 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1005
                    call lexical_analyzer;

001760  aa   000710 6700 04   tsp4      456,ic              002670

<skip>

                                                            STATEMENT 1 ON LINE 1006
                    call compile_statement;

001761  aa   003123 6700 04   tsp4      1619,ic             005104

DBG(2464648759363)> CPU TRACE: 00310:011475 4 003121670004 (TSP4 003121,IC) 003121 670(0) 0 0 0 04

<skip>

                                                            STATEMENT 1 ON LINE 1008
                    if operator_level + operand_level ^= 0
                    then call error (12);

001762  aa  6 00223 2361 00   ldq       pr6|147             operator_level
001763  aa  6 00222 0761 00   adq       pr6|146             operand_level
001764  aa   777772 6000 04   tze       -6,ic               001756
001765  aa   000014 2360 07   ldq       12,dl
001766  aa  6 16657 7561 00   stq       pr6|7599
001767  aa   022301 3520 04   epp2      9409,ic             024270 = 000002000000
001770  aa   017651 6700 04   tsp4      8105,ic             021641

DBG(2464648759439)> CPU TRACE: 00310:011476 4 600223236100 (LDQ PR6|223) 600223 236(0) 1 0 0 00
DBG(2464648759441)> CPU TRACE: 00310:011477 4 600222076100 (ADQ PR6|222) 600222 076(0) 1 0 0 00
DBG(2464648759441)> CPU TRACE: Add36b op1 000000000000 op2 000000000000 carryin 0 flagsToSet 740000 flags 500300 ovf 0
DBG(2464648759441)> CPU TRACE: Add36b res 000000000000 flags 400300 ovf 0
DBG(2464648759443)> CPU TRACE: 00310:011500 4 777772600004 (TZE 777772,IC) 777772 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1004
               do while (^last_statement);

001756  aa  6 01473 2351 00   lda       pr6|827             last_statement
001757  aa   000013 6010 04   tnz       11,ic               001772

DBG(2464648759445)> CPU TRACE: 00310:011472 4 601473235100 (LDA PR6|1473) 601473 235(0) 1 0 0 00
DBG(2464648759447)> CPU TRACE: 00310:011473 4 000013601004 (TNZ 000013,IC) 000013 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1014
               call finish_subprogram;

001772  aa   014642 6700 04   tsp4      6562,ic             016634

ENTRY TO finish_subprogram                                  STATEMENT 1 ON LINE 6143
finish_subprogram:
     proc;

016634  aa  6 16414 6501 00   spri4     pr6|7436
                                                            STATEMENT 1 ON LINE 6156
          call scan_missing_list;

016635  aa   777626 6700 04   tsp4      -106,ic             016463

DBG(2464648759451)> CPU TRACE: 00310:026326 4 616414650100 (SPRI4 PR6|16414) 616414 650(0) 1 0 0 00
DBG(2464648759453)> CPU TRACE: 00310:026327 4 777626670004 (TSP4 777626,IC) 777626 670(0) 0 0 0 04

ENTRY TO scan_missing_list                                  STATEMENT 1 ON LINE 6085
scan_missing_list:
     proc;
016463  aa  6 16364 6501 00   spri4     pr6|7412
                                                            STATEMENT 1 ON LINE 6091
          m = 0;

016464  aa  6 16374 4501 00   stz       pr6|7420            m
                                                            STATEMENT 1 ON LINE 6092
          do i = 1 to missing.count;

016465  aa  6 00204 2361 20   ldq       pr6|132,*           missing.count
016466  aa  6 16400 7561 00   stq       pr6|7424
016467  aa   000001 2360 07   ldq       1,dl
016470  aa  6 16372 7561 00   stq       pr6|7418            i
016471  aa   000000 0110 03   nop       0,du
016472  aa  6 16372 2361 00   ldq       pr6|7418            i
016473  aa  6 16400 1161 00   cmpq      pr6|7424
016474  aa   000057 6054 04   tpnz      47,ic               016553

DBG(2464648759453)> CPU TRACE: 00310:026327 4 777626670004 (TSP4 777626,IC) 777626 670(0) 0 0 0 04
DBG(2464648759455)> CPU TRACE: 00310:026155 4 616364650100 (SPRI4 PR6|16364) 616364 650(0) 1 0 0 00
DBG(2464648759457)> CPU TRACE: 00310:026156 4 616374450100 (STZ PR6|16374) 616374 450(0) 1 0 0 00
DBG(2464648759459)> CPU TRACE: 00310:026157 4 600204236120 (LDQ PR6|204,N*) 600204 236(0) 1 0 1 00
DBG(2464648759461)> CPU TRACE: 00310:026160 4 616400756100 (STQ PR6|16400) 616400 756(0) 1 0 0 00
DBG(2464648759463)> CPU TRACE: 00310:026161 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648759465)> CPU TRACE: 00310:026162 4 616372756100 (STQ PR6|16372) 616372 756(0) 1 0 0 00
DBG(2464648759467)> CPU TRACE: 00310:026163 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648759469)> CPU TRACE: 00310:026164 4 616372236100 (LDQ PR6|16372) 616372 236(0) 1 0 0 00
DBG(2464648759471)> CPU TRACE: 00310:026165 4 616400116100 (CMPQ PR6|16400) 616400 116(0) 1 0 0 00
DBG(2464648759473)> CPU TRACE: 00310:026166 4 000057605404 (TPNZ 000057,IC) 000057 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6111
     end;

016553  aa  6 16364 6101 00   rtcd      pr6|7412

DBG(2464648759475)> CPU TRACE: 00310:026245 4 616364610100 (RTCD PR6|16364) 616364 610(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 6160
          m = 0;

016636  aa  6 16424 4501 00   stz       pr6|7444            m
                                                            STATEMENT 1 ON LINE 6161
          do i = 1 to for_level;

016637  aa  6 00224 2361 00   ldq       pr6|148             for_level
016640  aa  6 16434 7561 00   stq       pr6|7452
016641  aa   000001 2360 07   ldq       1,dl
016642  aa  6 16422 7561 00   stq       pr6|7442            i
016643  aa   000000 0110 03   nop       0,du
016644  aa  6 16422 2361 00   ldq       pr6|7442            i
016645  aa  6 16434 1161 00   cmpq      pr6|7452
016646  aa   000074 6054 04   tpnz      60,ic               016742

DBG(2464648759477)> CPU TRACE: 00310:026330 4 616424450100 (STZ PR6|16424) 616424 450(0) 1 0 0 00
DBG(2464648759479)> CPU TRACE: 00310:026331 4 600224236100 (LDQ PR6|224) 600224 236(0) 1 0 0 00
DBG(2464648759481)> CPU TRACE: 00310:026332 4 616434756100 (STQ PR6|16434) 616434 756(0) 1 0 0 00
DBG(2464648759483)> CPU TRACE: 00310:026333 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(2464648759485)> CPU TRACE: 00310:026334 4 616422756100 (STQ PR6|16422) 616422 756(0) 1 0 0 00
DBG(2464648759487)> CPU TRACE: 00310:026335 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648759489)> CPU TRACE: 00310:026336 4 616422236100 (LDQ PR6|16422) 616422 236(0) 1 0 0 00
DBG(2464648759491)> CPU TRACE: 00310:026337 4 616434116100 (CMPQ PR6|16434) 616434 116(0) 1 0 0 00
DBG(2464648759493)> CPU TRACE: 00310:026340 4 000074605404 (TPNZ 000074,IC) 000074 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6185
          m = 0;

016742  aa  6 16424 4501 00   stz       pr6|7444            m
                                                            STATEMENT 1 ON LINE 6186
          do i = lbound (fn_table, 1) to hbound (fn_table, 1);

016743  aa   000032 3360 07   lcq       26,dl
016744  aa  6 16422 7561 00   stq       pr6|7442            i
016745  aa   000000 0110 03   nop       0,du
016746  aa  6 16422 2361 00   ldq       pr6|7442            i
016747  aa   000032 1160 07   cmpq      26,dl
016750  aa   000073 6054 04   tpnz      59,ic               017043

DBG(2464648759495)> CPU TRACE: 00310:026434 4 616424450100 (STZ PR6|16424) 616424 450(0) 1 0 0 00
DBG(2464648759497)> CPU TRACE: 00310:026435 4 000032336007 (LCQ 000032,DL) 000032 336(0) 0 0 0 07
DBG(2464648759499)> CPU TRACE: 00310:026436 4 616422756100 (STQ PR6|16422) 616422 756(0) 1 0 0 00
DBG(2464648759501)> CPU TRACE: 00310:026437 4 000000011003 (NOP 000000,DU) 000000 011(0) 0 0 0 03
DBG(2464648759503)> CPU TRACE: 00310:026440 4 616422236100 (LDQ PR6|16422) 616422 236(0) 1 0 0 00
DBG(2464648759505)> CPU TRACE: 00310:026441 4 000032116007 (CMPQ 000032,DL) 000032 116(0) 0 0 0 07
DBG(2464648759507)> CPU TRACE: 00310:026442 4 000073605404 (TPNZ 000073,IC) 000073 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6187
               loc = fn_table.usage (i);

016751  aa   000001 7360 00   qls       1
016752  aa  6 07464 2351 06   lda       pr6|3892,ql         fn_table.usage
016753  aa  6 01501 7551 00   sta       pr6|833             loc
                                                            STATEMENT 1 ON LINE 6189
               if loc
               then do;

016754  aa   000065 6000 04   tze       53,ic               017041

DBG(2464648759509)> CPU TRACE: 00310:026443 4 000001736000 (QLS 000001) 000001 736(0) 0 0 0 00
DBG(2464648759511)> CPU TRACE: 00310:026444 4 607464235106 (LDA PR6|7464,QL) 607464 235(0) 1 0 0 06
DBG(2464648759513)> CPU TRACE: 00310:026445 4 601501755100 (STA PR6|1501) 601501 755(0) 1 0 0 00
DBG(2464648759515)> CPU TRACE: 00310:026446 4 000065600004 (TZE 000065,IC) 000065 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6213
          end;

017041  aa  6 16422 0541 00   aos       pr6|7442            i
017042  aa   777704 7100 04   tra       -60,ic              016746

DBG(2464648759517)> CPU TRACE: 00310:026533 4 616422054100 (AOS PR6|16422) 616422 054(0) 1 0 0 00
DBG(2464648759519)> CPU TRACE: 00310:026534 4 777704710004 (TRA 777704,IC) 777704 710(0) 0 0 0 04

016745  aa   000000 0110 03   nop       0,du
016746  aa  6 16422 2361 00   ldq       pr6|7442            i
016747  aa   000032 1160 07   cmpq      26,dl
016750  aa   000073 6054 04   tpnz      59,ic               017043

DBG(2464648759521)> CPU TRACE: 00310:026440 4 616422236100 (LDQ PR6|16422) 616422 236(0) 1 0 0 00
DBG(2464648759523)> CPU TRACE: 00310:026441 4 000032116007 (CMPQ 000032,DL) 000032 116(0) 0 0 0 07
DBG(2464648759525)> CPU TRACE: 00310:026442 4 000073605404 (TPNZ 000073,IC) 000073 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6187
               loc = fn_table.usage (i);

016751  aa   000001 7360 00   qls       1
016752  aa  6 07464 2351 06   lda       pr6|3892,ql         fn_table.usage
016753  aa  6 01501 7551 00   sta       pr6|833             loc
                                                            STATEMENT 1 ON LINE 6189
               if loc
               then do;

016754  aa   000065 6000 04   tze       53,ic               017041

DBG(2464648759527)> CPU TRACE: 00310:026443 4 000001736000 (QLS 000001) 000001 736(0) 0 0 0 00
DBG(2464648759529)> CPU TRACE: 00310:026444 4 607464235106 (LDA PR6|7464,QL) 607464 235(0) 1 0 0 06
DBG(2464648759531)> CPU TRACE: 00310:026445 4 601501755100 (STA PR6|1501) 601501 755(0) 1 0 0 00
DBG(2464648759533)> CPU TRACE: 00310:026446 4 000065600004 (TZE 000065,IC) 000065 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6213
          end;

017041  aa  6 16422 0541 00   aos       pr6|7442            i
017042  aa   777704 7100 04   tra       -60,ic              016746

DBG(2464648759535)> CPU TRACE: 00310:026533 4 616422054100 (AOS PR6|16422) 616422 054(0) 1 0 0 00
DBG(2464648759537)> CPU TRACE: 00310:026534 4 777704710004 (TRA 777704,IC) 777704 710(0) 0 0 0 04

016746  aa  6 16422 2361 00   ldq       pr6|7442            i
016747  aa   000032 1160 07   cmpq      26,dl
016750  aa   000073 6054 04   tpnz      59,ic               017043

<skipping>
DBG(2464648760457)> CPU TRACE: 00310:026440 4 616422236100 (LDQ PR6|16422) 616422 236(0) 1 0 0 00
DBG(2464648760459)> CPU TRACE: 00310:026441 4 000032116007 (CMPQ 000032,DL) 000032 116(0) 0 0 0 07
DBG(2464648760461)> CPU TRACE: 00310:026442 4 000073605404 (TPNZ 000073,IC) 000073 605(1) 0 0 0 04

                                                            STATEMENT 1 ON LINE 6215
          end_pos = output_pos;

017043  aa  6 01346 2361 00   ldq       pr6|742             output_pos
017044  aa  6 16425 7561 00   stq       pr6|7445            end_pos
                                                            STATEMENT 1 ON LINE 6220
          if number_of_constants > max_number_of_constants
          then do;

017045  aa  6 01375 2361 00   ldq       pr6|765             number_of_constants
017046  aa   037776 1160 07   cmpq      16382,dl
017047  aa   000026 6044 04   tmoz      22,ic               017075

                                                            STATEMENT 1 ON LINE 6229
          if mod (number_of_constants, 2) ^= 0
          then number_of_constants = number_of_constants + 1;

017075  aa  6 01375 2361 00   ldq       pr6|765             number_of_constants
017076  aa   005214 3520 04   epp2      2700,ic             024312 = 000000000002
017077  aa  0 00704 7001 00   tsx0      pr0|452             mdfx1
017100  aa   000002 6000 04   tze       2,ic                017102
017101  aa  6 01375 0541 00   aos       pr6|765             number_of_constants

DBG(2464648760473)> CPU TRACE: 00310:026567 4 601375236100 (LDQ PR6|1375) 601375 236(0) 1 0 0 00
DBG(2464648760475)> CPU TRACE: 00310:026570 4 005214352004 (EPP2 005214,IC) 005214 352(0) 0 0 0 04
DBG(2464648760477)> CPU TRACE: 00310:026571 4 000704700100 (TSX0 PR0|704) 000704 700(0) 1 0 0 00
DBG(2464648760499)> CPU TRACE: TRA 00310:026572
DBG(2464648760501)> CPU TRACE: 00310:026572 4 000002600004 (TZE 000002,IC) 000002 600(0) 0 0 0 04

                                                           STATEMENT 1 ON LINE 6243
          block_size = output_pos - first_code_word;

017102  aa  6 01346 2361 00   ldq       pr6|742             output_pos
017103  aa  6 01352 1761 00   sbq       pr6|746             first_code_word
017104  aa  6 01351 7561 00   stq       pr6|745             block_size

DBG(2464648760503)> CPU TRACE: 00310:026574 4 601346236100 (LDQ PR6|1346) 601346 236(0) 1 0 0 00
DBG(2464648760505)> CPU TRACE: 00310:026575 4 601352176100 (SBQ PR6|1352) 601352 176(0) 1 0 0 00
DBG(2464648760507)> CPU TRACE: 00310:026576 4 601351756100 (STQ PR6|1351) 601351 756(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 6244
          addr (constants (number_of_constants + 1)) -> block = addr (output_word (first_code_word)) -> block;

017105  aa   000002 7360 00   qls       2
017106  aa  6 01375 7271 00   lxl7      pr6|765             number_of_constants
017107  aa  6 00152 3735 77   epp7      pr6|106,*7          block
017110  aa  6 01352 7261 00   lxl6      pr6|746             first_code_word
017111  aa  6 00146 3715 76   epp5      pr6|102,*6          block
017112  aa  000 140 100 540   mlr       (pr,rl),(pr,rl),fill(000)
017113  aa  5 00000 00 0006   desc9a    pr5|0,ql            block
017114  aa  7 00000 00 0006   desc9a    pr7|0,ql            block

DBG(2464648760509)> CPU TRACE: 00310:026577 4 000002736000 (QLS 000002) 000002 736(0) 0 0 0 00
DBG(2464648760511)> CPU TRACE: 00310:026600 4 601375727100 (LXL7 PR6|1375) 601375 727(0) 1 0 0 00
DBG(2464648760513)> CPU TRACE: 00310:026601 4 600152373577 (EPP7 PR6|152,*7) 600152 373(1) 1 0 3 17
DBG(2464648760515)> CPU TRACE: 00310:026602 4 601352726100 (LXL6 PR6|1352) 601352 726(0) 1 0 0 00
DBG(2464648760517)> CPU TRACE: 00310:026603 4 600146371576 (EPP5 PR6|146,*6) 600146 371(1) 1 0 3 16
DBG(2464648760519)> CPU TRACE: 00310:026604 4 000140100540 (MLR PR0|140,F1) 000140 100(1) 0 0 0 00

                                                            STATEMENT 1 ON LINE 6246
          output_pt = output_pointer;

017115  aa  6 15110 3535 20   epp3      pr6|6728,*          output_pointer
017116  aa  3 00000 3535 20   epp3      pr3|0,*             output_pointer
017117  aa  6 00146 2535 00   spri3     pr6|102             output_pt
                                                            STATEMENT 1 ON LINE 6248
          output_pos = output_pos + number_of_constants;

017120  aa  6 01375 2361 00   ldq       pr6|765             number_of_constants
017121  aa  6 01346 0561 00   asq       pr6|742             output_pos
                                                            STATEMENT 1 ON LINE 6249
          last_instruction = output_pos - 1;

017122  aa  6 01346 2361 00   ldq       pr6|742             output_pos
017123  aa   000001 1760 07   sbq       1,dl
017124  aa  6 01353 7561 00   stq       pr6|747             last_instruction

DBG(2464648760521)> CPU TRACE: 00310:026607 4 615110353520 (EPP3 PR6|15110,N*) 615110 353(1) 1 0 1 00
DBG(2464648760523)> CPU TRACE: 00310:026610 4 300000353520 (EPP3 PR3|0,N*) 300000 353(1) 1 0 1 00
DBG(2464648760525)> CPU TRACE: 00310:026611 4 600146253500 (SPRI3 PR6|146) 600146 253(1) 1 0 0 00
DBG(2464648760527)> CPU TRACE: 00310:026612 4 601375236100 (LDQ PR6|1375) 601375 236(0) 1 0 0 00
DBG(2464648760529)> CPU TRACE: 00310:026613 4 601346056100 (ASQ PR6|1346) 601346 056(0) 1 0 0 00
DBG(2464648760529)> CPU TRACE: Add36b op1 000000000000 op2 000000000025 carryin 0 flagsToSet 740000 flags 400200 ovf 0
DBG(2464648760529)> CPU TRACE: Add36b res 000000000025 flags 000200 ovf 0
DBG(2464648760531)> CPU TRACE: 00310:026614 4 601346236100 (LDQ PR6|1346) 601346 236(0) 1 0 0 00
DBG(2464648760533)> CPU TRACE: 00310:026615 4 000001176007 (SBQ 000001,DL) 000001 176(0) 0 0 0 07
DBG(2464648760535)> CPU TRACE: 00310:026616 4 601353756100 (STQ PR6|1353) 601353 756(0) 1 0 0 00
:

                                                            STATEMENT 1 ON LINE 6251
          entry_pos (program_number) = entry_pos (program_number) + number_of_constants;
017125  aa  6 00207 2361 00   ldq       pr6|135             program_number
017126  aa   000013 4020 07   mpy       11,dl
017127  aa   000000 6250 06   eax5      0,ql
017130  aa  6 01375 2361 00   ldq       pr6|765             number_of_constants
017131  aa  6 01553 0561 15   asq       pr6|875,5           subprogram.entry_pos
                                                            STATEMENT 1 ON LINE 6252
          entry_pt = addrel (output_pointer, entry_pos (program_number));

017132  aa  6 01553 2361 15   ldq       pr6|875,5           subprogram.entry_pos
017133  aa  3 00000 5075 06   awd       pr3|0,ql
017134  aa  6 00156 2535 00   spri3     pr6|110             entry_pt
                                                            STATEMENT 1 ON LINE 6253
          if program_number = 1
          then main_pt = addr (entry_pt -> basic_entry.word_1);

017135  aa  6 17366 7451 00   stx5      pr6|7926
017136  aa  6 00207 2361 00   ldq       pr6|135             program_number
017137  aa   000001 1160 07   cmpq      1,dl
017140  aa   000003 6010 04   tnz       3,ic                017143

DBG(2464648760539)> CPU TRACE: 00310:026620 4 000013402007 (MPY 000013,DL) 000013 402(0) 0 0 0 07
DBG(2464648760541)> CPU TRACE: 00310:026621 4 000000625006 (EAX5 000000,QL) 000000 625(0) 0 0 0 06
DBG(2464648760543)> CPU TRACE: 00310:026622 4 601375236100 (LDQ PR6|1375) 601375 236(0) 1 0 0 00
DBG(2464648760545)> CPU TRACE: 00310:026623 4 601553056115 (ASQ PR6|1553,5) 601553 056(0) 1 0 0 15
DBG(2464648760545)> CPU TRACE: Add36b op1 000000000000 op2 000000000016 carryin 0 flagsToSet 740000 flags 500200 ovf 0
DBG(2464648760545)> CPU TRACE: Add36b res 000000000016 flags 000200 ovf 0
DBG(2464648760547)> CPU TRACE: 00310:026624 4 601553236115 (LDQ PR6|1553,5) 601553 236(0) 1 0 0 15
DBG(2464648760549)> CPU TRACE: 00310:026625 4 300000507506 (AWD PR3|0,QL) 300000 507(1) 0 0 0 06
DBG(2464648760551)> CPU TRACE: 00310:026626 4 600156253500 (SPRI3 PR6|156) 600156 253(1) 1 0 0 00
DBG(2464648760553)> CPU TRACE: 00310:026627 4 600207236100 (LDQ PR6|207) 600207 236(0) 1 0 0 00
DBG(2464648760555)> CPU TRACE: 00310:026630 4 000001116007 (CMPQ 000001,DL) 000001 116(0) 0 0 0 07
DBG(2464648760557)> CPU TRACE: 00310:026631 4 617362745100 (STX5 PR6|17362) 617362 745(0) 1 0 0 00
DBG(2464648760559)> CPU TRACE: 00310:026632 4 000003601004 (TNZ 000003,IC) 000003 601(0) 0 0 0 04
DBG(2464648760561)> CPU TRACE: 00310:026633 4 300001351500 (EPP1 PR3|1) 300001 351(1) 1 0 0 00
DBG(2464648760563)> CPU TRACE: 00310:026634 4 600142251500 (SPRI1 PR6|142) 600142 251(1) 1 0 0 00
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License