|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc, 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 02d0 | | .CONST 0x02d0 ; 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 0066 | f | .CONST 0x0066 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
000e 0129 | ) | Execute Any,Make_Visible
000f 00d8 | | Load_Top At_Offset_0
0010 0129 | ) | Execute Any,Make_Visible
0011 00d9 | | Load_Top At_Offset_1
0012 0129 | ) | Execute Any,Make_Visible
0013 e001 | | Load 0x0,0x1
0014 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0015 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
0016 0129 | ) | Execute Any,Make_Visible
0017 00d8 | | Load_Top At_Offset_0
0018 0129 | ) | Execute Any,Make_Visible
0019 00d9 | | Load_Top At_Offset_1
001a 0129 | ) | Execute Any,Make_Visible
001b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
001d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0021 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0023 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0025 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0027 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0029 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
002b 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
002d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
002f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0031 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0033 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0035 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0037 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0039 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
003b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
003d 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
003f 00bf | | Action Accept_Activation
0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0041 00c7 | | Action Elaborate_Subprogram
0042 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0043 00c7 | | Action Elaborate_Subprogram
0044 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0045 00c7 | | Action Elaborate_Subprogram
0046 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0047 00c7 | | Action Elaborate_Subprogram
0048 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0049 00c7 | | Action Elaborate_Subprogram
004a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004b 00c7 | | Action Elaborate_Subprogram
004c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004d 00c7 | | Action Elaborate_Subprogram
004e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004f 00c7 | | Action Elaborate_Subprogram
0050 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0055 00c7 | | Action Elaborate_Subprogram
0056 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
0058 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
005b 00c7 | | Action Elaborate_Subprogram
005c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005d 00c7 | | Action Elaborate_Subprogram
005e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
005f 00c7 | | Action Elaborate_Subprogram
0060 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0061 00c7 | | Action Elaborate_Subprogram
0062 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0063 00c7 | | Action Elaborate_Subprogram
0064 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0065 00c7 | | Action Elaborate_Subprogram
0066 BODY_0008:
0066 00bc | | Action Signal_Activated
0067 00bb | | Action Signal_Completion
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e001 | | Load 0x0,0x1
006d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
006f 6806 |h | Jump_Zero 0x76
0070 00da | | Load_Top At_Offset_2
0071 e002 | | Load 0x0,0x2
0072 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0073 180e | | Execute Package,Field_Execute,Field_Number 0xe
0074 0f03 | | Execute_Immediate Equal,0x3
0075 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0076 4800 |H | Short_Literal 0x0
0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e001 | | Load 0x0,0x1
007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
007f 6806 |h | Jump_Zero 0x86
0080 00da | | Load_Top At_Offset_2
0081 e002 | | Load 0x0,0x2
0082 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0083 180e | | Execute Package,Field_Execute,Field_Number 0xe
0084 0f04 | | Execute_Immediate Equal,0x4
0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0086 4800 |H | Short_Literal 0x0
0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e002 | | Load 0x0,0x2
008d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008e 180e | | Execute Package,Field_Execute,Field_Number 0xe
008f 0f03 | | Execute_Immediate Equal,0x3
0090 7006 |p | Jump_Nonzero 0x97
0091 00da | | Load_Top At_Offset_2
0092 e002 | | Load 0x0,0x2
0093 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0094 180e | | Execute Package,Field_Execute,Field_Number 0xe
0095 0f04 | | Execute_Immediate Equal,0x4
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 4801 |H | Short_Literal 0x1
0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ab | | .CONST 0x00ab ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 e002 | | Load 0x0,0x2
00a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a7 e002 | | Load 0x0,0x2
00a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00aa 03f1 | | Declare_Variable Discrete,With_Value
00ab BODY_00a0:
00ab 00db | | Load_Top At_Offset_3
00ac e001 | | Load 0x0,0x1
00ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ae 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00af 6812 |h | Jump_Zero 0xc2
00b0 00db | | Load_Top At_Offset_3
00b1 8217 | | Call 0x1,0x17
00b2 700d |p | Jump_Nonzero 0xc0
00b3 00d8 | | Load_Top At_Offset_0
00b4 0f07 | | Execute_Immediate Equal,0x7
00b5 7008 |p | Jump_Nonzero 0xbe
00b6 00d8 | | Load_Top At_Offset_0
00b7 0f05 | | Execute_Immediate Equal,0x5
00b8 7003 |p | Jump_Nonzero 0xbc
00b9 00d8 | | Load_Top At_Offset_0
00ba 0f03 | | Execute_Immediate Equal,0x3
00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bc 4801 |H | Short_Literal 0x1
00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00be 4801 |H | Short_Literal 0x1
00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c0 4800 |H | Short_Literal 0x0
00c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c2 4800 |H | Short_Literal 0x0
00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d3 | | .CONST 0x00d3 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e002 | | Load 0x0,0x2
00cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cf e002 | | Load 0x0,0x2
00d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d2 03f1 | | Declare_Variable Discrete,With_Value
00d3 BODY_00c8:
00d3 00db | | Load_Top At_Offset_3
00d4 e001 | | Load 0x0,0x1
00d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00d7 6803 |h | Jump_Zero 0xdb
00d8 00d8 | | Load_Top At_Offset_0
00d9 0f04 | | Execute_Immediate Equal,0x4
00da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00db 4800 |H | Short_Literal 0x0
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 8216 | | Call 0x1,0x16
00e5 7003 |p | Jump_Nonzero 0xe9
00e6 00da | | Load_Top At_Offset_2
00e7 8217 | | Call 0x1,0x17
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 4801 |H | Short_Literal 0x1
00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 e001 | | Load 0x0,0x1
00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00f7 6805 |h | Jump_Zero 0xfd
00f8 00da | | Load_Top At_Offset_2
00f9 e002 | | Load 0x0,0x2
00fa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fd 4800 |H | Short_Literal 0x0
00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0113 | | .CONST 0x0113 ; Address of begin
0101 0155 | U | .CONST 0x0155 ; Address of exception handler
0102 0005 | | .CONST 0x0005 ; Number of locals
0103 INIT_0100:
0103 e003 | | Load 0x0,0x3
0104 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0105 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0106 02c7 | | Declare_Variable Any
0107 00d8 | | Load_Top At_Offset_0
0108 1c00 | | Execute_Immediate Run_Utility,0x0
0109 e003 | | Load 0x0,0x3
010a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010b 00ec | | Load_Encached Diana_Tree_Cache
010c 02c7 | | Declare_Variable Any
010d 00d8 | | Load_Top At_Offset_0
010e 1c00 | | Execute_Immediate Run_Utility,0x0
010f 00ef | | Load_Encached Diana_Sequence_Cache
0110 02c7 | | Declare_Variable Any
0111 00d8 | | Load_Top At_Offset_0
0112 1c00 | | Execute_Immediate Run_Utility,0x0
0113 BODY_0100:
0113 e5ff | | Load 0x2,-0x1
0114 8219 | | Call 0x1,0x19
0115 683d |h= | Jump_Zero 0x153
0116 e003 | | Load 0x0,0x3
0117 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0118 e402 | | Load 0x2,0x2
0119 0120 | | Execute Any,Is_Value
011a 6802 |h | Jump_Zero 0x11d
011b 00ec | | Load_Encached Diana_Tree_Cache
011c 7801 |x | Jump 0x11e
011d e402 | | Load 0x2,0x2
011e 6039 |`9 | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
011f e004 | | Load 0x0,0x4
0120 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0121 e5ff | | Load 0x2,-0x1
0122 e002 | | Load 0x0,0x2
0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0124 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0125 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0126 c402 | | Store 0x2,0x2
0127 005b | [ | Store_Top Discrete,At_Offset_3
0128 00db | | Load_Top At_Offset_3
0129 4976 |Iv | Short_Literal 0x176
012a 00eb | | Load_Encached Diana_Cache
012b 0098 | | Execute Package,Field_Read_Dynamic
012c 180f | | Execute Package,Field_Execute,Field_Number 0xf
012d c404 | | Store 0x2,0x4
012e 00d9 | | Load_Top At_Offset_1
012f e005 | | Load 0x0,0x5
0130 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0131 6821 |h! | Jump_Zero 0x153
0132 00d9 | | Load_Top At_Offset_1
0133 e005 | | Load 0x0,0x5
0134 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0135 c405 | | Store 0x2,0x5
0136 00cf | | Action Mark_Auxiliary
0137 7816 |x | Jump 0x14e
0138 00d9 | | Load_Top At_Offset_1
0139 00eb | | Load_Encached Diana_Cache
013a 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
013b 00eb | | Load_Encached Diana_Cache
013c 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
013d 00eb | | Load_Encached Diana_Cache
013e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
013f 00eb | | Load_Encached Diana_Cache
0140 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0141 e006 | | Load 0x0,0x6
0142 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0143 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "MODULE_NAME"
0145 01df | | Execute Vector,Equal
0146 6802 |h | Jump_Zero 0x149
0147 4801 |H | Short_Literal 0x1
0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0149 00d9 | | Load_Top At_Offset_1
014a 00eb | | Load_Encached Diana_Cache
014b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
014c c405 | | Store 0x2,0x5
014d 00c9 | | Action Pop_Auxiliary_Loop
014e 00d9 | | Load_Top At_Offset_1
014f 00eb | | Load_Encached Diana_Cache
0150 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0151 6fe6 |o | Jump_Zero 0x138
0152 00ce | | Action Pop_Auxiliary
0153 4800 |H | Short_Literal 0x0
0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0155 TRAP_0100:
0155 0007 | | Action Break_Optional
0156 4800 |H | Short_Literal 0x0
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0158 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016b | k | .CONST 0x016b ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 e002 | | Load 0x0,0x2
0165 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0166 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0167 e002 | | Load 0x0,0x2
0168 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0169 1b17 | | Execute Package,Field_Read,Field_Number 0x17
016a 03f1 | | Declare_Variable Discrete,With_Value
016b BODY_0160:
016b 00db | | Load_Top At_Offset_3
016c 8219 | | Call 0x1,0x19
016d 680d |h | Jump_Zero 0x17b
016e 00d8 | | Load_Top At_Offset_0
016f 0f0d | | Execute_Immediate Equal,0xd
0170 7008 |p | Jump_Nonzero 0x179
0171 00d8 | | Load_Top At_Offset_0
0172 0f0c | | Execute_Immediate Equal,0xc
0173 7003 |p | Jump_Nonzero 0x177
0174 00d8 | | Load_Top At_Offset_0
0175 0f0b | | Execute_Immediate Equal,0xb
0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0177 4801 |H | Short_Literal 0x1
0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0179 4801 |H | Short_Literal 0x1
017a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017b 4800 |H | Short_Literal 0x0
017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 8219 | | Call 0x1,0x19
0185 6806 |h | Jump_Zero 0x18c
0186 4801 |H | Short_Literal 0x1
0187 00db | | Load_Top At_Offset_3
0188 e001 | | Load 0x0,0x1
0189 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018a 188b | | Execute Package,Field_Execute,Field_Number 0x8b
018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018c 4800 |H | Short_Literal 0x0
018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018e 0000 0000 | | .XXX[0x2]
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 8219 | | Call 0x1,0x19
0195 6806 |h | Jump_Zero 0x19c
0196 4801 |H | Short_Literal 0x1
0197 00db | | Load_Top At_Offset_3
0198 e001 | | Load 0x0,0x1
0199 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019a 188c | | Execute Package,Field_Execute,Field_Number 0x8c
019b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019c 4800 |H | Short_Literal 0x0
019d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ad | | .CONST 0x01ad ; Address of begin
01a1 01e0 | | .CONST 0x01e0 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e001 | | Load 0x0,0x1
01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01a6 02c7 | | Declare_Variable Any
01a7 4801 |H | Short_Literal 0x1
01a8 e5ff | | Load 0x2,-0x1
01a9 e001 | | Load 0x0,0x1
01aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ab 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0
01ac a402 | | Store_Unchecked 0x2,0x2
01ad BODY_01a0:
01ad 00d8 | | Load_Top At_Offset_0
01ae e001 | | Load 0x0,0x1
01af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b0 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
01b1 680d |h | Jump_Zero 0x1bf
01b2 e5fe | | Load 0x2,-0x2
01b3 4801 |H | Short_Literal 0x1
01b4 00da | | Load_Top At_Offset_2
01b5 e001 | | Load 0x0,0x1
01b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b7 189d | | Execute Package,Field_Execute,Field_Number 0x9d
01b8 e001 | | Load 0x0,0x1
01b9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01bb 00d9 | | Load_Top At_Offset_1
01bc e5ff | | Load 0x2,-0x1
01bd 8225 | % | Call 0x1,0x25
01be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01bf 00d8 | | Load_Top At_Offset_0
01c0 e001 | | Load 0x0,0x1
01c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c2 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
01c3 680d |h | Jump_Zero 0x1d1
01c4 e5fe | | Load 0x2,-0x2
01c5 4801 |H | Short_Literal 0x1
01c6 00da | | Load_Top At_Offset_2
01c7 e001 | | Load 0x0,0x1
01c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c9 189d | | Execute Package,Field_Execute,Field_Number 0x9d
01ca e001 | | Load 0x0,0x1
01cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01cc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01cd 00d9 | | Load_Top At_Offset_1
01ce e5ff | | Load 0x2,-0x1
01cf 8225 | % | Call 0x1,0x25
01d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d1 00d8 | | Load_Top At_Offset_0
01d2 e001 | | Load 0x0,0x1
01d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d4 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
01d5 6807 |h | Jump_Zero 0x1dd
01d6 00db | | Load_Top At_Offset_3
01d7 00d8 | | Load_Top At_Offset_0
01d8 0120 | | Execute Any,Is_Value
01d9 7002 |p | Jump_Nonzero 0x1dc
01da 00d8 | | Load_Top At_Offset_0
01db 011e | | Execute Any,Convert
01dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01dd e007 | | Load 0x0,0x7
01de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e0 TRAP_01a0:
01e0 0007 | | Action Break_Optional
01e1 e007 | | Load 0x0,0x7
01e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e002 | | Load 0x0,0x2
01ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 e002 | | Load 0x0,0x2
01f5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0212 | | .CONST 0x0212 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 8219 | | Call 0x1,0x19
01fd 6803 |h | Jump_Zero 0x201
01fe e007 | | Load 0x0,0x7
01ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 00da | | Load_Top At_Offset_2
0202 8216 | | Call 0x1,0x16
0203 6805 |h | Jump_Zero 0x209
0204 00da | | Load_Top At_Offset_2
0205 e002 | | Load 0x0,0x2
0206 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0207 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 00da | | Load_Top At_Offset_2
020a 8217 | | Call 0x1,0x17
020b 6805 |h | Jump_Zero 0x211
020c 00da | | Load_Top At_Offset_2
020d e002 | | Load 0x0,0x2
020e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0210 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0211 0831 | 1 | Execute_Immediate Raise,0x31
0212 TRAP_01f8:
0212 0007 | | Action Break_Optional
0213 e007 | | Load 0x0,0x7
0214 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4800 |H | Short_Literal 0x0
021c 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "@"
021e e5ff | | Load 0x2,-0x1
021f e002 | | Load 0x0,0x2
0220 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0221 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0222 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0223 0000 0000 | | .BLANK 0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f | / | .CONST 0x022f ; Address of begin
0229 024f | O | .CONST 0x024f ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e20d | | Load 0x1,0xd
022c 02c7 | | Declare_Variable Any
022d 00db | | Load_Top At_Offset_3
022e a402 | | Store_Unchecked 0x2,0x2
022f BODY_0228:
022f 00d8 | | Load_Top At_Offset_0
0230 8219 | | Call 0x1,0x19
0231 6806 |h | Jump_Zero 0x238
0232 00d8 | | Load_Top At_Offset_0
0233 e002 | | Load 0x0,0x2
0234 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0235 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0236 c402 | | Store 0x2,0x2
0237 780f |x | Jump 0x247
0238 00d8 | | Load_Top At_Offset_0
0239 8217 | | Call 0x1,0x17
023a 680c |h | Jump_Zero 0x247
023b 00cf | | Action Mark_Auxiliary
023c 7804 |x | Jump 0x241
023d 00d9 | | Load_Top At_Offset_1
023e 8221 | ! | Call 0x1,0x21
023f c402 | | Store 0x2,0x2
0240 00c9 | | Action Pop_Auxiliary_Loop
0241 00d9 | | Load_Top At_Offset_1
0242 e002 | | Load 0x0,0x2
0243 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0244 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0245 77f7 |w | Jump_Nonzero 0x23d
0246 00ce | | Action Pop_Auxiliary
0247 00d8 | | Load_Top At_Offset_0
0248 8216 | | Call 0x1,0x16
0249 7003 |p | Jump_Nonzero 0x24d
024a e007 | | Load 0x0,0x7
024b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024d 00d8 | | Load_Top At_Offset_0
024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024f TRAP_0228:
024f 0007 | | Action Break_Optional
0250 e007 | | Load 0x0,0x7
0251 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025f | _ | .CONST 0x025f ; Address of begin
0259 0279 | y | .CONST 0x0279 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e20d | | Load 0x1,0xd
025c 02c7 | | Declare_Variable Any
025d 00db | | Load_Top At_Offset_3
025e a402 | | Store_Unchecked 0x2,0x2
025f BODY_0258:
025f 00cf | | Action Mark_Auxiliary
0260 7804 |x | Jump 0x265
0261 00d9 | | Load_Top At_Offset_1
0262 8221 | ! | Call 0x1,0x21
0263 c402 | | Store 0x2,0x2
0264 00c9 | | Action Pop_Auxiliary_Loop
0265 00d9 | | Load_Top At_Offset_1
0266 e002 | | Load 0x0,0x2
0267 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0268 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0269 77f7 |w | Jump_Nonzero 0x261
026a 00ce | | Action Pop_Auxiliary
026b 00d8 | | Load_Top At_Offset_0
026c 8216 | | Call 0x1,0x16
026d 6803 |h | Jump_Zero 0x271
026e 00d8 | | Load_Top At_Offset_0
026f 8221 | ! | Call 0x1,0x21
0270 c402 | | Store 0x2,0x2
0271 00d8 | | Load_Top At_Offset_0
0272 8219 | | Call 0x1,0x19
0273 7003 |p | Jump_Nonzero 0x277
0274 e007 | | Load 0x0,0x7
0275 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0276 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0277 00d8 | | Load_Top At_Offset_0
0278 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0279 TRAP_0258:
0279 0007 | | Action Break_Optional
027a e007 | | Load 0x0,0x7
027b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0287 | | .CONST 0x0287 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0285 BODY_0280:
0285 8402 | | Call 0x2,0x2
0286 0831 | 1 | Execute_Immediate Raise,0x31
0287 TRAP_0280:
0287 0007 | | Action Break_Optional
0288 e007 | | Load 0x0,0x7
0289 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
028b 0000 0000 | | .BLANK 0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02bd | | .CONST 0x02bd ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0007 | | .CONST 0x0007 ; Number of locals
0293 INIT_0290:
0293 e5ff | | Load 0x2,-0x1
0294 e002 | | Load 0x0,0x2
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0297 e5fe | | Load 0x2,-0x2
0298 e002 | | Load 0x0,0x2
0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
029b 00d9 | | Load_Top At_Offset_1
029c 01dd | | Execute Vector,First
029d 00d9 | | Load_Top At_Offset_1
029e 01db | | Execute Vector,Length
029f 0273 | s | Execute Discrete,Plus
02a0 00d8 | | Load_Top At_Offset_0
02a1 00e2 | | Load_Encached Integer_Cache
02a2 0260 | ` | Execute Discrete,In_Type
02a3 7001 |p | Jump_Nonzero 0x2a5
02a4 0801 | | Execute_Immediate Raise,0x1
02a5 00da | | Load_Top At_Offset_2
02a6 01dc | | Execute Vector,Last
02a7 00db | | Load_Top At_Offset_3
02a8 01cf | | Execute Vector,Slice_Read
02a9 0007 | | Action Break_Optional
02aa e5fd | | Load 0x2,-0x3
02ab e002 | | Load 0x0,0x2
02ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ad 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02ae 00d8 | | Load_Top At_Offset_0
02af 00da | | Load_Top At_Offset_2
02b0 01cc | | Execute Vector,Catenate
02b1 0007 | | Action Break_Optional
02b2 e20e | | Load 0x1,0xe
02b3 02c7 | | Declare_Variable Any
02b4 4801 |H | Short_Literal 0x1
02b5 e002 | | Load 0x0,0x2
02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b8 00db | | Load_Top At_Offset_3
02b9 e002 | | Load 0x0,0x2
02ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bb 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02bc a607 | | Store_Unchecked 0x3,0x7
02bd BODY_0290:
02bd 00d8 | | Load_Top At_Offset_0
02be 00cb | | Action Pop_Block_With_Result
02bf 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02c0 ; --------------------------------------------------------------------------------------
02c0 ; STRING TABLE
02c0 ; --------------------------------------------------------------------------------------
02c0 0006 | | .STRTAB 0x0006->0x02c3 ; "MODULE_NAME"
02c1 000f | | .STRTAB 0x000f->0x02c8 ; "@"
02c2 000e | | .STREND 0x000e->0x02c9
02c3 4d4f 4455 |MODU| .STRTAB_STRINGS
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e4a,0x0000,0x0001,0x0000
02d6 0000 0000 | | .BLANK 0000[0x2b]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]