|
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 - metrics - download
Length: 2048 (0x800) Notes: 00_class, 5812_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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01c8 | | .CONST 0x01c8 ; 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 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x8c, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0222,0x0000,0x0000,0x004c,0x35c6,0x0000,0x01ed ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x0010,0x0228,0x0000,0x0000,0x004c,0x3666,0x0000,0x000c ; Debug Table 0x1.0x0 = 0x10,0xffff 0011 6042 |`B | Indirect_Literal Discrete,0x54,{0x0084300d, 0x000005b0} 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 037d | } | Declare_Type Task,Defined 0014 036f | o | Declare_Variable Task 0015 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x15,0xfffe 0016 00c7 | | Action Elaborate_Subprogram 0017 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x17,0xfffd 0018 00c7 | | Action Elaborate_Subprogram 0019 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x19,0xfffc 001a e002 | | Load 0x0,0x2 001b e003 | | Load 0x0,0x3 001c e004 | | Load 0x0,0x4 001d a005 | | Store_Unchecked 0x0,0x5 001e e006 | | Load 0x0,0x6 001f 4806 |H | Short_Literal 0x6 0020 e20f | | Load 0x1,0xf 0021 020e | | Execute Module,Augment_Imports 0022 BODY_0008: 0022 BODY_0008: 0022 00be | | Action Activate_Tasks 0023 00bc | | Action Signal_Activated 0024 00bb | | Action Signal_Completion 0025 0000 0000 | | .XXX[0x3] 0027 0000 | | 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0030 | 0 | .CONST 0x0030 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0002 | | .CONST 0x0002 ; Number of locals 002b INIT_0028: 002b e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x002b,0x0232,0x0001,0x0000,0x004c,0x35c6,0x0000,0x01ee ; Debug Table 0x2.0x0 = 0x2b,0xffff 002c 180e | | Execute Package,Field_Execute,Field_Number 0xe 002d e001 | | Load 0x0,0x1 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 03f1 | | Declare_Variable Discrete,With_Value 0030 BODY_0028: 0030 e006 | | Load 0x0,0x6 ; Debug Table 0x2.0x1 = 0x30,0x1 0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0032 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x2 = 0x32,0x2 0033 e5fe | | Load 0x2,-0x2 0034 00da | | Load_Top At_Offset_2 0035 4803 |H | Short_Literal 0x3 0036 e20f | | Load 0x1,0xf 0037 170d | | Execute Task,Entry_Call,Field_Number 0xd 0038 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x3 = 0x38,0x3 0039 4826 |H& | Short_Literal 0x26 003a e006 | | Load 0x0,0x6 003b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003c e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x4 = 0x3c,0x4 003d e5fe | | Load 0x2,-0x2 003e 00da | | Load_Top At_Offset_2 003f 4803 |H | Short_Literal 0x3 0040 e20f | | Load 0x1,0xf 0041 170e | | Execute Task,Entry_Call,Field_Number 0xe 0042 e006 | | Load 0x0,0x6 ; Debug Table 0x2.0x5 = 0x42,0x5 0043 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0044 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x004b,0x0240,0x0001,0x0000,0x004c,0x35c6,0x0000,0x0200 ; Debug Table 0x3.0x0 = 0x4b,0x1 004c 00db | | Load_Top At_Offset_3 004d 4802 |H | Short_Literal 0x2 004e e20f | | Load 0x1,0xf 004f 170f | | Execute Task,Entry_Call,Field_Number 0xf 0050 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0051 0000 0000 | | .XXX[0x3] 0053 0000 | | 0054 0084 300d | 0 | .LITERAL {0x0084300d, 0x000005b0} 0058 0098 00a5 | | .XXX[0x3] 005a 0017 | | 005b 4803 |H | Short_Literal 0x3 ; Debug Table 0x4 = .DEBUG 0x005b,0x0244,0x0000,0x0000,0x004c,0x3666,0x0000,0x000d 005c 02cb | | Declare_Variable Entry 005d 4803 |H | Short_Literal 0x3 005e 02cb | | Declare_Variable Entry 005f 4802 |H | Short_Literal 0x2 0060 02cb | | Declare_Variable Entry 0061 00bf | | Action Accept_Activation 0062 0007 | | Action Break_Optional ; Debug Table 0x5 = .DEBUG 0x0062,0x0246,0x0000,0x0000,0x004c,0x3666,0x0000,0x00a7 ; Debug Table 0x5.0x0 = 0x62,0xffff 0063 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0x1 = 0x63,0xfffe 0064 032a | * | Declare_Type Record,Incomplete 0065 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x65,0xfffd 0066 02a0 | | Declare_Subprogram Null_Subprogram 0067 4818 |H | Short_Literal 0x18 0068 03d5 | | Declare_Type Access,Defined 0069 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x3 = 0x69,0xfffc 006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006b 00d9 | | Load_Top At_Offset_1 006c 02a0 | | Declare_Subprogram Null_Subprogram 006d e210 | | Load 0x1,0x10 006e 0326 | & | Complete_Type Record,By_Defining 006f 00d8 | | Load_Top At_Offset_0 0070 03c4 | | Complete_Type Access,By_Component_Completion 0071 0007 | | Action Break_Optional ; Debug Table 0x5.0x4 = 0x71,0xfffb 0072 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0x72,0xfffa 0073 0007 | | Action Break_Optional 0074 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x6 = 0x74,0xfff9 0075 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0076 e003 | | Load 0x0,0x3 0077 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0078 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 007a 4802 |H | Short_Literal 0x2 007b 032d | - | Declare_Type Record,Defined 007c 029b 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Unelaborated ; Debug Table 0x5.0x7 = 0x7c,0xfff8 007e 6135 |a5 | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x004c3666} ; Debug Table 0x5.0x8 = 0x7e,0xfff7 007f 48fa |H | Short_Literal 0xfa 0080 487b |H{ | Short_Literal 0x7b 0081 e213 | | Load 0x1,0x13 0082 e211 | | Load 0x1,0x11 0083 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0084 e004 | | Load 0x0,0x4 0085 0387 | | Declare_Variable Package 0086 00d8 | | Load_Top At_Offset_0 0087 020f | | Execute Module,Activate 0088 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x9 = 0x88,0xfff6 0089 1b13 | | Execute Package,Field_Read,Field_Number 0x13 008a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x5.0xa = 0x8a,0xfff5 008b 00c7 | | Action Elaborate_Subprogram 008c 480f 481a |H H | Declare_Variable Select 0x000, 0x003, 008e 480e 4824 |H H$| [0x000]: 0x001 = 0x0008, 0090 480d 482b |H H+| [0x00d]: 0x02b = 0x0158, 0092 4800 4801 |H H | [0x00e]: 0x024 = 0x0120, 0094 4800 4803 |H H | [0x00f]: 0x01a = 0x00d0 0096 02cf | | 0097 00bc | | Action Signal_Activated 0098 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xb = 0x98,0x1 0099 1b13 | | Execute Package,Field_Read,Field_Number 0x13 009a 487b |H{ | Short_Literal 0x7b 009b e215 | | Load 0x1,0x15 009c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 009d 003a | : | Store_Top Access,At_Offset_2 009e 00cf | | Action Mark_Auxiliary 009f 0007 | | Action Break_Optional ; Debug Table 0x5.0xc = 0x9f,0x2 00a0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xd = 0xa0,0x3 00a1 013f | ? | Execute Select,Rendezvous 00a2 00d1 | | Pop_Control Pop_Count_1 00a3 00c9 | | Action Pop_Auxiliary_Loop 00a4 7ffb | | Jump 0xa0 00a5 0007 | | .XXX[0x1] 00a6 0092 01b8 | | Action Push_String_Extended,0x1b8 ; "Queue_Task Terminating" ; Debug Table 0x5.0xe = 0xa6,0x7 00a8 8005 | | Call 0x0,0x5 00a9 e003 | | Load 0x0,0x3 ; Debug Table 0x5.0xf = 0xa9,0x8 00aa 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00ab 0257 | W | Execute Discrete,Raise 00ac 0000 0000 | | .BLANK 0000[0x4] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x00b3,0x0268,0x0005,0x0000,0x004c,0x3666,0x0000,0x00e1 00b4 7808 |x | Jump 0xbd ; case 0x0 00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00b7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00bb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00bd 00da | | Load_Top At_Offset_2 00be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00bf 0125 | % | Execute Any,Set_Constraint 00c0 00da | | Load_Top At_Offset_2 00c1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00c2 1c00 | | Execute_Immediate Run_Utility,0x0 00c3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c4 0000 0000 | | .BLANK 0000[0x4] 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 0x7 = .DEBUG 0x00cb,0x026a,0x0002,0x0000,0x004c,0x3666,0x0000,0x00f1 ; Debug Table 0x7.0x0 = 0xcb,0x1 00cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00cd e002 | | Load 0x0,0x2 00ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; See instruction 0x02cf at 0x8c, index=0xf 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 00cf | | Action Mark_Auxiliary ; Debug Table 0x8 = .DEBUG 0x00d3,0x026e,0x0003,0x0000,0x004c,0x3666,0x0000,0x029c ; Debug Table 0x8.0x0 = 0xd3,0x1 00d4 e211 | | Load 0x1,0x11 ; Debug Table 0x8.0x1 = 0xd4,0xfbff 00d5 0007 | | Action Break_Optional 00d6 e211 | | Load 0x1,0x11 ; Debug Table 0x8.0x2 = 0xd6,0xfbfe 00d7 0007 | | Action Break_Optional 00d8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x3 = 0xd8,0xfbfd 00d9 e213 | | Load 0x1,0x13 ; Debug Table 0x8.0x4 = 0xd9,0xfbfc 00da 0322 | " | Declare_Variable Record 00db e5fe | | Load 0x2,-0x2 00dc e002 | | Load 0x0,0x2 00dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00de 0119 | | Execute Any,Check_In_Formal_Type 00df 00d9 | | Load_Top At_Offset_1 00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e1 e5fd | | Load 0x2,-0x3 00e2 00d9 | | Load_Top At_Offset_1 00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e4 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x5 = 0xe4,0x401 00e5 e403 | | Load 0x2,0x3 00e6 00da | | Load_Top At_Offset_2 00e7 e216 | | Load 0x1,0x16 00e8 e215 | | Load 0x1,0x15 00e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ea c403 | | Store 0x2,0x3 00eb 005a | Z | Store_Top Discrete,At_Offset_2 00ec 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x6 = 0xec,0x402 00ed 682d |h- | Jump_Zero 0x11b 00ee 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x7 = 0xee,0x403 00ef 003b | ; | Store_Top Access,At_Offset_3 00f0 00cf | | Action Mark_Auxiliary 00f1 0007 | | Action Break_Optional ; Debug Table 0x8.0x8 = 0xf1,0x404 00f2 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x9 = 0xf2,0x405 00f3 0227 | ' | Execute Access,All_Reference 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 680a |h | Jump_Zero 0x100 00f6 4826 |H& | Short_Literal 0x26 ; Debug Table 0x8.0xa = 0xf6,0x406 00f7 e404 | | Load 0x2,0x4 00f8 0227 | ' | Execute Access,All_Reference 00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fa e006 | | Load 0x0,0x6 00fb 180f | | Execute Package,Field_Execute,Field_Number 0xf 00fc 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0xb = 0xfc,0x407 00fd e404 | | Load 0x2,0x4 00fe 0227 | ' | Execute Access,All_Reference 00ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0100 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xc = 0x100,0x408 0101 0227 | ' | Execute Access,All_Reference 0102 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0103 6806 |h | Jump_Zero 0x10a 0104 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xd = 0x104,0x409 0105 0227 | ' | Execute Access,All_Reference 0106 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0107 a404 | | Store_Unchecked 0x2,0x4 0108 00c9 | | Action Pop_Auxiliary_Loop 0109 7fe8 | | Jump 0xf2 010a 00ce | | Action Pop_Auxiliary 010b 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0xe = 0x10b,0x40a 010c 0227 | ' | Execute Access,All_Reference 010d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010e 680c |h | Jump_Zero 0x11b 010f e212 | | Load 0x1,0x12 ; Debug Table 0x8.0xf = 0x10f,0x40b 0110 00db | | Load_Top At_Offset_3 0111 0227 | ' | Execute Access,All_Reference 0112 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0113 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x10 = 0x113,0x40c 0114 0227 | ' | Execute Access,All_Reference 0115 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0116 a212 | | Store_Unchecked 0x1,0x12 0117 e211 | | Load 0x1,0x11 ; Debug Table 0x8.0x11 = 0x117,0x40d 0118 e403 | | Load 0x2,0x3 0119 0227 | ' | Execute Access,All_Reference 011a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 011b 4100 |A | End_Rendezvous 0x0 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; See instruction 0x02cf at 0x8c, index=0xe 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00cf | | Action Mark_Auxiliary ; Debug Table 0x9 = .DEBUG 0x0123,0x0294,0x0003,0x0000,0x004c,0x3666,0x0000,0x021b ; Debug Table 0x9.0x0 = 0x123,0x1 0124 e213 | | Load 0x1,0x13 ; Debug Table 0x9.0x1 = 0x124,0xfbff 0125 0322 | " | Declare_Variable Record 0126 e5fd | | Load 0x2,-0x3 0127 e002 | | Load 0x0,0x2 0128 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0129 0119 | | Execute Any,Check_In_Formal_Type 012a 00d9 | | Load_Top At_Offset_1 012b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012c e5fc | | Load 0x2,-0x4 012d 00d9 | | Load_Top At_Offset_1 012e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012f e211 | | Load 0x1,0x11 ; Debug Table 0x9.0x2 = 0x12f,0xfbfe 0130 0007 | | Action Break_Optional 0131 e211 | | Load 0x1,0x11 ; Debug Table 0x9.0x3 = 0x131,0xfbfd 0132 0007 | | Action Break_Optional 0133 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x4 = 0x133,0xfbfc 0134 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x5 = 0x134,0x401 0135 00db | | Load_Top At_Offset_3 0136 e403 | | Load 0x2,0x3 0137 e216 | | Load 0x1,0x16 0138 e215 | | Load 0x1,0x15 0139 1816 | | Execute Package,Field_Execute,Field_Number 0x16 013a c404 | | Store 0x2,0x4 013b 0059 | Y | Store_Top Discrete,At_Offset_1 013c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x6 = 0x13c,0x402 013d 6816 |h | Jump_Zero 0x154 013e 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x7 = 0x13e,0x403 013f 003a | : | Store_Top Access,At_Offset_2 0140 00cf | | Action Mark_Auxiliary 0141 780f |x | Jump 0x151 0142 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x8 = 0x142,0x405 0143 0227 | ' | Execute Access,All_Reference 0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0145 e5fe | | Load 0x2,-0x2 0146 027f | | Execute Discrete,Equal 0147 6804 |h | Jump_Zero 0x14c 0148 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x9 = 0x148,0x406 0149 00db | | Load_Top At_Offset_3 014a 0227 | ' | Execute Access,All_Reference 014b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 014c 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0xa = 0x14c,0x407 014d 0227 | ' | Execute Access,All_Reference 014e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014f 003b | ; | Store_Top Access,At_Offset_3 0150 00c9 | | Action Pop_Auxiliary_Loop 0151 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0xb = 0x151,0x404 0152 77ef |w | Jump_Nonzero 0x142 0153 00ce | | Action Pop_Auxiliary 0154 4100 |A | End_Rendezvous 0x0 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; See instruction 0x02cf at 0x8c, index=0xd 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00cf | | Action Mark_Auxiliary ; Debug Table 0xa = .DEBUG 0x015b,0x02ae,0x0003,0x0000,0x004c,0x3666,0x0000,0x01be ; Debug Table 0xa.0x0 = 0x15b,0x1 015c e213 | | Load 0x1,0x13 ; Debug Table 0xa.0x1 = 0x15c,0xfbff 015d 0322 | " | Declare_Variable Record 015e e5fd | | Load 0x2,-0x3 015f e002 | | Load 0x0,0x2 0160 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0161 0119 | | Execute Any,Check_In_Formal_Type 0162 00d9 | | Load_Top At_Offset_1 0163 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0164 e5fc | | Load 0x2,-0x4 0165 00d9 | | Load_Top At_Offset_1 0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0167 e211 | | Load 0x1,0x11 ; Debug Table 0xa.0x2 = 0x167,0xfbfe 0168 0007 | | Action Break_Optional 0169 e211 | | Load 0x1,0x11 ; Debug Table 0xa.0x3 = 0x169,0xfbfd 016a 0007 | | Action Break_Optional 016b e211 | | Load 0x1,0x11 ; Debug Table 0xa.0x4 = 0x16b,0xfbfc 016c 0007 | | Action Break_Optional 016d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xa.0x5 = 0x16d,0xfbfb 016e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xa.0x6 = 0x16e,0x401 016f e404 | | Load 0x2,0x4 0170 e403 | | Load 0x2,0x3 0171 e216 | | Load 0x1,0x16 0172 e215 | | Load 0x1,0x15 0173 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0174 c404 | | Store 0x2,0x4 0175 0059 | Y | Store_Top Discrete,At_Offset_1 0176 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x7 = 0x176,0x402 0177 6818 |h | Jump_Zero 0x190 0178 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x8 = 0x178,0x403 0179 003a | : | Store_Top Access,At_Offset_2 017a 00cf | | Action Mark_Auxiliary 017b 0007 | | Action Break_Optional ; Debug Table 0xa.0x9 = 0x17b,0x404 017c 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xa = 0x17c,0x405 017d 0227 | ' | Execute Access,All_Reference 017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017f 7005 |p | Jump_Nonzero 0x185 0180 e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0xb = 0x180,0x406 0181 00db | | Load_Top At_Offset_3 0182 0227 | ' | Execute Access,All_Reference 0183 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0184 4100 |A | End_Rendezvous 0x0 ; Debug Table 0xa.0xc = 0x184,0x407 0185 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xd = 0x185,0x408 0186 0227 | ' | Execute Access,All_Reference 0187 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0188 6806 |h | Jump_Zero 0x18f 0189 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xe = 0x189,0x409 018a 0227 | ' | Execute Access,All_Reference 018b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018c 003b | ; | Store_Top Access,At_Offset_3 018d 00c9 | | Action Pop_Auxiliary_Loop 018e 7fed | | Jump 0x17c 018f 00ce | | Action Pop_Auxiliary 0190 e212 | | Load 0x1,0x12 ; Debug Table 0xa.0xf = 0x190,0x40a 0191 7004 |p | Jump_Nonzero 0x196 0192 e211 | | Load 0x1,0x11 ; Debug Table 0xa.0x10 = 0x192,0x40b 0193 03bc | | Declare_Variable Access,By_Allocation 0194 003b | ; | Store_Top Access,At_Offset_3 0195 7806 |x | Jump 0x19c 0196 e212 | | Load 0x1,0x12 ; Debug Table 0xa.0x11 = 0x196,0x40c 0197 003b | ; | Store_Top Access,At_Offset_3 0198 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x12 = 0x198,0x40d 0199 0227 | ' | Execute Access,All_Reference 019a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019b a212 | | Store_Unchecked 0x1,0x12 019c e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x13 = 0x19c,0x40e 019d 00db | | Load_Top At_Offset_3 019e 0227 | ' | Execute Access,All_Reference 019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a0 e211 | | Load 0x1,0x11 ; Debug Table 0xa.0x14 = 0x1a0,0x40f 01a1 00db | | Load_Top At_Offset_3 01a2 0227 | ' | Execute Access,All_Reference 01a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x15 = 0x1a4,0x410 01a5 6805 |h | Jump_Zero 0x1ab 01a6 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x16 = 0x1a6,0x411 01a7 00da | | Load_Top At_Offset_2 01a8 0227 | ' | Execute Access,All_Reference 01a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01aa 4100 |A | End_Rendezvous 0x0 01ab e216 | | Load 0x1,0x16 ; Debug Table 0xa.0x17 = 0x1ab,0x412 01ac 4801 |H | Short_Literal 0x1 01ad e405 | | Load 0x2,0x5 01ae e403 | | Load 0x2,0x3 01af e215 | | Load 0x1,0x15 01b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b1 c216 | | Store 0x1,0x16 01b2 4100 |A | End_Rendezvous 0x0 01b3 0000 | | .XXX[0x1] 01b4 0000 0000 | | .LITERAL {0x00000000, 0x004c3666} 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; STRING TABLE 01b8 ; -------------------------------------------------------------------------------------- 01b8 0004 | | .STRTAB 0x0004->0x01ba ; "Queue_Task Terminating" 01b9 0018 | | .STREND 0x0018->0x01c5 01ba 5175 6575 |Queu| .STRTAB_STRINGS 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0003 000b | | .CONST 0x0003,0x000b 01ca 000b 0222 | "| .DEBUG 0x000b,0x0222,0x0000,0x0000,0x004c,0x35c6,0x0000,0x01ed 01d2 0010 0228 | (| .DEBUG 0x0010,0x0228,0x0000,0x0000,0x004c,0x3666,0x0000,0x000c 01da 002b 0232 | + 2| .DEBUG 0x002b,0x0232,0x0001,0x0000,0x004c,0x35c6,0x0000,0x01ee 01e2 004b 0240 | K @| .DEBUG 0x004b,0x0240,0x0001,0x0000,0x004c,0x35c6,0x0000,0x0200 01ea 005b 0244 | [ D| .DEBUG 0x005b,0x0244,0x0000,0x0000,0x004c,0x3666,0x0000,0x000d 01f2 0062 0246 | b F| .DEBUG 0x0062,0x0246,0x0000,0x0000,0x004c,0x3666,0x0000,0x00a7 01fa 00b3 0268 | h| .DEBUG 0x00b3,0x0268,0x0005,0x0000,0x004c,0x3666,0x0000,0x00e1 0202 00cb 026a | j| .DEBUG 0x00cb,0x026a,0x0002,0x0000,0x004c,0x3666,0x0000,0x00f1 020a 00d3 026e | n| .DEBUG 0x00d3,0x026e,0x0003,0x0000,0x004c,0x3666,0x0000,0x029c 0212 0123 0294 | # | .DEBUG 0x0123,0x0294,0x0003,0x0000,0x004c,0x3666,0x0000,0x021b 021a 015b 02ae | [ | .DEBUG 0x015b,0x02ae,0x0003,0x0000,0x004c,0x3666,0x0000,0x01be 0222 ; -------------------------------------------------------------------------------------- 0222 ; Debug3 Subtable 0x0 0222 ; -------------------------------------------------------------------------------------- 0222 0002 0000 | | .DBG3TAB 0x0002,0x0000 0224 000b ffff | | .CONST 0x000b,0xffff 0226 000d fffe | | .CONST 0x000d,0xfffe 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug3 Subtable 0x1 0228 ; -------------------------------------------------------------------------------------- 0228 0004 0000 | | .DBG3TAB 0x0004,0x0000 022a 0010 ffff | | .CONST 0x0010,0xffff 022c 0015 fffe | | .CONST 0x0015,0xfffe 022e 0017 fffd | | .CONST 0x0017,0xfffd 0230 0019 fffc | | .CONST 0x0019,0xfffc 0232 ; -------------------------------------------------------------------------------------- 0232 ; Debug3 Subtable 0x2 0232 ; -------------------------------------------------------------------------------------- 0232 0001 0005 | | .DBG3TAB 0x0001,0x0005 0234 002b ffff | + | .CONST 0x002b,0xffff 0236 0030 0001 | 0 | .CONST 0x0030,0x0001 0238 0032 0002 | 2 | .CONST 0x0032,0x0002 023a 0038 0003 | 8 | .CONST 0x0038,0x0003 023c 003c 0004 | < | .CONST 0x003c,0x0004 023e 0042 0005 | B | .CONST 0x0042,0x0005 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug3 Subtable 0x3 0240 ; -------------------------------------------------------------------------------------- 0240 0000 0001 | | .DBG3TAB 0x0000,0x0001 0242 004b 0001 | K | .CONST 0x004b,0x0001 0244 ; -------------------------------------------------------------------------------------- 0244 ; Debug3 Subtable 0x4 0244 ; -------------------------------------------------------------------------------------- 0244 0000 0000 | | .DBG3TAB 0x0000,0x0000 0246 ; -------------------------------------------------------------------------------------- 0246 ; Debug3 Subtable 0x5 0246 ; -------------------------------------------------------------------------------------- 0246 000b 0005 | | .DBG3TAB 0x000b,0x0005 0248 0062 ffff | b | .CONST 0x0062,0xffff 024a 0063 fffe | c | .CONST 0x0063,0xfffe 024c 0065 fffd | e | .CONST 0x0065,0xfffd 024e 0069 fffc | i | .CONST 0x0069,0xfffc 0250 0071 fffb | q | .CONST 0x0071,0xfffb 0252 0072 fffa | r | .CONST 0x0072,0xfffa 0254 0074 fff9 | t | .CONST 0x0074,0xfff9 0256 007c fff8 | | | .CONST 0x007c,0xfff8 0258 007e fff7 | ~ | .CONST 0x007e,0xfff7 025a 0088 fff6 | | .CONST 0x0088,0xfff6 025c 008a fff5 | | .CONST 0x008a,0xfff5 025e 0098 0001 | | .CONST 0x0098,0x0001 0260 009f 0002 | | .CONST 0x009f,0x0002 0262 00a0 0003 | | .CONST 0x00a0,0x0003 0264 00a6 0007 | | .CONST 0x00a6,0x0007 0266 00a9 0008 | | .CONST 0x00a9,0x0008 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug3 Subtable 0x6 0268 ; -------------------------------------------------------------------------------------- 0268 0000 0000 | | .DBG3TAB 0x0000,0x0000 026a ; -------------------------------------------------------------------------------------- 026a ; Debug3 Subtable 0x7 026a ; -------------------------------------------------------------------------------------- 026a 0000 0001 | | .DBG3TAB 0x0000,0x0001 026c 00cb 0001 | | .CONST 0x00cb,0x0001 026e ; -------------------------------------------------------------------------------------- 026e ; Debug3 Subtable 0x8 026e ; -------------------------------------------------------------------------------------- 026e 0004 000e | | .DBG3TAB 0x0004,0x000e 0270 00d3 0001 | | .CONST 0x00d3,0x0001 0272 00d4 fbff | | .CONST 0x00d4,0xfbff 0274 00d6 fbfe | | .CONST 0x00d6,0xfbfe 0276 00d8 fbfd | | .CONST 0x00d8,0xfbfd 0278 00d9 fbfc | | .CONST 0x00d9,0xfbfc 027a 00e4 0401 | | .CONST 0x00e4,0x0401 027c 00ec 0402 | | .CONST 0x00ec,0x0402 027e 00ee 0403 | | .CONST 0x00ee,0x0403 0280 00f1 0404 | | .CONST 0x00f1,0x0404 0282 00f2 0405 | | .CONST 0x00f2,0x0405 0284 00f6 0406 | | .CONST 0x00f6,0x0406 0286 00fc 0407 | | .CONST 0x00fc,0x0407 0288 0100 0408 | | .CONST 0x0100,0x0408 028a 0104 0409 | | .CONST 0x0104,0x0409 028c 010b 040a | | .CONST 0x010b,0x040a 028e 010f 040b | | .CONST 0x010f,0x040b 0290 0113 040c | | .CONST 0x0113,0x040c 0292 0117 040d | | .CONST 0x0117,0x040d 0294 ; -------------------------------------------------------------------------------------- 0294 ; Debug3 Subtable 0x9 0294 ; -------------------------------------------------------------------------------------- 0294 0004 0008 | | .DBG3TAB 0x0004,0x0008 0296 0123 0001 | # | .CONST 0x0123,0x0001 0298 0124 fbff | $ | .CONST 0x0124,0xfbff 029a 012f fbfe | / | .CONST 0x012f,0xfbfe 029c 0131 fbfd | 1 | .CONST 0x0131,0xfbfd 029e 0133 fbfc | 3 | .CONST 0x0133,0xfbfc 02a0 0134 0401 | 4 | .CONST 0x0134,0x0401 02a2 013c 0402 | < | .CONST 0x013c,0x0402 02a4 013e 0403 | > | .CONST 0x013e,0x0403 02a6 0142 0405 | B | .CONST 0x0142,0x0405 02a8 0148 0406 | H | .CONST 0x0148,0x0406 02aa 014c 0407 | L | .CONST 0x014c,0x0407 02ac 0151 0404 | Q | .CONST 0x0151,0x0404 02ae ; -------------------------------------------------------------------------------------- 02ae ; Debug3 Subtable 0xa 02ae ; -------------------------------------------------------------------------------------- 02ae 0005 0013 | | .DBG3TAB 0x0005,0x0013 02b0 015b 0001 | [ | .CONST 0x015b,0x0001 02b2 015c fbff | \ | .CONST 0x015c,0xfbff 02b4 0167 fbfe | g | .CONST 0x0167,0xfbfe 02b6 0169 fbfd | i | .CONST 0x0169,0xfbfd 02b8 016b fbfc | k | .CONST 0x016b,0xfbfc 02ba 016d fbfb | m | .CONST 0x016d,0xfbfb 02bc 016e 0401 | n | .CONST 0x016e,0x0401 02be 0176 0402 | v | .CONST 0x0176,0x0402 02c0 0178 0403 | x | .CONST 0x0178,0x0403 02c2 017b 0404 | { | .CONST 0x017b,0x0404 02c4 017c 0405 | | | .CONST 0x017c,0x0405 02c6 0180 0406 | | .CONST 0x0180,0x0406 02c8 0184 0407 | | .CONST 0x0184,0x0407 02ca 0185 0408 | | .CONST 0x0185,0x0408 02cc 0189 0409 | | .CONST 0x0189,0x0409 02ce 0190 040a | | .CONST 0x0190,0x040a 02d0 0192 040b | | .CONST 0x0192,0x040b 02d2 0196 040c | | .CONST 0x0196,0x040c 02d4 0198 040d | | .CONST 0x0198,0x040d 02d6 019c 040e | | .CONST 0x019c,0x040e 02d8 01a0 040f | | .CONST 0x01a0,0x040f 02da 01a4 0410 | | .CONST 0x01a4,0x0410 02dc 01a6 0411 | | .CONST 0x01a6,0x0411 02de 01ab 0412 | | .CONST 0x01ab,0x0412 02e0 0000 0000 | | .BLANK 0000[0x120]