|
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_16ccd7
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004f | O | .CONST 0x004f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b 00e6 | | Load_Encached Float_Cache 000c 00e6 | | Load_Encached Float_Cache 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 4802 |H | Short_Literal 0x2 000f 032e | . | Declare_Type Record,Defined,Visible 0010 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0012 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0016 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0018 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 001a 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001c 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001e e001 | | Load 0x0,0x1 001f 0129 | ) | Execute Any,Make_Visible 0020 e002 | | Load 0x0,0x2 0021 0129 | ) | Execute Any,Make_Visible 0022 00bf | | Action Accept_Activation 0023 0092 021c | | Action Push_String_Extended,0x21c ; "bonnie" 0025 e003 | | Load 0x0,0x3 0026 180e | | Execute Package,Field_Execute,Field_Number 0xe 0027 e004 | | Load 0x0,0x4 0028 190d | | Execute Package,Field_Reference,Field_Number 0xd 0029 00c6 | | Action Check_Subprogram_Elaborated 002a e005 | | Load 0x0,0x5 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 00d9 | | Load_Top At_Offset_1 002d e005 | | Load 0x0,0x5 002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002f 482d |H- | Short_Literal 0x2d 0030 4800 |H | Short_Literal 0x0 0031 e006 | | Load 0x0,0x6 0032 e007 | | Load 0x0,0x7 0033 4800 |H | Short_Literal 0x0 0034 0007 | | Action Break_Optional 0035 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0037 e004 | | Load 0x0,0x4 0038 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0039 00c6 | | Action Check_Subprogram_Elaborated 003a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 003b e008 | | Load 0x0,0x8 003c e009 | | Load 0x0,0x9 003d 4800 |H | Short_Literal 0x0 003e 0007 | | Action Break_Optional 003f 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 0041 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0042 00c7 | | Action Elaborate_Subprogram 0043 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0044 00c7 | | Action Elaborate_Subprogram 0045 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0046 00c7 | | Action Elaborate_Subprogram 0047 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0048 00c7 | | Action Elaborate_Subprogram 0049 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004a 00c7 | | Action Elaborate_Subprogram 004b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004c 00c7 | | Action Elaborate_Subprogram 004d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004e 00c7 | | Action Elaborate_Subprogram 004f BODY_0008: 004f 00bc | | Action Signal_Activated 0050 00bb | | Action Signal_Completion 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0062 | b | .CONST 0x0062 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b e00a | | Load 0x0,0xa 005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005d 02c7 | | Declare_Variable Any 005e 00d8 | | Load_Top At_Offset_0 005f 1c00 | | Execute_Immediate Run_Utility,0x0 0060 e20d | | Load 0x1,0xd 0061 0322 | " | Declare_Variable Record 0062 BODY_0058: 0062 00d9 | | Load_Top At_Offset_1 0063 0120 | | Execute Any,Is_Value 0064 6803 |h | Jump_Zero 0x68 0065 e00a | | Load 0x0,0xa 0066 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0067 7801 |x | Jump 0x69 0068 00d9 | | Load_Top At_Offset_1 0069 4800 |H | Short_Literal 0x0 006a 482d |H- | Short_Literal 0x2d 006b e21a | | Load 0x1,0x1a 006c e219 | | Load 0x1,0x19 006d e218 | | Load 0x1,0x18 006e 4800 |H | Short_Literal 0x0 006f e218 | | Load 0x1,0x18 0070 e219 | | Load 0x1,0x19 0071 e21a | | Load 0x1,0x1a 0072 e21b | | Load 0x1,0x1b 0073 e21c | | Load 0x1,0x1c 0074 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0075 e004 | | Load 0x0,0x4 0076 180d | | Execute Package,Field_Execute,Field_Number 0xd 0077 c402 | | Store 0x2,0x2 0078 e5ff | | Load 0x2,-0x1 0079 00d8 | | Load_Top At_Offset_0 007a e00b | | Load 0x0,0xb 007b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 007c 0234 | 4 | Execute Float,In_Type 007d 7001 |p | Jump_Nonzero 0x7f 007e 0801 | | Execute_Immediate Raise,0x1 007f 00da | | Load_Top At_Offset_2 0080 e00c | | Load 0x0,0xc 0081 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0082 e5fe | | Load 0x2,-0x2 0083 00d8 | | Load_Top At_Offset_0 0084 e00b | | Load 0x0,0xb 0085 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0086 0234 | 4 | Execute Float,In_Type 0087 7001 |p | Jump_Nonzero 0x89 0088 0801 | | Execute_Immediate Raise,0x1 0089 00da | | Load_Top At_Offset_2 008a e00c | | Load 0x0,0xc 008b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008c 00d9 | | Load_Top At_Offset_1 008d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 008e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 008f e004 | | Load 0x0,0x4 0090 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0091 00d8 | | Load_Top At_Offset_0 0092 00da | | Load_Top At_Offset_2 0093 e00d | | Load 0x0,0xd 0094 180e | | Execute Package,Field_Execute,Field_Number 0xe 0095 00d1 | | Pop_Control Pop_Count_1 0096 00d9 | | Load_Top At_Offset_1 0097 e004 | | Load 0x0,0x4 0098 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0099 00d8 | | Load_Top At_Offset_0 009a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009b 0000 0000 | | .BLANK 0000[0x5] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a9 | | .CONST 0x00a9 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e00a | | Load 0x0,0xa 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 02c7 | | Declare_Variable Any 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 00e6 | | Load_Encached Float_Cache 00a9 BODY_00a0: 00a9 00d9 | | Load_Top At_Offset_1 00aa 0120 | | Execute Any,Is_Value 00ab 6803 |h | Jump_Zero 0xaf 00ac e00a | | Load 0x0,0xa 00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ae 7801 |x | Jump 0xb0 00af 00d9 | | Load_Top At_Offset_1 00b0 4800 |H | Short_Literal 0x0 00b1 482d |H- | Short_Literal 0x2d 00b2 e21a | | Load 0x1,0x1a 00b3 e219 | | Load 0x1,0x19 00b4 e218 | | Load 0x1,0x18 00b5 4801 |H | Short_Literal 0x1 00b6 e218 | | Load 0x1,0x18 00b7 e219 | | Load 0x1,0x19 00b8 e21a | | Load 0x1,0x1a 00b9 e21b | | Load 0x1,0x1b 00ba e21c | | Load 0x1,0x1c 00bb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00bc e004 | | Load 0x0,0x4 00bd 180d | | Execute Package,Field_Execute,Field_Number 0xd 00be c402 | | Store 0x2,0x2 00bf e5ff | | Load 0x2,-0x1 00c0 00da | | Load_Top At_Offset_2 00c1 e00d | | Load 0x0,0xd 00c2 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c3 00d9 | | Load_Top At_Offset_1 00c4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00c5 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00c6 e004 | | Load 0x0,0x4 00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c8 e00b | | Load 0x0,0xb 00c9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00ca 00da | | Load_Top At_Offset_2 00cb e00c | | Load 0x0,0xc 00cc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00cd 0049 | I | Store_Top Float,At_Offset_1 00ce 00d9 | | Load_Top At_Offset_1 00cf e004 | | Load 0x0,0x4 00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d1 00d8 | | Load_Top At_Offset_0 00d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e1 | | .CONST 0x00e1 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db e00a | | Load 0x0,0xa 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd 02c7 | | Declare_Variable Any 00de 00d8 | | Load_Top At_Offset_0 00df 1c00 | | Execute_Immediate Run_Utility,0x0 00e0 00e6 | | Load_Encached Float_Cache 00e1 BODY_00d8: 00e1 00d9 | | Load_Top At_Offset_1 00e2 0120 | | Execute Any,Is_Value 00e3 6803 |h | Jump_Zero 0xe7 00e4 e00a | | Load 0x0,0xa 00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e6 7801 |x | Jump 0xe8 00e7 00d9 | | Load_Top At_Offset_1 00e8 4800 |H | Short_Literal 0x0 00e9 482d |H- | Short_Literal 0x2d 00ea e21a | | Load 0x1,0x1a 00eb e219 | | Load 0x1,0x19 00ec e218 | | Load 0x1,0x18 00ed 4802 |H | Short_Literal 0x2 00ee e218 | | Load 0x1,0x18 00ef e219 | | Load 0x1,0x19 00f0 e21a | | Load 0x1,0x1a 00f1 e21b | | Load 0x1,0x1b 00f2 e21c | | Load 0x1,0x1c 00f3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f4 e004 | | Load 0x0,0x4 00f5 180d | | Execute Package,Field_Execute,Field_Number 0xd 00f6 c402 | | Store 0x2,0x2 00f7 e5ff | | Load 0x2,-0x1 00f8 00da | | Load_Top At_Offset_2 00f9 e00d | | Load 0x0,0xd 00fa 180d | | Execute Package,Field_Execute,Field_Number 0xd 00fb 00d9 | | Load_Top At_Offset_1 00fc 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00fd 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00fe e004 | | Load 0x0,0x4 00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0100 e00b | | Load 0x0,0xb 0101 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0102 00da | | Load_Top At_Offset_2 0103 e00c | | Load 0x0,0xc 0104 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0105 0049 | I | Store_Top Float,At_Offset_1 0106 00d9 | | Load_Top At_Offset_1 0107 e004 | | Load 0x0,0x4 0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0109 00d8 | | Load_Top At_Offset_0 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011a | | .CONST 0x011a ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e00a | | Load 0x0,0xa 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 02c7 | | Declare_Variable Any 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 e20d | | Load 0x1,0xd 0119 0322 | " | Declare_Variable Record 011a BODY_0110: 011a 00d9 | | Load_Top At_Offset_1 011b 0120 | | Execute Any,Is_Value 011c 6803 |h | Jump_Zero 0x120 011d e00a | | Load 0x0,0xa 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f 7801 |x | Jump 0x121 0120 00d9 | | Load_Top At_Offset_1 0121 4800 |H | Short_Literal 0x0 0122 482d |H- | Short_Literal 0x2d 0123 e21a | | Load 0x1,0x1a 0124 e219 | | Load 0x1,0x19 0125 e218 | | Load 0x1,0x18 0126 4803 |H | Short_Literal 0x3 0127 e218 | | Load 0x1,0x18 0128 e219 | | Load 0x1,0x19 0129 e21a | | Load 0x1,0x1a 012a e21b | | Load 0x1,0x1b 012b e21c | | Load 0x1,0x1c 012c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 012d e004 | | Load 0x0,0x4 012e 180d | | Execute Package,Field_Execute,Field_Number 0xd 012f c402 | | Store 0x2,0x2 0130 e5ff | | Load 0x2,-0x1 0131 00da | | Load_Top At_Offset_2 0132 e00d | | Load 0x0,0xd 0133 180d | | Execute Package,Field_Execute,Field_Number 0xd 0134 e5fe | | Load 0x2,-0x2 0135 00da | | Load_Top At_Offset_2 0136 e00d | | Load 0x0,0xd 0137 180d | | Execute Package,Field_Execute,Field_Number 0xd 0138 00d9 | | Load_Top At_Offset_1 0139 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 013a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 013b e004 | | Load 0x0,0x4 013c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 013d 00d8 | | Load_Top At_Offset_0 013e 00da | | Load_Top At_Offset_2 013f e00d | | Load 0x0,0xd 0140 180e | | Execute Package,Field_Execute,Field_Number 0xe 0141 00d1 | | Pop_Control Pop_Count_1 0142 00d9 | | Load_Top At_Offset_1 0143 e004 | | Load 0x0,0x4 0144 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0145 00d8 | | Load_Top At_Offset_0 0146 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0147 0000 | | .XXX[0x1] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0152 | R | .CONST 0x0152 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e00a | | Load 0x0,0xa 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 e20d | | Load 0x1,0xd 0151 0322 | " | Declare_Variable Record 0152 BODY_0148: 0152 00d9 | | Load_Top At_Offset_1 0153 0120 | | Execute Any,Is_Value 0154 6803 |h | Jump_Zero 0x158 0155 e00a | | Load 0x0,0xa 0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0157 7801 |x | Jump 0x159 0158 00d9 | | Load_Top At_Offset_1 0159 4800 |H | Short_Literal 0x0 015a 482d |H- | Short_Literal 0x2d 015b e21a | | Load 0x1,0x1a 015c e219 | | Load 0x1,0x19 015d e218 | | Load 0x1,0x18 015e 4804 |H | Short_Literal 0x4 015f e218 | | Load 0x1,0x18 0160 e219 | | Load 0x1,0x19 0161 e21a | | Load 0x1,0x1a 0162 e21b | | Load 0x1,0x1b 0163 e21c | | Load 0x1,0x1c 0164 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0165 e004 | | Load 0x0,0x4 0166 180d | | Execute Package,Field_Execute,Field_Number 0xd 0167 c402 | | Store 0x2,0x2 0168 e5ff | | Load 0x2,-0x1 0169 00da | | Load_Top At_Offset_2 016a e00d | | Load 0x0,0xd 016b 180d | | Execute Package,Field_Execute,Field_Number 0xd 016c e5fe | | Load 0x2,-0x2 016d 00da | | Load_Top At_Offset_2 016e e00d | | Load 0x0,0xd 016f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0170 00d9 | | Load_Top At_Offset_1 0171 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0172 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0173 e004 | | Load 0x0,0x4 0174 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0175 00d8 | | Load_Top At_Offset_0 0176 00da | | Load_Top At_Offset_2 0177 e00d | | Load 0x0,0xd 0178 180e | | Execute Package,Field_Execute,Field_Number 0xe 0179 00d1 | | Pop_Control Pop_Count_1 017a 00d9 | | Load_Top At_Offset_1 017b e004 | | Load 0x0,0x4 017c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017d 00d8 | | Load_Top At_Offset_0 017e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 018a | | .CONST 0x018a ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 e00a | | Load 0x0,0xa 0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0185 02c7 | | Declare_Variable Any 0186 00d8 | | Load_Top At_Offset_0 0187 1c00 | | Execute_Immediate Run_Utility,0x0 0188 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 018a BODY_0180: 018a 00d9 | | Load_Top At_Offset_1 018b 0120 | | Execute Any,Is_Value 018c 6803 |h | Jump_Zero 0x190 018d e00a | | Load 0x0,0xa 018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018f 7801 |x | Jump 0x191 0190 00d9 | | Load_Top At_Offset_1 0191 4800 |H | Short_Literal 0x0 0192 482d |H- | Short_Literal 0x2d 0193 e21a | | Load 0x1,0x1a 0194 e219 | | Load 0x1,0x19 0195 e218 | | Load 0x1,0x18 0196 4805 |H | Short_Literal 0x5 0197 e218 | | Load 0x1,0x18 0198 e219 | | Load 0x1,0x19 0199 e21a | | Load 0x1,0x1a 019a e21b | | Load 0x1,0x1b 019b e21c | | Load 0x1,0x1c 019c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 019d e004 | | Load 0x0,0x4 019e 180d | | Execute Package,Field_Execute,Field_Number 0xd 019f c402 | | Store 0x2,0x2 01a0 e5ff | | Load 0x2,-0x1 01a1 00da | | Load_Top At_Offset_2 01a2 e00d | | Load 0x0,0xd 01a3 180d | | Execute Package,Field_Execute,Field_Number 0xd 01a4 00d9 | | Load_Top At_Offset_1 01a5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01a6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 01a7 e004 | | Load 0x0,0x4 01a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a9 8403 | | Call 0x2,0x3 01aa 0831 | 1 | Execute_Immediate Raise,0x31 01ab 0000 0000 | | .BLANK 0000[0x5] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01ba | | .CONST 0x01ba ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e00a | | Load 0x0,0xa 01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b5 02c7 | | Declare_Variable Any 01b6 00d8 | | Load_Top At_Offset_0 01b7 1c00 | | Execute_Immediate Run_Utility,0x0 01b8 e20d | | Load 0x1,0xd 01b9 0322 | " | Declare_Variable Record 01ba BODY_01b0: 01ba 00d9 | | Load_Top At_Offset_1 01bb 0120 | | Execute Any,Is_Value 01bc 6803 |h | Jump_Zero 0x1c0 01bd e00a | | Load 0x0,0xa 01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bf 7801 |x | Jump 0x1c1 01c0 00d9 | | Load_Top At_Offset_1 01c1 4800 |H | Short_Literal 0x0 01c2 482d |H- | Short_Literal 0x2d 01c3 e21a | | Load 0x1,0x1a 01c4 e219 | | Load 0x1,0x19 01c5 e218 | | Load 0x1,0x18 01c6 4806 |H | Short_Literal 0x6 01c7 e218 | | Load 0x1,0x18 01c8 e219 | | Load 0x1,0x19 01c9 e21a | | Load 0x1,0x1a 01ca e21b | | Load 0x1,0x1b 01cb e21c | | Load 0x1,0x1c 01cc 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 01cd e004 | | Load 0x0,0x4 01ce 180d | | Execute Package,Field_Execute,Field_Number 0xd 01cf c402 | | Store 0x2,0x2 01d0 e5ff | | Load 0x2,-0x1 01d1 00da | | Load_Top At_Offset_2 01d2 e00c | | Load 0x0,0xc 01d3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01d4 00d9 | | Load_Top At_Offset_1 01d5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01d6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 01d7 e004 | | Load 0x0,0x4 01d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d9 00d8 | | Load_Top At_Offset_0 01da 00da | | Load_Top At_Offset_2 01db e00d | | Load 0x0,0xd 01dc 180e | | Execute Package,Field_Execute,Field_Number 0xe 01dd 00d1 | | Pop_Control Pop_Count_1 01de 00d9 | | Load_Top At_Offset_1 01df e004 | | Load 0x0,0x4 01e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e1 00d8 | | Load_Top At_Offset_0 01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 00d8 | | Load_Top At_Offset_0 01ed 4800 |H | Short_Literal 0x0 01ee 4806 |H | Short_Literal 0x6 01ef 0262 | b | Execute Discrete,In_Range 01f0 6811 |h | Jump_Zero 0x202 01f1 4606 |F | Jump_Case 0x7 01f2 7808 |x | Jump 0x1fb ; case 0x0 01f3 7808 |x | Jump 0x1fc ; case 0x1 01f4 7808 |x | Jump 0x1fd ; case 0x2 01f5 7808 |x | Jump 0x1fe ; case 0x3 01f6 7808 |x | Jump 0x1ff ; case 0x4 01f7 7808 |x | Jump 0x200 ; case 0x5 01f8 7800 |x | Jump 0x1f9 ; case 0x6 01f9 e216 | | Load 0x1,0x16 01fa 0257 | W | Execute Discrete,Raise 01fb 08e0 | | Execute_Immediate Raise,0xe0 01fc 08e1 | | Execute_Immediate Raise,0xe1 01fd 08e2 | | Execute_Immediate Raise,0xe2 01fe 08e3 | | Execute_Immediate Raise,0xe3 01ff 08e4 | | Execute_Immediate Raise,0xe4 0200 e215 | | Load 0x1,0x15 0201 0257 | W | Execute Discrete,Raise 0202 00d1 | | Pop_Control Pop_Count_1 0203 e00e | | Load 0x0,0xe 0204 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0205 0257 | W | Execute Discrete,Raise 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e00a | | Load 0x0,0xa 020c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 020d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020e 0000 0000 | | .XXX[0x2] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0216 | | .CONST 0x0216 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e402 | | Load 0x2,0x2 0214 e00c | | Load 0x0,0xc 0215 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0216 BODY_0210: 0216 e402 | | Load 0x2,0x2 0217 e004 | | Load 0x0,0x4 0218 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0219 00d8 | | Load_Top At_Offset_0 021a 00cb | | Action Pop_Block_With_Result 021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021c ; -------------------------------------------------------------------------------------- 021c ; STRING TABLE 021c ; -------------------------------------------------------------------------------------- 021c 0004 | | .STRTAB 0x0004->0x021e ; "bonnie" 021d 0008 | | .STREND 0x0008->0x0221 021e 626f 6e6e |bonn| .STRTAB_STRINGS 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug Table 0228 ; -------------------------------------------------------------------------------------- 0228 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7402,0x0000,0x0001,0x000c 022e 000b 025e | ^| .DBG4T 0x000b,0x025e,0x8000,0x0000 0232 0023 026a | # j| .DBG4T 0x0023,0x026a,0x8000,0x0000 0236 005b 0278 | [ x| .DBG4T 0x005b,0x0278,0x0002,0x0000 023a 00a3 0283 | | .DBG4T 0x00a3,0x0283,0x0002,0x0000 023e 00db 028d | | .DBG4T 0x00db,0x028d,0x0002,0x0000 0242 0113 0297 | | .DBG4T 0x0113,0x0297,0x0002,0x0000 0246 014b 02a2 | K | .DBG4T 0x014b,0x02a2,0x0002,0x0000 024a 0183 02ad | | .DBG4T 0x0183,0x02ad,0x0002,0x0000 024e 01b3 02b4 | | .DBG4T 0x01b3,0x02b4,0x0002,0x0000 0252 01eb 02be | | .DBG4T 0x01eb,0x02be,0x0001,0x4000 0256 020b 02d2 | | .DBG4T 0x020b,0x02d2,0x0001,0x0000 025a 0213 02d5 | | .DBG4T 0x0213,0x02d5,0x0004,0x0000 025e ; -------------------------------------------------------------------------------------- 025e ; Debug chain 025e ; -------------------------------------------------------------------------------------- 025e 000a 0000 | | .DBGLEN 0x000a,0x0000 0260 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020 026a ; -------------------------------------------------------------------------------------- 026a ; Debug chain 026a ; -------------------------------------------------------------------------------------- 026a 000c 0000 | | .DBGLEN 0x000c,0x0000 026c 0023 0027 | # '| .DBGLNO 0x0023,0x0027,0x0035,0x0037,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug chain 0278 ; -------------------------------------------------------------------------------------- 0278 0002 0007 | | .DBGLEN 0x0002,0x0007 027a 005b 0060 | [ `| .DBGLNO 0x005b,0x0060,0x0062,0x0078,0x0082,0x008c,0x0091,0x0096,0x0099 0283 ; -------------------------------------------------------------------------------------- 0283 ; Debug chain 0283 ; -------------------------------------------------------------------------------------- 0283 0002 0006 | | .DBGLEN 0x0002,0x0006 0285 00a3 00a8 | | .DBGLNO 0x00a3,0x00a8,0x00a9,0x00bf,0x00c3,0x00c8,0x00ce,0x00d1 028d ; -------------------------------------------------------------------------------------- 028d ; Debug chain 028d ; -------------------------------------------------------------------------------------- 028d 0002 0006 | | .DBGLEN 0x0002,0x0006 028f 00db 00e0 | | .DBGLNO 0x00db,0x00e0,0x00e1,0x00f7,0x00fb,0x0100,0x0106,0x0109 0297 ; -------------------------------------------------------------------------------------- 0297 ; Debug chain 0297 ; -------------------------------------------------------------------------------------- 0297 0002 0007 | | .DBGLEN 0x0002,0x0007 0299 0113 0118 | | .DBGLNO 0x0113,0x0118,0x011a,0x0130,0x0134,0x0138,0x013d,0x0142,0x0145 02a2 ; -------------------------------------------------------------------------------------- 02a2 ; Debug chain 02a2 ; -------------------------------------------------------------------------------------- 02a2 0002 0007 | | .DBGLEN 0x0002,0x0007 02a4 014b 0150 | K P| .DBGLNO 0x014b,0x0150,0x0152,0x0168,0x016c,0x0170,0x0175,0x017a,0x017d 02ad ; -------------------------------------------------------------------------------------- 02ad ; Debug chain 02ad ; -------------------------------------------------------------------------------------- 02ad 0001 0004 | | .DBGLEN 0x0001,0x0004 02af 0183 018a | | .DBGLNO 0x0183,0x018a,0x01a0,0x01a4,0x01a9 02b4 ; -------------------------------------------------------------------------------------- 02b4 ; Debug chain 02b4 ; -------------------------------------------------------------------------------------- 02b4 0002 0006 | | .DBGLEN 0x0002,0x0006 02b6 01b3 01b8 | | .DBGLNO 0x01b3,0x01b8,0x01ba,0x01d0,0x01d4,0x01d9,0x01de,0x01e1 02be ; -------------------------------------------------------------------------------------- 02be ; Debug chain 02be ; -------------------------------------------------------------------------------------- 02be 0000 0009 | | .DBGLEN 0x0000,0x0009 02c0 01eb 01f9 | | .DBGLNO 0x01eb,0x01f9,0x01fb,0x01fc,0x01fd,0x01fe,0x01ff,0x0200,0x0203 02c9 0001 0008 | | .XXX[0x9] 02cb 0002 0003 | | 02cd 0004 0005 | | 02cf 0006 0007 | | 02d1 0009 | | 02d2 ; -------------------------------------------------------------------------------------- 02d2 ; Debug chain 02d2 ; -------------------------------------------------------------------------------------- 02d2 0000 0001 | | .DBGLEN 0x0000,0x0001 02d4 020b | | .DBGLNO 0x020b 02d5 ; -------------------------------------------------------------------------------------- 02d5 ; Debug chain 02d5 ; -------------------------------------------------------------------------------------- 02d5 0001 0002 | | .DBGLEN 0x0001,0x0002 02d7 0213 0216 | | .DBGLNO 0x0213,0x0216,0x0219 02da 0000 0000 | | .BLANK 0000[0x126]