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
page revision: 1, last edited: 20 Jan 2017 17:07