|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0230 | 0 | .CONST 0x0230 ; 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 002a | * | .CONST 0x002a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0030
000d 029a 0043 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0040
000f 029a 0073 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0070
0011 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
0013 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0015 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
0017 00bf | | Action Accept_Activation
0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0019 00c7 | | Action Elaborate_Subprogram
001a 029d 01ab | | Declare_Subprogram For_Outer_Call,INIT_01a8
001c 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001f 00c7 | | Action Elaborate_Subprogram
0020 029d 01db | | Declare_Subprogram For_Outer_Call,INIT_01d8
0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0023 00c7 | | Action Elaborate_Subprogram
0024 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0025 00c7 | | Action Elaborate_Subprogram
0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0027 00c7 | | Action Elaborate_Subprogram
0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0029 00c7 | | Action Elaborate_Subprogram
002a BODY_0008:
002a 00bc | | Action Signal_Activated
002b 00bb | | Action Signal_Completion
002c 0000 0000 | | .BLANK 0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0037 | 7 | .CONST 0x0037 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 00da | | Load_Top At_Offset_2
0034 e5fe | | Load 0x2,-0x2
0035 00e5 | | Load_Encached Long_Integer_Cache
0036 03f8 | | Declare_Type Discrete,Constrained
0037 BODY_0030:
0037 00d8 | | Load_Top At_Offset_0
0038 012c | , | Execute Any,Size
0039 00d8 | | Load_Top At_Offset_0
003a 00e3 | | Load_Encached Natural_Cache
003b 0260 | ` | Execute Discrete,In_Type
003c 7001 |p | Jump_Nonzero 0x3e
003d 0801 | | Execute_Immediate Raise,0x1
003e 4402 |D | Exit_Subprogram With_Result,0x2
003f 0000 | | .XXX[0x1]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0044 | D | .CONST 0x0044 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0002 | | .CONST 0x0002 ; Number of locals
0043 INIT_0040:
0043 00e5 | | Load_Encached Long_Integer_Cache
0044 BODY_0040:
0044 00db | | Load_Top At_Offset_3
0045 e001 | | Load 0x0,0x1
0046 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0047 0b03 | | Execute_Immediate Case_Compare,0x3
0048 7003 |p | Jump_Nonzero 0x4c
0049 0f04 | | Execute_Immediate Equal,0x4
004a 701b |p | Jump_Nonzero 0x66
004b 08e2 | | Execute_Immediate Raise,0xe2
004c 00d1 | | Pop_Control Pop_Count_1
004d 00db | | Load_Top At_Offset_3
004e e001 | | Load 0x0,0x1
004f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0050 e002 | | Load 0x0,0x2
0051 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0052 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0053 00d8 | | Load_Top At_Offset_0
0054 0d00 | | Execute_Immediate Less,0x0
0055 6808 |h | Jump_Zero 0x5e
0056 4820 |H | Short_Literal 0x20
0057 4800 |H | Short_Literal 0x0
0058 480a |H | Short_Literal 0xa
0059 4800 |H | Short_Literal 0x0
005a e402 | | Load 0x2,0x2
005b 820d | | Call 0x1,0xd
005c 8003 | | Call 0x0,0x3
005d 4401 |D | Exit_Subprogram With_Result,0x1
005e 4820 |H | Short_Literal 0x20
005f 4800 |H | Short_Literal 0x0
0060 480a |H | Short_Literal 0xa
0061 00db | | Load_Top At_Offset_3
0062 4800 |H | Short_Literal 0x0
0063 820d | | Call 0x1,0xd
0064 8003 | | Call 0x0,0x3
0065 4401 |D | Exit_Subprogram With_Result,0x1
0066 0092 0229 | )| Action Push_String_Extended,0x229 ; "64"
0068 4401 |D | Exit_Subprogram With_Result,0x1
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0085 | | .CONST 0x0085 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0006 | | .CONST 0x0006 ; Number of locals
0073 INIT_0070:
0073 e004 | | Load 0x0,0x4
0074 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0075 02c7 | | Declare_Variable Any
0076 00d8 | | Load_Top At_Offset_0
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 e004 | | Load 0x0,0x4
0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007a 02c7 | | Declare_Variable Any
007b 00d8 | | Load_Top At_Offset_0
007c 1c00 | | Execute_Immediate Run_Utility,0x0
007d e004 | | Load 0x0,0x4
007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007f 02c7 | | Declare_Variable Any
0080 00d8 | | Load_Top At_Offset_0
0081 1c00 | | Execute_Immediate Run_Utility,0x0
0082 00e3 | | Load_Encached Natural_Cache
0083 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0084 03e9 | | Declare_Variable Discrete,Duplicate
0085 BODY_0070:
0085 e5ff | | Load 0x2,-0x1
0086 e005 | | Load 0x0,0x5
0087 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0088 c402 | | Store 0x2,0x2
0089 00cf | | Action Mark_Auxiliary
008a 7828 |x( | Jump 0xb3
008b e402 | | Load 0x2,0x2
008c e004 | | Load 0x0,0x4
008d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008e c403 | | Store 0x2,0x3
008f e403 | | Load 0x2,0x3
0090 e001 | | Load 0x0,0x1
0091 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0092 4824 |H$ | Short_Literal 0x24
0093 4825 |H% | Short_Literal 0x25
0094 0262 | b | Execute Discrete,In_Range
0095 7003 |p | Jump_Nonzero 0x99
0096 4800 |H | Short_Literal 0x0
0097 a5fc | | Store_Unchecked 0x2,-0x4
0098 7815 |x | Jump 0xae
0099 e403 | | Load 0x2,0x3
009a e001 | | Load 0x0,0x1
009b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
009c c404 | | Store 0x2,0x4
009d e5fc | | Load 0x2,-0x4
009e 00e3 | | Load_Encached Natural_Cache
009f e5fe | | Load 0x2,-0x2
00a0 e404 | | Load 0x2,0x4
00a1 8006 | | Call 0x0,0x6
00a2 c405 | | Store 0x2,0x5
00a3 c5fc | | Store 0x2,-0x4
00a4 e5fc | | Load 0x2,-0x4
00a5 6805 |h | Jump_Zero 0xab
00a6 00d9 | | Load_Top At_Offset_1
00a7 00db | | Load_Top At_Offset_3
00a8 0273 | s | Execute Discrete,Plus
00a9 005a | Z | Store_Top Discrete,At_Offset_2
00aa 7803 |x | Jump 0xae
00ab 4800 |H | Short_Literal 0x0
00ac a5fd | | Store_Unchecked 0x2,-0x3
00ad 4503 |E | Exit_Subprogram 0x3
00ae e402 | | Load 0x2,0x2
00af e004 | | Load 0x0,0x4
00b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b1 c402 | | Store 0x2,0x2
00b2 00c9 | | Action Pop_Auxiliary_Loop
00b3 e402 | | Load 0x2,0x2
00b4 e004 | | Load 0x0,0x4
00b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b6 6fd4 |o | Jump_Zero 0x8b
00b7 00ce | | Action Pop_Auxiliary
00b8 00d8 | | Load_Top At_Offset_0
00b9 a5fd | | Store_Unchecked 0x2,-0x3
00ba 4503 |E | Exit_Subprogram 0x3
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c8 | | .CONST 0x00c8 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e002 | | Load 0x0,0x2
00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c5 02c7 | | Declare_Variable Any
00c6 00d8 | | Load_Top At_Offset_0
00c7 1c00 | | Execute_Immediate Run_Utility,0x0
00c8 BODY_00c0:
00c8 00db | | Load_Top At_Offset_3
00c9 e007 | | Load 0x0,0x7
00ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00cb c402 | | Store 0x2,0x2
00cc 00d8 | | Load_Top At_Offset_0
00cd e004 | | Load 0x0,0x4
00ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
00cf 6805 |h | Jump_Zero 0xd5
00d0 4818 |H | Short_Literal 0x18
00d1 a5fd | | Store_Unchecked 0x2,-0x3
00d2 4801 |H | Short_Literal 0x1
00d3 a5fc | | Store_Unchecked 0x2,-0x4
00d4 4503 |E | Exit_Subprogram 0x3
00d5 00d8 | | Load_Top At_Offset_0
00d6 e002 | | Load 0x0,0x2
00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d8 7005 |p | Jump_Nonzero 0xde
00d9 4800 |H | Short_Literal 0x0
00da a5fd | | Store_Unchecked 0x2,-0x3
00db 4800 |H | Short_Literal 0x0
00dc a5fc | | Store_Unchecked 0x2,-0x4
00dd 4503 |E | Exit_Subprogram 0x3
00de 00d8 | | Load_Top At_Offset_0
00df e002 | | Load 0x0,0x2
00e0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e1 8213 | | Call 0x1,0x13
00e2 a5fd | | Store_Unchecked 0x2,-0x3
00e3 4801 |H | Short_Literal 0x1
00e4 a5fc | | Store_Unchecked 0x2,-0x4
00e5 4503 |E | Exit_Subprogram 0x3
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f2 | | .CONST 0x00f2 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0004 | | .CONST 0x0004 ; Number of locals
00eb INIT_00e8:
00eb 00e3 | | Load_Encached Natural_Cache
00ec e005 | | Load 0x0,0x5
00ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ee 02c7 | | Declare_Variable Any
00ef 00d8 | | Load_Top At_Offset_0
00f0 1c00 | | Execute_Immediate Run_Utility,0x0
00f1 00e3 | | Load_Encached Natural_Cache
00f2 BODY_00e8:
00f2 4800 |H | Short_Literal 0x0
00f3 a5fc | | Store_Unchecked 0x2,-0x4
00f4 e5ff | | Load 0x2,-0x1
00f5 e005 | | Load 0x0,0x5
00f6 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
00f7 c403 | | Store 0x2,0x3
00f8 e5fb | | Load 0x2,-0x5
00f9 00e3 | | Load_Encached Natural_Cache
00fa e5fd | | Load 0x2,-0x3
00fb e403 | | Load 0x2,0x3
00fc 8006 | | Call 0x0,0x6
00fd 005a | Z | Store_Top Discrete,At_Offset_2
00fe c5fb | | Store 0x2,-0x5
00ff e5fb | | Load 0x2,-0x5
0100 680c |h | Jump_Zero 0x10d
0101 e5fb | | Load 0x2,-0x5
0102 00e3 | | Load_Encached Natural_Cache
0103 e5fe | | Load 0x2,-0x2
0104 8215 | | Call 0x1,0x15
0105 c402 | | Store 0x2,0x2
0106 c5fb | | Store 0x2,-0x5
0107 e5fb | | Load 0x2,-0x5
0108 6804 |h | Jump_Zero 0x10d
0109 00da | | Load_Top At_Offset_2
010a 00d9 | | Load_Top At_Offset_1
010b 0271 | q | Execute Discrete,Times
010c c5fc | | Store 0x2,-0x4
010d 4504 |E | Exit_Subprogram 0x4
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0126 | & | .CONST 0x0126 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0006 | | .CONST 0x0006 ; Number of locals
0113 INIT_0110:
0113 e005 | | Load 0x0,0x5
0114 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0115 02c7 | | Declare_Variable Any
0116 e5fe | | Load 0x2,-0x2
0117 e005 | | Load 0x0,0x5
0118 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0119 a402 | | Store_Unchecked 0x2,0x2
011a e005 | | Load 0x0,0x5
011b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
011c 02c7 | | Declare_Variable Any
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f e005 | | Load 0x0,0x5
0120 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0121 02c7 | | Declare_Variable Any
0122 00d8 | | Load_Top At_Offset_0
0123 1c00 | | Execute_Immediate Run_Utility,0x0
0124 00e5 | | Load_Encached Long_Integer_Cache
0125 03e9 | | Declare_Variable Discrete,Duplicate
0126 BODY_0110:
0126 e402 | | Load 0x2,0x2
0127 e005 | | Load 0x0,0x5
0128 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0129 460c |F | Jump_Case 0xc
012a 780c |x | Jump 0x137 ; case 0x0
012b 7810 |x | Jump 0x13c ; case 0x1
012c 7822 |x" | Jump 0x14f ; case 0x2
012d 785c |x\ | Jump 0x18a ; case 0x3
012e 7833 |x3 | Jump 0x162 ; case 0x4
012f 785f |x_ | Jump 0x18f ; case 0x5
0130 7869 |xi | Jump 0x19a ; case 0x6
0131 7805 |x | Jump 0x137 ; case 0x7
0132 7804 |x | Jump 0x137 ; case 0x8
0133 7803 |x | Jump 0x137 ; case 0x9
0134 7802 |x | Jump 0x137 ; case 0xa
0135 7801 |x | Jump 0x137 ; case 0xb
0136 7800 |x | Jump 0x137 ; case 0xc
0137 4800 |H | Short_Literal 0x0
0138 a5fb | | Store_Unchecked 0x2,-0x5
0139 4800 |H | Short_Literal 0x0
013a a5fa | | Store_Unchecked 0x2,-0x6
013b 4505 |E | Exit_Subprogram 0x5
013c 00e1 | | Load_Encached Boolean_Cache
013d 00d9 | | Load_Top At_Offset_1
013e 00db | | Load_Top At_Offset_3
013f e5fd | | Load 0x2,-0x3
0140 e008 | | Load 0x0,0x8
0141 180f | | Execute Package,Field_Execute,Field_Number 0xf
0142 c405 | | Store 0x2,0x5
0143 005a | Z | Store_Top Discrete,At_Offset_2
0144 c5fa | | Store 0x2,-0x6
0145 e5fa | | Load 0x2,-0x6
0146 6805 |h | Jump_Zero 0x14c
0147 00d8 | | Load_Top At_Offset_0
0148 00da | | Load_Top At_Offset_2
0149 820d | | Call 0x1,0xd
014a a5fb | | Store_Unchecked 0x2,-0x5
014b 4505 |E | Exit_Subprogram 0x5
014c 4800 |H | Short_Literal 0x0
014d a5fb | | Store_Unchecked 0x2,-0x5
014e 4505 |E | Exit_Subprogram 0x5
014f 00e1 | | Load_Encached Boolean_Cache
0150 00d9 | | Load_Top At_Offset_1
0151 00db | | Load_Top At_Offset_3
0152 e5fd | | Load 0x2,-0x3
0153 e008 | | Load 0x0,0x8
0154 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0155 c405 | | Store 0x2,0x5
0156 005a | Z | Store_Top Discrete,At_Offset_2
0157 c5fa | | Store 0x2,-0x6
0158 e5fa | | Load 0x2,-0x6
0159 6805 |h | Jump_Zero 0x15f
015a 00d8 | | Load_Top At_Offset_0
015b 00da | | Load_Top At_Offset_2
015c 820d | | Call 0x1,0xd
015d a5fb | | Store_Unchecked 0x2,-0x5
015e 4505 |E | Exit_Subprogram 0x5
015f 4800 |H | Short_Literal 0x0
0160 a5fb | | Store_Unchecked 0x2,-0x5
0161 4505 |E | Exit_Subprogram 0x5
0162 00da | | Load_Top At_Offset_2
0163 0120 | | Execute Any,Is_Value
0164 6803 |h | Jump_Zero 0x168
0165 e005 | | Load 0x0,0x5
0166 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0167 7801 |x | Jump 0x169
0168 00da | | Load_Top At_Offset_2
0169 e403 | | Load 0x2,0x3
016a 0120 | | Execute Any,Is_Value
016b 6803 |h | Jump_Zero 0x16f
016c e005 | | Load 0x0,0x5
016d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
016e 7801 |x | Jump 0x170
016f e403 | | Load 0x2,0x3
0170 e5fd | | Load 0x2,-0x3
0171 00d8 | | Load_Top At_Offset_0
0172 e5ff | | Load 0x2,-0x1
0173 8009 | | Call 0x0,0x9
0174 c403 | | Store 0x2,0x3
0175 c404 | | Store 0x2,0x4
0176 00e1 | | Load_Encached Boolean_Cache
0177 00d9 | | Load_Top At_Offset_1
0178 00db | | Load_Top At_Offset_3
0179 e403 | | Load 0x2,0x3
017a e404 | | Load 0x2,0x4
017b e008 | | Load 0x0,0x8
017c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017d c405 | | Store 0x2,0x5
017e 005a | Z | Store_Top Discrete,At_Offset_2
017f c5fa | | Store 0x2,-0x6
0180 e5fa | | Load 0x2,-0x6
0181 6805 |h | Jump_Zero 0x187
0182 00d8 | | Load_Top At_Offset_0
0183 00da | | Load_Top At_Offset_2
0184 820d | | Call 0x1,0xd
0185 a5fb | | Store_Unchecked 0x2,-0x5
0186 4505 |E | Exit_Subprogram 0x5
0187 4800 |H | Short_Literal 0x0
0188 a5fb | | Store_Unchecked 0x2,-0x5
0189 4505 |E | Exit_Subprogram 0x5
018a 4840 |H@ | Short_Literal 0x40
018b a5fb | | Store_Unchecked 0x2,-0x5
018c 4801 |H | Short_Literal 0x1
018d a5fa | | Store_Unchecked 0x2,-0x6
018e 4505 |E | Exit_Subprogram 0x5
018f e5fa | | Load 0x2,-0x6
0190 00e3 | | Load_Encached Natural_Cache
0191 e5fc | | Load 0x2,-0x4
0192 e5fd | | Load 0x2,-0x3
0193 e005 | | Load 0x0,0x5
0194 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0195 e402 | | Load 0x2,0x2
0196 8211 | | Call 0x1,0x11
0197 c5fb | | Store 0x2,-0x5
0198 c5fa | | Store 0x2,-0x6
0199 4505 |E | Exit_Subprogram 0x5
019a e5fa | | Load 0x2,-0x6
019b 00e3 | | Load_Encached Natural_Cache
019c e5fc | | Load 0x2,-0x4
019d e402 | | Load 0x2,0x2
019e 820f | | Call 0x1,0xf
019f c5fb | | Store 0x2,-0x5
01a0 c5fa | | Store 0x2,-0x6
01a1 4505 |E | Exit_Subprogram 0x5
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b7 | | .CONST 0x01b7 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab 4800 |H | Short_Literal 0x0
01ac 00db | | Load_Top At_Offset_3
01ad 00d8 | | Load_Top At_Offset_0
01ae 00e3 | | Load_Encached Natural_Cache
01af 0260 | ` | Execute Discrete,In_Type
01b0 7001 |p | Jump_Nonzero 0x1b2
01b1 0801 | | Execute_Immediate Raise,0x1
01b2 0aff | | Execute_Immediate Plus,-0x1
01b3 00e3 | | Load_Encached Natural_Cache
01b4 03f8 | | Declare_Type Discrete,Constrained
01b5 00d8 | | Load_Top At_Offset_0
01b6 0007 | | Action Break_Optional
01b7 BODY_01a8:
01b7 00d9 | | Load_Top At_Offset_1
01b8 012c | , | Execute Any,Size
01b9 00d8 | | Load_Top At_Offset_0
01ba 00e3 | | Load_Encached Natural_Cache
01bb 0260 | ` | Execute Discrete,In_Type
01bc 7001 |p | Jump_Nonzero 0x1be
01bd 0801 | | Execute_Immediate Raise,0x1
01be 4401 |D | Exit_Subprogram With_Result,0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c4 | | .CONST 0x01c4 ; Address of begin
01c1 01d0 | | .CONST 0x01d0 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 00e3 | | Load_Encached Natural_Cache
01c4 BODY_01c0:
01c4 e5fe | | Load 0x2,-0x2
01c5 e5ff | | Load 0x2,-0x1
01c6 0272 | r | Execute Discrete,Minus
01c7 0a01 | | Execute_Immediate Plus,0x1
01c8 00d8 | | Load_Top At_Offset_0
01c9 00e3 | | Load_Encached Natural_Cache
01ca 0260 | ` | Execute Discrete,In_Type
01cb 7001 |p | Jump_Nonzero 0x1cd
01cc 0801 | | Execute_Immediate Raise,0x1
01cd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01ce 00d8 | | Load_Top At_Offset_0
01cf 4402 |D | Exit_Subprogram With_Result,0x2
01d0 TRAP_01c0:
01d0 010e | | Execute Exception,Is_Constraint_Error
01d1 6802 |h | Jump_Zero 0x1d4
01d2 4800 |H | Short_Literal 0x0
01d3 4402 |D | Exit_Subprogram With_Result,0x2
01d4 0100 | | Execute Exception,Raise
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f3 | | .CONST 0x01f3 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0008 | | .CONST 0x0008 ; Number of locals
01db INIT_01d8:
01db e004 | | Load 0x0,0x4
01dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01dd 02c7 | | Declare_Variable Any
01de 00db | | Load_Top At_Offset_3
01df a402 | | Store_Unchecked 0x2,0x2
01e0 e005 | | Load 0x0,0x5
01e1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01e2 02c7 | | Declare_Variable Any
01e3 00d8 | | Load_Top At_Offset_0
01e4 1c00 | | Execute_Immediate Run_Utility,0x0
01e5 e005 | | Load 0x0,0x5
01e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e7 02c7 | | Declare_Variable Any
01e8 00d8 | | Load_Top At_Offset_0
01e9 1c00 | | Execute_Immediate Run_Utility,0x0
01ea e005 | | Load 0x0,0x5
01eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ec 02c7 | | Declare_Variable Any
01ed 00d8 | | Load_Top At_Offset_0
01ee 1c00 | | Execute_Immediate Run_Utility,0x0
01ef 00e5 | | Load_Encached Long_Integer_Cache
01f0 03e9 | | Declare_Variable Discrete,Duplicate
01f1 00e3 | | Load_Encached Natural_Cache
01f2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01f3 BODY_01d8:
01f3 4801 |H | Short_Literal 0x1
01f4 a5fd | | Store_Unchecked 0x2,-0x3
01f5 00cf | | Action Mark_Auxiliary
01f6 782a |x* | Jump 0x221
01f7 e402 | | Load 0x2,0x2
01f8 e004 | | Load 0x0,0x4
01f9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01fa c403 | | Store 0x2,0x3
01fb e405 | | Load 0x2,0x5
01fc 0120 | | Execute Any,Is_Value
01fd 6803 |h | Jump_Zero 0x201
01fe e002 | | Load 0x0,0x2
01ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0200 7801 |x | Jump 0x202
0201 e405 | | Load 0x2,0x5
0202 e404 | | Load 0x2,0x4
0203 0120 | | Execute Any,Is_Value
0204 6803 |h | Jump_Zero 0x208
0205 e002 | | Load 0x0,0x2
0206 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0207 7801 |x | Jump 0x209
0208 e404 | | Load 0x2,0x4
0209 e5fd | | Load 0x2,-0x3
020a e407 | | Load 0x2,0x7
020b e406 | | Load 0x2,0x6
020c e403 | | Load 0x2,0x3
020d e008 | | Load 0x0,0x8
020e 180d | | Execute Package,Field_Execute,Field_Number 0xd
020f c406 | | Store 0x2,0x6
0210 c407 | | Store 0x2,0x7
0211 c5fd | | Store 0x2,-0x3
0212 c404 | | Store 0x2,0x4
0213 c405 | | Store 0x2,0x5
0214 e5fd | | Load 0x2,-0x3
0215 680f |h | Jump_Zero 0x225
0216 00d9 | | Load_Top At_Offset_1
0217 00db | | Load_Top At_Offset_3
0218 e406 | | Load 0x2,0x6
0219 8214 | | Call 0x1,0x14
021a 0271 | q | Execute Discrete,Times
021b 005a | Z | Store_Top Discrete,At_Offset_2
021c e402 | | Load 0x2,0x2
021d e004 | | Load 0x0,0x4
021e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
021f c402 | | Store 0x2,0x2
0220 00c9 | | Action Pop_Auxiliary_Loop
0221 e402 | | Load 0x2,0x2
0222 e004 | | Load 0x0,0x4
0223 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0224 6fd2 |o | Jump_Zero 0x1f7
0225 00ce | | Action Pop_Auxiliary
0226 00d8 | | Load_Top At_Offset_0
0227 a5fe | | Store_Unchecked 0x2,-0x2
0228 4502 |E | Exit_Subprogram 0x2
0229 ; --------------------------------------------------------------------------------------
0229 ; STRING TABLE
0229 ; --------------------------------------------------------------------------------------
0229 0004 | | .STRTAB 0x0004->0x022b ; "64"
022a 0004 | | .STREND 0x0004->0x022c
022b 3634 |64 | .STRTAB_STRINGS
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcde,0x0000,0x0001,0x0000
0236 e972 2ac5 | r* | .XXX[0x1ca]
0238 9466 32c4 | f2 |
023a dc92 3ac7 | : |
023c 608e 8e4e |` N|
023e 9f53 748d | St |
0240 424e 56c7 |BNV |
0242 848c 0436 | 6|
0244 b751 f1d9 | Q |
0246 8c26 f203 | & |
0248 b2a0 4576 | Ev|
024a 09d9 7eb8 | ~ |
024c 5575 76b2 |Uuv |
024e 92c7 8053 | S|
0250 a133 bd0b | 3 |
0252 3709 9a4e |7 N|
0254 3a78 8575 |:x u|
0256 3207 0352 |2 R|
0258 227b 014b |"{ K|
025a e275 9059 | u Y|
025c d337 fa37 | 7 7|
025e 2352 f0f2 |#R |
0260 e2fa d607 | |
0262 3352 7fa3 |3R |
0264 3b52 653c |;Re<|
0266 250c d033 |% 3|
0268 c469 fa4f | i O|
026a d05b 0ec4 | [ |
026c 9866 a9da | f |
026e b9db 6752 | gR|
0270 1e4c b3ca | L |
0272 264c 0b1e |&L |
0274 f823 7b51 | #{Q|
0276 29b6 ddda |) |
0278 4dcc 7c93 |M | |
027a 370a eddb |7 |
027c 52c5 c64d |R M|
027e 29a7 62c7 |) b |
0280 0fbf af50 | P|
0282 2f53 19da |/S |
0284 7a4e 8f53 |zN S|
0286 c750 7084 | Pp |
0288 13c8 1827 | '|
028a 96c7 db53 | S|
028c 41db e353 |A S|
028e 49db aac7 |I |
0290 50bb b2c7 |P |
0292 fb51 3490 | Q4 |
0294 0355 290c | U) |
0296 0b56 ce4c | V L|
0298 1356 de4f | V O|
029a dac4 1f56 | V|
029c ee4d 8092 | M |
029e a376 0574 | v t|
02a0 cab5 b473 | s|
02a2 0e4e 1977 | N w|
02a4 164d 8d0c | M |
02a6 5355 d093 |SU |
02a8 d5d8 2b78 | +x|
02aa 2aca 1bbc |* |
02ac 6f55 47b8 |oUG |
02ae 5092 5977 |P Yw|
02b0 b7b8 7f56 | V|
02b2 0444 8756 | D V|
02b4 a380 11dc | |
02b6 2934 19de |)4 |
02b8 c380 21dc | ! |
02ba 6acb 901f |j |
02bc 7e4d 16b4 |~M |
02be b756 f5bc | V |
02c0 e8f0 c356 | V|
02c2 b777 dea5 | w |
02c4 15fb e154 | T|
02c6 96c8 c8f7 | |
02c8 a7a4 61dc | a |
02ca 8881 16b4 | |
02cc aec8 6860 | h`|
02ce 79de ff0a |y |
02d0 524f 0709 |RO |
02d2 cc8f 3bc5 | ; |
02d4 4c2e f779 |L. y|
02d6 82b1 2728 | '(|
02d8 0280 d9d9 | |
02da 802c 0e80 | , |
02dc ae03 3f09 | ? |
02de d000 ba01 | |
02e0 1533 b2b7 | 3 |
02e2 a060 3283 | `2 |
02e4 76ba 3110 |v 1 |
02e6 de03 cd9a | |
02e8 c22a fab6 | * |
02ea 70a0 787e |p x~|
02ec f76a a0b6 | j |
02ee bf32 2bc8 | 2+ |
02f0 848f 4249 | BI|
02f2 b526 9ab5 | & |
02f4 0256 0808 | V |
02f6 936b 2862 | k(b|
02f8 6b38 0f29 |k8 )|
02fa b098 6c21 | l!|
02fc 29f9 3b31 |) ;1|
02fe 840a 736d | sm|
0300 8b30 324c | 02L|
0302 333b da4c |3; L|
0304 2f37 b119 |/7 |
0306 5f33 17ca |_3 |
0308 011e 6b39 | k9|
030a 0734 a6b9 | 4 |
030c 12c0 1cb9 | |
030e 7f32 d40b | 2 |
0310 1bc9 6d86 | m |
0312 6b3a 1ba9 |k: |
0314 b09b b2b8 | |
0316 240d a332 |$ 2|
0318 f3c9 3410 | 4 |
031a b76f 1fcb | o |
031c 5a4b 1e27 |ZK '|
031e ceb4 beaf | |
0320 dcb0 408d | @ |
0322 cb30 1404 | 0 |
0324 ea4a 5a88 | JZ |
0326 f9dd e5b8 | |
0328 102d e733 | - 3|
032a a7c8 50b4 | P |
032c 324c 399f |2L9 |
032e 4248 c560 |BH `|
0330 2ee2 4ede |. N |
0332 9733 5a4a | 3ZJ|
0334 050b d7c9 | |
0336 12c0 7ec2 | ~ |
0338 2333 35a7 |#35 |
033a e7c9 6abf | j |
033c 6bc8 fe50 |k P|
033e be53 6ca8 | Sl |
0340 4c75 5f6a |Lu_j|
0342 d7cb d725 | %|
0344 633c 9f34 |c< 4|
0346 d240 75e0 | @u |
0348 3651 4e6d |6QNm|
034a 7f6a 4b33 | jK3|
034c 9a4d b073 | M s|
034e 424b 05d4 |BK |
0350 95e2 1f31 | 1|
0352 9b68 0404 | h |
0354 07cd e198 | |
0356 e334 249c | 4$ |
0358 2f34 28a6 |/4( |
035a af31 bb68 | 1 h|
035c 7f44 6fcd | Do |
035e 773c 57cd |w<W |
0360 12c0 8e57 | W|
0362 0332 2416 | 2$ |
0364 e730 324c | 02L|
0366 4148 57cc |AHW |
0368 8aae 6843 | hC|
036a 8f31 fb6b | 1 k|
036c f814 4fcf | O |
036e df31 9116 | 1 |
0370 1648 ced9 | H |
0372 1733 2f31 | 3/1|
0374 1af4 324d | 2M|
0376 4f32 92b7 |O2 |
0378 0bc8 a818 | |
037a a368 ebcc | h |
037c 49de 390f |I 9 |
037e 4249 56bf |BIV |
0380 fb6f 6f32 | oo2|
0382 4b6b 8454 |Kk T|
0384 ea49 9549 | I I|
0386 17cd 12c2 | |
0388 78b8 c7cf |x |
038a 9733 9a4d | 3 M|
038c 25a5 17cc |% |
038e 8aaf adf0 | |
0390 f336 96f7 | 6 |
0392 4b40 d7cc |K@ |
0394 76c2 164b |v K|
0396 e1f3 d333 | 3|
0398 5010 49dd |P I |
039a f733 aeab | 3 |
039c 0bca 0330 | 0|
039e 1734 e007 | 4 |
03a0 abc8 324e | 2N|
03a2 1333 1a70 | 3 p|
03a4 2f37 10ad |/7 |
03a6 97cd 2804 | ( |
03a8 1f36 c332 | 6 2|
03aa 80d8 4ec4 | N |
03ac 074b 46a2 | KF |
03ae db6a d3c9 | j |
03b0 9bcc 4736 | G6|
03b2 5333 aea8 |S3 |
03b4 8aad fcf8 | |
03b6 5f34 3b37 |_4;7|
03b8 fb65 dfcd | e |
03ba 83cd 6bcd | k |
03bc d430 beac | 0 |
03be ec9c 8735 | 5|
03c0 c004 9334 | 4|
03c2 8aca 9f33 | 3|
03c4 2672 a0fb |&r |
03c6 2ee2 9804 |. |
03c8 af36 1fcf | 6 |
03ca 74f1 3ec5 |t > |
03cc 0b96 b885 | |
03ce e181 cac6 | |
03d0 7116 468b |q F |
03d2 6368 2774 |ch't|
03d4 c752 ef32 | R 2|
03d6 2fce ec73 |/ s|
03d8 cae1 0242 | B|
03da 67cd 59a5 |g Y |
03dc 9f48 0fcd | H |
03de 76c6 5bce |v [ |
03e0 eadd 3b36 | ;6|
03e2 7006 8491 |p |
03e4 86c6 53cf | S |
03e6 aaf4 4ee5 | N |
03e8 3737 8b68 |77 h|
03ea af29 3ec7 | )> |
03ec f3ad 76f8 | v |
03ee 4481 6f70 |D op|
03f0 c8ea 8ec4 | |
03f2 4470 3b3a |Dp;:|
03f4 7b36 6816 |{6h |
03f6 c2c5 98f0 | |
03f8 fc01 2cce | , |
03fa 0b36 ebce | 6 |
03fc ab36 f3cf | 6 |
03fe e44d 9f36 | M 6|