CAC 2017-01-20.1

basic_runtime

ENTRY TO default                                            STATEMENT 1 ON LINE 1520
default:  entry(mc_ptr,name,co_ptr,info_ptr,continue);

005267  at     000005000567
005270  tt     000563000567
005271  tt     000567000562
005272  ta     005267000000
005273  da     000512300000
005274  aa   006060 6270 00   eax7      3120
005275  aa  7 00034 3521 20   epp2      pr7|28,*
005276  aa  2 01046 2721 00   tsp2      pr2|550             ext_entry_desc
005277  aa     000012000000
005300  aa     000000000000
005301  aa  6 00042 3735 20   epp7      pr6|34,*
005302  aa  7 00002 2361 20   ldq       pr7|2,*
005303  aa   000002 6040 04   tmi       2,ic                005305
005304  aa   777777 3760 07   anq       262143,dl
005305  aa  0 00250 3761 00   anq       pr0|168             = 000077777777
005306  aa  6 03502 7561 00   stq       pr6|1858

DBG(288034347860589)> CPU TRACE: 00313:006301 4 006060627000 (EAX7 006060) 006060 627(0) 0 0 0 00
DBG(288034347860591)> CPU TRACE: 00313:006302 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(288034347860593)> CPU TRACE: 00313:006303 4 201045272100 (TSP2 PR2|1045) 201045 272(0) 1 0 0 00

          p1 = cu_$stack_frame_ptr() -> arglist_ptr;

005307  aa  6 03460 3521 00   epp2      pr6|1840
005310  aa  6 03420 2521 00   spri2     pr6|1808
005311  aa  6 03416 6211 00   eax1      pr6|1806
005312  aa   004000 4310 07   fld       2048,dl
005313  aa  6 00044 3701 20   epp4      pr6|36,*
005314  la  4 00210 3521 20   epp2      pr4|136,*           cu_$stack_frame_ptr
005315  aa  0 00623 7001 00   tsx0      pr0|403             call_ext_out
005316  aa  6 03460 3735 20   epp7      pr6|1840,*
005317  aa  7 00032 3735 20   epp7      pr7|26,*            basic_operators_frame.arglist_ptr
005320  aa  6 00102 6535 00   spri7     pr6|66              p1

DBG(288034345698758)> CPU TRACE: 00313:012574 4 603460373520 (EPP7 PR6|3460,N*) 603460 373(1) 1 0 1 00
DBG(288034345698760)> CPU TRACE: 00313:012575 4 700032373520 (EPP7 PR7|32,N*) 700032 373(1) 1 0 1 00
DBG(288034345698762)> CPU TRACE: 00313:012576 4 600102653500 (SPRI7 PR6|102) 600102 653(1) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1540
          bo_pt = p1 -> arglist.arg_ptr(p1 -> arglist.arg_count + 1);

005321  aa  7 00000 2351 00   lda       pr7|0               arglist.arg_count
005322  aa   000067 7330 00   lrs       55
005323  aa   000001 7360 00   qls       1
005324  aa  7 00002 3715 26   epp5      pr7|2,ql*           arglist.arg_ptr
005325  aa  6 00100 6515 00   spri5     pr6|64              bo_pt

DBG(288034345698764)> CPU TRACE: 00313:012577 4 700000235100 (LDA PR7|0) 700000 235(0) 1 0 0 00
DBG(288034345698766)> CPU TRACE: 00313:012600 4 000067733000 (LRS 000067) 000067 733(0) 0 0 0 00
DBG(288034345698768)> CPU TRACE: 00313:012601 4 000001736000 (QLS 000001) 000001 736(0) 0 0 0 00
DBG(288034345698770)> CPU TRACE: 00313:012602 4 700002371526 (EPP5 PR7|2,QL*) 700002 371(1) 1 0 1 06
DBG(288034345698772)> CPU TRACE: 00313:012603 4 600100651500 (SPRI5 PR6|100) 600100 651(1) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1542
          if ignore_handler then go to refuse;

005326  aa  5 00170 2351 00   lda       pr5|120             basic_operators_frame.ignore_handler
005327  aa   020000 3150 03   cana      8192,du
005330  aa   000070 6010 04   tnz       56,ic               005420

