|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0178 | x | .CONST 0x0178 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 005b | [ | .CONST 0x005b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0057,0xae05,0x0000,0x000b ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xd,0xfffd 000e 180e | | Execute Package,Field_Execute,Field_Number 0xe 000f e001 | | Load 0x0,0x1 0010 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0011 e001 | | Load 0x0,0x1 0012 180e | | Execute Package,Field_Execute,Field_Number 0xe 0013 e001 | | Load 0x0,0x1 0014 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0015 4800 |H | Short_Literal 0x0 0016 e001 | | Load 0x0,0x1 0017 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0018 0337 | 7 | Declare_Variable Array 0019 4803 |H | Short_Literal 0x3 001a 4801 |H | Short_Literal 0x1 001b 4800 |H | Short_Literal 0x0 001c 00d9 | | Load_Top At_Offset_1 001d e210 | | Load 0x1,0x10 001e 01d6 | | Execute Vector,Field_Write 001f 3ffb |? | Loop_Increasing 0x1b 0020 e001 | | Load 0x0,0x1 0021 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0022 01c3 | | Execute Vector,Check_In_Type 0023 e001 | | Load 0x0,0x1 0024 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0025 4802 |H | Short_Literal 0x2 0026 e001 | | Load 0x0,0x1 0027 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0028 e001 | | Load 0x0,0x1 0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002a 011e | | Execute Any,Convert 002b 0129 | ) | Execute Any,Make_Visible 002c 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x2c,0xffff 002e 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x2e,0xfffe 0030 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x30,0xfffd 0032 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x32,0xfffc 0034 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x34,0xfffb 0036 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x36,0xfffa 0038 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x38,0xfff9 003a 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x3a,0xfff8 003c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x3c,0xfff7 003e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x3e,0xfff6 0040 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x40,0xfff5 0042 00bf | | Action Accept_Activation 0043 0092 014c | L| Action Push_String_Extended,0x14c ; "Line_Editor_Utilities.Assert." ; Debug Table 0x1 = .DEBUG 0x0043,0x0200,0x8000,0x0000,0x0057,0xaef5,0x0000,0x000f ; Debug Table 0x1.0x0 = 0x43,0xffff 0045 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x45,0xfffe 0046 00c7 | | Action Elaborate_Subprogram 0047 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x47,0xfffd 0048 00c7 | | Action Elaborate_Subprogram 0049 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x49,0xfffc 004a 00c7 | | Action Elaborate_Subprogram 004b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x4b,0xfffb 004c 00c7 | | Action Elaborate_Subprogram 004d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x4d,0xfffa 004e 00c7 | | Action Elaborate_Subprogram 004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x6 = 0x4f,0xfff9 0050 00c7 | | Action Elaborate_Subprogram 0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x51,0xfff8 0052 00c7 | | Action Elaborate_Subprogram 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x53,0xfff7 0054 00c7 | | Action Elaborate_Subprogram 0055 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x55,0xfff6 0056 00c7 | | Action Elaborate_Subprogram 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xa = 0x57,0xfff5 0058 00c7 | | Action Elaborate_Subprogram 0059 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xb = 0x59,0xfff4 005a 00c7 | | Action Elaborate_Subprogram 005b BODY_0008: 005b 00bc | | Action Signal_Activated 005c 00bb | | Action Signal_Completion 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0063,0x021a,0x0001,0x0000,0x0057,0xae05,0x0000,0x0031 ; Debug Table 0x2.0x0 = 0x63,0x1 0064 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0065 0092 014d | M| Action Push_String_Extended,0x14d ; "*** Error reported by " ; Debug Table 0x2.0x1 = 0x65,0x2 0067 e5fe | | Load 0x2,-0x2 0068 01cc | | Execute Vector,Catenate 0069 e002 | | Load 0x0,0x2 006a 180f | | Execute Package,Field_Execute,Field_Number 0xf 006b e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x6b,0x3 006c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006d 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0x6d,0x4 006e e002 | | Load 0x0,0x2 006f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0070 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x4 = 0x70,0x5 0071 00db | | Load_Top At_Offset_3 0072 e003 | | Load 0x0,0x3 0073 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0074 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x5 = 0x74,0x6 0075 6802 |h | Jump_Zero 0x78 0076 60d1 |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x57ae0501} ; Debug Table 0x2.0x6 = 0x76,0x7 0077 0257 | W | Execute Discrete,Raise 0078 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0083,0x022a,0x0001,0x0000,0x0057,0xae05,0x0000,0x0042 ; Debug Table 0x3.0x0 = 0x83,0x1 0084 e20d | | Load 0x1,0xd 0085 012f | / | Execute Any,Equal 0086 6808 |h | Jump_Zero 0x8f 0087 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x1 = 0x87,0x2 0088 e219 | | Load 0x1,0x19 0089 0092 014e | N| Action Push_String_Extended,0x14e ; "Put_Error" 008b 01cc | | Execute Vector,Catenate 008c e5ff | | Load 0x2,-0x1 008d 820e | | Call 0x1,0xe 008e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008f e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x2 = 0x8f,0x3 0090 6811 |h | Jump_Zero 0xa2 0091 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x3 = 0x91,0x4 0092 4807 |H | Short_Literal 0x7 0093 e5ff | | Load 0x2,-0x1 0094 e004 | | Load 0x0,0x4 0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0096 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x4 = 0x96,0x5 0097 e001 | | Load 0x0,0x1 0098 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0099 4603 |F | Jump_Case 0x4 009a 7803 |x | Jump 0x9e ; case 0x0 009b 7804 |x | Jump 0xa0 ; case 0x1 009c 7801 |x | Jump 0x9e ; case 0x2 009d 7802 |x | Jump 0xa0 ; case 0x3 009e 60a9 |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x57ae0501} ; Debug Table 0x3.0x5 = 0x9e,0x6 009f 0257 | W | Execute Discrete,Raise 00a0 60a3 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x57ae0502} ; Debug Table 0x3.0x6 = 0xa0,0x7 00a1 0257 | W | Execute Discrete,Raise 00a2 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x7 = 0xa2,0x8 00a3 4802 |H | Short_Literal 0x2 00a4 e5ff | | Load 0x2,-0x1 00a5 e004 | | Load 0x0,0x4 00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00ab,0x023c,0x0002,0x0000,0x0057,0xae05,0x0000,0x0058 ; Debug Table 0x4.0x0 = 0xab,0x1 00ac 0f00 | | Execute_Immediate Equal,0x0 00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00b3,0x0240,0x0001,0x0000,0x0057,0xae05,0x0000,0x0063 ; Debug Table 0x5.0x0 = 0xb3,0x1 00b4 8210 | | Call 0x1,0x10 00b5 7010 |p | Jump_Nonzero 0xc6 00b6 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x1 = 0xb6,0x2 00b7 e5fd | | Load 0x2,-0x3 00b8 e5fe | | Load 0x2,-0x2 00b9 0092 014f | O| Action Push_String_Extended,0x14f ; " (" 00bb 01cc | | Execute Vector,Catenate 00bc e5ff | | Load 0x2,-0x1 00bd e003 | | Load 0x0,0x3 00be 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00bf 025e | ^ | Execute Discrete,Convert 00c0 1c01 | | Execute_Immediate Run_Utility,0x1 00c1 01cc | | Execute Vector,Catenate 00c2 0092 0150 | P| Action Push_String_Extended,0x150 ; ")" 00c4 01cc | | Execute Vector,Catenate 00c5 820e | | Call 0x1,0xe 00c6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00cb,0x0246,0x0002,0x0000,0x0057,0xae05,0x0000,0x0075 ; Debug Table 0x6.0x0 = 0xcb,0x1 00cc 0f00 | | Execute_Immediate Equal,0x0 00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00d3,0x024a,0x0001,0x0000,0x0057,0xae05,0x0000,0x0080 ; Debug Table 0x7.0x0 = 0xd3,0x1 00d4 8212 | | Call 0x1,0x12 00d5 700f |p | Jump_Nonzero 0xe5 00d6 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x1 = 0xd6,0x2 00d7 e5fd | | Load 0x2,-0x3 00d8 4829 |H) | Short_Literal 0x29 00d9 e5fe | | Load 0x2,-0x2 00da 0092 014f | O| Action Push_String_Extended,0x14f ; " (" 00dc 01cc | | Execute Vector,Catenate 00dd e5ff | | Load 0x2,-0x1 00de e005 | | Load 0x0,0x5 00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e0 025e | ^ | Execute Discrete,Convert 00e1 1c01 | | Execute_Immediate Run_Utility,0x1 00e2 01cc | | Execute Vector,Catenate 00e3 01cb | | Execute Vector,Append 00e4 820f | | Call 0x1,0xf 00e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00eb,0x0250,0x0002,0x0000,0x0057,0xae05,0x0000,0x0097 ; Debug Table 0x8.0x0 = 0xeb,0x1 00ec 0f00 | | Execute_Immediate Equal,0x0 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x00f3,0x0254,0x0001,0x0000,0x0057,0xae05,0x0000,0x00a4 ; Debug Table 0x9.0x0 = 0xf3,0x1 00f4 8214 | | Call 0x1,0x14 00f5 700f |p | Jump_Nonzero 0x105 00f6 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x1 = 0xf6,0x2 00f7 e5fc | | Load 0x2,-0x4 00f8 4829 |H) | Short_Literal 0x29 00f9 e5fe | | Load 0x2,-0x2 00fa 0092 014f | O| Action Push_String_Extended,0x14f ; " (" 00fc 01cc | | Execute Vector,Catenate 00fd e5fd | | Load 0x2,-0x3 00fe e5ff | | Load 0x2,-0x1 00ff e005 | | Load 0x0,0x5 0100 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0101 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0102 01cc | | Execute Vector,Catenate 0103 01cb | | Execute Vector,Append 0104 820f | | Call 0x1,0xf 0105 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x010b,0x025a,0x0002,0x0000,0x0057,0xae05,0x0000,0x00c1 ; Debug Table 0xa.0x0 = 0x10b,0x1 010c 0d02 | | Execute_Immediate Less,0x2 010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x0113,0x025e,0x0001,0x0000,0x0057,0xae05,0x0000,0x00cc ; Debug Table 0xb.0x0 = 0x113,0x1 0114 8216 | | Call 0x1,0x16 0115 7010 |p | Jump_Nonzero 0x126 0116 e5fd | | Load 0x2,-0x3 ; Debug Table 0xb.0x1 = 0x116,0x2 0117 e219 | | Load 0x1,0x19 0118 0092 0151 | Q| Action Push_String_Extended,0x151 ; "Report" 011a 01cc | | Execute Vector,Catenate 011b 4829 |H) | Short_Literal 0x29 011c e5fe | | Load 0x2,-0x2 011d 0092 014f | O| Action Push_String_Extended,0x14f ; " (" 011f 01cc | | Execute Vector,Catenate 0120 e5ff | | Load 0x2,-0x1 0121 e006 | | Load 0x0,0x6 0122 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0123 01cc | | Execute Vector,Catenate 0124 01cb | | Execute Vector,Append 0125 820e | | Call 0x1,0xe 0126 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x012b,0x0264,0x0001,0x0000,0x0057,0xae05,0x0000,0x00df ; Debug Table 0xc.0x0 = 0x12b,0x1 012c e006 | | Load 0x0,0x6 012d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012e 8216 | | Call 0x1,0x16 012f 7010 |p | Jump_Nonzero 0x140 0130 e5fd | | Load 0x2,-0x3 ; Debug Table 0xc.0x1 = 0x130,0x2 0131 e219 | | Load 0x1,0x19 0132 0092 0151 | Q| Action Push_String_Extended,0x151 ; "Report" 0134 01cc | | Execute Vector,Catenate 0135 4829 |H) | Short_Literal 0x29 0136 e5fe | | Load 0x2,-0x2 0137 0092 014f | O| Action Push_String_Extended,0x14f ; " (" 0139 01cc | | Execute Vector,Catenate 013a e5ff | | Load 0x2,-0x1 013b e006 | | Load 0x0,0x6 013c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013d 01cc | | Execute Vector,Catenate 013e 01cb | | Execute Vector,Append 013f 820e | | Call 0x1,0xe 0140 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0141 0000 0000 | | .XXX[0x3] 0143 0000 | | 0144 0000 0000 | | .LITERAL {0x00000000, 0x57ae0502} 0148 0000 0000 | | .LITERAL {0x00000000, 0x57ae0501} 014c ; -------------------------------------------------------------------------------------- 014c ; STRING TABLE 014c ; -------------------------------------------------------------------------------------- 014c 000e | | .STRTAB 0x000e->0x0153 ; "Line_Editor_Utilities.Assert." 014d 0029 | ) | .STRTAB 0x0029->0x0161 ; "*** Error reported by " 014e 003d | = | .STRTAB 0x003d->0x016c ; "Put_Error" 014f 0044 | D | .STRTAB 0x0044->0x0171 ; " (" 0150 0044 | D | .STRTAB 0x0044->0x0172 ; ")" 0151 0043 | C | .STRTAB 0x0043->0x0172 ; "Report" 0152 0047 | G | .STREND 0x0047->0x0175 0153 4c69 6e65 |Line| .STRTAB_STRINGS 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0003 000d | | .CONST 0x0003,0x000d 017a 000b 01e2 | | .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0057,0xae05,0x0000,0x000b 0182 0043 0200 | C | .DEBUG 0x0043,0x0200,0x8000,0x0000,0x0057,0xaef5,0x0000,0x000f 018a 0063 021a | c | .DEBUG 0x0063,0x021a,0x0001,0x0000,0x0057,0xae05,0x0000,0x0031 0192 0083 022a | *| .DEBUG 0x0083,0x022a,0x0001,0x0000,0x0057,0xae05,0x0000,0x0042 019a 00ab 023c | <| .DEBUG 0x00ab,0x023c,0x0002,0x0000,0x0057,0xae05,0x0000,0x0058 01a2 00b3 0240 | @| .DEBUG 0x00b3,0x0240,0x0001,0x0000,0x0057,0xae05,0x0000,0x0063 01aa 00cb 0246 | F| .DEBUG 0x00cb,0x0246,0x0002,0x0000,0x0057,0xae05,0x0000,0x0075 01b2 00d3 024a | J| .DEBUG 0x00d3,0x024a,0x0001,0x0000,0x0057,0xae05,0x0000,0x0080 01ba 00eb 0250 | P| .DEBUG 0x00eb,0x0250,0x0002,0x0000,0x0057,0xae05,0x0000,0x0097 01c2 00f3 0254 | T| .DEBUG 0x00f3,0x0254,0x0001,0x0000,0x0057,0xae05,0x0000,0x00a4 01ca 010b 025a | Z| .DEBUG 0x010b,0x025a,0x0002,0x0000,0x0057,0xae05,0x0000,0x00c1 01d2 0113 025e | ^| .DEBUG 0x0113,0x025e,0x0001,0x0000,0x0057,0xae05,0x0000,0x00cc 01da 012b 0264 | + d| .DEBUG 0x012b,0x0264,0x0001,0x0000,0x0057,0xae05,0x0000,0x00df 01e2 ; -------------------------------------------------------------------------------------- 01e2 ; Debug3 Subtable 0x0 01e2 ; -------------------------------------------------------------------------------------- 01e2 000e 0000 | | .DBG3TAB 0x000e,0x0000 01e4 000b ffff | | .CONST 0x000b,0xffff 01e6 000c fffe | | .CONST 0x000c,0xfffe 01e8 000d fffd | | .CONST 0x000d,0xfffd 01ea 002c ffff | , | .CONST 0x002c,0xffff 01ec 002e fffe | . | .CONST 0x002e,0xfffe 01ee 0030 fffd | 0 | .CONST 0x0030,0xfffd 01f0 0032 fffc | 2 | .CONST 0x0032,0xfffc 01f2 0034 fffb | 4 | .CONST 0x0034,0xfffb 01f4 0036 fffa | 6 | .CONST 0x0036,0xfffa 01f6 0038 fff9 | 8 | .CONST 0x0038,0xfff9 01f8 003a fff8 | : | .CONST 0x003a,0xfff8 01fa 003c fff7 | < | .CONST 0x003c,0xfff7 01fc 003e fff6 | > | .CONST 0x003e,0xfff6 01fe 0040 fff5 | @ | .CONST 0x0040,0xfff5 0200 ; -------------------------------------------------------------------------------------- 0200 ; Debug3 Subtable 0x1 0200 ; -------------------------------------------------------------------------------------- 0200 000c 0000 | | .DBG3TAB 0x000c,0x0000 0202 0043 ffff | C | .CONST 0x0043,0xffff 0204 0045 fffe | E | .CONST 0x0045,0xfffe 0206 0047 fffd | G | .CONST 0x0047,0xfffd 0208 0049 fffc | I | .CONST 0x0049,0xfffc 020a 004b fffb | K | .CONST 0x004b,0xfffb 020c 004d fffa | M | .CONST 0x004d,0xfffa 020e 004f fff9 | O | .CONST 0x004f,0xfff9 0210 0051 fff8 | Q | .CONST 0x0051,0xfff8 0212 0053 fff7 | S | .CONST 0x0053,0xfff7 0214 0055 fff6 | U | .CONST 0x0055,0xfff6 0216 0057 fff5 | W | .CONST 0x0057,0xfff5 0218 0059 fff4 | Y | .CONST 0x0059,0xfff4 021a ; -------------------------------------------------------------------------------------- 021a ; Debug3 Subtable 0x2 021a ; -------------------------------------------------------------------------------------- 021a 0000 0007 | | .DBG3TAB 0x0000,0x0007 021c 0063 0001 | c | .CONST 0x0063,0x0001 021e 0065 0002 | e | .CONST 0x0065,0x0002 0220 006b 0003 | k | .CONST 0x006b,0x0003 0222 006d 0004 | m | .CONST 0x006d,0x0004 0224 0070 0005 | p | .CONST 0x0070,0x0005 0226 0074 0006 | t | .CONST 0x0074,0x0006 0228 0076 0007 | v | .CONST 0x0076,0x0007 022a ; -------------------------------------------------------------------------------------- 022a ; Debug3 Subtable 0x3 022a ; -------------------------------------------------------------------------------------- 022a 0000 0008 | | .DBG3TAB 0x0000,0x0008 022c 0083 0001 | | .CONST 0x0083,0x0001 022e 0087 0002 | | .CONST 0x0087,0x0002 0230 008f 0003 | | .CONST 0x008f,0x0003 0232 0091 0004 | | .CONST 0x0091,0x0004 0234 0096 0005 | | .CONST 0x0096,0x0005 0236 009e 0006 | | .CONST 0x009e,0x0006 0238 00a0 0007 | | .CONST 0x00a0,0x0007 023a 00a2 0008 | | .CONST 0x00a2,0x0008 023c ; -------------------------------------------------------------------------------------- 023c ; Debug3 Subtable 0x4 023c ; -------------------------------------------------------------------------------------- 023c 0000 0001 | | .DBG3TAB 0x0000,0x0001 023e 00ab 0001 | | .CONST 0x00ab,0x0001 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug3 Subtable 0x5 0240 ; -------------------------------------------------------------------------------------- 0240 0000 0002 | | .DBG3TAB 0x0000,0x0002 0242 00b3 0001 | | .CONST 0x00b3,0x0001 0244 00b6 0002 | | .CONST 0x00b6,0x0002 0246 ; -------------------------------------------------------------------------------------- 0246 ; Debug3 Subtable 0x6 0246 ; -------------------------------------------------------------------------------------- 0246 0000 0001 | | .DBG3TAB 0x0000,0x0001 0248 00cb 0001 | | .CONST 0x00cb,0x0001 024a ; -------------------------------------------------------------------------------------- 024a ; Debug3 Subtable 0x7 024a ; -------------------------------------------------------------------------------------- 024a 0000 0002 | | .DBG3TAB 0x0000,0x0002 024c 00d3 0001 | | .CONST 0x00d3,0x0001 024e 00d6 0002 | | .CONST 0x00d6,0x0002 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug3 Subtable 0x8 0250 ; -------------------------------------------------------------------------------------- 0250 0000 0001 | | .DBG3TAB 0x0000,0x0001 0252 00eb 0001 | | .CONST 0x00eb,0x0001 0254 ; -------------------------------------------------------------------------------------- 0254 ; Debug3 Subtable 0x9 0254 ; -------------------------------------------------------------------------------------- 0254 0000 0002 | | .DBG3TAB 0x0000,0x0002 0256 00f3 0001 | | .CONST 0x00f3,0x0001 0258 00f6 0002 | | .CONST 0x00f6,0x0002 025a ; -------------------------------------------------------------------------------------- 025a ; Debug3 Subtable 0xa 025a ; -------------------------------------------------------------------------------------- 025a 0000 0001 | | .DBG3TAB 0x0000,0x0001 025c 010b 0001 | | .CONST 0x010b,0x0001 025e ; -------------------------------------------------------------------------------------- 025e ; Debug3 Subtable 0xb 025e ; -------------------------------------------------------------------------------------- 025e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0260 0113 0001 | | .CONST 0x0113,0x0001 0262 0116 0002 | | .CONST 0x0116,0x0002 0264 ; -------------------------------------------------------------------------------------- 0264 ; Debug3 Subtable 0xc 0264 ; -------------------------------------------------------------------------------------- 0264 0000 0002 | | .DBG3TAB 0x0000,0x0002 0266 012b 0001 | + | .CONST 0x012b,0x0001 0268 0130 0002 | 0 | .CONST 0x0130,0x0002 026a 0000 0000 | | .BLANK 0000[0x196]