|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_2cccb5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01b8 | | .CONST 0x01b8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005d | ] | .CONST 0x005d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c e003 | | Load 0x0,0x3
000d 00da | | Load_Top At_Offset_2
000e e004 | | Load 0x0,0x4
000f 0386 | | Declare_Variable Package,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 020f | | Execute Module,Activate
0012 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0014 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0016 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0018 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
001a 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001c 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
001e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0020 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0022 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0024 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0026 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0028 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
002a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
002c 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
002e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0030 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0032 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0034 e20f | | Load 0x1,0xf
0035 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0036 0129 | ) | Execute Any,Make_Visible
0037 e20f | | Load 0x1,0xf
0038 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0039 0129 | ) | Execute Any,Make_Visible
003a 00bf | | Action Accept_Activation
003b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003c 00c7 | | Action Elaborate_Subprogram
003d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003e 00c7 | | Action Elaborate_Subprogram
003f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0040 00c7 | | Action Elaborate_Subprogram
0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0042 00c7 | | Action Elaborate_Subprogram
0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0044 00c7 | | Action Elaborate_Subprogram
0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0046 00c7 | | Action Elaborate_Subprogram
0047 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0048 00c7 | | Action Elaborate_Subprogram
0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004a 00c7 | | Action Elaborate_Subprogram
004b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004c 00c7 | | Action Elaborate_Subprogram
004d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004e 00c7 | | Action Elaborate_Subprogram
004f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0050 00c7 | | Action Elaborate_Subprogram
0051 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0052 00c7 | | Action Elaborate_Subprogram
0053 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0054 00c7 | | Action Elaborate_Subprogram
0055 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0056 00c7 | | Action Elaborate_Subprogram
0057 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0058 00c7 | | Action Elaborate_Subprogram
0059 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
005a 00c7 | | Action Elaborate_Subprogram
005b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005c 00c7 | | Action Elaborate_Subprogram
005d BODY_0008:
005d 00bc | | Action Signal_Activated
005e 00bb | | Action Signal_Completion
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00db | | Load_Top At_Offset_3
0064 00db | | Load_Top At_Offset_3
0065 e20e | | Load 0x1,0xe
0066 0119 | | Execute Any,Check_In_Formal_Type
0067 e20f | | Load 0x1,0xf
0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0069 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006a 0000 0000 | | .BLANK 0000[0x6]
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 e20f | | Load 0x1,0xf
0074 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0075 00ca | | Action Exit_Nullary_Function
0076 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
007c e20f | | Load 0x1,0xf
007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 e20f | | Load 0x1,0xf
0085 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0086 0226 | & | Execute Access,Convert
0087 e20f | | Load 0x1,0xf
0088 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0089 003b | ; | Store_Top Access,At_Offset_3
008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e20f | | Load 0x1,0xf
0095 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0096 e20e | | Load 0x1,0xe
0097 0119 | | Execute Any,Check_In_Formal_Type
0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0099 0000 0000 | | .BLANK 0000[0x7]
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 e20f | | Load 0x1,0xf
00a5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00db | | Load_Top At_Offset_3
00ac 00db | | Load_Top At_Offset_3
00ad e20f | | Load 0x1,0xf
00ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e20e | | Load 0x1,0xe
00b5 0119 | | Execute Any,Check_In_Formal_Type
00b6 00db | | Load_Top At_Offset_3
00b7 e20f | | Load 0x1,0xf
00b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 e20f | | Load 0x1,0xf
00c5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c7 0000 | | .XXX[0x1]
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 e20f | | Load 0x1,0xf
00cc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00cd 00db | | Load_Top At_Offset_3
00ce e20f | | Load 0x1,0xf
00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d0 c5fe | | Store 0x2,-0x2
00d1 4502 |E | Exit_Suprogram 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 00da | | Load_Top At_Offset_2
00dc e20f | | Load 0x1,0xf
00dd 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00de 0226 | & | Execute Access,Convert
00df e20f | | Load 0x1,0xf
00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e1 003b | ; | Store_Top Access,At_Offset_3
00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
00ec e20f | | Load 0x1,0xf
00ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ee e20e | | Load 0x1,0xe
00ef 0119 | | Execute Any,Check_In_Formal_Type
00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f1 0000 0000 | | .BLANK 0000[0x7]
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 e20f | | Load 0x1,0xf
00fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105 | | .CONST 0x0105 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e221 | ! | Load 0x1,0x21
0104 0007 | | Action Break_Optional
0105 BODY_0100:
0105 e221 | ! | Load 0x1,0x21
0106 e5fe | | Load 0x2,-0x2
0107 8219 | | Call 0x1,0x19
0108 0039 | 9 | Store_Top Access,At_Offset_1
0109 00cf | | Action Mark_Auxiliary
010a 7809 |x | Jump 0x114
010b 00d9 | | Load_Top At_Offset_1
010c 821b | | Call 0x1,0x1b
010d e5ff | | Load 0x2,-0x1
010e 012f | / | Execute Any,Equal
010f 7007 |p | Jump_Nonzero 0x117
0110 00d9 | | Load_Top At_Offset_1
0111 821a | | Call 0x1,0x1a
0112 003a | : | Store_Top Access,At_Offset_2
0113 00c9 | | Action Pop_Auxiliary_Loop
0114 00d9 | | Load_Top At_Offset_1
0115 821c | | Call 0x1,0x1c
0116 6ff4 |o | Jump_Zero 0x10b
0117 00ce | | Action Pop_Auxiliary
0118 00d8 | | Load_Top At_Offset_0
0119 821c | | Call 0x1,0x1c
011a 6802 |h | Jump_Zero 0x11d
011b 4800 |H | Short_Literal 0x0
011c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011d 00d8 | | Load_Top At_Offset_0
011e 821a | | Call 0x1,0x1a
011f 0039 | 9 | Store_Top Access,At_Offset_1
0120 4801 |H | Short_Literal 0x1
0121 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0133 | 3 | .CONST 0x0133 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0004 | | .CONST 0x0004 ; Number of locals
012b INIT_0128:
012b e222 | " | Load 0x1,0x22
012c 0007 | | Action Break_Optional
012d e20e | | Load 0x1,0xe
012e 02c7 | | Declare_Variable Any
012f 00d8 | | Load_Top At_Offset_0
0130 1c00 | | Execute_Immediate Run_Utility,0x0
0131 00e1 | | Load_Encached Boolean_Cache
0132 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0133 BODY_0128:
0133 e5fd | | Load 0x2,-0x3
0134 e5ff | | Load 0x2,-0x1
0135 e20e | | Load 0x1,0xe
0136 0119 | | Execute Any,Check_In_Formal_Type
0137 821d | | Call 0x1,0x1d
0138 6828 |h( | Jump_Zero 0x161
0139 00cf | | Action Mark_Auxiliary
013a 781d |x | Jump 0x158
013b e5fd | | Load 0x2,-0x3
013c 8214 | | Call 0x1,0x14
013d c403 | | Store 0x2,0x3
013e e5fd | | Load 0x2,-0x3
013f 8215 | | Call 0x1,0x15
0140 a5fd | | Store_Unchecked 0x2,-0x3
0141 00da | | Load_Top At_Offset_2
0142 e5ff | | Load 0x2,-0x1
0143 012f | / | Execute Any,Equal
0144 00da | | Load_Top At_Offset_2
0145 0f00 | | Execute_Immediate Equal,0x0
0146 0279 | y | Execute Discrete,And
0147 6809 |h | Jump_Zero 0x151
0148 00db | | Load_Top At_Offset_3
0149 e5fe | | Load 0x2,-0x2
014a e20e | | Load 0x1,0xe
014b 0119 | | Execute Any,Check_In_Formal_Type
014c 8210 | | Call 0x1,0x10
014d a402 | | Store_Unchecked 0x2,0x2
014e 4801 |H | Short_Literal 0x1
014f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0150 7806 |x | Jump 0x157
0151 00db | | Load_Top At_Offset_3
0152 00db | | Load_Top At_Offset_3
0153 e20e | | Load 0x1,0xe
0154 0119 | | Execute Any,Check_In_Formal_Type
0155 8210 | | Call 0x1,0x10
0156 a402 | | Store_Unchecked 0x2,0x2
0157 00c9 | | Action Pop_Auxiliary_Loop
0158 e5fd | | Load 0x2,-0x3
0159 8212 | | Call 0x1,0x12
015a 6fe0 |o | Jump_Zero 0x13b
015b 00ce | | Action Pop_Auxiliary
015c 00da | | Load_Top At_Offset_2
015d a5fd | | Store_Unchecked 0x2,-0x3
015e 00da | | Load_Top At_Offset_2
015f 8213 | | Call 0x1,0x13
0160 003b | ; | Store_Top Access,At_Offset_3
0161 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0176 | v | .CONST 0x0176 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0005 | | .CONST 0x0005 ; Number of locals
016b INIT_0168:
016b 00e1 | | Load_Encached Boolean_Cache
016c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
016d e20e | | Load 0x1,0xe
016e 02c7 | | Declare_Variable Any
016f 00d8 | | Load_Top At_Offset_0
0170 1c00 | | Execute_Immediate Run_Utility,0x0
0171 e20e | | Load 0x1,0xe
0172 02c7 | | Declare_Variable Any
0173 00d8 | | Load_Top At_Offset_0
0174 1c00 | | Execute_Immediate Run_Utility,0x0
0175 e222 | " | Load 0x1,0x22
0176 BODY_0168:
0176 00cf | | Action Mark_Auxiliary
0177 7818 |x | Jump 0x190
0178 e5fe | | Load 0x2,-0x2
0179 8214 | | Call 0x1,0x14
017a c403 | | Store 0x2,0x3
017b e5fe | | Load 0x2,-0x2
017c 8215 | | Call 0x1,0x15
017d a5fe | | Store_Unchecked 0x2,-0x2
017e 00db | | Load_Top At_Offset_3
017f e5ff | | Load 0x2,-0x1
0180 012e | . | Execute Any,Not_Equal
0181 6807 |h | Jump_Zero 0x189
0182 00d9 | | Load_Top At_Offset_1
0183 e403 | | Load 0x2,0x3
0184 e20e | | Load 0x1,0xe
0185 0119 | | Execute Any,Check_In_Formal_Type
0186 8210 | | Call 0x1,0x10
0187 003a | : | Store_Top Access,At_Offset_2
0188 7806 |x | Jump 0x18f
0189 e402 | | Load 0x2,0x2
018a 7004 |p | Jump_Nonzero 0x18f
018b 4801 |H | Short_Literal 0x1
018c a402 | | Store_Unchecked 0x2,0x2
018d 00db | | Load_Top At_Offset_3
018e c404 | | Store 0x2,0x4
018f 00c9 | | Action Pop_Auxiliary_Loop
0190 e5fe | | Load 0x2,-0x2
0191 8212 | | Call 0x1,0x12
0192 6fe5 |o | Jump_Zero 0x178
0193 00ce | | Action Pop_Auxiliary
0194 00db | | Load_Top At_Offset_3
0195 0f01 | | Execute_Immediate Equal,0x1
0196 6806 |h | Jump_Zero 0x19d
0197 00d8 | | Load_Top At_Offset_0
0198 00da | | Load_Top At_Offset_2
0199 e20e | | Load 0x1,0xe
019a 0119 | | Execute Any,Check_In_Formal_Type
019b 8210 | | Call 0x1,0x10
019c 0039 | 9 | Store_Top Access,At_Offset_1
019d 00d8 | | Load_Top At_Offset_0
019e a5fe | | Store_Unchecked 0x2,-0x2
019f 00d8 | | Load_Top At_Offset_0
01a0 8213 | | Call 0x1,0x13
01a1 0039 | 9 | Store_Top Access,At_Offset_1
01a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00db | | Load_Top At_Offset_3
01ac 00db | | Load_Top At_Offset_3
01ad e20e | | Load 0x1,0xe
01ae 0119 | | Execute Any,Check_In_Formal_Type
01af 821f | | Call 0x1,0x1f
01b0 c5fe | | Store 0x2,-0x2
01b1 00db | | Load_Top At_Offset_3
01b2 8215 | | Call 0x1,0x15
01b3 a5fe | | Store_Unchecked 0x2,-0x2
01b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 000a | | .DEBUG4 0x0004,0x000a,0x1f81,0x0000,0x0001,0x0013
01be 000b 020a | | .DBG4T 0x000b,0x020a,0xc000,0x8000
01c2 003b 0234 | ; 4| .DBG4T 0x003b,0x0234,0xc000,0x0000
01c6 0063 0247 | c G| .DBG4T 0x0063,0x0247,0x1002,0x0000
01ca 0073 024a | s J| .DBG4T 0x0073,0x024a,0x1002,0x0000
01ce 007b 024d | { M| .DBG4T 0x007b,0x024d,0x1002,0x0000
01d2 0083 0250 | P| .DBG4T 0x0083,0x0250,0x1001,0x0000
01d6 0093 0253 | S| .DBG4T 0x0093,0x0253,0x1002,0x0000
01da 00a3 0256 | V| .DBG4T 0x00a3,0x0256,0x1002,0x0000
01de 00ab 0259 | Y| .DBG4T 0x00ab,0x0259,0x1001,0x0000
01e2 00b3 025c | \| .DBG4T 0x00b3,0x025c,0x1001,0x0000
01e6 00c3 025f | _| .DBG4T 0x00c3,0x025f,0x1002,0x0000
01ea 00cb 0262 | b| .DBG4T 0x00cb,0x0262,0x1001,0x0000
01ee 00db 0265 | e| .DBG4T 0x00db,0x0265,0x1001,0x0000
01f2 00eb 0268 | h| .DBG4T 0x00eb,0x0268,0x1002,0x0000
01f6 00fb 026b | k| .DBG4T 0x00fb,0x026b,0x1002,0x0000
01fa 0103 026e | n| .DBG4T 0x0103,0x026e,0x1002,0x4000
01fe 012b 0281 | + | .DBG4T 0x012b,0x0281,0x1001,0x4000
0202 016b 029a | k | .DBG4T 0x016b,0x029a,0x1001,0x4000
0206 01ab 02b7 | | .DBG4T 0x01ab,0x02b7,0x1001,0x0000
020a ; --------------------------------------------------------------------------------------
020a ; Debug chain
020a ; --------------------------------------------------------------------------------------
020a 0014 0000 | | .DBGLEN 0x0014,0x0000
020c 000b 0012 | | .DBGLNO 0x000b,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0037
0220 0001 0004 | | .XXX[0x14]
0222 0005 0006 | |
0224 0007 0008 | |
0226 0009 000a | |
0228 000b 000c | |
022a 000d 000e | |
022c 000f 0010 | |
022e 0011 0012 | |
0230 0013 0014 | |
0232 0015 0016 | |
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug chain
0234 ; --------------------------------------------------------------------------------------
0234 0011 0000 | | .DBGLEN 0x0011,0x0000
0236 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0000 0001 | | .DBGLEN 0x0000,0x0001
0249 0063 | c | .DBGLNO 0x0063
024a ; --------------------------------------------------------------------------------------
024a ; Debug chain
024a ; --------------------------------------------------------------------------------------
024a 0000 0001 | | .DBGLEN 0x0000,0x0001
024c 0073 | s | .DBGLNO 0x0073
024d ; --------------------------------------------------------------------------------------
024d ; Debug chain
024d ; --------------------------------------------------------------------------------------
024d 0000 0001 | | .DBGLEN 0x0000,0x0001
024f 007b | { | .DBGLNO 0x007b
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug chain
0250 ; --------------------------------------------------------------------------------------
0250 0000 0001 | | .DBGLEN 0x0000,0x0001
0252 0083 | | .DBGLNO 0x0083
0253 ; --------------------------------------------------------------------------------------
0253 ; Debug chain
0253 ; --------------------------------------------------------------------------------------
0253 0000 0001 | | .DBGLEN 0x0000,0x0001
0255 0093 | | .DBGLNO 0x0093
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001 | | .DBGLEN 0x0000,0x0001
0258 00a3 | | .DBGLNO 0x00a3
0259 ; --------------------------------------------------------------------------------------
0259 ; Debug chain
0259 ; --------------------------------------------------------------------------------------
0259 0000 0001 | | .DBGLEN 0x0000,0x0001
025b 00ab | | .DBGLNO 0x00ab
025c ; --------------------------------------------------------------------------------------
025c ; Debug chain
025c ; --------------------------------------------------------------------------------------
025c 0000 0001 | | .DBGLEN 0x0000,0x0001
025e 00b3 | | .DBGLNO 0x00b3
025f ; --------------------------------------------------------------------------------------
025f ; Debug chain
025f ; --------------------------------------------------------------------------------------
025f 0000 0001 | | .DBGLEN 0x0000,0x0001
0261 00c3 | | .DBGLNO 0x00c3
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0000 0001 | | .DBGLEN 0x0000,0x0001
0264 00cb | | .DBGLNO 0x00cb
0265 ; --------------------------------------------------------------------------------------
0265 ; Debug chain
0265 ; --------------------------------------------------------------------------------------
0265 0000 0001 | | .DBGLEN 0x0000,0x0001
0267 00db | | .DBGLNO 0x00db
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug chain
0268 ; --------------------------------------------------------------------------------------
0268 0000 0001 | | .DBGLEN 0x0000,0x0001
026a 00eb | | .DBGLNO 0x00eb
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 0000 0001 | | .DBGLEN 0x0000,0x0001
026d 00fb | | .DBGLNO 0x00fb
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 0001 0008 | | .DBGLEN 0x0001,0x0008
0270 0103 0105 | | .DBGLNO 0x0103,0x0105,0x010b,0x0110,0x0114,0x0118,0x011b,0x011d,0x0120
0279 0001 0003 | | .XXX[0x8]
027b 0004 0002 | |
027d 0005 0006 | |
027f 0007 0008 | |
0281 ; --------------------------------------------------------------------------------------
0281 ; Debug chain
0281 ; --------------------------------------------------------------------------------------
0281 0003 000a | | .DBGLEN 0x0003,0x000a
0283 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0131,0x0133,0x013b,0x013e,0x0141,0x0148,0x014e,0x0151,0x0158,0x015c,0x015e
0290 0001 0003 | | .XXX[0xa]
0292 0004 0005 | |
0294 0006 0007 | |
0296 0008 0002 | |
0298 0009 000a | |
029a ; --------------------------------------------------------------------------------------
029a ; Debug chain
029a ; --------------------------------------------------------------------------------------
029a 0003 000c | | .DBGLEN 0x0003,0x000c
029c 016b 016d | k m| .DBGLNO 0x016b,0x016d,0x0175,0x0178,0x017b,0x017e,0x0182,0x0189,0x018b,0x018d,0x0190,0x0194,0x0197,0x019d,0x019f
02ab 0002 0003 | | .XXX[0xc]
02ad 0004 0005 | |
02af 0006 0007 | |
02b1 0008 0001 | |
02b3 0009 000a | |
02b5 000b 000c | |
02b7 ; --------------------------------------------------------------------------------------
02b7 ; Debug chain
02b7 ; --------------------------------------------------------------------------------------
02b7 0000 0002 | | .DBGLEN 0x0000,0x0002
02b9 01ab 01b1 | | .DBGLNO 0x01ab,0x01b1
02bb 0000 0000 | | .BLANK 0000[0x145]