|
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_5850da
└─⟦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 01d8 | | .CONST 0x01d8 ; 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 006e | n | .CONST 0x006e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 0129 | ) | Execute Any,Make_Visible
000f 029c 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0017 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0019 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
002e c220 | | Store 0x1,0x20
002f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0031 c21d | | Store 0x1,0x1d
0032 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0034 c21e | | Store 0x1,0x1e
0035 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0037 c221 | ! | Store 0x1,0x21
0038 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
003a c216 | | Store 0x1,0x16
003b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
003d c222 | " | Store 0x1,0x22
003e 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0040 c218 | | Store 0x1,0x18
0041 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0043 c223 | # | Store 0x1,0x23
0044 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0046 c21a | | Store 0x1,0x1a
0047 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0049 c21f | | Store 0x1,0x1f
004a 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
004c c224 | $ | Store 0x1,0x24
004d 00bf | | Action Accept_Activation
004e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004f 00c7 | | Action Elaborate_Subprogram
0050 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0051 00c7 | | Action Elaborate_Subprogram
0052 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0053 00c7 | | Action Elaborate_Subprogram
0054 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0055 00c7 | | Action Elaborate_Subprogram
0056 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0057 00c7 | | Action Elaborate_Subprogram
0058 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
005d 00c7 | | Action Elaborate_Subprogram
005e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
005f 00c7 | | Action Elaborate_Subprogram
0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0061 00c7 | | Action Elaborate_Subprogram
0062 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0063 00c7 | | Action Elaborate_Subprogram
0064 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0065 00c7 | | Action Elaborate_Subprogram
0066 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
006b 00c7 | | Action Elaborate_Subprogram
006c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
006d 00c7 | | Action Elaborate_Subprogram
006e BODY_0008:
006e 00bc | | Action Signal_Activated
006f 00bb | | Action Signal_Completion
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4803 |H | Short_Literal 0x3
0074 00ca | | Action Exit_Nullary_Function
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00db | | Load_Top At_Offset_3
007c 00db | | Load_Top At_Offset_3
007d e002 | | Load 0x0,0x2
007e 180f | | Execute Package,Field_Execute,Field_Number 0xf
007f e003 | | Load 0x0,0x3
0080 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0081 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00db | | Load_Top At_Offset_3
008c 00db | | Load_Top At_Offset_3
008d e002 | | Load 0x0,0x2
008e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008f e003 | | Load 0x0,0x3
0090 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0091 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0092 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
009c 00db | | Load_Top At_Offset_3
009d e002 | | Load 0x0,0x2
009e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009f e003 | | Load 0x0,0x3
00a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3
00ac 00db | | Load_Top At_Offset_3
00ad e002 | | Load 0x0,0x2
00ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00af e003 | | Load 0x0,0x3
00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3
00bc 00db | | Load_Top At_Offset_3
00bd e004 | | Load 0x0,0x4
00be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00bf e002 | | Load 0x0,0x2
00c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c1 e003 | | Load 0x0,0x3
00c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00db | | Load_Top At_Offset_3
00cc 00db | | Load_Top At_Offset_3
00cd e002 | | Load 0x0,0x2
00ce 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00cf e003 | | Load 0x0,0x3
00d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d2 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3
00dc e5fe | | Load 0x2,-0x2
00dd e5ff | | Load 0x2,-0x1
00de e002 | | Load 0x0,0x2
00df 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00e0 e003 | | Load 0x0,0x3
00e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00e3 0000 0000 | | .BLANK 0000[0x5]
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 e5fd | | Load 0x2,-0x3
00ec e5fe | | Load 0x2,-0x2
00ed e5ff | | Load 0x2,-0x1
00ee e004 | | Load 0x0,0x4
00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f0 e002 | | Load 0x0,0x2
00f1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f2 e003 | | Load 0x0,0x3
00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc 00db | | Load_Top At_Offset_3
00fd e002 | | Load 0x0,0x2
00fe 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00ff e003 | | Load 0x0,0x3
0100 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0101 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e005 | | Load 0x0,0x5
010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010d BODY_0108:
010d e005 | | Load 0x0,0x5
010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010f e5fe | | Load 0x2,-0x2
0110 e006 | | Load 0x0,0x6
0111 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0112 e5ff | | Load 0x2,-0x1
0113 e002 | | Load 0x0,0x2
0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0115 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0116 00d8 | | Load_Top At_Offset_0
0117 a5fd | | Store_Unchecked 0x2,-0x3
0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125 | % | .CONST 0x0125 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 e005 | | Load 0x0,0x5
0124 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0125 BODY_0120:
0125 e005 | | Load 0x0,0x5
0126 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0127 e5fd | | Load 0x2,-0x3
0128 e006 | | Load 0x0,0x6
0129 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012a e5fe | | Load 0x2,-0x2
012b e5ff | | Load 0x2,-0x1
012c e004 | | Load 0x0,0x4
012d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012e e002 | | Load 0x0,0x2
012f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0130 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0131 00d8 | | Load_Top At_Offset_0
0132 a5fc | | Store_Unchecked 0x2,-0x4
0133 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d | = | .CONST 0x013d ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b e005 | | Load 0x0,0x5
013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013d BODY_0138:
013d e005 | | Load 0x0,0x5
013e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013f e5fe | | Load 0x2,-0x2
0140 e006 | | Load 0x0,0x6
0141 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0142 e5ff | | Load 0x2,-0x1
0143 e002 | | Load 0x0,0x2
0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0145 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0146 00d8 | | Load_Top At_Offset_0
0147 a5fd | | Store_Unchecked 0x2,-0x3
0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e005 | | Load 0x0,0x5
0154 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0155 BODY_0150:
0155 e005 | | Load 0x0,0x5
0156 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0157 e5fd | | Load 0x2,-0x3
0158 e006 | | Load 0x0,0x6
0159 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015a e5fe | | Load 0x2,-0x2
015b e5ff | | Load 0x2,-0x1
015c e004 | | Load 0x0,0x4
015d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015e e002 | | Load 0x0,0x2
015f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0160 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0161 00d8 | | Load_Top At_Offset_0
0162 a5fc | | Store_Unchecked 0x2,-0x4
0163 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e005 | | Load 0x0,0x5
016c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016d BODY_0168:
016d e005 | | Load 0x0,0x5
016e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016f e5fe | | Load 0x2,-0x2
0170 e5ff | | Load 0x2,-0x1
0171 e002 | | Load 0x0,0x2
0172 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0173 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0174 00d8 | | Load_Top At_Offset_0
0175 a5fd | | Store_Unchecked 0x2,-0x3
0176 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e005 | | Load 0x0,0x5
017c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017d BODY_0178:
017d e005 | | Load 0x0,0x5
017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017f e5fa | | Load 0x2,-0x6
0180 e006 | | Load 0x0,0x6
0181 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0182 e5f9 | | Load 0x2,-0x7
0183 e5fb | | Load 0x2,-0x5
0184 e5fc | | Load 0x2,-0x4
0185 e5fd | | Load 0x2,-0x3
0186 e5fe | | Load 0x2,-0x2
0187 e004 | | Load 0x0,0x4
0188 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0189 e5ff | | Load 0x2,-0x1
018a e002 | | Load 0x0,0x2
018b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
018c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
018d 00d8 | | Load_Top At_Offset_0
018e a5f8 | | Store_Unchecked 0x2,-0x8
018f 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a0 | | .CONST 0x01a0 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0007 | | .CONST 0x0007 ; Number of locals
0193 INIT_0190:
0193 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0195 e002 | | Load 0x0,0x2
0196 1926 | & | Execute Package,Field_Reference,Field_Number 0x26
0197 00c6 | | Action Check_Subprogram_Elaborated
0198 e5fd | | Load 0x2,-0x3
0199 4802 |H | Short_Literal 0x2
019a 4802 |H | Short_Literal 0x2
019b 0099 | | Action Reference_Dynamic
019c e007 | | Load 0x0,0x7
019d e008 | | Load 0x0,0x8
019e 4807 |H | Short_Literal 0x7
019f 0007 | | Action Break_Optional
01a0 BODY_0190:
01a0 e009 | | Load 0x0,0x9
01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a2 e5fa | | Load 0x2,-0x6
01a3 00d8 | | Load_Top At_Offset_0
01a4 0120 | | Execute Any,Is_Value
01a5 6803 |h | Jump_Zero 0x1a9
01a6 e403 | | Load 0x2,0x3
01a7 011e | | Execute Any,Convert
01a8 7802 |x | Jump 0x1ab
01a9 e5fd | | Load 0x2,-0x3
01aa 0119 | | Execute Any,Check_In_Formal_Type
01ab e5fb | | Load 0x2,-0x5
01ac e00a | | Load 0x0,0xa
01ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ae e5fc | | Load 0x2,-0x4
01af e403 | | Load 0x2,0x3
01b0 4804 |H | Short_Literal 0x4
01b1 4802 |H | Short_Literal 0x2
01b2 0099 | | Action Reference_Dynamic
01b3 4805 |H | Short_Literal 0x5
01b4 4802 |H | Short_Literal 0x2
01b5 0099 | | Action Reference_Dynamic
01b6 e002 | | Load 0x0,0x2
01b7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01b8 c5fa | | Store 0x2,-0x6
01b9 c5f9 | | Store 0x2,-0x7
01ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e009 | | Load 0x0,0x9
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 e7fe | | Load 0x3,-0x2
01c6 00d8 | | Load_Top At_Offset_0
01c7 0120 | | Execute Any,Is_Value
01c8 6803 |h | Jump_Zero 0x1cc
01c9 e5fd | | Load 0x2,-0x3
01ca 011e | | Execute Any,Convert
01cb 7802 |x | Jump 0x1ce
01cc e5fd | | Load 0x2,-0x3
01cd 0119 | | Execute Any,Check_In_Formal_Type
01ce e7ff | | Load 0x3,-0x1
01cf 85fe | | Call 0x2,-0x2
01d0 c7fe | | Store 0x3,-0x2
01d1 c7fd | | Store 0x3,-0x3
01d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000d | | .DEBUG4 0x0004,0x000d,0xd951,0x0000,0x0001,0x0000
01de 0000 0000 | | .BLANK 0000[0x22]