|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_7694d6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0298 | | .CONST 0x0298 ; 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 00a2 | | .CONST 0x00a2 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b e003 | | Load 0x0,0x3
000c 0266 | f | Execute Discrete,Bounds
000d 00e2 | | Load_Encached Integer_Cache
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 4801 |H | Short_Literal 0x1
0010 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0011 00c4 | | Action Make_Default
0012 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0014 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0016 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0018 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0020 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0022 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0024 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0026 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0028 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
002a e004 | | Load 0x0,0x4
002b 00e3 | | Load_Encached Natural_Cache
002c 4801 |H | Short_Literal 0x1
002d e20d | | Load 0x1,0xd
002e 01dc | | Execute Vector,Last
002f e004 | | Load 0x0,0x4
0030 0269 | i | Execute Discrete,Last
0031 026c | l | Execute Discrete,Minimum
0032 e20d | | Load 0x1,0xd
0033 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0034 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0036 4800 |H | Short_Literal 0x0
0037 4801 |H | Short_Literal 0x1
0038 4801 |H | Short_Literal 0x1
0039 4800 |H | Short_Literal 0x0
003a 4801 |H | Short_Literal 0x1
003b 4801 |H | Short_Literal 0x1
003c 031e | | Declare_Type Variant_Record,Defined,Visible
003d 4800 |H | Short_Literal 0x0
003e 00d9 | | Load_Top At_Offset_1
003f 1c08 | | Execute_Immediate Run_Utility,0x8
0040 4800 |H | Short_Literal 0x0
0041 00d9 | | Load_Top At_Offset_1
0042 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0043 00d8 | | Load_Top At_Offset_0
0044 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0045 0335 | 5 | Declare_Variable Array,Duplicate
0046 00cd | | Action Spare6_Action
0047 00d9 | | Load_Top At_Offset_1
0048 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0049 01d9 | | Execute Vector,Reverse_Bounds
004a 0263 | c | Execute Discrete,Above_Bound
004b 7005 |p | Jump_Nonzero 0x51
004c 4800 |H | Short_Literal 0x0
004d 00d9 | | Load_Top At_Offset_1
004e e21d | | Load 0x1,0x1d
004f 01d6 | | Execute Vector,Field_Write
0050 3ffb |? | Loop_Increasing 0x4c
0051 00d9 | | Load_Top At_Offset_1
0052 00d8 | | Load_Top At_Offset_0
0053 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0054 00da | | Load_Top At_Offset_2
0055 01da | | Execute Vector,Bounds
0056 00da | | Load_Top At_Offset_2
0057 01da | | Execute Vector,Bounds
0058 00da | | Load_Top At_Offset_2
0059 027f | | Execute Discrete,Equal
005a 7001 |p | Jump_Nonzero 0x5c
005b 08e0 | | Execute_Immediate Raise,0xe0
005c 00cd | | Action Spare6_Action
005d 027f | | Execute Discrete,Equal
005e 7001 |p | Jump_Nonzero 0x60
005f 08e0 | | Execute_Immediate Raise,0xe0
0060 00d2 | | Pop_Control Pop_Count_2
0061 00d9 | | Load_Top At_Offset_1
0062 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0063 0129 | ) | Execute Any,Make_Visible
0064 c20e | | Store 0x1,0xe
0065 00bf | | Action Accept_Activation
0066 e005 | | Load 0x0,0x5
0067 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0068 e005 | | Load 0x0,0x5
0069 0266 | f | Execute Discrete,Bounds
006a 00db | | Load_Top At_Offset_3
006b 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
006d 4801 |H | Short_Literal 0x1
006e 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
006f 4801 |H | Short_Literal 0x1
0070 e006 | | Load 0x0,0x6
0071 00da | | Load_Top At_Offset_2
0072 035b | [ | Declare_Type Array,Constrained
0073 0337 | 7 | Declare_Variable Array
0074 00d8 | | Load_Top At_Offset_0
0075 0335 | 5 | Declare_Variable Array,Duplicate
0076 00cd | | Action Spare6_Action
0077 00d9 | | Load_Top At_Offset_1
0078 01d9 | | Execute Vector,Reverse_Bounds
0079 0263 | c | Execute Discrete,Above_Bound
007a 7005 |p | Jump_Nonzero 0x80
007b e20e | | Load 0x1,0xe
007c 00d9 | | Load_Top At_Offset_1
007d e21f | | Load 0x1,0x1f
007e 01d6 | | Execute Vector,Field_Write
007f 3ffb |? | Loop_Increasing 0x7b
0080 00d9 | | Load_Top At_Offset_1
0081 01d4 | | Execute Vector,Structure_Write
0082 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0083 00c7 | | Action Elaborate_Subprogram
0084 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0085 00c7 | | Action Elaborate_Subprogram
0086 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0087 00c7 | | Action Elaborate_Subprogram
0088 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0089 00c7 | | Action Elaborate_Subprogram
008a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
008b 00c7 | | Action Elaborate_Subprogram
008c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008d 00c7 | | Action Elaborate_Subprogram
008e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
008f 00c7 | | Action Elaborate_Subprogram
0090 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0091 00c7 | | Action Elaborate_Subprogram
0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0093 00c7 | | Action Elaborate_Subprogram
0094 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0096 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
0098 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0099 00c7 | | Action Elaborate_Subprogram
009a 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
009c 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
009e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a1 00c7 | | Action Elaborate_Subprogram
00a2 BODY_0008:
00a2 00bc | | Action Signal_Activated
00a3 00bb | | Action Signal_Completion
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e21c | | Load 0x1,0x1c
00ac 00ca | | Action Exit_Nullary_Function
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
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 e21e | | Load 0x1,0x1e
00b4 00d8 | | Load_Top At_Offset_0
00b5 0335 | 5 | Declare_Variable Array,Duplicate
00b6 00cd | | Action Spare6_Action
00b7 00d9 | | Load_Top At_Offset_1
00b8 01d9 | | Execute Vector,Reverse_Bounds
00b9 0263 | c | Execute Discrete,Above_Bound
00ba 7005 |p | Jump_Nonzero 0xc0
00bb e20e | | Load 0x1,0xe
00bc 00d9 | | Load_Top At_Offset_1
00bd e403 | | Load 0x2,0x3
00be 01d6 | | Execute Vector,Field_Write
00bf 3ffb |? | Loop_Increasing 0xbb
00c0 00cd | | Action Spare6_Action
00c1 e21e | | Load 0x1,0x1e
00c2 01d4 | | Execute Vector,Structure_Write
00c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 00db | | Load_Top At_Offset_3
00cc 01db | | Execute Vector,Length
00cd e21b | | Load 0x1,0x1b
00ce 1c08 | | Execute_Immediate Run_Utility,0x8
00cf 00db | | Load_Top At_Offset_3
00d0 00d9 | | Load_Top At_Offset_1
00d1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00d2 e5fe | | Load 0x2,-0x2
00d3 00d9 | | Load_Top At_Offset_1
00d4 00d8 | | Load_Top At_Offset_0
00d5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00d6 00da | | Load_Top At_Offset_2
00d7 01da | | Execute Vector,Bounds
00d8 00da | | Load_Top At_Offset_2
00d9 01da | | Execute Vector,Bounds
00da 00da | | Load_Top At_Offset_2
00db 027f | | Execute Discrete,Equal
00dc 7001 |p | Jump_Nonzero 0xde
00dd 08e0 | | Execute_Immediate Raise,0xe0
00de 00cd | | Action Spare6_Action
00df 027f | | Execute Discrete,Equal
00e0 7001 |p | Jump_Nonzero 0xe2
00e1 08e0 | | Execute_Immediate Raise,0xe0
00e2 00d2 | | Pop_Control Pop_Count_2
00e3 00d9 | | Load_Top At_Offset_1
00e4 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec e21e | | Load 0x1,0x1e
00ed 01d5 | | Execute Vector,Field_Reference
00ee 02fd | | Declare_Variable Variant_Record,Duplicate
00ef 00cd | | Action Spare6_Action
00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc 00db | | Load_Top At_Offset_3
00fd e21e | | Load 0x1,0x1e
00fe 01d5 | | Execute Vector,Field_Reference
00ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0100 01d7 | | Execute Vector,Field_Read
0101 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00cf | | Action Mark_Auxiliary
010c e21e | | Load 0x1,0x1e
010d 01d9 | | Execute Vector,Reverse_Bounds
010e 0263 | c | Execute Discrete,Above_Bound
010f 7013 |p | Jump_Nonzero 0x123
0110 00d8 | | Load_Top At_Offset_0
0111 e21e | | Load 0x1,0x1e
0112 01d5 | | Execute Vector,Field_Reference
0113 e20e | | Load 0x1,0xe
0114 016f | o | Execute Variant_Record,Equal
0115 680b |h | Jump_Zero 0x121
0116 e5ff | | Load 0x2,-0x1
0117 00d9 | | Load_Top At_Offset_1
0118 e21e | | Load 0x1,0x1e
0119 01d6 | | Execute Vector,Field_Write
011a 00d8 | | Load_Top At_Offset_0
011b e21c | | Load 0x1,0x1c
011c 027d | } | Execute Discrete,Greater
011d 6802 |h | Jump_Zero 0x120
011e 00d8 | | Load_Top At_Offset_0
011f a21c | | Store_Unchecked 0x1,0x1c
0120 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0121 00c8 | | Action Pop_Auxiliary_Range
0122 3fed |? | Loop_Increasing 0x110
0123 00ce | | Action Pop_Auxiliary
0124 e007 | | Load 0x0,0x7
0125 0257 | W | Execute Discrete,Raise
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e20e | | Load 0x1,0xe
012c 00db | | Load_Top At_Offset_3
012d e21e | | Load 0x1,0x1e
012e 01d6 | | Execute Vector,Field_Write
012f e21c | | Load 0x1,0x1c
0130 00db | | Load_Top At_Offset_3
0131 027f | | Execute Discrete,Equal
0132 6815 |h | Jump_Zero 0x148
0133 e21c | | Load 0x1,0x1c
0134 0aff | | Execute_Immediate Plus,-0x1
0135 c21c | | Store 0x1,0x1c
0136 00cf | | Action Mark_Auxiliary
0137 4801 |H | Short_Literal 0x1
0138 e21c | | Load 0x1,0x1c
0139 0264 | d | Execute Discrete,Below_Bound
013a 700c |p | Jump_Nonzero 0x147
013b 00d8 | | Load_Top At_Offset_0
013c e21e | | Load 0x1,0x1e
013d 01d5 | | Execute Vector,Field_Reference
013e e20e | | Load 0x1,0xe
013f 016e | n | Execute Variant_Record,Not_Equal
0140 6802 |h | Jump_Zero 0x143
0141 00d2 | | Pop_Control Pop_Count_2
0142 7804 |x | Jump 0x147
0143 00d8 | | Load_Top At_Offset_0
0144 a21c | | Store_Unchecked 0x1,0x1c
0145 00c8 | | Action Pop_Auxiliary_Range
0146 37f4 |7 | Loop_Decreasing 0x13b
0147 00ce | | Action Pop_Auxiliary
0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0149 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
0154 00db | | Load_Top At_Offset_3
0155 e21e | | Load 0x1,0x1e
0156 01d6 | | Execute Vector,Field_Write
0157 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
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 e5fd | | Load 0x2,-0x3
015c e5fe | | Load 0x2,-0x2
015d e5ff | | Load 0x2,-0x1
015e e21e | | Load 0x1,0x1e
015f 01d5 | | Execute Vector,Field_Reference
0160 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0161 01d6 | | Execute Vector,Field_Write
0162 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0163 0000 0000 | | .BLANK 0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
016d 00db | | Load_Top At_Offset_3
016e e21e | | Load 0x1,0x1e
016f 01d5 | | Execute Vector,Field_Reference
0170 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0171 821f | | Call 0x1,0x1f
0172 6808 |h | Jump_Zero 0x17b
0173 00db | | Load_Top At_Offset_3
0174 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0175 00db | | Load_Top At_Offset_3
0176 e21e | | Load 0x1,0x1e
0177 01d5 | | Execute Vector,Field_Reference
0178 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0179 8220 | | Call 0x1,0x20
017a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017b 4800 |H | Short_Literal 0x0
017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
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 00da | | Load_Top At_Offset_2
0184 6806 |h | Jump_Zero 0x18b
0185 00db | | Load_Top At_Offset_3
0186 00db | | Load_Top At_Offset_3
0187 e21e | | Load 0x1,0x1e
0188 01d5 | | Execute Vector,Field_Reference
0189 8222 | " | Call 0x1,0x22
018a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018b 00db | | Load_Top At_Offset_3
018c 0092 027c | || Action Push_String_Extended,0x27c ; "No name"
018e 8008 | | Call 0x0,0x8
018f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 0092 027d | }| Action Push_String_Extended,0x27d ; "Working_Memory'("
0196 8009 | | Call 0x0,0x9
0197 00da | | Load_Top At_Offset_2
0198 800a | | Call 0x0,0xa
0199 00cf | | Action Mark_Auxiliary
019a e21e | | Load 0x1,0x1e
019b 01d9 | | Execute Vector,Reverse_Bounds
019c 0263 | c | Execute Discrete,Above_Bound
019d 7007 |p | Jump_Nonzero 0x1a5
019e e5ff | | Load 0x2,-0x1
019f 00d9 | | Load_Top At_Offset_1
01a0 e21e | | Load 0x1,0x1e
01a1 01d5 | | Execute Vector,Field_Reference
01a2 8222 | " | Call 0x1,0x22
01a3 00c8 | | Action Pop_Auxiliary_Range
01a4 3ff9 |? | Loop_Increasing 0x19e
01a5 00ce | | Action Pop_Auxiliary
01a6 00da | | Load_Top At_Offset_2
01a7 800b | | Call 0x0,0xb
01a8 00da | | Load_Top At_Offset_2
01a9 0092 027e | ~| Action Push_String_Extended,0x27e ; ")"
01ab 8009 | | Call 0x0,0x9
01ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00d1 | | Pop_Control Pop_Count_1
01b4 00da | | Load_Top At_Offset_2
01b5 01d8 | | Execute Vector,Element_Type
01b6 02ff | | Declare_Variable Variant_Record
01b7 00d8 | | Load_Top At_Offset_0
01b8 1c00 | | Execute_Immediate Run_Utility,0x0
01b9 00db | | Load_Top At_Offset_3
01ba 01dc | | Execute Vector,Last
01bb e5ff | | Load 0x2,-0x1
01bc 01dd | | Execute Vector,First
01bd 0263 | c | Execute Discrete,Above_Bound
01be 7006 |p | Jump_Nonzero 0x1c5
01bf 00da | | Load_Top At_Offset_2
01c0 00d9 | | Load_Top At_Offset_1
01c1 e5ff | | Load 0x2,-0x1
01c2 01d6 | | Execute Vector,Field_Write
01c3 0a01 | | Execute_Immediate Plus,0x1
01c4 7ff8 | | Jump 0x1bd
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cc | | .CONST 0x01cc ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb 00e1 | | Load_Encached Boolean_Cache
01cc BODY_01c8:
01cc 00db | | Load_Top At_Offset_3
01cd 6804 |h | Jump_Zero 0x1d2
01ce 00db | | Load_Top At_Offset_3
01cf e5fe | | Load 0x2,-0x2
01d0 027f | | Execute Discrete,Equal
01d1 7801 |x | Jump 0x1d3
01d2 4800 |H | Short_Literal 0x0
01d3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01d4 00d8 | | Load_Top At_Offset_0
01d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00cf | | Action Mark_Auxiliary
01dc 00db | | Load_Top At_Offset_3
01dd 01d9 | | Execute Vector,Reverse_Bounds
01de 0263 | c | Execute Discrete,Above_Bound
01df 700c |p | Jump_Nonzero 0x1ec
01e0 00d8 | | Load_Top At_Offset_0
01e1 e5fe | | Load 0x2,-0x2
01e2 01d7 | | Execute Vector,Field_Read
01e3 00d9 | | Load_Top At_Offset_1
01e4 e5ff | | Load 0x2,-0x1
01e5 01d7 | | Execute Vector,Field_Read
01e6 800c | | Call 0x0,0xc
01e7 7002 |p | Jump_Nonzero 0x1ea
01e8 4800 |H | Short_Literal 0x0
01e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ea 00c8 | | Action Pop_Auxiliary_Range
01eb 3ff4 |? | Loop_Increasing 0x1e0
01ec 00ce | | Action Pop_Auxiliary
01ed 4801 |H | Short_Literal 0x1
01ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 00e1 | | Load_Encached Boolean_Cache
01f4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01f5 BODY_01f0:
01f5 00cf | | Action Mark_Auxiliary
01f6 e5ff | | Load 0x2,-0x1
01f7 01d9 | | Execute Vector,Reverse_Bounds
01f8 0263 | c | Execute Discrete,Above_Bound
01f9 7024 |p$ | Jump_Nonzero 0x21e
01fa 00db | | Load_Top At_Offset_3
01fb 700c |p | Jump_Nonzero 0x208
01fc e5fe | | Load 0x2,-0x2
01fd 0092 027f | | Action Push_String_Extended,0x27f ; ", "
01ff 8008 | | Call 0x0,0x8
0200 00d8 | | Load_Top At_Offset_0
0201 4801 |H | Short_Literal 0x1
0202 0279 | y | Execute Discrete,And
0203 6806 |h | Jump_Zero 0x20a
0204 4801 |H | Short_Literal 0x1
0205 e5fe | | Load 0x2,-0x2
0206 800d | | Call 0x0,0xd
0207 7802 |x | Jump 0x20a
0208 4800 |H | Short_Literal 0x0
0209 a402 | | Store_Unchecked 0x2,0x2
020a e5fe | | Load 0x2,-0x2
020b 0092 0280 | | Action Push_String_Extended,0x280 ; "Slot"
020d 00da | | Load_Top At_Offset_2
020e 00e0 | | Load_Encached Standard_Cache
020f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0210 01cc | | Execute Vector,Catenate
0211 0092 0281 | | Action Push_String_Extended,0x281 ; " =>"
0213 01cc | | Execute Vector,Catenate
0214 8008 | | Call 0x0,0x8
0215 e5fe | | Load 0x2,-0x2
0216 00d9 | | Load_Top At_Offset_1
0217 e5ff | | Load 0x2,-0x1
0218 01d7 | | Execute Vector,Field_Read
0219 00e0 | | Load_Encached Standard_Cache
021a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021b 8008 | | Call 0x0,0x8
021c 00c8 | | Action Pop_Auxiliary_Range
021d 3fdc |? | Loop_Increasing 0x1fa
021e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021f 0000 | | .XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 e20e | | Load 0x1,0xe
0225 016e | n | Execute Variant_Record,Not_Equal
0226 6814 |h | Jump_Zero 0x23b
0227 00db | | Load_Top At_Offset_3
0228 00db | | Load_Top At_Offset_3
0229 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022a 800e | | Call 0x0,0xe
022b 0092 0282 | | Action Push_String_Extended,0x282 ; "'("
022d 01cc | | Execute Vector,Catenate
022e 8009 | | Call 0x0,0x9
022f 00db | | Load_Top At_Offset_3
0230 800a | | Call 0x0,0xa
0231 00db | | Load_Top At_Offset_3
0232 00db | | Load_Top At_Offset_3
0233 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0234 8221 | ! | Call 0x1,0x21
0235 00db | | Load_Top At_Offset_3
0236 800b | | Call 0x0,0xb
0237 00db | | Load_Top At_Offset_3
0238 0092 027e | ~| Action Push_String_Extended,0x27e ; ")"
023a 8009 | | Call 0x0,0x9
023b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023c 0000 0000 | | .BLANK 0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4609 |F | Jump_Case 0xa
0244 7809 |x | Jump 0x24e ; case 0x0
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0246 7813 |x | Jump 0x25a ; case 0x2
0247 7816 |x | Jump 0x25e ; case 0x3
0248 7832 |x2 | Jump 0x27b ; case 0x4
0249 7831 |x1 | Jump 0x27b ; case 0x5
024a 7830 |x0 | Jump 0x27b ; case 0x6
024b 7818 |x | Jump 0x264 ; case 0x7
024c 7820 |x | Jump 0x26d ; case 0x8
024d 7829 |x) | Jump 0x277 ; case 0x9
024e 00da | | Load_Top At_Offset_2
024f 016c | l | Execute Variant_Record,Is_Constrained
0250 7008 |p | Jump_Nonzero 0x259
0251 00cf | | Action Mark_Auxiliary
0252 4800 |H | Short_Literal 0x0
0253 e5ff | | Load 0x2,-0x1
0254 1c08 | | Execute_Immediate Run_Utility,0x8
0255 00d8 | | Load_Top At_Offset_0
0256 1c00 | | Execute_Immediate Run_Utility,0x0
0257 c5ff | | Store 0x2,-0x1
0258 00ce | | Action Pop_Auxiliary
0259 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
025a 4801 |H | Short_Literal 0x1
025b 4803 |H | Short_Literal 0x3
025c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
025d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
025e e5fd | | Load 0x2,-0x3
025f 00db | | Load_Top At_Offset_3
0260 1c07 | | Execute_Immediate Run_Utility,0x7
0261 e5fe | | Load 0x2,-0x2
0262 0306 | | Complete_Type Variant_Record,By_Renaming
0263 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0264 00db | | Load_Top At_Offset_3
0265 4801 |H | Short_Literal 0x1
0266 e5fe | | Load 0x2,-0x2
0267 e20d | | Load 0x1,0xd
0268 035b | [ | Declare_Type Array,Constrained
0269 4801 |H | Short_Literal 0x1
026a e5ff | | Load 0x2,-0x1
026b 031b | | Declare_Type Variant_Record,Constrained
026c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026d 00db | | Load_Top At_Offset_3
026e 00db | | Load_Top At_Offset_3
026f 02fc | | Declare_Variable Variant_Record,With_Constraint
0270 4801 |H | Short_Literal 0x1
0271 e5fe | | Load 0x2,-0x2
0272 e20d | | Load 0x1,0xd
0273 0334 | 4 | Declare_Variable Array,With_Constraint
0274 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0275 016a | j | QQ_execute Variant_Record,XXX
0276 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0277 4800 |H | Short_Literal 0x0
0278 00db | | Load_Top At_Offset_3
0279 1c07 | | Execute_Immediate Run_Utility,0x7
027a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
027b 0869 | i | Execute_Immediate Raise,0x69
027c ; --------------------------------------------------------------------------------------
027c ; STRING TABLE
027c ; --------------------------------------------------------------------------------------
027c 0010 | | .STRTAB 0x0010->0x0284 ; "No name"
027d 0015 | | .STRTAB 0x0015->0x0287 ; "Working_Memory'("
027e 0023 | # | .STRTAB 0x0023->0x028f ; ")"
027f 0022 | " | .STRTAB 0x0022->0x0290 ; ", "
0280 0022 | " | .STRTAB 0x0022->0x0291 ; "Slot"
0281 0024 | $ | .STRTAB 0x0024->0x0293 ; " =>"
0282 0025 | % | .STRTAB 0x0025->0x0294 ; "'("
0283 0025 | % | .STREND 0x0025->0x0295
0284 4e6f 206e |No n| .STRTAB_STRINGS
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0004 | | .DEBUG4 0x0004,0x0004,0x77d5,0x0000,0x0001,0x0014
029e 000b 02ee | | .DBG4T 0x000b,0x02ee,0x0000,0x8000
02a2 0066 0310 | f | .DBG4T 0x0066,0x0310,0x0000,0x8000
02a6 00ab 0338 | 8| .DBG4T 0x00ab,0x0338,0x0002,0x0000
02aa 00b3 033b | ;| .DBG4T 0x00b3,0x033b,0x0001,0x0000
02ae 00cb 033e | >| .DBG4T 0x00cb,0x033e,0x0002,0x0000
02b2 00eb 0341 | A| .DBG4T 0x00eb,0x0341,0x0002,0x0000
02b6 00fb 0344 | D| .DBG4T 0x00fb,0x0344,0x0002,0x0000
02ba 010b 0347 | G| .DBG4T 0x010b,0x0347,0x0001,0x0000
02be 012b 0350 | + P| .DBG4T 0x012b,0x0350,0x0001,0x0000
02c2 0153 0358 | S X| .DBG4T 0x0153,0x0358,0x0001,0x0000
02c6 015b 035b | [ [| .DBG4T 0x015b,0x035b,0x0001,0x0000
02ca 016b 035e | k ^| .DBG4T 0x016b,0x035e,0x0002,0x0000
02ce 0183 0361 | a| .DBG4T 0x0183,0x0361,0x0001,0x0000
02d2 0193 0366 | f| .DBG4T 0x0193,0x0366,0x0001,0x0000
02d6 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x0005,0x0000
02da 01cb 036e | n| .DBG4T 0x01cb,0x036e,0x0002,0x0000
02de 01db 0373 | s| .DBG4T 0x01db,0x0373,0x0002,0x0000
02e2 01f3 0379 | y| .DBG4T 0x01f3,0x0379,0x0001,0x0000
02e6 0223 0384 | # | .DBG4T 0x0223,0x0384,0x0001,0x0000
02ea 0243 0000 | C | .DBG4T 0x0243,0x0000,0x0005,0x0000
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug chain
02ee ; --------------------------------------------------------------------------------------
02ee 0010 0000 | | .DBGLEN 0x0010,0x0000
02f0 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x003d
0300 0002 0003 | | .XXX[0x10]
0302 0004 0005 | |
0304 0006 0007 | |
0306 0008 0009 | |
0308 000a 000b | |
030a 000c 000d | |
030c 000e 000f | |
030e 0010 0011 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug chain
0310 ; --------------------------------------------------------------------------------------
0310 0013 0000 | | .DBGLEN 0x0013,0x0000
0312 0066 0068 | f h| .DBGLNO 0x0066,0x0068,0x006f,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0
0325 0001 0002 | | .XXX[0x13]
0327 0003 0006 | |
0329 0007 0008 | |
032b 0009 000a | |
032d 000b 000c | |
032f 000d 000e | |
0331 000f 0010 | |
0333 0011 0012 | |
0335 0013 0014 | |
0337 0015 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0000 0001 | | .DBGLEN 0x0000,0x0001
033a 00ab | | .DBGLNO 0x00ab
033b ; --------------------------------------------------------------------------------------
033b ; Debug chain
033b ; --------------------------------------------------------------------------------------
033b 0000 0001 | | .DBGLEN 0x0000,0x0001
033d 00b3 | | .DBGLNO 0x00b3
033e ; --------------------------------------------------------------------------------------
033e ; Debug chain
033e ; --------------------------------------------------------------------------------------
033e 0000 0001 | | .DBGLEN 0x0000,0x0001
0340 00cb | | .DBGLNO 0x00cb
0341 ; --------------------------------------------------------------------------------------
0341 ; Debug chain
0341 ; --------------------------------------------------------------------------------------
0341 0000 0001 | | .DBGLEN 0x0000,0x0001
0343 00eb | | .DBGLNO 0x00eb
0344 ; --------------------------------------------------------------------------------------
0344 ; Debug chain
0344 ; --------------------------------------------------------------------------------------
0344 0000 0001 | | .DBGLEN 0x0000,0x0001
0346 00fb | | .DBGLNO 0x00fb
0347 ; --------------------------------------------------------------------------------------
0347 ; Debug chain
0347 ; --------------------------------------------------------------------------------------
0347 0000 0007 | | .DBGLEN 0x0000,0x0007
0349 010c 0110 | | .DBGLNO 0x010c,0x0110,0x0116,0x011a,0x011e,0x0120,0x0124
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug chain
0350 ; --------------------------------------------------------------------------------------
0350 0000 0006 | | .DBGLEN 0x0000,0x0006
0352 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x0133,0x0137,0x013b,0x0143
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug chain
0358 ; --------------------------------------------------------------------------------------
0358 0000 0001 | | .DBGLEN 0x0000,0x0001
035a 0153 | S | .DBGLNO 0x0153
035b ; --------------------------------------------------------------------------------------
035b ; Debug chain
035b ; --------------------------------------------------------------------------------------
035b 0000 0001 | | .DBGLEN 0x0000,0x0001
035d 015b | [ | .DBGLNO 0x015b
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 0000 0001 | | .DBGLEN 0x0000,0x0001
0360 016b | k | .DBGLNO 0x016b
0361 ; --------------------------------------------------------------------------------------
0361 ; Debug chain
0361 ; --------------------------------------------------------------------------------------
0361 0000 0003 | | .DBGLEN 0x0000,0x0003
0363 0183 0185 | | .DBGLNO 0x0183,0x0185,0x018b
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0000 0006 | | .DBGLEN 0x0000,0x0006
0368 0193 0197 | | .DBGLNO 0x0193,0x0197,0x019a,0x019e,0x01a6,0x01a8
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0001 0002 | | .DBGLEN 0x0001,0x0002
0370 01cb 01cc | | .DBGLNO 0x01cb,0x01cc,0x01d4
0373 ; --------------------------------------------------------------------------------------
0373 ; Debug chain
0373 ; --------------------------------------------------------------------------------------
0373 0000 0004 | | .DBGLEN 0x0000,0x0004
0375 01dc 01e0 | | .DBGLNO 0x01dc,0x01e0,0x01e8,0x01ed
0379 ; --------------------------------------------------------------------------------------
0379 ; Debug chain
0379 ; --------------------------------------------------------------------------------------
0379 0001 0008 | | .DBGLEN 0x0001,0x0008
037b 01f3 01f6 | | .DBGLNO 0x01f3,0x01f6,0x01fa,0x01fc,0x0200,0x0204,0x0208,0x020a,0x0215
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug chain
0384 ; --------------------------------------------------------------------------------------
0384 0000 0006 | | .DBGLEN 0x0000,0x0006
0386 0223 0227 | # '| .DBGLNO 0x0223,0x0227,0x022f,0x0231,0x0235,0x0237
038c 0000 0000 | | .BLANK 0000[0x74]