|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01b8 | | .CONST 0x01b8 ; 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 0079 | y | .CONST 0x0079 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 4804 |H | Short_Literal 0x4 ; Debug Table 0x0 = .DEBUG 0x000b,0x0242,0xc000,0x0000,0x002c,0xbb94,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xd,0xfffe 000e 4801 |H | Short_Literal 0x1 000f 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0011 03fe | | Declare_Type Discrete,Defined,Visible 0012 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x12,0xfffd 0014 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x14,0xfffc 0016 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x16,0xfffb 0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x18,0xfffa 001a 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1a,0xfff9 001c 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1c,0xfff8 001e 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1e,0xfff7 0020 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x20,0xfff6 0022 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x22,0xfff5 0024 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x24,0xfff4 0026 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x26,0xfff3 0028 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x28,0xfff2 002a 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2a,0xfff1 002c 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x2c,0xfff0 002d 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x2d,0xffef 002e 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x2e,0xffee 002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x2f,0xffed 0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x30,0xffec 0031 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x31,0xffeb 0032 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x32,0xffea 0033 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x16 = 0x33,0xffe9 0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0035 e211 | | Load 0x1,0x11 0036 4840 |H@ | Short_Literal 0x40 0037 e002 | | Load 0x0,0x2 0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0039 1c07 | | Execute_Immediate Run_Utility,0x7 003a 00e1 | | Load_Encached Boolean_Cache 003b 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 003d e210 | | Load 0x1,0x10 003e 0326 | & | Complete_Type Record,By_Defining 003f 00bf | | Action Accept_Activation 0040 e211 | | Load 0x1,0x11 ; Debug Table 0x1 = .DEBUG 0x0040,0x0272,0xc000,0x0000,0x002c,0xbbd4,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x40,0xffff 0041 0266 | f | Execute Discrete,Bounds 0042 e001 | | Load 0x0,0x1 0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0044 02a0 | | Declare_Subprogram Null_Subprogram 0045 4801 |H | Short_Literal 0x1 0046 035d | ] | Declare_Type Array,Defined 0047 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x47,0xfffe 0048 0337 | 7 | Declare_Variable Array 0049 00d9 | | Load_Top At_Offset_1 004a 0337 | 7 | Declare_Variable Array 004b 4800 |H | Short_Literal 0x0 004c 4800 |H | Short_Literal 0x0 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 4801 |H | Short_Literal 0x1 0050 4801 |H | Short_Literal 0x1 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 00da | | Load_Top At_Offset_2 0054 01c3 | | Execute Vector,Check_In_Type 0055 00d9 | | Load_Top At_Offset_1 0056 01d4 | | Execute Vector,Structure_Write 0057 614c |aL | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x002cbbd4} ; Debug Table 0x1.0x2 = 0x57,0xfffd 0058 4823 |H# | Short_Literal 0x23 0059 e20f | | Load 0x1,0xf 005a e001 | | Load 0x0,0x1 005b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005c 0387 | | Declare_Variable Package 005d 00d8 | | Load_Top At_Offset_0 005e 020f | | Execute Module,Activate 005f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x5f,0xfffc 0060 00c7 | | Action Elaborate_Subprogram 0061 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x61,0xfffb 0062 00c7 | | Action Elaborate_Subprogram 0063 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x63,0xfffa 0064 00c7 | | Action Elaborate_Subprogram 0065 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x65,0xfff9 0066 00c7 | | Action Elaborate_Subprogram 0067 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x67,0xfff8 0068 00c7 | | Action Elaborate_Subprogram 0069 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x8 = 0x69,0xfff7 006a 00c7 | | Action Elaborate_Subprogram 006b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x9 = 0x6b,0xfff6 006c 00c7 | | Action Elaborate_Subprogram 006d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xa = 0x6d,0xfff5 006e 00c7 | | Action Elaborate_Subprogram 006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xb = 0x6f,0xfff4 0070 00c7 | | Action Elaborate_Subprogram 0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xc = 0x71,0xfff3 0072 00c7 | | Action Elaborate_Subprogram 0073 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xd = 0x73,0xfff2 0074 00c7 | | Action Elaborate_Subprogram 0075 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xe = 0x75,0xfff1 0076 00c7 | | Action Elaborate_Subprogram 0077 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xf = 0x77,0xfff0 0078 00c7 | | Action Elaborate_Subprogram 0079 BODY_0008: 0079 00bc | | Action Signal_Activated 007a 00bb | | Action Signal_Completion 007b 0000 0000 | | .BLANK 0000[0x5] 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0083,0x0294,0x1005,0x0000,0x002c,0xbb94,0x0000,0x0013 0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0085 7802 |x | Jump 0x88 ; case 0x1 0086 7805 |x | Jump 0x8c ; case 0x2 0087 7809 |x | Jump 0x91 ; case 0x3 0088 00da | | Load_Top At_Offset_2 0089 0091 01a8 | | Action Push_String_Extended_Indexed,0x1a8 ; "IN_FILE" 008b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 008c 00db | | Load_Top At_Offset_3 008d 00db | | Load_Top At_Offset_3 008e 00e0 | | Load_Encached Standard_Cache 008f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 00da | | Load_Top At_Offset_2 0092 00e0 | | Load_Encached Standard_Cache 0093 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0094 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e5fc | | Load 0x2,-0x4 ; Debug Table 0x3 = .DEBUG 0x009b,0x0296,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0019 ; Debug Table 0x3.0x0 = 0x9b,0x1 009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009d 4865 |He | Short_Literal 0x65 009e e5fe | | Load 0x2,-0x2 009f e5ff | | Load 0x2,-0x1 00a0 e220 | | Load 0x1,0x20 00a1 01d7 | | Execute Vector,Field_Read 00a2 e001 | | Load 0x0,0x1 00a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a4 e5fc | | Load 0x2,-0x4 00a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a6 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x1 = 0xa6,0x2 00a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a8 e5fe | | Load 0x2,-0x2 00a9 e002 | | Load 0x0,0x2 00aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ab 00d1 | | Pop_Control Pop_Count_1 00ac 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x2 = 0xac,0x3 00ad e5fc | | Load 0x2,-0x4 00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00af 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0xaf,0x4 00b0 e5fc | | Load 0x2,-0x4 00b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e5fc | | Load 0x2,-0x4 ; Debug Table 0x4 = .DEBUG 0x00bb,0x02a0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0030 ; Debug Table 0x4.0x0 = 0xbb,0x1 00bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bd 4865 |He | Short_Literal 0x65 00be e5fe | | Load 0x2,-0x2 00bf e5ff | | Load 0x2,-0x1 00c0 e220 | | Load 0x1,0x20 00c1 01d7 | | Execute Vector,Field_Read 00c2 e001 | | Load 0x0,0x1 00c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c4 e5fc | | Load 0x2,-0x4 00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c6 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x1 = 0xc6,0x2 00c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c8 e5fe | | Load 0x2,-0x2 00c9 e002 | | Load 0x0,0x2 00ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00cb 00d1 | | Pop_Control Pop_Count_1 00cc 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0xcc,0x3 00cd e5fc | | Load 0x2,-0x4 00ce 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00cf 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x3 = 0xcf,0x4 00d0 e5fc | | Load 0x2,-0x4 00d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00db,0x02aa,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0045 ; Debug Table 0x5.0x0 = 0xdb,0x1 00dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00dd 6807 |h | Jump_Zero 0xe5 00de 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x1 = 0xde,0x2 00df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e0 4801 |H | Short_Literal 0x1 00e1 e001 | | Load 0x0,0x1 00e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e3 00db | | Load_Top At_Offset_3 00e4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e5 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0xe5,0x3 00e6 00db | | Load_Top At_Offset_3 00e7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e9 0000 0000 | | .BLANK 0000[0x7] 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 0x6 = .DEBUG 0x00f3,0x02b2,0x1001,0x0000,0x002c,0xbb94,0x0000,0x004d ; Debug Table 0x6.0x0 = 0xf3,0x1 00f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00f5 e002 | | Load 0x0,0x2 00f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f7 e001 | | Load 0x0,0x1 00f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f9 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0xf9,0x2 00fa 00db | | Load_Top At_Offset_3 00fb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x0103,0x02b8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0055 ; Debug Table 0x7.0x0 = 0x103,0x1 0104 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0105 6807 |h | Jump_Zero 0x10d 0106 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x106,0x2 0107 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0108 4801 |H | Short_Literal 0x1 0109 e001 | | Load 0x0,0x1 010a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010b e5fe | | Load 0x2,-0x2 010c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 010d 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x2 = 0x10d,0x3 010e 00ea | | Load_Encached Null_String_Cache 010f e5fe | | Load 0x2,-0x2 0110 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0111 e002 | | Load 0x0,0x2 0112 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0113 e5ff | | Load 0x2,-0x1 0114 8213 | | Call 0x1,0x13 0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x011b,0x02c0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0061 ; Debug Table 0x8.0x0 = 0x11b,0x1 011c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 011d 6807 |h | Jump_Zero 0x125 011e 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x11e,0x2 011f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0120 4801 |H | Short_Literal 0x1 0121 e001 | | Load 0x0,0x1 0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0123 00db | | Load_Top At_Offset_3 0124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0125 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x2 = 0x125,0x3 0126 00ea | | Load_Encached Null_String_Cache 0127 e5ff | | Load 0x2,-0x1 0128 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0129 e002 | | Load 0x0,0x2 012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012b e5ff | | Load 0x2,-0x1 012c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 012d 8213 | | Call 0x1,0x13 012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0133,0x02c8,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0069 ; Debug Table 0x9.0x0 = 0x133,0x1 0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x013b,0x02cc,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0072 ; Debug Table 0xa.0x0 = 0x13b,0x1 013c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 013d e002 | | Load 0x0,0x2 013e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xb = .DEBUG 0x0143,0x02d0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x007b ; Debug Table 0xb.0x0 = 0x143,0x1 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x014b,0x02d4,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0084 ; Debug Table 0xc.0x0 = 0x14b,0x1 014c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4800 |H | Short_Literal 0x0 ; Debug Table 0xd = .DEBUG 0x0153,0x02d8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x008d ; Debug Table 0xd.0x0 = 0x153,0x1 0154 00db | | Load_Top At_Offset_3 0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0156 e221 | ! | Load 0x1,0x21 0157 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0158 c5fe | | Store 0x2,-0x2 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00db | | Load_Top At_Offset_3 ; Debug Table 0xe = .DEBUG 0x0163,0x02dc,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0099 ; Debug Table 0xe.0x0 = 0x163,0x1 0164 e20f | | Load 0x1,0xf 0165 0119 | | Execute Any,Check_In_Formal_Type 0166 00db | | Load_Top At_Offset_3 0167 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0168 e221 | ! | Load 0x1,0x21 0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4800 |H | Short_Literal 0x0 ; Debug Table 0xf = .DEBUG 0x0173,0x02e0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x00a5 ; Debug Table 0xf.0x0 = 0x173,0x1 0174 00db | | Load_Top At_Offset_3 0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0176 e001 | | Load 0x0,0x1 0177 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4608 |F | Jump_Case 0x9 ; Debug Table 0x10 = .DEBUG 0x0183,0x02e4,0x1005,0x0000,0x002c,0xbb94,0x0000,0x00e0 0184 7808 |x | Jump 0x18d ; case 0x0 0185 7817 |x | Jump 0x19d ; case 0x1 0186 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0187 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0188 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 018a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 018b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 018d 00da | | Load_Top At_Offset_2 018e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 018f 0125 | % | Execute Any,Set_Constraint 0190 00da | | Load_Top At_Offset_2 0191 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0192 1c00 | | Execute_Immediate Run_Utility,0x0 0193 00da | | Load_Top At_Offset_2 0194 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0195 0125 | % | Execute Any,Set_Constraint 0196 00da | | Load_Top At_Offset_2 0197 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0198 1c00 | | Execute_Immediate Run_Utility,0x0 0199 4800 |H | Short_Literal 0x0 019a 00db | | Load_Top At_Offset_3 019b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 019d 00da | | Load_Top At_Offset_2 019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 019f 0125 | % | Execute Any,Set_Constraint 01a0 00da | | Load_Top At_Offset_2 01a1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01a2 0125 | % | Execute Any,Set_Constraint 01a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01a4 0000 0000 | | .LITERAL {0x00000000, 0x002cbbd4} 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; STRING TABLE 01a8 ; -------------------------------------------------------------------------------------- 01a8 0006 | | .STRTAB 0x0006->0x01ab ; "IN_FILE" 01a9 000b | | .STRTAB 0x000b->0x01ae ; "OUT_FILE" 01aa 0011 | | .STREND 0x0011->0x01b2 01ab 494e 5f46 |IN_F| .STRTAB_STRINGS 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; Debug Table 01b8 ; -------------------------------------------------------------------------------------- 01b8 0003 0011 | | .CONST 0x0003,0x0011 01ba 000b 0242 | B| .DEBUG 0x000b,0x0242,0xc000,0x0000,0x002c,0xbb94,0x0000,0x0009 01c2 0040 0272 | @ r| .DEBUG 0x0040,0x0272,0xc000,0x0000,0x002c,0xbbd4,0x0000,0x0003 01ca 0083 0294 | | .DEBUG 0x0083,0x0294,0x1005,0x0000,0x002c,0xbb94,0x0000,0x0013 01d2 009b 0296 | | .DEBUG 0x009b,0x0296,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0019 01da 00bb 02a0 | | .DEBUG 0x00bb,0x02a0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0030 01e2 00db 02aa | | .DEBUG 0x00db,0x02aa,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0045 01ea 00f3 02b2 | | .DEBUG 0x00f3,0x02b2,0x1001,0x0000,0x002c,0xbb94,0x0000,0x004d 01f2 0103 02b8 | | .DEBUG 0x0103,0x02b8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0055 01fa 011b 02c0 | | .DEBUG 0x011b,0x02c0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0061 0202 0133 02c8 | 3 | .DEBUG 0x0133,0x02c8,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0069 020a 013b 02cc | ; | .DEBUG 0x013b,0x02cc,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0072 0212 0143 02d0 | C | .DEBUG 0x0143,0x02d0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x007b 021a 014b 02d4 | K | .DEBUG 0x014b,0x02d4,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0084 0222 0153 02d8 | S | .DEBUG 0x0153,0x02d8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x008d 022a 0163 02dc | c | .DEBUG 0x0163,0x02dc,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0099 0232 0173 02e0 | s | .DEBUG 0x0173,0x02e0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x00a5 023a 0183 02e4 | | .DEBUG 0x0183,0x02e4,0x1005,0x0000,0x002c,0xbb94,0x0000,0x00e0 0242 ; -------------------------------------------------------------------------------------- 0242 ; Debug3 Subtable 0x0 0242 ; -------------------------------------------------------------------------------------- 0242 0017 0000 | | .DBG3TAB 0x0017,0x0000 0244 000b ffff | | .CONST 0x000b,0xffff 0246 000d fffe | | .CONST 0x000d,0xfffe 0248 0012 fffd | | .CONST 0x0012,0xfffd 024a 0014 fffc | | .CONST 0x0014,0xfffc 024c 0016 fffb | | .CONST 0x0016,0xfffb 024e 0018 fffa | | .CONST 0x0018,0xfffa 0250 001a fff9 | | .CONST 0x001a,0xfff9 0252 001c fff8 | | .CONST 0x001c,0xfff8 0254 001e fff7 | | .CONST 0x001e,0xfff7 0256 0020 fff6 | | .CONST 0x0020,0xfff6 0258 0022 fff5 | " | .CONST 0x0022,0xfff5 025a 0024 fff4 | $ | .CONST 0x0024,0xfff4 025c 0026 fff3 | & | .CONST 0x0026,0xfff3 025e 0028 fff2 | ( | .CONST 0x0028,0xfff2 0260 002a fff1 | * | .CONST 0x002a,0xfff1 0262 002c fff0 | , | .CONST 0x002c,0xfff0 0264 002d ffef | - | .CONST 0x002d,0xffef 0266 002e ffee | . | .CONST 0x002e,0xffee 0268 002f ffed | / | .CONST 0x002f,0xffed 026a 0030 ffec | 0 | .CONST 0x0030,0xffec 026c 0031 ffeb | 1 | .CONST 0x0031,0xffeb 026e 0032 ffea | 2 | .CONST 0x0032,0xffea 0270 0033 ffe9 | 3 | .CONST 0x0033,0xffe9 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug3 Subtable 0x1 0272 ; -------------------------------------------------------------------------------------- 0272 0010 0000 | | .DBG3TAB 0x0010,0x0000 0274 0040 ffff | @ | .CONST 0x0040,0xffff 0276 0047 fffe | G | .CONST 0x0047,0xfffe 0278 0057 fffd | W | .CONST 0x0057,0xfffd 027a 005f fffc | _ | .CONST 0x005f,0xfffc 027c 0061 fffb | a | .CONST 0x0061,0xfffb 027e 0063 fffa | c | .CONST 0x0063,0xfffa 0280 0065 fff9 | e | .CONST 0x0065,0xfff9 0282 0067 fff8 | g | .CONST 0x0067,0xfff8 0284 0069 fff7 | i | .CONST 0x0069,0xfff7 0286 006b fff6 | k | .CONST 0x006b,0xfff6 0288 006d fff5 | m | .CONST 0x006d,0xfff5 028a 006f fff4 | o | .CONST 0x006f,0xfff4 028c 0071 fff3 | q | .CONST 0x0071,0xfff3 028e 0073 fff2 | s | .CONST 0x0073,0xfff2 0290 0075 fff1 | u | .CONST 0x0075,0xfff1 0292 0077 fff0 | w | .CONST 0x0077,0xfff0 0294 ; -------------------------------------------------------------------------------------- 0294 ; Debug3 Subtable 0x2 0294 ; -------------------------------------------------------------------------------------- 0294 0000 0000 | | .DBG3TAB 0x0000,0x0000 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug3 Subtable 0x3 0296 ; -------------------------------------------------------------------------------------- 0296 0000 0004 | | .DBG3TAB 0x0000,0x0004 0298 009b 0001 | | .CONST 0x009b,0x0001 029a 00a6 0002 | | .CONST 0x00a6,0x0002 029c 00ac 0003 | | .CONST 0x00ac,0x0003 029e 00af 0004 | | .CONST 0x00af,0x0004 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug3 Subtable 0x4 02a0 ; -------------------------------------------------------------------------------------- 02a0 0000 0004 | | .DBG3TAB 0x0000,0x0004 02a2 00bb 0001 | | .CONST 0x00bb,0x0001 02a4 00c6 0002 | | .CONST 0x00c6,0x0002 02a6 00cc 0003 | | .CONST 0x00cc,0x0003 02a8 00cf 0004 | | .CONST 0x00cf,0x0004 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug3 Subtable 0x5 02aa ; -------------------------------------------------------------------------------------- 02aa 0000 0003 | | .DBG3TAB 0x0000,0x0003 02ac 00db 0001 | | .CONST 0x00db,0x0001 02ae 00de 0002 | | .CONST 0x00de,0x0002 02b0 00e5 0003 | | .CONST 0x00e5,0x0003 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug3 Subtable 0x6 02b2 ; -------------------------------------------------------------------------------------- 02b2 0000 0002 | | .DBG3TAB 0x0000,0x0002 02b4 00f3 0001 | | .CONST 0x00f3,0x0001 02b6 00f9 0002 | | .CONST 0x00f9,0x0002 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug3 Subtable 0x7 02b8 ; -------------------------------------------------------------------------------------- 02b8 0000 0003 | | .DBG3TAB 0x0000,0x0003 02ba 0103 0001 | | .CONST 0x0103,0x0001 02bc 0106 0002 | | .CONST 0x0106,0x0002 02be 010d 0003 | | .CONST 0x010d,0x0003 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug3 Subtable 0x8 02c0 ; -------------------------------------------------------------------------------------- 02c0 0000 0003 | | .DBG3TAB 0x0000,0x0003 02c2 011b 0001 | | .CONST 0x011b,0x0001 02c4 011e 0002 | | .CONST 0x011e,0x0002 02c6 0125 0003 | % | .CONST 0x0125,0x0003 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug3 Subtable 0x9 02c8 ; -------------------------------------------------------------------------------------- 02c8 0000 0001 | | .DBG3TAB 0x0000,0x0001 02ca 0133 0001 | 3 | .CONST 0x0133,0x0001 02cc ; -------------------------------------------------------------------------------------- 02cc ; Debug3 Subtable 0xa 02cc ; -------------------------------------------------------------------------------------- 02cc 0000 0001 | | .DBG3TAB 0x0000,0x0001 02ce 013b 0001 | ; | .CONST 0x013b,0x0001 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug3 Subtable 0xb 02d0 ; -------------------------------------------------------------------------------------- 02d0 0000 0001 | | .DBG3TAB 0x0000,0x0001 02d2 0143 0001 | C | .CONST 0x0143,0x0001 02d4 ; -------------------------------------------------------------------------------------- 02d4 ; Debug3 Subtable 0xc 02d4 ; -------------------------------------------------------------------------------------- 02d4 0000 0001 | | .DBG3TAB 0x0000,0x0001 02d6 014b 0001 | K | .CONST 0x014b,0x0001 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug3 Subtable 0xd 02d8 ; -------------------------------------------------------------------------------------- 02d8 0000 0001 | | .DBG3TAB 0x0000,0x0001 02da 0153 0001 | S | .CONST 0x0153,0x0001 02dc ; -------------------------------------------------------------------------------------- 02dc ; Debug3 Subtable 0xe 02dc ; -------------------------------------------------------------------------------------- 02dc 0000 0001 | | .DBG3TAB 0x0000,0x0001 02de 0163 0001 | c | .CONST 0x0163,0x0001 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug3 Subtable 0xf 02e0 ; -------------------------------------------------------------------------------------- 02e0 0000 0001 | | .DBG3TAB 0x0000,0x0001 02e2 0173 0001 | s | .CONST 0x0173,0x0001 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug3 Subtable 0x10 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0000 | | .DBG3TAB 0x0000,0x0000 02e6 0000 0000 | | .BLANK 0000[0x11a]