|
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_03bcfe, seg_03c0fe
└─⟦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 03f8 | | .CONST 0x03f8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0081 | | .CONST 0x0081 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001b 00bf | | Action Accept_Activation
001c 00e1 | | Load_Encached Boolean_Cache
001d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001e 0092 039e | | Action Push_String_Extended,0x39e ; "Program has been recompiled since debugger started"
0020 029b 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Unelaborated
0022 e002 | | Load 0x0,0x2
0023 e003 | | Load 0x0,0x3
0024 480f |H | Short_Literal 0xf
0025 00e4 | | Load_Encached Positive_Cache
0026 e004 | | Load 0x0,0x4
0027 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0028 e005 | | Load 0x0,0x5
0029 0387 | | Declare_Variable Package
002a 00d8 | | Load_Top At_Offset_0
002b 020f | | Execute Module,Activate
002c 00d8 | | Load_Top At_Offset_0
002d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002e 00e1 | | Load_Encached Boolean_Cache
002f 00e3 | | Load_Encached Natural_Cache
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4803 |H | Short_Literal 0x3
0032 032d | - | Declare_Type Record,Defined
0033 e006 | | Load 0x0,0x6
0034 e007 | | Load 0x0,0x7
0035 4864 |Hd | Short_Literal 0x64
0036 e008 | | Load 0x0,0x8
0037 e219 | | Load 0x1,0x19
0038 a009 | | Store_Unchecked 0x0,0x9
0039 e005 | | Load 0x0,0x5
003a 0387 | | Declare_Variable Package
003b 00d8 | | Load_Top At_Offset_0
003c 020f | | Execute Module,Activate
003d 00d8 | | Load_Top At_Offset_0
003e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003f 02a0 | | Declare_Subprogram Null_Subprogram
0040 4801 |H | Short_Literal 0x1
0041 032d | - | Declare_Type Record,Defined
0042 4800 |H | Short_Literal 0x0
0043 0093 031b | | push_full_address INIT_0318
0045 00f5 | | Load_Encached Unused21
0046 037a | z | Declare_Type Task,Defined,Not_Elaborated
0047 00d9 | | Load_Top At_Offset_1
0048 0322 | " | Declare_Variable Record
0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004a 00c7 | | Action Elaborate_Subprogram
004b 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
004d 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
004f 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0051 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0053 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call
0055 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0057 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0059 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
005b 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
005d 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
005f 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
0061 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0063 e00a | | Load 0x0,0xa
0064 e21a | | Load 0x1,0x1a
0065 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0066 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0067 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0068 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0069 4806 |H | Short_Literal 0x6
006a e21c | | Load 0x1,0x1c
006b 020e | | Execute Module,Augment_Imports
006c e21c | | Load 0x1,0x1c
006d 020d | | Execute Module,Elaborate
006e 0007 | | Action Break_Optional
006f e21c | | Load 0x1,0x1c
0070 036f | o | Declare_Variable Task
0071 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0072 00c7 | | Action Elaborate_Subprogram
0073 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0074 00c7 | | Action Elaborate_Subprogram
0075 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0076 00c7 | | Action Elaborate_Subprogram
0077 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0078 00c7 | | Action Elaborate_Subprogram
0079 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007a 00c7 | | Action Elaborate_Subprogram
007b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007c 00c7 | | Action Elaborate_Subprogram
007d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007e 00c7 | | Action Elaborate_Subprogram
007f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0080 00c7 | | Action Elaborate_Subprogram
0081 BODY_0008:
0081 00be | | Action Activate_Tasks
0082 8213 | | Call 0x1,0x13
0083 00bc | | Action Signal_Activated
0084 00bb | | Action Signal_Completion
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
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 8228 | ( | Call 0x1,0x28
008c 6812 |h | Jump_Zero 0x9f
008d e21d | | Load 0x1,0x1d
008e e5fd | | Load 0x2,-0x3
008f e5fe | | Load 0x2,-0x2
0090 00d8 | | Load_Top At_Offset_0
0091 00e3 | | Load_Encached Natural_Cache
0092 0260 | ` | Execute Discrete,In_Type
0093 7001 |p | Jump_Nonzero 0x95
0094 0801 | | Execute_Immediate Raise,0x1
0095 00d8 | | Load_Top At_Offset_0
0096 00e4 | | Load_Encached Positive_Cache
0097 0260 | ` | Execute Discrete,In_Type
0098 7001 |p | Jump_Nonzero 0x9a
0099 0801 | | Execute_Immediate Raise,0x1
009a e5ff | | Load 0x2,-0x1
009b 4804 |H | Short_Literal 0x4
009c e22a | * | Load 0x1,0x2a
009d 170f | | Execute Task,Entry_Call,Field_Number 0xf
009e 00d1 | | Pop_Control Pop_Count_1
009f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 8228 | ( | Call 0x1,0x28
00a4 680f |h | Jump_Zero 0xb4
00a5 00da | | Load_Top At_Offset_2
00a6 800b | | Call 0x0,0xb
00a7 6806 |h | Jump_Zero 0xae
00a8 e21d | | Load 0x1,0x1d
00a9 4801 |H | Short_Literal 0x1
00aa e22a | * | Load 0x1,0x2a
00ab 170d | | Execute Task,Entry_Call,Field_Number 0xd
00ac 00d1 | | Pop_Control Pop_Count_1
00ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ae e21d | | Load 0x1,0x1d
00af 00db | | Load_Top At_Offset_3
00b0 4802 |H | Short_Literal 0x2
00b1 e22a | * | Load 0x1,0x2a
00b2 170e | | Execute Task,Entry_Call,Field_Number 0xe
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc 8229 | ) | Call 0x1,0x29
00bd 6811 |h | Jump_Zero 0xcf
00be e21d | | Load 0x1,0x1d
00bf e5fc | | Load 0x2,-0x4
00c0 e5fd | | Load 0x2,-0x3
00c1 e5fe | | Load 0x2,-0x2
00c2 00d8 | | Load_Top At_Offset_0
00c3 00e3 | | Load_Encached Natural_Cache
00c4 0260 | ` | Execute Discrete,In_Type
00c5 7001 |p | Jump_Nonzero 0xc7
00c6 0801 | | Execute_Immediate Raise,0x1
00c7 e5ff | | Load 0x2,-0x1
00c8 4805 |H | Short_Literal 0x5
00c9 e22a | * | Load 0x1,0x2a
00ca 1710 | | Execute Task,Entry_Call,Field_Number 0x10
00cb 00d1 | | Pop_Control Pop_Count_1
00cc c5fc | | Store 0x2,-0x4
00cd 00d1 | | Pop_Control Pop_Count_1
00ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00cf e5fc | | Load 0x2,-0x4
00d0 0092 039f | | Action Push_String_Extended,0x39f ; "Not in cache"
00d2 e00c | | Load 0x0,0xc
00d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d4 c5fc | | Store 0x2,-0x4
00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 00e8 | | .CONST 0x00e8 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00db | | Load_Top At_Offset_3
00dc e00d | | Load 0x0,0xd
00dd 01df | | Execute Vector,Equal
00de 6803 |h | Jump_Zero 0xe2
00df 4801 |H | Short_Literal 0x1
00e0 a215 | | Store_Unchecked 0x1,0x15
00e1 7802 |x | Jump 0xe4
00e2 4800 |H | Short_Literal 0x0
00e3 a215 | | Store_Unchecked 0x1,0x15
00e4 e00c | | Load 0x0,0xc
00e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e6 c5fd | | Store 0x2,-0x3
00e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e8 TRAP_00d8:
00e8 0007 | | Action Break_Optional
00e9 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "Unhandled exception in Set_Cache: "
00eb e00a | | Load 0x0,0xa
00ec 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ed 01cc | | Execute Vector,Catenate
00ee e00c | | Load 0x0,0xc
00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f0 c5fd | | Store 0x2,-0x3
00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f2 0000 0000 | | .BLANK 0000[0x6]
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 e215 | | Load 0x1,0x15
00fc 00ca | | Action Exit_Nullary_Function
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
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 8228 | ( | Call 0x1,0x28
0104 6805 |h | Jump_Zero 0x10a
0105 e21d | | Load 0x1,0x1d
0106 4801 |H | Short_Literal 0x1
0107 e22a | * | Load 0x1,0x2a
0108 170d | | Execute Task,Entry_Call,Field_Number 0xd
0109 00d1 | | Pop_Control Pop_Count_1
010a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e21d | | Load 0x1,0x1d
0114 4801 |H | Short_Literal 0x1
0115 e22a | * | Load 0x1,0x2a
0116 1711 | | Execute Task,Entry_Call,Field_Number 0x11
0117 4501 |E | Exit_Suprogram New_Top_Offset 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 e22a | * | Load 0x1,0x2a
011d 1712 | | Execute Task,Entry_Call,Field_Number 0x12
011e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
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 e218 | | Load 0x1,0x18
012c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
012d 480f |H | Short_Literal 0xf
012e e218 | | Load 0x1,0x18
012f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0130 00db | | Load_Top At_Offset_3
0131 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0132 4800 |H | Short_Literal 0x0
0133 00db | | Load_Top At_Offset_3
0134 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0135 4800 |H | Short_Literal 0x0
0136 00db | | Load_Top At_Offset_3
0137 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0146 | F | .CONST 0x0146 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 00e1 | | Load_Encached Boolean_Cache
0144 e219 | | Load 0x1,0x19
0145 0322 | " | Declare_Variable Record
0146 BODY_0140:
0146 00e1 | | Load_Encached Boolean_Cache
0147 00d9 | | Load_Top At_Offset_1
0148 e5ff | | Load 0x2,-0x1
0149 e5fe | | Load 0x2,-0x2
014a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014b e21a | | Load 0x1,0x1a
014c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
014d 00d1 | | Pop_Control Pop_Count_1
014e 005a | Z | Store_Top Discrete,At_Offset_2
014f 00d9 | | Load_Top At_Offset_1
0150 680c |h | Jump_Zero 0x15d
0151 00d8 | | Load_Top At_Offset_0
0152 821e | | Call 0x1,0x1e
0153 00d1 | | Pop_Control Pop_Count_1
0154 e5fe | | Load 0x2,-0x2
0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0156 4800 |H | Short_Literal 0x0
0157 00da | | Load_Top At_Offset_2
0158 e5ff | | Load 0x2,-0x1
0159 e21a | | Load 0x1,0x1a
015a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015b e5fe | | Load 0x2,-0x2
015c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016a | j | .CONST 0x016a ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0004 | | .CONST 0x0004 ; Number of locals
0163 INIT_0160:
0163 e219 | | Load 0x1,0x19
0164 0322 | " | Declare_Variable Record
0165 e21a | | Load 0x1,0x1a
0166 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0167 0322 | " | Declare_Variable Record
0168 e008 | | Load 0x0,0x8
0169 0007 | | Action Break_Optional
016a BODY_0160:
016a 00d9 | | Load_Top At_Offset_1
016b e5ff | | Load 0x2,-0x1
016c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016d e21a | | Load 0x1,0x1a
016e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
016f 00d1 | | Pop_Control Pop_Count_1
0170 00cf | | Action Mark_Auxiliary
0171 781c |x | Jump 0x18e
0172 00da | | Load_Top At_Offset_2
0173 e21a | | Load 0x1,0x1a
0174 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0175 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0176 00d9 | | Load_Top At_Offset_1
0177 e5ff | | Load 0x2,-0x1
0178 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0179 e21a | | Load 0x1,0x1a
017a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017b e402 | | Load 0x2,0x2
017c 017d | } | Execute Record,Structure_Write
017d 00db | | Load_Top At_Offset_3
017e 821e | | Call 0x1,0x1e
017f 00d1 | | Pop_Control Pop_Count_1
0180 e5ff | | Load 0x2,-0x1
0181 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0182 4800 |H | Short_Literal 0x0
0183 e402 | | Load 0x2,0x2
0184 e404 | | Load 0x2,0x4
0185 e21a | | Load 0x1,0x1a
0186 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0187 e5ff | | Load 0x2,-0x1
0188 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0189 00da | | Load_Top At_Offset_2
018a e21a | | Load 0x1,0x1a
018b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
018c 00d1 | | Pop_Control Pop_Count_1
018d 00c9 | | Action Pop_Auxiliary_Loop
018e 00da | | Load_Top At_Offset_2
018f e21a | | Load 0x1,0x1a
0190 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0191 6fe0 |o | Jump_Zero 0x172
0192 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4801 |H | Short_Literal 0x1
019c e5fe | | Load 0x2,-0x2
019d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019e 00da | | Load_Top At_Offset_2
019f e5fe | | Load 0x2,-0x2
01a0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ae | | .CONST 0x01ae ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab 00e1 | | Load_Encached Boolean_Cache
01ac e219 | | Load 0x1,0x19
01ad 0322 | " | Declare_Variable Record
01ae BODY_01a8:
01ae 00e1 | | Load_Encached Boolean_Cache
01af 00d9 | | Load_Top At_Offset_1
01b0 e5ff | | Load 0x2,-0x1
01b1 e21d | | Load 0x1,0x1d
01b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b3 e21a | | Load 0x1,0x1a
01b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b5 00d1 | | Pop_Control Pop_Count_1
01b6 005a | Z | Store_Top Discrete,At_Offset_2
01b7 00d9 | | Load_Top At_Offset_1
01b8 681a |h | Jump_Zero 0x1d3
01b9 00d8 | | Load_Top At_Offset_0
01ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01bb 4800 |H | Short_Literal 0x0
01bc e5fd | | Load 0x2,-0x3
01bd e5fe | | Load 0x2,-0x2
01be e218 | | Load 0x1,0x18
01bf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c0 00d9 | | Load_Top At_Offset_1
01c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c2 e5fd | | Load 0x2,-0x3
01c3 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
01c4 680d |h | Jump_Zero 0x1d2
01c5 00d8 | | Load_Top At_Offset_0
01c6 e5fe | | Load 0x2,-0x2
01c7 8221 | ! | Call 0x1,0x21
01c8 00d1 | | Pop_Control Pop_Count_1
01c9 e21d | | Load 0x1,0x1d
01ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cb 4800 |H | Short_Literal 0x0
01cc 00da | | Load_Top At_Offset_2
01cd e5ff | | Load 0x2,-0x1
01ce e21a | | Load 0x1,0x1a
01cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d0 e21d | | Load 0x1,0x1d
01d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d3 00d8 | | Load_Top At_Offset_0
01d4 821e | | Call 0x1,0x1e
01d5 00d1 | | Pop_Control Pop_Count_1
01d6 e5fd | | Load 0x2,-0x3
01d7 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
01d8 6804 |h | Jump_Zero 0x1dd
01d9 00d8 | | Load_Top At_Offset_0
01da e5fe | | Load 0x2,-0x2
01db 8221 | ! | Call 0x1,0x21
01dc 00d1 | | Pop_Control Pop_Count_1
01dd e21d | | Load 0x1,0x1d
01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01df 4801 |H | Short_Literal 0x1
01e0 00da | | Load_Top At_Offset_2
01e1 e5ff | | Load 0x2,-0x1
01e2 e21a | | Load 0x1,0x1a
01e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e4 e21d | | Load 0x1,0x1d
01e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e6 00d8 | | Load_Top At_Offset_0
01e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e8 4800 |H | Short_Literal 0x0
01e9 e5fd | | Load 0x2,-0x3
01ea e5fe | | Load 0x2,-0x2
01eb e218 | | Load 0x1,0x18
01ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ed 00d9 | | Load_Top At_Offset_1
01ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f6 | | .CONST 0x01f6 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 00e1 | | Load_Encached Boolean_Cache
01f4 e219 | | Load 0x1,0x19
01f5 0322 | " | Declare_Variable Record
01f6 BODY_01f0:
01f6 00e1 | | Load_Encached Boolean_Cache
01f7 00d9 | | Load_Top At_Offset_1
01f8 e5ff | | Load 0x2,-0x1
01f9 e5fd | | Load 0x2,-0x3
01fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01fb e21a | | Load 0x1,0x1a
01fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01fd 00d1 | | Pop_Control Pop_Count_1
01fe 005a | Z | Store_Top Discrete,At_Offset_2
01ff 00d9 | | Load_Top At_Offset_1
0200 680e |h | Jump_Zero 0x20f
0201 00d8 | | Load_Top At_Offset_0
0202 e5fe | | Load 0x2,-0x2
0203 8221 | ! | Call 0x1,0x21
0204 00d1 | | Pop_Control Pop_Count_1
0205 e5fd | | Load 0x2,-0x3
0206 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0207 4800 |H | Short_Literal 0x0
0208 00da | | Load_Top At_Offset_2
0209 e5ff | | Load 0x2,-0x1
020a e21a | | Load 0x1,0x1a
020b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
020c e5fd | | Load 0x2,-0x3
020d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
020e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020f 00d8 | | Load_Top At_Offset_0
0210 821e | | Call 0x1,0x1e
0211 00d1 | | Pop_Control Pop_Count_1
0212 00d8 | | Load_Top At_Offset_0
0213 e5fe | | Load 0x2,-0x2
0214 8221 | ! | Call 0x1,0x21
0215 00d1 | | Pop_Control Pop_Count_1
0216 e5fd | | Load 0x2,-0x3
0217 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0218 4801 |H | Short_Literal 0x1
0219 00da | | Load_Top At_Offset_2
021a e5ff | | Load 0x2,-0x1
021b e21a | | Load 0x1,0x1a
021c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021d e5fd | | Load 0x2,-0x3
021e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
021f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4801 |H | Short_Literal 0x1
0224 00db | | Load_Top At_Offset_3
0225 e00c | | Load 0x0,0xc
0226 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0227 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "exist"
0229 e00e | | Load 0x0,0xe
022a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
022b 0e00 | | Execute_Immediate Not_Equal,0x0
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0237 | 7 | .CONST 0x0237 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0004 | | .CONST 0x0004 ; Number of locals
0233 INIT_0230:
0233 00e1 | | Load_Encached Boolean_Cache
0234 e219 | | Load 0x1,0x19
0235 0322 | " | Declare_Variable Record
0236 00e3 | | Load_Encached Natural_Cache
0237 BODY_0230:
0237 00e1 | | Load_Encached Boolean_Cache
0238 00da | | Load_Top At_Offset_2
0239 e5ff | | Load 0x2,-0x1
023a e21d | | Load 0x1,0x1d
023b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023c e21a | | Load 0x1,0x1a
023d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
023e 00d1 | | Pop_Control Pop_Count_1
023f 005b | [ | Store_Top Discrete,At_Offset_3
0240 00da | | Load_Top At_Offset_2
0241 7017 |p | Jump_Nonzero 0x259
0242 00d9 | | Load_Top At_Offset_1
0243 821e | | Call 0x1,0x1e
0244 00d1 | | Pop_Control Pop_Count_1
0245 e5fd | | Load 0x2,-0x3
0246 8224 | $ | Call 0x1,0x24
0247 6807 |h | Jump_Zero 0x24f
0248 e5fe | | Load 0x2,-0x2
0249 0aff | | Execute_Immediate Plus,-0x1
024a 0059 | Y | Store_Top Discrete,At_Offset_1
024b 00d9 | | Load_Top At_Offset_1
024c 00d9 | | Load_Top At_Offset_1
024d 8221 | ! | Call 0x1,0x21
024e 00d1 | | Pop_Control Pop_Count_1
024f e21d | | Load 0x1,0x1d
0250 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0251 4801 |H | Short_Literal 0x1
0252 00db | | Load_Top At_Offset_3
0253 e5ff | | Load 0x2,-0x1
0254 e21a | | Load 0x1,0x1a
0255 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0256 e21d | | Load 0x1,0x1d
0257 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0258 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0259 e5fd | | Load 0x2,-0x3
025a 8224 | $ | Call 0x1,0x24
025b 6819 |h | Jump_Zero 0x275
025c e5fe | | Load 0x2,-0x2
025d 0aff | | Execute_Immediate Plus,-0x1
025e 0059 | Y | Store_Top Discrete,At_Offset_1
025f 00d9 | | Load_Top At_Offset_1
0260 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0261 6806 |h | Jump_Zero 0x268
0262 00d9 | | Load_Top At_Offset_1
0263 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0264 00d9 | | Load_Top At_Offset_1
0265 027a | z | Execute Discrete,Less_Equal
0266 6801 |h | Jump_Zero 0x268
0267 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0268 00d9 | | Load_Top At_Offset_1
0269 00d9 | | Load_Top At_Offset_1
026a 8221 | ! | Call 0x1,0x21
026b 00d1 | | Pop_Control Pop_Count_1
026c e21d | | Load 0x1,0x1d
026d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026e 4800 |H | Short_Literal 0x0
026f 00db | | Load_Top At_Offset_3
0270 e5ff | | Load 0x2,-0x1
0271 e21a | | Load 0x1,0x1a
0272 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0273 e21d | | Load 0x1,0x1d
0274 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0275 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0283 | | .CONST 0x0283 ; Address of begin
0279 028a | | .CONST 0x028a ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b e00f | | Load 0x0,0xf
027c 0322 | " | Declare_Variable Record
027d 00db | | Load_Top At_Offset_3
027e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
027f 00d9 | | Load_Top At_Offset_1
0280 017d | } | Execute Record,Structure_Write
0281 e010 | | Load 0x0,0x10
0282 0007 | | Action Break_Optional
0283 BODY_0278:
0283 00d9 | | Load_Top At_Offset_1
0284 8011 | | Call 0x0,0x11
0285 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0286 e00c | | Load 0x0,0xc
0287 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0288 c5fe | | Store 0x2,-0x2
0289 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028a TRAP_0278:
028a e012 | | Load 0x0,0x12
028b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
028c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
028d 010f | | Execute Exception,Equal
028e 6805 |h | Jump_Zero 0x294
028f e216 | | Load 0x1,0x16
0290 e00c | | Load 0x0,0xc
0291 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0292 c5fe | | Store 0x2,-0x2
0293 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0294 e00c | | Load 0x0,0xc
0295 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0296 c5fe | | Store 0x2,-0x2
0297 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a2 | | .CONST 0x02a2 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0004 | | .CONST 0x0004 ; Number of locals
029b INIT_0298:
029b 00e1 | | Load_Encached Boolean_Cache
029c e219 | | Load 0x1,0x19
029d 0322 | " | Declare_Variable Record
029e e004 | | Load 0x0,0x4
029f 0322 | " | Declare_Variable Record
02a0 00d8 | | Load_Top At_Offset_0
02a1 1c00 | | Execute_Immediate Run_Utility,0x0
02a2 BODY_0298:
02a2 00e1 | | Load_Encached Boolean_Cache
02a3 00da | | Load_Top At_Offset_2
02a4 e5ff | | Load 0x2,-0x1
02a5 e21d | | Load 0x1,0x1d
02a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a7 e21a | | Load 0x1,0x1a
02a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a9 00d1 | | Pop_Control Pop_Count_1
02aa 005b | [ | Store_Top Discrete,At_Offset_3
02ab 00da | | Load_Top At_Offset_2
02ac 6830 |h0 | Jump_Zero 0x2dd
02ad 00d9 | | Load_Top At_Offset_1
02ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02af 680e |h | Jump_Zero 0x2be
02b0 00d9 | | Load_Top At_Offset_1
02b1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b2 e5fe | | Load 0x2,-0x2
02b3 027c | | | Execute Discrete,Less
02b4 6809 |h | Jump_Zero 0x2be
02b5 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "Non-existent stack frame"
02b7 e00c | | Load 0x0,0xc
02b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b9 c5fc | | Store 0x2,-0x4
02ba 4801 |H | Short_Literal 0x1
02bb e5fd | | Load 0x2,-0x3
02bc 380c |8 | Execute Record,Field_Write,Field_Number 0xc
02bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02be 00e1 | | Load_Encached Boolean_Cache
02bf 00d9 | | Load_Top At_Offset_1
02c0 e5fe | | Load 0x2,-0x2
02c1 00d8 | | Load_Top At_Offset_0
02c2 00e4 | | Load_Encached Positive_Cache
02c3 0260 | ` | Execute Discrete,In_Type
02c4 7001 |p | Jump_Nonzero 0x2c6
02c5 0801 | | Execute_Immediate Raise,0x1
02c6 e403 | | Load 0x2,0x3
02c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c8 e218 | | Load 0x1,0x18
02c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ca 00d1 | | Pop_Control Pop_Count_1
02cb 005b | [ | Store_Top Discrete,At_Offset_3
02cc 00da | | Load_Top At_Offset_2
02cd 6805 |h | Jump_Zero 0x2d3
02ce e5fc | | Load 0x2,-0x4
02cf 00d9 | | Load_Top At_Offset_1
02d0 8226 | & | Call 0x1,0x26
02d1 c5fc | | Store 0x2,-0x4
02d2 7814 |x | Jump 0x2e7
02d3 e5fc | | Load 0x2,-0x4
02d4 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "Requested Information Not Cached"
02d6 e00c | | Load 0x0,0xc
02d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d8 c5fc | | Store 0x2,-0x4
02d9 8013 | | Call 0x0,0x13
02da e5fd | | Load 0x2,-0x3
02db 017d | } | Execute Record,Structure_Write
02dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02dd e5fc | | Load 0x2,-0x4
02de 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "Requested Information Not Cached"
02e0 e00c | | Load 0x0,0xc
02e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e2 c5fc | | Store 0x2,-0x4
02e3 8013 | | Call 0x0,0x13
02e4 e5fd | | Load 0x2,-0x3
02e5 017d | } | Execute Record,Structure_Write
02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e7 00d9 | | Load_Top At_Offset_1
02e8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e9 6805 |h | Jump_Zero 0x2ef
02ea 00d9 | | Load_Top At_Offset_1
02eb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ec e5fe | | Load 0x2,-0x2
02ed 027a | z | Execute Discrete,Less_Equal
02ee 7801 |x | Jump 0x2f0
02ef 4800 |H | Short_Literal 0x0
02f0 e5fd | | Load 0x2,-0x3
02f1 380c |8 | Execute Record,Field_Write,Field_Number 0xc
02f2 4802 |H | Short_Literal 0x2
02f3 e5fc | | Load 0x2,-0x4
02f4 e00c | | Load 0x0,0xc
02f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f6 700c |p | Jump_Nonzero 0x303
02f7 e5fe | | Load 0x2,-0x2
02f8 00d8 | | Load_Top At_Offset_0
02f9 00e4 | | Load_Encached Positive_Cache
02fa 0260 | ` | Execute Discrete,In_Type
02fb 7001 |p | Jump_Nonzero 0x2fd
02fc 0801 | | Execute_Immediate Raise,0x1
02fd 00da | | Load_Top At_Offset_2
02fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ff e218 | | Load 0x1,0x18
0300 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0301 e5fd | | Load 0x2,-0x3
0302 017d | } | Execute Record,Structure_Write
0303 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b e215 | | Load 0x1,0x15
030c 00ca | | Action Exit_Nullary_Function
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 e215 | | Load 0x1,0x15
0314 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0315 0000 0000 | | .XXX[0x3]
0317 0000 | |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 032d | - | .CONST 0x032d ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0014 | | .CONST 0x0014 ; Number of locals
031b INIT_0318:
031b 4801 |H | Short_Literal 0x1
031c 02cb | | Declare_Variable Entry
031d 4802 |H | Short_Literal 0x2
031e 02cb | | Declare_Variable Entry
031f 4804 |H | Short_Literal 0x4
0320 02cb | | Declare_Variable Entry
0321 4805 |H | Short_Literal 0x5
0322 02cb | | Declare_Variable Entry
0323 4801 |H | Short_Literal 0x1
0324 02cb | | Declare_Variable Entry
0325 4800 |H | Short_Literal 0x0
0326 02cb | | Declare_Variable Entry
0327 00bf | | Action Accept_Activation
0328 00e1 | | Load_Encached Boolean_Cache
0329 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
032a 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
032c 00bc | | Action Signal_Activated
032d BODY_0318:
032d 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "Cache"
032f e001 | | Load 0x0,0x1
0330 180f | | Execute Package,Field_Execute,Field_Number 0xf
0331 00cf | | Action Mark_Auxiliary
0332 7802 |x | Jump 0x335
0333 8214 | | Call 0x1,0x14
0334 00c9 | | Action Pop_Auxiliary_Loop
0335 00da | | Load_Top At_Offset_2
0336 77fc |w | Jump_Nonzero 0x333
0337 00ce | | Action Pop_Auxiliary
0338 00bb | | Action Signal_Completion
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0354 | T | .CONST 0x0354 ; Address of begin
0341 035d | ] | .CONST 0x035d ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 4812 486c |H Hl| Declare_Variable Select 0x000, 0x006,
0345 4811 486d |H Hm| [0x000]: 0x000 = 0x0000,
0347 4810 486f |H Ho| [0x00d]: 0x073 = 0x0398,
0349 480f 4871 |H Hq| [0x00e]: 0x072 = 0x0390,
034b 480e 4872 |H Hr| [0x00f]: 0x071 = 0x0388,
034d 480d 4873 |H Hs| [0x010]: 0x06f = 0x0378,
034f 4800 4800 |H H | [0x011]: 0x06d = 0x0368,
0351 4800 4806 |H H | [0x012]: 0x06c = 0x0360
0353 02cf | |
0354 BODY_0340:
0354 00cf | | Action Mark_Auxiliary
0355 7804 |x | Jump 0x35a
0356 00d9 | | Load_Top At_Offset_1
0357 013f | ? | Execute Select,Rendezvous
0358 00d1 | | Pop_Control Pop_Count_1
0359 00c9 | | Action Pop_Auxiliary_Loop
035a e213 | | Load 0x1,0x13
035b 77fa |w | Jump_Nonzero 0x356
035c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035d TRAP_0340:
035d 0007 | | Action Break_Optional
035e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; See instruction 0x02cf at 0x343, index=0x12
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 4800 |H | Short_Literal 0x0
0364 a213 | | Store_Unchecked 0x1,0x13
0365 4100 |A | End_Rendezvous 0x0
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; See instruction 0x02cf at 0x343, index=0x11
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b e002 | | Load 0x0,0x2
036c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
036d 4864 |Hd | Short_Literal 0x64
036e e002 | | Load 0x0,0x2
036f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0370 e7fe | | Load 0x3,-0x2
0371 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0372 4101 |A | End_Rendezvous 0x1
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; See instruction 0x02cf at 0x343, index=0x10
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b e7fb | | Load 0x3,-0x5
037c e7fc | | Load 0x3,-0x4
037d e7fd | | Load 0x3,-0x3
037e e7fe | | Load 0x3,-0x2
037f 8003 | | Call 0x0,0x3
0380 00d1 | | Pop_Control Pop_Count_1
0381 c7fb | | Store 0x3,-0x5
0382 4103 |A | End_Rendezvous 0x3
0383 0000 0000 | | .BLANK 0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; See instruction 0x02cf at 0x343, index=0xf
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e7fc | | Load 0x3,-0x4
038c e7fd | | Load 0x3,-0x3
038d e7fe | | Load 0x3,-0x2
038e 8004 | | Call 0x0,0x4
038f 4101 |A | End_Rendezvous 0x1
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; See instruction 0x02cf at 0x343, index=0xe
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 e7fd | | Load 0x3,-0x3
0394 e7fe | | Load 0x3,-0x2
0395 8005 | | Call 0x0,0x5
0396 4101 |A | End_Rendezvous 0x1
0397 0000 | | .XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; See instruction 0x02cf at 0x343, index=0xd
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00db | | Load_Top At_Offset_3
039c 8006 | | Call 0x0,0x6
039d 4101 |A | End_Rendezvous 0x1
039e ; --------------------------------------------------------------------------------------
039e ; STRING TABLE
039e ; --------------------------------------------------------------------------------------
039e 0010 | | .STRTAB 0x0010->0x03a6 ; "Program has been recompiled since debugger started"
039f 0040 | @ | .STRTAB 0x0040->0x03bf ; "Not in cache"
03a0 004a | J | .STRTAB 0x004a->0x03c5 ; "Unhandled exception in Set_Cache: "
03a1 006a | j | .STRTAB 0x006a->0x03d6 ; "exist"
03a2 006d | m | .STRTAB 0x006d->0x03d8 ; "Non-existent stack frame"
03a3 0083 | | .STRTAB 0x0083->0x03e4 ; "Requested Information Not Cached"
03a4 00a1 | | .STRTAB 0x00a1->0x03f4 ; "Cache"
03a5 00a4 | | .STREND 0x00a4->0x03f7
03a6 5072 6f67 |Prog| .STRTAB_STRINGS
03f7 0000 | | .XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug Table
03f8 ; --------------------------------------------------------------------------------------
03f8 0004 0010 | | .DEBUG4 0x0004,0x0010,0x5f41,0x0000,0x0001,0x0000
03fe 0000 0000 | | .XXX[0x2]