|
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_03c8f4
└─⟦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 0240 | @ | .CONST 0x0240 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0063 | c | .CONST 0x0063 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0014 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0016 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0018 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001a 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001c 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0020 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0022 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0024 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0026 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0028 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002a 0093 0000 | | push_full_address 0x0
002c 6063 |`c | Indirect_Literal Discrete,0x90,{0x80000000, 0x00010000}
002d 0273 | s | Execute Discrete,Plus
002e 0129 | ) | Execute Any,Make_Visible
002f 4832 |H2 | Short_Literal 0x32
0030 e002 | | Load 0x0,0x2
0031 1c07 | | Execute_Immediate Run_Utility,0x7
0032 0129 | ) | Execute Any,Make_Visible
0033 e20d | | Load 0x1,0xd
0034 4832 |H2 | Short_Literal 0x32
0035 e002 | | Load 0x0,0x2
0036 1c07 | | Execute_Immediate Run_Utility,0x7
0037 0129 | ) | Execute Any,Make_Visible
0038 4864 |Hd | Short_Literal 0x64
0039 e002 | | Load 0x0,0x2
003a 1c07 | | Execute_Immediate Run_Utility,0x7
003b 0129 | ) | Execute Any,Make_Visible
003c 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
003e 4804 |H | Short_Literal 0x4
003f 032e | . | Declare_Type Record,Defined,Visible
0040 00bf | | Action Accept_Activation
0041 0092 021e | | Action Push_String_Extended,0x21e ; "(name=>"
0043 0092 021f | | Action Push_String_Extended,0x21f ; ",class=>"
0045 0092 0220 | | Action Push_String_Extended,0x220 ; ",mode=>"
0047 0092 0221 | !| Action Push_String_Extended,0x221 ; ",value=>"
0049 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004a 00c7 | | Action Elaborate_Subprogram
004b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004c 00c7 | | Action Elaborate_Subprogram
004d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004e 00c7 | | Action Elaborate_Subprogram
004f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0050 00c7 | | Action Elaborate_Subprogram
0051 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0052 00c7 | | Action Elaborate_Subprogram
0053 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0054 00c7 | | Action Elaborate_Subprogram
0055 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0056 00c7 | | Action Elaborate_Subprogram
0057 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0058 00c7 | | Action Elaborate_Subprogram
0059 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005a 00c7 | | Action Elaborate_Subprogram
005b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005c 00c7 | | Action Elaborate_Subprogram
005d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005e 00c7 | | Action Elaborate_Subprogram
005f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0060 00c7 | | Action Elaborate_Subprogram
0061 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0062 00c7 | | Action Elaborate_Subprogram
0063 BODY_0008:
0063 00bc | | Action Signal_Activated
0064 00bb | | Action Signal_Completion
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4607 |F | Jump_Case 0x8
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
006d 7807 |x | Jump 0x75 ; case 0x1
006e 780a |x | Jump 0x79 ; case 0x2
006f 780e |x | Jump 0x7e ; case 0x3
0070 7811 |x | Jump 0x82 ; case 0x4
0071 7812 |x | Jump 0x84 ; case 0x5
0072 7813 |x | Jump 0x86 ; case 0x6
0073 7816 |x | Jump 0x8a ; case 0x7
0074 4302 |C | .XXX[0x1]
0075 00da | | Load_Top At_Offset_2
0076 0091 021b | | Action Push_String_Extended_Indexed,0x21b ; "MODE_IN"
0078 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0079 00db | | Load_Top At_Offset_3
007a 00db | | Load_Top At_Offset_3
007b 00e0 | | Load_Encached Standard_Cache
007c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007e 00da | | Load_Top At_Offset_2
007f 00e0 | | Load_Encached Standard_Cache
0080 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0081 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0082 00db | | Load_Top At_Offset_3
0083 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0084 00db | | Load_Top At_Offset_3
0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0086 e20d | | Load 0x1,0xd
0087 00dc | | Load_Top At_Offset_4
0088 0267 | g | Execute Discrete,Predecessor
0089 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008a e20d | | Load 0x1,0xd
008b 00dc | | Load_Top At_Offset_4
008c 0268 | h | Execute Discrete,Successor
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e 0000 0000 | | .XXX[0x2]
0090 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0094 0000 0000 | | .BLANK 0000[0x4]
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 e5fb | | Load 0x2,-0x5
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 00db | | Load_Top At_Offset_3
009e 8003 | | Call 0x0,0x3
009f 00d1 | | Pop_Control Pop_Count_1
00a0 00db | | Load_Top At_Offset_3
00a1 e5fb | | Load 0x2,-0x5
00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a3 e5fb | | Load 0x2,-0x5
00a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a5 e5fd | | Load 0x2,-0x3
00a6 8003 | | Call 0x0,0x3
00a7 00d1 | | Pop_Control Pop_Count_1
00a8 e5fb | | Load 0x2,-0x5
00a9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00aa e5fc | | Load 0x2,-0x4
00ab 8003 | | Call 0x0,0x3
00ac 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7 | | .CONST 0x00b7 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 e21c | | Load 0x1,0x1c
00b4 0322 | " | Declare_Variable Record
00b5 00d8 | | Load_Top At_Offset_0
00b6 1c00 | | Execute_Immediate Run_Utility,0x0
00b7 BODY_00b0:
00b7 00d8 | | Load_Top At_Offset_0
00b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b9 e5ff | | Load 0x2,-0x1
00ba 8003 | | Call 0x0,0x3
00bb 00d1 | | Pop_Control Pop_Count_1
00bc e5fe | | Load 0x2,-0x2
00bd 00d9 | | Load_Top At_Offset_1
00be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bf 00d8 | | Load_Top At_Offset_0
00c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c1 e5fd | | Load 0x2,-0x3
00c2 8003 | | Call 0x0,0x3
00c3 00d1 | | Pop_Control Pop_Count_1
00c4 00d8 | | Load_Top At_Offset_0
00c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00c6 e5fc | | Load 0x2,-0x4
00c7 8003 | | Call 0x0,0x3
00c8 00d1 | | Pop_Control Pop_Count_1
00c9 00d8 | | Load_Top At_Offset_0
00ca 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00db | | Load_Top At_Offset_3
00d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d5 00db | | Load_Top At_Offset_3
00d6 8003 | | Call 0x0,0x3
00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc e5fe | | Load 0x2,-0x2
00dd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e5 00db | | Load_Top At_Offset_3
00e6 8003 | | Call 0x0,0x3
00e7 4502 |E | Exit_Suprogram New_Top_Offset 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 00db | | Load_Top At_Offset_3
00ec 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00ed 00db | | Load_Top At_Offset_3
00ee 8003 | | Call 0x0,0x3
00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f5 8004 | | Call 0x0,0x4
00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f7 0000 | | .XXX[0x1]
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0105 8004 | | Call 0x0,0x4
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
010c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
010d 8004 | | Call 0x0,0x4
010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 4829 |H) | Short_Literal 0x29
0114 485d |H] | Short_Literal 0x5d
0115 485b |H[ | Short_Literal 0x5b
0116 e21d | | Load 0x1,0x1d
0117 e5ff | | Load 0x2,-0x1
0118 8214 | | Call 0x1,0x14
0119 01cc | | Execute Vector,Catenate
011a e21e | | Load 0x1,0x1e
011b 01cc | | Execute Vector,Catenate
011c e5ff | | Load 0x2,-0x1
011d 8216 | | Call 0x1,0x16
011e 01cc | | Execute Vector,Catenate
011f e21f | | Load 0x1,0x1f
0120 01cc | | Execute Vector,Catenate
0121 e5ff | | Load 0x2,-0x1
0122 8215 | | Call 0x1,0x15
0123 e20d | | Load 0x1,0xd
0124 011c | | Execute Any,Convert_Unchecked
0125 1c01 | | Execute_Immediate Run_Utility,0x1
0126 01cc | | Execute Vector,Catenate
0127 e220 | | Load 0x1,0x20
0128 01cc | | Execute Vector,Catenate
0129 01cb | | Execute Vector,Append
012a e5ff | | Load 0x2,-0x1
012b 8217 | | Call 0x1,0x17
012c 01db | | Execute Vector,Length
012d 00d8 | | Load_Top At_Offset_0
012e 00e2 | | Load_Encached Integer_Cache
012f 0260 | ` | Execute Discrete,In_Type
0130 7001 |p | Jump_Nonzero 0x132
0131 0801 | | Execute_Immediate Raise,0x1
0132 00e0 | | Load_Encached Standard_Cache
0133 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0134 01cc | | Execute Vector,Catenate
0135 01cb | | Execute Vector,Append
0136 e5ff | | Load 0x2,-0x1
0137 8217 | | Call 0x1,0x17
0138 01cc | | Execute Vector,Catenate
0139 01cb | | Execute Vector,Append
013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0148 | H | .CONST 0x0148 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e21c | | Load 0x1,0x1c
0144 0322 | " | Declare_Variable Record
0145 00d8 | | Load_Top At_Offset_0
0146 1c00 | | Execute_Immediate Run_Utility,0x0
0147 00e3 | | Load_Encached Natural_Cache
0148 BODY_0140:
0148 00e3 | | Load_Encached Natural_Cache
0149 00da | | Load_Top At_Offset_2
014a e5ff | | Load 0x2,-0x1
014b 821a | | Call 0x1,0x1a
014c 00d1 | | Pop_Control Pop_Count_1
014d 0059 | Y | Store_Top Discrete,At_Offset_1
014e 00d9 | | Load_Top At_Offset_1
014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015e | ^ | .CONST 0x015e ; Address of begin
0151 01f0 | | .CONST 0x01f0 ; Address of exception handler
0152 000c | | .CONST 0x000c ; Number of locals
0153 INIT_0150:
0153 00e3 | | Load_Encached Natural_Cache
0154 00e3 | | Load_Encached Natural_Cache
0155 00e3 | | Load_Encached Natural_Cache
0156 00e3 | | Load_Encached Natural_Cache
0157 00e3 | | Load_Encached Natural_Cache
0158 00e3 | | Load_Encached Natural_Cache
0159 00e3 | | Load_Encached Natural_Cache
015a 00e3 | | Load_Encached Natural_Cache
015b 00e3 | | Load_Encached Natural_Cache
015c 00e3 | | Load_Encached Natural_Cache
015d 00e3 | | Load_Encached Natural_Cache
015e BODY_0150:
015e 4801 |H | Short_Literal 0x1
015f e5ff | | Load 0x2,-0x1
0160 e21d | | Load 0x1,0x1d
0161 8005 | | Call 0x0,0x5
0162 a402 | | Store_Unchecked 0x2,0x2
0163 e402 | | Load 0x2,0x2
0164 e5ff | | Load 0x2,-0x1
0165 01dd | | Execute Vector,First
0166 027e | ~ | Execute Discrete,Not_Equal
0167 6802 |h | Jump_Zero 0x16a
0168 e21b | | Load 0x1,0x1b
0169 0257 | W | Execute Discrete,Raise
016a e5ff | | Load 0x2,-0x1
016b 01dd | | Execute Vector,First
016c 0a07 | | Execute_Immediate Plus,0x7
016d c403 | | Store 0x2,0x3
016e 4801 |H | Short_Literal 0x1
016f e403 | | Load 0x2,0x3
0170 e5ff | | Load 0x2,-0x1
0171 01dc | | Execute Vector,Last
0172 e5ff | | Load 0x2,-0x1
0173 01cf | | Execute Vector,Slice_Read
0174 e21e | | Load 0x1,0x1e
0175 8005 | | Call 0x0,0x5
0176 a402 | | Store_Unchecked 0x2,0x2
0177 e402 | | Load 0x2,0x2
0178 7002 |p | Jump_Nonzero 0x17b
0179 e21b | | Load 0x1,0x1b
017a 0257 | W | Execute Discrete,Raise
017b e402 | | Load 0x2,0x2
017c 0aff | | Execute_Immediate Plus,-0x1
017d c404 | | Store 0x2,0x4
017e e402 | | Load 0x2,0x2
017f 0a08 | | Execute_Immediate Plus,0x8
0180 c405 | | Store 0x2,0x5
0181 4801 |H | Short_Literal 0x1
0182 e405 | | Load 0x2,0x5
0183 e5ff | | Load 0x2,-0x1
0184 01dc | | Execute Vector,Last
0185 e5ff | | Load 0x2,-0x1
0186 01cf | | Execute Vector,Slice_Read
0187 e21f | | Load 0x1,0x1f
0188 8005 | | Call 0x0,0x5
0189 a402 | | Store_Unchecked 0x2,0x2
018a e402 | | Load 0x2,0x2
018b 7002 |p | Jump_Nonzero 0x18e
018c e21b | | Load 0x1,0x1b
018d 0257 | W | Execute Discrete,Raise
018e e402 | | Load 0x2,0x2
018f 0aff | | Execute_Immediate Plus,-0x1
0190 c406 | | Store 0x2,0x6
0191 e402 | | Load 0x2,0x2
0192 0a07 | | Execute_Immediate Plus,0x7
0193 c407 | | Store 0x2,0x7
0194 4801 |H | Short_Literal 0x1
0195 e407 | | Load 0x2,0x7
0196 e5ff | | Load 0x2,-0x1
0197 01dc | | Execute Vector,Last
0198 e5ff | | Load 0x2,-0x1
0199 01cf | | Execute Vector,Slice_Read
019a e220 | | Load 0x1,0x20
019b 8005 | | Call 0x0,0x5
019c a402 | | Store_Unchecked 0x2,0x2
019d e402 | | Load 0x2,0x2
019e 7002 |p | Jump_Nonzero 0x1a1
019f e21b | | Load 0x1,0x1b
01a0 0257 | W | Execute Discrete,Raise
01a1 e402 | | Load 0x2,0x2
01a2 0aff | | Execute_Immediate Plus,-0x1
01a3 c408 | | Store 0x2,0x8
01a4 e402 | | Load 0x2,0x2
01a5 0a08 | | Execute_Immediate Plus,0x8
01a6 c402 | | Store 0x2,0x2
01a7 e402 | | Load 0x2,0x2
01a8 e5ff | | Load 0x2,-0x1
01a9 01d7 | | Execute Vector,Field_Read
01aa 0e5b | [ | Execute_Immediate Not_Equal,0x5b
01ab 6802 |h | Jump_Zero 0x1ae
01ac e21b | | Load 0x1,0x1b
01ad 0257 | W | Execute Discrete,Raise
01ae e402 | | Load 0x2,0x2
01af 0a01 | | Execute_Immediate Plus,0x1
01b0 c409 | | Store 0x2,0x9
01b1 4801 |H | Short_Literal 0x1
01b2 e409 | | Load 0x2,0x9
01b3 e5ff | | Load 0x2,-0x1
01b4 01dc | | Execute Vector,Last
01b5 e5ff | | Load 0x2,-0x1
01b6 01cf | | Execute Vector,Slice_Read
01b7 485d |H] | Short_Literal 0x5d
01b8 8006 | | Call 0x0,0x6
01b9 a402 | | Store_Unchecked 0x2,0x2
01ba e402 | | Load 0x2,0x2
01bb 7002 |p | Jump_Nonzero 0x1be
01bc e21b | | Load 0x1,0x1b
01bd 0257 | W | Execute Discrete,Raise
01be e402 | | Load 0x2,0x2
01bf 0aff | | Execute_Immediate Plus,-0x1
01c0 005b | [ | Store_Top Discrete,At_Offset_3
01c1 e402 | | Load 0x2,0x2
01c2 0a01 | | Execute_Immediate Plus,0x1
01c3 005a | Z | Store_Top Discrete,At_Offset_2
01c4 00d9 | | Load_Top At_Offset_1
01c5 e409 | | Load 0x2,0x9
01c6 e40a | | Load 0x2,0xa
01c7 e5ff | | Load 0x2,-0x1
01c8 01cf | | Execute Vector,Slice_Read
01c9 00e2 | | Load_Encached Integer_Cache
01ca 00e0 | | Load_Encached Standard_Cache
01cb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01cc 0273 | s | Execute Discrete,Plus
01cd 0aff | | Execute_Immediate Plus,-0x1
01ce 0059 | Y | Store_Top Discrete,At_Offset_1
01cf 00d8 | | Load_Top At_Offset_0
01d0 0a01 | | Execute_Immediate Plus,0x1
01d1 e5ff | | Load 0x2,-0x1
01d2 01d7 | | Execute Vector,Field_Read
01d3 0e29 | ) | Execute_Immediate Not_Equal,0x29
01d4 6802 |h | Jump_Zero 0x1d7
01d5 e21b | | Load 0x1,0x1b
01d6 0257 | W | Execute Discrete,Raise
01d7 00d9 | | Load_Top At_Offset_1
01d8 00d9 | | Load_Top At_Offset_1
01d9 e5ff | | Load 0x2,-0x1
01da 01cf | | Execute Vector,Slice_Read
01db e405 | | Load 0x2,0x5
01dc e406 | | Load 0x2,0x6
01dd e5ff | | Load 0x2,-0x1
01de 01cf | | Execute Vector,Slice_Read
01df e407 | | Load 0x2,0x7
01e0 e408 | | Load 0x2,0x8
01e1 e5ff | | Load 0x2,-0x1
01e2 01cf | | Execute Vector,Slice_Read
01e3 e20d | | Load 0x1,0xd
01e4 1c02 | | Execute_Immediate Run_Utility,0x2
01e5 e403 | | Load 0x2,0x3
01e6 e404 | | Load 0x2,0x4
01e7 e5ff | | Load 0x2,-0x1
01e8 01cf | | Execute Vector,Slice_Read
01e9 820f | | Call 0x1,0xf
01ea e5fe | | Load 0x2,-0x2
01eb 017d | } | Execute Record,Structure_Write
01ec 00d8 | | Load_Top At_Offset_0
01ed 0a01 | | Execute_Immediate Plus,0x1
01ee c5fd | | Store 0x2,-0x3
01ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f0 TRAP_0150:
01f0 0007 | | Action Break_Optional
01f1 e21b | | Load 0x1,0x1b
01f2 0257 | W | Execute Discrete,Raise
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4601 |F | Jump_Case 0x2
01fc 7801 |x | Jump 0x1fe ; case 0x0
01fd 7813 |x | Jump 0x211 ; case 0x1
01fe 00da | | Load_Top At_Offset_2
01ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0200 0125 | % | Execute Any,Set_Constraint
0201 00da | | Load_Top At_Offset_2
0202 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0203 1c00 | | Execute_Immediate Run_Utility,0x0
0204 00da | | Load_Top At_Offset_2
0205 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0206 0125 | % | Execute Any,Set_Constraint
0207 00da | | Load_Top At_Offset_2
0208 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0209 1c00 | | Execute_Immediate Run_Utility,0x0
020a 00da | | Load_Top At_Offset_2
020b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
020c 0125 | % | Execute Any,Set_Constraint
020d 00da | | Load_Top At_Offset_2
020e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0211 00da | | Load_Top At_Offset_2
0212 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0213 0125 | % | Execute Any,Set_Constraint
0214 00da | | Load_Top At_Offset_2
0215 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0216 0125 | % | Execute Any,Set_Constraint
0217 00da | | Load_Top At_Offset_2
0218 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0219 0125 | % | Execute Any,Set_Constraint
021a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
021b ; --------------------------------------------------------------------------------------
021b ; STRING TABLE
021b ; --------------------------------------------------------------------------------------
021b 0010 | | .STRTAB 0x0010->0x0223 ; "MODE_IN"
021c 0015 | | .STRTAB 0x0015->0x0226 ; "MODE_OUT"
021d 001b | | .STRTAB 0x001b->0x022a ; "MODE_IN_OUT"
021e 0024 | $ | .STRTAB 0x0024->0x0230 ; "(name=>"
021f 0029 | ) | .STRTAB 0x0029->0x0233 ; ",class=>"
0220 002f | / | .STRTAB 0x002f->0x0237 ; ",mode=>"
0221 0034 | 4 | .STRTAB 0x0034->0x023b ; ",value=>"
0222 003a | : | .STREND 0x003a->0x023f
0223 4d4f 4445 |MODE| .STRTAB_STRINGS
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0004 0002 | | .DEBUG4 0x0004,0x0002,0xcb95,0x0000,0x0001,0x0000
0246 0000 0000 | | .XXX[0x48]
0248 0cc9 7404 | t |
024a 8030 0003 | 0 |
024c f101 c013 | |
024e 0000 00b1 | |
0250 000b 8804 | |
0252 0000 0100 | |
0254 000a 5cf1 | \ |
0256 0000 108e | |
0258 000a 5cf1 | \ |
025a 0000 0080 | |
025c 000a 64f1 | d |
025e 0000 0000 | |
0260 003f f038 | ? 8|
0262 0000 4380 | C |
0264 0000 0000 | |
0266 0000 0001 | |
0268 26b0 0060 |& `|
026a fe0a 8001 | |
026c 000a 64f1 | d |
026e 0000 0020 | |
0270 26b0 0060 |& `|
0272 fe0a 8001 | |
0274 000a 64f1 | d |
0276 07ff ffa0 | |
0278 0000 0000 | |
027a 8000 0001 | |
027c 0000 0000 | |
027e 0000 000e | |
0280 003f f038 | ? 8|
0282 7000 4390 |p C |
0284 0000 0000 | |
0286 000a 64f1 | d |
0288 000a 50f1 | P |
028a 0000 0021 | !|
028c 0000 0282 | |
028e 0000 0000 | | .BLANK 0000[0x4]
0292 8000 11a9 | | .XXX[0x2]
0294 0000 0000 | | .BLANK 0000[0x4]
0298 0bd0 c6e7 | | .XXX[0x6c]
029a cd56 cd56 | V V|
029c 3970 c61c |9p |
029e fd7d fd7d | } }|
02a0 c66a 3dcf | j= |
02a2 3dd7 f95e |= ^|
02a4 4681 cae3 |F |
02a6 3849 3972 |8I9r|
02a8 f795 f537 | 7|
02aa 5627 3797 |V'7 |
02ac 3746 56d0 |7FV |
02ae 0000 02c0 | |
02b0 0000 0122 | "|
02b2 1436 f6d6 | 6 |
02b4 d616 e647 | G|
02b6 32e4 36d7 |2 6 |
02b8 6632 e446 |f2 F|
02ba 5660 0000 |V` |
02bc 07e0 0000 | |
02be 0272 1436 | r 6|
02c0 f6d6 d616 | |
02c2 e647 32e4 | G2 |
02c4 36d7 6632 |6 f2|
02c6 e437 2656 | 7&V|
02c8 1746 55f4 | FU |
02ca 56d7 0747 |V G|
02cc 95f4 e6f7 | |
02ce 4655 f576 |FU v|
02d0 96e6 46f7 | F |
02d2 7000 0007 |p |
02d4 5000 0001 |P |
02d6 3214 36f6 |2 6 |
02d8 d6d6 16e6 | |
02da 4732 e436 |G2 6|
02dc d766 32e4 | f2 |
02de 36f7 0790 |6 |
02e0 0000 00b0 | |
02e2 0000 0162 | b|
02e4 1436 f6d6 | 6 |
02e6 d616 e647 | G|
02e8 32e4 36d7 |2 6 |
02ea 6632 e436 |f2 6|
02ec f6d7 0617 | |
02ee 2650 0000 |&P |
02f0 0760 0000 | ` |
02f2 0182 1436 | 6|
02f4 f6d6 d616 | |
02f6 e647 32e4 | G2 |
02f8 36d7 6632 |6 f2|
02fa e436 8656 | 6 V|
02fc 36b5 f4f7 |6 |
02fe 5740 0000 |W@ |
0300 000b 8804 | |
0302 0000 0158 | X|
0304 0000 0000 | | .BLANK 0000[0xa]
030e 0036 0b34 | 6 4| .XXX[0x2]
0310 0000 0000 | | .BLANK 0000[0x7]
0317 03e0 000a | | .XXX[0x5]
0319 44f1 0000 |D |
031b 0acc | |
031c 0000 0000 | | .BLANK 0000[0x4]
0320 000a 44f1 | D | .XXX[0x4]
0322 0800 0138 | 8|
0324 0000 0000 | | .BLANK 0000[0x4]
0328 0001 ac04 | | .XXX[0x4]
032a 0000 0358 | X|
032c 0000 0000 | | .BLANK 0000[0x5]
0331 0242 1436 | B 6| .XXX[0xb7]
0333 f6d6 d616 | |
0335 e647 32e4 | G2 |
0337 36d7 6632 |6 f2|
0339 e416 3636 | 66|
033b 5707 45f4 |W E |
033d 3686 16e6 |6 |
033f 7657 35f4 |vW5 |
0341 5666 66f7 |Vff |
0343 2740 0000 |'@ |
0345 0220 0000 | |
0347 01d2 1436 | 6|
0349 f6d6 d616 | |
034b e647 32e4 | G2 |
034d 36d7 6632 |6 f2|
034f e416 3636 | 66|
0351 5707 45f4 |W E |
0353 3686 16e6 |6 |
0355 7657 3000 |vW0 |
0357 0006 8000 | |
0359 0002 2214 | " |
035b 36f6 d6d6 |6 |
035d 16e6 4732 | G2|
035f e436 d766 | 6 f|
0361 32e4 1626 |2 &|
0363 16e6 46f6 | F |
0365 e5f5 2657 | &W|
0367 3657 2766 |6W'f|
0369 1746 96f6 | F |
036b e000 0006 | |
036d e000 0000 | |
036f e214 36f6 | 6 |
0371 d6d6 16e6 | |
0373 4732 e436 |G2 6|
0375 d766 3000 | f0 |
0377 0005 d000 | |
0379 0001 8214 | |
037b 36f6 d6d6 |6 |
037d 16e6 4732 | G2|
037f e417 2636 | &6|
0381 8697 6652 | fR|
0383 e537 4617 | 7F |
0385 4757 3000 |GW0 |
0387 0001 b000 | |
0389 0001 8214 | |
038b 36f6 d6d6 |6 |
038d 16e6 4732 | G2|
038f e417 2636 | &6|
0391 8697 6652 | fR|
0393 e536 5727 | 6W'|
0395 6657 2000 |fW |
0397 0001 d000 | |
0399 0001 6214 | b |
039b 36f6 d6d6 |6 |
039d 16e6 4732 | G2|
039f e417 2636 | &6|
03a1 8697 6652 | fR|
03a3 e536 1766 | 6 f|
03a5 5000 0002 |P |
03a7 0000 0001 | |
03a9 9214 36f6 | 6 |
03ab d6d6 16e6 | |
03ad 4732 e417 |G2 |
03af 2636 8697 |&6 |
03b1 6652 e526 |fR &|
03b3 5737 46f7 |W7F |
03b5 2650 0000 |&P |
03b7 01a0 0000 | |
03b9 0162 1436 | b 6|
03bb f6d6 d616 | |
03bd e647 32e4 | G2 |
03bf 1726 3686 | &6 |
03c1 9766 52e4 | fR |
03c3 c697 3740 | 7@|
03c5 0000 06a0 | |
03c7 0000 0162 | b|
03c9 1436 f6d6 | 6 |
03cb d616 e647 | G|
03cd 32e4 1726 |2 &|
03cf 3686 9766 |6 f|
03d1 52e4 36f7 |R 6 |
03d3 0790 0000 | |
03d5 00c0 0000 | |
03d7 0112 1436 | 6|
03d9 f6d6 d616 | |
03db e647 32e4 | G2 |
03dd 1726 3686 | &6 |
03df 9766 5000 | fP |
03e1 0000 9000 | |
03e3 0001 6214 | b |
03e5 36f6 d6d6 |6 |
03e7 16e6 | |
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 0028 c3e9 | ( | .XXX[0x14]
03ee 02b6 4004 | @ |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0028 c3e9 | ( |
03f6 02b6 5260 | R`|
03f8 ff4e 001e | N |
03fa 0000 0001 | |
03fc 0000 0000 | |
03fe 0000 000e | |