|
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]