|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e8 | | .CONST 0x01e8 ; 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 007c | | | .CONST 0x007c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
000d 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
000f 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
0011 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0013 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0015 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
0017 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0019 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
001b 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
001d 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
001f 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0021 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
0023 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0025 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0027 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
0029 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
002b 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
002d 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
002f 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0031 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0033 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
0035 029a 01d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d0
0037 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
0039 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
003b 00bf | | Action Accept_Activation
003c e001 | | Load 0x0,0x1
003d e002 | | Load 0x0,0x2
003e 00e6 | | Load_Encached Float_Cache
003f e003 | | Load 0x0,0x3
0040 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
0041 0387 | | Declare_Variable Package
0042 00d8 | | Load_Top At_Offset_0
0043 020f | | Execute Module,Activate
0044 e004 | | Load 0x0,0x4
0045 e005 | | Load 0x0,0x5
0046 00e7 | | Load_Encached Duration_Cache
0047 e003 | | Load 0x0,0x3
0048 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a
0049 0387 | | Declare_Variable Package
004a 00d8 | | Load_Top At_Offset_0
004b 020f | | Execute Module,Activate
004c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004d 00c7 | | Action Elaborate_Subprogram
004e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004f 00c7 | | Action Elaborate_Subprogram
0050 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0051 00c7 | | Action Elaborate_Subprogram
0052 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0053 00c7 | | Action Elaborate_Subprogram
0054 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0055 00c7 | | Action Elaborate_Subprogram
0056 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0057 00c7 | | Action Elaborate_Subprogram
0058 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0059 00c7 | | Action Elaborate_Subprogram
005a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
005b 00c7 | | Action Elaborate_Subprogram
005c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005d 00c7 | | Action Elaborate_Subprogram
005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005f 00c7 | | Action Elaborate_Subprogram
0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0061 00c7 | | Action Elaborate_Subprogram
0062 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0063 00c7 | | Action Elaborate_Subprogram
0064 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0071 00c7 | | Action Elaborate_Subprogram
0072 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0073 00c7 | | Action Elaborate_Subprogram
0074 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0075 00c7 | | Action Elaborate_Subprogram
0076 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0077 00c7 | | Action Elaborate_Subprogram
0078 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0079 00c7 | | Action Elaborate_Subprogram
007a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
007b 00c7 | | Action Elaborate_Subprogram
007c BODY_0008:
007c 00bc | | Action Signal_Activated
007d 00bb | | Action Signal_Completion
007e 0000 0000 | | .XXX[0x2]
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 4820 |H | Short_Literal 0x20
0084 4800 |H | Short_Literal 0x0
0085 480a |H | Short_Literal 0xa
0086 e5ff | | Load 0x2,-0x1
0087 e006 | | Load 0x0,0x6
0088 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0089 4401 |D | Exit_Subprogram With_Result,0x1
008a 0000 0000 | | .BLANK 0000[0x6]
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 4820 |H | Short_Literal 0x20
0094 4800 |H | Short_Literal 0x0
0095 480a |H | Short_Literal 0xa
0096 e5ff | | Load 0x2,-0x1
0097 e006 | | Load 0x0,0x6
0098 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0099 4401 |D | Exit_Subprogram With_Result,0x1
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5 | | .CONST 0x00a5 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 00e2 | | Load_Encached Integer_Cache
00a4 00e1 | | Load_Encached Boolean_Cache
00a5 BODY_00a0:
00a5 00e1 | | Load_Encached Boolean_Cache
00a6 00e2 | | Load_Encached Integer_Cache
00a7 480a |H | Short_Literal 0xa
00a8 e5ff | | Load 0x2,-0x1
00a9 e006 | | Load 0x0,0x6
00aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ab 005b | [ | Store_Top Discrete,At_Offset_3
00ac 0059 | Y | Store_Top Discrete,At_Offset_1
00ad 00d9 | | Load_Top At_Offset_1
00ae 4401 |D | Exit_Subprogram With_Result,0x1
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b9 | | .CONST 0x00b9 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 4801 |H | Short_Literal 0x1
00b4 481e |H | Short_Literal 0x1e
00b5 00e9 | | Load_Encached String_Cache
00b6 035b | [ | Declare_Type Array,Constrained
00b7 0337 | 7 | Declare_Variable Array
00b8 00e4 | | Load_Encached Positive_Cache
00b9 BODY_00b0:
00b9 00d9 | | Load_Top At_Offset_1
00ba e225 | % | Load 0x1,0x25
00bb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00bc e225 | % | Load 0x1,0x25
00bd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00be e5ff | | Load 0x2,-0x1
00bf e225 | % | Load 0x1,0x25
00c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c1 00d1 | | Pop_Control Pop_Count_1
00c2 4820 |H | Short_Literal 0x20
00c3 00da | | Load_Top At_Offset_2
00c4 e006 | | Load 0x0,0x6
00c5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c6 00e9 | | Load_Encached String_Cache
00c7 01c6 | | Execute Vector,Convert_To_Formal
00c8 4401 |D | Exit_Subprogram With_Result,0x1
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 8210 | | Call 0x1,0x10
00d5 4401 |D | Exit_Subprogram With_Result,0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db 00e6 | | Load_Encached Float_Cache
00dc 00e4 | | Load_Encached Positive_Cache
00dd BODY_00d8:
00dd 00e4 | | Load_Encached Positive_Cache
00de e225 | % | Load 0x1,0x25
00df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e0 e5ff | | Load 0x2,-0x1
00e1 e225 | % | Load 0x1,0x25
00e2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e3 004b | K | Store_Top Float,At_Offset_3
00e4 0059 | Y | Store_Top Discrete,At_Offset_1
00e5 00d9 | | Load_Top At_Offset_1
00e6 4401 |D | Exit_Subprogram With_Result,0x1
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f0 | | .CONST 0x00f0 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec 481e |H | Short_Literal 0x1e
00ed 00e9 | | Load_Encached String_Cache
00ee 035b | [ | Declare_Type Array,Constrained
00ef 0337 | 7 | Declare_Variable Array
00f0 BODY_00e8:
00f0 00d8 | | Load_Top At_Offset_0
00f1 e226 | & | Load 0x1,0x26
00f2 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00f3 e226 | & | Load 0x1,0x26
00f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f5 e5ff | | Load 0x2,-0x1
00f6 e226 | & | Load 0x1,0x26
00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f8 00d1 | | Pop_Control Pop_Count_1
00f9 4820 |H | Short_Literal 0x20
00fa 00d9 | | Load_Top At_Offset_1
00fb e006 | | Load 0x0,0x6
00fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00fd 00e9 | | Load_Encached String_Cache
00fe 01c6 | | Execute Vector,Convert_To_Formal
00ff 4401 |D | Exit_Subprogram With_Result,0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 8213 | | Call 0x1,0x13
0105 4401 |D | Exit_Subprogram With_Result,0x1
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b 00e7 | | Load_Encached Duration_Cache
010c 00e4 | | Load_Encached Positive_Cache
010d BODY_0108:
010d 00e4 | | Load_Encached Positive_Cache
010e e226 | & | Load 0x1,0x26
010f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0110 e5ff | | Load 0x2,-0x1
0111 e226 | & | Load 0x1,0x26
0112 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0113 005b | [ | Store_Top Discrete,At_Offset_3
0114 0059 | Y | Store_Top Discrete,At_Offset_1
0115 00d9 | | Load_Top At_Offset_1
0116 4401 |D | Exit_Subprogram With_Result,0x1
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4800 |H | Short_Literal 0x0
011c 4800 |H | Short_Literal 0x0
011d 4800 |H | Short_Literal 0x0
011e e5ff | | Load 0x2,-0x1
011f e007 | | Load 0x0,0x7
0120 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0121 e007 | | Load 0x0,0x7
0122 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0123 4401 |D | Exit_Subprogram With_Result,0x1
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 8216 | | Call 0x1,0x16
012d 4401 |D | Exit_Subprogram With_Result,0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 e007 | | Load 0x0,0x7
0135 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0136 e007 | | Load 0x0,0x7
0137 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0138 4401 |D | Exit_Subprogram With_Result,0x1
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 e008 | | Load 0x0,0x8
0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0146 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0147 4401 |D | Exit_Subprogram With_Result,0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 8219 | | Call 0x1,0x19
014d 4401 |D | Exit_Subprogram With_Result,0x1
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015b | [ | .CONST 0x015b ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 e008 | | Load 0x0,0x8
0154 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0155 02c7 | | Declare_Variable Any
0156 00d8 | | Load_Top At_Offset_0
0157 1c00 | | Execute_Immediate Run_Utility,0x0
0158 e008 | | Load 0x0,0x8
0159 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015b BODY_0150:
015b e008 | | Load 0x0,0x8
015c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015e 00da | | Load_Top At_Offset_2
015f 0120 | | Execute Any,Is_Value
0160 6803 |h | Jump_Zero 0x164
0161 e008 | | Load 0x0,0x8
0162 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0163 7801 |x | Jump 0x165
0164 00da | | Load_Top At_Offset_2
0165 6012 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00004000}
0166 e009 | | Load 0x0,0x9
0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0168 e00a | | Load 0x0,0xa
0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016a e008 | | Load 0x0,0x8
016b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
016d e5ff | | Load 0x2,-0x1
016e e008 | | Load 0x0,0x8
016f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0170 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0171 c402 | | Store 0x2,0x2
0172 0059 | Y | Store_Top Discrete,At_Offset_1
0173 00d9 | | Load_Top At_Offset_1
0174 4401 |D | Exit_Subprogram With_Result,0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
017c 0000 0000 | | .BLANK 0000[0x4]
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 e008 | | Load 0x0,0x8
0185 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0186 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0187 4401 |D | Exit_Subprogram With_Result,0x1
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 821c | | Call 0x1,0x1c
018d 4401 |D | Exit_Subprogram With_Result,0x1
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019b | | .CONST 0x019b ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e008 | | Load 0x0,0x8
0194 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0195 02ff | | Declare_Variable Variant_Record
0196 00d8 | | Load_Top At_Offset_0
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 e008 | | Load 0x0,0x8
0199 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019b BODY_0190:
019b e008 | | Load 0x0,0x8
019c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019e 00da | | Load_Top At_Offset_2
019f 6010 |` | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x00004000}
01a0 e009 | | Load 0x0,0x9
01a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a2 4800 |H | Short_Literal 0x0
01a3 e00a | | Load 0x0,0xa
01a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a5 e008 | | Load 0x0,0x8
01a6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a8 e5ff | | Load 0x2,-0x1
01a9 e008 | | Load 0x0,0x8
01aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ab 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01ac 00d1 | | Pop_Control Pop_Count_1
01ad 0059 | Y | Store_Top Discrete,At_Offset_1
01ae 00d9 | | Load_Top At_Offset_1
01af 4401 |D | Exit_Subprogram With_Result,0x1
01b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc e008 | | Load 0x0,0x8
01bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01be 4401 |D | Exit_Subprogram With_Result,0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 821f | | Call 0x1,0x1f
01c5 4401 |D | Exit_Subprogram With_Result,0x1
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc e008 | | Load 0x0,0x8
01cd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01ce 4401 |D | Exit_Subprogram With_Result,0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 e008 | | Load 0x0,0x8
01d5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01d6 4401 |D | Exit_Subprogram With_Result,0x1
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc 8222 | " | Call 0x1,0x22
01dd 4401 |D | Exit_Subprogram With_Result,0x1
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e008 | | Load 0x0,0x8
01e5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01e6 4401 |D | Exit_Subprogram With_Result,0x1
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb35,0x0000,0x0001,0x0000
01ee 0000 0000 | | .BLANK 0000[0x12]