|
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_b8bce8
└─⟦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 00a5 | | .CONST 0x00a5 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c e003 | | Load 0x0,0x3
000d 0266 | f | Execute Discrete,Bounds
000e 00e2 | | Load_Encached Integer_Cache
000f 02a0 | | Declare_Subprogram Null_Subprogram
0010 4801 |H | Short_Literal 0x1
0011 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0012 00c4 | | Action Make_Default
0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001d 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0023 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0025 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0027 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0029 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
002b e004 | | Load 0x0,0x4
002c 00e3 | | Load_Encached Natural_Cache
002d 4801 |H | Short_Literal 0x1
002e e20d | | Load 0x1,0xd
002f 01dc | | Execute Vector,Last
0030 e004 | | Load 0x0,0x4
0031 0269 | i | Execute Discrete,Last
0032 026c | l | Execute Discrete,Minimum
0033 e20d | | Load 0x1,0xd
0034 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0035 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0037 4800 |H | Short_Literal 0x0
0038 4801 |H | Short_Literal 0x1
0039 4801 |H | Short_Literal 0x1
003a 4800 |H | Short_Literal 0x0
003b 4801 |H | Short_Literal 0x1
003c 4801 |H | Short_Literal 0x1
003d 031e | | Declare_Type Variant_Record,Defined,Visible
003e 4800 |H | Short_Literal 0x0
003f 00d9 | | Load_Top At_Offset_1
0040 1c08 | | Execute_Immediate Run_Utility,0x8
0041 4800 |H | Short_Literal 0x0
0042 00d9 | | Load_Top At_Offset_1
0043 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0044 00d8 | | Load_Top At_Offset_0
0045 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0046 0335 | 5 | Declare_Variable Array,Duplicate
0047 00cd | | Action Spare6_Action
0048 00d9 | | Load_Top At_Offset_1
0049 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
004a 01d9 | | Execute Vector,Reverse_Bounds
004b 0263 | c | Execute Discrete,Above_Bound
004c 7005 |p | Jump_Nonzero 0x52
004d 4800 |H | Short_Literal 0x0
004e 00d9 | | Load_Top At_Offset_1
004f e21d | | Load 0x1,0x1d
0050 01d6 | | Execute Vector,Field_Write
0051 3ffb |? | Loop_Increasing 0x4d
0052 00d9 | | Load_Top At_Offset_1
0053 00d8 | | Load_Top At_Offset_0
0054 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0055 00da | | Load_Top At_Offset_2
0056 01da | | Execute Vector,Bounds
0057 00da | | Load_Top At_Offset_2
0058 01da | | Execute Vector,Bounds
0059 00da | | Load_Top At_Offset_2
005a 027f | | Execute Discrete,Equal
005b 7001 |p | Jump_Nonzero 0x5d
005c 08e0 | | Execute_Immediate Raise,0xe0
005d 00cd | | Action Spare6_Action
005e 027f | | Execute Discrete,Equal
005f 7001 |p | Jump_Nonzero 0x61
0060 08e0 | | Execute_Immediate Raise,0xe0
0061 00d2 | | Pop_Control Pop_Count_2
0062 00d9 | | Load_Top At_Offset_1
0063 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0064 0129 | ) | Execute Any,Make_Visible
0065 c20e | | Store 0x1,0xe
0066 00bf | | Action Accept_Activation
0067 e005 | | Load 0x0,0x5
0068 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0069 e005 | | Load 0x0,0x5
006a 0266 | f | Execute Discrete,Bounds
006b 00db | | Load_Top At_Offset_3
006c 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
006e 4801 |H | Short_Literal 0x1
006f 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0070 4801 |H | Short_Literal 0x1
0071 e006 | | Load 0x0,0x6
0072 00da | | Load_Top At_Offset_2
0073 035b | [ | Declare_Type Array,Constrained
0074 0337 | 7 | Declare_Variable Array
0075 00d8 | | Load_Top At_Offset_0
0076 0335 | 5 | Declare_Variable Array,Duplicate
0077 00cd | | Action Spare6_Action
0078 00d9 | | Load_Top At_Offset_1
0079 01d9 | | Execute Vector,Reverse_Bounds
007a 0263 | c | Execute Discrete,Above_Bound
007b 7005 |p | Jump_Nonzero 0x81
007c e20e | | Load 0x1,0xe
007d 00d9 | | Load_Top At_Offset_1
007e e21f | | Load 0x1,0x1f
007f 01d6 | | Execute Vector,Field_Write
0080 3ffb |? | Loop_Increasing 0x7c
0081 00d9 | | Load_Top At_Offset_1
0082 01d4 | | Execute Vector,Structure_Write
0083 0007 | | Action Break_Optional
0084 0007 | | Action Break_Optional
0085 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0086 00c7 | | Action Elaborate_Subprogram
0087 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0088 00c7 | | Action Elaborate_Subprogram
0089 1d10 | | Execute_Immediate Reference_Lex_1,0x10
008a 00c7 | | Action Elaborate_Subprogram
008b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
008c 00c7 | | Action Elaborate_Subprogram
008d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
008e 00c7 | | Action Elaborate_Subprogram
008f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0090 00c7 | | Action Elaborate_Subprogram
0091 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0092 00c7 | | Action Elaborate_Subprogram
0093 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0094 00c7 | | Action Elaborate_Subprogram
0095 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0096 00c7 | | Action Elaborate_Subprogram
0097 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0099 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
009b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
009c 00c7 | | Action Elaborate_Subprogram
009d 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
009f 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
00a1 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a4 00c7 | | Action Elaborate_Subprogram
00a5 BODY_0008:
00a5 00bc | | Action Signal_Activated
00a6 00bb | | Action Signal_Completion
00a7 0000 | | .XXX[0x1]
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,0x902b,0x0000,0x0001,0x0014
029e 000b 02ee | | .DBG4T 0x000b,0x02ee,0x0000,0x0000
02a2 0067 0301 | g | .DBG4T 0x0067,0x0301,0x0000,0x0000
02a6 00ab 0318 | | .DBG4T 0x00ab,0x0318,0x0002,0x0000
02aa 00b3 031b | | .DBG4T 0x00b3,0x031b,0x0001,0x0000
02ae 00cb 031e | | .DBG4T 0x00cb,0x031e,0x0002,0x0000
02b2 00eb 0321 | !| .DBG4T 0x00eb,0x0321,0x0002,0x0000
02b6 00fb 0324 | $| .DBG4T 0x00fb,0x0324,0x0002,0x0000
02ba 010b 0327 | '| .DBG4T 0x010b,0x0327,0x0001,0x0000
02be 012b 0330 | + 0| .DBG4T 0x012b,0x0330,0x0001,0x0000
02c2 0153 0338 | S 8| .DBG4T 0x0153,0x0338,0x0001,0x0000
02c6 015b 033b | [ ;| .DBG4T 0x015b,0x033b,0x0001,0x0000
02ca 016b 033e | k >| .DBG4T 0x016b,0x033e,0x0002,0x0000
02ce 0183 0341 | A| .DBG4T 0x0183,0x0341,0x0001,0x0000
02d2 0193 0346 | F| .DBG4T 0x0193,0x0346,0x0001,0x0000
02d6 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x0005,0x0000
02da 01cb 034e | N| .DBG4T 0x01cb,0x034e,0x0002,0x0000
02de 01db 0353 | S| .DBG4T 0x01db,0x0353,0x0002,0x0000
02e2 01f3 0359 | Y| .DBG4T 0x01f3,0x0359,0x0001,0x0000
02e6 0223 0364 | # d| .DBG4T 0x0223,0x0364,0x0001,0x0000
02ea 0243 0000 | C | .DBG4T 0x0243,0x0000,0x0005,0x0000
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug chain
02ee ; --------------------------------------------------------------------------------------
02ee 0011 0000 | | .DBGLEN 0x0011,0x0000
02f0 000b 000c | | .DBGLNO 0x000b,0x000c,0x0012,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x003e
0301 ; --------------------------------------------------------------------------------------
0301 ; Debug chain
0301 ; --------------------------------------------------------------------------------------
0301 0015 0000 | | .DBGLEN 0x0015,0x0000
0303 0067 0069 | g i| .DBGLNO 0x0067,0x0069,0x0070,0x0083,0x0084,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug chain
0318 ; --------------------------------------------------------------------------------------
0318 0000 0001 | | .DBGLEN 0x0000,0x0001
031a 00ab | | .DBGLNO 0x00ab
031b ; --------------------------------------------------------------------------------------
031b ; Debug chain
031b ; --------------------------------------------------------------------------------------
031b 0000 0001 | | .DBGLEN 0x0000,0x0001
031d 00b3 | | .DBGLNO 0x00b3
031e ; --------------------------------------------------------------------------------------
031e ; Debug chain
031e ; --------------------------------------------------------------------------------------
031e 0000 0001 | | .DBGLEN 0x0000,0x0001
0320 00cb | | .DBGLNO 0x00cb
0321 ; --------------------------------------------------------------------------------------
0321 ; Debug chain
0321 ; --------------------------------------------------------------------------------------
0321 0000 0001 | | .DBGLEN 0x0000,0x0001
0323 00eb | | .DBGLNO 0x00eb
0324 ; --------------------------------------------------------------------------------------
0324 ; Debug chain
0324 ; --------------------------------------------------------------------------------------
0324 0000 0001 | | .DBGLEN 0x0000,0x0001
0326 00fb | | .DBGLNO 0x00fb
0327 ; --------------------------------------------------------------------------------------
0327 ; Debug chain
0327 ; --------------------------------------------------------------------------------------
0327 0000 0007 | | .DBGLEN 0x0000,0x0007
0329 010c 0110 | | .DBGLNO 0x010c,0x0110,0x0116,0x011a,0x011e,0x0120,0x0124
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug chain
0330 ; --------------------------------------------------------------------------------------
0330 0000 0006 | | .DBGLEN 0x0000,0x0006
0332 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x0133,0x0137,0x013b,0x0143
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0000 0001 | | .DBGLEN 0x0000,0x0001
033a 0153 | S | .DBGLNO 0x0153
033b ; --------------------------------------------------------------------------------------
033b ; Debug chain
033b ; --------------------------------------------------------------------------------------
033b 0000 0001 | | .DBGLEN 0x0000,0x0001
033d 015b | [ | .DBGLNO 0x015b
033e ; --------------------------------------------------------------------------------------
033e ; Debug chain
033e ; --------------------------------------------------------------------------------------
033e 0000 0001 | | .DBGLEN 0x0000,0x0001
0340 016b | k | .DBGLNO 0x016b
0341 ; --------------------------------------------------------------------------------------
0341 ; Debug chain
0341 ; --------------------------------------------------------------------------------------
0341 0000 0003 | | .DBGLEN 0x0000,0x0003
0343 0183 0185 | | .DBGLNO 0x0183,0x0185,0x018b
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug chain
0346 ; --------------------------------------------------------------------------------------
0346 0000 0006 | | .DBGLEN 0x0000,0x0006
0348 0193 0197 | | .DBGLNO 0x0193,0x0197,0x019a,0x019e,0x01a6,0x01a8
034e ; --------------------------------------------------------------------------------------
034e ; Debug chain
034e ; --------------------------------------------------------------------------------------
034e 0001 0002 | | .DBGLEN 0x0001,0x0002
0350 01cb 01cc | | .DBGLNO 0x01cb,0x01cc,0x01d4
0353 ; --------------------------------------------------------------------------------------
0353 ; Debug chain
0353 ; --------------------------------------------------------------------------------------
0353 0000 0004 | | .DBGLEN 0x0000,0x0004
0355 01dc 01e0 | | .DBGLNO 0x01dc,0x01e0,0x01e8,0x01ed
0359 ; --------------------------------------------------------------------------------------
0359 ; Debug chain
0359 ; --------------------------------------------------------------------------------------
0359 0001 0008 | | .DBGLEN 0x0001,0x0008
035b 01f3 01f6 | | .DBGLNO 0x01f3,0x01f6,0x01fa,0x01fc,0x0200,0x0204,0x0208,0x020a,0x0215
0364 ; --------------------------------------------------------------------------------------
0364 ; Debug chain
0364 ; --------------------------------------------------------------------------------------
0364 0000 0006 | | .DBGLEN 0x0000,0x0006
0366 0223 0227 | # '| .DBGLNO 0x0223,0x0227,0x022f,0x0231,0x0235,0x0237
036c 0000 0000 | | .BLANK 0000[0x94]