|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_535cbb
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01e0 | | .CONST 0x01e0 ; 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 0058 | X | .CONST 0x0058 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "SS-Zone" 000d 0129 | ) | Execute Any,Make_Visible 000e 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "Fin SS-Zone" 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0013 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0015 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0021 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0023 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0025 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0027 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0029 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 002b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 002d 0093 0000 | | push_full_address 0x0 002f 6044 |`D | Indirect_Literal Discrete,0x74,{0x80000000, 0x00010000} 0030 0273 | s | Execute Discrete,Plus 0031 0129 | ) | Execute Any,Make_Visible 0032 e002 | | Load 0x0,0x2 0033 00d8 | | Load_Top At_Offset_0 0034 e002 | | Load 0x0,0x2 0035 00d8 | | Load_Top At_Offset_0 0036 e003 | | Load 0x0,0x3 0037 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0039 4805 |H | Short_Literal 0x5 003a 032e | . | Declare_Type Record,Defined,Visible 003b 00bf | | Action Accept_Activation 003c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003d 00c7 | | Action Elaborate_Subprogram 003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003f 00c7 | | Action Elaborate_Subprogram 0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0041 00c7 | | Action Elaborate_Subprogram 0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0043 00c7 | | Action Elaborate_Subprogram 0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0045 00c7 | | Action Elaborate_Subprogram 0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0047 00c7 | | Action Elaborate_Subprogram 0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0049 00c7 | | Action Elaborate_Subprogram 004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004b 00c7 | | Action Elaborate_Subprogram 004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004d 00c7 | | Action Elaborate_Subprogram 004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004f 00c7 | | Action Elaborate_Subprogram 0050 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0051 00c7 | | Action Elaborate_Subprogram 0052 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0053 00c7 | | Action Elaborate_Subprogram 0054 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0057 00c7 | | Action Elaborate_Subprogram 0058 BODY_0008: 0058 00bc | | Action Signal_Activated 0059 00bb | | Action Signal_Completion 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e5fa | | Load 0x2,-0x6 0064 e5fe | | Load 0x2,-0x2 0065 e5ff | | Load 0x2,-0x1 0066 8212 | | Call 0x1,0x12 0067 00d1 | | Pop_Control Pop_Count_1 0068 e5fa | | Load 0x2,-0x6 0069 e5fc | | Load 0x2,-0x4 006a e5fd | | Load 0x2,-0x3 006b 8213 | | Call 0x1,0x13 006c 00d1 | | Pop_Control Pop_Count_1 006d e5fa | | Load 0x2,-0x6 006e e5fb | | Load 0x2,-0x5 006f 8214 | | Call 0x1,0x14 0070 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0071 0000 0000 | | .XXX[0x3] 0073 0000 | | 0074 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e5f6 | | Load 0x2,-0xa 007c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007d e5fe | | Load 0x2,-0x2 007e e5ff | | Load 0x2,-0x1 007f 8004 | | Call 0x0,0x4 0080 00d1 | | Pop_Control Pop_Count_1 0081 e5f6 | | Load 0x2,-0xa 0082 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0083 e5fc | | Load 0x2,-0x4 0084 e5fd | | Load 0x2,-0x3 0085 8004 | | Call 0x0,0x4 0086 00d1 | | Pop_Control Pop_Count_1 0087 e5f6 | | Load 0x2,-0xa 0088 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0089 e5f6 | | Load 0x2,-0xa 008a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 008b 8005 | | Call 0x0,0x5 008c 6802 |h | Jump_Zero 0x8f 008d e21d | | Load 0x1,0x1d 008e 0257 | W | Execute Discrete,Raise 008f e5f6 | | Load 0x2,-0xa 0090 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0091 e5fa | | Load 0x2,-0x6 0092 e5fb | | Load 0x2,-0x5 0093 8004 | | Call 0x0,0x4 0094 00d1 | | Pop_Control Pop_Count_1 0095 e5f6 | | Load 0x2,-0xa 0096 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0097 e5f8 | | Load 0x2,-0x8 0098 e5f9 | | Load 0x2,-0x7 0099 8004 | | Call 0x0,0x4 009a 00d1 | | Pop_Control Pop_Count_1 009b e5f6 | | Load 0x2,-0xa 009c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 009d e5f6 | | Load 0x2,-0xa 009e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 009f 8005 | | Call 0x0,0x5 00a0 6802 |h | Jump_Zero 0xa3 00a1 e21d | | Load 0x1,0x1d 00a2 0257 | W | Execute Discrete,Raise 00a3 e5f6 | | Load 0x2,-0xa 00a4 e5f7 | | Load 0x2,-0x9 00a5 8214 | | Call 0x1,0x14 00a6 450a |E | Exit_Suprogram New_Top_Offset 0xa 00a7 0000 | | .XXX[0x1] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ad 4800 |H | Short_Literal 0x0 00ae 4800 |H | Short_Literal 0x0 00af 8004 | | Call 0x0,0x4 00b0 00d1 | | Pop_Control Pop_Count_1 00b1 00da | | Load_Top At_Offset_2 00b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b3 4800 |H | Short_Literal 0x0 00b4 4800 |H | Short_Literal 0x0 00b5 8004 | | Call 0x0,0x4 00b6 00d1 | | Pop_Control Pop_Count_1 00b7 00da | | Load_Top At_Offset_2 00b8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b9 4800 |H | Short_Literal 0x0 00ba 4800 |H | Short_Literal 0x0 00bb 8004 | | Call 0x0,0x4 00bc 00d1 | | Pop_Control Pop_Count_1 00bd 00da | | Load_Top At_Offset_2 00be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00bf 4800 |H | Short_Literal 0x0 00c0 4800 |H | Short_Literal 0x0 00c1 8004 | | Call 0x0,0x4 00c2 00d1 | | Pop_Control Pop_Count_1 00c3 00da | | Load_Top At_Offset_2 00c4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00c5 8006 | | Call 0x0,0x6 00c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00db | | Load_Top At_Offset_3 00cc 00db | | Load_Top At_Offset_3 00cd 8005 | | Call 0x0,0x5 00ce 6802 |h | Jump_Zero 0xd1 00cf e21d | | Load 0x1,0x1d 00d0 0257 | W | Execute Discrete,Raise 00d1 00da | | Load_Top At_Offset_2 00d2 e5fd | | Load 0x2,-0x3 00d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d4 00db | | Load_Top At_Offset_3 00d5 e5fd | | Load 0x2,-0x3 00d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; 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 00db | | Load_Top At_Offset_3 00dd 8005 | | Call 0x0,0x5 00de 6802 |h | Jump_Zero 0xe1 00df e21d | | Load 0x1,0x1d 00e0 0257 | W | Execute Discrete,Raise 00e1 00da | | Load_Top At_Offset_2 00e2 e5fd | | Load 0x2,-0x3 00e3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e4 00db | | Load_Top At_Offset_3 00e5 e5fd | | Load 0x2,-0x3 00e6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec e5fe | | Load 0x2,-0x2 00ed 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f5 0320 | | Declare_Variable Record,Duplicate 00f6 00cd | | Action Spare6_Action 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 00fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00fd 0320 | | Declare_Variable Record,Duplicate 00fe 00cd | | Action Spare6_Action 00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0105 0320 | | Declare_Variable Record,Duplicate 0106 00cd | | Action Spare6_Action 0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 010d 0320 | | Declare_Variable Record,Duplicate 010e 00cd | | Action Spare6_Action 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0114 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0115 0320 | | Declare_Variable Record,Duplicate 0116 00cd | | Action Spare6_Action 0117 4401 |D | Exit_Subprogram With_Value,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 4823 |H# | Short_Literal 0x23 011c 4823 |H# | Short_Literal 0x23 011d 4823 |H# | Short_Literal 0x23 011e 4823 |H# | Short_Literal 0x23 011f 4823 |H# | Short_Literal 0x23 0120 e20d | | Load 0x1,0xd 0121 e5ff | | Load 0x2,-0x1 0122 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0123 8007 | | Call 0x0,0x7 0124 01cc | | Execute Vector,Catenate 0125 01cb | | Execute Vector,Append 0126 e5ff | | Load 0x2,-0x1 0127 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0128 8007 | | Call 0x0,0x7 0129 01cc | | Execute Vector,Catenate 012a 01cb | | Execute Vector,Append 012b e5ff | | Load 0x2,-0x1 012c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 012d 8007 | | Call 0x0,0x7 012e 01cc | | Execute Vector,Catenate 012f 01cb | | Execute Vector,Append 0130 e5ff | | Load 0x2,-0x1 0131 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0132 8007 | | Call 0x0,0x7 0133 01cc | | Execute Vector,Catenate 0134 01cb | | Execute Vector,Append 0135 e5ff | | Load 0x2,-0x1 0136 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0137 8008 | | Call 0x0,0x8 0138 01cc | | Execute Vector,Catenate 0139 01cb | | Execute Vector,Append 013a e20e | | Load 0x1,0xe 013b 01cc | | Execute Vector,Catenate 013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0148 | H | .CONST 0x0148 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e21e | | Load 0x1,0x1e 0144 0322 | " | Declare_Variable Record 0145 00d8 | | Load_Top At_Offset_0 0146 1c00 | | Execute_Immediate Run_Utility,0x0 0147 00e3 | | Load_Encached Natural_Cache 0148 BODY_0140: 0148 00d8 | | Load_Top At_Offset_0 0149 00da | | Load_Top At_Offset_2 014a e5ff | | Load 0x2,-0x1 014b 821c | | Call 0x1,0x1c 014c 00d1 | | Pop_Control Pop_Count_1 014d 0059 | Y | Store_Top Discrete,At_Offset_1 014e 00d9 | | Load_Top At_Offset_1 014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015a | Z | .CONST 0x015a ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0008 | | .CONST 0x0008 ; Number of locals 0153 INIT_0150: 0153 00e3 | | Load_Encached Natural_Cache 0154 03e9 | | Declare_Variable Discrete,Duplicate 0155 03e9 | | Declare_Variable Discrete,Duplicate 0156 03e9 | | Declare_Variable Discrete,Duplicate 0157 03e9 | | Declare_Variable Discrete,Duplicate 0158 03e9 | | Declare_Variable Discrete,Duplicate 0159 03e9 | | Declare_Variable Discrete,Duplicate 015a BODY_0150: 015a e402 | | Load 0x2,0x2 015b e20d | | Load 0x1,0xd 015c e5ff | | Load 0x2,-0x1 015d 8009 | | Call 0x0,0x9 015e c402 | | Store 0x2,0x2 015f e403 | | Load 0x2,0x3 0160 e5fe | | Load 0x2,-0x2 0161 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0162 e402 | | Load 0x2,0x2 0163 0a01 | | Execute_Immediate Plus,0x1 0164 00d8 | | Load_Top At_Offset_0 0165 00e2 | | Load_Encached Integer_Cache 0166 0260 | ` | Execute Discrete,In_Type 0167 7001 |p | Jump_Nonzero 0x169 0168 0801 | | Execute_Immediate Raise,0x1 0169 e5ff | | Load 0x2,-0x1 016a 01dc | | Execute Vector,Last 016b e5ff | | Load 0x2,-0x1 016c 01cf | | Execute Vector,Slice_Read 016d 800a | | Call 0x0,0xa 016e 00d1 | | Pop_Control Pop_Count_1 016f c403 | | Store 0x2,0x3 0170 e404 | | Load 0x2,0x4 0171 e5fe | | Load 0x2,-0x2 0172 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0173 e403 | | Load 0x2,0x3 0174 0a02 | | Execute_Immediate Plus,0x2 0175 00d8 | | Load_Top At_Offset_0 0176 00e2 | | Load_Encached Integer_Cache 0177 0260 | ` | Execute Discrete,In_Type 0178 7001 |p | Jump_Nonzero 0x17a 0179 0801 | | Execute_Immediate Raise,0x1 017a e5ff | | Load 0x2,-0x1 017b 01dc | | Execute Vector,Last 017c e5ff | | Load 0x2,-0x1 017d 01cf | | Execute Vector,Slice_Read 017e 800a | | Call 0x0,0xa 017f 00d1 | | Pop_Control Pop_Count_1 0180 c404 | | Store 0x2,0x4 0181 00db | | Load_Top At_Offset_3 0182 e5fe | | Load 0x2,-0x2 0183 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0184 e404 | | Load 0x2,0x4 0185 0a02 | | Execute_Immediate Plus,0x2 0186 00d8 | | Load_Top At_Offset_0 0187 00e2 | | Load_Encached Integer_Cache 0188 0260 | ` | Execute Discrete,In_Type 0189 7001 |p | Jump_Nonzero 0x18b 018a 0801 | | Execute_Immediate Raise,0x1 018b e5ff | | Load 0x2,-0x1 018c 01dc | | Execute Vector,Last 018d e5ff | | Load 0x2,-0x1 018e 01cf | | Execute Vector,Slice_Read 018f 800a | | Call 0x0,0xa 0190 00d1 | | Pop_Control Pop_Count_1 0191 c405 | | Store 0x2,0x5 0192 00da | | Load_Top At_Offset_2 0193 e5fe | | Load 0x2,-0x2 0194 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0195 e405 | | Load 0x2,0x5 0196 0a02 | | Execute_Immediate Plus,0x2 0197 00d8 | | Load_Top At_Offset_0 0198 00e2 | | Load_Encached Integer_Cache 0199 0260 | ` | Execute Discrete,In_Type 019a 7001 |p | Jump_Nonzero 0x19c 019b 0801 | | Execute_Immediate Raise,0x1 019c e5ff | | Load 0x2,-0x1 019d 01dc | | Execute Vector,Last 019e e5ff | | Load 0x2,-0x1 019f 01cf | | Execute Vector,Slice_Read 01a0 800a | | Call 0x0,0xa 01a1 00d1 | | Pop_Control Pop_Count_1 01a2 005b | [ | Store_Top Discrete,At_Offset_3 01a3 00d9 | | Load_Top At_Offset_1 01a4 e5fe | | Load 0x2,-0x2 01a5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01a6 e406 | | Load 0x2,0x6 01a7 0a02 | | Execute_Immediate Plus,0x2 01a8 00d8 | | Load_Top At_Offset_0 01a9 00e2 | | Load_Encached Integer_Cache 01aa 0260 | ` | Execute Discrete,In_Type 01ab 7001 |p | Jump_Nonzero 0x1ad 01ac 0801 | | Execute_Immediate Raise,0x1 01ad e5ff | | Load 0x2,-0x1 01ae 01dc | | Execute Vector,Last 01af e5ff | | Load 0x2,-0x1 01b0 01cf | | Execute Vector,Slice_Read 01b1 800b | | Call 0x0,0xb 01b2 00d1 | | Pop_Control Pop_Count_1 01b3 005a | Z | Store_Top Discrete,At_Offset_2 01b4 00d8 | | Load_Top At_Offset_0 01b5 e20e | | Load 0x1,0xe 01b6 00db | | Load_Top At_Offset_3 01b7 0a02 | | Execute_Immediate Plus,0x2 01b8 00d8 | | Load_Top At_Offset_0 01b9 00e2 | | Load_Encached Integer_Cache 01ba 0260 | ` | Execute Discrete,In_Type 01bb 7001 |p | Jump_Nonzero 0x1bd 01bc 0801 | | Execute_Immediate Raise,0x1 01bd e5ff | | Load 0x2,-0x1 01be 01dc | | Execute Vector,Last 01bf e5ff | | Load 0x2,-0x1 01c0 01cf | | Execute Vector,Slice_Read 01c1 8009 | | Call 0x0,0x9 01c2 0059 | Y | Store_Top Discrete,At_Offset_1 01c3 00d8 | | Load_Top At_Offset_0 01c4 a5fd | | Store_Unchecked 0x2,-0x3 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4601 |F | Jump_Case 0x2 01cc 7801 |x | Jump 0x1ce ; case 0x0 01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ce 00da | | Load_Top At_Offset_2 01cf 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01d0 1c00 | | Execute_Immediate Run_Utility,0x0 01d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d2 ; -------------------------------------------------------------------------------------- 01d2 ; STRING TABLE 01d2 ; -------------------------------------------------------------------------------------- 01d2 0006 | | .STRTAB 0x0006->0x01d5 ; "SS-Zone" 01d3 000b | | .STRTAB 0x000b->0x01d8 ; "Fin SS-Zone" 01d4 0014 | | .STREND 0x0014->0x01de 01d5 5353 2d5a |SS-Z| .STRTAB_STRINGS 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x747c,0x0000,0x0001,0x0011 01e6 000b 022a | *| .DBG4T 0x000b,0x022a,0x8000,0x8000 01ea 003c 0250 | < P| .DBG4T 0x003c,0x0250,0x8000,0x8000 01ee 0063 026e | c n| .DBG4T 0x0063,0x026e,0x0001,0x0000 01f2 007b 0273 | { s| .DBG4T 0x007b,0x0273,0x0001,0x0000 01f6 00ab 027e | ~| .DBG4T 0x00ab,0x027e,0x0001,0x0000 01fa 00cb 0285 | | .DBG4T 0x00cb,0x0285,0x0001,0x0000 01fe 00db 028b | | .DBG4T 0x00db,0x028b,0x0001,0x0000 0202 00eb 0291 | | .DBG4T 0x00eb,0x0291,0x0001,0x0000 0206 00f3 0294 | | .DBG4T 0x00f3,0x0294,0x0002,0x0000 020a 00fb 0297 | | .DBG4T 0x00fb,0x0297,0x0002,0x0000 020e 0103 029a | | .DBG4T 0x0103,0x029a,0x0002,0x0000 0212 010b 029d | | .DBG4T 0x010b,0x029d,0x0002,0x0000 0216 0113 02a0 | | .DBG4T 0x0113,0x02a0,0x0002,0x0000 021a 011b 02a3 | | .DBG4T 0x011b,0x02a3,0x0002,0x0000 021e 0143 02a6 | C | .DBG4T 0x0143,0x02a6,0x0002,0x0000 0222 0153 02ac | S | .DBG4T 0x0153,0x02ac,0x0001,0x0000 0226 01cb 0000 | | .DBG4T 0x01cb,0x0000,0x0005,0x0000 022a ; -------------------------------------------------------------------------------------- 022a ; Debug chain 022a ; -------------------------------------------------------------------------------------- 022a 0012 0000 | | .DBGLEN 0x0012,0x0000 022c 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x0032 023e 0001 0002 | | .XXX[0x12] 0240 0005 0006 | | 0242 0007 0008 | | 0244 0009 000a | | 0246 000b 000c | | 0248 000d 000e | | 024a 000f 0010 | | 024c 0011 0012 | | 024e 0013 0014 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug chain 0250 ; -------------------------------------------------------------------------------------- 0250 000e 0000 | | .DBGLEN 0x000e,0x0000 0252 003c 003e | < >| .DBGLNO 0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056 0260 0002 0003 | | .XXX[0xe] 0262 0004 0005 | | 0264 0006 0007 | | 0266 0008 0009 | | 0268 000a 000b | | 026a 000c 000d | | 026c 000e 000f | | 026e ; -------------------------------------------------------------------------------------- 026e ; Debug chain 026e ; -------------------------------------------------------------------------------------- 026e 0000 0003 | | .DBGLEN 0x0000,0x0003 0270 0063 0068 | c h| .DBGLNO 0x0063,0x0068,0x006d 0273 ; -------------------------------------------------------------------------------------- 0273 ; Debug chain 0273 ; -------------------------------------------------------------------------------------- 0273 0000 0009 | | .DBGLEN 0x0000,0x0009 0275 007b 0081 | { | .DBGLNO 0x007b,0x0081,0x0087,0x008d,0x008f,0x0095,0x009b,0x00a1,0x00a3 027e ; -------------------------------------------------------------------------------------- 027e ; Debug chain 027e ; -------------------------------------------------------------------------------------- 027e 0000 0005 | | .DBGLEN 0x0000,0x0005 0280 00ab 00b1 | | .DBGLNO 0x00ab,0x00b1,0x00b7,0x00bd,0x00c3 0285 ; -------------------------------------------------------------------------------------- 0285 ; Debug chain 0285 ; -------------------------------------------------------------------------------------- 0285 0000 0004 | | .DBGLEN 0x0000,0x0004 0287 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00d1,0x00d4 028b ; -------------------------------------------------------------------------------------- 028b ; Debug chain 028b ; -------------------------------------------------------------------------------------- 028b 0000 0004 | | .DBGLEN 0x0000,0x0004 028d 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e1,0x00e4 0291 ; -------------------------------------------------------------------------------------- 0291 ; Debug chain 0291 ; -------------------------------------------------------------------------------------- 0291 0000 0001 | | .DBGLEN 0x0000,0x0001 0293 00eb | | .DBGLNO 0x00eb 0294 ; -------------------------------------------------------------------------------------- 0294 ; Debug chain 0294 ; -------------------------------------------------------------------------------------- 0294 0000 0001 | | .DBGLEN 0x0000,0x0001 0296 00f3 | | .DBGLNO 0x00f3 0297 ; -------------------------------------------------------------------------------------- 0297 ; Debug chain 0297 ; -------------------------------------------------------------------------------------- 0297 0000 0001 | | .DBGLEN 0x0000,0x0001 0299 00fb | | .DBGLNO 0x00fb 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 0000 0001 | | .DBGLEN 0x0000,0x0001 029c 0103 | | .DBGLNO 0x0103 029d ; -------------------------------------------------------------------------------------- 029d ; Debug chain 029d ; -------------------------------------------------------------------------------------- 029d 0000 0001 | | .DBGLEN 0x0000,0x0001 029f 010b | | .DBGLNO 0x010b 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug chain 02a0 ; -------------------------------------------------------------------------------------- 02a0 0000 0001 | | .DBGLEN 0x0000,0x0001 02a2 0113 | | .DBGLNO 0x0113 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; Debug chain 02a3 ; -------------------------------------------------------------------------------------- 02a3 0000 0001 | | .DBGLEN 0x0000,0x0001 02a5 011b | | .DBGLNO 0x011b 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0002 0002 | | .DBGLEN 0x0002,0x0002 02a8 0143 0147 | C G| .DBGLNO 0x0143,0x0147,0x0148,0x014e 02ac ; -------------------------------------------------------------------------------------- 02ac ; Debug chain 02ac ; -------------------------------------------------------------------------------------- 02ac 0001 0008 | | .DBGLEN 0x0001,0x0008 02ae 0153 015a | S Z| .DBGLNO 0x0153,0x015a,0x015f,0x0170,0x0181,0x0192,0x01a3,0x01b4,0x01c3 02b7 0000 0000 | | .BLANK 0000[0x149]