|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01f8 | | .CONST 0x01f8 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 4800 |H | Short_Literal 0x0
0013 481f |H | Short_Literal 0x1f
0014 00e8 | | Load_Encached Character_Cache
0015 03f8 | | Declare_Type Discrete,Constrained
0016 4800 |H | Short_Literal 0x0
0017 6034 |`4 | Indirect_Literal Discrete,0x4c,{0x00000000, 0x00000400}
0018 e001 | | Load 0x0,0x1
0019 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001a 035b | [ | Declare_Type Array,Constrained
001b e002 | | Load 0x0,0x2
001c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0022 00c7 | | Action Elaborate_Subprogram
0023 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call
0025 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
0027 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0029 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
002b 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
002d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002e 00c7 | | Action Elaborate_Subprogram
002f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0030 00c7 | | Action Elaborate_Subprogram
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0040 | @ | .CONST 0x0040 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b e002 | | Load 0x0,0x2
003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 BODY_0038:
0040 00d8 | | Load_Top At_Offset_0
0041 00ea | | Load_Encached Null_String_Cache
0042 e5ff | | Load 0x2,-0x1
0043 4801 |H | Short_Literal 0x1
0044 e002 | | Load 0x0,0x2
0045 180f | | Execute Package,Field_Execute,Field_Number 0xf
0046 c402 | | Store 0x2,0x2
0047 00d8 | | Load_Top At_Offset_0
0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0049 0000 0000 | | .XXX[0x3]
004b 0000 | |
004c 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005d | ] | .CONST 0x005d ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0006 | | .CONST 0x0006 ; Number of locals
0053 INIT_0050:
0053 e002 | | Load 0x0,0x2
0054 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0055 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0056 00e8 | | Load_Encached Character_Cache
0057 e211 | | Load 0x1,0x11
0058 0337 | 7 | Declare_Variable Array
0059 00e3 | | Load_Encached Natural_Cache
005a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005b 00e3 | | Load_Encached Natural_Cache
005c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005d BODY_0050:
005d e212 | | Load 0x1,0x12
005e e002 | | Load 0x0,0x2
005f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0060 180e | | Execute Package,Field_Execute,Field_Number 0xe
0061 c212 | | Store 0x1,0x12
0062 4800 |H | Short_Literal 0x0
0063 4800 |H | Short_Literal 0x0
0064 e404 | | Load 0x2,0x4
0065 01d6 | | Execute Vector,Field_Write
0066 00cf | | Action Mark_Auxiliary
0067 e002 | | Load 0x0,0x2
0068 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006a e212 | | Load 0x1,0x12
006b e002 | | Load 0x0,0x2
006c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
006d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006e c402 | | Store 0x2,0x2
006f e402 | | Load 0x2,0x2
0070 8217 | | Call 0x1,0x17
0071 a403 | | Store_Unchecked 0x2,0x3
0072 e403 | | Load 0x2,0x3
0073 6814 |h | Jump_Zero 0x88
0074 00d9 | | Load_Top At_Offset_1
0075 00db | | Load_Top At_Offset_3
0076 e404 | | Load 0x2,0x4
0077 01d7 | | Execute Vector,Field_Read
0078 00d8 | | Load_Top At_Offset_0
0079 00e8 | | Load_Encached Character_Cache
007a 0260 | ` | Execute Discrete,In_Type
007b 7001 |p | Jump_Nonzero 0x7d
007c 0801 | | Execute_Immediate Raise,0x1
007d e403 | | Load 0x2,0x3
007e e5ff | | Load 0x2,-0x1
007f 8214 | | Call 0x1,0x14
0080 005a | Z | Store_Top Discrete,At_Offset_2
0081 00da | | Load_Top At_Offset_2
0082 e404 | | Load 0x2,0x4
0083 e5fe | | Load 0x2,-0x2
0084 e403 | | Load 0x2,0x3
0085 8216 | | Call 0x1,0x16
0086 00d1 | | Pop_Control Pop_Count_1
0087 005b | [ | Store_Top Discrete,At_Offset_3
0088 00c9 | | Action Pop_Auxiliary_Loop
0089 7fdd | | Jump 0x67
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 009a | | .CONST 0x009a ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e212 | | Load 0x1,0x12
0094 4800 |H | Short_Literal 0x0
0095 e002 | | Load 0x0,0x2
0096 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0097 180f | | Execute Package,Field_Execute,Field_Number 0xf
0098 c212 | | Store 0x1,0x12
0099 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009a TRAP_0090:
009a 0007 | | Action Break_Optional
009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8 | | .CONST 0x00a8 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 4801 |H | Short_Literal 0x1
00a4 4801 |H | Short_Literal 0x1
00a5 00e9 | | Load_Encached String_Cache
00a6 035b | [ | Declare_Type Array,Constrained
00a7 0337 | 7 | Declare_Variable Array
00a8 BODY_00a0:
00a8 00db | | Load_Top At_Offset_3
00a9 4801 |H | Short_Literal 0x1
00aa 00da | | Load_Top At_Offset_2
00ab 01d6 | | Execute Vector,Field_Write
00ac 00d8 | | Load_Top At_Offset_0
00ad 00e9 | | Load_Encached String_Cache
00ae 01c6 | | Execute Vector,Convert_To_Formal
00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00db | | Load_Top At_Offset_3
00b4 e210 | | Load 0x1,0x10
00b5 0260 | ` | Execute Discrete,In_Type
00b6 686d |hm | Jump_Zero 0x124
00b7 00db | | Load_Top At_Offset_3
00b8 00d8 | | Load_Top At_Offset_0
00b9 0c16 | | Execute_Immediate Greater_Equal,0x16
00ba 7028 |p( | Jump_Nonzero 0xe3
00bb 4615 |F | Jump_Case 0x16
00bc 7827 |x' | Jump 0xe4 ; case 0x0
00bd 7826 |x& | Jump 0xe4 ; case 0x1
00be 7825 |x% | Jump 0xe4 ; case 0x2
00bf 7824 |x$ | Jump 0xe4 ; case 0x3
00c0 7823 |x# | Jump 0xe4 ; case 0x4
00c1 7822 |x" | Jump 0xe4 ; case 0x5
00c2 7821 |x! | Jump 0xe4 ; case 0x6
00c3 7820 |x | Jump 0xe4 ; case 0x7
00c4 783d |x= | Jump 0x102 ; case 0x8
00c5 781e |x | Jump 0xe4 ; case 0x9
00c6 7834 |x4 | Jump 0xfb ; case 0xa
00c7 781c |x | Jump 0xe4 ; case 0xb
00c8 781b |x | Jump 0xe4 ; case 0xc
00c9 7831 |x1 | Jump 0xfb ; case 0xd
00ca 7819 |x | Jump 0xe4 ; case 0xe
00cb 7818 |x | Jump 0xe4 ; case 0xf
00cc 7835 |x5 | Jump 0x102 ; case 0x10
00cd 7816 |x | Jump 0xe4 ; case 0x11
00ce 7815 |x | Jump 0xe4 ; case 0x12
00cf 7814 |x | Jump 0xe4 ; case 0x13
00d0 7813 |x | Jump 0xe4 ; case 0x14
00d1 7800 |x | Jump 0xd2 ; case 0x15
00d2 e5fc | | Load 0x2,-0x4
00d3 0c01 | | Execute_Immediate Greater_Equal,0x1
00d4 680b |h | Jump_Zero 0xe0
00d5 4800 |H | Short_Literal 0x0
00d6 e5fc | | Load 0x2,-0x4
00d7 0275 | u | Execute Discrete,Unary_Minus
00d8 4800 |H | Short_Literal 0x0
00d9 e5ff | | Load 0x2,-0x1
00da e002 | | Load 0x0,0x2
00db 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00dc e5fc | | Load 0x2,-0x4
00dd 00db | | Load_Top At_Offset_3
00de e002 | | Load 0x0,0x2
00df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00e0 4800 |H | Short_Literal 0x0
00e1 a5fc | | Store_Unchecked 0x2,-0x4
00e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e3 00d1 | | Pop_Control Pop_Count_1
00e4 4802 |H | Short_Literal 0x2
00e5 e002 | | Load 0x0,0x2
00e6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00e7 e5fe | | Load 0x2,-0x2
00e8 00d8 | | Load_Top At_Offset_0
00e9 e210 | | Load 0x1,0x10
00ea 0260 | ` | Execute Discrete,In_Type
00eb 7001 |p | Jump_Nonzero 0xed
00ec 0801 | | Execute_Immediate Raise,0x1
00ed 8213 | | Call 0x1,0x13
00ee e5ff | | Load 0x2,-0x1
00ef e002 | | Load 0x0,0x2
00f0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00f1 e5fc | | Load 0x2,-0x4
00f2 0a01 | | Execute_Immediate Plus,0x1
00f3 c5fc | | Store 0x2,-0x4
00f4 4800 |H | Short_Literal 0x0
00f5 4800 |H | Short_Literal 0x0
00f6 4800 |H | Short_Literal 0x0
00f7 e5ff | | Load 0x2,-0x1
00f8 e002 | | Load 0x0,0x2
00f9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00fb 4801 |H | Short_Literal 0x1
00fc 00db | | Load_Top At_Offset_3
00fd e002 | | Load 0x0,0x2
00fe 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00ff 4800 |H | Short_Literal 0x0
0100 a5fc | | Store_Unchecked 0x2,-0x4
0101 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0102 e5fd | | Load 0x2,-0x3
0103 681f |h | Jump_Zero 0x123
0104 e5fd | | Load 0x2,-0x3
0105 e210 | | Load 0x1,0x10
0106 0260 | ` | Execute Discrete,In_Type
0107 680e |h | Jump_Zero 0x116
0108 4800 |H | Short_Literal 0x0
0109 4fff |O | Short_Literal -0x1
010a 4800 |H | Short_Literal 0x0
010b e5ff | | Load 0x2,-0x1
010c e002 | | Load 0x0,0x2
010d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
010e 4801 |H | Short_Literal 0x1
010f 00db | | Load_Top At_Offset_3
0110 e002 | | Load 0x0,0x2
0111 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0112 e5fc | | Load 0x2,-0x4
0113 0aff | | Execute_Immediate Plus,-0x1
0114 c5fc | | Store 0x2,-0x4
0115 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0116 4800 |H | Short_Literal 0x0
0117 4fff |O | Short_Literal -0x1
0118 4800 |H | Short_Literal 0x0
0119 e5ff | | Load 0x2,-0x1
011a e002 | | Load 0x0,0x2
011b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
011c 4801 |H | Short_Literal 0x1
011d 00db | | Load_Top At_Offset_3
011e e002 | | Load 0x0,0x2
011f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0120 e5fc | | Load 0x2,-0x4
0121 0aff | | Execute_Immediate Plus,-0x1
0122 c5fc | | Store 0x2,-0x4
0123 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0124 4802 |H | Short_Literal 0x2
0125 e002 | | Load 0x0,0x2
0126 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0127 e5fe | | Load 0x2,-0x2
0128 e5ff | | Load 0x2,-0x1
0129 e002 | | Load 0x0,0x2
012a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
012b e5fc | | Load 0x2,-0x4
012c 0a01 | | Execute_Immediate Plus,0x1
012d c5fc | | Store 0x2,-0x4
012e 4800 |H | Short_Literal 0x0
012f 4800 |H | Short_Literal 0x0
0130 4800 |H | Short_Literal 0x0
0131 e5ff | | Load 0x2,-0x1
0132 e002 | | Load 0x0,0x2
0133 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0134 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 6803 |h | Jump_Zero 0x140
013d e003 | | Load 0x0,0x3
013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013f 0257 | W | Execute Discrete,Raise
0140 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0141 0000 0000 | | .BLANK 0000[0x7]
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 e004 | | Load 0x0,0x4
014c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014d BODY_0148:
014d 00db | | Load_Top At_Offset_3
014e 00d8 | | Load_Top At_Offset_0
014f 0c16 | | Execute_Immediate Greater_Equal,0x16
0150 701a |p | Jump_Nonzero 0x16b
0151 4615 |F | Jump_Case 0x16
0152 7819 |x | Jump 0x16c ; case 0x0
0153 7818 |x | Jump 0x16c ; case 0x1
0154 7817 |x | Jump 0x16c ; case 0x2
0155 7816 |x | Jump 0x16c ; case 0x3
0156 7815 |x | Jump 0x16c ; case 0x4
0157 7814 |x | Jump 0x16c ; case 0x5
0158 7813 |x | Jump 0x16c ; case 0x6
0159 7812 |x | Jump 0x16c ; case 0x7
015a 7835 |x5 | Jump 0x190 ; case 0x8
015b 7810 |x | Jump 0x16c ; case 0x9
015c 783a |x: | Jump 0x197 ; case 0xa
015d 780e |x | Jump 0x16c ; case 0xb
015e 780d |x | Jump 0x16c ; case 0xc
015f 7837 |x7 | Jump 0x197 ; case 0xd
0160 780b |x | Jump 0x16c ; case 0xe
0161 780a |x | Jump 0x16c ; case 0xf
0162 782d |x- | Jump 0x190 ; case 0x10
0163 7808 |x | Jump 0x16c ; case 0x11
0164 7807 |x | Jump 0x16c ; case 0x12
0165 7806 |x | Jump 0x16c ; case 0x13
0166 7805 |x | Jump 0x16c ; case 0x14
0167 7800 |x | Jump 0x168 ; case 0x15
0168 4800 |H | Short_Literal 0x0
0169 a5fc | | Store_Unchecked 0x2,-0x4
016a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016b 00d1 | | Pop_Control Pop_Count_1
016c e5fc | | Load 0x2,-0x4
016d 0a01 | | Execute_Immediate Plus,0x1
016e c5fc | | Store 0x2,-0x4
016f e5fc | | Load 0x2,-0x4
0170 6043 |`C | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x00000400}
0171 027f | | Execute Discrete,Equal
0172 6812 |h | Jump_Zero 0x185
0173 480a |H | Short_Literal 0xa
0174 e5fc | | Load 0x2,-0x4
0175 e5fd | | Load 0x2,-0x3
0176 01d6 | | Execute Vector,Field_Write
0177 e004 | | Load 0x0,0x4
0178 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0179 4801 |H | Short_Literal 0x1
017a e5fc | | Load 0x2,-0x4
017b e5fd | | Load 0x2,-0x3
017c 01cf | | Execute Vector,Slice_Read
017d e5fe | | Load 0x2,-0x2
017e e003 | | Load 0x0,0x3
017f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0180 0059 | Y | Store_Top Discrete,At_Offset_1
0181 00d8 | | Load_Top At_Offset_0
0182 8215 | | Call 0x1,0x15
0183 4801 |H | Short_Literal 0x1
0184 a5fc | | Store_Unchecked 0x2,-0x4
0185 00db | | Load_Top At_Offset_3
0186 00d8 | | Load_Top At_Offset_0
0187 e005 | | Load 0x0,0x5
0188 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0189 0260 | ` | Execute Discrete,In_Type
018a 7001 |p | Jump_Nonzero 0x18c
018b 0801 | | Execute_Immediate Raise,0x1
018c e5fc | | Load 0x2,-0x4
018d e5fd | | Load 0x2,-0x3
018e 01d6 | | Execute Vector,Field_Write
018f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0190 e5fc | | Load 0x2,-0x4
0191 0c01 | | Execute_Immediate Greater_Equal,0x1
0192 6803 |h | Jump_Zero 0x196
0193 e5fc | | Load 0x2,-0x4
0194 0aff | | Execute_Immediate Plus,-0x1
0195 c5fc | | Store 0x2,-0x4
0196 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0197 480a |H | Short_Literal 0xa
0198 e5fc | | Load 0x2,-0x4
0199 0a01 | | Execute_Immediate Plus,0x1
019a e5fd | | Load 0x2,-0x3
019b 01d6 | | Execute Vector,Field_Write
019c e004 | | Load 0x0,0x4
019d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
019e 4801 |H | Short_Literal 0x1
019f e5fc | | Load 0x2,-0x4
01a0 0a01 | | Execute_Immediate Plus,0x1
01a1 00d8 | | Load_Top At_Offset_0
01a2 00e2 | | Load_Encached Integer_Cache
01a3 0260 | ` | Execute Discrete,In_Type
01a4 7001 |p | Jump_Nonzero 0x1a6
01a5 0801 | | Execute_Immediate Raise,0x1
01a6 e5fd | | Load 0x2,-0x3
01a7 01cf | | Execute Vector,Slice_Read
01a8 e5fe | | Load 0x2,-0x2
01a9 e003 | | Load 0x0,0x3
01aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ab 0059 | Y | Store_Top Discrete,At_Offset_1
01ac 00d8 | | Load_Top At_Offset_0
01ad 8215 | | Call 0x1,0x15
01ae 4800 |H | Short_Literal 0x0
01af a5fc | | Store_Unchecked 0x2,-0x4
01b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b1 0000 0000 | | .XXX[0x3]
01b3 0000 | |
01b4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc e002 | | Load 0x0,0x2
01bd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01be 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01bf 0260 | ` | Execute Discrete,In_Type
01c0 680d |h | Jump_Zero 0x1ce
01c1 00da | | Load_Top At_Offset_2
01c2 e002 | | Load 0x0,0x2
01c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01c5 00d9 | | Load_Top At_Offset_1
01c6 00d0 | | Action Swap_Control
01c7 0260 | ` | Execute Discrete,In_Type
01c8 7001 |p | Jump_Nonzero 0x1ca
01c9 0801 | | Execute_Immediate Raise,0x1
01ca e002 | | Load 0x0,0x2
01cb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01cc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 00da | | Load_Top At_Offset_2
01cf e006 | | Load 0x0,0x6
01d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d1 027f | | Execute Discrete,Equal
01d2 6802 |h | Jump_Zero 0x1d5
01d3 480d |H | Short_Literal 0xd
01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d5 00da | | Load_Top At_Offset_2
01d6 e006 | | Load 0x0,0x6
01d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d8 027f | | Execute Discrete,Equal
01d9 6802 |h | Jump_Zero 0x1dc
01da 480a |H | Short_Literal 0xa
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 00da | | Load_Top At_Offset_2
01dd e006 | | Load 0x0,0x6
01de 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01df 027f | | Execute Discrete,Equal
01e0 6802 |h | Jump_Zero 0x1e3
01e1 4808 |H | Short_Literal 0x8
01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e3 00da | | Load_Top At_Offset_2
01e4 e006 | | Load 0x0,0x6
01e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e6 027f | | Execute Discrete,Equal
01e7 6802 |h | Jump_Zero 0x1ea
01e8 4810 |H | Short_Literal 0x10
01e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ea 00da | | Load_Top At_Offset_2
01eb e006 | | Load 0x0,0x6
01ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ed 027f | | Execute Discrete,Equal
01ee 6802 |h | Jump_Zero 0x1f1
01ef 481b |H | Short_Literal 0x1b
01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f1 4800 |H | Short_Literal 0x0
01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 000a | | .DEBUG4 0x0004,0x000a,0xf534,0x0000,0x0001,0x0000
01fe 1000 0000 | | .XXX[0x2]