DBG(288034345698774)> CPU TRACE: 00313:012604 4 500170235100 (LDA PR5|170) 500170 235(0) 1 0 0 00
DBG(288034345698776)> CPU TRACE: 00313:012605 4 020000315003 (CANA 020000,DU) 020000 315(0) 0 0 0 03
DBG(288034345698778)> CPU TRACE: 00313:012606 4 000070601004 (TNZ 000070,IC) 000070 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1543
          cond = name;

005331  aa  6 00032 3535 20   epp3      pr6|26,*
005332  aa  3 00004 3515 20   epp1      pr3|4,*
005333  aa  6 03502 2361 00   ldq       pr6|1858
005334  aa  040 100 100 540   mlr       (pr,rl),(pr),fill(040)
005335  aa  1 00000 00 0006   desc9a    pr1|0,ql            name
005336  aa  6 02360 00 0040   desc9a    pr6|1264,32         cond

DBG(288034345698780)> CPU TRACE: 00313:012607 4 600032353520 (EPP3 PR6|32,N*) 600032 353(1) 1 0 1 00
DBG(288034345698782)> CPU TRACE: 00313:012610 4 300004351520 (EPP1 PR3|4,N*) 300004 351(1) 1 0 1 00
DBG(288034345698784)> CPU TRACE: 00313:012611 4 603502236100 (LDQ PR6|3502) 603502 236(0) 1 0 0 00
DBG(288034345698786)> CPU TRACE: 00313:012612 4 040100100540 (MLR PR0|40100,F1) 040100 100(1) 0 0 0 00

                                                            STATEMENT 1 ON LINE 1545
          if cond = "error"
          then do;

005337  aa  040 004 106 500   cmpc      (pr),(ic),fill(040)
005340  aa  6 02360 00 0040   desc9a    pr6|1264,32         cond
005341  aa   773261 00 0005   desc9a    -2383,5             000620 = 145162162157
005342  aa   000073 6010 04   tnz       59,ic               005435

DBG(288034345698788)> CPU TRACE: 00313:012615 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(288034345698790)> CPU TRACE: 00313:012620 4 000073601004 (TNZ 000073,IC) 000073 601(0) 0 0 0 04

          if have_conversion_label
          then do;

005435  aa  5 00056 2351 00   lda       pr5|46              have_conversion_label
005436  aa   000023 6000 04   tze       19,ic               005461

DBG(288034345698792)> CPU TRACE: 00313:012713 4 500056235100 (LDA PR5|56) 500056 235(0) 1 0 0 00
DBG(288034345698794)> CPU TRACE: 00313:012714 4 000023600004 (TZE 000023,IC) 000023 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1574
          if have_size_label
          then do;

005461  aa  5 00062 2351 00   lda       pr5|50              have_size_label
005462  aa   000015 6000 04   tze       13,ic               005477

