|
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_0230eb
└─⟦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 0200 | | .XXX[0x48]
0248 0cf5 a804 | |
024a 8000 1491 | |
024c 0000 0000 | |
024e 0000 00e4 | |
0250 0038 e804 | 8 |
0252 0000 3944 | 9D|
0254 9c7c 550a | |U |
0256 0006 7aaf | z |
0258 0007 fcf5 | |
025a 0000 0280 | |
025c 0008 04f5 | |
025e 0000 0000 | |
0260 1a06 8000 | |
0262 0000 5d80 | ] |
0264 0000 0000 | |
0266 0000 0001 | |
0268 0000 0000 | |
026a 0000 02bf | |
026c 0000 0000 | |
026e 0000 0001 | |
0270 0000 0000 | |
0272 fc00 0001 | |
0274 0008 04f5 | |
0276 0000 0180 | |
0278 0c01 6808 | h |
027a 0092 0a7a | z|
027c 0000 0000 | |
027e 0068 0000 | h |
0280 1a06 8000 | |
0282 0000 5d90 | ] |
0284 1c00 002b | +|
0286 6419 ec28 |d (|
0288 0007 fcf5 | |
028a 0000 0221 | !|
028c 0008 02c3 | |
028e 0000 0000 | | .BLANK 0000[0x5]
0293 0029 | ) | .XXX[0x1]
0294 0000 0000 | | .BLANK 0000[0x4]
0298 7013 cb25 |p %| .XXX[0x81]
029a c5b1 c5ee | |
029c fd3c fd3d | < =|
029e 3970 fadc |9p |
02a0 f970 c5ee | p |
02a2 d061 d05e | a ^|
02a4 231e 38b2 |# 8 |
02a6 9175 f841 | u A|
02a8 0000 0000 | |
02aa 0080 0004 | |
02ac 0000 0001 | |
02ae 8a00 0000 | |
02b0 8000 0040 | @|
02b2 8000 0000 | |
02b4 0200 0008 | |
02b6 0050 d0ca | P |
02b8 c2c8 cae4 | |
02ba 7a7c a48a |z| |
02bc a2aa 8aa6 | |
02be a858 9aca | X |
02c0 e6e6 be92 | |
02c2 c87a 7c40 | z|@|
02c4 6a6a 58a8 |jjX |
02c6 e4c2 dce6 | |
02c8 dad2 e8e8 | |
02ca cae4 7a7c | z||
02cc 4064 58a4 |@dX |
02ce cac6 cad2 | |
02d0 ecca e47a | z|
02d2 7c40 6258 ||@bX|
02d4 9ee4 c47a | z|
02d6 7c50 dcea ||P |
02d8 dac4 cae4 | |
02da 7a7c 4060 |z|@`|
02dc 5258 9aca |RX |
02de e8d0 dec8 | |
02e0 7a7c 50dc |z|P |
02e2 c2da ca7a | z|
02e4 7ca6 aaa0 || |
02e6 a098 b258 | X|
02e8 c6d8 c2e6 | |
02ea e67a 7ca6 | z| |
02ec aaa0 a098 | |
02ee 928a a458 | X|
02f0 e6d2 cedc | |
02f2 c2e8 eae4 | |
02f4 ca7a 7c50 | z|P|
02f6 dcea dac4 | |
02f8 cae4 7a7c | z||
02fa 4062 5850 |@bXP|
02fc dcc2 daca | |
02fe 7a7c a6aa |z| |
0300 0007 e4f5 | |
0302 0000 007f | |
0304 006a 480e | jH |
0306 0000 4172 | Ar|
0308 dcce 58da | X |
030a dec8 ca7a | z|
030c 7c9a 9e88 || |
030e 8abe 9eaa | |
0310 a858 ecc2 | X |
0312 d8ea ca7a | z|
0314 7cb6 4062 || @b|
0316 ba80 5252 | RR|
0318 5252 |RR |
0319 0000 0000 | | .BLANK 0000[0xd3]
03ec 0008 04f5 | | .XXX[0x14]
03ee 0000 0000 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0000 0000 | |
03f6 0000 0024 | $|
03f8 feee 0038 | 8|
03fa 0800 0001 | |
03fc 0000 0000 | |
03fe 0000 0008 | |