|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0258 | X | .CONST 0x0258 ; 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 0078 | x | .CONST 0x0078 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0019 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
001b 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
001d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0021 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0023 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0025 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0027 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0029 e002 | | Load 0x0,0x2
002a 0129 | ) | Execute Any,Make_Visible
002b 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
002d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002f 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0031 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0033 0093 0000 | | push_full_address 0x0
0035 605e |`^ | Indirect_Literal Discrete,0x94,{0x80000000, 0x00010000}
0036 0273 | s | Execute Discrete,Plus
0037 e003 | | Load 0x0,0x3
0038 0273 | s | Execute Discrete,Plus
0039 e004 | | Load 0x0,0x4
003a 0273 | s | Execute Discrete,Plus
003b e005 | | Load 0x0,0x5
003c 0386 | | Declare_Variable Package,Visible
003d 00d8 | | Load_Top At_Offset_0
003e 020f | | Execute Module,Activate
003f e006 | | Load 0x0,0x6
0040 00d9 | | Load_Top At_Offset_1
0041 0098 | | Execute Package,Field_Read_Dynamic
0042 e007 | | Load 0x0,0x7
0043 e008 | | Load 0x0,0x8
0044 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0045 00e1 | | Load_Encached Boolean_Cache
0046 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0048 4804 |H | Short_Literal 0x4
0049 032e | . | Declare_Type Record,Defined,Visible
004a e009 | | Load 0x0,0x9
004b 00da | | Load_Top At_Offset_2
004c 0098 | | Execute Package,Field_Read_Dynamic
004d e007 | | Load 0x0,0x7
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4802 |H | Short_Literal 0x2
0050 032e | . | Declare_Type Record,Defined,Visible
0051 00bf | | Action Accept_Activation
0052 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0053 00c7 | | Action Elaborate_Subprogram
0054 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0055 00c7 | | Action Elaborate_Subprogram
0056 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0057 00c7 | | Action Elaborate_Subprogram
0058 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0059 00c7 | | Action Elaborate_Subprogram
005a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005b 00c7 | | Action Elaborate_Subprogram
005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005d 00c7 | | Action Elaborate_Subprogram
005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005f 00c7 | | Action Elaborate_Subprogram
0060 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0061 00c7 | | Action Elaborate_Subprogram
0062 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0063 00c7 | | Action Elaborate_Subprogram
0064 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0065 00c7 | | Action Elaborate_Subprogram
0066 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0067 00c7 | | Action Elaborate_Subprogram
0068 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0069 00c7 | | Action Elaborate_Subprogram
006a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0075 00c7 | | Action Elaborate_Subprogram
0076 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0077 00c7 | | Action Elaborate_Subprogram
0078 BODY_0008:
0078 00bc | | Action Signal_Activated
0079 00bb | | Action Signal_Completion
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0087 | | .CONST 0x0087 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e222 | " | Load 0x1,0x22
0084 0322 | " | Declare_Variable Record
0085 00d8 | | Load_Top At_Offset_0
0086 1c00 | | Execute_Immediate Run_Utility,0x0
0087 BODY_0080:
0087 00db | | Load_Top At_Offset_3
0088 e00a | | Load 0x0,0xa
0089 e221 | ! | Load 0x1,0x21
008a 0096 | | Execute Package,Entry
008b 00d9 | | Load_Top At_Offset_1
008c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008d 00db | | Load_Top At_Offset_3
008e 00d9 | | Load_Top At_Offset_1
008f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0090 00d8 | | Load_Top At_Offset_0
0091 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0092 0000 0000 | | .XXX[0x2]
0094 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a1 | | .CONST 0x00a1 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b e222 | " | Load 0x1,0x22
009c 0322 | " | Declare_Variable Record
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f e00b | | Load 0x0,0xb
00a0 0007 | | Action Break_Optional
00a1 BODY_0098:
00a1 e5fe | | Load 0x2,-0x2
00a2 820d | | Call 0x1,0xd
00a3 00da | | Load_Top At_Offset_2
00a4 017d | } | Execute Record,Structure_Write
00a5 e00b | | Load 0x0,0xb
00a6 e5ff | | Load 0x2,-0x1
00a7 800c | | Call 0x0,0xc
00a8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00a9 00cf | | Action Mark_Auxiliary
00aa 00d9 | | Load_Top At_Offset_1
00ab 800d | | Call 0x0,0xd
00ac 7012 |p | Jump_Nonzero 0xbf
00ad e5fb | | Load 0x2,-0x5
00ae e5fc | | Load 0x2,-0x4
00af e402 | | Load 0x2,0x2
00b0 e403 | | Load 0x2,0x3
00b1 800e | | Call 0x0,0xe
00b2 800f | | Call 0x0,0xf
00b3 e010 | | Load 0x0,0x10
00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00b6 8216 | | Call 0x1,0x16
00b7 00d1 | | Pop_Control Pop_Count_1
00b8 c5fc | | Store 0x2,-0x4
00b9 c5fb | | Store 0x2,-0x5
00ba 00d9 | | Load_Top At_Offset_1
00bb 8011 | | Call 0x0,0x11
00bc 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00bd 00c9 | | Action Pop_Auxiliary_Loop
00be 7feb | | Jump 0xaa
00bf 00ce | | Action Pop_Auxiliary
00c0 00d9 | | Load_Top At_Offset_1
00c1 e5fd | | Load 0x2,-0x3
00c2 017d | } | Execute Record,Structure_Write
00c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf | | .CONST 0x00cf ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e222 | " | Load 0x1,0x22
00cc 0322 | " | Declare_Variable Record
00cd 00d8 | | Load_Top At_Offset_0
00ce 1c00 | | Execute_Immediate Run_Utility,0x0
00cf BODY_00c8:
00cf e5fe | | Load 0x2,-0x2
00d0 00d9 | | Load_Top At_Offset_1
00d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00d2 e5fe | | Load 0x2,-0x2
00d3 e5ff | | Load 0x2,-0x1
00d4 e012 | | Load 0x0,0x12
00d5 e221 | ! | Load 0x1,0x21
00d6 0096 | | Execute Package,Entry
00d7 00d9 | | Load_Top At_Offset_1
00d8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d9 e5fd | | Load 0x2,-0x3
00da 00d9 | | Load_Top At_Offset_1
00db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00dc 4801 |H | Short_Literal 0x1
00dd 00d9 | | Load_Top At_Offset_1
00de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00df 00d8 | | Load_Top At_Offset_0
00e0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00e1 0000 0000 | | .BLANK 0000[0x7]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ed e006 | | Load 0x0,0x6
00ee e221 | ! | Load 0x1,0x21
00ef 0098 | | Execute Package,Field_Read_Dynamic
00f0 0216 | | Execute Heap_Access,Convert
00f1 e013 | | Load 0x0,0x13
00f2 e221 | ! | Load 0x1,0x21
00f3 0096 | | Execute Package,Entry
00f4 00db | | Load_Top At_Offset_3
00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f6 4501 |E | Exit_Suprogram 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 e5fe | | Load 0x2,-0x2
00fd 017f | | Execute Record,Equal
00fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ff 0000 | | .XXX[0x1]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0105 e014 | | Load 0x0,0x14
0106 e221 | ! | Load 0x1,0x21
0107 0096 | | Execute Package,Entry
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0115 e006 | | Load 0x0,0x6
0116 e221 | ! | Load 0x1,0x21
0117 0098 | | Execute Package,Field_Read_Dynamic
0118 0216 | | Execute Heap_Access,Convert
0119 e015 | | Load 0x0,0x15
011a e221 | ! | Load 0x1,0x21
011b 0096 | | Execute Package,Entry
011c 00db | | Load_Top At_Offset_3
011d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011f 0000 | | .XXX[0x1]
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 e5fd | | Load 0x2,-0x3
0125 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0126 e5fd | | Load 0x2,-0x3
0127 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0128 e006 | | Load 0x0,0x6
0129 e221 | ! | Load 0x1,0x21
012a 0098 | | Execute Package,Field_Read_Dynamic
012b 0216 | | Execute Heap_Access,Convert
012c e5fe | | Load 0x2,-0x2
012d e5ff | | Load 0x2,-0x1
012e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012f e016 | | Load 0x0,0x16
0130 e221 | ! | Load 0x1,0x21
0131 0096 | | Execute Package,Entry
0132 e5fd | | Load 0x2,-0x3
0133 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0134 00da | | Load_Top At_Offset_2
0135 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0136 680b |h | Jump_Zero 0x142
0137 e5fd | | Load 0x2,-0x3
0138 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0139 e5fe | | Load 0x2,-0x2
013a e5ff | | Load 0x2,-0x1
013b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013c 8017 | | Call 0x0,0x17
013d e5fd | | Load 0x2,-0x3
013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013f 4801 |H | Short_Literal 0x1
0140 e5fd | | Load 0x2,-0x3
0141 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0142 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d | M | .CONST 0x014d ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e223 | # | Load 0x1,0x23
014c 0322 | " | Declare_Variable Record
014d BODY_0148:
014d 00d8 | | Load_Top At_Offset_0
014e e5ff | | Load 0x2,-0x1
014f 8218 | | Call 0x1,0x18
0150 00d1 | | Pop_Control Pop_Count_1
0151 00cf | | Action Mark_Auxiliary
0152 780b |x | Jump 0x15e
0153 e5fe | | Load 0x2,-0x2
0154 00da | | Load_Top At_Offset_2
0155 821a | | Call 0x1,0x1a
0156 01df | | Execute Vector,Equal
0157 6802 |h | Jump_Zero 0x15a
0158 4801 |H | Short_Literal 0x1
0159 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015a 00d9 | | Load_Top At_Offset_1
015b 8219 | | Call 0x1,0x19
015c 00d1 | | Pop_Control Pop_Count_1
015d 00c9 | | Action Pop_Auxiliary_Loop
015e 00d9 | | Load_Top At_Offset_1
015f 821b | | Call 0x1,0x1b
0160 6ff2 |o | Jump_Zero 0x153
0161 00ce | | Action Pop_Auxiliary
0162 4800 |H | Short_Literal 0x0
0163 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0174 | t | .CONST 0x0174 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0004 | | .CONST 0x0004 ; Number of locals
016b INIT_0168:
016b 00e1 | | Load_Encached Boolean_Cache
016c 00e3 | | Load_Encached Natural_Cache
016d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
016e e018 | | Load 0x0,0x18
016f e5fe | | Load 0x2,-0x2
0170 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0171 e5ff | | Load 0x2,-0x1
0172 8019 | | Call 0x0,0x19
0173 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0174 BODY_0168:
0174 00e1 | | Load_Encached Boolean_Cache
0175 00da | | Load_Top At_Offset_2
0176 00da | | Load_Top At_Offset_2
0177 e5fd | | Load 0x2,-0x3
0178 801a | | Call 0x0,0x1a
0179 005b | [ | Store_Top Discrete,At_Offset_3
017a 005b | [ | Store_Top Discrete,At_Offset_3
017b 00da | | Load_Top At_Offset_2
017c 700a |p | Jump_Nonzero 0x187
017d e5fd | | Load 0x2,-0x3
017e e5fc | | Load 0x2,-0x4
017f 00da | | Load_Top At_Offset_2
0180 801b | | Call 0x0,0x1b
0181 c5fd | | Store 0x2,-0x3
0182 e5fc | | Load 0x2,-0x4
0183 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0184 e5fc | | Load 0x2,-0x4
0185 0a01 | | Execute_Immediate Plus,0x1
0186 c5fc | | Store 0x2,-0x4
0187 e5fe | | Load 0x2,-0x2
0188 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0189 e006 | | Load 0x0,0x6
018a e221 | ! | Load 0x1,0x21
018b 0098 | | Execute Package,Field_Read_Dynamic
018c 0216 | | Execute Heap_Access,Convert
018d 4820 |H | Short_Literal 0x20
018e 4800 |H | Short_Literal 0x0
018f 480a |H | Short_Literal 0xa
0190 e403 | | Load 0x2,0x3
0191 e01c | | Load 0x0,0x1c
0192 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0193 e01d | | Load 0x0,0x1d
0194 e221 | ! | Load 0x1,0x21
0195 0096 | | Execute Package,Entry
0196 e5fe | | Load 0x2,-0x2
0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00db | | Load_Top At_Offset_3
01a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a5 e006 | | Load 0x0,0x6
01a6 e221 | ! | Load 0x1,0x21
01a7 0098 | | Execute Package,Field_Read_Dynamic
01a8 0216 | | Execute Heap_Access,Convert
01a9 00db | | Load_Top At_Offset_3
01aa e01e | | Load 0x0,0x1e
01ab e221 | ! | Load 0x1,0x21
01ac 0096 | | Execute Package,Entry
01ad e5fe | | Load 0x2,-0x2
01ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01af 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 e009 | | Load 0x0,0x9
01b4 e221 | ! | Load 0x1,0x21
01b5 0098 | | Execute Package,Field_Read_Dynamic
01b6 00db | | Load_Top At_Offset_3
01b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b8 e01f | | Load 0x0,0x1f
01b9 e221 | ! | Load 0x1,0x21
01ba 0096 | | Execute Package,Entry
01bb e5fe | | Load 0x2,-0x2
01bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01bd 00da | | Load_Top At_Offset_2
01be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bf e5fe | | Load 0x2,-0x2
01c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cd e009 | | Load 0x0,0x9
01ce e221 | ! | Load 0x1,0x21
01cf 0098 | | Execute Package,Field_Read_Dynamic
01d0 0216 | | Execute Heap_Access,Convert
01d1 e020 | | Load 0x0,0x20
01d2 e221 | ! | Load 0x1,0x21
01d3 0096 | | Execute Package,Entry
01d4 00db | | Load_Top At_Offset_3
01d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e5 | | .CONST 0x01e5 ; Address of begin
01d9 0203 | | .CONST 0x0203 ; Address of exception handler
01da 0006 | | .CONST 0x0006 ; Number of locals
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01dd e021 | ! | Load 0x0,0x21
01de e221 | ! | Load 0x1,0x21
01df 0096 | | Execute Package,Entry
01e0 00e3 | | Load_Encached Natural_Cache
01e1 00e1 | | Load_Encached Boolean_Cache
01e2 00e1 | | Load_Encached Boolean_Cache
01e3 e018 | | Load 0x0,0x18
01e4 0007 | | Action Break_Optional
01e5 BODY_01d8:
01e5 00e1 | | Load_Encached Boolean_Cache
01e6 00e2 | | Load_Encached Integer_Cache
01e7 480a |H | Short_Literal 0xa
01e8 e402 | | Load 0x2,0x2
01e9 e01c | | Load 0x0,0x1c
01ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01eb c403 | | Store 0x2,0x3
01ec 005b | [ | Store_Top Discrete,At_Offset_3
01ed 00da | | Load_Top At_Offset_2
01ee 6812 |h | Jump_Zero 0x201
01ef 00e1 | | Load_Encached Boolean_Cache
01f0 00d9 | | Load_Top At_Offset_1
01f1 e403 | | Load 0x2,0x3
01f2 e5ff | | Load 0x2,-0x1
01f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f4 8022 | " | Call 0x0,0x22
01f5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f6 005a | Z | Store_Top Discrete,At_Offset_2
01f7 00d9 | | Load_Top At_Offset_1
01f8 6806 |h | Jump_Zero 0x1ff
01f9 480a |H | Short_Literal 0xa
01fa 00d9 | | Load_Top At_Offset_1
01fb 8023 | # | Call 0x0,0x23
01fc e01c | | Load 0x0,0x1c
01fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ff 00ea | | Load_Encached Null_String_Cache
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 00ea | | Load_Encached Null_String_Cache
0202 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0203 TRAP_01d8:
0203 0007 | | Action Break_Optional
0204 00ea | | Load_Encached Null_String_Cache
0205 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020d e024 | $ | Load 0x0,0x24
020e e221 | ! | Load 0x1,0x21
020f 0096 | | Execute Package,Entry
0210 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021d e025 | % | Load 0x0,0x25
021e e221 | ! | Load 0x1,0x21
021f 0096 | | Execute Package,Entry
0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c e026 | & | Load 0x0,0x26
022d e221 | ! | Load 0x1,0x21
022e 0096 | | Execute Package,Entry
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 e027 | ' | Load 0x0,0x27
0235 e221 | ! | Load 0x1,0x21
0236 0096 | | Execute Package,Entry
0237 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c e028 | ( | Load 0x0,0x28
023d e221 | ! | Load 0x1,0x21
023e 0098 | | Execute Package,Field_Read_Dynamic
023f 0216 | | Execute Heap_Access,Convert
0240 e029 | ) | Load 0x0,0x29
0241 e221 | ! | Load 0x1,0x21
0242 0096 | | Execute Package,Entry
0243 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0244 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4601 |F | Jump_Case 0x2
024c 7801 |x | Jump 0x24e ; case 0x0
024d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
024e 4800 |H | Short_Literal 0x0
024f 00db | | Load_Top At_Offset_3
0250 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0251 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug Table
0258 ; --------------------------------------------------------------------------------------
0258 0004 000a | | .DEBUG4 0x0004,0x000a,0x61bf,0x0000,0x0001,0x0000
025e 0000 0000 | | .BLANK 0000[0x1a2]