DBG(288034345698796)> CPU TRACE: 00313:012737 4 500062235100 (LDA PR5|62) 500062 235(0) 1 0 0 00
DBG(288034345698798)> CPU TRACE: 00313:012740 4 000015600004 (TZE 000015,IC) 000015 600(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1580
          if cond = "overflow"
          then do;
005477  aa  040 004 106 500   cmpc      (pr),(ic),fill(040)
005500  aa  6 02360 00 0040   desc9a    pr6|1264,32         cond
005501  aa   773117 00 0010   desc9a    -2481,8             000616 = 157166145162
005502  aa   000025 6010 04   tnz       21,ic               005527

DBG(288034345698800)> CPU TRACE: 00313:012755 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(288034345698802)> CPU TRACE: 00313:012760 4 000025601004 (TNZ 000025,IC) 000025 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1592
          if cond = "zerodivide"
          then do;

005527  aa  040 004 106 500   cmpc      (pr),(ic),fill(040)
005530  aa  6 02360 00 0040   desc9a    pr6|1264,32         cond
005531  aa   773122 00 0012   desc9a    -2478,10            000651 = 172145162157
005532  aa   000014 6010 04   tnz       12,ic               005546

DBG(288034345698804)> CPU TRACE: 00313:013005 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(288034345698806)> CPU TRACE: 00313:013010 4 000014601004 (TNZ 000014,IC) 000014 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1598
          if cond = "underflow"
          then do;

005546  aa  040 004 106 500   cmpc      (pr),(ic),fill(040)
005547  aa  6 02360 00 0040   desc9a    pr6|1264,32         cond
005550  aa   773106 00 0011   desc9a    -2490,9             000654 = 165156144145
005551  aa   000020 6010 04   tnz       16,ic               005571

DBG(288034345698808)> CPU TRACE: 00313:013024 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(288034345698810)> CPU TRACE: 00313:013027 4 000020601004 (TNZ 000020,IC) 000020 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1614
          if cond = "lockup"
          then do;

005571  aa  040 004 106 500   cmpc      (pr),(ic),fill(040)
005572  aa  6 02360 00 0040   desc9a    pr6|1264,32         cond
005573  aa   773023 00 0006   desc9a    -2541,6             000614 = 154157143153
005574  aa   000031 6010 04   tnz       25,ic               005625

DBG(288034345698812)> CPU TRACE: 00313:013047 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(288034345698814)> CPU TRACE: 00313:013052 4 000031601004 (TNZ 000031,IC) 000031 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1616
               mcp = mc_ptr;

005575  aa  3 00002 3735 20   epp7      pr3|2,*             mc_ptr
005576  aa  7 00000 3735 20   epp7      pr7|0,*             mc_ptr
005577  aa  6 02354 6535 00   spri7     pr6|1260            mcp

DBG(288034345698816)> CPU TRACE: 00313:013053 4 300002373520 (EPP7 PR3|2,N*) 300002 373(1) 1 0 1 00
DBG(288034345698818)> CPU TRACE: 00313:013054 4 700000373520 (EPP7 PR7|0,N*) 700000 373(1) 1 0 1 00
DBG(288034345698820)> CPU TRACE: 00313:013055 4 602354653500 (SPRI7 PR6|2354) 602354 653(1) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1617
               scup = addr(mc.scu);

005600  aa  7 00030 3515 00   epp1      pr7|24              mc.scu^L005601  aa  6 02356 2515 00   spri1     pr6|1262            scup
                                                            STATEMENT 1 ON LINE 1619
               if baseno(program_header) ^= "000"b || scu.psr then goto refuse;

005602  aa  1 00000 2351 00   lda       pr1|0               scu.psr
005603  aa   000003 7350 00   als       3
005604  aa  0 00036 3771 00   anaq      pr0|30              = 777770000000 000000000000
005605  aa   000003 7710 00   arl       3
005606  aa  6 03424 7551 00   sta       pr6|1812
005607  aa  5 00102 2131 20   epaq      pr5|66,*            basic_operators_frame.program_header
005610  aa   077777 3750 03   ana       32767,du
005611  aa  6 03424 1151 00   cmpa      pr6|1812
005612  aa   777606 6010 04   tnz       -122,ic             005420

DBG(288034345698822)> CPU TRACE: 00313:013056 4 700030351500 (EPP1 PR7|30) 700030 351(1) 1 0 0 00
DBG(288034345698824)> CPU TRACE: 00313:013057 4 602356251500 (SPRI1 PR6|2356) 602356 251(1) 1 0 0 00
DBG(288034345698826)> CPU TRACE: 00313:013060 4 100000235100 (LDA PR1|0) 100000 235(0) 1 0 0 00
DBG(288034345698828)> CPU TRACE: 00313:013061 4 000003735000 (ALS 000003) 000003 735(0) 0 0 0 00
DBG(288034345698830)> CPU TRACE: 00313:013062 4 000036377100 (ANAQ PR0|36) 000036 377(0) 1 0 0 00
DBG(288034345698832)> CPU TRACE: 00313:013063 4 000003771000 (ARL 000003) 000003 771(0) 0 0 0 00
DBG(288034345698834)> CPU TRACE: 00313:013064 4 603424755100 (STA PR6|3424) 603424 755(0) 1 0 0 00
DBG(288034345698836)> CPU TRACE: 00313:013065 4 500102213120 (EPAQ PR5|102,N*) 500102 213(0) 1 0 1 00
DBG(288034345698838)> CPU TRACE: 00313:013066 4 077777375003 (ANA 077777,DU) 077777 375(0) 0 0 0 03
DBG(288034345698840)> CPU TRACE: 00313:013067 4 603424115100 (CMPA PR6|3424) 603424 115(0) 1 0 0 00
DBG(288034345698842)> CPU TRACE: 00313:013070 4 777606601004 (TNZ 777606,IC) 777606 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1621
               loc = fixed(scu.ilc,18);

005613  aa  1 00004 2351 00   lda       pr1|4               scu.ilc
005614  aa   000066 7730 00   lrl       54
005615  aa  6 00267 7561 00   stq       pr6|183             loc
                                                            STATEMENT 1 ON LINE 1622
               call error_print(126);

005616  aa   000176 2360 07   ldq       126,dl
005617  aa  6 03424 7561 00   stq       pr6|1812
005620  aa   014372 3520 04   epp2      6394,ic             022212 = 000002000000
005621  aa   001233 6700 04   tsp4      667,ic              007054

DBG(288034345698844)> CPU TRACE: 00313:013071 4 100004235100 (LDA PR1|4) 100004 235(0) 1 0 0 00
DBG(288034345698846)> CPU TRACE: 00313:013072 4 000066773000 (LRL 000066) 000066 773(0) 0 0 0 00
DBG(288034345698848)> CPU TRACE: 00313:013073 4 600267756100 (STQ PR6|267) 600267 756(0) 1 0 0 00
DBG(288034345698850)> CPU TRACE: 00313:013074 4 000176236007 (LDQ 000176,DL) 000176 236(0) 0 0 0 07
DBG(288034345698852)> CPU TRACE: 00313:013075 4 603424756100 (STQ PR6|3424) 603424 756(0) 1 0 0 00
DBG(288034345698854)> CPU TRACE: 00313:013076 4 014372352004 (EPP2 014372,IC) 014372 352(0) 0 0 0 04
DBG(288034345698856)> CPU TRACE: 00313:013077 4 001233670004 (TSP4 001233,IC) 001233 670(0) 0 0 0 04

ENTRY TO error_print                                        STATEMENT 1 ON LINE 1967
error_print:   entry(num);

007054  aa  6 02452 6501 00   spri4     pr6|1322
007055  aa  6 02454 2521 00   spri2     pr6|1324
                                                            STATEMENT 1 ON LINE 1969
               ln = obtain_line_number();

007056  aa   013052 3520 04   epp2      5674,ic             022130 = 000002000000
007057  aa   000012 6700 04   tsp4      10,ic               007071
                                                            STATEMENT 1 ON LINE 1970^L               goto com;

007060  aa   777405 7100 04   tra       -251,ic             006465

DBG(288034345698858)> CPU TRACE: 00313:014332 4 602452650100 (SPRI4 PR6|2452) 602452 650(0) 1 0 0 00
DBG(288034345698860)> CPU TRACE: 00313:014333 4 602454252100 (SPRI2 PR6|2454) 602454 252(0) 1 0 0 00
DBG(288034345698862)> CPU TRACE: 00313:014334 4 013052352004 (EPP2 013052,IC) 013052 352(0) 0 0 0 04
DBG(288034345698864)> CPU TRACE: 00313:014335 4 000012670004 (TSP4 000012,IC) 000012 670(0) 0 0 0 04
<skip obtain line number>
DBG(288034345698954)> CPU TRACE: 00313:014336 4 777405710004 (TRA 777405,IC) 777405 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1921
com:           save_file_number = file_number;

006465  aa  6 00100 3735 20   epp7      pr6|64,*            bo_pt
006466  aa  7 00147 2351 00   lda       pr7|103             basic_operators_frame.file_number
006467  aa   000022 7350 00   als       18
006470  aa   000066 7330 00   lrs       54
006471  aa  6 02461 7561 00   stq       pr6|1329            save_file_number
                                                            STATEMENT 1 ON LINE 1922
               save_fcb_pt = fcb_pt;

006472  aa  7 00110 3715 20   epp5      pr7|72,*            basic_operators_frame.fcb_pt
006473  aa  6 02464 6515 00   spri5     pr6|1332            save_fcb_pt
                                                            STATEMENT 1 ON LINE 1924
               file_number = 0;

006474  aa   000000 2350 03   lda       0,du
006475  aa  7 00147 5511 14   stba      pr7|103,14          basic_operators_frame.file_number

DBG(288034345698956)> CPU TRACE: 00313:013743 4 600100373520 (EPP7 PR6|100,N*) 600100 373(1) 1 0 1 00
DBG(288034345698958)> CPU TRACE: 00313:013744 4 700147235100 (LDA PR7|147) 700147 235(0) 1 0 0 00
DBG(288034345698960)> CPU TRACE: 00313:013745 4 000022735000 (ALS 000022) 000022 735(0) 0 0 0 00
DBG(288034345698962)> CPU TRACE: 00313:013746 4 000066733000 (LRS 000066) 000066 733(0) 0 0 0 00
DBG(288034345698964)> CPU TRACE: 00313:013747 4 602461756100 (STQ PR6|2461) 602461 756(0) 1 0 0 00
DBG(288034345698966)> CPU TRACE: 00313:013750 4 700110371520 (EPP5 PR7|110,N*) 700110 371(1) 1 0 1 00
DBG(288034345698968)> CPU TRACE: 00313:013751 4 602464651500 (SPRI5 PR6|2464) 602464 651(1) 1 0 0 00
DBG(288034345698970)> CPU TRACE: 00313:013752 4 000000235003 (LDA 000000,DU) 000000 235(0) 0 0 0 03
DBG(288034345698972)> CPU TRACE: 00313:013753 4 700147551114 (STBA PR7|147,4) 700147 551(0) 1 0 0 14

                                                            STATEMENT 1 ON LINE 1925
               fcb_pt = fcb(0);

006476  aa  7 00126 7631 00   lprp3     pr7|86              basic_operators_frame.fcb
006477  aa  7 00110 2535 00   spri3     pr7|72              basic_operators_frame.fcb_pt
                                                            STATEMENT 1 ON LINE 1927
               if last_operation = print_op
               then if line_pos ^= 0
                    then call print_new_line;

006500  aa  3 00014 2361 00   ldq       pr3|12              basic_fcb.last_operation
006501  aa   000005 1160 07   cmpq      5,dl
006502  aa   000004 6010 04   tnz       4,ic                006506
006503  aa  3 00010 2361 00   ldq       pr3|8               basic_fcb.line_pos
006504  aa   000002 6000 04   tze       2,ic                006506
006505  aa   002312 6700 04   tsp4      1226,ic             011017

DBG(288034345698974)> CPU TRACE: 00313:013754 4 700126763100 (LPRP3 PR7|126) 700126 763(0) 1 0 0 00
DBG(288034345698976)> CPU TRACE: 00313:013755 4 700110253500 (SPRI3 PR7|110) 700110 253(1) 1 0 0 00
DBG(288034345698978)> CPU TRACE: 00313:013756 4 300014236100 (LDQ PR3|14) 300014 236(0) 1 0 0 00
DBG(288034345698980)> CPU TRACE: 00313:013757 4 000005116007 (CMPQ 000005,DL) 000005 116(0) 0 0 0 07
DBG(288034345698982)> CPU TRACE: 00313:013760 4 000004601004 (TNZ 000004,IC) 000004 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1931
               file_number = save_file_number;

006506  aa  6 02461 2361 00   ldq       pr6|1329            save_file_number
006507  aa  6 00100 3735 20   epp7      pr6|64,*            bo_pt
006510  aa  7 00147 5521 14   stbq      pr7|103,14          basic_operators_frame.file_number
                                                            STATEMENT 1 ON LINE 1932
               fcb_pt = save_fcb_pt;

006511  aa  6 02464 3715 20   epp5      pr6|1332,*          save_fcb_pt
006512  aa  7 00110 6515 00   spri5     pr7|72              basic_operators_frame.fcb_pt
                                                            STATEMENT 1 ON LINE 1934
               error_number = abs(num);

006513  aa  6 02454 3535 20   epp3      pr6|1324,*
006514  aa  3 00002 2361 20   ldq       pr3|2,*             num
006515  aa   000003 6050 04   tpl       3,ic                006520
006516  aa  0 00110 6761 00   erq       pr0|72              = 777777777777
006517  aa   000001 0760 07   adq       1,dl
006520  aa  7 00150 7561 00   stq       pr7|104             basic_operators_frame.error_number

DBG(288034345698984)> CPU TRACE: 00313:013764 4 602461236100 (LDQ PR6|2461) 602461 236(0) 1 0 0 00
DBG(288034345698986)> CPU TRACE: 00313:013765 4 600100373520 (EPP7 PR6|100,N*) 600100 373(1) 1 0 1 00
DBG(288034345698988)> CPU TRACE: 00313:013766 4 700147552114 (STBQ PR7|147,4) 700147 552(0) 1 0 0 14
DBG(288034345698990)> CPU TRACE: 00313:013767 4 602464371520 (EPP5 PR6|2464,N*) 602464 371(1) 1 0 1 00
DBG(288034345698992)> CPU TRACE: 00313:013770 4 700110651500 (SPRI5 PR7|110) 700110 651(1) 1 0 0 00
DBG(288034345698994)> CPU TRACE: 00313:013771 4 602454353520 (EPP3 PR6|2454,N*) 602454 353(1) 1 0 1 00
DBG(288034345698996)> CPU TRACE: 00313:013772 4 300002236120 (LDQ PR3|2,N*) 300002 236(0) 1 0 1 00
DBG(288034345698998)> CPU TRACE: 00313:013773 4 000003605004 (TPL 000003,IC) 000003 605(0) 0 0 0 04
DBG(288034345699000)> CPU TRACE: 00313:013776 4 700150756100 (STQ PR7|150) 700150 756(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1936
               et = index_block(error_number).sev;

006521  aa   000003 4020 07   mpy       3,dl
006522  aa  6 00044 3701 20   epp4      pr6|36,*
006523  la  4 00276 3515 20   epp1      pr4|190,*
006524  aa  1 00001 2361 06   ldq       pr1|1,ql            message_overlay.sev
006525  aa  6 02462 7561 00   stq       pr6|1330            et
                                                            STATEMENT 1 ON LINE 1937
               main = et = 4 | main_program;

006526  aa  7 00170 2351 00   lda       pr7|120             basic_operators_frame.main_program
006527  aa   000001 7350 00   als       1
006530  aa  0 00002 3771 00   anaq      pr0|2               = 400000000000 000000000000
006531  aa  6 03533 7551 00   sta       pr6|1883            basic_operators_frame.main_program
006532  aa  6 02462 2361 00   ldq       pr6|1330            et
006533  aa   000004 1160 07   cmpq      4,dl
006534  aa  0 00512 7001 00   tsx0      pr0|330             r_e_as
006535  aa  6 03533 2751 00   ora       pr6|1883            basic_operators_frame.main_program
006536  aa  6 02463 7551 00   sta       pr6|1331            main

DBG(288034345699002)> CPU TRACE: 00313:013777 4 000003402007 (MPY 000003,DL) 000003 402(0) 0 0 0 07
DBG(288034345699004)> CPU TRACE: 00313:014000 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(288034345699006)> CPU TRACE: 00313:014001 4 400274351520 (EPP1 PR4|274,N*) 400274 351(1) 1 0 1 00
DBG(288034345699008)> CPU TRACE: 00313:014002 4 100001236106 (LDQ PR1|1,QL) 100001 236(0) 1 0 0 06
DBG(288034345699010)> CPU TRACE: 00313:014003 4 602462756100 (STQ PR6|2462) 602462 756(0) 1 0 0 00
DBG(288034345699012)> CPU TRACE: 00313:014004 4 700170235100 (LDA PR7|170) 700170 235(0) 1 0 0 00
DBG(288034345699014)> CPU TRACE: 00313:014005 4 000001735000 (ALS 000001) 000001 735(0) 0 0 0 00
DBG(288034345699016)> CPU TRACE: 00313:014006 4 000002377100 (ANAQ PR0|2) 000002 377(0) 1 0 0 00
DBG(288034345699018)> CPU TRACE: 00313:014007 4 603533755100 (STA PR6|3533) 603533 755(0) 1 0 0 00
DBG(288034345699020)> CPU TRACE: 00313:014010 4 602462236100 (LDQ PR6|2462) 602462 236(0) 1 0 0 00
DBG(288034345699022)> CPU TRACE: 00313:014011 4 000004116007 (CMPQ 000004,DL) 000004 116(0) 0 0 0 07
DBG(288034345699024)> CPU TRACE: 00313:014012 4 000512700100 (TSX0 PR0|512) 000512 700(0) 1 0 0 00
DBG(288034345699030)> CPU TRACE: TRA 00313:014013
DBG(288034345699032)> CPU TRACE: 00313:014013 4 603533275100 (ORA PR6|3533) 603533 275(0) 1 0 0 00
DBG(288034345699034)> CPU TRACE: 00313:014014 4 602463755100 (STA PR6|2463) 602463 755(0) 1 0 0 00

                                                            STATEMENT 1 ON LINE 1939
               if main
               then if num < 0 then ev = ioa_$nnl;

006537  aa   000015 6000 04   tze       13,ic               006554
006540  aa  3 00002 2361 20   ldq       pr3|2,*             num
006541  aa   000006 6050 04   tpl       6,ic                006547
006542  la  4 00162 3521 20   epp2      pr4|114,*           ioa_$nnl
006543  aa  6 02466 2521 00   spri2     pr6|1334            ev
006544  aa   013452 2370 04   ldaq      5930,ic             022216 = 077777000043 000001000000
006545  aa  6 02470 7571 00   staq      pr6|1336            ev
006546  aa   000012 7100 04   tra       10,ic               006560
                                                            STATEMENT 2 ON LINE 1940
 else ev = ioa_;

006547  la  4 00160 3521 20   epp2      pr4|112,*           ioa_
006550  aa  6 02466 2521 00   spri2     pr6|1334            ev
006551  aa   013445 2370 04   ldaq      5925,ic             022216 = 077777000043 000001000000
006552  aa  6 02470 7571 00   staq      pr6|1336            ev
006553  aa   000005 7100 04   tra       5,ic                006560

DBG(288034345699036)> CPU TRACE: 00313:014015 4 000015600004 (TZE 000015,IC) 000015 600(0) 0 0 0 04
DBG(288034345699038)> CPU TRACE: 00313:014016 4 300002236120 (LDQ PR3|2,N*) 300002 236(0) 1 0 1 00
DBG(288034345699040)> CPU TRACE: 00313:014017 4 000006605004 (TPL 000006,IC) 000006 605(0) 0 0 0 04
DBG(288034345699042)> CPU TRACE: 00313:014025 4 400300352120 (EPP2 PR4|300,N*) 400300 352(0) 1 0 1 00
DBG(288034345699044)> CPU TRACE: 00313:014026 4 602466252100 (SPRI2 PR6|2466) 602466 252(0) 1 0 0 00
DBG(288034345699046)> CPU TRACE: 00313:014027 4 013445237004 (LDAQ 013445,IC) 013445 237(0) 0 0 0 04
DBG(288034345699048)> CPU TRACE: 00313:014030 4 602470757100 (STAQ PR6|2470) 602470 757(0) 1 0 0 00
DBG(288034345699050)> CPU TRACE: 00313:014031 4 000005710004 (TRA 000005,IC) 000005 710(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1943
               if et = 3
               then do;

006560  aa  6 02462 2361 00   ldq       pr6|1330            et
006561  aa   000003 1160 07   cmpq      3,dl
006562  aa   000031 6010 04   tnz       25,ic               006613

DBG(288034345699052)> CPU TRACE: 00313:014036 4 602462236100 (LDQ PR6|2462) 602462 236(0) 1 0 0 00
DBG(288034345699054)> CPU TRACE: 00313:014037 4 000003116007 (CMPQ 000003,DL) 000003 116(0) 0 0 0 07
DBG(288034345699056)> CPU TRACE: 00313:014040 4 000031601004 (TNZ 000031,IC) 000031 601(0) 0 0 0 04

                                                            STATEMENT 1 ON LINE 1945
                    if file_number ^= 0 then call ioa_$nnl("File ""^a"": ",file_name);

006563  aa  7 00147 2351 00   lda       pr7|103             basic_operators_frame.file_number^L006564  aa   000022 7350 00   als       18
006565  aa   000066 7330 00   lrs       54
006566  aa   000023 6000 04   tze       19,ic               006611
006567  aa   772054 2350 04   lda       -3028,ic            000643 = 106151154145
006570  aa   772054 2360 04   ldq       -3028,ic            000644 = 040042136141
006571  aa  6 03534 7571 00   staq      pr6|1884
006572  aa   772053 2350 04   lda       -3029,ic            000645 = 042072040000
006573  aa  6 03536 7551 00   sta       pr6|1886
006574  aa  6 03534 3521 00   epp2      pr6|1884
006575  aa  6 03542 2521 00   spri2     pr6|1890
006576  aa  7 00110 3515 20   epp1      pr7|72,*            basic_operators_frame.fcb_pt
006577  aa  1 00020 3521 00   epp2      pr1|16              basic_fcb.file_name

006600  aa  6 03544 2521 00   spri2     pr6|1892
006601  aa   771741 3520 04   epp2      -3103,ic            000542 = 524000000013
006602  aa  6 03546 2521 00   spri2     pr6|1894
006603  aa   771727 3520 04   epp2      -3113,ic            000532 = 524000000250
006604  aa  6 03550 2521 00   spri2     pr6|1896
006605  aa  6 03540 6211 00   eax1      pr6|1888
006606  aa   010000 4310 07   fld       4096,dl
006607  la  4 00162 3521 20   epp2      pr4|114,*           ioa_$nnl
006610  aa  0 00622 7001 00   tsx0      pr0|402             call_ext_out_desc

DBG(288034345699058)> CPU TRACE: 00313:014041 4 700147235100 (LDA PR7|147) 700147 235(0) 1 0 0 00
DBG(288034345699060)> CPU TRACE: 00313:014042 4 000022735000 (ALS 000022) 000022 735(0) 0 0 0 00
DBG(288034345699062)> CPU TRACE: 00313:014043 4 000066733000 (LRS 000066) 000066 733(0) 0 0 0 00
DBG(288034345699064)> CPU TRACE: 00313:014044 4 000023600004 (TZE 000023,IC) 000023 600(0) 0 0 0 04
DBG(288034345699066)> CPU TRACE: 00313:014045 4 772056235004 (LDA 772056,IC) 772056 235(0) 0 0 0 04
DBG(288034345699068)> CPU TRACE: 00313:014046 4 772056236004 (LDQ 772056,IC) 772056 236(0) 0 0 0 04
DBG(288034345699070)> CPU TRACE: 00313:014047 4 603534757100 (STAQ PR6|3534) 603534 757(0) 1 0 0 00
DBG(288034345699072)> CPU TRACE: 00313:014050 4 772055235004 (LDA 772055,IC) 772055 235(0) 0 0 0 04
DBG(288034345699074)> CPU TRACE: 00313:014051 4 603536755100 (STA PR6|3536) 603536 755(0) 1 0 0 00
DBG(288034345699076)> CPU TRACE: 00313:014052 4 603534352100 (EPP2 PR6|3534) 603534 352(0) 1 0 0 00
DBG(288034345699078)> CPU TRACE: 00313:014053 4 603542252100 (SPRI2 PR6|3542) 603542 252(0) 1 0 0 00
DBG(288034345699080)> CPU TRACE: 00313:014054 4 700110351520 (EPP1 PR7|110,N*) 700110 351(1) 1 0 1 00
DBG(288034345699082)> CPU TRACE: 00313:014055 4 100020352100 (EPP2 PR1|20) 100020 352(0) 1 0 0 00
DBG(288034345699084)> CPU TRACE: 00313:014056 4 603544252100 (SPRI2 PR6|3544) 603544 252(0) 1 0 0 00
DBG(288034345699086)> CPU TRACE: 00313:014057 4 771743352004 (EPP2 771743,IC) 771743 352(0) 0 0 0 04
DBG(288034345699088)> CPU TRACE: 00313:014060 4 603546252100 (SPRI2 PR6|3546) 603546 252(0) 1 0 0 00
DBG(288034345699090)> CPU TRACE: 00313:014061 4 771731352004 (EPP2 771731,IC) 771731 352(0) 0 0 0 04
DBG(288034345699092)> CPU TRACE: 00313:014062 4 603550252100 (SPRI2 PR6|3550) 603550 252(0) 1 0 0 00
DBG(288034345699094)> CPU TRACE: 00313:014063 4 603540621100 (EAX1 PR6|3540) 603540 621(0) 1 0 0 00
DBG(288034345699096)> CPU TRACE: 00313:014064 4 010000431007 (FLD 010000,DL) 010000 431(0) 0 0 0 07
DBG(288034345699098)> CPU TRACE: 00313:014065 4 400276352120 (EPP2 PR4|276,N*) 400276 352(0) 1 0 1 00
DBG(288034345699100)> CPU TRACE: 00313:014066 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License