|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01a0 | | .CONST 0x01a0 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0059,0x8a35,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 00bf | | Action Accept_Activation 0018 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0018,0x01f0,0x8000,0x0000,0x0059,0x8f25,0x0000,0x000c ; Debug Table 0x1.0x0 = 0x18,0xffff ; Debug Table 0x1.0x1 = 0x18,0xfffe 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x1a,0xfffd 001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x3 = 0x1c,0xfffc ; Debug Table 0x1.0x4 = 0x1c,0xfffb ; Debug Table 0x1.0x5 = 0x1c,0xfffa 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x1e,0xfff9 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x7 = 0x20,0xfff8 0021 00c7 | | Action Elaborate_Subprogram 0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x8 = 0x22,0xfff7 0023 00c7 | | Action Elaborate_Subprogram 0024 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x24,0xfff6 0025 00c7 | | Action Elaborate_Subprogram 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xa = 0x26,0xfff5 0027 00c7 | | Action Elaborate_Subprogram 0028 BODY_0008: 0028 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x1.0xb = 0x28,0x1 0029 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xc = 0x29,0x401 002a e001 | | Load 0x0,0x1 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 002d 00d0 | | Action Swap_Control 002e 00d1 | | Pop_Control Pop_Count_1 002f 003a | : | Store_Top Access,At_Offset_2 ; Debug Table 0x1.0xd = 0x2f,0x1 0030 0092 0189 | | Action Push_String_Extended,0x189 ; "The cursor is not in a window" ; Debug Table 0x1.0xe = 0x30,0x2 0032 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xf = 0x32,0x801 0033 e001 | | Load 0x0,0x1 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0036 00d0 | | Action Swap_Control 0037 00d1 | | Pop_Control Pop_Count_1 0038 0039 | 9 | Store_Top Access,At_Offset_1 ; Debug Table 0x1.0x10 = 0x38,0x2 0039 00bc | | Action Signal_Activated 003a 00bb | | Action Signal_Completion 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0048 | H | .CONST 0x0048 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0043,0x0214,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0006 ; Debug Table 0x2.0x0 = 0x43,0xffff 0044 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0045 02ff | | Declare_Variable Variant_Record 0046 00d8 | | Load_Top At_Offset_0 0047 1c00 | | Execute_Immediate Run_Utility,0x0 0048 BODY_0040: 0048 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x1 = 0x48,0x1 0049 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 004a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 004b 6813 |h | Jump_Zero 0x5f 004c e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x2 = 0x4c,0x2 004d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x4d,0x401 004e 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 004f 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0050 00d9 | | Load_Top At_Offset_1 0051 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0052 e003 | | Load 0x0,0x3 0053 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 0054 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0055 00d0 | | Action Swap_Control 0056 00d1 | | Pop_Control Pop_Count_1 0057 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x4 = 0x57,0x2 0058 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0059 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x5 = 0x59,0x3 005a 00d9 | | Load_Top At_Offset_1 005b e002 | | Load 0x0,0x2 005c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005d 00d1 | | Pop_Control Pop_Count_1 005e 7804 |x | Jump 0x63 005f e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x6 = 0x5f,0x4 0060 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0061 00d9 | | Load_Top At_Offset_1 0062 016d | m | Execute Variant_Record,Structure_Write 0063 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x7 = 0x63,0x5 0064 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0065 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0066 e5ff | | Load 0x2,-0x1 0067 0275 | u | Execute Discrete,Unary_Minus 0068 0273 | s | Execute Discrete,Plus 0069 00d9 | | Load_Top At_Offset_1 006a 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 006b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x8 = 0x6c,0x6 006d 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 006e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 006f 0d01 | | Execute_Immediate Less,0x1 0070 6805 |h | Jump_Zero 0x76 0071 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x9 = 0x71,0x7 0072 00d9 | | Load_Top At_Offset_1 0073 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0074 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0075 7812 |x | Jump 0x88 0076 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xa = 0x76,0x8 0077 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0078 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0079 e5fe | | Load 0x2,-0x2 007a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 007b e003 | | Load 0x0,0x3 007c 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 007d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007e 027d | } | Execute Discrete,Greater 007f 6808 |h | Jump_Zero 0x88 0080 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0xb = 0x80,0x9 0081 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0082 e003 | | Load 0x0,0x3 0083 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 0084 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0085 00d9 | | Load_Top At_Offset_1 0086 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0087 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0088 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xc = 0x88,0xa 0089 e5fe | | Load 0x2,-0x2 008a 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0093,0x0230,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0014 ; Debug Table 0x3.0x0 = 0x93,0x1 0094 00db | | Load_Top At_Offset_3 0095 0275 | u | Execute Discrete,Unary_Minus 0096 820d | | Call 0x1,0xd 0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a0 | | .CONST 0x00a0 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x009b,0x0234,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0022 ; Debug Table 0x4.0x0 = 0x9b,0xffff 009c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 009d 02ff | | Declare_Variable Variant_Record 009e 00d8 | | Load_Top At_Offset_0 009f 1c00 | | Execute_Immediate Run_Utility,0x0 00a0 BODY_0098: 00a0 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0xa0,0x1 00a1 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 00a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00a3 6813 |h | Jump_Zero 0xb7 00a4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2 = 0xa4,0x2 00a5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x3 = 0xa5,0x401 00a6 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 00a7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 00a8 00d9 | | Load_Top At_Offset_1 00a9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 00aa e003 | | Load 0x0,0x3 00ab 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 00ac 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ad 00d0 | | Action Swap_Control 00ae 00d1 | | Pop_Control Pop_Count_1 00af 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xaf,0x2 00b0 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 00b1 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x5 = 0xb1,0x3 00b2 00d9 | | Load_Top At_Offset_1 00b3 e002 | | Load 0x0,0x2 00b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b5 00d1 | | Pop_Control Pop_Count_1 00b6 7804 |x | Jump 0xbb 00b7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x6 = 0xb7,0x4 00b8 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 00b9 00d9 | | Load_Top At_Offset_1 00ba 016d | m | Execute Variant_Record,Structure_Write 00bb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x7 = 0xbb,0x5 00bc 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00be e5ff | | Load 0x2,-0x1 00bf 0275 | u | Execute Discrete,Unary_Minus 00c0 0273 | s | Execute Discrete,Plus 00c1 00d9 | | Load_Top At_Offset_1 00c2 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0xc4,0x6 00c5 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c7 0d01 | | Execute_Immediate Less,0x1 00c8 6805 |h | Jump_Zero 0xce 00c9 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x9 = 0xc9,0x7 00ca 00d9 | | Load_Top At_Offset_1 00cb 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00cd 7812 |x | Jump 0xe0 00ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xa = 0xce,0x8 00cf 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d1 e5fe | | Load 0x2,-0x2 00d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00d3 e003 | | Load 0x0,0x3 00d4 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 00d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d6 027d | } | Execute Discrete,Greater 00d7 6808 |h | Jump_Zero 0xe0 00d8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xb = 0xd8,0x9 00d9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00da e003 | | Load 0x0,0x3 00db 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 00dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00dd 00d9 | | Load_Top At_Offset_1 00de 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00df 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xc = 0xe0,0xa 00e1 e5fe | | Load 0x2,-0x2 00e2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x00eb,0x0250,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0030 ; Debug Table 0x5.0x0 = 0xeb,0x1 00ec 00db | | Load_Top At_Offset_3 00ed 0275 | u | Execute Discrete,Unary_Minus 00ee 820f | | Call 0x1,0xf 00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f8 | | .CONST 0x00f8 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x00f3,0x0254,0x0001,0x0000,0x0059,0x8a35,0x0000,0x003e ; Debug Table 0x6.0x0 = 0xf3,0xffff 00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f5 02ff | | Declare_Variable Variant_Record 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 BODY_00f0: 00f8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x1 = 0xf8,0x1 00f9 00d9 | | Load_Top At_Offset_1 00fa 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00fb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00fc 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x2 = 0xfc,0x2 00fd 00d9 | | Load_Top At_Offset_1 00fe 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0100 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x100,0x3 0101 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0102 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0103 4801 |H | Short_Literal 0x1 0104 e5fd | | Load 0x2,-0x3 0105 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0106 e003 | | Load 0x0,0x3 0107 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 0108 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0109 0261 | a | Execute Discrete,Not_In_Range 010a 6812 |h | Jump_Zero 0x11d 010b e213 | | Load 0x1,0x13 ; Debug Table 0x6.0x4 = 0x10b,0x4 010c e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x5 = 0x10c,0x401 010d 00d9 | | Load_Top At_Offset_1 010e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x6 = 0x10e,0x801 010f 0227 | ' | Execute Access,All_Reference 0110 0335 | 5 | Declare_Variable Array,Duplicate 0111 00d0 | | Action Swap_Control 0112 00d1 | | Pop_Control Pop_Count_1 0113 00d0 | | Action Swap_Control 0114 00d1 | | Pop_Control Pop_Count_1 0115 e004 | | Load 0x0,0x4 ; Debug Table 0x6.0x7 = 0x115,0x401 0116 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0117 00d1 | | Pop_Control Pop_Count_1 0118 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x8 = 0x118,0x402 0119 e5fd | | Load 0x2,-0x3 011a 380f |8 | Execute Record,Field_Write,Field_Number 0xf 011b 00d1 | | Pop_Control Pop_Count_1 011c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x9 = 0x11c,0x5 011d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xa = 0x11d,0x6 011e 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 011f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0120 4801 |H | Short_Literal 0x1 0121 e5fd | | Load 0x2,-0x3 0122 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0123 e003 | | Load 0x0,0x3 0124 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 0125 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0126 0261 | a | Execute Discrete,Not_In_Range 0127 6812 |h | Jump_Zero 0x13a 0128 e213 | | Load 0x1,0x13 ; Debug Table 0x6.0xb = 0x128,0x7 0129 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0xc = 0x129,0xc01 012a 00d9 | | Load_Top At_Offset_1 012b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xd = 0x12b,0x1001 012c 0227 | ' | Execute Access,All_Reference 012d 0335 | 5 | Declare_Variable Array,Duplicate 012e 00d0 | | Action Swap_Control 012f 00d1 | | Pop_Control Pop_Count_1 0130 00d0 | | Action Swap_Control 0131 00d1 | | Pop_Control Pop_Count_1 0132 e004 | | Load 0x0,0x4 ; Debug Table 0x6.0xe = 0x132,0xc01 0133 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0134 00d1 | | Pop_Control Pop_Count_1 0135 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xf = 0x135,0xc02 0136 e5fd | | Load 0x2,-0x3 0137 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0138 00d1 | | Pop_Control Pop_Count_1 0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x10 = 0x139,0x8 013a e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x11 = 0x13a,0x9 013b 00d9 | | Load_Top At_Offset_1 013c e002 | | Load 0x0,0x2 013d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 013e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013f 0000 | | .XXX[0x1] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014c | L | .CONST 0x014c ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e005 | | Load 0x0,0x5 ; Debug Table 0x7 = .DEBUG 0x0143,0x027a,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0050 ; Debug Table 0x7.0x0 = 0x143,0xffff 0144 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0145 0322 | " | Declare_Variable Record 0146 e003 | | Load 0x0,0x3 ; Debug Table 0x7.0x1 = 0x146,0xfffe 0147 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 0148 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0149 02c7 | | Declare_Variable Any 014a 00d8 | | Load_Top At_Offset_0 014b 1c00 | | Execute_Immediate Run_Utility,0x0 014c BODY_0140: 014c e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x2 = 0x14c,0xfffd ; Debug Table 0x7.0x3 = 0x14c,0xfffc ; Debug Table 0x7.0x4 = 0x14c,0x1 014d 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 014e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 014f 7035 |p5 | Jump_Nonzero 0x185 0150 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x5 = 0x150,0x2 0151 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0152 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0153 00da | | Load_Top At_Offset_2 0154 017d | } | Execute Record,Structure_Write 0155 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x155,0x3 0156 e5ff | | Load 0x2,-0x1 0157 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0158 e003 | | Load 0x0,0x3 0159 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 015a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 015b c403 | | Store 0x2,0x3 015c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x7 = 0x15c,0x4 015d e003 | | Load 0x0,0x3 015e 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 015f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0160 012f | / | Execute Any,Equal 0161 701f |p | Jump_Nonzero 0x181 0162 00d8 | | Load_Top At_Offset_0 0163 e003 | | Load 0x0,0x3 0164 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0166 0f01 | | Execute_Immediate Equal,0x1 0167 7019 |p | Jump_Nonzero 0x181 0168 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x8 = 0x168,0x5 0169 4801 |H | Short_Literal 0x1 016a 00da | | Load_Top At_Offset_2 016b e002 | | Load 0x0,0x2 016c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 016d 00d1 | | Pop_Control Pop_Count_1 016e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x9 = 0x16e,0x6 016f 00d9 | | Load_Top At_Offset_1 0170 e003 | | Load 0x0,0x3 0171 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 0172 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0173 00da | | Load_Top At_Offset_2 0174 e003 | | Load 0x0,0x3 0175 1b67 | g | Execute Package,Field_Read,Field_Number 0x67 0176 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0177 e5ff | | Load 0x2,-0x1 0178 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0179 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 017a 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xa = 0x17a,0x7 017b e5ff | | Load 0x2,-0x1 017c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 017d 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xb = 0x17d,0x8 017e e5ff | | Load 0x2,-0x1 017f 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0180 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0181 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0xc = 0x181,0x9 0182 e5ff | | Load 0x2,-0x1 0183 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0184 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0185 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xd = 0x185,0xa 0186 e5ff | | Load 0x2,-0x1 0187 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0188 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0189 ; -------------------------------------------------------------------------------------- 0189 ; STRING TABLE 0189 ; -------------------------------------------------------------------------------------- 0189 0004 | | .STRTAB 0x0004->0x018b ; "The cursor is not in a window" 018a 001f | | .STREND 0x001f->0x0199 018b 5468 6520 |The | .STRTAB_STRINGS 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug Table 01a0 ; -------------------------------------------------------------------------------------- 01a0 0003 0008 | | .CONST 0x0003,0x0008 01a2 000b 01e2 | | .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0059,0x8a35,0x0000,0x0005 01aa 0018 01f0 | | .DEBUG 0x0018,0x01f0,0x8000,0x0000,0x0059,0x8f25,0x0000,0x000c 01b2 0043 0214 | C | .DEBUG 0x0043,0x0214,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0006 01ba 0093 0230 | 0| .DEBUG 0x0093,0x0230,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0014 01c2 009b 0234 | 4| .DEBUG 0x009b,0x0234,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0022 01ca 00eb 0250 | P| .DEBUG 0x00eb,0x0250,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0030 01d2 00f3 0254 | T| .DEBUG 0x00f3,0x0254,0x0001,0x0000,0x0059,0x8a35,0x0000,0x003e 01da 0143 027a | C z| .DEBUG 0x0143,0x027a,0x0001,0x0000,0x0059,0x8a35,0x0000,0x0050 01e2 ; -------------------------------------------------------------------------------------- 01e2 ; Debug3 Subtable 0x0 01e2 ; -------------------------------------------------------------------------------------- 01e2 0006 0000 | | .DBG3TAB 0x0006,0x0000 01e4 000b ffff | | .CONST 0x000b,0xffff 01e6 000d fffe | | .CONST 0x000d,0xfffe 01e8 000f fffd | | .CONST 0x000f,0xfffd 01ea 0011 fffc | | .CONST 0x0011,0xfffc 01ec 0013 fffb | | .CONST 0x0013,0xfffb 01ee 0015 fffa | | .CONST 0x0015,0xfffa 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug3 Subtable 0x1 01f0 ; -------------------------------------------------------------------------------------- 01f0 000b 0006 | | .DBG3TAB 0x000b,0x0006 01f2 0018 ffff | | .CONST 0x0018,0xffff 01f4 0018 fffe | | .CONST 0x0018,0xfffe 01f6 001a fffd | | .CONST 0x001a,0xfffd 01f8 001c fffc | | .CONST 0x001c,0xfffc 01fa 001c fffb | | .CONST 0x001c,0xfffb 01fc 001c fffa | | .CONST 0x001c,0xfffa 01fe 001e fff9 | | .CONST 0x001e,0xfff9 0200 0020 fff8 | | .CONST 0x0020,0xfff8 0202 0022 fff7 | " | .CONST 0x0022,0xfff7 0204 0024 fff6 | $ | .CONST 0x0024,0xfff6 0206 0026 fff5 | & | .CONST 0x0026,0xfff5 0208 0028 0001 | ( | .CONST 0x0028,0x0001 020a 0029 0401 | ) | .CONST 0x0029,0x0401 020c 002f 0001 | / | .CONST 0x002f,0x0001 020e 0030 0002 | 0 | .CONST 0x0030,0x0002 0210 0032 0801 | 2 | .CONST 0x0032,0x0801 0212 0038 0002 | 8 | .CONST 0x0038,0x0002 0214 ; -------------------------------------------------------------------------------------- 0214 ; Debug3 Subtable 0x2 0214 ; -------------------------------------------------------------------------------------- 0214 0001 000c | | .DBG3TAB 0x0001,0x000c 0216 0043 ffff | C | .CONST 0x0043,0xffff 0218 0048 0001 | H | .CONST 0x0048,0x0001 021a 004c 0002 | L | .CONST 0x004c,0x0002 021c 004d 0401 | M | .CONST 0x004d,0x0401 021e 0057 0002 | W | .CONST 0x0057,0x0002 0220 0059 0003 | Y | .CONST 0x0059,0x0003 0222 005f 0004 | _ | .CONST 0x005f,0x0004 0224 0063 0005 | c | .CONST 0x0063,0x0005 0226 006c 0006 | l | .CONST 0x006c,0x0006 0228 0071 0007 | q | .CONST 0x0071,0x0007 022a 0076 0008 | v | .CONST 0x0076,0x0008 022c 0080 0009 | | .CONST 0x0080,0x0009 022e 0088 000a | | .CONST 0x0088,0x000a 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug3 Subtable 0x3 0230 ; -------------------------------------------------------------------------------------- 0230 0000 0001 | | .DBG3TAB 0x0000,0x0001 0232 0093 0001 | | .CONST 0x0093,0x0001 0234 ; -------------------------------------------------------------------------------------- 0234 ; Debug3 Subtable 0x4 0234 ; -------------------------------------------------------------------------------------- 0234 0001 000c | | .DBG3TAB 0x0001,0x000c 0236 009b ffff | | .CONST 0x009b,0xffff 0238 00a0 0001 | | .CONST 0x00a0,0x0001 023a 00a4 0002 | | .CONST 0x00a4,0x0002 023c 00a5 0401 | | .CONST 0x00a5,0x0401 023e 00af 0002 | | .CONST 0x00af,0x0002 0240 00b1 0003 | | .CONST 0x00b1,0x0003 0242 00b7 0004 | | .CONST 0x00b7,0x0004 0244 00bb 0005 | | .CONST 0x00bb,0x0005 0246 00c4 0006 | | .CONST 0x00c4,0x0006 0248 00c9 0007 | | .CONST 0x00c9,0x0007 024a 00ce 0008 | | .CONST 0x00ce,0x0008 024c 00d8 0009 | | .CONST 0x00d8,0x0009 024e 00e0 000a | | .CONST 0x00e0,0x000a 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug3 Subtable 0x5 0250 ; -------------------------------------------------------------------------------------- 0250 0000 0001 | | .DBG3TAB 0x0000,0x0001 0252 00eb 0001 | | .CONST 0x00eb,0x0001 0254 ; -------------------------------------------------------------------------------------- 0254 ; Debug3 Subtable 0x6 0254 ; -------------------------------------------------------------------------------------- 0254 0001 0011 | | .DBG3TAB 0x0001,0x0011 0256 00f3 ffff | | .CONST 0x00f3,0xffff 0258 00f8 0001 | | .CONST 0x00f8,0x0001 025a 00fc 0002 | | .CONST 0x00fc,0x0002 025c 0100 0003 | | .CONST 0x0100,0x0003 025e 010b 0004 | | .CONST 0x010b,0x0004 0260 010c 0401 | | .CONST 0x010c,0x0401 0262 010e 0801 | | .CONST 0x010e,0x0801 0264 0115 0401 | | .CONST 0x0115,0x0401 0266 0118 0402 | | .CONST 0x0118,0x0402 0268 011c 0005 | | .CONST 0x011c,0x0005 026a 011d 0006 | | .CONST 0x011d,0x0006 026c 0128 0007 | ( | .CONST 0x0128,0x0007 026e 0129 0c01 | ) | .CONST 0x0129,0x0c01 0270 012b 1001 | + | .CONST 0x012b,0x1001 0272 0132 0c01 | 2 | .CONST 0x0132,0x0c01 0274 0135 0c02 | 5 | .CONST 0x0135,0x0c02 0276 0139 0008 | 9 | .CONST 0x0139,0x0008 0278 013a 0009 | : | .CONST 0x013a,0x0009 027a ; -------------------------------------------------------------------------------------- 027a ; Debug3 Subtable 0x7 027a ; -------------------------------------------------------------------------------------- 027a 0004 000a | | .DBG3TAB 0x0004,0x000a 027c 0143 ffff | C | .CONST 0x0143,0xffff 027e 0146 fffe | F | .CONST 0x0146,0xfffe 0280 014c fffd | L | .CONST 0x014c,0xfffd 0282 014c fffc | L | .CONST 0x014c,0xfffc 0284 014c 0001 | L | .CONST 0x014c,0x0001 0286 0150 0002 | P | .CONST 0x0150,0x0002 0288 0155 0003 | U | .CONST 0x0155,0x0003 028a 015c 0004 | \ | .CONST 0x015c,0x0004 028c 0168 0005 | h | .CONST 0x0168,0x0005 028e 016e 0006 | n | .CONST 0x016e,0x0006 0290 017a 0007 | z | .CONST 0x017a,0x0007 0292 017d 0008 | } | .CONST 0x017d,0x0008 0294 0181 0009 | | .CONST 0x0181,0x0009 0296 0185 000a | | .CONST 0x0185,0x000a 0298 0000 0000 | | .BLANK 0000[0x168]