|
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_32d0d5
└─⟦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 0248 | H | .CONST 0x0248 ; 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 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 00d9 | | Load_Top At_Offset_1
000c 0265 | e | Execute Discrete,Reverse_Bounds
000d 00db | | Load_Top At_Offset_3
000e 1c04 | | Execute_Immediate Run_Utility,0x4
000f 00d0 | | Action Swap_Control
0010 00db | | Load_Top At_Offset_3
0011 1c04 | | Execute_Immediate Run_Utility,0x4
0012 00e2 | | Load_Encached Integer_Cache
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 4801 |H | Short_Literal 0x1
0015 035e | ^ | Declare_Type Array,Defined,Visible
0016 00da | | Load_Top At_Offset_2
0017 0265 | e | Execute Discrete,Reverse_Bounds
0018 e20f | | Load 0x1,0xf
0019 1c04 | | Execute_Immediate Run_Utility,0x4
001a 00d0 | | Action Swap_Control
001b e20f | | Load 0x1,0xf
001c 1c04 | | Execute_Immediate Run_Utility,0x4
001d e002 | | Load 0x0,0x2
001e 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0020 4801 |H | Short_Literal 0x1
0021 035e | ^ | Declare_Type Array,Defined,Visible
0022 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0024 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0026 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0028 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
002a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
002c 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
002e 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0030 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0032 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0034 00bf | | Action Accept_Activation
0035 e20e | | Load 0x1,0xe
0036 8003 | | Call 0x0,0x3
0037 e004 | | Load 0x0,0x4
0038 03f1 | | Declare_Variable Discrete,With_Value
0039 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
003b 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
003d 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
003f 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0042 00c7 | | Action Elaborate_Subprogram
0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0044 00c7 | | Action Elaborate_Subprogram
0045 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0046 00c7 | | Action Elaborate_Subprogram
0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0048 00c7 | | Action Elaborate_Subprogram
0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004a 00c7 | | Action Elaborate_Subprogram
004b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004c 00c7 | | Action Elaborate_Subprogram
004d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004e 00c7 | | Action Elaborate_Subprogram
004f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0050 00c7 | | Action Elaborate_Subprogram
0051 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0052 00c7 | | Action Elaborate_Subprogram
0053 BODY_0008:
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00d1 | | Pop_Control Pop_Count_1
005c 00da | | Load_Top At_Offset_2
005d 01d8 | | Execute Vector,Element_Type
005e 02ff | | Declare_Variable Variant_Record
005f 00d8 | | Load_Top At_Offset_0
0060 1c00 | | Execute_Immediate Run_Utility,0x0
0061 00db | | Load_Top At_Offset_3
0062 01dc | | Execute Vector,Last
0063 e5ff | | Load 0x2,-0x1
0064 01dd | | Execute Vector,First
0065 0263 | c | Execute Discrete,Above_Bound
0066 7006 |p | Jump_Nonzero 0x6d
0067 00da | | Load_Top At_Offset_2
0068 00d9 | | Load_Top At_Offset_1
0069 e5ff | | Load 0x2,-0x1
006a 01d6 | | Execute Vector,Field_Write
006b 0a01 | | Execute_Immediate Plus,0x1
006c 7ff8 | | Jump 0x65
006d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 821d | | Call 0x1,0x1d
0074 e005 | | Load 0x0,0x5
0075 1c08 | | Execute_Immediate Run_Utility,0x8
0076 4800 |H | Short_Literal 0x0
0077 00d9 | | Load_Top At_Offset_1
0078 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0079 e21c | | Load 0x1,0x1c
007a 00d9 | | Load_Top At_Offset_1
007b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
007c 00db | | Load_Top At_Offset_3
007d 821f | | Call 0x1,0x1f
007e 00d9 | | Load_Top At_Offset_1
007f 00d8 | | Load_Top At_Offset_0
0080 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0081 00da | | Load_Top At_Offset_2
0082 01da | | Execute Vector,Bounds
0083 00da | | Load_Top At_Offset_2
0084 01da | | Execute Vector,Bounds
0085 00da | | Load_Top At_Offset_2
0086 027f | | Execute Discrete,Equal
0087 7001 |p | Jump_Nonzero 0x89
0088 08e0 | | Execute_Immediate Raise,0xe0
0089 00cd | | Action Spare6_Action
008a 027f | | Execute Discrete,Equal
008b 7001 |p | Jump_Nonzero 0x8d
008c 08e0 | | Execute_Immediate Raise,0xe0
008d 00d2 | | Pop_Control Pop_Count_2
008e 00d9 | | Load_Top At_Offset_1
008f 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 821d | | Call 0x1,0x1d
009c e005 | | Load 0x0,0x5
009d 1c08 | | Execute_Immediate Run_Utility,0x8
009e 4801 |H | Short_Literal 0x1
009f 00d9 | | Load_Top At_Offset_1
00a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a1 e21c | | Load 0x1,0x1c
00a2 00d9 | | Load_Top At_Offset_1
00a3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00a4 00db | | Load_Top At_Offset_3
00a5 821f | | Call 0x1,0x1f
00a6 00d9 | | Load_Top At_Offset_1
00a7 00d8 | | Load_Top At_Offset_0
00a8 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00a9 00da | | Load_Top At_Offset_2
00aa 01da | | Execute Vector,Bounds
00ab 00da | | Load_Top At_Offset_2
00ac 01da | | Execute Vector,Bounds
00ad 00da | | Load_Top At_Offset_2
00ae 027f | | Execute Discrete,Equal
00af 7001 |p | Jump_Nonzero 0xb1
00b0 08e0 | | Execute_Immediate Raise,0xe0
00b1 00cd | | Action Spare6_Action
00b2 027f | | Execute Discrete,Equal
00b3 7001 |p | Jump_Nonzero 0xb5
00b4 08e0 | | Execute_Immediate Raise,0xe0
00b5 00d2 | | Pop_Control Pop_Count_2
00b6 00d9 | | Load_Top At_Offset_1
00b7 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e211 | | Load 0x1,0x11
00c4 0337 | 7 | Declare_Variable Array
00c5 BODY_00c0:
00c5 00cf | | Action Mark_Auxiliary
00c6 e20f | | Load 0x1,0xf
00c7 0265 | e | Execute Discrete,Reverse_Bounds
00c8 0263 | c | Execute Discrete,Above_Bound
00c9 7018 |p | Jump_Nonzero 0xe2
00ca 00d8 | | Load_Top At_Offset_0
00cb 00d8 | | Load_Top At_Offset_0
00cc e20f | | Load 0x1,0xf
00cd 0260 | ` | Execute Discrete,In_Type
00ce 7001 |p | Jump_Nonzero 0xd0
00cf 0801 | | Execute_Immediate Raise,0x1
00d0 821e | | Call 0x1,0x1e
00d1 e5ff | | Load 0x2,-0x1
00d2 8006 | | Call 0x0,0x6
00d3 00d9 | | Load_Top At_Offset_1
00d4 e20f | | Load 0x1,0xf
00d5 1c04 | | Execute_Immediate Run_Utility,0x4
00d6 e402 | | Load 0x2,0x2
00d7 01d6 | | Execute Vector,Field_Write
00d8 00c8 | | Action Pop_Auxiliary_Range
00d9 00d9 | | Load_Top At_Offset_1
00da 00d9 | | Load_Top At_Offset_1
00db 027f | | Execute Discrete,Equal
00dc 7004 |p | Jump_Nonzero 0xe1
00dd e20f | | Load 0x1,0xf
00de 0122 | " | Execute Any,Make_Root_Type
00df 1c07 | | Execute_Immediate Run_Utility,0x7
00e0 7fe9 | | Jump 0xca
00e1 00d2 | | Pop_Control Pop_Count_2
00e2 00ce | | Action Pop_Auxiliary
00e3 00d8 | | Load_Top At_Offset_0
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
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
00ec 00d8 | | Load_Top At_Offset_0
00ed e20f | | Load 0x1,0xf
00ee 0260 | ` | Execute Discrete,In_Type
00ef 7001 |p | Jump_Nonzero 0xf1
00f0 0801 | | Execute_Immediate Raise,0x1
00f1 821e | | Call 0x1,0x1e
00f2 00db | | Load_Top At_Offset_3
00f3 8006 | | Call 0x0,0x6
00f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
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 00da | | Load_Top At_Offset_2
00fc 01db | | Execute Vector,Length
00fd e007 | | Load 0x0,0x7
00fe 1c08 | | Execute_Immediate Run_Utility,0x8
00ff e21c | | Load 0x1,0x1c
0100 00d9 | | Load_Top At_Offset_1
0101 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0102 00db | | Load_Top At_Offset_3
0103 8220 | | Call 0x1,0x20
0104 00d9 | | Load_Top At_Offset_1
0105 00d8 | | Load_Top At_Offset_0
0106 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0107 00da | | Load_Top At_Offset_2
0108 01da | | Execute Vector,Bounds
0109 00da | | Load_Top At_Offset_2
010a 01da | | Execute Vector,Bounds
010b 00da | | Load_Top At_Offset_2
010c 027f | | Execute Discrete,Equal
010d 7001 |p | Jump_Nonzero 0x10f
010e 08e0 | | Execute_Immediate Raise,0xe0
010f 00cd | | Action Spare6_Action
0110 027f | | Execute Discrete,Equal
0111 7001 |p | Jump_Nonzero 0x113
0112 08e0 | | Execute_Immediate Raise,0xe0
0113 00d2 | | Pop_Control Pop_Count_2
0114 00d9 | | Load_Top At_Offset_1
0115 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0116 8008 | | Call 0x0,0x8
0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 8009 | | Call 0x0,0x9
011d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00db | | Load_Top At_Offset_3
0124 01db | | Execute Vector,Length
0125 e007 | | Load 0x0,0x7
0126 1c08 | | Execute_Immediate Run_Utility,0x8
0127 e21c | | Load 0x1,0x1c
0128 00d9 | | Load_Top At_Offset_1
0129 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
012a e5fe | | Load 0x2,-0x2
012b 8220 | | Call 0x1,0x20
012c 00d9 | | Load_Top At_Offset_1
012d 00d8 | | Load_Top At_Offset_0
012e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012f 00da | | Load_Top At_Offset_2
0130 01da | | Execute Vector,Bounds
0131 00da | | Load_Top At_Offset_2
0132 01da | | Execute Vector,Bounds
0133 00da | | Load_Top At_Offset_2
0134 027f | | Execute Discrete,Equal
0135 7001 |p | Jump_Nonzero 0x137
0136 08e0 | | Execute_Immediate Raise,0xe0
0137 00cd | | Action Spare6_Action
0138 027f | | Execute Discrete,Equal
0139 7001 |p | Jump_Nonzero 0x13b
013a 08e0 | | Execute_Immediate Raise,0xe0
013b 00d2 | | Pop_Control Pop_Count_2
013c 00d9 | | Load_Top At_Offset_1
013d 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
013e 00db | | Load_Top At_Offset_3
013f 800a | | Call 0x0,0xa
0140 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e5fd | | Load 0x2,-0x3
014c e5fe | | Load 0x2,-0x2
014d 00d8 | | Load_Top At_Offset_0
014e e20f | | Load 0x1,0xf
014f 0260 | ` | Execute Discrete,In_Type
0150 7001 |p | Jump_Nonzero 0x152
0151 0801 | | Execute_Immediate Raise,0x1
0152 821e | | Call 0x1,0x1e
0153 e5ff | | Load 0x2,-0x1
0154 800b | | Call 0x0,0xb
0155 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d | ] | .CONST 0x015d ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00e1 | | Load_Encached Boolean_Cache
015c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
015d BODY_0158:
015d e5fe | | Load 0x2,-0x2
015e e20e | | Load 0x1,0xe
015f 0092 023f | ?| Action Push_String_Extended,0x23f ; "'("
0161 01cc | | Execute Vector,Catenate
0162 800c | | Call 0x0,0xc
0163 e5fe | | Load 0x2,-0x2
0164 800d | | Call 0x0,0xd
0165 4801 |H | Short_Literal 0x1
0166 e5fe | | Load 0x2,-0x2
0167 800e | | Call 0x0,0xe
0168 00cf | | Action Mark_Auxiliary
0169 e20f | | Load 0x1,0xf
016a 0265 | e | Execute Discrete,Reverse_Bounds
016b 0263 | c | Execute Discrete,Above_Bound
016c 702a |p* | Jump_Nonzero 0x197
016d 00db | | Load_Top At_Offset_3
016e 7005 |p | Jump_Nonzero 0x174
016f e5fe | | Load 0x2,-0x2
0170 0092 0240 | @| Action Push_String_Extended,0x240 ; ", "
0172 800f | | Call 0x0,0xf
0173 7802 |x | Jump 0x176
0174 4800 |H | Short_Literal 0x0
0175 a402 | | Store_Unchecked 0x2,0x2
0176 e5fe | | Load 0x2,-0x2
0177 00d9 | | Load_Top At_Offset_1
0178 e20f | | Load 0x1,0xf
0179 1c04 | | Execute_Immediate Run_Utility,0x4
017a e20f | | Load 0x1,0xf
017b 0122 | " | Execute Any,Make_Root_Type
017c 011c | | Execute Any,Convert_Unchecked
017d 1c01 | | Execute_Immediate Run_Utility,0x1
017e 0092 0241 | A| Action Push_String_Extended,0x241 ; " =>"
0180 01cc | | Execute Vector,Catenate
0181 800c | | Call 0x0,0xc
0182 e5fe | | Load 0x2,-0x2
0183 00d9 | | Load_Top At_Offset_1
0184 00d8 | | Load_Top At_Offset_0
0185 e20f | | Load 0x1,0xf
0186 0260 | ` | Execute Discrete,In_Type
0187 7001 |p | Jump_Nonzero 0x189
0188 0801 | | Execute_Immediate Raise,0x1
0189 e5ff | | Load 0x2,-0x1
018a 8216 | | Call 0x1,0x16
018b 8210 | | Call 0x1,0x10
018c 800c | | Call 0x0,0xc
018d 00c8 | | Action Pop_Auxiliary_Range
018e 00d9 | | Load_Top At_Offset_1
018f 00d9 | | Load_Top At_Offset_1
0190 027f | | Execute Discrete,Equal
0191 7004 |p | Jump_Nonzero 0x196
0192 e20f | | Load 0x1,0xf
0193 0122 | " | Execute Any,Make_Root_Type
0194 1c07 | | Execute_Immediate Run_Utility,0x7
0195 7fd7 | | Jump 0x16d
0196 00d2 | | Pop_Control Pop_Count_2
0197 00ce | | Action Pop_Auxiliary
0198 e5fe | | Load 0x2,-0x2
0199 8010 | | Call 0x0,0x10
019a e5fe | | Load 0x2,-0x2
019b 0092 0242 | B| Action Push_String_Extended,0x242 ; ")"
019d 800f | | Call 0x0,0xf
019e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01af | | .CONST 0x01af ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e20f | | Load 0x1,0xf
01a4 026a | j | Execute Discrete,First
01a5 e20f | | Load 0x1,0xf
01a6 1c04 | | Execute_Immediate Run_Utility,0x4
01a7 00e3 | | Load_Encached Natural_Cache
01a8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01a9 e20f | | Load 0x1,0xf
01aa 0269 | i | Execute Discrete,Last
01ab e20f | | Load 0x1,0xf
01ac 1c04 | | Execute_Immediate Run_Utility,0x4
01ad 00e3 | | Load_Encached Natural_Cache
01ae 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01af BODY_01a0:
01af 00d8 | | Load_Top At_Offset_0
01b0 00da | | Load_Top At_Offset_2
01b1 0272 | r | Execute Discrete,Minus
01b2 0a01 | | Execute_Immediate Plus,0x1
01b3 00d8 | | Load_Top At_Offset_0
01b4 00e3 | | Load_Encached Natural_Cache
01b5 0260 | ` | Execute Discrete,In_Type
01b6 7001 |p | Jump_Nonzero 0x1b8
01b7 0801 | | Execute_Immediate Raise,0x1
01b8 00ca | | Action Exit_Nullary_Function
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 e20f | | Load 0x1,0xf
01c5 1c04 | | Execute_Immediate Run_Utility,0x4
01c6 e20f | | Load 0x1,0xf
01c7 026a | j | Execute Discrete,First
01c8 e20f | | Load 0x1,0xf
01c9 1c04 | | Execute_Immediate Run_Utility,0x4
01ca 0272 | r | Execute Discrete,Minus
01cb 0a01 | | Execute_Immediate Plus,0x1
01cc 00d8 | | Load_Top At_Offset_0
01cd e011 | | Load 0x0,0x11
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d2 0000 0000 | | .BLANK 0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e2 | | .CONST 0x01e2 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db 4801 |H | Short_Literal 0x1
01dc 821d | | Call 0x1,0x1d
01dd e012 | | Load 0x0,0x12
01de 035b | [ | Declare_Type Array,Constrained
01df 0337 | 7 | Declare_Variable Array
01e0 00d8 | | Load_Top At_Offset_0
01e1 1c00 | | Execute_Immediate Run_Utility,0x0
01e2 BODY_01d8:
01e2 00cf | | Action Mark_Auxiliary
01e3 e5ff | | Load 0x2,-0x1
01e4 01da | | Execute Vector,Bounds
01e5 e20f | | Load 0x1,0xf
01e6 1c05 | | Execute_Immediate Run_Utility,0x5
01e7 00d0 | | Action Swap_Control
01e8 e20f | | Load 0x1,0xf
01e9 1c05 | | Execute_Immediate Run_Utility,0x5
01ea 0263 | c | Execute Discrete,Above_Bound
01eb 7018 |p | Jump_Nonzero 0x204
01ec 00d8 | | Load_Top At_Offset_0
01ed e20f | | Load 0x1,0xf
01ee 1c04 | | Execute_Immediate Run_Utility,0x4
01ef e5ff | | Load 0x2,-0x1
01f0 01d5 | | Execute Vector,Field_Reference
01f1 00d9 | | Load_Top At_Offset_1
01f2 00d8 | | Load_Top At_Offset_0
01f3 e20f | | Load 0x1,0xf
01f4 0260 | ` | Execute Discrete,In_Type
01f5 7001 |p | Jump_Nonzero 0x1f7
01f6 0801 | | Execute_Immediate Raise,0x1
01f7 821e | | Call 0x1,0x1e
01f8 e402 | | Load 0x2,0x2
01f9 01d6 | | Execute Vector,Field_Write
01fa 00c8 | | Action Pop_Auxiliary_Range
01fb 00d9 | | Load_Top At_Offset_1
01fc 00d9 | | Load_Top At_Offset_1
01fd 027f | | Execute Discrete,Equal
01fe 7004 |p | Jump_Nonzero 0x203
01ff e20f | | Load 0x1,0xf
0200 0122 | " | Execute Any,Make_Root_Type
0201 1c07 | | Execute_Immediate Run_Utility,0x7
0202 7fe9 | | Jump 0x1ec
0203 00d2 | | Pop_Control Pop_Count_2
0204 00ce | | Action Pop_Auxiliary
0205 00d8 | | Load_Top At_Offset_0
0206 e012 | | Load 0x0,0x12
0207 01c6 | | Execute Vector,Convert_To_Formal
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 4801 |H | Short_Literal 0x1
0214 821d | | Call 0x1,0x1d
0215 e013 | | Load 0x0,0x13
0216 035b | [ | Declare_Type Array,Constrained
0217 0337 | 7 | Declare_Variable Array
0218 BODY_0210:
0218 00cf | | Action Mark_Auxiliary
0219 e5ff | | Load 0x2,-0x1
021a 01da | | Execute Vector,Bounds
021b e20f | | Load 0x1,0xf
021c 1c05 | | Execute_Immediate Run_Utility,0x5
021d 00d0 | | Action Swap_Control
021e e20f | | Load 0x1,0xf
021f 1c05 | | Execute_Immediate Run_Utility,0x5
0220 0263 | c | Execute Discrete,Above_Bound
0221 7018 |p | Jump_Nonzero 0x23a
0222 00d8 | | Load_Top At_Offset_0
0223 e20f | | Load 0x1,0xf
0224 1c04 | | Execute_Immediate Run_Utility,0x4
0225 e5ff | | Load 0x2,-0x1
0226 01d7 | | Execute Vector,Field_Read
0227 00d9 | | Load_Top At_Offset_1
0228 00d8 | | Load_Top At_Offset_0
0229 e20f | | Load 0x1,0xf
022a 0260 | ` | Execute Discrete,In_Type
022b 7001 |p | Jump_Nonzero 0x22d
022c 0801 | | Execute_Immediate Raise,0x1
022d 821e | | Call 0x1,0x1e
022e e402 | | Load 0x2,0x2
022f 01d6 | | Execute Vector,Field_Write
0230 00c8 | | Action Pop_Auxiliary_Range
0231 00d9 | | Load_Top At_Offset_1
0232 00d9 | | Load_Top At_Offset_1
0233 027f | | Execute Discrete,Equal
0234 7004 |p | Jump_Nonzero 0x239
0235 e20f | | Load 0x1,0xf
0236 0122 | " | Execute Any,Make_Root_Type
0237 1c07 | | Execute_Immediate Run_Utility,0x7
0238 7fe9 | | Jump 0x222
0239 00d2 | | Pop_Control Pop_Count_2
023a 00ce | | Action Pop_Auxiliary
023b 00d8 | | Load_Top At_Offset_0
023c e013 | | Load 0x0,0x13
023d 01c6 | | Execute Vector,Convert_To_Formal
023e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023f ; --------------------------------------------------------------------------------------
023f ; STRING TABLE
023f ; --------------------------------------------------------------------------------------
023f 000a | | .STRTAB 0x000a->0x0244 ; "'("
0240 000a | | .STRTAB 0x000a->0x0245 ; ", "
0241 000a | | .STRTAB 0x000a->0x0246 ; " =>"
0242 000b | | .STRTAB 0x000b->0x0247 ; ")"
0243 000a | | .STREND 0x000a->0x0248
0244 2728 2c20 |'(, | .STRTAB_STRINGS
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0004 | | .DEBUG4 0x0004,0x0004,0x61ee,0x0000,0x0001,0x0010
024e 000b 028e | | .DBG4T 0x000b,0x028e,0xc000,0x8000
0252 0035 02a6 | 5 | .DBG4T 0x0035,0x02a6,0xc000,0x0000
0256 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x1005,0x0000
025a 0073 02b6 | s | .DBG4T 0x0073,0x02b6,0x1002,0x0000
025e 009b 02b9 | | .DBG4T 0x009b,0x02b9,0x1002,0x0000
0262 00c3 02bc | | .DBG4T 0x00c3,0x02bc,0x1002,0x0000
0266 00eb 02c2 | | .DBG4T 0x00eb,0x02c2,0x1002,0x0000
026a 00fb 02c5 | | .DBG4T 0x00fb,0x02c5,0x1001,0x0000
026e 011b 02c8 | | .DBG4T 0x011b,0x02c8,0x1001,0x0000
0272 0123 02cb | # | .DBG4T 0x0123,0x02cb,0x1001,0x0000
0276 014b 02ce | K | .DBG4T 0x014b,0x02ce,0x1001,0x0000
027a 015b 02d1 | [ | .DBG4T 0x015b,0x02d1,0x1001,0x0000
027e 01a3 02df | | .DBG4T 0x01a3,0x02df,0x1002,0x0000
0282 01c3 02e4 | | .DBG4T 0x01c3,0x02e4,0x1002,0x0000
0286 01db 02e7 | | .DBG4T 0x01db,0x02e7,0x1002,0x0000
028a 0213 02ed | | .DBG4T 0x0213,0x02ed,0x1002,0x0000
028e ; --------------------------------------------------------------------------------------
028e ; Debug chain
028e ; --------------------------------------------------------------------------------------
028e 000b 0000 | | .DBGLEN 0x000b,0x0000
0290 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032
029b 0001 0002 | | .XXX[0xb]
029d 0003 0004 | |
029f 0006 0007 | |
02a1 0008 0009 | |
02a3 000a 000b | |
02a5 000c | |
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug chain
02a6 ; --------------------------------------------------------------------------------------
02a6 000e 0000 | | .DBGLEN 0x000e,0x0000
02a8 0035 0039 | 5 9| .DBGLNO 0x0035,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0001 | | .DBGLEN 0x0000,0x0001
02b8 0073 | s | .DBGLNO 0x0073
02b9 ; --------------------------------------------------------------------------------------
02b9 ; Debug chain
02b9 ; --------------------------------------------------------------------------------------
02b9 0000 0001 | | .DBGLEN 0x0000,0x0001
02bb 009b | | .DBGLNO 0x009b
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug chain
02bc ; --------------------------------------------------------------------------------------
02bc 0001 0003 | | .DBGLEN 0x0001,0x0003
02be 00c3 00c6 | | .DBGLNO 0x00c3,0x00c6,0x00ca,0x00e3
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug chain
02c2 ; --------------------------------------------------------------------------------------
02c2 0000 0001 | | .DBGLEN 0x0000,0x0001
02c4 00eb | | .DBGLNO 0x00eb
02c5 ; --------------------------------------------------------------------------------------
02c5 ; Debug chain
02c5 ; --------------------------------------------------------------------------------------
02c5 0000 0001 | | .DBGLEN 0x0000,0x0001
02c7 00fb | | .DBGLNO 0x00fb
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug chain
02c8 ; --------------------------------------------------------------------------------------
02c8 0000 0001 | | .DBGLEN 0x0000,0x0001
02ca 011b | | .DBGLNO 0x011b
02cb ; --------------------------------------------------------------------------------------
02cb ; Debug chain
02cb ; --------------------------------------------------------------------------------------
02cb 0000 0001 | | .DBGLEN 0x0000,0x0001
02cd 0123 | # | .DBGLNO 0x0123
02ce ; --------------------------------------------------------------------------------------
02ce ; Debug chain
02ce ; --------------------------------------------------------------------------------------
02ce 0000 0001 | | .DBGLEN 0x0000,0x0001
02d0 014b | K | .DBGLNO 0x014b
02d1 ; --------------------------------------------------------------------------------------
02d1 ; Debug chain
02d1 ; --------------------------------------------------------------------------------------
02d1 0001 000b | | .DBGLEN 0x0001,0x000b
02d3 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0163,0x0165,0x0169,0x016d,0x016f,0x0174,0x0176,0x0182,0x0198,0x019a
02df ; --------------------------------------------------------------------------------------
02df ; Debug chain
02df ; --------------------------------------------------------------------------------------
02df 0002 0001 | | .DBGLEN 0x0002,0x0001
02e1 01a3 01a9 | | .DBGLNO 0x01a3,0x01a9,0x01af
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug chain
02e4 ; --------------------------------------------------------------------------------------
02e4 0000 0001 | | .DBGLEN 0x0000,0x0001
02e6 01c3 | | .DBGLNO 0x01c3
02e7 ; --------------------------------------------------------------------------------------
02e7 ; Debug chain
02e7 ; --------------------------------------------------------------------------------------
02e7 0001 0003 | | .DBGLEN 0x0001,0x0003
02e9 01db 01e3 | | .DBGLNO 0x01db,0x01e3,0x01ec,0x0205
02ed ; --------------------------------------------------------------------------------------
02ed ; Debug chain
02ed ; --------------------------------------------------------------------------------------
02ed 0001 0003 | | .DBGLEN 0x0001,0x0003
02ef 0213 0219 | | .DBGLNO 0x0213,0x0219,0x0222,0x023b
02f3 0000 0000 | | .BLANK 0000[0x10d]