pascal
Program Hello (Input, Output)
000000 ta 000050000000
000001 da 000037300000
000002 aa 000000371404
DBG(131046871)> CPU TRACE: 00377:000002 4 000000371404 (EPP5 000000,IC) 000000 371(1) 0 0 0 04
000003 aa 7 00050 3521 20 epp2 pr7|40,*
DBG(131046873)> CPU TRACE: 00377:000003 4 700050352120 (EPP2 PR7|50,N*) 700050 352(0) 1 0 1 00
000004 aa 2 00010 3521 20 epp2 pr2|8,*
DBG(131046875)> CPU TRACE: 00377:000004 4 200010352120 (EPP2 PR2|10,N*) 200010 352(0) 1 0 1 00
DBG(131046875)> CPU FAULT: Fault 24(030), sub 0(00), dfc N, 'RI_MOD: IT_F2 (0)'
DBG(131206905)> CPU TRACE: 00377:000004 4 005304352120 (EPP2 PR0|5304,N*) 005304 352(0) 1 0 1 00
000005 aa 560000 2360 07 ldq 188416,dl
DBG(131206907)> CPU TRACE: 00377:000005 4 560000236007 (LDQ 560000,DL) 560000 236(0) 0 0 0 07
000006 aa 000140 6270 00 eax7 96
DBG(131206909)> CPU TRACE: 00377:000006 4 000140627000 (EAX7 000140) 000140 627(0) 0 0 0 00
000007 aa 2 00117 2731 00 tsp3 pr2|79 MAIN_entry
DBG(131206911)> CPU TRACE: 00377:000007 4 200117273100 (TSP3 PR2|117) 200117 273(0) 1 0 0 00
000010 aa 000000000000
000011 ls 000010000135
000012 la 4 00014 3535 20 epp3 pr4|12,* input
DBG(131206959)> CPU TRACE: 00377:000012 4 400014353520 (EPP3 PR4|14,N*) 400014 353(1) 1 0 1 00
DBG(131206959)> CPU FAULT: Fault 24(030), sub 0(00), dfc N, 'RI_MOD: IT_F2 (0)'
DBG(131244023)> CPU TRACE: 00377:000012 4 027620353520 (EPP3 PR0|27620,N*) 027620 353(1) 1 0 1 00
000013 aa 6 00104 2535 00 spri3 pr6|68
DBG(131244025)> CPU TRACE: 00377:000013 4 600104253500 (SPRI3 PR6|104) 600104 253(1) 1 0 0 00
000014 .a 0 00013 2731 00 tsp3 pr0|11 RESET_file
DBG(131244027)> CPU TRACE: 00377:000014 4 000013273100 (TSP3 PR0|13) 000013 273(0) 1 0 0 00
000015 aa 4 00002 3535 20 epp3 pr4|2,* output
DBG(131306509)> CPU TRACE: 00377:000015 4 400002353520 (EPP3 PR4|2,N*) 400002 353(1) 1 0 1 00
DBG(131306509)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(131307967)> CPU TRACE: 00377:000015 4 000377353520 (EPP3 PR0|377,N*) 000377 353(1) 1 0 1 00
000016 aa 6 00104 2535 00 spri3 pr6|68
DBG(131307969)> CPU TRACE: 00377:000016 4 600104253500 (SPRI3 PR6|104) 600104 253(1) 1 0 0 00
000017 .a 0 00014 2731 00 tsp3 pr0|12 REWRITE
DBG(131307969)> CPU REGDUMPPR: PR0/ap: SNR=00373 RNR=4 WORDNO=000036 BITNO:00
DBG(131307971)> CPU TRACE: 00377:000017 4 000014273100 (TSP3 PR0|14) 000014 273(0) 1 0 0 00
373 >system_library_unbundled>bound_pascal_runtime_
Error: pascal_error condition by >udd>r0>Anthony>hello|17 (line 1)
PASCAL file status block is inconsistent
pascal_io_$REWRITE: Error during REWRITE on Pascal sequential file \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000
Track segment 0373
000052 0a 001052 7100 00 342 tra REWRITE_call 12
DBG(131300855)> CPU TRACE: 00373:000052 4 001052710000 (TRA 001052) 001052 710(0) 0 0 0 00
001052 1342 REWRITE_call:
001052 4a 4 00026 3515 20 1343 epp1 <pascal_io_>|[REWRITE] PL/1 entry point
001053 aa 6 00114 6521 00 1344 spri6 6|io_stack_frame_ptr
001054 0a 003156 7100 00 1345 tra common_op_call
DBG(131300857)> CPU TRACE: 00373:001052 4 032125351400 (EPP1 032125) 032125 351(1) 0 0 0 00
3720 " Common call sequence for PL1/subroutines used by
3721 " operators. (arglist is allways at the same place)
3722 "
3723 "
003156 3724 common_op_call:
003156 aa 6 00030 2501 00 3725 spri0 6|stack_frame.operator_ptr
003157 aa 6 00024 2535 00 3726 spri3 6|stack_frame.return_ptr
003160 aa 6 00104 3521 00 3727 epp2 6|arg_1
003161 aa 6 00102 2521 00 3728 spri2 6|arg_ptr
003162 0a 000430 2370 00 3729 ldaq one_arg_header
003163 aa 6 00100 7571 00 3730 staq 6|arg_header
003164 aa 6 00100 3501 00 3731 epp0 6|arg_header
003165 aa 6 00000 3731 00 3732 epbp7 6|0
003166 aa 1 00000 7131 00 3733 call6 1|0
DBG(131300863)> CPU TRACE: 00373:003156 4 600030250100 (SPRI0 PR6|30) 600030 250(0) 1 0 0 00
DBG(131300865)> CPU TRACE: 00373:003157 4 600024253500 (SPRI3 PR6|24) 600024 253(1) 1 0 0 00
DBG(131300867)> CPU TRACE: 00373:003160 4 600104352100 (EPP2 PR6|104) 600104 352(0) 1 0 0 00
DBG(131300869)> CPU TRACE: 00373:003161 4 600102252100 (SPRI2 PR6|102) 600102 252(0) 1 0 0 00
DBG(131300871)> CPU TRACE: 00373:003162 4 000430237000 (LDAQ 000430) 000430 237(0) 0 0 0 00
DBG(131300873)> CPU TRACE: 00373:003163 4 600100757100 (STAQ PR6|100) 600100 757(0) 1 0 0 00
DBG(131300875)> CPU TRACE: 00373:003164 4 600100350100 (EPP0 PR6|100) 600100 350(0) 1 0 0 00
DBG(131300877)> CPU TRACE: 00373:003165 4 600000373100 (EPBP7 PR6|0) 600000 373(0) 1 0 0 00
DBG(131300879)> CPU TRACE: 00373:003166 4 100000713100 (CALL6 PR1|0) 100000 713(0) 1 0 0 00
REWRITE: entry (io_parameters) options (support);
006027 ta 003565000000
006030 da 001363300000
006031 aa 002660 6270 00 eax7 1456
006032 aa 7 00034 3521 20 epp2 pr7|28,*
006033 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry
006034 aa 000002000000
006035 aa 000000000000
006036 aa 0 01372 7001 00 tsx0 pr0|762 set_support
006037 aa 775511 7000 04 tsx0 -1207,ic 003550
DBG(131300881)> CPU TRACE: 00373:032125 4 002660627000 (EAX7 002660) 002660 627(0) 0 0 0 00
DBG(131300883)> CPU TRACE: 00373:032126 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(131300885)> CPU TRACE: 00373:032127 4 201045272100 (TSP2 PR2|1045) 201045 272(0) 1 0 0 00
DBG(131300929)> CPU TRACE: 00373:032132 4 001372700100 (TSX0 PR0|1372) 001372 700(0) 1 0 0 00
DBG(131300939)> CPU TRACE: 00373:032133 4 775511700004 (TSX0 775511,IC) 775511 700(0) 0 0 0 04
DBG(131300941)> CPU TRACE: 00373:027644 4 601377440100 (SXL0 PR6|1377) 601377 440(0) 1 0 0 00
DBG(131300943)> CPU TRACE: 00373:027645 4 600500450100 (STZ PR6|500) 600500 450(0) 1 0 0 00
DBG(131300945)> CPU TRACE: 00373:027646 4 601377720100 (LXL0 PR6|1377) 601377 720(0) 1 0 0 00
DBG(131300947)> CPU TRACE: 00373:027647 4 000000710010 (TRA 000000,0) 000000 710(0) 0 0 0 10
call check_on_open;
006040 aa 017765 6700 04 tsp4 8181,ic 026025
STATEMENT 1 ON LINE 767
DBG(131300949)> CPU TRACE: 00373:032134 4 017765670004 (TSP4 017765,IC) 017765 670(0) 0 0 0 04
ENTRY TO check_on_open STATEMENT 1 ON LINE 2696^Lcheck_on_open: proc;
026025 aa 6 01304 6501 00 spri4 pr6|708
DBG(131300951)> CPU TRACE: 00373:052121 4 601304650100 (SPRI4 PR6|1304) 601304 650(0) 1 0 0 00
fsb_ptr = block_ptr;
026026 aa 6 00032 3735 20 epp7 pr6|26,*
026027 aa 7 00002 3715 20 epp5 pr7|2,* io_parameters.block_ptr
026030 aa 5 00000 3715 20 epp5 pr5|0,* io_parameters.block_ptr
026031 aa 6 01252 6515 00 spri5 pr6|682 fsb_ptr
DBG(131300953)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(131300955)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(131300957)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(131300959)> CPU TRACE: 00373:052125 4 601252651500 (SPRI5 PR6|1252) 601252 651(1) 1 0 0 00
sp = stack_frame_ptr;
026032 aa 7 00002 3535 20 epp3 pr7|2,*
026033 aa 3 00010 3515 20 epp1 pr3|8,* io_parameters.stack_frame_ptr
026034 aa 6 01254 2515 00 spri1 pr6|684 sp
STATEMENT 1 ON LINE 2700
DBG(131300961)> CPU TRACE: 00373:052126 4 700002353520 (EPP3 PR7|2,N*) 700002 353(1) 1 0 1 00
DBG(131300963)> CPU TRACE: 00373:052127 4 300010351520 (EPP1 PR3|10,N*) 300010 351(1) 1 0 1 00
DBG(131300965)> CPU TRACE: 00373:052130 4 601254251500 (SPRI1 PR6|1254) 601254 251(1) 1 0 0 00
value_ptr = addr (two_words_value);
026035 aa 3 00002 3715 00 epp5 pr3|2 io_parameters.two_words_value
026036 aa 6 00676 6515 00 spri5 pr6|446 value_ptr
STATEMENT 1 ON LINE 2701
DBG(131300967)> CPU TRACE: 00373:052131 4 300002371500 (EPP5 PR3|2) 300002 371(1) 1 0 0 00
DBG(131300969)> CPU TRACE: 00373:052132 4 600676651500 (SPRI5 PR6|676) 600676 651(1) 1 0 0 00
switch_name = get_switch_name (fsb_ptr);
026037 aa 6 01252 3521 00 epp2 pr6|682 fsb_ptr
026040 aa 6 02300 2521 00 spri2 pr6|1216
026041 aa 6 00502 3521 00 epp2 pr6|322 switch_name
026042 aa 6 02302 2521 00 spri2 pr6|1218
026043 aa 6 02276 6211 00 eax1 pr6|1214
026044 aa 010000 4310 07 fld 4096,dl
026045 aa 001271 3520 04 epp2 697,ic 027336 = 000120627000
026046 aa 0 00625 7001 00 tsx0 pr0|405 call_int_this
DBG(131300971)> CPU TRACE: 00373:052133 4 601252352100 (EPP2 PR6|1252) 601252 352(0) 1 0 0 00
DBG(131300973)> CPU TRACE: 00373:052134 4 602300252100 (SPRI2 PR6|2300) 602300 252(0) 1 0 0 00
DBG(131300975)> CPU TRACE: 00373:052135 4 600502352100 (EPP2 PR6|502) 600502 352(0) 1 0 0 00
DBG(131300977)> CPU TRACE: 00373:052136 4 602302252100 (SPRI2 PR6|2302) 602302 252(0) 1 0 0 00
DBG(131300979)> CPU TRACE: 00373:052137 4 602276621100 (EAX1 PR6|2276) 602276 621(0) 1 0 0 00
DBG(131300981)> CPU TRACE: 00373:052140 4 010000431007 (FLD 010000,DL) 010000 431(0) 0 0 0 07
DBG(131300983)> CPU TRACE: 00373:052141 4 001271352004 (EPP2 001271,IC) 001271 352(0) 0 0 0 04
DBG(131300985)> CPU TRACE: 00373:052142 4 000625700100 (TSX0 PR0|625) 000625 700(0) 1 0 0 00
BEGIN PROCEDURE get_switch_name
ENTRY TO get_switch_name STATEMENT 1 ON LINE 2869^Lget_switch_name: proc (fsbp) returns (char (32));
027335 da 002100220000
027336 aa 000120 6270 00 eax7 80
027337 aa 7 00034 3521 20 epp2 pr7|28,*
027340 aa 2 01047 2721 00 tsp2 pr2|551 int_entry
027341 aa 000004000000
027342 aa 000000000000
027343 aa 0 01372 7001 00 tsx0 pr0|762 set_support
STATEMENT 1 ON LINE 2873
DBG(131301005)> CPU TRACE: 00373:053432 4 000120627000 (EAX7 000120) 000120 627(0) 0 0 0 00
DBG(131301007)> CPU TRACE: 00373:053433 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(131301009)> CPU TRACE: 00373:053434 4 201047272100 (TSP2 PR2|1047) 201047 272(0) 1 0 0 00
DBG(131301061)> CPU TRACE: 00373:053437 4 001372700100 (TSX0 PR0|1372) 001372 700(0) 1 0 0 00
if fsbp -> permanent_file then do;
027344 aa 6 00032 3735 20 epp7 pr6|26,*
027345 aa 7 00002 3715 20 epp5 pr7|2,* fsbp
027346 aa 5 00000 3715 20 epp5 pr5|0,* fsbp
027347 aa 5 00001 2351 00 lda pr5|1 pascal_fsb.permanent_file
027350 aa 004000 3150 07 cana 2048,dl
027351 aa 000060 6000 04 tze 48,ic 027431
STATEMENT 1 ON LINE 2874
DBG(131301071)> CPU TRACE: 00373:053440 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(131301073)> CPU TRACE: 00373:053441 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(131301075)> CPU TRACE: 00373:053442 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(131301077)> CPU TRACE: 00373:053443 4 500001235100 (LDA PR5|1) 500001 235(0) 1 0 0 00
DBG(131301079)> CPU TRACE: 00373:053444 4 004000315007 (CANA 004000,DL) 004000 315(0) 0 0 0 07
DBG(131301081)> CPU TRACE: 00373:053445 4 000060600004 (TZE 000060,IC) 000060 600(0) 0 0 0 04
else
return ("pascal_file_" || unique_chars_ ((fsbp -> uid)));
027431 aa 5 00044 2351 00 lda pr5|36 pascal_fsb.uid
027432 aa 5 00045 2361 00 ldq pr5|37 pascal_fsb.uid
027433 aa 6 00100 7571 00 staq pr6|64
027434 aa 6 00100 3521 00 epp2 pr6|64
027435 aa 6 00110 2521 00 spri2 pr6|72
027436 aa 6 00102 3521 00 epp2 pr6|66
027437 aa 6 00112 2521 00 spri2 pr6|74
027440 aa 750714 3520 04 epp2 -11828,ic 000354 = 514000000106
027441 aa 6 00114 2521 00 spri2 pr6|76
027442 aa 751022 3520 04 epp2 -11758,ic 000464 = 526000000017
027443 aa 6 00116 2521 00 spri2 pr6|78
027444 aa 6 00106 6211 00 eax1 pr6|70
027445 aa 010000 4310 07 fld 4096,dl
027446 la 4 00210 3521 20 epp2 pr4|136,* unique_chars_
027447 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc
027450 aa 000033 2360 07 ldq 27,dl
027451 aa 0 00551 7001 00 tsx0 pr0|361 alloc_char_temp
027452 aa 040 100 100 404 mlr (ic),(pr),fill(040)
027453 aa 751050 00 0014 desc9a -11736,12 000522 = 160141163143
027454 aa 2 00000 00 0014 desc9a pr2|0,12
027455 aa 040 100 100 500 mlr (pr),(pr),fill(040)
027456 aa 6 00102 00 0017 desc9a pr6|66,15
027457 aa 2 00003 00 0017 desc9a pr2|3,15
027460 aa 6 00032 3735 20 epp7 pr6|26,*
027461 aa 7 00004 3715 20 epp5 pr7|4,*
027462 aa 040 100 100 500 mlr (pr),(pr),fill(040)
027463 aa 2 00000 00 0033 desc9a pr2|0,27
027464 aa 5 00000 00 0040 desc9a pr5|0,32
027465 aa 0 00631 7101 00 tra pr0|409 return_mac
DBG(131301083)> CPU TRACE: 00373:053525 4 500044235100 (LDA PR5|44) 500044 235(0) 1 0 0 00
DBG(131301085)> CPU TRACE: 00373:053526 4 500045236100 (LDQ PR5|45) 500045 236(0) 1 0 0 00
DBG(131301087)> CPU TRACE: 00373:053527 4 600100757100 (STAQ PR6|100) 600100 757(0) 1 0 0 00
DBG(131301089)> CPU TRACE: 00373:053530 4 600100352100 (EPP2 PR6|100) 600100 352(0) 1 0 0 00
DBG(131301091)> CPU TRACE: 00373:053531 4 600110252100 (SPRI2 PR6|110) 600110 252(0) 1 0 0 00
DBG(131301093)> CPU TRACE: 00373:053532 4 600102352100 (EPP2 PR6|102) 600102 352(0) 1 0 0 00
DBG(131301095)> CPU TRACE: 00373:053533 4 600112252100 (SPRI2 PR6|112) 600112 252(0) 1 0 0 00
DBG(131301097)> CPU TRACE: 00373:053534 4 750714352004 (EPP2 750714,IC) 750714 352(0) 0 0 0 04
DBG(131301099)> CPU TRACE: 00373:053535 4 600114252100 (SPRI2 PR6|114) 600114 252(0) 1 0 0 00
DBG(131301101)> CPU TRACE: 00373:053536 4 751022352004 (EPP2 751022,IC) 751022 352(0) 0 0 0 04
DBG(131301103)> CPU TRACE: 00373:053537 4 600116252100 (SPRI2 PR6|116) 600116 252(0) 1 0 0 00
DBG(131301105)> CPU TRACE: 00373:053540 4 600106621100 (EAX1 PR6|106) 600106 621(0) 1 0 0 00
DBG(131301107)> CPU TRACE: 00373:053541 4 010000431007 (FLD 010000,DL) 010000 431(0) 0 0 0 07
DBG(131301109)> CPU TRACE: 00373:053542 4 410120352120 (EPP2 PR4|10120,N*) 410120 352(0) 1 0 1 00
DBG(131301109)> CPU FAULT: Fault 24(030), sub 0(00), dfc N, 'RI_MOD: IT_F2 (0)'
DBG(131309865)> CPU TRACE: 00373:053542 4 047366352120 (EPP2 PR0|47366,N*) 047366 352(0) 1 0 1 00
DBG(131309867)> CPU TRACE: 00373:053543 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00
DBG(131310319)> CPU TRACE: 00373:053544 4 000033236007 (LDQ 000033,DL) 000033 236(0) 0 0 0 07
DBG(131310321)> CPU TRACE: 00373:053545 4 000551700100 (TSX0 PR0|551) 000551 700(0) 1 0 0 00
DBG(131310371)> CPU TRACE: 00373:053546 4 040100100404 (MLR 040100,IC) 040100 100(1) 0 0 0 00
DBG(131310373)> CPU TRACE: 00373:053551 4 040100100500 (MLR PR0|40100) 040100 100(1) 0 0 0 00
DBG(131310375)> CPU TRACE: 00373:053554 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(131310377)> CPU TRACE: 00373:053555 4 700004371520 (EPP5 PR7|4,N*) 700004 371(1) 1 0 1 00
DBG(131310379)> CPU TRACE: 00373:053556 4 040100100500 (MLR PR0|40100) 040100 100(1) 0 0 0 00
DBG(131310381)> CPU TRACE: 00373:053561 4 000631710100 (TRA PR0|631) 000631 710(0) 1 0 0 00
back to:
switch_name = get_switch_name (fsb_ptr);
STATEMENT 1 ON LINE 2703
if standard_file = "0"b then do;
026047 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
026050 aa 7 00001 2351 00 lda pr7|1 pascal_fsb.standard_file
026051 aa 000020 3150 07 cana 16,dl
026052 aa 000050 6010 04 tnz 40,ic 026122
STATEMENT 1 ON LINE 2705
DBG(131310399)> CPU TRACE: 00373:052143 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(131310401)> CPU TRACE: 00373:052144 4 700001235100 (LDA PR7|1) 700001 235(0) 1 0 0 00
DBG(131310403)> CPU TRACE: 00373:052145 4 000020315007 (CANA 000020,DL) 000020 315(0) 0 0 0 07
DBG(131310405)> CPU TRACE: 00373:052146 4 000050601004 (TNZ 000050,IC) 000050 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2705
if owner_stack ^= null then
if (baseno (owner_stack) ^= baseno (sp)) | (rel (owner_stack) > rel (sp)) then do;
026053 aa 7 00002 2371 00 ldaq pr7|2 pascal_fsb.owner_stack
026054 aa 752444 6770 04 eraq -10972,ic 000520 = 077777000043 000001000000
026055 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077
026056 aa 000022 6000 04 tze 18,ic 026100
026057 aa 6 01254 2131 20 epaq pr6|684,* sp
026060 aa 077777 3750 03 ana 32767,du
026061 aa 6 02275 7551 00 sta pr6|1213
026062 aa 7 00002 2131 20 epaq pr7|2,* pascal_fsb.owner_stack
026063 aa 077777 3750 03 ana 32767,du
026064 aa 6 02275 1151 00 cmpa pr6|1213
026065 aa 000007 6010 04 tnz 7,ic 026074
026066 aa 6 01254 6351 20 eaa pr6|684,* sp
026067 aa 6 02275 7551 00 sta pr6|1213
026070 aa 7 00002 6351 20 eaa pr7|2,* pascal_fsb.owner_stack
026071 aa 6 02275 1151 00 cmpa pr6|1213
026072 aa 000006 6020 04 tnc 6,ic 026100
026073 aa 000005 6000 04 tze 5,ic 026100
DBG(131310407)> CPU TRACE: 00373:052147 4 700002237100 (LDAQ PR7|2) 700002 237(0) 1 0 0 00
DBG(131310409)> CPU TRACE: 00373:052150 4 752444677004 (ERAQ 752444,IC) 752444 677(0) 0 0 0 04
DBG(131310411)> CPU TRACE: 00373:052151 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(131310413)> CPU TRACE: 00373:052152 4 000022600004 (TZE 000022,IC) 000022 600(0) 0 0 0 04
DBG(131310415)> CPU TRACE: 00373:052153 4 601254213120 (EPAQ PR6|1254,N*) 601254 213(0) 1 0 1 00
DBG(131310417)> CPU TRACE: 00373:052154 4 077777375003 (ANA 077777,DU) 077777 375(0) 0 0 0 03
DBG(131310419)> CPU TRACE: 00373:052155 4 602275755100 (STA PR6|2275) 602275 755(0) 1 0 0 00
DBG(131310421)> CPU TRACE: 00373:052156 4 700002213120 (EPAQ PR7|2,N*) 700002 213(0) 1 0 1 00
DBG(131310423)> CPU TRACE: 00373:052157 4 077777375003 (ANA 077777,DU) 077777 375(0) 0 0 0 03
DBG(131310425)> CPU TRACE: 00373:052160 4 602275115100 (CMPA PR6|2275) 602275 115(0) 1 0 0 00
DBG(131310427)> CPU TRACE: 00373:052161 4 000007601004 (TNZ 000007,IC) 000007 601(0) 0 0 0 04
code = pascal_error_table_$bad_fsb;
026074 aa 6 00044 3701 20 epp4 pr6|36,*
026075 la 4 00230 2361 20 ldq pr4|152,* pascal_error_table_$bad_fsb
026076 aa 6 00500 7561 00 stq pr6|320 code
DBG(131310429)> CPU TRACE: 00373:052170 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(131310431)> CPU TRACE: 00373:052171 4 400144236100 (LDQ PR4|144) 400144 236(0) 1 0 0 00
DBG(131310433)> CPU TRACE: 00373:052172 4 600500756100 (STQ PR6|500) 600500 756(0) 1 0 0 00
STATEMENT 1 ON LINE 2708
return;
026077 aa 6 01304 6101 00 rtcd pr6|708
DBG(131310435)> CPU TRACE: 00373:052173 4 601304610100 (RTCD PR6|1304) 601304 610(0) 1 0 0 00
Back to rewrite:
STATEMENT 1 ON LINE 767
if code ^= 0 then go to error_while_REWRITE;
006041 aa 6 00500 2361 00 ldq pr6|320 code
006042 aa 000121 6010 04 tnz 81,ic 006163
DBG(131310437)> CPU TRACE: 00373:032135 4 600500236100 (LDQ PR6|500) 600500 236(0) 1 0 0 00
DBG(131310439)> CPU TRACE: 00373:032136 4 000121601004 (TNZ 000121,IC) 000121 601(0) 0 0 0 04
STATEMENT 1 ON LINE 789^Lerror_while_REWRITE:
call ioa_$rsnnl ("^/pascal_io_$REWRITE: Error during REWRITE on Pascal ^[text^;sequential^] file ^a",
pascal_operators_statics_$error_info.string, string_length, file_is_text = 1, file_name);
In "check_on_open the "if standard_file = "0"b" is taking the ==0 branch; I would have thought that Output was a standard file.
The get_switch_name permanent_file check seems wrong as well, start there:
BEGIN PROCEDURE get_switch_name
ENTRY TO get_switch_name STATEMENT 1 ON LINE 2869^Lget_switch_name: proc (fsbp) returns (char (32));
027335 da 002100220000
027336 aa 000120 6270 00 eax7 80
027337 aa 7 00034 3521 20 epp2 pr7|28,*
027340 aa 2 01047 2721 00 tsp2 pr2|551 int_entry
027341 aa 000004000000
027342 aa 000000000000
027343 aa 0 01372 7001 00 tsx0 pr0|762 set_support
STATEMENT 1 ON LINE 2873
DBG(131301005)> CPU TRACE: 00373:053432 4 000120627000 (EAX7 000120) 000120 627(0) 0 0 0 00
DBG(131301007)> CPU TRACE: 00373:053433 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(131301009)> CPU TRACE: 00373:053434 4 201047272100 (TSP2 PR2|1047) 201047 272(0) 1 0 0 00
DBG(131301061)> CPU TRACE: 00373:053437 4 001372700100 (TSX0 PR0|1372) 001372 700(0) 1 0 0 00
if fsbp -> permanent_file then do;
027344 aa 6 00032 3735 20 epp7 pr6|26,*
027345 aa 7 00002 3715 20 epp5 pr7|2,* fsbp
027346 aa 5 00000 3715 20 epp5 pr5|0,* fsbp
027347 aa 5 00001 2351 00 lda pr5|1 pascal_fsb.permanent_file
027350 aa 004000 3150 07 cana 2048,dl
027351 aa 000060 6000 04 tze 48,ic 027431
STATEMENT 1 ON LINE 2874
DBG(131301071)> CPU TRACE: 00373:053440 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(131301073)> CPU TRACE: 00373:053441 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(131301075)> CPU TRACE: 00373:053442 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(131301077)> CPU TRACE: 00373:053443 4 500001235100 (LDA PR5|1) 500001 235(0) 1 0 0 00
DBG(131301079)> CPU TRACE: 00373:053444 4 004000315007 (CANA 004000,DL) 004000 315(0) 0 0 0 07
DBG(131301081)> CPU TRACE: 00373:053445 4 000060600004 (TZE 000060,IC) 000060 600(0) 0 0 0 04
else
return ("pascal_file_" || unique_chars_ ((fsbp -> uid)));
1 13 dcl fsb_ptr ptr;
1 14
1 15 dcl 1 pascal_fsb based (fsb_ptr) aligned,/* PASCAL FILE STATUS BLOCK */
1 16 2 allocated_size fixed bin (35), /* size in words (=0 if not allocated by operators) */
1 17 2 next_element bit (18) unal, /* offset of next fsb in array */
1 18 2 global_flags unal,
1 19 3 pad bit (1) unal,
1 20 3 reset_break_all bit (1) unal, /* set if mode breakall set by call to breakall_on */
1 21 3 break_all_mode bit (1) unal, /* = 1 if file in break_all_mode */
1 22 3 standard_file_used bit (1) unal, /* =1 if used (standard_files only) */
1 23 3 interactive_file bit (1) unal, /* =1 if file was open in interactive mode */
1 24 3 array_of_file bit (1) unal, /* = 1 if element of array */
1 25 3 permanent_file bit (1) unal, /* = 1 if permanent file */
1 26 3 static_file bit (1) unal, /* = 1 if static file */
1 27 3 local_file bit (1) unal, /* = 1 if local file */
1 28 3 get_next_char bit (1) unal, /* = 1 if next char to read */
1 29 3 attached_by_fconnect bit (1) unal, /* = 1 if attached by fconnect */
1 30 3 vfile_switch bit (1) unal, /* = 1 if input is a segment */
1 31 3 file_created bit (1) unal, /* (if local_file = 1) = 1 if temp seg created */
1 32 3 standard_file bit (1) unal, /* =1 if standard input or output */
1 33 3 fsb_is_chained bit (1) unal, /* =1 if fsb is chained */
1 34 3 line_is_complete bit (1) unal, /* if = 1 then end of line is in the buffer */
1 35 3 file_is_open bit (1) unal, /* pascal open indicator */
1 36 3 last_line bit (1) unal, /* if = 1 last line is in the buffer */
1 37 2 owner_stack ptr, /* ptr to the stack frame of the owner */
1 38 2 eof fixed bin (35), /* end of file if ^= 0 (PASCAL EOF) */
1 39 2 file_status fixed bin (35), /* opening mode (internal pascal_code_) */
1 40 2 rec_length fixed bin (21), /* record length (length of the PASCAL WINDOW) */
1 41 2 SOL_fstatus fixed bin (35), /* */
1 42 2 system_ptr ptr, /* ptr to the MULTICS iocb */
1 43 2 file_name char (32), /* PASCAL file name */
1 44 2 record_counter fixed bin (35), /* nbre of read/written records/lines */
1 45 2 SOL_fpos fixed bin (35),
1 46 2 SOL_fsize fixed bin (35),
1 47 2 SOL_fllength fixed bin (35),
1 48 2 owner_link ptr, /* ptr to link section of owner */
1 49 2 owner_symbol ptr, /* ptr to symbol section of owner */
1 50 2 file_is_text fixed bin (35), /* if ^= 0 then PASCAL TEXT file */
1 51 2 eoln fixed bin (35), /* TEXT file EOLN if ^= 0 */
1 52 2 buff_index fixed bin (21), /* index in the TEXT file internal io buffer */
1 53 2 buff_max fixed bin (21), /* length of usefull info in the TEXT file internal input buffer *
/
1 54 2 buff_len fixed bin (21), /* length of the TEXT file internal io buffer */
1 55 2 multics_error_code fixed bin (35), /* last Multics error code (if non zero) */
1 56 2 next_fsb_ptr ptr, /* ptr to the next fsb */
1 57 2 reserved_2 (2) fixed bin (35), /* (future use) */
1 58 2 uid bit (70), /* unique id of fsb */^L 1 59 2 window char (0 refer (rec_length)) unal; /* PASCAL WINDOW */
1 60
027347 aa 5 00001 2351 00 lda pr5|1 pascal_fsb.permanent_file
027350 aa 004000 3150 07 cana 2048,dl
DBG(131301077)> CPU TRACE: 00373:053443 4 500001235100 (LDA PR5|1) 500001 235(0) 1 0 0 00
DBG(131301077)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=76372001 readData=776000000000
DBG(131301077)> CPU REGDUMPAQI: A=776000000000 Q=053435000000 IR:~BAR Neg
DBG(131301077)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=000000 BITNO:00
337 >process_dir_dir>!zzzzzzzbBBBBBB>!BBBKKFCFHngBnd.area.linker
Segment 337, offset 0 seems plausable.
776000000000 would be: be next_element 776000, flags = 0; less plausible.
Assuming PR5 is not pointing at the right place; where did it come from?
DBG(131301073)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=012172 BITNO:00
DBG(131301075)> CPU TRACE: 00373:053442 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(131301075)> CPU APPENDING: doPtrReg(): PR[5] SNR=00234 RNR=4 WORDNO=012172 BITNO=00
DBG(131301075)> CPU APPENDING: doPtrReg(): n=5 offset=00000 TPR.CA=012172 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(131301075)> CPU ADDRMOD: doComputedAddressFormation(Entry): operType:prepareCA TPR.CA=012172
DBG(131301075)> CPU ADDRMOD: doComputedAddressFormation(startCA): TAG=20(n*) Tm=20 Td=0
DBG(131301075)> CPU ADDRMOD: RI_MOD: Td=0
DBG(131301075)> CPU ADDRMOD: updateIWB: IWB was 500000371520 500000 n*
DBG(131301075)> CPU ADDRMOD: updateIWB: IWB now 012172371520 012172 n*
DBG(131301075)> CPU APPENDING: doAppendCycle(Entry) thisCycle=INDIRECT_WORD_FETCH
DBG(131301075)> CPU APPENDING: doAppendCycle(Entry) Address=012172
DBG(131301075)> CPU APPENDING: doAppendCycle(Entry) PPR.PRR=4 PPR.PSR=00373
DBG(131301075)> CPU APPENDING: doAppendCycle(Entry) TPR.TRR=4 TPR.TSR=00234
DBG(131301075)> CPU APPENDING: doAppendCycle(H:FAP): (00234:012172) finalAddress=67062172
DBG(131301075)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67062172 readData=000337400043
DBG(131301075)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67062173 readData=000000000000
337:0
Where did the offset of 0 come from?
DBG(131300959)> CPU TRACE: 00373:052125 4 601252651500 (SPRI5 PR6|1252) 601252 651(1) 1 0 0 00
fsb_ptr = block_ptr;
026026 aa 6 00032 3735 20 epp7 pr6|26,*
026027 aa 7 00002 3715 20 epp5 pr7|2,* io_parameters.block_ptr
026030 aa 5 00000 3715 20 epp5 pr5|0,* io_parameters.block_ptr
026031 aa 6 01252 6515 00 spri5 pr6|682 fsb_ptr
DBG(131300953)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(131300955)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(131300955)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
DBG(131300957)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(131300957)> CPU APPENDING: doPtrReg(): PR[5] SNR=00234 RNR=4 WORDNO=010664 BITNO=00
DBG(131300957)> CPU APPENDING: doPtrReg(): n=5 offset=00000 TPR.CA=010664 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(131300957)> CPU ADDRMOD: doComputedAddressFormation(Entry): operType:prepareCA TPR.CA=010664
DBG(131300957)> CPU ADDRMOD: doComputedAddressFormation(startCA): TAG=20(n*) Tm=20 Td=0
DBG(131300957)> CPU ADDRMOD: RI_MOD: Td=0
DBG(131300957)> CPU ADDRMOD: updateIWB: IWB was 500000371520 500000 n*
DBG(131300957)> CPU ADDRMOD: updateIWB: IWB now 010664371520 010664 n*
DBG(131300957)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=000000 BITNO:00
DBG(131300959)> CPU TRACE: 00373:052125 4 601252651500 (SPRI5 PR6|1252) 601252 651(1) 1 0 0 00
DBG(131300959)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67062172 writeData=000337400043
DBG(131300959)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67062173 writeData=000000000000
Looking at pascal_operators_statics_.cds
dcl i fixed bin;
dcl code fixed bin (35);
dcl 1 my_args like cds_args;
dcl com_err_ entry options (variable);
dcl create_data_segment_ entry (ptr, fixed bin (35));
dcl buffer_length fixed bin (21) int static options (constant) init (256);
dcl (addr, null, size) builtin;
dcl 1 operators_statics,
2 first_file_ptr ptr,
2 INPUT,
3 tff like text_fsb_fix,
3 input_buffer char (buffer_length),
2 pad_ptr_1 ptr, /* dword boundary ! */
2 OUTPUT,
3 tff like text_fsb_fix,
3 output_buffer char (buffer_length),
2 pad_ptr_2 ptr, /* dword boundary ! */
pli >unb>bound_pascal_runtime_
Object Text Defs Link Symb Static
Start 0 0 146126 153024 163340 153034
Length 171142 146126 4676 10314 5566 7712
segname: pascal_operators_statics_
link|654 ENTREE
link|1200 ERREUR
link|502 ERROR
link|156 INPUT
link|330 OUTPUT
link|1026 SORTIE
link|1347 error_info
So OUTPUT link should be at 153024+330 = 153354
66 /* parameter structure for the different entry_points */
67
68 dcl 1 io_parameters aligned,
69 2 block_ptr ptr, /* ptr to the file_status_block of the file */
70 2 two_words_value bit (72), /* depends on the entry point : ptr or value */
71 2 type_ fixed bin (35), /* type_ of the value (READ WRITE) */
72 2 io_length fixed bin (21), /* output length for the value (WRITE) */
73 2 size_ fixed bin (21), /* internal size_ of the value (WRITE string or record) */
74 /* or nbr of digits after the point (WRITE real float dec) */
75 2 dim fixed bin (35), /* dimension (>1 if array of file) (for init_fsb op) */
76 2 stack_frame_ptr ptr, /* ptr to the stack_frame of the calling procedure */
77 2 linkage_header_ptr ptr; /* ptr to linkage of caller */
fsb_ptr = block_ptr;
026026 aa 6 00032 3735 20 epp7 pr6|26,*
026027 aa 7 00002 3715 20 epp5 pr7|2,* io_parameters.block_ptr
026030 aa 5 00000 3715 20 epp5 pr5|0,* io_parameters.block_ptr
026031 aa 6 01252 6515 00 spri5 pr6|682 fsb_ptr
DBG(131300953)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(131300953)> CPU APPENDING: doPtrReg(): PR[6] SNR=00234 RNR=4 WORDNO=010720 BITNO=00
DBG(131300953)> CPU APPENDING: doPtrReg(): n=6 offset=00032 TPR.CA=010752 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(131300953)> CPU ADDRMOD: doComputedAddressFormation(Entry): operType:prepareCA TPR.CA=010752
DBG(131300953)> CPU ADDRMOD: doComputedAddressFormation(startCA): TAG=20(n*) Tm=20 Td=0
DBG(131300953)> CPU ADDRMOD: RI_MOD: Td=0
DBG(131300953)> CPU ADDRMOD: updateIWB: IWB was 600032373520 600032 n*
DBG(131300953)> CPU ADDRMOD: updateIWB: IWB now 010752373520 010752 n*
DBG(131300953)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67014752 readData=000234400043
DBG(131300953)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67014753 readData=010660000000
DBG(131300953)> CPU APPENDING: doITS/ITP: YPair= 000234400043 010660000000
DBG(131300953)> CPU APPENDING: ITS Pair: SEGNO=234 RN=4 WORDNO=10660 BITNO=0 MOD=0
DBG(131300953)> CPU APPENDING: ITS Pair Ring: RN 4 RSDWH_R1 4 TRR 4 max 4
DBG(131300953)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010660 BITNO:00
234 >process_dir_dir>!zzzzzzzbBBBBBB>stack_4
stack_4
pr7 points to stack_4, offset 010660; seems plausible
DBG(131300955)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(131300955)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
Picked up a pointer to io_parameters at pr7[2]; points to pr7[4]; seems plausible.
DBG(131300957)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(131300957)> CPU APPENDING: doPtrReg(): PR[5] SNR=00234 RNR=4 WORDNO=010664 BITNO=00
DBG(131300957)> CPU APPENDING: doPtrReg(): n=5 offset=00000 TPR.CA=010664 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(131300957)> CPU ADDRMOD: doComputedAddressFormation(Entry): operType:prepareCA TPR.CA=010664
DBG(131300957)> CPU ADDRMOD: doComputedAddressFormation(startCA): TAG=20(n*) Tm=20 Td=0
DBG(131300957)> CPU ADDRMOD: RI_MOD: Td=0
DBG(131300957)> CPU ADDRMOD: updateIWB: IWB was 500000371520 500000 n*
DBG(131300957)> CPU ADDRMOD: updateIWB: IWB now 010664371520 010664 n*
DBG(131300957)> CPU APPENDING: ITS Pair: SEGNO=337 RN=4 WORDNO=0 BITNO=0 MOD=0
DBG(131300957)> CPU APPENDING: ITS Pair Ring: RN 4 RSDWH_R1 4 TRR 4 max 4
DBG(131300957)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=000000 BITNO:00
fsb_ptr is 0337:0; seems wrong.
It is looking like the issue is in the init call, not the rewrite call.
Looking at MAIN_entry in pascal_operators_
" entry operators for MAIN and exportable procedures
" --------------------------------------------------
"
" assumed that: (Multics convention)
" PR0 -> parameter list
" PR6 -> stack frame of the calling procedure
" PR7 -> stack header
"
" calling sequence:
" epp5 0,ic entry point addr
" epp2 7|stack_header.trans_op_tv_ptr MUST BE SECOND WORD (for TRACE)
" epp2 2|8,* to get ptr to pascal operators
" ldq [PASCAL execution flags],dl
" eax7 [stack_frame size in words (n * 16)]
" tsp3 2|{op number}
"
" Performs the standard push sequence.
" Sets locals to zero if check mode
"
" returns:
" PR0 -> pascal operators transfer vector
" PR4 -> link section of the procedure
" PR6 -> stack_frame of the procedure
" (indicators are reset)
MAIN_entry:
inhibit on
epp1 7|stack_header.stack_end_ptr,*
spri6 1|stack_frame.prev_sp
spri0 1|stack_frame.arg_ptr "arg_ptr" in new stack frame
epp0 1|0,7 get ptr to new stack end
spri0 1|stack_frame.next_sp
spri0 7|stack_header.stack_end_ptr initiate new stack end
epp6 1|0 PR6 -> stack frame of the procedure
inhibit off
adq my_id,du
stq 6|stack_frame.translator_id
tra MAIN_ext_join
MAIN_ext_join:
epaq 3|0
lprp4 7|stack_header.lot_ptr,*au
spri4 6|linkage_ptr "linkage_ptr" in new stack frame
spri5 6|stack_frame.entry_ptr "entry_ptr" of new stack frame
spri2 6|stack_frame.operator_ptr "operator_ptr" in new stack frame
epp0 2|0 PR0 -> pascal operators
epp1 null_ptr,*
spri1 6|dlinkw
epbp1 3|0
spri1 6|stack_frame.return_ptr
ldi 0,dl reset indicators
tra 3|2 return to procedure
Program Hello (Input, Output)
000000 ta 000050000000
000001 da 000037300000
000002 aa 000000371404 [cac] epp5 0,ic
000003 aa 7 00050 3521 20 epp2 pr7|40,*
000004 aa 2 00010 3521 20 epp2 pr2|8,*
000005 aa 560000 2360 07 ldq 188416,dl
000006 aa 000140 6270 00 eax7 96
000007 aa 2 00117 2731 00 tsp3 pr2|79 MAIN_entry
000010 aa 000000000000
000011 ls 000010000135
Starting the trace from the top:
000002 aa 000000371404 [cac] epp5 0,ic
000003 aa 7 00050 3521 20 epp2 pr7|40,*
000004 aa 2 00010 3521 20 epp2 pr2|8,*
000005 aa 560000 2360 07 ldq 188416,dl
000006 aa 000140 6270 00 eax7 96
000007 aa 2 00117 2731 00 tsp3 pr2|79 MAIN_entry
000010 aa 000000000000
DBG(121499343)> CPU TRACE: 00377:000002 4 000000371404 (EPP5 000000,IC) 000000 371(1) 0 0 0 04^M
DBG(121499343)> CPU REGDUMPPR: PR5/lb: SNR=00377 RNR=4 WORDNO=000002 BITNO:00^M
DBG(121499345)> CPU TRACE: 00377:000003 4 700050352120 (EPP2 PR7|50,N*) 700050 352(0) 1 0 1 00^M
DBG(121499345)> CPU REGDUMPPR: PR2/bp: SNR=00337 RNR=4 WORDNO=005274 BITNO:00^M
DBG(121499347)> CPU TRACE: 00377:000004 4 200010352120 (EPP2 PR2|10,N*) 200010 352(0) 1 0 1 00^M
DBG(121659483)> CPU REGDUMPPR: PR2/bp: SNR=00373 RNR=4 WORDNO=000036 BITNO:00^M
DBG(121659485)> CPU TRACE: 00377:000005 4 560000236007 (LDQ 560000,DL) 560000 236(0) 0 0 0 07
DBG(121659485)> CPU REGDUMPAQI: A=000313000004 Q=000000560000 IR:~BAR Tally
DBG(121659487)> CPU TRACE: 00377:000006 4 000140627000 (EAX7 000140) 000140 627(0) 0 0 0 00
DBG(121659487)> CPU REGDUMPIDX: X[4]=000037 X[5]=000000 X[6]=000000 X[7]=000140
DBG(121659489)> CPU TRACE: 00377:000007 4 200117273100 (TSP3 PR2|117) 200117 273(0) 1 0 0 00
pascal_operators.pl1:
tra MAIN_entry 79
DBG(121659491)> CPU TRACE: 00373:000155 4 000456710000 (TRA 000456) 000456 710(0) 0 0 0 00^M
" *********************************
" * *
" * ENTRY OPERATORS *
" * *
" *********************************
"
"
"
entry_operators_begin:
"
" entry operators for MAIN and exportable procedures
" --------------------------------------------------
"
" assumed that: (Multics convention)
" PR0 -> parameter list
" PR6 -> stack frame of the calling procedure
" PR7 -> stack header
"
" calling sequence:
" epp5 0,ic entry point addr
" epp2 7|stack_header.trans_op_tv_ptr MUST BE SECOND WORD (for TRACE)
" epp2 2|8,* to get ptr to pascal operators
" ldq [PASCAL execution flags],dl
" eax7 [stack_frame size in words (n * 16)]
" tsp3 2|{op number}
"
" Performs the standard push sequence.
" Sets locals to zero if check mode
"
" returns:
" PR0 -> pascal operators transfer vector
" PR4 -> link section of the procedure
" PR6 -> stack_frame of the procedure
" (indicators are reset)
"
MAIN_entry:
inhibit on
epp1 7|stack_header.stack_end_ptr,*
spri6 1|stack_frame.prev_sp
spri0 1|stack_frame.arg_ptr "arg_ptr" in new stack frame
epp0 1|0,7 get ptr to new stack end
spri0 1|stack_frame.next_sp
spri0 7|stack_header.stack_end_ptr initiate new stack end
epp6 1|0 PR6 -> stack frame of the procedure
inhibit off
adq my_id,du
stq 6|stack_frame.translator_id
tra MAIN_ext_join
DBG(121659493)> CPU TRACE: 00373:000456 4 700024351720 (EPP1 PR7|24,N*) 700024 351(1) 1 1 1 00
DBG(121659493)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
reasonable
DBG(121659495)> CPU TRACE: 00373:000457 4 100020652300 (SPRI6 PR1|20) 100020 652(0) 1 1 0 00
DBG(121659495)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024600 writeData=000234400043
DBG(121659495)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024601 writeData=007620000000
DBG(121659495)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659495)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=007620 BITNO:00
DBG(121659497)> CPU TRACE: 00373:000460 4 100032250300 (SPRI0 PR1|32) 100032 250(0) 1 1 0 00
DBG(121659497)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024612 writeData=000234400043
DBG(121659497)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024613 writeData=010126000000
DBG(121659497)> CPU REGDUMPPR: PR0/ap: SNR=00234 RNR=4 WORDNO=010126 BITNO:00
DBG(121659497)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659499)> CPU TRACE: 00373:000461 4 100000350317 (EPP0 PR1|0,7) 100000 350(0) 1 1 0 17
DBG(121659499)> CPU REGDUMPPR: PR0/ap: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121659499)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
reasonable
DBG(121659501)> CPU TRACE: 00373:000462 4 100022250300 (SPRI0 PR1|22) 100022 250(0) 1 1 0 00
DBG(121659501)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024602 writeData=000234400043
DBG(121659501)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024603 writeData=010720000000
DBG(121659501)> CPU REGDUMPPR: PR0/ap: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121659501)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659503)> CPU TRACE: 00373:000463 4 700024250300 (SPRI0 PR7|24) 700024 250(0) 1 1 0 00
DBG(121659503)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=76370024 writeData=000234400043
DBG(121659503)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=76370025 writeData=010720000000
DBG(121659503)> CPU REGDUMPPR: PR0/ap: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121659503)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=000000 BITNO:00
DBG(121659505)> CPU TRACE: 00373:000464 4 100000372300 (EPP6 PR1|0) 100000 372(0) 1 1 0 00
DBG(121659505)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659505)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659507)> CPU TRACE: 00373:000465 4 000010076003 (ADQ 000010,DU) 000010 076(0) 0 0 0 03
DBG(121659507)> CPU REGDUMPFLT: E=000 A=000313000004 Q=000010560000 0.001548767206
DBG(121659509)> CPU TRACE: 00373:000466 4 600037756100 (STQ PR6|37) 600037 756(0) 1 0 0 00
DBG(121659509)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024617 writeData=000010560000
DBG(121659509)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659511)> CPU TRACE: 00373:000467 4 000510710000 (TRA 000510) 000510 710(0) 0 0 0 00
MAIN_ext_join:
epaq 3|0
lprp4 7|stack_header.lot_ptr,*au
spri4 6|linkage_ptr "linkage_ptr" in new stack frame
spri5 6|stack_frame.entry_ptr "entry_ptr" of new stack frame
spri2 6|stack_frame.operator_ptr "operator_ptr" in new stack frame
epp0 2|0 PR0 -> pascal operators
epp1 null_ptr,*
spri1 6|dlinkw
epbp1 3|0
spri1 6|stack_frame.return_ptr
ldi 0,dl reset indicators
tra 3|2 return to procedure
DBG(121659513)> CPU TRACE: 00373:000510 4 300000213100 (EPAQ PR3|0) 300000 213(0) 1 0 0 00
DBG(121659513)> CPU REGDUMPAQI: A=000377000004 Q=000010000000 IR:~BAR Tally
DBG(121659513)> CPU REGDUMPPR: PR3/bb: SNR=00377 RNR=4 WORDNO=000010 BITNO:00
DBG(121659515)> CPU TRACE: 00373:000511 4 700026764161 (LPRP4 PR7|26,*AU) 700026 764(0) 1 0 3 01
DBG(121659515)> CPU REGDUMPPR: PR4/lp: SNR=00337 RNR=4 WORDNO=027604 BITNO:00
DBG(121659515)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=000000 BITNO:00
DBG(121659517)> CPU TRACE: 00373:000512 4 600044650100 (SPRI4 PR6|44) 600044 650(0) 1 0 0 00
DBG(121659517)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024624 writeData=000337400043
DBG(121659517)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024625 writeData=027604000000
DBG(121659517)> CPU REGDUMPPR: PR4/lp: SNR=00337 RNR=4 WORDNO=027604 BITNO:00
DBG(121659517)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659519)> CPU TRACE: 00373:000513 4 600026651500 (SPRI5 PR6|26) 600026 651(1) 1 0 0 00
DBG(121659519)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024606 writeData=000377400043
DBG(121659519)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024607 writeData=000002000000
DBG(121659519)> CPU REGDUMPPR: PR5/lb: SNR=00377 RNR=4 WORDNO=000002 BITNO:00
DBG(121659519)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659521)> CPU TRACE: 00373:000514 4 600030252100 (SPRI2 PR6|30) 600030 252(0) 1 0 0 00
DBG(121659521)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024610 writeData=000373400043
DBG(121659521)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024611 writeData=000036000000
DBG(121659521)> CPU REGDUMPPR: PR2/bp: SNR=00373 RNR=4 WORDNO=000036 BITNO:00
DBG(121659521)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659523)> CPU TRACE: 00373:000515 4 200000350100 (EPP0 PR2|0) 200000 350(0) 1 0 0 00
DBG(121659523)> CPU REGDUMPPR: PR0/ap: SNR=00373 RNR=4 WORDNO=000036 BITNO:00
DBG(121659523)> CPU REGDUMPPR: PR2/bp: SNR=00373 RNR=4 WORDNO=000036 BITNO:00
DBG(121659525)> CPU TRACE: 00373:000516 4 000432351420 (EPP1 000432,N*) 000432 351(1) 0 0 1 00
DBG(121659523)> CPU REGDUMPPR: PR0/ap: SNR=00373 RNR=4 WORDNO=000036 BITNO:00
DBG(121659523)> CPU REGDUMPPR: PR2/bp: SNR=00373 RNR=4 WORDNO=000036 BITNO:00
DBG(121659525)> CPU TRACE: 00373:000516 4 000432351420 (EPP1 000432,N*) 000432 351(1) 0 0 1 00
DBG(121659525)> CPU REGDUMPPR: PR1/ab: SNR=77777 RNR=4 WORDNO=000001 BITNO:00
DBG(121659527)> CPU TRACE: 00373:000517 4 600040251500 (SPRI1 PR6|40) 600040 251(1) 1 0 0 00
DBG(121659527)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024620 writeData=077777400043
DBG(121659527)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67024621 writeData=000001000000
DBG(121659527)> CPU REGDUMPPR: PR1/ab: SNR=77777 RNR=4 WORDNO=000001 BITNO:00
DBG(121659527)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659529)> CPU TRACE: 00373:000520 4 300000351100 (EPBP1 PR3|0) 300000 351(0) 1 0 0 00
DBG(121659529)> CPU REGDUMPPR: PR1/ab: SNR=00377 RNR=4 WORDNO=000000 BITNO:00
DBG(121659529)> CPU REGDUMPPR: PR3/bb: SNR=00377 RNR=4 WORDNO=000010 BITNO:00
DBG(121659531)> CPU TRACE: 00373:000521 4 600024251500 (SPRI1 PR6|24) 600024 251(1) 1 0 0 00
DBG(121659531)> CPU REGDUMPPR: PR1/ab: SNR=00377 RNR=4 WORDNO=000000 BITNO:00
DBG(121659531)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121659533)> CPU TRACE: 00373:000522 4 000000634007 (LDI 000000,DL) 000000 634(0) 0 0 0 07
DBG(121659535)> CPU TRACE: 00373:000523 4 300002710100 (TRA PR3|2) 300002 710(0) 1 0 0 00
main entry looks fine.
All that's left is the first reference code….
pascal_init_fsb_trap_proc_.pl1
/* This procedure is a first reference trap procedure called to initialise
file control blocks at the first reference to the segment, instead of
during the "BEGIN" sequence of the main procedure.
It is usefull when the segment exports files, or procedures using global
files and when these files or procedures are referenced when the main procedure
is not active. */
But the pl1 in there doesn't resemble the 0373 trace...
Where is the first ref code?
pli bound_pascal_runtime_
First reference trap:
call 10306, no arg
link|10306 *text|0+56536
segname: pascal_constants_
text|56526 max_real
text|56532 min_real_pos
pbm bound_pascal_runtime_
pascal_error_table_ 56536 732 106 36 1750 136
Can't find it in the source…
056536 4 000000213004 (EPAQ 000000,IC)
056537 4 000000620001 (EAX0 000000,AU)
056540 4 600000373100 (EPBP7 PR6|0)
056541 4 700026764161 (LPRP4 PR7|26,*AU)
056542 4 000116621000 (EAX1 000116)
056543 4 400000740111 (STX0 PR4|0,1)
056544 4 000001621011 (EAX1 000001,1)
056545 4 000153101003 (CMPX1 000153,DU)
056546 4 777775604004 (TMI 777775,IC)
056547 4 700044710120 (TRA PR7|44,N*)
DBG(121658932)> CPU TRACE: 00373:056536 4 000000213004 (EPAQ 000000,IC) 000000 213(0) 0 0 0 04
DBG(121658932)> CPU REGDUMPAQI: A=000373000004 Q=056536000000 IR:~BAR Carry
DBG(121658934)> CPU TRACE: 00373:056537 4 000000620001 (EAX0 000000,AU) 000000 620(0) 0 0 0 01
DBG(121658934)> CPU REGDUMPIDX: X[0]=000373 X[1]=011226 X[2]=000000 X[3]=000022
DBG(121658936)> CPU TRACE: 00373:056540 4 600000373100 (EPBP7 PR6|0) 600000 373(0) 1 0 0 00
DBG(121658936)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=011060 BITNO:00
DBG(121658936)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=000000 BITNO:00
DBG(121658938)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=000000 BITNO:00
DBG(121658938)> CPU TRACE: 00373:056541 4 700026764161 (LPRP4 PR7|26,*AU) 700026 764(0) 1 0 3 01
DBG(121658938)> CPU APPENDING: doPtrReg(): PR[7] SNR=00234 RNR=4 WORDNO=000000 BITNO=00
DBG(121658938)> CPU APPENDING: doPtrReg(): n=7 offset=00026 TPR.CA=000026 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
Reading from stack header [26:27] Bar Mode stack pointer ???? (AG91-04A, pg 649
DBG(121658938)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=76370026 readData=000234000043
DBG(121658938)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=76370027 readData=000000000000
DBG(121658938)> CPU ADDRMOD: doComputedAddressFormation(startCA): TAG=61(*au) Tm=60 Td=1
DBG(121658938)> CPU ADDRMOD: IR_MOD: CT_HOLD=1 1
DBG(121658938)> CPU ADDRMOD: IR_MOD: fetching indirect word from 000026
DBG(121658938)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=76370026 readData=000234000043
DBG(121658938)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=76370027 readData=000000000000
DBG(121658938)> CPU APPENDING: doITS/ITP: YPair= 000234000043 000000000000
DBG(121658938)> CPU APPENDING: ITS Pair: SEGNO=234 RN=0 WORDNO=0 BITNO=0 MOD=0
DBG(121658938)> CPU APPENDING: ITS Pair Ring: RN 0 RSDWH_R1 4 TRR 4 max 4
BG(121658938)> CPU APPENDING: doAppendCycle(Entry) thisCycle=OPERAND_READ
DBG(121658938)> CPU APPENDING: doAppendCycle(Entry) Address=000373
DBG(121658938)> CPU APPENDING: doAppendCycle(Entry) PPR.PRR=4 PPR.PSR=00373
DBG(121658938)> CPU APPENDING: doAppendCycle(Entry) TPR.TRR=4 TPR.TSR=00234
DBG(121658938)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=76370373 readData=000337037246
DBG(121658938)> CPU APPENDING: lprp4 CY 0000337037246, PR[n].RNR 04, PR[n].BITNO 00, PR[n].SNR 0337, PR[n].WORDNO 37246
DBG(121658938)> CPU REGDUMPPR: PR4/lp: SNR=00337 RNR=4 WORDNO=037246 BITNO:00
337 >process_dir_dir>!zzzzzzzbBBBBBB>!BBBKKFBxnDbqCp.area.linker
DBG(121658940)> CPU TRACE: 00373:056542 4 000116621000 (EAX1 000116) 000116 621(0) 0 0 0 00
DBG(121658940)> CPU REGDUMPIDX: X[0]=000373 X[1]=000116 X[2]=000000 X[3]=000022
DBG(121658942)> CPU TRACE: 00373:056543 4 400000740111 (STX0 PR4|0,1) 400000 740(0) 1 0 0 11
DBG(121658944)> CPU TRACE: 00373:056544 4 000001621011 (EAX1 000001,1) 000001 621(0) 0 0 0 11
DBG(121658944)> CPU REGDUMPIDX: X[0]=000373 X[1]=000117 X[2]=000000 X[3]=000022
DBG(121658946)> CPU TRACE: 00373:056545 4 000153101003 (CMPX1 000153,DU) 000153 101(0) 0 0 0 03
DBG(121658948)> CPU TRACE: 00373:056546 4 777775604004 (TMI 777775,IC) 777775 604(0) 0 0 0 04
Writes zeros to part of segment 337
I see no erroneous calculations in the code.
Trying again
pascal_operators.pl1:
tra MAIN_entry 79
DBG(121659491)> CPU TRACE: 00373:000155 4 000456710000 (TRA 000456) 000456 710(0) 0 0 0 00
000456 714 MAIN_entry:
000456 715 inhibit on
000456 aa 7 00024 3517 20 716 epp1 7|stack_header.stack_end_ptr,*
000457 aa 1 00020 6523 00 717 spri6 1|stack_frame.prev_sp
000460 aa 1 00032 2503 00 718 spri0 1|stack_frame.arg_ptr "arg_ptr" in new stack frame
000461 aa 1 00000 3503 17 719 epp0 1|0,7 get ptr to new stack end
000462 aa 1 00022 2503 00 720 spri0 1|stack_frame.next_sp
000463 aa 7 00024 2503 00 721 spri0 7|stack_header.stack_end_ptr initiate new stack end
000464 aa 1 00000 3723 00 722 epp6 1|0 PR6 -> stack frame of the procedure
000465 723 inhibit off
000465 aa 000010 0760 03 724 adq my_id,du
000466 aa 6 00037 7561 00 725 stq 6|stack_frame.translator_id
000467 0a 000510 7100 00 726 tra MAIN_ext_join
DBG(121659493)> CPU TRACE: 00373:000456 4 700024351720 (EPP1 PR7|24,N*) 700024 351(1) 1 1 1 00
DBG(121659495)> CPU TRACE: 00373:000457 4 100020652300 (SPRI6 PR1|20) 100020 652(0) 1 1 0 00
DBG(121659497)> CPU TRACE: 00373:000460 4 100032250300 (SPRI0 PR1|32) 100032 250(0) 1 1 0 00
DBG(121659499)> CPU TRACE: 00373:000461 4 100000350317 (EPP0 PR1|0,7) 100000 350(0) 1 1 0 17
DBG(121659501)> CPU TRACE: 00373:000462 4 100022250300 (SPRI0 PR1|22) 100022 250(0) 1 1 0 00
DBG(121659503)> CPU TRACE: 00373:000463 4 700024250300 (SPRI0 PR7|24) 700024 250(0) 1 1 0 00
DBG(121659505)> CPU TRACE: 00373:000464 4 100000372300 (EPP6 PR1|0) 100000 372(0) 1 1 0 00
DBG(121659507)> CPU TRACE: 00373:000465 4 000010076003 (ADQ 000010,DU) 000010 076(0) 0 0 0 03
DBG(121659509)> CPU TRACE: 00373:000466 4 600037756100 (STQ PR6|37) 600037 756(0) 1 0 0 00
DBG(121659511)> CPU TRACE: 00373:000467 4 000510710000 (TRA 000510) 000510 710(0) 0 0 0 00
000510 750 MAIN_ext_join:
000510 aa 3 00000 2131 00 751 epaq 3|0
000511 aa 7 00026 7641 61 752 lprp4 7|stack_header.lot_ptr,*au
000512 aa 6 00044 6501 00 753 spri4 6|linkage_ptr "linkage_ptr" in new stack frame
000513 aa 6 00026 6515 00 754 spri5 6|stack_frame.entry_ptr "entry_ptr" of new stack frame
000514 aa 6 00030 2521 00 755 spri2 6|stack_frame.operator_ptr "operator_ptr" in new stack frame
000515 aa 2 00000 3501 00 756 epp0 2|0 PR0 -> pascal operators
000516 0a 000432 3514 20 757 epp1 null_ptr,*
000517 aa 6 00040 2515 00 758 spri1 6|dlinkw
000520 aa 3 00000 3511 00 759 epbp1 3|0
000521 aa 6 00024 2515 00 760 spri1 6|stack_frame.return_ptr
000522 aa 000000 6340 07 761 ldi 0,dl reset indicators
000523 aa 3 00002 7101 00 762 tra 3|2 return to procedure
DBG(121659513)> CPU TRACE: 00373:000510 4 300000213100 (EPAQ PR3|0) 300000 213(0) 1 0 0 00
DBG(121659515)> CPU TRACE: 00373:000511 4 700026764161 (LPRP4 PR7|26,*AU) 700026 764(0) 1 0 3 01
DBG(121659517)> CPU TRACE: 00373:000512 4 600044650100 (SPRI4 PR6|44) 600044 650(0) 1 0 0 00
DBG(121659519)> CPU TRACE: 00373:000513 4 600026651500 (SPRI5 PR6|26) 600026 651(1) 1 0 0 00
DBG(121659521)> CPU TRACE: 00373:000514 4 600030252100 (SPRI2 PR6|30) 600030 252(0) 1 0 0 00
DBG(121659523)> CPU TRACE: 00373:000515 4 200000350100 (EPP0 PR2|0) 200000 350(0) 1 0 0 00
DBG(121659525)> CPU TRACE: 00373:000516 4 000432351420 (EPP1 000432,N*) 000432 351(1) 0 0 1 00
DBG(121659527)> CPU TRACE: 00373:000517 4 600040251500 (SPRI1 PR6|40) 600040 251(1) 1 0 0 00
DBG(121659529)> CPU TRACE: 00373:000520 4 300000351100 (EPBP1 PR3|0) 300000 351(0) 1 0 0 00
DBG(121659531)> CPU TRACE: 00373:000521 4 600024251500 (SPRI1 PR6|24) 600024 251(1) 1 0 0 00
DBG(121659533)> CPU TRACE: 00373:000522 4 000000634007 (LDI 000000,DL) 000000 634(0) 0 0 0 07
DBG(121659535)> CPU TRACE: 00373:000523 4 300002710100 (TRA PR3|2) 300002 710(0) 1 0 0 00
000261 0a 001047 7100 00 487 tra RESET_file_call 11
DBG(121696607)> CPU TRACE: 00373:000051 4 001047710000 (TRA 001047) 001047 710(0) 0 0 0 00
001047 1322 RESET_file_call:
001047 4a 4 00024 3515 20 1323 epp1 <pascal_io_>|[RESET] PL/1 entry point
001050 aa 6 00114 6521 00 1324 spri6 6|io_stack_frame_ptr
001051 0a 003156 7100 00 1325 tra common_op_call
DBG(121696609)> CPU TRACE: 00373:001047 4 031557351400 (EPP1 031557) 031557 351(1) 0 0 0 00
DBG(121696611)> CPU TRACE: 00373:001050 4 600114652100 (SPRI6 PR6|114) 600114 652(0) 1 0 0 00
DBG(121696613)> CPU TRACE: 00373:001051 4 003156710000 (TRA 003156) 003156 710(0) 0 0 0 00
DBG(121696613)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121696616)> CPU TRACE: 001051 000442710220 (TRA 000442,N*) 000442 710(0) 0 1 1 00
003156 3724 common_op_call:
003156 aa 6 00030 2501 00 3725 spri0 6|stack_frame.operator_ptr
003157 aa 6 00024 2535 00 3726 spri3 6|stack_frame.return_ptr
003160 aa 6 00104 3521 00 3727 epp2 6|arg_1
003161 aa 6 00102 2521 00 3728 spri2 6|arg_ptr
003162 0a 000430 2370 00 3729 ldaq one_arg_header
003163 aa 6 00100 7571 00 3730 staq 6|arg_header
003164 aa 6 00100 3501 00 3731 epp0 6|arg_header
003165 aa 6 00000 3731 00 3732 epbp7 6|0
003166 aa 1 00000 7131 00 3733 call6 1|0
DBG(121701583)> CPU TRACE: 00373:003156 4 600030250100 (SPRI0 PR6|30) 600030 250(0) 1 0 0 00
DBG(121701585)> CPU TRACE: 00373:003157 4 600024253500 (SPRI3 PR6|24) 600024 253(1) 1 0 0 00
DBG(121701587)> CPU TRACE: 00373:003160 4 600104352100 (EPP2 PR6|104) 600104 352(0) 1 0 0 00
DBG(121701589)> CPU TRACE: 00373:003161 4 600102252100 (SPRI2 PR6|102) 600102 252(0) 1 0 0 00
DBG(121701591)> CPU TRACE: 00373:003162 4 000430237000 (LDAQ 000430) 000430 237(0) 0 0 0 00
DBG(121701593)> CPU TRACE: 00373:003163 4 600100757100 (STAQ PR6|100) 600100 757(0) 1 0 0 00
DBG(121701595)> CPU TRACE: 00373:003164 4 600100350100 (EPP0 PR6|100) 600100 350(0) 1 0 0 00
DBG(121701597)> CPU TRACE: 00373:003165 4 600000373100 (EPBP7 PR6|0) 600000 373(0) 1 0 0 00
DBG(121701599)> CPU TRACE: 00373:003166 4 100000713100 (CALL6 PR1|0) 100000 713(0) 1 0 0 00
DBG(121701599)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121706557)> CPU TRACE: 00373:003166 4 100000713100 (CALL6 PR1|0) 100000 713(0) 1 0 0 00
ENTRY TO RESET STATEMENT 1 ON LINE 694
RESET: entry (io_parameters) options (support);
005461 ta 003565000000
005462 da 001356300000
005463 aa 002660 6270 00 eax7 1456
005464 aa 7 00034 3521 20 epp2 pr7|28,*
005465 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry
005466 aa 000002000000
005467 aa 000000000000
005470 aa 0 01372 7001 00 tsx0 pr0|762 set_support
005471 aa 776057 7000 04 tsx0 -977,ic 003550
DBG(121706559)> CPU TRACE: 00373:031557 4 002660627000 (EAX7 002660) 002660 627(0) 0 0 0 00
DBG(121706561)> CPU TRACE: 00373:031560 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(121706563)> CPU TRACE: 00373:031561 4 201045272100 (TSP2 PR2|1045) 201045 272(0) 1 0 0 00
DBG(121706607)> CPU TRACE: 00373:031564 4 001372700100 (TSX0 PR0|1372) 001372 700(0) 1 0 0 00
DBG(121706617)> CPU TRACE: 00373:031565 4 776057700004 (TSX0 776057,IC) 776057 700(0) 0 0 0 04
DBG(121706617)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121711575)> CPU TRACE: 00373:031565 4 027644700000 (TSX0 027644) 027644 700(0) 0 0 0 00
What is set_support?
DBG(121711577)> CPU TRACE: 00373:027644 4 601377440100 (SXL0 PR6|1377) 601377 440(0) 1 0 0 00
DBG(121711579)> CPU TRACE: 00373:027645 4 600500450100 (STZ PR6|500) 600500 450(0) 1 0 0 00
DBG(121711581)> CPU TRACE: 00373:027646 4 601377720100 (LXL0 PR6|1377) 601377 720(0) 1 0 0 00
DBG(121711583)> CPU TRACE: 00373:027647 4 000000710010 (TRA 000000,0) 000000 710(0) 0 0 0 10
STATEMENT 1 ON LINE 704
call check_on_open;
005472 aa 020333 6700 04 tsp4 8411,ic 026025
DBG(121711585)> CPU TRACE: 00373:031566 4 020333670004 (TSP4 020333,IC) 020333 670(0) 0 0 0 04
DBG(121711585)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121716543)> CPU TRACE: 00373:031566 4 052121670000 (TSP4 052121) 052121 670(0) 0 0 0 00
2696 check_on_open: proc;
2697 fsb_ptr = block_ptr;
BEGIN PROCEDURE check_on_open
ENTRY TO check_on_open STATEMENT 1 ON LINE 2696^Lcheck_on_open: proc;
026025 aa 6 01304 6501 00 spri4 pr6|708
DBG(121716545)> CPU TRACE: 00373:052121 4 601304650100 (SPRI4 PR6|1304) 601304 650(0) 1 0 0 00
STATEMENT 1 ON LINE 2697
fsb_ptr = block_ptr;
026026 aa 6 00032 3735 20 epp7 pr6|26,*
026027 aa 7 00002 3715 20 epp5 pr7|2,* io_parameters.block_ptr
026030 aa 5 00000 3715 20 epp5 pr5|0,* io_parameters.block_ptr
026031 aa 6 01252 6515 00 spri5 pr6|682 fsb_ptr
DBG(121716545)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
SP plausible.
DBG(121716547)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
LOT ptr?
DBG(121716547)> CPU APPENDING: doPtrReg(): PR[6] SNR=00234 RNR=4 WORDNO=010720 BITNO=00
DBG(121716547)> CPU APPENDING: doPtrReg(): n=6 offset=00032 TPR.CA=010752 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(121716547)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024752 readData=000234400043
DBG(121716547)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024753 readData=010660000000
LOT ptr 234:10660
DBG(121716547)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010660 BITNO:00
DBG(121716549)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(121716549)> CPU APPENDING: doPtrReg(): PR[7] SNR=00234 RNR=4 WORDNO=010660 BITNO=00
DBG(121716549)> CPU APPENDING: doPtrReg(): n=7 offset=00002 TPR.CA=010662 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(121716549)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024662 readData=000234400043
DBG(121716549)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024663 readData=010664000000
DBG(121716549)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
io_parameters 234:10664
DBG(121716551)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(121716551)> CPU APPENDING: doPtrReg(): PR[5] SNR=00234 RNR=4 WORDNO=010664 BITNO=00
DBG(121716551)> CPU APPENDING: doPtrReg(): n=5 offset=00000 TPR.CA=010664 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(121716551)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024664 readData=000337400043
DBG(121716551)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024665 readData=037424000000
DBG(121716551)> CPU APPENDING: ITS Pair Ring: RN 4 RSDWH_R1 4 TRR 4 max 4
DBG(121716551)> CPU ADDRMOD: RI_MOD: indword=000337400043 TPR.CA=037424 rTAG=00
DBG(121716551)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=037424 BITNO:00
io_parameters.block_ptr 337:37424
DBG(121716669)> CPU TRACE: 00373:053442 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(121716669)> CPU APPENDING: doPtrReg(): PR[5] SNR=00234 RNR=4 WORDNO=012172 BITNO=00
DBG(121716669)> CPU APPENDING: doPtrReg(): n=5 offset=00000 TPR.CA=012172 TPR.TBR=0 TPR.TSR=00234 TPR.TRR=4
DBG(121716669)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67042172 readData=000337400043
DBG(121716669)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67042173 readData=037424000000
DBG(121716669)> CPU APPENDING: doITS/ITP: YPair= 000337400043 037424000000
DBG(121716669)> CPU APPENDING: ITS Pair: SEGNO=337 RN=4 WORDNO=37424 BITNO=0 MOD=0
DBG(121716669)> CPU APPENDING: ITS Pair Ring: RN 4 RSDWH_R1 4 TRR 4 max 4
DBG(121716669)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=037424 BITNO:00
blk_ptr 337:37434
STATEMENT 1 ON LINE 2699
sp = stack_frame_ptr;
026032 aa 7 00002 3535 20 epp3 pr7|2,*
026033 aa 3 00010 3515 20 epp1 pr3|8,* io_parameters.stack_frame_ptr
026034 aa 6 01254 2515 00 spri1 pr6|684 sp
STATEMENT 1 ON LINE 2700
DBG(121716553)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010660 BITNO:00
DBG(121716555)> CPU TRACE: 00373:052126 4 700002353520 (EPP3 PR7|2,N*) 700002 353(1) 1 0 1 00
DBG(121716555)> CPU REGDUMPPR: PR3/bb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
DBG(121716557)> CPU TRACE: 00373:052127 4 300010351520 (EPP1 PR3|10,N*) 300010 351(1) 1 0 1 00
DBG(121716557)> CPU REGDUMPPR: PR1/ab: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121716559)> CPU TRACE: 00373:052130 4 601254251500 (SPRI1 PR6|1254) 601254 251(1) 1 0 0 00
sp 234:10560
026034 aa 6 01254 2515 00 spri1 pr6|684 sp
STATEMENT 1 ON LINE 2700
value_ptr = addr (two_words_value);
026035 aa 3 00002 3715 00 epp5 pr3|2 io_parameters.two_words_value
026036 aa 6 00676 6515 00 spri5 pr6|446 value_ptr
DBG(121716561)> CPU TRACE: 00373:052131 4 300002371500 (EPP5 PR3|2) 300002 371(1) 1 0 0 00
DBG(121716563)> CPU TRACE: 00373:052132 4 600676651500 (SPRI5 PR6|676) 600676 651(1) 1 0 0 00
DBG(121716563)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010666 BITNO:00
value_ptr = 234:1066
switch_name = get_switch_name (fsb_ptr);
026037 aa 6 01252 3521 00 epp2 pr6|682 fsb_ptr
026040 aa 6 02300 2521 00 spri2 pr6|1216
026041 aa 6 00502 3521 00 epp2 pr6|322 switch_name
026042 aa 6 02302 2521 00 spri2 pr6|1218
026043 aa 6 02276 6211 00 eax1 pr6|1214
026044 aa 010000 4310 07 fld 4096,dl
026045 aa 001271 3520 04 epp2 697,ic 027336 = 000120627000
026046 aa 0 00625 7001 00 tsx0 pr0|405 call_int_this
ENTRY TO get_switch_name STATEMENT 1 ON LINE 2869^Lget_switch_name: proc (fsbp) returns (char (32));
027335 da 002100220000
027336 aa 000120 6270 00 eax7 80
027337 aa 7 00034 3521 20 epp2 pr7|28,*
027340 aa 2 01047 2721 00 tsp2 pr2|551 int_entry
027341 aa 000004000000
027342 aa 000000000000
027343 aa 0 01372 7001 00 tsx0 pr0|762 set_support
STATEMENT 1 ON LINE 2873
if fsbp -> permanent_file then do;
027344 aa 6 00032 3735 20 epp7 pr6|26,*
027345 aa 7 00002 3715 20 epp5 pr7|2,* fsbp
027346 aa 5 00000 3715 20 epp5 pr5|0,* fsbp
027347 aa 5 00001 2351 00 lda pr5|1 pascal_fsb.permanent_file
027350 aa 004000 3150 07 cana 2048,dl
027351 aa 000060 6000 04 tze 48,ic 027431
DBG(121716663)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=013600 BITNO:00
DBG(121716665)> CPU TRACE: 00373:053440 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(121716665)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=013216 BITNO:00
DBG(121716667)> CPU TRACE: 00373:053441 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(121716667)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=012172 BITNO:00
DBG(121716669)> CPU TRACE: 00373:053442 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(121716669)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=037424 BITNO:00
DBG(121716671)> CPU TRACE: 00373:053443 4 500001235100 (LDA PR5|1) 500001 235(0) 1 0 0 00
DBG(121716671)> CPU REGDUMPAQI: A=000000004020 Q=053435000000 IR:~BAR
DBG(121716673)> CPU TRACE: 00373:053444 4 004000315007 (CANA 004000,DL) 004000 315(0) 0 0 0 07
DBG(121716675)> CPU TRACE: 00373:053445 4 000060600004 (TZE 000060,IC) 000060 600(0) 0 0 0 04
STATEMENT 1 ON LINE 2874
if fsbp -> standard_file then do;
027352 aa 5 00001 2351 00 lda pr5|1 pascal_fsb.standard_file
027353 aa 000020 3150 07 cana 16,dl
027354 aa 000050 6000 04 tze 40,ic 027424
DBG(121716677)> CPU TRACE: 00373:053446 4 500001235100 (LDA PR5|1) 500001 235(0) 1 0 0 00
DBG(121716677)> CPU REGDUMPAQI: A=000000004020 Q=053435000000 IR:~BAR
DBG(121716679)> CPU TRACE: 00373:053447 4 000020315007 (CANA 000020,DL) 000020 315(0) 0 0 0 07
DBG(121716681)> CPU TRACE: 00373:053450 4 000050600004 (TZE 000050,IC) 000050 600(0) 0 0 0 04
DBG(121716683)> CPU TRACE: 00373:053451 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
STATEMENT 1 ON LINE 2875
if (fsbp -> file_name = "input") | (fsbp -> file_name = "entree") then return ("pascal_input_");
027355 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
027356 aa 5 00012 00 0040 desc9a pr5|10,32 pascal_fsb.file_name
027357 aa 751127 00 0005 desc9a -11689,5 000504 = 151156160165
027360 aa 000005 6000 04 tze 5,ic 027365
027361 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
027362 aa 5 00012 00 0040 desc9a pr5|10,32 pascal_fsb.file_name
027363 aa 751115 00 0006 desc9a -11699,6 000476 = 145156164162
027364 aa 000006 6010 04 tnz 6,ic 027372
027365 aa 7 00004 3535 20 epp3 pr7|4,*
027366 aa 040 100 100 404 mlr (ic),(pr),fill(040)
027367 aa 751240 00 0015 desc9a -11616,13 000626 = 160141163143
027370 aa 3 00000 00 0040 desc9a pr3|0,32
027371 aa 0 00631 7101 00 tra pr0|409 return_mac
DBG(121716683)> CPU TRACE: 00373:053451 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121716683)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121721641)> CPU TRACE: 00373:053451 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121721643)> CPU TRACE: 00373:053454 4 000005600004 (TZE 000005,IC) 000005 600(0) 0 0 0 04
DBG(121721645)> CPU TRACE: 00373:053461 4 700004353520 (EPP3 PR7|4,N*) 700004 353(1) 1 0 1 00
DBG(121721647)> CPU TRACE: 00373:053462 4 040100100404 (MLR 040100,IC) 040100 100(1) 0 0 0 00
DBG(121721649)> CPU TRACE: 00373:053465 4 000631710100 (TRA PR0|631) 000631 710(0) 1 0 0 00
STATEMENT 1 ON LINE 2703
if standard_file = "0"b then do;
026047 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
026050 aa 7 00001 2351 00 lda pr7|1 pascal_fsb.standard_file
026051 aa 000020 3150 07 cana 16,dl
026052 aa 000050 6010 04 tnz 40,ic 026122
DBG(121721665)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121721667)> CPU TRACE: 00373:052143 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(121721667)> CPU REGDUMPPR: PR7/sb: SNR=00337 RNR=4 WORDNO=037424 BITNO:00
DBG(121721669)> CPU TRACE: 00373:052144 4 700001235100 (LDA PR7|1) 700001 235(0) 1 0 0 00
DBG(121721669)> CPU REGDUMPAQI: A=000000004020 Q=053435000000 IR:~BAR
DBG(121721671)> CPU TRACE: 00373:052145 4 000020315007 (CANA 000020,DL) 000020 315(0) 0 0 0 07
DBG(121721673)> CPU TRACE: 00373:052146 4 000050601004 (TNZ 000050,IC) 000050 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2716
else do;
STATEMENT 1 ON LINE 2717
standard_file_used = "1"b;
026122 aa 040000 2350 07 lda 16384,dl
026123 aa 7 00001 2551 00 orsa pr7|1 pascal_fsb.standard_file_used
DBG(121721675)> CPU TRACE: 00373:052216 4 040000235007 (LDA 040000,DL) 040000 235(0) 0 0 0 07
DBG(121721677)> CPU TRACE: 00373:052217 4 700001255100 (ORSA PR7|1) 700001 255(0) 1 0 0 00
DBG(121721677)> CPU APPENDING: Write(Actual) Write: iefpFinalAddress=67163425 writeData=000000044020
DBG(121721677)> CPU REGDUMPPR: PR7/sb: SNR=00337 RNR=4 WORDNO=037424 BITNO:00
STATEMENT 1 ON LINE 2718
call fclose_;
026124 aa 001342 6700 04 tsp4 738,ic 027466
DBG(121721679)> CPU TRACE: 00373:052220 4 001342670004 (TSP4 001342,IC) 001342 670(0) 0 0 0 04
ENTRY TO fclose_ STATEMENT 1 ON LINE 2892
fclose_: proc;
027466 aa 6 01330 6501 00 spri4 pr6|728
DBG(121721681)> CPU TRACE: 00373:053562 4 601330650100 (SPRI4 PR6|1330) 601330 650(0) 1 0 0 00
STATEMENT 1 ON LINE 2894
if file_is_open then do;
027467 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
027470 aa 7 00001 2351 00 lda pr7|1 pascal_fsb.file_is_open
027471 aa 000002 3150 07 cana 2,dl
027472 aa 000060 6000 04 tze 48,ic 027552
DBG(121721683)> CPU TRACE: 00373:053563 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(121721685)> CPU TRACE: 00373:053564 4 700001235100 (LDA PR7|1) 700001 235(0) 1 0 0 00
DBG(121721685)> CPU REGDUMPFLT: E=000 A=000000044020 Q=053435000000 5.369099402e-07
DBG(121721687)> CPU TRACE: 00373:053565 4 000002315007 (CANA 000002,DL) 000002 315(0) 0 0 0 07
DBG(121721689)> CPU TRACE: 00373:053566 4 000060600004 (TZE 000060,IC) 000060 600(0) 0 0 0 04
STATEMENT 1 ON LINE 2913
eof, eoln = 2;
027552 aa 000002 2360 07 ldq 2,dl
027553 aa 7 00004 7561 00 stq pr7|4 pascal_fsb.eof
027554 aa 7 00033 7561 00 stq pr7|27 pascal_fsb.eoln
DBG(121721691)> CPU TRACE: 00373:053646 4 000002236007 (LDQ 000002,DL) 000002 236(0) 0 0 0 07
DBG(121721693)> CPU TRACE: 00373:053647 4 700004756100 (STQ PR7|4) 700004 756(0) 1 0 0 00
DBG(121721695)> CPU TRACE: 00373:053650 4 700033756100 (STQ PR7|33) 700033 756(0) 1 0 0 00
STATEMENT 1 ON LINE 2915
return;
027555 aa 6 01330 6101 00 rtcd pr6|728
DBG(121721697)> CPU TRACE: 00373:053651 4 601330610100 (RTCD PR6|1330) 601330 610(0) 1 0 0 00
STATEMENT 1 ON LINE 2719
if sp -> main then do;
026125 aa 6 01254 3735 20 epp7 pr6|684,* sp
026126 aa 000 000 066 500 cmpb (pr),(),fill(0)
026127 aa 7 00037 40 0001 descb pr7|31(18),1 pascal_stack_frame_flags.main
026130 aa 000000 00 0000 descb 0,0^L026131 aa 000074 6000 04 tze 60,ic 026225
DBG(121721699)> CPU TRACE: 00373:052221 4 601254373520 (EPP7 PR6|1254,N*) 601254 373(1) 1 0 1 00
DBG(121721699)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010560 BITNO:00
DBG(121721701)> CPU TRACE: 00373:052222 4 000000066500 (CMPB PR0|0) 000000 066(1) 0 0 0 00
DBG(121721703)> CPU TRACE: 00373:052225 4 000074600004 (TZE 000074,IC) 000074 600(0) 0 0 0 04
STATEMENT 1 ON LINE 2720
if file_name = "input" then sp -> close_input = "1"b;
026132 aa 6 01252 3715 20 epp5 pr6|682,* fsb_ptr
026133 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026134 aa 5 00012 00 0040 desc9a pr5|10,32 pascal_fsb.file_name
026135 aa 752351 00 0005 desc9a -11031,5 000504 = 151156160165
026136 aa 000005 6010 04 tnz 5,ic 026143
026137 aa 403 100 060 400 csl (),(pr),fill(1),bool(move)
026140 aa 000000 00 0000 descb 0,0
026141 aa 7 00037 46 0001 descb pr7|31(24),1 pascal_stack_frame_flags.close_input
026142 aa 000055 7100 04 tra 45,ic 026217
DBG(121721705)> CPU TRACE: 00373:052226 4 601252371520 (EPP5 PR6|1252,N*) 601252 371(1) 1 0 1 00
DBG(121721707)> CPU TRACE: 00373:052227 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121721709)> CPU TRACE: 00373:052232 4 000005601004 (TNZ 000005,IC) 000005 601(0) 0 0 0 04
DBG(121721711)> CPU TRACE: 00373:052233 4 403100060400 (CSL 403100) 403100 060(1) 0 0 0 00
DBG(121721713)> CPU TRACE: 00373:052236 4 000055710004 (TRA 000055,IC) 000055 710(0) 0 0 0 04
if sp -> close_on_cleanup = "0"b then call establish_cleanup (sp);
026217 aa 000 000 066 500 cmpb (pr),(),fill(0)
026220 aa 7 00037 45 0001 descb pr7|31(23),1 pascal_stack_frame_flags.close_on_cleanup
026221 aa 000000 00 0000 descb 0,0
026222 aa 000003 6010 04 tnz 3,ic 026225
026223 aa 002035 3520 04 epp2 1053,ic 030260 = 000002000000
026224 aa 777504 6700 04 tsp4 -188,ic 025730
DBG(121721715)> CPU TRACE: 00373:052313 4 000000066500 (CMPB PR0|0) 000000 066(1) 0 0 0 00
DBG(121721717)> CPU TRACE: 00373:052316 4 000003601004 (TNZ 000003,IC) 000003 601(0) 0 0 0 04
DBG(121721719)> CPU TRACE: 00373:052317 4 002035352004 (EPP2 002035,IC) 002035 352(0) 0 0 0 04
DBG(121721721)> CPU TRACE: 00373:052320 4 777504670004 (TSP4 777504,IC) 777504 670(0) 0 0 0 04
ENTRY TO establish_cleanup STATEMENT 1 ON LINE 2657
establish_cleanup: proc (sfp);
025730 aa 6 01276 6501 00 spri4 pr6|702
025731 aa 6 01300 2521 00 spri2 pr6|704
DBG(121721723)> CPU TRACE: 00373:052024 4 601276650100 (SPRI4 PR6|1276) 601276 650(0) 1 0 0 00
DBG(121721725)> CPU TRACE: 00373:052025 4 601300252100 (SPRI2 PR6|1300) 601300 252(0) 1 0 0 00
sfp -> close_on_cleanup = "1"b;
025732 aa 2 00002 3735 20 epp7 pr2|2,* sfp
025733 aa 7 00000 3735 20 epp7 pr7|0,* sfp
025734 aa 403 100 060 400 csl (),(pr),fill(1),bool(move)^L025735 aa 000000 00 0000 descb 0,0
025736 aa 7 00037 45 0001 descb pr7|31(23),1 pascal_stack_frame_flags.close_on_cleanup
DBG(121721727)> CPU TRACE: 00373:052026 4 200002373520 (EPP7 PR2|2,N*) 200002 373(1) 1 0 1 00
DBG(121721727)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121726685)> CPU TRACE: 00373:052026 4 054356373520 (EPP7 PR0|54356,N*) 054356 373(1) 1 0 1 00
DBG(121726687)> CPU TRACE: 00373:052027 4 700000373520 (EPP7 PR7|0,N*) 700000 373(1) 1 0 1 00
DBG(121726689)> CPU TRACE: 00373:052030 4 403100060400 (CSL 403100) 403100 060(1) 0 0 0 00
STATEMENT 1 ON LINE 2662
if sfp -> condition = "0"b then do;
025737 aa 7 00020 2351 00 lda pr7|16 stack_frame_flags.condition
025740 aa 000100 3150 07 cana 64,dl
025741 aa 000006 6010 04 tnz 6,ic 025747
DBG(121726691)> CPU TRACE: 00373:052033 4 700020235100 (LDA PR7|20) 700020 235(0) 1 0 0 00
DBG(121726691)> CPU REGDUMPAQI: A=000234400043 Q=000000000002 IR:~BAR Carry
DBG(121726693)> CPU TRACE: 00373:052034 4 000100315007 (CANA 000100,DL) 000100 315(0) 0 0 0 07
DBG(121726695)> CPU TRACE: 00373:052035 4 000006601004 (TNZ 000006,IC) 000006 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2663
sfp -> condition = "1"b;
025742 aa 000100 2350 07 lda 64,dl
025743 aa 7 00020 2551 00 orsa pr7|16 stack_frame_flags.condition
DBG(121726697)> CPU TRACE: 00373:052036 4 000100235007 (LDA 000100,DL) 000100 235(0) 0 0 0 07
DBG(121726699)> CPU TRACE: 00373:052037 4 700020255100 (ORSA PR7|20) 700020 255(0) 1 0 0 00
STATEMENT 1 ON LINE 2664
sfp -> on_unit_relp1 = close_on_unit_relp;
025744 aa 000060 2350 03 lda 48,du
025745 aa 7 00036 5511 60 stba pr7|30,60 stack_frame.on_unit_relp1
DBG(121726701)> CPU TRACE: 00373:052040 4 000060235003 (LDA 000060,DU) 000060 235(0) 0 0 0 03
DBG(121726703)> CPU TRACE: 00373:052041 4 700036551160 (STBA PR7|36,*N) 700036 551(0) 1 0 3 00
STATEMENT 1 ON LINE 2665
end;
025746 aa 000034 7100 04 tra 28,ic 026002
DBG(121726705)> CPU TRACE: 00373:052042 4 000034710004 (TRA 000034,IC) 000034 710(0) 0 0 0 04
STATEMENT 1 ON LINE 2677
sfp -> close_file_cleanup_on_unit.name = addr (cleanup_chain);
026002 aa 752004 3734 04 epp7 -11260,ic 000006 = 143154145141
026003 aa 6 01300 3715 20 epp5 pr6|704,*
026004 aa 5 00002 3535 20 epp3 pr5|2,* sfp
026005 aa 3 00000 3535 20 epp3 pr3|0,* sfp
026006 aa 3 00060 6535 00 spri7 pr3|48 pascal_stack_frame.name
DBG(121726707)> CPU TRACE: 00373:052076 4 752004373404 (EPP7 752004,IC) 752004 373(1) 0 0 0 04
DBG(121726709)> CPU TRACE: 00373:052077 4 601300371520 (EPP5 PR6|1300,N*) 601300 371(1) 1 0 1 00
DBG(121726711)> CPU TRACE: 00373:052100 4 500002353520 (EPP3 PR5|2,N*) 500002 353(1) 1 0 1 00
DBG(121726713)> CPU TRACE: 00373:052101 4 300000353520 (EPP3 PR3|0,N*) 300000 353(1) 1 0 1 00
DBG(121726715)> CPU TRACE: 00373:052102 4 300060653500 (SPRI7 PR3|60) 300060 653(1) 1 0 0 00
STATEMENT 1 ON LINE 2678
sfp -> close_file_cleanup_on_unit.body = addr (pascal_operators_$cleanup_sequence);
026007 aa 6 00044 3701 20 epp4 pr6|36,*
026010 la 4 00310 3515 20 epp1 pr4|200,* pascal_operators_$cleanup_sequence
026011 aa 5 00002 3535 20 epp3 pr5|2,* sfp
026012 aa 3 00000 3535 20 epp3 pr3|0,* sfp
026013 aa 3 00062 2515 00 spri1 pr3|50 pascal_stack_frame.body
STATEMENT 1 ON LINE 2679
DBG(121726717)> CPU TRACE: 00373:052103 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(121726719)> CPU TRACE: 00373:052104 4 003177351400 (EPP1 003177) 003177 351(1) 0 0 0 00
DBG(121726721)> CPU TRACE: 00373:052105 4 500002353520 (EPP3 PR5|2,N*) 500002 353(1) 1 0 1 00
DBG(121726723)> CPU TRACE: 00373:052106 4 300000353520 (EPP3 PR3|0,N*) 300000 353(1) 1 0 1 00
DBG(121726725)> CPU TRACE: 00373:052107 4 300062251500 (SPRI1 PR3|62) 300062 251(1) 1 0 0 00
STATEMENT 1 ON LINE 2679
sfp -> close_file_cleanup_on_unit.size = 7;
026014 aa 000007 2360 07 ldq 7,dl
026015 aa 5 00002 3735 20 epp7 pr5|2,* sfp
026016 aa 7 00000 3735 20 epp7 pr7|0,* sfp
026017 aa 7 00064 7561 00 stq pr7|52 pascal_stack_frame.size
DBG(121726727)> CPU TRACE: 00373:052110 4 000007236007 (LDQ 000007,DL) 000007 236(0) 0 0 0 07
DBG(121726729)> CPU TRACE: 00373:052111 4 500002373520 (EPP7 PR5|2,N*) 500002 373(1) 1 0 1 00
DBG(121726731)> CPU TRACE: 00373:052112 4 700000373520 (EPP7 PR7|0,N*) 700000 373(1) 1 0 1 00
DBG(121726733)> CPU TRACE: 00373:052113 4 700064756100 (STQ PR7|64) 700064 756(0) 1 0 0 00
STATEMENT 1 ON LINE 2680
sfp -> close_file_cleanup_on_unit.next,
sfp -> close_file_cleanup_on_unit.flags = "0"b;
026020 aa 777777 2350 07 lda 262143,dl
026021 aa 7 00065 3551 00 ansa pr7|53 pascal_stack_frame.next
026022 aa 777777 2350 03 lda 262143,du
026023 aa 7 00065 3551 00 ansa pr7|53 pascal_stack_frame.flags
DBG(121726735)> CPU TRACE: 00373:052114 4 777777235007 (LDA 777777,DL) 777777 235(0) 0 0 0 07
DBG(121726737)> CPU TRACE: 00373:052115 4 700065355100 (ANSA PR7|65) 700065 355(0) 1 0 0 00
DBG(121726739)> CPU TRACE: 00373:052116 4 777777235003 (LDA 777777,DU) 777777 235(0) 0 0 0 03
DBG(121726741)> CPU TRACE: 00373:052117 4 700065355100 (ANSA PR7|65) 700065 355(0) 1 0 0 00
STATEMENT 1 ON LINE 2683
return;
026024 aa 6 01276 6101 00 rtcd pr6|702
DBG(121726743)> CPU TRACE: 00373:052120 4 601276610100 (RTCD PR6|1276) 601276 610(0) 1 0 0 00
STATEMENT 1 ON LINE 2732
end;
STATEMENT 1 ON LINE 2736
call iox_$find_iocb (switch_name, iocb_ptr, code);
026225 aa 6 00502 3521 00 epp2 pr6|322 switch_name
026226 aa 6 02310 2521 00 spri2 pr6|1224
026227 aa 6 00512 3521 00 epp2 pr6|330 iocb_ptr
026230 aa 6 02312 2521 00 spri2 pr6|1226
026231 aa 6 00500 3521 00 epp2 pr6|320 code
026232 aa 6 02314 2521 00 spri2 pr6|1228
026233 aa 752227 3520 04 epp2 -11113,ic 000462 = 526000000040
026234 aa 6 02316 2521 00 spri2 pr6|1230
026235 aa 752224 3520 04 epp2 -11116,ic 000461 = 464000000000
026236 aa 6 02320 2521 00 spri2 pr6|1232
026237 aa 752220 3520 04 epp2 -11120,ic 000457 = 404000000043
026240 aa 6 02322 2521 00 spri2 pr6|1234
026241 aa 6 02306 6211 00 eax1 pr6|1222
026242 aa 014000 4310 07 fld 6144,dl
026243 aa 6 00044 3701 20 epp4 pr6|36,*
026244 la 4 00144 3521 20 epp2 pr4|100,* iox_$find_iocb
026245 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc
DBG(121726745)> CPU TRACE: 00373:052321 4 600502352100 (EPP2 PR6|502) 600502 352(0) 1 0 0 00
DBG(121726747)> CPU TRACE: 00373:052322 4 602310252100 (SPRI2 PR6|2310) 602310 252(0) 1 0 0 00
DBG(121726749)> CPU TRACE: 00373:052323 4 600512352100 (EPP2 PR6|512) 600512 352(0) 1 0 0 00
DBG(121726751)> CPU TRACE: 00373:052324 4 602312252100 (SPRI2 PR6|2312) 602312 252(0) 1 0 0 00
DBG(121726753)> CPU TRACE: 00373:052325 4 600500352100 (EPP2 PR6|500) 600500 352(0) 1 0 0 00
DBG(121726755)> CPU TRACE: 00373:052326 4 602314252100 (SPRI2 PR6|2314) 602314 252(0) 1 0 0 00
DBG(121726757)> CPU TRACE: 00373:052327 4 752227352004 (EPP2 752227,IC) 752227 352(0) 0 0 0 04
DBG(121726759)> CPU TRACE: 00373:052330 4 602316252100 (SPRI2 PR6|2316) 602316 252(0) 1 0 0 00
DBG(121726761)> CPU TRACE: 00373:052331 4 752224352004 (EPP2 752224,IC) 752224 352(0) 0 0 0 04
DBG(121726763)> CPU TRACE: 00373:052332 4 602320252100 (SPRI2 PR6|2320) 602320 252(0) 1 0 0 00
DBG(121726765)> CPU TRACE: 00373:052333 4 752220352004 (EPP2 752220,IC) 752220 352(0) 0 0 0 04
DBG(121726767)> CPU TRACE: 00373:052334 4 602322252100 (SPRI2 PR6|2322) 602322 252(0) 1 0 0 00
DBG(121726769)> CPU TRACE: 00373:052335 4 602306621100 (EAX1 PR6|2306) 602306 621(0) 1 0 0 00
DBG(121726771)> CPU TRACE: 00373:052336 4 014000431007 (FLD 014000,DL) 014000 431(0) 0 0 0 07
DBG(121726773)> CPU TRACE: 00373:052337 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(121726775)> CPU TRACE: 00373:052340 4 410036352120 (EPP2 PR4|10036,N*) 410036 352(0) 1 0 1 00
DBG(121726775)> CPU FAULT: Fault 24(030), sub 0(00), dfc N, 'RI_MOD: IT_F2 (0)'
DBG(121735419)> CPU TRACE: 00373:052340 4 047304352120 (EPP2 PR0|47304,N*) 047304 352(0) 1 0 1 00
DBG(121735421)> CPU TRACE: 00373:052341 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00
STATEMENT 1 ON LINE 2737^L if code ^= 0 then return;
026246 aa 6 00500 2361 00 ldq pr6|320 code
026247 aa 000002 6000 04 tze 2,ic 026251
026250 aa 6 01304 6101 00 rtcd pr6|708
DBG(121737063)> CPU TRACE: 00373:052342 4 600500236100 (LDQ PR6|500) 600500 236(0) 1 0 0 00
DBG(121737065)> CPU TRACE: 00373:052343 4 000002600004 (TZE 000002,IC) 000002 600(0) 0 0 0 04
STATEMENT 1 ON LINE 2738
atd_ptr = iocb_ptr -> attach_descrip_ptr;
026251 aa 6 00512 3735 20 epp7 pr6|330,* iocb_ptr
026252 aa 7 00014 3735 20 epp7 pr7|12,* iocb.attach_descrip_ptr
026253 aa 6 00662 6535 00 spri7 pr6|434 atd_ptr
DBG(121737067)> CPU TRACE: 00373:052345 4 600512373520 (EPP7 PR6|512,N*) 600512 373(1) 1 0 1 00
DBG(121737069)> CPU TRACE: 00373:052346 4 700014373520 (EPP7 PR7|14,N*) 700014 373(1) 1 0 1 00
DBG(121737071)> CPU TRACE: 00373:052347 4 600662653500 (SPRI7 PR6|662) 600662 653(1) 1 0 0 00
STATEMENT 1 ON LINE 2739
if local_file | static_file then do;
026254 aa 6 01252 3715 20 epp5 pr6|682,* fsb_ptr
026255 aa 5 00001 2351 00 lda pr5|1 pascal_fsb.static_file
026256 aa 003000 3150 07 cana 1536,dl
026257 aa 000157 6000 04 tze 111,ic 026436
DBG(121737073)> CPU TRACE: 00373:052350 4 601252371520 (EPP5 PR6|1252,N*) 601252 371(1) 1 0 1 00
DBG(121737075)> CPU TRACE: 00373:052351 4 500001235100 (LDA PR5|1) 500001 235(0) 1 0 0 00
DBG(121737077)> CPU TRACE: 00373:052352 4 003000315007 (CANA 003000,DL) 003000 315(0) 0 0 0 07
DBG(121737079)> CPU TRACE: 00373:052353 4 000157600004 (TZE 000157,IC) 000157 600(0) 0 0 0 04
STATEMENT 1 ON LINE 2747
else do;
STATEMENT 1 ON LINE 2748
if file_is_text = 0 then do;
026436 aa 5 00032 2361 00 ldq pr5|26 pascal_fsb.file_is_text
026437 aa 000012 6010 04 tnz 10,ic 026451
DBG(121737081)> CPU TRACE: 00373:052532 4 500032236100 (LDQ PR5|32) 500032 236(0) 1 0 0 00
DBG(121737083)> CPU TRACE: 00373:052533 4 000012601004 (TNZ 000012,IC) 000012 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2754
else do;
STATEMENT 1 ON LINE 2755
if atd_ptr = null then do;
026451 aa 6 00662 2371 00 ldaq pr6|434 atd_ptr
026452 aa 752046 6770 04 eraq -11226,ic 000520 = 077777000043 000001000000
026453 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077
026454 aa 000155 6010 04 tnz 109,ic 026631
DBG(121737085)> CPU TRACE: 00373:052545 4 600662237100 (LDAQ PR6|662) 600662 237(0) 1 0 0 00
DBG(121737087)> CPU TRACE: 00373:052546 4 752046677004 (ERAQ 752046,IC) 752046 677(0) 0 0 0 04
DBG(121737089)> CPU TRACE: 00373:052547 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(121737091)> CPU TRACE: 00373:052550 4 000155601004 (TNZ 000155,IC) 000155 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2756
if switch_name = "pascal_input_" then do;
026455 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026456 aa 6 00502 00 0040 desc9a pr6|322,32 switch_name
026457 aa 752151 00 0015 desc9a -11159,13 000626 = 160141163143
026460 aa 000037 6010 04 tnz 31,ic 026517
DBG(121737093)> CPU TRACE: 00373:052551 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121737095)> CPU TRACE: 00373:052554 4 000037601004 (TNZ 000037,IC) 000037 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2757
call iox_$attach_ptr (iocb_ptr, "syn_ user_input", null, code);
026461 aa 752115 2370 04 ldaq -11187,ic 000576 = 163171156137 040165163145
026462 aa 6 02276 7571 00 staq pr6|1214
026463 aa 752115 2370 04 ldaq -11187,ic 000600 = 162137151156 160165164000
026464 aa 6 02300 7571 00 staq pr6|1216
026465 aa 752033 3534 24 epp3 -11237,ic*
026466 aa 6 02330 2535 00 spri3 pr6|1240
026467 aa 6 00512 3521 00 epp2 pr6|330 iocb_ptr
026470 aa 6 02334 2521 00 spri2 pr6|1244
026471 aa 6 02276 3521 00 epp2 pr6|1214
026472 aa 6 02336 2521 00 spri2 pr6|1246
026473 aa 6 02330 3521 00 epp2 pr6|1240
026474 aa 6 02340 2521 00 spri2 pr6|1248
026475 aa 6 00500 3521 00 epp2 pr6|320 code
026476 aa 6 02342 2521 00 spri2 pr6|1250
026477 aa 751762 3520 04 epp2 -11278,ic 000461 = 464000000000
026500 aa 6 02344 2521 00 spri2 pr6|1252
026501 aa 6 02350 2521 00 spri2 pr6|1256
026502 aa 751724 3520 04 epp2 -11308,ic 000426 = 524000000017
026503 aa 6 02346 2521 00 spri2 pr6|1254
026504 aa 751753 3520 04 epp2 -11285,ic 000457 = 404000000043
026505 aa 6 02352 2521 00 spri2 pr6|1258
026506 aa 6 02332 6211 00 eax1 pr6|1242
026507 aa 020000 4310 07 fld 8192,dl
026510 aa 6 00044 3701 20 epp4 pr6|36,*
026511 la 4 00150 3521 20 epp2 pr4|104,* iox_$attach_ptr
026512 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc
DBG(121737097)> CPU TRACE: 00373:052555 4 752115237004 (LDAQ 752115,IC) 752115 237(0) 0 0 0 04
DBG(121737099)> CPU TRACE: 00373:052556 4 602276757100 (STAQ PR6|2276) 602276 757(0) 1 0 0 00
DBG(121737101)> CPU TRACE: 00373:052557 4 752115237004 (LDAQ 752115,IC) 752115 237(0) 0 0 0 04
DBG(121737103)> CPU TRACE: 00373:052560 4 602300757100 (STAQ PR6|2300) 602300 757(0) 1 0 0 00
DBG(121737105)> CPU TRACE: 00373:052561 4 752033353424 (EPP3 752033,IC*) 752033 353(1) 0 0 1 04
DBG(121737107)> CPU TRACE: 00373:052562 4 602330253500 (SPRI3 PR6|2330) 602330 253(1) 1 0 0 00
DBG(121737109)> CPU TRACE: 00373:052563 4 600512352100 (EPP2 PR6|512) 600512 352(0) 1 0 0 00
DBG(121737111)> CPU TRACE: 00373:052564 4 602334252100 (SPRI2 PR6|2334) 602334 252(0) 1 0 0 00
DBG(121737113)> CPU TRACE: 00373:052565 4 602276352100 (EPP2 PR6|2276) 602276 352(0) 1 0 0 00
DBG(121737115)> CPU TRACE: 00373:052566 4 602336252100 (SPRI2 PR6|2336) 602336 252(0) 1 0 0 00
DBG(121737117)> CPU TRACE: 00373:052567 4 602330352100 (EPP2 PR6|2330) 602330 352(0) 1 0 0 00
DBG(121737119)> CPU TRACE: 00373:052570 4 602340252100 (SPRI2 PR6|2340) 602340 252(0) 1 0 0 00
DBG(121737121)> CPU TRACE: 00373:052571 4 600500352100 (EPP2 PR6|500) 600500 352(0) 1 0 0 00
DBG(121737123)> CPU TRACE: 00373:052572 4 602342252100 (SPRI2 PR6|2342) 602342 252(0) 1 0 0 00
DBG(121737125)> CPU TRACE: 00373:052573 4 751762352004 (EPP2 751762,IC) 751762 352(0) 0 0 0 04
DBG(121737127)> CPU TRACE: 00373:052574 4 602344252100 (SPRI2 PR6|2344) 602344 252(0) 1 0 0 00
DBG(121737129)> CPU TRACE: 00373:052575 4 602350252100 (SPRI2 PR6|2350) 602350 252(0) 1 0 0 00
DBG(121737131)> CPU TRACE: 00373:052576 4 751724352004 (EPP2 751724,IC) 751724 352(0) 0 0 0 04
DBG(121737133)> CPU TRACE: 00373:052577 4 602346252100 (SPRI2 PR6|2346) 602346 252(0) 1 0 0 00
DBG(121737135)> CPU TRACE: 00373:052600 4 751753352004 (EPP2 751753,IC) 751753 352(0) 0 0 0 04
DBG(121737137)> CPU TRACE: 00373:052601 4 602352252100 (SPRI2 PR6|2352) 602352 252(0) 1 0 0 00
DBG(121737139)> CPU TRACE: 00373:052602 4 602332621100 (EAX1 PR6|2332) 602332 621(0) 1 0 0 00
DBG(121737141)> CPU TRACE: 00373:052603 4 020000431007 (FLD 020000,DL) 020000 431(0) 0 0 0 07
DBG(121737143)> CPU TRACE: 00373:052604 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(121737145)> CPU TRACE: 00373:052605 4 410046352120 (EPP2 PR4|10046,N*) 410046 352(0) 1 0 1 00
DBG(121737145)> CPU FAULT: Fault 24(030), sub 0(00), dfc N, 'RI_MOD: IT_F2 (0)'
DBG(121745789)> CPU TRACE: 00373:052605 4 047314352120 (EPP2 PR0|47314,N*) 047314 352(0) 1 0 1 00
DBG(121745791)> CPU TRACE: 00373:052606 4 000622700100 (TSX0 PR0|622) 000622 700(0) 1 0 0 00
STATEMENT 1 ON LINE 2758
if code ^= 0 then return;
026513 aa 6 00500 2361 00 ldq pr6|320 code
026514 aa 000115 6000 04 tze 77,ic 026631
026515 aa 6 01304 6101 00 rtcd pr6|708
DBG(121753873)> CPU TRACE: 00373:052607 4 600500236100 (LDQ PR6|500) 600500 236(0) 1 0 0 00
DBG(121753875)> CPU TRACE: 00373:052610 4 000115600004 (TZE 000115,IC) 000115 600(0) 0 0 0 04
STATEMENT 1 ON LINE 2776
atd_ptr = iocb_ptr -> attach_descrip_ptr;
026631 aa 6 00512 3735 20 epp7 pr6|330,* iocb_ptr
026632 aa 7 00014 3735 20 epp7 pr7|12,* iocb.attach_descrip_ptr
026633 aa 6 00662 6535 00 spri7 pr6|434 atd_ptr
DBG(121753877)> CPU TRACE: 00373:052725 4 600512373520 (EPP7 PR6|512,N*) 600512 373(1) 1 0 1 00
DBG(121753879)> CPU TRACE: 00373:052726 4 700014373520 (EPP7 PR7|14,N*) 700014 373(1) 1 0 1 00
DBG(121753881)> CPU TRACE: 00373:052727 4 600662653500 (SPRI7 PR6|662) 600662 653(1) 1 0 0 00
STATEMENT 1 ON LINE 2777
if atd_ptr -> attach_description.length > 7 then
vfile_switch = (substr (atd_ptr -> attach_description.string, 1, 7) = "vfile_ ");
026634 aa 7 00000 2361 00 ldq pr7|0 attach_description.length
026635 aa 000007 1160 07 cmpq 7,dl
026636 aa 000013 6044 04 tmoz 11,ic 026651
026637 aa 7 00001 2351 00 lda pr7|1 attach_description.string
026640 aa 7 00002 2361 00 ldq pr7|2 attach_description.string
026641 aa 0 00176 3771 00 anaq pr0|126 = 777777777777 777777777000
026642 aa 751626 1170 04 cmpaq -11370,ic 000470 = 166146151154 145137040000
026643 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as
026644 aa 000035 7710 00 arl 29
026645 aa 6 01252 3715 20 epp5 pr6|682,* fsb_ptr
026646 aa 5 00001 6751 00 era pr5|1 pascal_fsb.vfile_switch
026647 aa 000100 3750 07 ana 64,dl
026650 aa 5 00001 6551 00 ersa pr5|1 pascal_fsb.vfile_switch
DBG(121753883)> CPU TRACE: 00373:052730 4 700000236100 (LDQ PR7|0) 700000 236(0) 1 0 0 00
DBG(121753885)> CPU TRACE: 00373:052731 4 000007116007 (CMPQ 000007,DL) 000007 116(0) 0 0 0 07
DBG(121753887)> CPU TRACE: 00373:052732 4 000013604404 (TMOZ 000013,IC) 000013 604(1) 0 0 0 04
DBG(121753889)> CPU TRACE: 00373:052733 4 700001235100 (LDA PR7|1) 700001 235(0) 1 0 0 00
DBG(121753891)> CPU TRACE: 00373:052734 4 700002236100 (LDQ PR7|2) 700002 236(0) 1 0 0 00
DBG(121753893)> CPU TRACE: 00373:052735 4 000176377100 (ANAQ PR0|176) 000176 377(0) 1 0 0 00
DBG(121753895)> CPU TRACE: 00373:052736 4 751626117004 (CMPAQ 751626,IC) 751626 117(0) 0 0 0 04
DBG(121753897)> CPU TRACE: 00373:052737 4 000512700100 (TSX0 PR0|512) 000512 700(0) 1 0 0 00
DBG(121753905)> CPU TRACE: 00373:052740 4 000035771000 (ARL 000035) 000035 771(0) 0 0 0 00
DBG(121753907)> CPU TRACE: 00373:052741 4 601252371520 (EPP5 PR6|1252,N*) 601252 371(1) 1 0 1 00
DBG(121753909)> CPU TRACE: 00373:052742 4 500001675100 (ERA PR5|1) 500001 675(0) 1 0 0 00
DBG(121753911)> CPU TRACE: 00373:052743 4 000100375007 (ANA 000100,DL) 000100 375(0) 0 0 0 07
DBG(121753913)> CPU TRACE: 00373:052744 4 500001655100 (ERSA PR5|1) 500001 655(0) 1 0 0 00
STATEMENT 1 ON LINE 2780
code = 0;
026651 aa 6 00500 4501 00 stz pr6|320 code
DBG(121753915)> CPU TRACE: 00373:052745 4 600500450100 (STZ PR6|500) 600500 450(0) 1 0 0 00
STATEMENT 1 ON LINE 2781
get_next_char, interactive_file = "0"b;
026652 aa 001442 2350 04 lda 802,ic 030314 = 777777777377
026653 aa 6 01252 3715 20 epp5 pr6|682,* fsb_ptr
026654 aa 5 00001 3551 00 ansa pr5|1 pascal_fsb.get_next_char
026655 aa 001444 2350 04 lda 804,ic 030321 = 777777757777
026656 aa 5 00001 3551 00 ansa pr5|1 pascal_fsb.interactive_file
DBG(121753917)> CPU TRACE: 00373:052746 4 001442235004 (LDA 001442,IC) 001442 235(0) 0 0 0 04
DBG(121753919)> CPU TRACE: 00373:052747 4 601252371520 (EPP5 PR6|1252,N*) 601252 371(1) 1 0 1 00
DBG(121753921)> CPU TRACE: 00373:052750 4 500001355100 (ANSA PR5|1) 500001 355(0) 1 0 0 00
DBG(121753923)> CPU TRACE: 00373:052751 4 001444235004 (LDA 001444,IC) 001444 235(0) 0 0 0 04
DBG(121753925)> CPU TRACE: 00373:052752 4 500001355100 (ANSA PR5|1) 500001 355(0) 1 0 0 00
STATEMENT 1 ON LINE 2782
system_ptr = iocb_ptr;
026657 aa 6 00512 3535 20 epp3 pr6|330,* iocb_ptr
026660 aa 5 00010 2535 00 spri3 pr5|8 pascal_fsb.system_ptr
STATEMENT 1 ON LINE 2783
DBG(121753927)> CPU TRACE: 00373:052753 4 600512353520 (EPP3 PR6|512,N*) 600512 353(1) 1 0 1 00
DBG(121753929)> CPU TRACE: 00373:052754 4 500010253500 (SPRI3 PR5|10) 500010 253(1) 1 0 0 00
STATEMENT 1 ON LINE 2783
return;
026661 aa 6 01304 6101 00 rtcd pr6|708
DBG(121753931)> CPU TRACE: 00373:052755 4 601304610100 (RTCD PR6|1304) 601304 610(0) 1 0 0 00
STATEMENT 1 ON LINE 705
if code ^= 0 then go to error_while_RESET;
005473 aa 6 00500 2361 00 ldq pr6|320 code
005474 aa 000270 6010 04 tnz 184,ic 005764
DBG(121753933)> CPU TRACE: 00373:031567 4 600500236100 (LDQ PR6|500) 600500 236(0) 1 0 0 00
DBG(121753935)> CPU TRACE: 00373:031570 4 000270601004 (TNZ 000270,IC) 000270 601(0) 0 0 0 04
STATEMENT 1 ON LINE 707
if file_is_text ^= 0 then do;
005475 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
005476 aa 7 00032 2361 00 ldq pr7|26 pascal_fsb.file_is_text
005477 aa 000102 6000 04 tze 66,ic 005601
DBG(121753937)> CPU TRACE: 00373:031571 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(121753939)> CPU TRACE: 00373:031572 4 700032236100 (LDQ PR7|32) 700032 236(0) 1 0 0 00
DBG(121753941)> CPU TRACE: 00373:031573 4 000102600004 (TZE 000102,IC) 000102 600(0) 0 0 0 04
STATEMENT 1 ON LINE 708
if ^on_process_io () then do;
005500 aa 022576 3520 04 epp2 9598,ic 030276 = 000002000000
005501 aa 021161 6700 04 tsp4 8817,ic 026662
005502 aa 6 01516 2351 00 lda pr6|846
005503 aa 400000 3150 03 cana 131072,du
005504 aa 000024 6010 04 tnz 20,ic 005530
DBG(121753943)> CPU TRACE: 00373:031574 4 022576352004 (EPP2 022576,IC) 022576 352(0) 0 0 0 04
DBG(121753945)> CPU TRACE: 00373:031575 4 021161670004 (TSP4 021161,IC) 021161 670(0) 0 0 0 04
ENTRY TO on_process_io STATEMENT 1 ON LINE 2787
on_process_io: proc returns (bit (1));
026662 aa 6 01312 6501 00 spri4 pr6|714
026663 aa 6 01314 2521 00 spri2 pr6|716
DBG(121753947)> CPU TRACE: 00373:052756 4 601312650100 (SPRI4 PR6|1312) 601312 650(0) 1 0 0 00
DBG(121753949)> CPU TRACE: 00373:052757 4 601314252100 (SPRI2 PR6|1314) 601314 252(0) 1 0 0 00
STATEMENT 1 ON LINE 2793
iocb_ptr = system_ptr;
026664 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
026665 aa 7 00010 3735 20 epp7 pr7|8,* pascal_fsb.system_ptr
026666 aa 6 01320 6535 00 spri7 pr6|720 iocb_ptr
DBG(121753951)> CPU TRACE: 00373:052760 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(121753953)> CPU TRACE: 00373:052761 4 700010373520 (EPP7 PR7|10,N*) 700010 373(1) 1 0 1 00
DBG(121753955)> CPU TRACE: 00373:052762 4 601320653500 (SPRI7 PR6|1320) 601320 653(1) 1 0 0 00
STATEMENT 1 ON LINE 2794
test_syn:
if (iocb_ptr -> iocb.name = "user_input")
| (iocb_ptr -> iocb.name = "user_output")^L | (iocb_ptr -> iocb.name = "error_output")
| (iocb_ptr -> iocb.name = "user_i/o") then return ("1"b);
026667 aa 6 01320 3735 20 epp7 pr6|720,* iocb_ptr
026670 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026671 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026672 aa 751643 00 0012 desc9a -11357,10 000533 = 165163145162
026673 aa 000015 6000 04 tze 13,ic 026710
026674 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026675 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026676 aa 751634 00 0013 desc9a -11364,11 000530 = 165163145162
026677 aa 000011 6000 04 tze 9,ic 026710
026700 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026701 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026702 aa 751625 00 0014 desc9a -11371,12 000525 = 145162162157
026703 aa 000005 6000 04 tze 5,ic 026710
026704 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026705 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026706 aa 751602 00 0010 desc9a -11390,8 000506 = 165163145162
026707 aa 000007 6010 04 tnz 7,ic 026716
026710 aa 6 01314 3715 20 epp5 pr6|716,*
026711 aa 5 00002 3535 20 epp3 pr5|2,*
026712 aa 403 100 060 400 csl (),(pr),fill(1),bool(move)
026713 aa 000000 00 0000 descb 0,0
026714 aa 3 00000 00 0001 descb pr3|0,1
026715 aa 6 01312 6101 00 rtcd pr6|714
DBG(121753957)> CPU TRACE: 00373:052763 4 601320373520 (EPP7 PR6|1320,N*) 601320 373(1) 1 0 1 00
DBG(121753959)> CPU TRACE: 00373:052764 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121753961)> CPU TRACE: 00373:052767 4 000015600004 (TZE 000015,IC) 000015 600(0) 0 0 0 04
DBG(121753963)> CPU TRACE: 00373:052770 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121753965)> CPU TRACE: 00373:052773 4 000011600004 (TZE 000011,IC) 000011 600(0) 0 0 0 04
DBG(121753967)> CPU TRACE: 00373:052774 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121753969)> CPU TRACE: 00373:052777 4 000005600004 (TZE 000005,IC) 000005 600(0) 0 0 0 04
DBG(121753971)> CPU TRACE: 00373:053000 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121753973)> CPU TRACE: 00373:053003 4 000007601004 (TNZ 000007,IC) 000007 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2799
if iocb_ptr -> syn_father = null then return ("0"b);
026716 aa 7 00146 2371 00 ldaq pr7|102 iocb.syn_father
026717 aa 751601 6770 04 eraq -11391,ic 000520 = 077777000043 000001000000
026720 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077
026721 aa 000007 6010 04 tnz 7,ic 026730
026722 aa 6 01314 3715 20 epp5 pr6|716,*
026723 aa 5 00002 3535 20 epp3 pr5|2,*
026724 aa 003 100 060 400 csl (),(pr),fill(0),bool(move)
026725 aa 000000 00 0000 descb 0,0
026726 aa 3 00000 00 0001 descb pr3|0,1
026727 aa 6 01312 6101 00 rtcd pr6|714
DBG(121753975)> CPU TRACE: 00373:053012 4 700146237100 (LDAQ PR7|146) 700146 237(0) 1 0 0 00
DBG(121753977)> CPU TRACE: 00373:053013 4 751601677004 (ERAQ 751601,IC) 751601 677(0) 0 0 0 04
DBG(121753979)> CPU TRACE: 00373:053014 4 000460377100 (ANAQ PR0|460) 000460 377(0) 1 0 0 00
DBG(121753981)> CPU TRACE: 00373:053015 4 000007601004 (TNZ 000007,IC) 000007 601(0) 0 0 0 04
STATEMENT 1 ON LINE 2800
iocb_ptr = iocb_ptr -> syn_father;
026730 aa 7 00146 3715 20 epp5 pr7|102,* iocb.syn_father
026731 aa 6 01320 6515 00 spri5 pr6|720 iocb_ptr
DBG(121753983)> CPU TRACE: 00373:053024 4 700146371520 (EPP5 PR7|146,N*) 700146 371(1) 1 0 1 00
DBG(121753985)> CPU TRACE: 00373:053025 4 601320651500 (SPRI5 PR6|1320) 601320 651(1) 1 0 0 00
STATEMENT 1 ON LINE 2801
go to test_syn;
026732 aa 777735 7100 04 tra -35,ic 026667
DBG(121753987)> CPU TRACE: 00373:053026 4 777735710004 (TRA 777735,IC) 777735 710(0) 0 0 0 04
est_syn:
if (iocb_ptr -> iocb.name = "user_input")
| (iocb_ptr -> iocb.name = "user_output")^L | (iocb_ptr -> iocb.name = "error_output")
| (iocb_ptr -> iocb.name = "user_i/o") then return ("1"b);
026667 aa 6 01320 3735 20 epp7 pr6|720,* iocb_ptr
026670 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026671 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026672 aa 751643 00 0012 desc9a -11357,10 000533 = 165163145162
026673 aa 000015 6000 04 tze 13,ic 026710
026674 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026675 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026676 aa 751634 00 0013 desc9a -11364,11 000530 = 165163145162
026677 aa 000011 6000 04 tze 9,ic 026710
026700 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026701 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026702 aa 751625 00 0014 desc9a -11371,12 000525 = 145162162157
026703 aa 000005 6000 04 tze 5,ic 026710
026704 aa 040 004 106 500 cmpc (pr),(ic),fill(040)
026705 aa 7 00001 00 0040 desc9a pr7|1,32 iocb.name
026706 aa 751602 00 0010 desc9a -11390,8 000506 = 165163145162
026707 aa 000007 6010 04 tnz 7,ic 026716
026710 aa 6 01314 3715 20 epp5 pr6|716,*
026711 aa 5 00002 3535 20 epp3 pr5|2,*
026712 aa 403 100 060 400 csl (),(pr),fill(1),bool(move)
026713 aa 000000 00 0000 descb 0,0
026714 aa 3 00000 00 0001 descb pr3|0,1
026715 aa 6 01312 6101 00 rtcd pr6|714
DBG(121753989)> CPU TRACE: 00373:052763 4 601320373520 (EPP7 PR6|1320,N*) 601320 373(1) 1 0 1 00
DBG(121753991)> CPU TRACE: 00373:052764 4 040004106500 (CMPC PR0|40004) 040004 106(1) 0 0 0 00
DBG(121753993)> CPU TRACE: 00373:052767 4 000015600004 (TZE 000015,IC) 000015 600(0) 0 0 0 04
DBG(121753995)> CPU TRACE: 00373:053004 4 601314371520 (EPP5 PR6|1314,N*) 601314 371(1) 1 0 1 00
DBG(121753997)> CPU TRACE: 00373:053005 4 500002353520 (EPP3 PR5|2,N*) 500002 353(1) 1 0 1 00
DBG(121753999)> CPU TRACE: 00373:053006 4 403100060400 (CSL 403100) 403100 060(1) 0 0 0 00
DBG(121754001)> CPU TRACE: 00373:053011 4 601312610100 (RTCD PR6|1312) 601312 610(0) 1 0 0 00
if ^on_process_io () then do;
005500 aa 022576 3520 04 epp2 9598,ic 030276 = 000002000000
005501 aa 021161 6700 04 tsp4 8817,ic 026662
005502 aa 6 01516 2351 00 lda pr6|846
005503 aa 400000 3150 03 cana 131072,du
005504 aa 000024 6010 04 tnz 20,ic 005530
DBG(121754003)> CPU TRACE: 00373:031576 4 601516235100 (LDA PR6|1516) 601516 235(0) 1 0 0 00
DBG(121754005)> CPU TRACE: 00373:031577 4 400000315003 (CANA 400000,DU) 400000 315(0) 0 0 0 03
DBG(121754007)> CPU TRACE: 00373:031600 4 000024601004 (TNZ 000024,IC) 000024 601(0) 0 0 0 04
STATEMENT 1 ON LINE 712
file_is_open = "1"b;
005530 aa 000002 2350 07 lda 2,dl
005531 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
005532 aa 7 00001 2551 00 orsa pr7|1 pascal_fsb.file_is_open
DBG(121754009)> CPU TRACE: 00373:031624 4 000002235007 (LDA 000002,DL) 000002 235(0) 0 0 0 07
DBG(121754011)> CPU TRACE: 00373:031625 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(121754013)> CPU TRACE: 00373:031626 4 700001255100 (ORSA PR7|1) 700001 255(0) 1 0 0 00
STATEMENT 1 ON LINE 713
file_status = pascal_codes_$input_mode;
005533 aa 6 00044 3701 20 epp4 pr6|36,*
005534 la 4 00302 2361 20 ldq pr4|194,* pascal_codes_$input_mode
005535 aa 7 00005 7561 00 stq pr7|5 pascal_fsb.file_status
DBG(121754015)> CPU TRACE: 00373:031627 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(121754017)> CPU TRACE: 00373:031630 4 055510236000 (LDQ 055510) 055510 236(0) 0 0 0 00
DBG(121754019)> CPU TRACE: 00373:031631 4 700005756100 (STQ PR7|5) 700005 756(0) 1 0 0 00
STATEMENT 1 ON LINE 714
eof = 0;
005536 aa 7 00004 4501 00 stz pr7|4 pascal_fsb.eof
DBG(121754021)> CPU TRACE: 00373:031632 4 700004450100 (STZ PR7|4) 700004 450(0) 1 0 0 00
STATEMENT 1 ON LINE 715
record_counter = 1;
005537 aa 000001 2360 07 ldq 1,dl
005540 aa 7 00022 7561 00 stq pr7|18 pascal_fsb.record_counter
DBG(121754023)> CPU TRACE: 00373:031633 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(121754025)> CPU TRACE: 00373:031634 4 700022756100 (STQ PR7|22) 700022 756(0) 1 0 0 00
STATEMENT 1 ON LINE 716
buff_index = 0;
005541 aa 7 00034 4501 00 stz pr7|28 pascal_fsb.buff_index
DBG(121754027)> CPU TRACE: 00373:031635 4 700034450100 (STZ PR7|34) 700034 450(0) 1 0 0 00
STATEMENT 1 ON LINE 717
buff_max = 0;
005542 aa 7 00035 4501 00 stz pr7|29 pascal_fsb.buff_max
DBG(121754029)> CPU TRACE: 00373:031636 4 700035450100 (STZ PR7|35) 700035 450(0) 1 0 0 00
STATEMENT 1 ON LINE 718
eoln = 1;
005543 aa 7 00033 7561 00 stq pr7|27 pascal_fsb.eoln
DBG(121754031)> CPU TRACE: 00373:031637 4 700033756100 (STQ PR7|33) 700033 756(0) 1 0 0 00
STATEMENT 1 ON LINE 719
line_is_complete = "1"b;
005544 aa 000004 2350 07 lda 4,dl
005545 aa 7 00001 2551 00 orsa pr7|1 pascal_fsb.line_is_complete
DBG(121754033)> CPU TRACE: 00373:031640 4 000004235007 (LDA 000004,DL) 000004 235(0) 0 0 0 07
DBG(121754035)> CPU TRACE: 00373:031641 4 700001255100 (ORSA PR7|1) 700001 255(0) 1 0 0 00
STATEMENT 1 ON LINE 720^L window_pad = "0"b;
005546 aa 000777 2350 07 lda 511,dl
005547 aa 7 00046 3551 00 ansa pr7|38 pascal_text_fsb.window_pad
DBG(121754037)> CPU TRACE: 00373:031642 4 000777235007 (LDA 000777,DL) 000777 235(0) 0 0 0 07
DBG(121754039)> CPU TRACE: 00373:031643 4 700046355100 (ANSA PR7|46) 700046 355(0) 1 0 0 00
STATEMENT 1 ON LINE 721
interactive_file = (sp -> interactive_mode) & (^vfile_switch);
005550 aa 7 00001 2351 00 lda pr7|1 pascal_fsb.vfile_switch
005551 aa 000035 7350 00 als 29
005552 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000
005553 aa 0 00002 6751 00 era pr0|2 = 400000000000
005554 aa 6 01513 7551 00 sta pr6|843
005555 aa 6 01254 3715 20 epp5 pr6|684,* sp
005556 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move)
005557 aa 5 00037 43 0001 descb pr5|31(21),1 pascal_stack_frame_flags.interactive_mode
005560 aa 6 00056 00 0044 descb pr6|46,36
005561 aa 6 00056 2351 00 lda pr6|46
005562 aa 6 01513 3751 00 ana pr6|843
005563 aa 000026 7710 00 arl 22
005564 aa 7 00001 6751 00 era pr7|1 pascal_fsb.interactive_file
005565 aa 020000 3750 07 ana 8192,dl
005566 aa 7 00001 6551 00 ersa pr7|1 pascal_fsb.interactive_file
DBG(121754041)> CPU TRACE: 00373:031644 4 700001235100 (LDA PR7|1) 700001 235(0) 1 0 0 00
DBG(121754043)> CPU TRACE: 00373:031645 4 000035735000 (ALS 000035) 000035 735(0) 0 0 0 00
DBG(121754045)> CPU TRACE: 00373:031646 4 000002377100 (ANAQ PR0|2) 000002 377(0) 1 0 0 00
DBG(121754047)> CPU TRACE: 00373:031647 4 000002675100 (ERA PR0|2) 000002 675(0) 1 0 0 00
DBG(121754049)> CPU TRACE: 00373:031650 4 601513755100 (STA PR6|1513) 601513 755(0) 1 0 0 00
DBG(121754051)> CPU TRACE: 00373:031651 4 601254371520 (EPP5 PR6|1254,N*) 601254 371(1) 1 0 1 00
DBG(121754053)> CPU TRACE: 00373:031652 4 003100060500 (CSL PR0|3100) 003100 060(1) 0 0 0 00
DBG(121754055)> CPU TRACE: 00373:031655 4 600056235100 (LDA PR6|56) 600056 235(0) 1 0 0 00
DBG(121754057)> CPU TRACE: 00373:031656 4 601513375100 (ANA PR6|1513) 601513 375(0) 1 0 0 00
DBG(121754059)> CPU TRACE: 00373:031657 4 000026771000 (ARL 000026) 000026 771(0) 0 0 0 00
DBG(121754061)> CPU TRACE: 00373:031660 4 700001675100 (ERA PR7|1) 700001 675(0) 1 0 0 00
DBG(121754063)> CPU TRACE: 00373:031661 4 020000375007 (ANA 020000,DL) 020000 375(0) 0 0 0 07
DBG(121754065)> CPU TRACE: 00373:031662 4 700001655100 (ERSA PR7|1) 700001 655(0) 1 0 0 00
STATEMENT 1 ON LINE 722
if interactive_file then
get_next_char = "1"b;
005567 aa 7 00001 2351 00 lda pr7|1 pascal_fsb.interactive_file
005570 aa 020000 3150 07 cana 8192,dl
005571 aa 000004 6000 04 tze 4,ic 005575
005572 aa 000400 2350 07 lda 256,dl
005573 aa 7 00001 2551 00 orsa pr7|1 pascal_fsb.get_next_char
005574 aa 000160 7100 04 tra 112,ic 005754
DBG(121754067)> CPU TRACE: 00373:031663 4 700001235100 (LDA PR7|1) 700001 235(0) 1 0 0 00
DBG(121754069)> CPU TRACE: 00373:031664 4 020000315007 (CANA 020000,DL) 020000 315(0) 0 0 0 07
DBG(121754071)> CPU TRACE: 00373:031665 4 000004600004 (TZE 000004,IC) 000004 600(0) 0 0 0 04
DBG(121754073)> CPU TRACE: 00373:031666 4 000400235007 (LDA 000400,DL) 000400 235(0) 0 0 0 07
DBG(121754075)> CPU TRACE: 00373:031667 4 700001255100 (ORSA PR7|1) 700001 255(0) 1 0 0 00
DBG(121754077)> CPU TRACE: 00373:031670 4 000160710004 (TRA 000160,IC) 000160 710(0) 0 0 0 04
DBG(121754077)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121759035)> CPU TRACE: 00373:031670 4 032050710000 (TRA 032050) 032050 710(0) 0 0 0 00
STATEMENT 1 ON LINE 747
SOL_fpos = 1;
005754 aa 000001 2360 07 ldq 1,dl
005755 aa 6 01252 3735 20 epp7 pr6|682,* fsb_ptr
005756 aa 7 00023 7561 00 stq pr7|19 pascal_fsb.SOL_fpos
DBG(121759037)> CPU TRACE: 00373:032050 4 000001236007 (LDQ 000001,DL) 000001 236(0) 0 0 0 07
DBG(121759039)> CPU TRACE: 00373:032051 4 601252373520 (EPP7 PR6|1252,N*) 601252 373(1) 1 0 1 00
DBG(121759041)> CPU TRACE: 00373:032052 4 700023756100 (STQ PR7|23) 700023 756(0) 1 0 0 00
STATEMENT 1 ON LINE 749
call pascal_operators_$RESET_file_return;
005757 aa 6 00056 6211 00 eax1 pr6|46
005760 aa 000000 4310 07 fld 0,dl
005761 aa 6 00044 3701 20 epp4 pr6|36,*
005762 la 4 00334 3521 20 epp2 pr4|220,* pascal_operators_$RESET_file_return
005763 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out
DBG(121759043)> CPU TRACE: 00373:032053 4 600056621100 (EAX1 PR6|56) 600056 621(0) 1 0 0 00
DBG(121759045)> CPU TRACE: 00373:032054 4 000000431007 (FLD 000000,DL) 000000 431(0) 0 0 0 07
DBG(121759047)> CPU TRACE: 00373:032055 4 600044370120 (EPP4 PR6|44,N*) 600044 370(0) 1 0 1 00
DBG(121759049)> CPU TRACE: 00373:032056 4 003167352000 (EPP2 003167) 003167 352(0) 0 0 0 00
DBG(121759051)> CPU TRACE: 00373:032057 4 000623700100 (TSX0 PR0|623) 000623 700(0) 1 0 0 00
003167 3745 RESET_file_return:
003167 aa 6 00000 3731 00 3768 epbp7 6|0 PR7 -> stack header
003170 3769 inhibit on
003170 aa 7 00024 6523 00 3770 spri6 7|stack_header.stack_end_ptr new stack end
003171 aa 6 00020 3723 20 3771 epp6 6|stack_frame.prev_sp,* previous frame
003172 3772 inhibit off
003172 aa 6 00030 3501 20 3773 epp0 6|stack_frame.operator_ptr,* restore op_ptr
003173 aa 6 00026 2131 20 3774 epaq 6|stack_frame.entry_ptr,*
003174 aa 7 00026 7641 61 3775 lprp4 7|stack_header.lot_ptr,*au
003175 aa 000000 6340 07 3776 ldi 0,dl reset indicators
003176 aa 6 00024 6101 00 3777 rtcd 6|stack_frame.return_ptr
DBG(121759071)> CPU TRACE: 00373:003167 4 600000373100 (EPBP7 PR6|0) 600000 373(0) 1 0 0 00
DBG(121759073)> CPU TRACE: 00373:003170 4 700024652300 (SPRI6 PR7|24) 700024 652(0) 1 1 0 00
DBG(121759075)> CPU TRACE: 00373:003171 4 600020372320 (EPP6 PR6|20,N*) 600020 372(0) 1 1 1 00
DBG(121759077)> CPU TRACE: 00373:003172 4 600030350120 (EPP0 PR6|30,N*) 600030 350(0) 1 0 1 00
DBG(121759079)> CPU TRACE: 00373:003173 4 600026213120 (EPAQ PR6|26,N*) 600026 213(0) 1 0 1 00
DBG(121759081)> CPU TRACE: 00373:003174 4 700026764161 (LPRP4 PR7|26,*AU) 700026 764(0) 1 0 3 01
DBG(121759083)> CPU TRACE: 00373:003175 4 000000634007 (LDI 000000,DL) 000000 634(0) 0 0 0 07
DBG(121759085)> CPU TRACE: 00373:003176 4 600024610100 (RTCD PR6|24) 600024 610(0) 1 0 0 00
DBG(121759087)> CPU TRACE: 00377:000015 4 400002353520 (EPP3 PR4|2,N*) 400002 353(1) 1 0 1 00
STATEMENT 1 ON LINE 1 (CONT.)
000012 la 4 00014 3535 20 epp3 pr4|12,* input
000013 aa 6 00104 2535 00 spri3 pr6|68
000014 .a 0 00013 2731 00 tsp3 pr0|11 RESET_file
000015 aa 4 00002 3535 20 epp3 pr4|2,* output
000016 aa 6 00104 2535 00 spri3 pr6|68
000017 .a 0 00014 2731 00 tsp3 pr0|12 REWRITE
DBG(121759087)> CPU TRACE: 00377:000015 4 400002353520 (EPP3 PR4|2,N*) 400002 353(1) 1 0 1 00
DBG(121759087)> CPU FAULT: Fault 17(021), sub 0(00), dfc N, 'PTW0.F == 0'
DBG(121760535)> CPU TRACE: 00377:000015 4 000377353520 (EPP3 PR0|377,N*) 000377 353(1) 1 0 1 00
DBG(121760537)> CPU TRACE: 00377:000016 4 600104253500 (SPRI3 PR6|104) 600104 253(1) 1 0 0 00
DBG(121760539)> CPU TRACE: 00377:000017 4 000014273100 (TSP3 PR0|14) 000014 273(0) 1 0 0 00
DBG(121760541)> CPU TRACE: 00373:000052 4 001052710000 (TRA 001052) 001052 710(0) 0 0 0 00
000052 0a 001052 7100 00 342 tra REWRITE_call 12
DBG(121760541)> CPU TRACE: 00373:000052 4 001052710000 (TRA 001052) 001052 710(0) 0 0 0 00
001052 1342 REWRITE_call:
001052 4a 4 00026 3515 20 1343 epp1 <pascal_io_>|[REWRITE] PL/1 entry point
001053 aa 6 00114 6521 00 1344 spri6 6|io_stack_frame_ptr
001054 0a 003156 7100 00 1345 tra common_op_call
DBG(121760543)> CPU TRACE: 00373:001052 4 032125351400 (EPP1 032125) 032125 351(1) 0 0 0 00
DBG(121760545)> CPU TRACE: 00373:001053 4 600114652100 (SPRI6 PR6|114) 600114 652(0) 1 0 0 00
DBG(121760547)> CPU TRACE: 00373:001054 4 003156710000 (TRA 003156) 003156 710(0) 0 0 0 00
003156 3724 common_op_call:
003156 aa 6 00030 2501 00 3725 spri0 6|stack_frame.operator_ptr
003157 aa 6 00024 2535 00 3726 spri3 6|stack_frame.return_ptr
003160 aa 6 00104 3521 00 3727 epp2 6|arg_1
003161 aa 6 00102 2521 00 3728 spri2 6|arg_ptr
003162 0a 000430 2370 00 3729 ldaq one_arg_header
003163 aa 6 00100 7571 00 3730 staq 6|arg_header
003164 aa 6 00100 3501 00 3731 epp0 6|arg_header
003165 aa 6 00000 3731 00 3732 epbp7 6|0
003166 aa 1 00000 7131 00 3733 call6 1|0
DBG(121760549)> CPU TRACE: 00373:003156 4 600030250100 (SPRI0 PR6|30) 600030 250(0) 1 0 0 00
DBG(121760551)> CPU TRACE: 00373:003157 4 600024253500 (SPRI3 PR6|24) 600024 253(1) 1 0 0 00
DBG(121760553)> CPU TRACE: 00373:003160 4 600104352100 (EPP2 PR6|104) 600104 352(0) 1 0 0 00
DBG(121760555)> CPU TRACE: 00373:003161 4 600102252100 (SPRI2 PR6|102) 600102 252(0) 1 0 0 00
DBG(121760557)> CPU TRACE: 00373:003162 4 000430237000 (LDAQ 000430) 000430 237(0) 0 0 0 00
DBG(121760559)> CPU TRACE: 00373:003163 4 600100757100 (STAQ PR6|100) 600100 757(0) 1 0 0 00
DBG(121760561)> CPU TRACE: 00373:003164 4 600100350100 (EPP0 PR6|100) 600100 350(0) 1 0 0 00
DBG(121760563)> CPU TRACE: 00373:003165 4 600000373100 (EPBP7 PR6|0) 600000 373(0) 1 0 0 00
DBG(121760565)> CPU TRACE: 00373:003166 4 100000713100 (CALL6 PR1|0) 100000 713(0) 1 0 0 00
ENTRY TO REWRITE STATEMENT 1 ON LINE 756
REWRITE: entry (io_parameters) options (support);
006027 ta 003565000000
006030 da 001363300000
006031 aa 002660 6270 00 eax7 1456
006032 aa 7 00034 3521 20 epp2 pr7|28,*
006033 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry
006034 aa 000002000000
006035 aa 000000000000
006036 aa 0 01372 7001 00 tsx0 pr0|762 set_support
006037 aa 775511 7000 04 tsx0 -1207,ic 003550
DBG(121760567)> CPU TRACE: 00373:032125 4 002660627000 (EAX7 002660) 002660 627(0) 0 0 0 00
DBG(121760569)> CPU TRACE: 00373:032126 4 700034352120 (EPP2 PR7|34,N*) 700034 352(0) 1 0 1 00
DBG(121760571)> CPU TRACE: 00373:032127 4 201045272100 (TSP2 PR2|1045) 201045 272(0) 1 0 0 00
DBG(121760615)> CPU TRACE: 00373:032132 4 001372700100 (TSX0 PR0|1372) 001372 700(0) 1 0 0 00
DBG(121760625)> CPU TRACE: 00373:032133 4 775511700004 (TSX0 775511,IC) 775511 700(0) 0 0 0 04
DBG(121760627)> CPU TRACE: 00373:027644 4 601377440100 (SXL0 PR6|1377) 601377 440(0) 1 0 0 00
DBG(121760629)> CPU TRACE: 00373:027645 4 600500450100 (STZ PR6|500) 600500 450(0) 1 0 0 00
DBG(121760631)> CPU TRACE: 00373:027646 4 601377720100 (LXL0 PR6|1377) 601377 720(0) 1 0 0 00
DBG(121760633)> CPU TRACE: 00373:027647 4 000000710010 (TRA 000000,0) 000000 710(0) 0 0 0 10
STATEMENT 1 ON LINE 766
call check_on_open;
006040 aa 017765 6700 04 tsp4 8181,ic 026025
DBG(121760635)> CPU TRACE: 00373:032134 4 017765670004 (TSP4 017765,IC) 017765 670(0) 0 0 0 04
BEGIN PROCEDURE check_on_open
ENTRY TO check_on_open STATEMENT 1 ON LINE 2696
check_on_open: proc;
026025 aa 6 01304 6501 00 spri4 pr6|708
DBG(121760637)> CPU TRACE: 00373:052121 4 601304650100 (SPRI4 PR6|1304) 601304 650(0) 1 0 0 00
STATEMENT 1 ON LINE 2697
fsb_ptr = block_ptr;
026026 aa 6 00032 3735 20 epp7 pr6|26,*
026027 aa 7 00002 3715 20 epp5 pr7|2,* io_parameters.block_ptr
026030 aa 5 00000 3715 20 epp5 pr5|0,* io_parameters.block_ptr
026031 aa 6 01252 6515 00 spri5 pr6|682 fsb_ptr
DBG(121760637)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121760639)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(121760639)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010660 BITNO:00
DBG(121760641)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(121760641)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
DBG(121760643)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(121760643)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=000000 BITNO:00
And that is wrong.
Compare the two calls to check_on_open
STATEMENT 1 ON LINE 2697
fsb_ptr = block_ptr;
026026 aa 6 00032 3735 20 epp7 pr6|26,*
026027 aa 7 00002 3715 20 epp5 pr7|2,* io_parameters.block_ptr
026030 aa 5 00000 3715 20 epp5 pr5|0,* io_parameters.block_ptr
026031 aa 6 01252 6515 00 spri5 pr6|682 fsb_ptr
First call/second call
DBG(121716545)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121760637)> CPU REGDUMPPR: PR6/sp: SNR=00234 RNR=4 WORDNO=010720 BITNO:00
DBG(121716547)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(121760639)> CPU TRACE: 00373:052122 4 600032373520 (EPP7 PR6|32,N*) 600032 373(1) 1 0 1 00
DBG(121716547)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010660 BITNO:00
DBG(121760639)> CPU REGDUMPPR: PR7/sb: SNR=00234 RNR=4 WORDNO=010660 BITNO:00
DBG(121716549)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(121760641)> CPU TRACE: 00373:052123 4 700002371520 (EPP5 PR7|2,N*) 700002 371(1) 1 0 1 00
DBG(121716549)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
DBG(121760641)> CPU REGDUMPPR: PR5/lb: SNR=00234 RNR=4 WORDNO=010664 BITNO:00
DBG(121716551)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(121760643)> CPU TRACE: 00373:052124 4 500000371520 (EPP5 PR5|0,N*) 500000 371(1) 1 0 1 00
DBG(121716551)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=037424 BITNO:00
DBG(121760643)> CPU REGDUMPPR: PR5/lb: SNR=00337 RNR=4 WORDNO=000000 BITNO:00
Okay; block_ptr got set to zero.
DBG(121716551)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024665 readData=037424000000
DBG(121760643)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=67024665 readData=000000000000
Watch 67024665
WATCH [121696603] write 67024665 037424000000 (Write)
DBG(121696603)> CPU DBG: 00377:000013 4 600104253500 (SPRI3 PR6|104) 600104 253(1) 1 0 0 00
WATCH [121716551] read 67024665 037424000000 (Read)
DBG(121716551)> CPU DBG: 00373:052124 4 010664371520 (EPP5 PR0|10664,N*) 010664 371(1) 1 0 1 00
WATCH [121760537] write 67024665 000000000000 (Write)
DBG(121760537)> CPU DBG: 00377:000016 4 600104253500 (SPRI3 PR6|104) 600104 253(1) 1 0 0 00
WATCH [121760643] read 67024665 000000000000 (Read)
DBG(121760643)> CPU DBG: 00373:052124 4 010664371520 (EPP5 PR0|10664,N*) 010664 371(1) 1 0 1 00
The problem seem to be back in main....
STATEMENT 1 ON LINE 1 (CONT.)
000012 la 4 00014 3535 20 epp3 pr4|12,* input
000013 aa 6 00104 2535 00 spri3 pr6|68
000014 .a 0 00013 2731 00 tsp3 pr0|11 RESET_file
000015 aa 4 00002 3535 20 epp3 pr4|2,* output
000016 aa 6 00104 2535 00 spri3 pr6|68
DBG(121659535)> CPU REGDUMPPR: PR4/lp: SNR=00337 RNR=4 WORDNO=027604 BITNO:00
337 >process_dir_dir>!zzzzzzzbBBBBBB>!BBBKKFBxnDbqCp.area.linker
DBG(121659537)> CPU TRACE: 00377:000012 4 400014353520 (EPP3 PR4|14,N*) 400014 353(1) 1 0 1 00
DBG(121659537)> CPU APPENDING: doPtrReg(): PR[4] SNR=00337 RNR=4 WORDNO=027604 BITNO=00
DBG(121659537)> CPU APPENDING: doPtrReg(): n=4 offset=00014 TPR.CA=027620 TPR.TBR=0 TPR.TSR=00337 TPR.TRR=4
DBG(121659537)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=75463620 readData=777764000046
DBG(121659537)> CPU FAULT: Fault 24(030), sub 0(00), dfc N, 'RI_MOD: IT_F2 (0)'
DBG(121696601)> CPU TRACE: 00377:000012 4 027620353520 (EPP3 PR0|27620,N*) 027620 353(1) 1 0 1 00
DBG(121696601)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=75463620 readData=000337400043
DBG(121696601)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=75463621 readData=037424000000
DBG(121759087)> CPU TRACE: 00377:000015 4 400002353520 (EPP3 PR4|2,N*) 400002 353(1) 1 0 1 00
DBG(121759087)> CPU APPENDING: doPtrReg(): PR[4] SNR=00337 RNR=4 WORDNO=027604 BITNO=00
DBG(121759087)> CPU APPENDING: doPtrReg(): n=4 offset=00002 TPR.CA=027606 TPR.TBR=0 TPR.TSR=00337 TPR.TRR=4
DBG(121759087)> CPU APPENDING: Read (Actual) Read: iefpFinalAddress=75463606 readData=000377000132
Watch input:
WATCH [121695950] write 75463620 000337400043 (Write)
DBG(121695950)> CPU DBG: 00130:032236 0 027620655100 (ERSA PR0|27620) 027620 655(0) 1 0 0 00
WATCH [121696601] read 75463620 000337400043 (Read)
DBG(121696601)> CPU DBG: 00377:000012 4 027620353520 (EPP3 PR0|27620,N*) 027620 353(1) 1 0 1 00
seg 130 is bound_file_system
Watch output:
WATCH [121488795] write 75463606 000000000000 (Write)
DBG(121488795)> CPU DBG: 00130:024306 0 000140100540 (MLR PR0|140,F1) 000140 100(1) 0 0 0 00
WATCH [121488837] write 75463606 000377000132 (Write)
DBG(121488837)> CPU DBG: 00130:024366 0 700002545100 (SPRP5 PR7|2) 700002 545(0) 1 0 0 00
WATCH [121489355] read 75463606 000377000132 (Read)
DBG(121489355)> CPU DBG: 00130:024143 0 700002761100 (LPRP1 PR7|2) 700002 761(0) 1 0 0 00
WATCH [121759087] read 75463606 000377000132 (Read)
DBG(121759087)> CPU DBG: 00377:000015 4 027606353420 (EPP3 027606,N*) 027606 353(1) 0 0 1 00
bound_file_system is putting the wrong data in.
Or is it?
Looking at hello.list
000012 la 4 00014 3535 20 epp3 pr4|12,* input
000013 aa 6 00104 2535 00 spri3 pr6|68
000014 .a 0 00013 2731 00 tsp3 pr0|11 RESET_file
000015 aa 4 00002 3535 20 epp3 pr4|2,* output
000016 aa 6 00104 2535 00 spri3 pr6|68
000017 .a 0 00014 2731 00 tsp3 pr0|12 REWRITE
and pli hello
3 Links:
link|10 *symbol|0
link|14 pascal_io_$INPUT
link|12 pascal_io_$OUTPUT
"000012 la 4 00014 3535 20 epp3 pr4|12,* input" would appear to be referring to pascal_io_$INPUT.
Shouldn't "000015 aa 4 00002 3535 20 epp3 pr4|2,* output" be referring to pascal_io$OUTPUT?
Shouldn't it be "epp3 pr4|10,*"?