|
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_03b8fe, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 03e0 | | .CONST 0x03e0 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x333, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 007d | } | .CONST 0x007d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
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 00bf | | Action Accept_Activation
001a 00e1 | | Load_Encached Boolean_Cache
001b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001c 0092 0386 | | Action Push_String_Extended,0x386 ; "Program has been recompiled since debugger started"
001e 029b 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Unelaborated
0020 e002 | | Load 0x0,0x2
0021 e003 | | Load 0x0,0x3
0022 480f |H | Short_Literal 0xf
0023 00e4 | | Load_Encached Positive_Cache
0024 e004 | | Load 0x0,0x4
0025 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0026 e005 | | Load 0x0,0x5
0027 0387 | | Declare_Variable Package
0028 00d8 | | Load_Top At_Offset_0
0029 020f | | Execute Module,Activate
002a 00d8 | | Load_Top At_Offset_0
002b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002c 00e1 | | Load_Encached Boolean_Cache
002d 00e3 | | Load_Encached Natural_Cache
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 4803 |H | Short_Literal 0x3
0030 032d | - | Declare_Type Record,Defined
0031 e006 | | Load 0x0,0x6
0032 e007 | | Load 0x0,0x7
0033 4864 |Hd | Short_Literal 0x64
0034 e008 | | Load 0x0,0x8
0035 e218 | | Load 0x1,0x18
0036 a009 | | Store_Unchecked 0x0,0x9
0037 e005 | | Load 0x0,0x5
0038 0387 | | Declare_Variable Package
0039 00d8 | | Load_Top At_Offset_0
003a 020f | | Execute Module,Activate
003b 00d8 | | Load_Top At_Offset_0
003c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 4801 |H | Short_Literal 0x1
003f 032d | - | Declare_Type Record,Defined
0040 4800 |H | Short_Literal 0x0
0041 0093 0313 | | push_full_address INIT_0310
0043 00f5 | | Load_Encached Unused21
0044 037a | z | Declare_Type Task,Defined,Not_Elaborated
0045 00d9 | | Load_Top At_Offset_1
0046 0322 | " | Declare_Variable Record
0047 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0048 00c7 | | Action Elaborate_Subprogram
0049 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call
004b 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
004d 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
004f 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
0051 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0053 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0055 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0057 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0059 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
005b 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
005d 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
005f 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
0061 e00a | | Load 0x0,0xa
0062 e219 | | Load 0x1,0x19
0063 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0064 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0065 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0066 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0067 4806 |H | Short_Literal 0x6
0068 e21b | | Load 0x1,0x1b
0069 020e | | Execute Module,Augment_Imports
006a e21b | | Load 0x1,0x1b
006b 020d | | Execute Module,Elaborate
006c 0007 | | Action Break_Optional
006d e21b | | Load 0x1,0x1b
006e 036f | o | Declare_Variable Task
006f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0070 00c7 | | Action Elaborate_Subprogram
0071 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0072 00c7 | | Action Elaborate_Subprogram
0073 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0074 00c7 | | Action Elaborate_Subprogram
0075 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0076 00c7 | | Action Elaborate_Subprogram
0077 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0078 00c7 | | Action Elaborate_Subprogram
0079 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007a 00c7 | | Action Elaborate_Subprogram
007b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007c 00c7 | | Action Elaborate_Subprogram
007d BODY_0008:
007d BODY_0008:
007d 00be | | Action Activate_Tasks
007e 8213 | | Call 0x1,0x13
007f 00bc | | Action Signal_Activated
0080 00bb | | Action Signal_Completion
0081 0000 0000 | | .BLANK 0000[0x7]
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 8227 | ' | Call 0x1,0x27
008c 6812 |h | Jump_Zero 0x9f
008d e21c | | Load 0x1,0x1c
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 e229 | ) | Load 0x1,0x29
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 8227 | ' | Call 0x1,0x27
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 e21c | | Load 0x1,0x1c
00a9 4801 |H | Short_Literal 0x1
00aa e229 | ) | Load 0x1,0x29
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 e21c | | Load 0x1,0x1c
00af 00db | | Load_Top At_Offset_3
00b0 4802 |H | Short_Literal 0x2
00b1 e229 | ) | Load 0x1,0x29
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 8228 | ( | Call 0x1,0x28
00bd 6811 |h | Jump_Zero 0xcf
00be e21c | | Load 0x1,0x1c
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 e229 | ) | Load 0x1,0x29
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 0387 | | Action Push_String_Extended,0x387 ; "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 a214 | | Store_Unchecked 0x1,0x14
00e1 7802 |x | Jump 0xe4
00e2 4800 |H | Short_Literal 0x0
00e3 a214 | | Store_Unchecked 0x1,0x14
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 0388 | | Action Push_String_Extended,0x388 ; "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 e214 | | Load 0x1,0x14
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 8227 | ' | Call 0x1,0x27
0104 6805 |h | Jump_Zero 0x10a
0105 e21c | | Load 0x1,0x1c
0106 4801 |H | Short_Literal 0x1
0107 e229 | ) | Load 0x1,0x29
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 e21c | | Load 0x1,0x1c
0114 4801 |H | Short_Literal 0x1
0115 e229 | ) | Load 0x1,0x29
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 00da | | Load_Top At_Offset_2
011c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 e217 | | Load 0x1,0x17
0124 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0125 480f |H | Short_Literal 0xf
0126 e217 | | Load 0x1,0x17
0127 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0128 00db | | Load_Top At_Offset_3
0129 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012a 4800 |H | Short_Literal 0x0
012b 00db | | Load_Top At_Offset_3
012c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012d 4800 |H | Short_Literal 0x0
012e 00db | | Load_Top At_Offset_3
012f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0130 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013e | > | .CONST 0x013e ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b 00e1 | | Load_Encached Boolean_Cache
013c e218 | | Load 0x1,0x18
013d 0322 | " | Declare_Variable Record
013e BODY_0138:
013e 00e1 | | Load_Encached Boolean_Cache
013f 00d9 | | Load_Top At_Offset_1
0140 e5ff | | Load 0x2,-0x1
0141 e5fe | | Load 0x2,-0x2
0142 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0143 e219 | | Load 0x1,0x19
0144 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0145 00d1 | | Pop_Control Pop_Count_1
0146 005a | Z | Store_Top Discrete,At_Offset_2
0147 00d9 | | Load_Top At_Offset_1
0148 680c |h | Jump_Zero 0x155
0149 00d8 | | Load_Top At_Offset_0
014a 821d | | Call 0x1,0x1d
014b 00d1 | | Pop_Control Pop_Count_1
014c e5fe | | Load 0x2,-0x2
014d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014e 4800 |H | Short_Literal 0x0
014f 00da | | Load_Top At_Offset_2
0150 e5ff | | Load 0x2,-0x1
0151 e219 | | Load 0x1,0x19
0152 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0153 e5fe | | Load 0x2,-0x2
0154 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0155 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0162 | b | .CONST 0x0162 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0004 | | .CONST 0x0004 ; Number of locals
015b INIT_0158:
015b e218 | | Load 0x1,0x18
015c 0322 | " | Declare_Variable Record
015d e219 | | Load 0x1,0x19
015e 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
015f 0322 | " | Declare_Variable Record
0160 e008 | | Load 0x0,0x8
0161 0007 | | Action Break_Optional
0162 BODY_0158:
0162 00d9 | | Load_Top At_Offset_1
0163 e5ff | | Load 0x2,-0x1
0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0165 e219 | | Load 0x1,0x19
0166 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0167 00d1 | | Pop_Control Pop_Count_1
0168 00cf | | Action Mark_Auxiliary
0169 781c |x | Jump 0x186
016a 00da | | Load_Top At_Offset_2
016b e219 | | Load 0x1,0x19
016c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
016d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
016e 00d9 | | Load_Top At_Offset_1
016f e5ff | | Load 0x2,-0x1
0170 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0171 e219 | | Load 0x1,0x19
0172 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0173 e402 | | Load 0x2,0x2
0174 017d | } | Execute Record,Structure_Write
0175 00db | | Load_Top At_Offset_3
0176 821d | | Call 0x1,0x1d
0177 00d1 | | Pop_Control Pop_Count_1
0178 e5ff | | Load 0x2,-0x1
0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017a 4800 |H | Short_Literal 0x0
017b e402 | | Load 0x2,0x2
017c e404 | | Load 0x2,0x4
017d e219 | | Load 0x1,0x19
017e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017f e5ff | | Load 0x2,-0x1
0180 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0181 00da | | Load_Top At_Offset_2
0182 e219 | | Load 0x1,0x19
0183 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0184 00d1 | | Pop_Control Pop_Count_1
0185 00c9 | | Action Pop_Auxiliary_Loop
0186 00da | | Load_Top At_Offset_2
0187 e219 | | Load 0x1,0x19
0188 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0189 6fe0 |o | Jump_Zero 0x16a
018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018b 0000 0000 | | .BLANK 0000[0x5]
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 4801 |H | Short_Literal 0x1
0194 e5fe | | Load 0x2,-0x2
0195 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0196 00da | | Load_Top At_Offset_2
0197 e5fe | | Load 0x2,-0x2
0198 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0199 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a6 | | .CONST 0x01a6 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 00e1 | | Load_Encached Boolean_Cache
01a4 e218 | | Load 0x1,0x18
01a5 0322 | " | Declare_Variable Record
01a6 BODY_01a0:
01a6 00e1 | | Load_Encached Boolean_Cache
01a7 00d9 | | Load_Top At_Offset_1
01a8 e5ff | | Load 0x2,-0x1
01a9 e21c | | Load 0x1,0x1c
01aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ab e219 | | Load 0x1,0x19
01ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ad 00d1 | | Pop_Control Pop_Count_1
01ae 005a | Z | Store_Top Discrete,At_Offset_2
01af 00d9 | | Load_Top At_Offset_1
01b0 681a |h | Jump_Zero 0x1cb
01b1 00d8 | | Load_Top At_Offset_0
01b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b3 4800 |H | Short_Literal 0x0
01b4 e5fd | | Load 0x2,-0x3
01b5 e5fe | | Load 0x2,-0x2
01b6 e217 | | Load 0x1,0x17
01b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b8 00d9 | | Load_Top At_Offset_1
01b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ba e5fd | | Load 0x2,-0x3
01bb 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
01bc 680d |h | Jump_Zero 0x1ca
01bd 00d8 | | Load_Top At_Offset_0
01be e5fe | | Load 0x2,-0x2
01bf 8220 | | Call 0x1,0x20
01c0 00d1 | | Pop_Control Pop_Count_1
01c1 e21c | | Load 0x1,0x1c
01c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c3 4800 |H | Short_Literal 0x0
01c4 00da | | Load_Top At_Offset_2
01c5 e5ff | | Load 0x2,-0x1
01c6 e219 | | Load 0x1,0x19
01c7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c8 e21c | | Load 0x1,0x1c
01c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01cb 00d8 | | Load_Top At_Offset_0
01cc 821d | | Call 0x1,0x1d
01cd 00d1 | | Pop_Control Pop_Count_1
01ce e5fd | | Load 0x2,-0x3
01cf 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
01d0 6804 |h | Jump_Zero 0x1d5
01d1 00d8 | | Load_Top At_Offset_0
01d2 e5fe | | Load 0x2,-0x2
01d3 8220 | | Call 0x1,0x20
01d4 00d1 | | Pop_Control Pop_Count_1
01d5 e21c | | Load 0x1,0x1c
01d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d7 4801 |H | Short_Literal 0x1
01d8 00da | | Load_Top At_Offset_2
01d9 e5ff | | Load 0x2,-0x1
01da e219 | | Load 0x1,0x19
01db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01dc e21c | | Load 0x1,0x1c
01dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01de 00d8 | | Load_Top At_Offset_0
01df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e0 4800 |H | Short_Literal 0x0
01e1 e5fd | | Load 0x2,-0x3
01e2 e5fe | | Load 0x2,-0x2
01e3 e217 | | Load 0x1,0x17
01e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e5 00d9 | | Load_Top At_Offset_1
01e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ee | | .CONST 0x01ee ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb 00e1 | | Load_Encached Boolean_Cache
01ec e218 | | Load 0x1,0x18
01ed 0322 | " | Declare_Variable Record
01ee BODY_01e8:
01ee 00e1 | | Load_Encached Boolean_Cache
01ef 00d9 | | Load_Top At_Offset_1
01f0 e5ff | | Load 0x2,-0x1
01f1 e5fd | | Load 0x2,-0x3
01f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f3 e219 | | Load 0x1,0x19
01f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f5 00d1 | | Pop_Control Pop_Count_1
01f6 005a | Z | Store_Top Discrete,At_Offset_2
01f7 00d9 | | Load_Top At_Offset_1
01f8 680e |h | Jump_Zero 0x207
01f9 00d8 | | Load_Top At_Offset_0
01fa e5fe | | Load 0x2,-0x2
01fb 8220 | | Call 0x1,0x20
01fc 00d1 | | Pop_Control Pop_Count_1
01fd e5fd | | Load 0x2,-0x3
01fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ff 4800 |H | Short_Literal 0x0
0200 00da | | Load_Top At_Offset_2
0201 e5ff | | Load 0x2,-0x1
0202 e219 | | Load 0x1,0x19
0203 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0204 e5fd | | Load 0x2,-0x3
0205 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0206 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0207 00d8 | | Load_Top At_Offset_0
0208 821d | | Call 0x1,0x1d
0209 00d1 | | Pop_Control Pop_Count_1
020a 00d8 | | Load_Top At_Offset_0
020b e5fe | | Load 0x2,-0x2
020c 8220 | | Call 0x1,0x20
020d 00d1 | | Pop_Control Pop_Count_1
020e e5fd | | Load 0x2,-0x3
020f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0210 4801 |H | Short_Literal 0x1
0211 00da | | Load_Top At_Offset_2
0212 e5ff | | Load 0x2,-0x1
0213 e219 | | Load 0x1,0x19
0214 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0215 e5fd | | Load 0x2,-0x3
0216 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 4801 |H | Short_Literal 0x1
021c 00db | | Load_Top At_Offset_3
021d e00c | | Load 0x0,0xc
021e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
021f 0092 0389 | | Action Push_String_Extended,0x389 ; "exist"
0221 e00e | | Load 0x0,0xe
0222 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0223 0e00 | | Execute_Immediate Not_Equal,0x0
0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f | / | .CONST 0x022f ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0004 | | .CONST 0x0004 ; Number of locals
022b INIT_0228:
022b 00e1 | | Load_Encached Boolean_Cache
022c e218 | | Load 0x1,0x18
022d 0322 | " | Declare_Variable Record
022e 00e3 | | Load_Encached Natural_Cache
022f BODY_0228:
022f 00e1 | | Load_Encached Boolean_Cache
0230 00da | | Load_Top At_Offset_2
0231 e5ff | | Load 0x2,-0x1
0232 e21c | | Load 0x1,0x1c
0233 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0234 e219 | | Load 0x1,0x19
0235 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0236 00d1 | | Pop_Control Pop_Count_1
0237 005b | [ | Store_Top Discrete,At_Offset_3
0238 00da | | Load_Top At_Offset_2
0239 7017 |p | Jump_Nonzero 0x251
023a 00d9 | | Load_Top At_Offset_1
023b 821d | | Call 0x1,0x1d
023c 00d1 | | Pop_Control Pop_Count_1
023d e5fd | | Load 0x2,-0x3
023e 8223 | # | Call 0x1,0x23
023f 6807 |h | Jump_Zero 0x247
0240 e5fe | | Load 0x2,-0x2
0241 0aff | | Execute_Immediate Plus,-0x1
0242 0059 | Y | Store_Top Discrete,At_Offset_1
0243 00d9 | | Load_Top At_Offset_1
0244 00d9 | | Load_Top At_Offset_1
0245 8220 | | Call 0x1,0x20
0246 00d1 | | Pop_Control Pop_Count_1
0247 e21c | | Load 0x1,0x1c
0248 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0249 4801 |H | Short_Literal 0x1
024a 00db | | Load_Top At_Offset_3
024b e5ff | | Load 0x2,-0x1
024c e219 | | Load 0x1,0x19
024d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024e e21c | | Load 0x1,0x1c
024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0250 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0251 e5fd | | Load 0x2,-0x3
0252 8223 | # | Call 0x1,0x23
0253 6819 |h | Jump_Zero 0x26d
0254 e5fe | | Load 0x2,-0x2
0255 0aff | | Execute_Immediate Plus,-0x1
0256 0059 | Y | Store_Top Discrete,At_Offset_1
0257 00d9 | | Load_Top At_Offset_1
0258 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0259 6806 |h | Jump_Zero 0x260
025a 00d9 | | Load_Top At_Offset_1
025b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
025c 00d9 | | Load_Top At_Offset_1
025d 027a | z | Execute Discrete,Less_Equal
025e 6801 |h | Jump_Zero 0x260
025f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0260 00d9 | | Load_Top At_Offset_1
0261 00d9 | | Load_Top At_Offset_1
0262 8220 | | Call 0x1,0x20
0263 00d1 | | Pop_Control Pop_Count_1
0264 e21c | | Load 0x1,0x1c
0265 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0266 4800 |H | Short_Literal 0x0
0267 00db | | Load_Top At_Offset_3
0268 e5ff | | Load 0x2,-0x1
0269 e219 | | Load 0x1,0x19
026a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026b e21c | | Load 0x1,0x1c
026c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
026d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
026e 0000 0000 | | .XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027b | { | .CONST 0x027b ; Address of begin
0271 0282 | | .CONST 0x0282 ; Address of exception handler
0272 0003 | | .CONST 0x0003 ; Number of locals
0273 INIT_0270:
0273 e00f | | Load 0x0,0xf
0274 0322 | " | Declare_Variable Record
0275 00db | | Load_Top At_Offset_3
0276 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0277 00d9 | | Load_Top At_Offset_1
0278 017d | } | Execute Record,Structure_Write
0279 e010 | | Load 0x0,0x10
027a 0007 | | Action Break_Optional
027b BODY_0270:
027b 00d9 | | Load_Top At_Offset_1
027c 8011 | | Call 0x0,0x11
027d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
027e e00c | | Load 0x0,0xc
027f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0280 c5fe | | Store 0x2,-0x2
0281 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0282 TRAP_0270:
0282 e012 | | Load 0x0,0x12
0283 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0284 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0285 010f | | Execute Exception,Equal
0286 6805 |h | Jump_Zero 0x28c
0287 e215 | | Load 0x1,0x15
0288 e00c | | Load 0x0,0xc
0289 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028a c5fe | | Store 0x2,-0x2
028b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028c e00c | | Load 0x0,0xc
028d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028e c5fe | | Store 0x2,-0x2
028f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029a | | .CONST 0x029a ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0004 | | .CONST 0x0004 ; Number of locals
0293 INIT_0290:
0293 00e1 | | Load_Encached Boolean_Cache
0294 e218 | | Load 0x1,0x18
0295 0322 | " | Declare_Variable Record
0296 e004 | | Load 0x0,0x4
0297 0322 | " | Declare_Variable Record
0298 00d8 | | Load_Top At_Offset_0
0299 1c00 | | Execute_Immediate Run_Utility,0x0
029a BODY_0290:
029a 00e1 | | Load_Encached Boolean_Cache
029b 00da | | Load_Top At_Offset_2
029c e5ff | | Load 0x2,-0x1
029d e21c | | Load 0x1,0x1c
029e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
029f e219 | | Load 0x1,0x19
02a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a1 00d1 | | Pop_Control Pop_Count_1
02a2 005b | [ | Store_Top Discrete,At_Offset_3
02a3 00da | | Load_Top At_Offset_2
02a4 6830 |h0 | Jump_Zero 0x2d5
02a5 00d9 | | Load_Top At_Offset_1
02a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a7 680e |h | Jump_Zero 0x2b6
02a8 00d9 | | Load_Top At_Offset_1
02a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02aa e5fe | | Load 0x2,-0x2
02ab 027c | | | Execute Discrete,Less
02ac 6809 |h | Jump_Zero 0x2b6
02ad 0092 038a | | Action Push_String_Extended,0x38a ; "Non-existent stack frame"
02af e00c | | Load 0x0,0xc
02b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b1 c5fc | | Store 0x2,-0x4
02b2 4801 |H | Short_Literal 0x1
02b3 e5fd | | Load 0x2,-0x3
02b4 380c |8 | Execute Record,Field_Write,Field_Number 0xc
02b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b6 00e1 | | Load_Encached Boolean_Cache
02b7 00d9 | | Load_Top At_Offset_1
02b8 e5fe | | Load 0x2,-0x2
02b9 00d8 | | Load_Top At_Offset_0
02ba 00e4 | | Load_Encached Positive_Cache
02bb 0260 | ` | Execute Discrete,In_Type
02bc 7001 |p | Jump_Nonzero 0x2be
02bd 0801 | | Execute_Immediate Raise,0x1
02be e403 | | Load 0x2,0x3
02bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c0 e217 | | Load 0x1,0x17
02c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c2 00d1 | | Pop_Control Pop_Count_1
02c3 005b | [ | Store_Top Discrete,At_Offset_3
02c4 00da | | Load_Top At_Offset_2
02c5 6805 |h | Jump_Zero 0x2cb
02c6 e5fc | | Load 0x2,-0x4
02c7 00d9 | | Load_Top At_Offset_1
02c8 8225 | % | Call 0x1,0x25
02c9 c5fc | | Store 0x2,-0x4
02ca 7814 |x | Jump 0x2df
02cb e5fc | | Load 0x2,-0x4
02cc 0092 038b | | Action Push_String_Extended,0x38b ; "Requested Information Not Cached"
02ce e00c | | Load 0x0,0xc
02cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d0 c5fc | | Store 0x2,-0x4
02d1 8013 | | Call 0x0,0x13
02d2 e5fd | | Load 0x2,-0x3
02d3 017d | } | Execute Record,Structure_Write
02d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d5 e5fc | | Load 0x2,-0x4
02d6 0092 038b | | Action Push_String_Extended,0x38b ; "Requested Information Not Cached"
02d8 e00c | | Load 0x0,0xc
02d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02da c5fc | | Store 0x2,-0x4
02db 8013 | | Call 0x0,0x13
02dc e5fd | | Load 0x2,-0x3
02dd 017d | } | Execute Record,Structure_Write
02de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02df 00d9 | | Load_Top At_Offset_1
02e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e1 6805 |h | Jump_Zero 0x2e7
02e2 00d9 | | Load_Top At_Offset_1
02e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e4 e5fe | | Load 0x2,-0x2
02e5 027a | z | Execute Discrete,Less_Equal
02e6 7801 |x | Jump 0x2e8
02e7 4800 |H | Short_Literal 0x0
02e8 e5fd | | Load 0x2,-0x3
02e9 380c |8 | Execute Record,Field_Write,Field_Number 0xc
02ea 4802 |H | Short_Literal 0x2
02eb e5fc | | Load 0x2,-0x4
02ec e00c | | Load 0x0,0xc
02ed 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ee 700c |p | Jump_Nonzero 0x2fb
02ef e5fe | | Load 0x2,-0x2
02f0 00d8 | | Load_Top At_Offset_0
02f1 00e4 | | Load_Encached Positive_Cache
02f2 0260 | ` | Execute Discrete,In_Type
02f3 7001 |p | Jump_Nonzero 0x2f5
02f4 0801 | | Execute_Immediate Raise,0x1
02f5 00da | | Load_Top At_Offset_2
02f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f7 e217 | | Load 0x1,0x17
02f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f9 e5fd | | Load 0x2,-0x3
02fa 017d | } | Execute Record,Structure_Write
02fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 e214 | | Load 0x1,0x14
0304 00ca | | Action Exit_Nullary_Function
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
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 e214 | | Load 0x1,0x14
030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0321 | ! | .CONST 0x0321 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0012 | | .CONST 0x0012 ; Number of locals
0313 INIT_0310:
0313 4801 |H | Short_Literal 0x1
0314 02cb | | Declare_Variable Entry
0315 4802 |H | Short_Literal 0x2
0316 02cb | | Declare_Variable Entry
0317 4804 |H | Short_Literal 0x4
0318 02cb | | Declare_Variable Entry
0319 4805 |H | Short_Literal 0x5
031a 02cb | | Declare_Variable Entry
031b 4801 |H | Short_Literal 0x1
031c 02cb | | Declare_Variable Entry
031d 00bf | | Action Accept_Activation
031e 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
0320 00bc | | Action Signal_Activated
0321 BODY_0310:
0321 0092 038c | | Action Push_String_Extended,0x38c ; "Cache"
0323 e001 | | Load 0x0,0x1
0324 180f | | Execute Package,Field_Execute,Field_Number 0xf
0325 00cf | | Action Mark_Auxiliary
0326 8212 | | Call 0x1,0x12
0327 00c9 | | Action Pop_Auxiliary_Loop
0328 7ffd | | Jump 0x326
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0342 | B | .CONST 0x0342 ; Address of begin
0331 0348 | H | .CONST 0x0348 ; Address of exception handler
0332 0002 | | .CONST 0x0002 ; Number of locals
0333 INIT_0330:
0333 4811 486a |H Hj| Declare_Variable Select 0x000, 0x005,
0335 4810 486c |H Hl| [0x000]: 0x001 = 0x0008,
0337 480f 486e |H Hn| [0x00d]: 0x070 = 0x0380,
0339 480e 486f |H Ho| [0x00e]: 0x06f = 0x0378,
033b 480d 4870 |H Hp| [0x00f]: 0x06e = 0x0370,
033d 4800 4801 |H H | [0x010]: 0x06c = 0x0360,
033f 4800 4805 |H H | [0x011]: 0x06a = 0x0350
0341 02cf | |
0342 BODY_0330:
0342 00cf | | Action Mark_Auxiliary
0343 00d9 | | Load_Top At_Offset_1
0344 013f | ? | Execute Select,Rendezvous
0345 00d1 | | Pop_Control Pop_Count_1
0346 00c9 | | Action Pop_Auxiliary_Loop
0347 7ffb | | Jump 0x343
0348 TRAP_0330:
0348 0007 | | Action Break_Optional
0349 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; See instruction 0x02cf at 0x333, index=0x11
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e002 | | Load 0x0,0x2
0354 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0355 4864 |Hd | Short_Literal 0x64
0356 e002 | | Load 0x0,0x2
0357 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0358 e7fe | | Load 0x3,-0x2
0359 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
035a 4101 |A | End_Rendezvous 0x1
035b 0000 0000 | | .BLANK 0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; See instruction 0x02cf at 0x333, index=0x10
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 e7fb | | Load 0x3,-0x5
0364 e7fc | | Load 0x3,-0x4
0365 e7fd | | Load 0x3,-0x3
0366 e7fe | | Load 0x3,-0x2
0367 8003 | | Call 0x0,0x3
0368 00d1 | | Pop_Control Pop_Count_1
0369 c7fb | | Store 0x3,-0x5
036a 4103 |A | End_Rendezvous 0x3
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; See instruction 0x02cf at 0x333, index=0xf
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 e7fc | | Load 0x3,-0x4
0374 e7fd | | Load 0x3,-0x3
0375 e7fe | | Load 0x3,-0x2
0376 8004 | | Call 0x0,0x4
0377 4101 |A | End_Rendezvous 0x1
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; See instruction 0x02cf at 0x333, index=0xe
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 e7fd | | Load 0x3,-0x3
037c e7fe | | Load 0x3,-0x2
037d 8005 | | Call 0x0,0x5
037e 4101 |A | End_Rendezvous 0x1
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; See instruction 0x02cf at 0x333, index=0xd
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00db | | Load_Top At_Offset_3
0384 8006 | | Call 0x0,0x6
0385 4101 |A | End_Rendezvous 0x1
0386 ; --------------------------------------------------------------------------------------
0386 ; STRING TABLE
0386 ; --------------------------------------------------------------------------------------
0386 0010 | | .STRTAB 0x0010->0x038e ; "Program has been recompiled since debugger started"
0387 0040 | @ | .STRTAB 0x0040->0x03a7 ; "Not in cache"
0388 004a | J | .STRTAB 0x004a->0x03ad ; "Unhandled exception in Set_Cache: "
0389 006a | j | .STRTAB 0x006a->0x03be ; "exist"
038a 006d | m | .STRTAB 0x006d->0x03c0 ; "Non-existent stack frame"
038b 0083 | | .STRTAB 0x0083->0x03cc ; "Requested Information Not Cached"
038c 00a1 | | .STRTAB 0x00a1->0x03dc ; "Cache"
038d 00a4 | | .STREND 0x00a4->0x03df
038e 5072 6f67 |Prog| .STRTAB_STRINGS
03df 0000 | | .XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug Table
03e0 ; --------------------------------------------------------------------------------------
03e0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a46,0x0000,0x0001,0x0000
03e6 0000 0000 | | .BLANK 0000[0x1a]