|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01d0 | | .CONST 0x01d0 ; 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 007a | z | .CONST 0x007a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 00e3 | | Load_Encached Natural_Cache
000d 02a0 | | Declare_Subprogram Null_Subprogram
000e 4802 |H | Short_Literal 0x2
000f 032e | . | Declare_Type Record,Defined,Visible
0010 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0012 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0014 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0016 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0018 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
001a 029c 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible
001c 029c 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible
001e 0093 0000 | | push_full_address 0x0
0020 606f |`o | Indirect_Literal Discrete,0x90,{0x80000000, 0x00010000}
0021 0273 | s | Execute Discrete,Plus
0022 e002 | | Load 0x0,0x2
0023 0273 | s | Execute Discrete,Plus
0024 e003 | | Load 0x0,0x3
0025 0273 | s | Execute Discrete,Plus
0026 e20d | | Load 0x1,0xd
0027 00e3 | | Load_Encached Natural_Cache
0028 4801 |H | Short_Literal 0x1
0029 4832 |H2 | Short_Literal 0x32
002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002f e004 | | Load 0x0,0x4
0030 0386 | | Declare_Variable Package,Visible
0031 00d8 | | Load_Top At_Offset_0
0032 020f | | Execute Module,Activate
0033 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0035 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0037 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0039 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
003b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
003d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
003f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0041 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0043 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0045 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0047 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0049 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
004b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
004d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
004f 00bf | | Action Accept_Activation
0050 e005 | | Load 0x0,0x5
0051 e215 | | Load 0x1,0x15
0052 0098 | | Execute Package,Field_Read_Dynamic
0053 0322 | " | Declare_Variable Record
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 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0059 00c7 | | Action Elaborate_Subprogram
005a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005b 00c7 | | Action Elaborate_Subprogram
005c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005d 00c7 | | Action Elaborate_Subprogram
005e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
006b 00c7 | | Action Elaborate_Subprogram
006c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006d 00c7 | | Action Elaborate_Subprogram
006e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
006f 00c7 | | Action Elaborate_Subprogram
0070 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0071 00c7 | | Action Elaborate_Subprogram
0072 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0073 00c7 | | Action Elaborate_Subprogram
0074 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0075 00c7 | | Action Elaborate_Subprogram
0076 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0077 00c7 | | Action Elaborate_Subprogram
0078 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0079 00c7 | | Action Elaborate_Subprogram
007a BODY_0008:
007a 00d8 | | Load_Top At_Offset_0
007b e006 | | Load 0x0,0x6
007c e215 | | Load 0x1,0x15
007d 0096 | | Execute Package,Entry
007e 00d1 | | Pop_Control Pop_Count_1
007f 00bc | | Action Signal_Activated
0080 00bb | | Action Signal_Completion
0081 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 e5fe | | Load 0x2,-0x2
00a5 017d | } | Execute Record,Structure_Write
00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
00ac e5fe | | Load 0x2,-0x2
00ad 017f | | Execute Record,Equal
00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00af 0000 | | .XXX[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 00da | | Load_Top At_Offset_2
00b4 e5fe | | Load 0x2,-0x2
00b5 027f | | Execute Discrete,Equal
00b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
00bc 00d8 | | Load_Top At_Offset_0
00bd 00e3 | | Load_Encached Natural_Cache
00be 0260 | ` | Execute Discrete,In_Type
00bf 7001 |p | Jump_Nonzero 0xc1
00c0 0801 | | Execute_Immediate Raise,0x1
00c1 820f | | Call 0x1,0xf
00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c3 0000 0000 | | .BLANK 0000[0x5]
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 00d8 | | Load_Top At_Offset_0
00cd 00e3 | | Load_Encached Natural_Cache
00ce 0260 | ` | Execute Discrete,In_Type
00cf 7001 |p | Jump_Nonzero 0xd1
00d0 0801 | | Execute_Immediate Raise,0x1
00d1 00db | | Load_Top At_Offset_3
00d2 00d8 | | Load_Top At_Offset_0
00d3 00e3 | | Load_Encached Natural_Cache
00d4 0260 | ` | Execute Discrete,In_Type
00d5 7001 |p | Jump_Nonzero 0xd7
00d6 0801 | | Execute_Immediate Raise,0x1
00d7 8212 | | Call 0x1,0x12
00d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e20d | | Load 0x1,0xd
00e4 0322 | " | Declare_Variable Record
00e5 BODY_00e0:
00e5 00db | | Load_Top At_Offset_3
00e6 00d9 | | Load_Top At_Offset_1
00e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e8 e5fe | | Load 0x2,-0x2
00e9 00d9 | | Load_Top At_Offset_1
00ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00eb 00d8 | | Load_Top At_Offset_0
00ec e224 | $ | Load 0x1,0x24
00ed e007 | | Load 0x0,0x7
00ee e215 | | Load 0x1,0x15
00ef 0096 | | Execute Package,Entry
00f0 7006 |p | Jump_Nonzero 0xf7
00f1 e224 | $ | Load 0x1,0x24
00f2 00d9 | | Load_Top At_Offset_1
00f3 e008 | | Load 0x0,0x8
00f4 e215 | | Load 0x1,0x15
00f5 0096 | | Execute Package,Entry
00f6 00d1 | | Pop_Control Pop_Count_1
00f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e20d | | Load 0x1,0xd
00fc 0322 | " | Declare_Variable Record
00fd BODY_00f8:
00fd 00db | | Load_Top At_Offset_3
00fe 00d9 | | Load_Top At_Offset_1
00ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0100 e5fe | | Load 0x2,-0x2
0101 00d9 | | Load_Top At_Offset_1
0102 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0103 e224 | $ | Load 0x1,0x24
0104 00d9 | | Load_Top At_Offset_1
0105 e009 | | Load 0x0,0x9
0106 e215 | | Load 0x1,0x15
0107 0096 | | Execute Package,Entry
0108 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e224 | $ | Load 0x1,0x24
0114 00db | | Load_Top At_Offset_3
0115 e00a | | Load 0x0,0xa
0116 e215 | | Load 0x1,0x15
0117 0096 | | Execute Package,Entry
0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0119 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0124 e224 | $ | Load 0x1,0x24
0125 e00b | | Load 0x0,0xb
0126 e215 | | Load 0x1,0x15
0127 0096 | | Execute Package,Entry
0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135 | 5 | .CONST 0x0135 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e20d | | Load 0x1,0xd
0134 0322 | " | Declare_Variable Record
0135 BODY_0130:
0135 00db | | Load_Top At_Offset_3
0136 00d9 | | Load_Top At_Offset_1
0137 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0138 e5fe | | Load 0x2,-0x2
0139 00d9 | | Load_Top At_Offset_1
013a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013b 00d8 | | Load_Top At_Offset_0
013c e224 | $ | Load 0x1,0x24
013d e007 | | Load 0x0,0x7
013e e215 | | Load 0x1,0x15
013f 0096 | | Execute Package,Entry
0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e224 | $ | Load 0x1,0x24
014c e00c | | Load 0x0,0xc
014d e215 | | Load 0x1,0x15
014e 0096 | | Execute Package,Entry
014f 00ca | | Action Exit_Nullary_Function
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e224 | $ | Load 0x1,0x24
0155 e00d | | Load 0x0,0xd
0156 e215 | | Load 0x1,0x15
0157 0096 | | Execute Package,Entry
0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 e224 | $ | Load 0x1,0x24
0165 e00e | | Load 0x0,0xe
0166 e215 | | Load 0x1,0x15
0167 0096 | | Execute Package,Entry
0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e20d | | Load 0x1,0xd
0174 0322 | " | Declare_Variable Record
0175 BODY_0170:
0175 00db | | Load_Top At_Offset_3
0176 e224 | $ | Load 0x1,0x24
0177 e00f | | Load 0x0,0xf
0178 e215 | | Load 0x1,0x15
0179 0096 | | Execute Package,Entry
017a 00d9 | | Load_Top At_Offset_1
017b 017d | } | Execute Record,Structure_Write
017c 00d8 | | Load_Top At_Offset_0
017d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185 | | .CONST 0x0185 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e20d | | Load 0x1,0xd
0184 0322 | " | Declare_Variable Record
0185 BODY_0180:
0185 00db | | Load_Top At_Offset_3
0186 e224 | $ | Load 0x1,0x24
0187 e00f | | Load 0x0,0xf
0188 e215 | | Load 0x1,0x15
0189 0096 | | Execute Package,Entry
018a 00d9 | | Load_Top At_Offset_1
018b 017d | } | Execute Record,Structure_Write
018c 00d8 | | Load_Top At_Offset_0
018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e224 | $ | Load 0x1,0x24
0195 e010 | | Load 0x0,0x10
0196 e215 | | Load 0x1,0x15
0197 0096 | | Execute Package,Entry
0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
01a4 e5fe | | Load 0x2,-0x2
01a5 e224 | $ | Load 0x1,0x24
01a6 e011 | | Load 0x0,0x11
01a7 e215 | | Load 0x1,0x15
01a8 0096 | | Execute Package,Entry
01a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01aa 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
01b4 e5fe | | Load 0x2,-0x2
01b5 e224 | $ | Load 0x1,0x24
01b6 e012 | | Load 0x0,0x12
01b7 e215 | | Load 0x1,0x15
01b8 0096 | | Execute Package,Entry
01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e20d | | Load 0x1,0xd
01c4 0322 | " | Declare_Variable Record
01c5 BODY_01c0:
01c5 00db | | Load_Top At_Offset_3
01c6 e5fe | | Load 0x2,-0x2
01c7 e224 | $ | Load 0x1,0x24
01c8 e013 | | Load 0x0,0x13
01c9 e215 | | Load 0x1,0x15
01ca 0096 | | Execute Package,Entry
01cb 00d9 | | Load_Top At_Offset_1
01cc 017d | } | Execute Record,Structure_Write
01cd 00d8 | | Load_Top At_Offset_0
01ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1cc,0x0000,0x0001,0x0000
01d6 0000 0000 | | .BLANK 0000[0x2a]