|
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_07b4f8
└─⟦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 0198 | | .CONST 0x0198 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x01ea,0x8000,0x0000,0x0032,0xc974,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 00e3 | | Load_Encached Natural_Cache 000d 00e3 | | Load_Encached Natural_Cache 000e 00e3 | | Load_Encached Natural_Cache 000f 02a0 | | Declare_Subprogram Null_Subprogram 0010 4804 |H | Short_Literal 0x4 0011 032e | . | Declare_Type Record,Defined,Visible 0012 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0x12,0xfffe 0013 0322 | " | Declare_Variable Record 0014 4800 |H | Short_Literal 0x0 0015 00d9 | | Load_Top At_Offset_1 0016 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0017 4800 |H | Short_Literal 0x0 0018 00d9 | | Load_Top At_Offset_1 0019 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 001a 4800 |H | Short_Literal 0x0 001b 00d9 | | Load_Top At_Offset_1 001c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 001d 4800 |H | Short_Literal 0x0 001e 00d9 | | Load_Top At_Offset_1 001f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0020 0129 | ) | Execute Any,Make_Visible 0021 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x21,0xfffd 0023 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x23,0xfffc 0025 00bf | | Action Accept_Activation 0026 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0026,0x01f4,0x8000,0x0000,0x0032,0xcc24,0x0000,0x0011 ; Debug Table 0x1.0x0 = 0x26,0xffff 0028 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call ; Debug Table 0x1.0x1 = 0x28,0xfffe 002a 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call ; Debug Table 0x1.0x2 = 0x2a,0xfffd 002c 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call ; Debug Table 0x1.0x3 = 0x2c,0xfffc 002e 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call ; Debug Table 0x1.0x4 = 0x2e,0xfffb 0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x5 = 0x30,0xfffa 0031 00c7 | | Action Elaborate_Subprogram 0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x6 = 0x32,0xfff9 0033 00c7 | | Action Elaborate_Subprogram 0034 BODY_0008: 0034 00bc | | Action Signal_Activated 0035 00bb | | Action Signal_Completion 0036 0000 0000 | | .XXX[0x2] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003d | = | .CONST 0x003d ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x003b,0x0204,0x0002,0x0000,0x0032,0xc974,0x0000,0x002c ; Debug Table 0x2.0x0 = 0x3b,0xffff 003c 8213 | | Call 0x1,0x13 003d BODY_0038: 003d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x3d,0x1 003e 8211 | | Call 0x1,0x11 003f 6807 |h | Jump_Zero 0x47 0040 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x40,0x2 0041 8212 | | Call 0x1,0x12 0042 6802 |h | Jump_Zero 0x45 0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x43,0x3 0044 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0045 4803 |H | Short_Literal 0x3 ; Debug Table 0x2.0x4 = 0x45,0x4 0046 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0047 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x5 = 0x47,0x5 0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 005a | Z | .CONST 0x005a ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0003 | | .CONST 0x0003 ; Number of locals 0053 INIT_0050: 0053 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x0053,0x0212,0x0001,0x0000,0x0032,0xc974,0x0000,0x003c ; Debug Table 0x3.0x0 = 0x53,0xffff 0054 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0055 02c7 | | Declare_Variable Any 0056 00d8 | | Load_Top At_Offset_0 0057 1c00 | | Execute_Immediate Run_Utility,0x0 0058 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0x58,0xfffe 0059 8213 | | Call 0x1,0x13 005a BODY_0050: 005a e20e | | Load 0x1,0xe ; Debug Table 0x3.0x2 = 0x5a,0x1 005b e5fd | | Load 0x2,-0x3 005c 017d | } | Execute Record,Structure_Write 005d e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x3 = 0x5d,0x2 005e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005f e5fc | | Load 0x2,-0x4 0060 016d | m | Execute Variant_Record,Structure_Write 0061 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x4 = 0x61,0x3 0062 4603 |F | Jump_Case 0x4 0063 7803 |x | Jump 0x67 ; case 0x0 0064 780a |x | Jump 0x6f ; case 0x1 0065 7821 |x! | Jump 0x87 ; case 0x2 0066 7800 |x | Jump 0x67 ; case 0x3 0067 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x67,0x4 0068 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0069 c402 | | Store 0x2,0x2 006a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x6a,0x5 006b 8214 | | Call 0x1,0x14 006c e5fd | | Load 0x2,-0x3 006d 017d | } | Execute Record,Structure_Write 006e 781f |x | Jump 0x8e 006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x7 = 0x6f,0x6 0070 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0071 c402 | | Store 0x2,0x2 0072 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x8 = 0x72,0x7 0073 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0074 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0075 e5fd | | Load 0x2,-0x3 0076 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0077 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x9 = 0x77,0x8 0078 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0079 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007a e5fd | | Load 0x2,-0x3 007b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xa = 0x7c,0x9 007d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 007e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007f e5fd | | Load 0x2,-0x3 0080 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0081 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xb = 0x81,0xa 0082 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0083 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0084 e5fd | | Load 0x2,-0x3 0085 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0086 7807 |x | Jump 0x8e 0087 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xc = 0x87,0xb 0088 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0089 c402 | | Store 0x2,0x2 008a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xd = 0x8a,0xc 008b 8215 | | Call 0x1,0x15 008c e5fd | | Load 0x2,-0x3 008d 017d | } | Execute Record,Structure_Write 008e e003 | | Load 0x0,0x3 ; Debug Table 0x3.0xe = 0x8e,0xd 008f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0090 00da | | Load_Top At_Offset_2 0091 e004 | | Load 0x0,0x4 0092 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0093 e5fc | | Load 0x2,-0x4 0094 016d | m | Execute Variant_Record,Structure_Write 0095 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0096 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x009b,0x0232,0x0002,0x0000,0x0032,0xcc24,0x0000,0x0012 ; Debug Table 0x4.0x0 = 0x9b,0x1 009c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 009d 0e00 | | Execute_Immediate Not_Equal,0x0 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00a3,0x0236,0x0002,0x0000,0x0032,0xcc24,0x0000,0x002d ; Debug Table 0x5.0x0 = 0xa3,0x1 00a4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00a5 00db | | Load_Top At_Offset_3 00a6 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00a7 027f | | Execute Discrete,Equal 00a8 6818 |h | Jump_Zero 0xc1 00a9 00da | | Load_Top At_Offset_2 00aa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ab 00db | | Load_Top At_Offset_3 00ac 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 00ad 027f | | Execute Discrete,Equal 00ae 6812 |h | Jump_Zero 0xc1 00af 00da | | Load_Top At_Offset_2 00b0 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 00b1 e005 | | Load 0x0,0x5 00b2 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00b3 00db | | Load_Top At_Offset_3 00b4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 00b5 e005 | | Load 0x0,0x5 00b6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b7 00db | | Load_Top At_Offset_3 00b8 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 00b9 e005 | | Load 0x0,0x5 00ba 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 00bb e5ff | | Load 0x2,-0x1 00bc 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 00bd e005 | | Load 0x0,0x5 00be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00bf 0279 | y | Execute Discrete,And 00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c1 4800 |H | Short_Literal 0x0 00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c3 0000 0000 | | .BLANK 0000[0x5] 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,0x023a,0x0002,0x0000,0x0032,0xcc24,0x0000,0x0079 ; Debug Table 0x6.0x0 = 0xcb,0x1 00cc e003 | | Load 0x0,0x3 00cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ce e001 | | Load 0x0,0x1 00cf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d1 e001 | | Load 0x0,0x1 00d2 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00ea | | .CONST 0x00ea ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0005 | | .CONST 0x0005 ; Number of locals 00db INIT_00d8: 00db e20d | | Load 0x1,0xd ; Debug Table 0x7 = .DEBUG 0x00db,0x023e,0x0002,0x0000,0x0032,0xcc24,0x0000,0x009a ; Debug Table 0x7.0x0 = 0xdb,0xffff 00dc 0322 | " | Declare_Variable Record 00dd 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0xdd,0xfffe 00de 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 00df 0007 | | Action Break_Optional 00e0 e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x2 = 0xe0,0xfffd 00e1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00e2 0322 | " | Declare_Variable Record 00e3 00d9 | | Load_Top At_Offset_1 00e4 e005 | | Load 0x0,0x5 00e5 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 00e6 00d9 | | Load_Top At_Offset_1 00e7 017d | } | Execute Record,Structure_Write 00e8 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 00ea BODY_00d8: 00ea 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x3 = 0xea,0x1 00eb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ed e402 | | Load 0x2,0x2 00ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ef 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x4 = 0xef,0x2 00f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f2 e402 | | Load 0x2,0x2 00f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x5 = 0xf4,0x3 00f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f6 0f01 | | Execute_Immediate Equal,0x1 00f7 6802 |h | Jump_Zero 0xfa 00f8 8405 | | Call 0x2,0x5 ; Debug Table 0x7.0x6 = 0xf8,0x4 00f9 7809 |x | Jump 0x103 00fa 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x7 = 0xfa,0x5 00fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fc e402 | | Load 0x2,0x2 00fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00fe 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x8 = 0xfe,0x6 00ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0100 0aff | | Execute_Immediate Plus,-0x1 0101 e402 | | Load 0x2,0x2 0102 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0103 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x9 = 0x103,0x7 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 011a | | .CONST 0x011a ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0007 | | .CONST 0x0007 ; Number of locals 010b INIT_0108: 010b e20d | | Load 0x1,0xd ; Debug Table 0x8 = .DEBUG 0x010b,0x0254,0x0002,0x0000,0x0032,0xcc24,0x0000,0x0156 ; Debug Table 0x8.0x0 = 0x10b,0xffff 010c 0322 | " | Declare_Variable Record 010d 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x1 = 0x10d,0xfffe 010e e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x2 = 0x10e,0xfffd 010f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0110 e006 | | Load 0x0,0x6 ; Debug Table 0x8.0x3 = 0x110,0xfffc 0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0112 02c7 | | Declare_Variable Any 0113 00d8 | | Load_Top At_Offset_0 0114 1c00 | | Execute_Immediate Run_Utility,0x0 0115 e005 | | Load 0x0,0x5 ; Debug Table 0x8.0x4 = 0x115,0xfffb 0116 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0117 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x5 = 0x117,0xfffa 0118 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0119 0007 | | Action Break_Optional 011a BODY_0108: 011a e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x6 = 0x11a,0x1 011b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 011c e005 | | Load 0x0,0x5 011d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 011e e405 | | Load 0x2,0x5 011f 0120 | | Execute Any,Is_Value 0120 6803 |h | Jump_Zero 0x124 0121 e006 | | Load 0x0,0x6 0122 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0123 7801 |x | Jump 0x125 0124 e405 | | Load 0x2,0x5 0125 4801 |H | Short_Literal 0x1 0126 e407 | | Load 0x2,0x7 0127 e001 | | Load 0x0,0x1 0128 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0129 c405 | | Store 0x2,0x5 012a 005b | [ | Store_Top Discrete,At_Offset_3 012b c404 | | Store 0x2,0x4 012c 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x7 = 0x12c,0x2 012d 6802 |h | Jump_Zero 0x130 012e e20e | | Load 0x1,0xe ; Debug Table 0x8.0x8 = 0x12e,0x3 012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0130 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x9 = 0x130,0x4 0131 e006 | | Load 0x0,0x6 0132 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0133 a403 | | Store_Unchecked 0x2,0x3 0134 e403 | | Load 0x2,0x3 ; Debug Table 0x8.0xa = 0x134,0x5 0135 0c01 | | Execute_Immediate Greater_Equal,0x1 0136 6812 |h | Jump_Zero 0x149 0137 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xb = 0x137,0x6 0138 e402 | | Load 0x2,0x2 0139 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 013a 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xc = 0x13a,0x7 013b e402 | | Load 0x2,0x2 013c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013d e403 | | Load 0x2,0x3 ; Debug Table 0x8.0xd = 0x13d,0x8 013e e402 | | Load 0x2,0x2 013f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0140 e403 | | Load 0x2,0x3 ; Debug Table 0x8.0xe = 0x140,0x9 0141 00e4 | | Load_Encached Positive_Cache 0142 025b | [ | Execute Discrete,Check_In_Type 0143 00db | | Load_Top At_Offset_3 0144 e006 | | Load 0x0,0x6 0145 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0146 e402 | | Load 0x2,0x2 0147 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0148 7803 |x | Jump 0x14c 0149 e20e | | Load 0x1,0xe ; Debug Table 0x8.0xf = 0x149,0xa 014a e402 | | Load 0x2,0x2 014b 017d | } | Execute Record,Structure_Write 014c e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x10 = 0x14c,0xb 014d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 014e 00da | | Load_Top At_Offset_2 014f 00da | | Load_Top At_Offset_2 0150 e001 | | Load 0x0,0x1 0151 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0152 c404 | | Store 0x2,0x4 0153 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x11 = 0x153,0xc 0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0167 | g | .CONST 0x0167 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0005 | | .CONST 0x0005 ; Number of locals 015b INIT_0158: 015b e001 | | Load 0x0,0x1 ; Debug Table 0x9 = .DEBUG 0x015b,0x027a,0x0004,0x0000,0x0032,0xcc24,0x0000,0x0138 ; Debug Table 0x9.0x0 = 0x15b,0xffff 015c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 015d e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x1 = 0x15d,0xfffe 015e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015f 02c7 | | Declare_Variable Any 0160 00d8 | | Load_Top At_Offset_0 0161 1c00 | | Execute_Immediate Run_Utility,0x0 0162 e005 | | Load 0x0,0x5 ; Debug Table 0x9.0x2 = 0x162,0xfffd 0163 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0164 e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x3 = 0x164,0xfffc 0165 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0166 0007 | | Action Break_Optional 0167 BODY_0158: 0167 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x4 = 0x167,0x1 0168 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0169 0aff | | Execute_Immediate Plus,-0x1 016a e402 | | Load 0x2,0x2 016b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 016c e001 | | Load 0x0,0x1 ; Debug Table 0x9.0x5 = 0x16c,0x2 016d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 016e e005 | | Load 0x0,0x5 016f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0170 e603 | | Load 0x3,0x3 0171 0120 | | Execute Any,Is_Value 0172 6803 |h | Jump_Zero 0x176 0173 e006 | | Load 0x0,0x6 0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0175 7801 |x | Jump 0x177 0176 e603 | | Load 0x3,0x3 0177 4801 |H | Short_Literal 0x1 0178 e605 | | Load 0x3,0x5 0179 e001 | | Load 0x0,0x1 017a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 017b c603 | | Store 0x3,0x3 017c 005b | [ | Store_Top Discrete,At_Offset_3 017d c602 | | Store 0x3,0x2 017e 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x6 = 0x17e,0x3 017f 6803 |h | Jump_Zero 0x183 0180 e20e | | Load 0x1,0xe ; Debug Table 0x9.0x7 = 0x180,0x4 0181 00cb | | Action Pop_Block_With_Result 0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0183 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x8 = 0x183,0x5 0184 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0185 00e4 | | Load_Encached Positive_Cache 0186 025b | [ | Execute Discrete,Check_In_Type 0187 00db | | Load_Top At_Offset_3 0188 e006 | | Load 0x0,0x6 0189 181d | | Execute Package,Field_Execute,Field_Number 0x1d 018a e402 | | Load 0x2,0x2 018b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 018c e001 | | Load 0x0,0x1 ; Debug Table 0x9.0x9 = 0x18c,0x6 018d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 018e 00da | | Load_Top At_Offset_2 018f 00da | | Load_Top At_Offset_2 0190 e001 | | Load 0x0,0x1 0191 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0192 c602 | | Store 0x3,0x2 0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0003 000a | | .CONST 0x0003,0x000a 019a 000b 01ea | | .DEBUG 0x000b,0x01ea,0x8000,0x0000,0x0032,0xc974,0x0000,0x0009 01a2 0026 01f4 | & | .DEBUG 0x0026,0x01f4,0x8000,0x0000,0x0032,0xcc24,0x0000,0x0011 01aa 003b 0204 | ; | .DEBUG 0x003b,0x0204,0x0002,0x0000,0x0032,0xc974,0x0000,0x002c 01b2 0053 0212 | S | .DEBUG 0x0053,0x0212,0x0001,0x0000,0x0032,0xc974,0x0000,0x003c 01ba 009b 0232 | 2| .DEBUG 0x009b,0x0232,0x0002,0x0000,0x0032,0xcc24,0x0000,0x0012 01c2 00a3 0236 | 6| .DEBUG 0x00a3,0x0236,0x0002,0x0000,0x0032,0xcc24,0x0000,0x002d 01ca 00cb 023a | :| .DEBUG 0x00cb,0x023a,0x0002,0x0000,0x0032,0xcc24,0x0000,0x0079 01d2 00db 023e | >| .DEBUG 0x00db,0x023e,0x0002,0x0000,0x0032,0xcc24,0x0000,0x009a 01da 010b 0254 | T| .DEBUG 0x010b,0x0254,0x0002,0x0000,0x0032,0xcc24,0x0000,0x0156 01e2 015b 027a | [ z| .DEBUG 0x015b,0x027a,0x0004,0x0000,0x0032,0xcc24,0x0000,0x0138 01ea ; -------------------------------------------------------------------------------------- 01ea ; Debug3 Subtable 0x0 01ea ; -------------------------------------------------------------------------------------- 01ea 0004 0000 | | .DBG3TAB 0x0004,0x0000 01ec 000b ffff | | .CONST 0x000b,0xffff 01ee 0012 fffe | | .CONST 0x0012,0xfffe 01f0 0021 fffd | ! | .CONST 0x0021,0xfffd 01f2 0023 fffc | # | .CONST 0x0023,0xfffc 01f4 ; -------------------------------------------------------------------------------------- 01f4 ; Debug3 Subtable 0x1 01f4 ; -------------------------------------------------------------------------------------- 01f4 0007 0000 | | .DBG3TAB 0x0007,0x0000 01f6 0026 ffff | & | .CONST 0x0026,0xffff 01f8 0028 fffe | ( | .CONST 0x0028,0xfffe 01fa 002a fffd | * | .CONST 0x002a,0xfffd 01fc 002c fffc | , | .CONST 0x002c,0xfffc 01fe 002e fffb | . | .CONST 0x002e,0xfffb 0200 0030 fffa | 0 | .CONST 0x0030,0xfffa 0202 0032 fff9 | 2 | .CONST 0x0032,0xfff9 0204 ; -------------------------------------------------------------------------------------- 0204 ; Debug3 Subtable 0x2 0204 ; -------------------------------------------------------------------------------------- 0204 0001 0005 | | .DBG3TAB 0x0001,0x0005 0206 003b ffff | ; | .CONST 0x003b,0xffff 0208 003d 0001 | = | .CONST 0x003d,0x0001 020a 0040 0002 | @ | .CONST 0x0040,0x0002 020c 0043 0003 | C | .CONST 0x0043,0x0003 020e 0045 0004 | E | .CONST 0x0045,0x0004 0210 0047 0005 | G | .CONST 0x0047,0x0005 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug3 Subtable 0x3 0212 ; -------------------------------------------------------------------------------------- 0212 0002 000d | | .DBG3TAB 0x0002,0x000d 0214 0053 ffff | S | .CONST 0x0053,0xffff 0216 0058 fffe | X | .CONST 0x0058,0xfffe 0218 005a 0001 | Z | .CONST 0x005a,0x0001 021a 005d 0002 | ] | .CONST 0x005d,0x0002 021c 0061 0003 | a | .CONST 0x0061,0x0003 021e 0067 0004 | g | .CONST 0x0067,0x0004 0220 006a 0005 | j | .CONST 0x006a,0x0005 0222 006f 0006 | o | .CONST 0x006f,0x0006 0224 0072 0007 | r | .CONST 0x0072,0x0007 0226 0077 0008 | w | .CONST 0x0077,0x0008 0228 007c 0009 | | | .CONST 0x007c,0x0009 022a 0081 000a | | .CONST 0x0081,0x000a 022c 0087 000b | | .CONST 0x0087,0x000b 022e 008a 000c | | .CONST 0x008a,0x000c 0230 008e 000d | | .CONST 0x008e,0x000d 0232 ; -------------------------------------------------------------------------------------- 0232 ; Debug3 Subtable 0x4 0232 ; -------------------------------------------------------------------------------------- 0232 0000 0001 | | .DBG3TAB 0x0000,0x0001 0234 009b 0001 | | .CONST 0x009b,0x0001 0236 ; -------------------------------------------------------------------------------------- 0236 ; Debug3 Subtable 0x5 0236 ; -------------------------------------------------------------------------------------- 0236 0000 0001 | | .DBG3TAB 0x0000,0x0001 0238 00a3 0001 | | .CONST 0x00a3,0x0001 023a ; -------------------------------------------------------------------------------------- 023a ; Debug3 Subtable 0x6 023a ; -------------------------------------------------------------------------------------- 023a 0000 0001 | | .DBG3TAB 0x0000,0x0001 023c 00cb 0001 | | .CONST 0x00cb,0x0001 023e ; -------------------------------------------------------------------------------------- 023e ; Debug3 Subtable 0x7 023e ; -------------------------------------------------------------------------------------- 023e 0003 0007 | | .DBG3TAB 0x0003,0x0007 0240 00db ffff | | .CONST 0x00db,0xffff 0242 00dd fffe | | .CONST 0x00dd,0xfffe 0244 00e0 fffd | | .CONST 0x00e0,0xfffd 0246 00ea 0001 | | .CONST 0x00ea,0x0001 0248 00ef 0002 | | .CONST 0x00ef,0x0002 024a 00f4 0003 | | .CONST 0x00f4,0x0003 024c 00f8 0004 | | .CONST 0x00f8,0x0004 024e 00fa 0005 | | .CONST 0x00fa,0x0005 0250 00fe 0006 | | .CONST 0x00fe,0x0006 0252 0103 0007 | | .CONST 0x0103,0x0007 0254 ; -------------------------------------------------------------------------------------- 0254 ; Debug3 Subtable 0x8 0254 ; -------------------------------------------------------------------------------------- 0254 0006 000c | | .DBG3TAB 0x0006,0x000c 0256 010b ffff | | .CONST 0x010b,0xffff 0258 010d fffe | | .CONST 0x010d,0xfffe 025a 010e fffd | | .CONST 0x010e,0xfffd 025c 0110 fffc | | .CONST 0x0110,0xfffc 025e 0115 fffb | | .CONST 0x0115,0xfffb 0260 0117 fffa | | .CONST 0x0117,0xfffa 0262 011a 0001 | | .CONST 0x011a,0x0001 0264 012c 0002 | , | .CONST 0x012c,0x0002 0266 012e 0003 | . | .CONST 0x012e,0x0003 0268 0130 0004 | 0 | .CONST 0x0130,0x0004 026a 0134 0005 | 4 | .CONST 0x0134,0x0005 026c 0137 0006 | 7 | .CONST 0x0137,0x0006 026e 013a 0007 | : | .CONST 0x013a,0x0007 0270 013d 0008 | = | .CONST 0x013d,0x0008 0272 0140 0009 | @ | .CONST 0x0140,0x0009 0274 0149 000a | I | .CONST 0x0149,0x000a 0276 014c 000b | L | .CONST 0x014c,0x000b 0278 0153 000c | S | .CONST 0x0153,0x000c 027a ; -------------------------------------------------------------------------------------- 027a ; Debug3 Subtable 0x9 027a ; -------------------------------------------------------------------------------------- 027a 0004 0006 | | .DBG3TAB 0x0004,0x0006 027c 015b ffff | [ | .CONST 0x015b,0xffff 027e 015d fffe | ] | .CONST 0x015d,0xfffe 0280 0162 fffd | b | .CONST 0x0162,0xfffd 0282 0164 fffc | d | .CONST 0x0164,0xfffc 0284 0167 0001 | g | .CONST 0x0167,0x0001 0286 016c 0002 | l | .CONST 0x016c,0x0002 0288 017e 0003 | ~ | .CONST 0x017e,0x0003 028a 0180 0004 | | .CONST 0x0180,0x0004 028c 0183 0005 | | .CONST 0x0183,0x0005 028e 018c 0006 | | .CONST 0x018c,0x0006 0290 0000 0000 | | .BLANK 0000[0x170]