|
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_09dc33
└─⟦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 01b8 | | .CONST 0x01b8 ; 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 0054 | T | .CONST 0x0054 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 4804 |H | Short_Literal 0x4 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0015 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001d 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 001f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0021 e001 | | Load 0x0,0x1 0022 0129 | ) | Execute Any,Make_Visible 0023 e002 | | Load 0x0,0x2 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 e002 | | Load 0x0,0x2 0026 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0027 e002 | | Load 0x0,0x2 0028 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0029 e002 | | Load 0x0,0x2 002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c e20d | | Load 0x1,0xd 002d 0326 | & | Complete_Type Record,By_Defining 002e 00bf | | Action Accept_Activation 002f e003 | | Load 0x0,0x3 0030 e004 | | Load 0x0,0x4 0031 e20d | | Load 0x1,0xd 0032 0092 01ab | | Action Push_String_Extended,0x1ab ; "PHYSICAL " 0034 e005 | | Load 0x0,0x5 0035 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0036 01c7 | | Execute Vector,Convert 0037 48c8 |H | Short_Literal 0xc8 0038 e005 | | Load 0x0,0x5 0039 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 003a 190f | | Execute Package,Field_Reference,Field_Number 0xf 003b e005 | | Load 0x0,0x5 003c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 003d 0387 | | Declare_Variable Package 003e 00d8 | | Load_Top At_Offset_0 003f 020f | | Execute Module,Activate 0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0041 00c7 | | Action Elaborate_Subprogram 0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0043 00c7 | | Action Elaborate_Subprogram 0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0045 00c7 | | Action Elaborate_Subprogram 0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0047 00c7 | | Action Elaborate_Subprogram 0048 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0049 00c7 | | Action Elaborate_Subprogram 004a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004b 00c7 | | Action Elaborate_Subprogram 004c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004d 00c7 | | Action Elaborate_Subprogram 004e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004f 00c7 | | Action Elaborate_Subprogram 0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0051 00c7 | | Action Elaborate_Subprogram 0052 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0053 00c7 | | Action Elaborate_Subprogram 0054 BODY_0008: 0054 00bc | | Action Signal_Activated 0055 00bb | | Action Signal_Completion 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0069 | i | .CONST 0x0069 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0007 | | .CONST 0x0007 ; Number of locals 005b INIT_0058: 005b e20d | | Load 0x1,0xd 005c 0322 | " | Declare_Variable Record 005d 00e1 | | Load_Encached Boolean_Cache 005e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 005f 00e1 | | Load_Encached Boolean_Cache 0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0061 e005 | | Load 0x0,0x5 0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0063 02c7 | | Declare_Variable Any 0064 00d8 | | Load_Top At_Offset_0 0065 1c00 | | Execute_Immediate Run_Utility,0x0 0066 00e3 | | Load_Encached Natural_Cache 0067 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0069 BODY_0058: 0069 e5ff | | Load 0x2,-0x1 006a e402 | | Load 0x2,0x2 006b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006c e5fe | | Load 0x2,-0x2 006d e402 | | Load 0x2,0x2 006e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006f e5fd | | Load 0x2,-0x3 0070 e402 | | Load 0x2,0x2 0071 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0072 e5fc | | Load 0x2,-0x4 0073 e402 | | Load 0x2,0x2 0074 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0075 e402 | | Load 0x2,0x2 0076 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0077 e002 | | Load 0x0,0x2 0078 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0079 01df | | Execute Vector,Equal 007a e402 | | Load 0x2,0x2 007b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 007c e002 | | Load 0x0,0x2 007d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 007e 01df | | Execute Vector,Equal 007f 0278 | x | Execute Discrete,Or 0080 e402 | | Load 0x2,0x2 0081 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0082 e002 | | Load 0x0,0x2 0083 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0084 01df | | Execute Vector,Equal 0085 0278 | x | Execute Discrete,Or 0086 6802 |h | Jump_Zero 0x89 0087 e218 | | Load 0x1,0x18 0088 0257 | W | Execute Discrete,Raise 0089 e219 | | Load 0x1,0x19 008a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008b e005 | | Load 0x0,0x5 008c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 008d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 008f 00cf | | Action Mark_Auxiliary 0090 00da | | Load_Top At_Offset_2 0091 4801 |H | Short_Literal 0x1 0092 0263 | c | Execute Discrete,Above_Bound 0093 7015 |p | Jump_Nonzero 0xa9 0094 00d8 | | Load_Top At_Offset_0 0095 e219 | | Load 0x1,0x19 0096 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0097 e005 | | Load 0x0,0x5 0098 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0099 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 009a c405 | | Store 0x2,0x5 009b e405 | | Load 0x2,0x5 009c e219 | | Load 0x1,0x19 009d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 009e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 009f e402 | | Load 0x2,0x2 00a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00a1 01df | | Execute Vector,Equal 00a2 6804 |h | Jump_Zero 0xa7 00a3 4800 |H | Short_Literal 0x0 00a4 a403 | | Store_Unchecked 0x2,0x3 00a5 00d2 | | Pop_Control Pop_Count_2 00a6 7802 |x | Jump 0xa9 00a7 00c8 | | Action Pop_Auxiliary_Range 00a8 3feb |? | Loop_Increasing 0x94 00a9 00ce | | Action Pop_Auxiliary 00aa e403 | | Load 0x2,0x3 00ab 7002 |p | Jump_Nonzero 0xae 00ac e218 | | Load 0x1,0x18 00ad 0257 | W | Execute Discrete,Raise 00ae e402 | | Load 0x2,0x2 00af 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00b0 e002 | | Load 0x0,0x2 00b1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b2 01df | | Execute Vector,Equal 00b3 6801 |h | Jump_Zero 0xb5 00b4 8407 | | Call 0x2,0x7 00b5 e402 | | Load 0x2,0x2 00b6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00b7 e002 | | Load 0x0,0x2 00b8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b9 01de | | Execute Vector,Not_Equal 00ba e402 | | Load 0x2,0x2 00bb 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00bc e002 | | Load 0x0,0x2 00bd 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00be 01de | | Execute Vector,Not_Equal 00bf 0279 | y | Execute Discrete,And 00c0 e402 | | Load 0x2,0x2 00c1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00c2 e002 | | Load 0x0,0x2 00c3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c4 01de | | Execute Vector,Not_Equal 00c5 0279 | y | Execute Discrete,And 00c6 681f |h | Jump_Zero 0xe6 00c7 00cf | | Action Mark_Auxiliary 00c8 00da | | Load_Top At_Offset_2 00c9 4801 |H | Short_Literal 0x1 00ca 0263 | c | Execute Discrete,Above_Bound 00cb 7015 |p | Jump_Nonzero 0xe1 00cc 00d8 | | Load_Top At_Offset_0 00cd e219 | | Load 0x1,0x19 00ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cf e005 | | Load 0x0,0x5 00d0 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00d1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00d2 c405 | | Store 0x2,0x5 00d3 e405 | | Load 0x2,0x5 00d4 e219 | | Load 0x1,0x19 00d5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d7 e402 | | Load 0x2,0x2 00d8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00d9 01df | | Execute Vector,Equal 00da 6804 |h | Jump_Zero 0xdf 00db 4801 |H | Short_Literal 0x1 00dc a404 | | Store_Unchecked 0x2,0x4 00dd 00d2 | | Pop_Control Pop_Count_2 00de 7802 |x | Jump 0xe1 00df 00c8 | | Action Pop_Auxiliary_Range 00e0 3feb |? | Loop_Increasing 0xcc 00e1 00ce | | Action Pop_Auxiliary 00e2 00db | | Load_Top At_Offset_3 00e3 7002 |p | Jump_Nonzero 0xe6 00e4 e218 | | Load 0x1,0x18 00e5 0257 | W | Execute Discrete,Raise 00e6 e402 | | Load 0x2,0x2 00e7 e219 | | Load 0x1,0x19 00e8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ea 0000 0000 | | .BLANK 0000[0x6] 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 e219 | | Load 0x1,0x19 00f5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 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 e219 | | Load 0x1,0x19 00fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 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 e219 | | Load 0x1,0x19 0105 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 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 e219 | | Load 0x1,0x19 010d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0115 | | .CONST 0x0115 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e20d | | Load 0x1,0xd 0114 0322 | " | Declare_Variable Record 0115 BODY_0110: 0115 00db | | Load_Top At_Offset_3 0116 e219 | | Load 0x1,0x19 0117 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0118 00d9 | | Load_Top At_Offset_1 0119 017d | } | Execute Record,Structure_Write 011a e5fe | | Load 0x2,-0x2 011b 00d9 | | Load_Top At_Offset_1 011c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 011d 00d8 | | Load_Top At_Offset_0 011e e5ff | | Load 0x2,-0x1 011f e219 | | Load 0x1,0x19 0120 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0121 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012d | - | .CONST 0x012d ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e20d | | Load 0x1,0xd 012c 0322 | " | Declare_Variable Record 012d BODY_0128: 012d 00db | | Load_Top At_Offset_3 012e e219 | | Load 0x1,0x19 012f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0130 00d9 | | Load_Top At_Offset_1 0131 017d | } | Execute Record,Structure_Write 0132 e5fe | | Load 0x2,-0x2 0133 00d9 | | Load_Top At_Offset_1 0134 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0135 00d8 | | Load_Top At_Offset_0 0136 e5ff | | Load 0x2,-0x1 0137 e219 | | Load 0x1,0x19 0138 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e20d | | Load 0x1,0xd 0144 0322 | " | Declare_Variable Record 0145 BODY_0140: 0145 00db | | Load_Top At_Offset_3 0146 e219 | | Load 0x1,0x19 0147 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0148 00d9 | | Load_Top At_Offset_1 0149 017d | } | Execute Record,Structure_Write 014a e5fe | | Load 0x2,-0x2 014b 00d9 | | Load_Top At_Offset_1 014c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 014d 00d8 | | Load_Top At_Offset_0 014e e5ff | | Load 0x2,-0x1 014f e219 | | Load 0x1,0x19 0150 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e219 | | Load 0x1,0x19 015c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015d 00ca | | Action Exit_Nullary_Function 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e219 | | Load 0x1,0x19 0164 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 017d | } | .CONST 0x017d ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0007 | | .CONST 0x0007 ; Number of locals 016b INIT_0168: 016b e005 | | Load 0x0,0x5 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 02c7 | | Declare_Variable Any 016e 00d8 | | Load_Top At_Offset_0 016f 1c00 | | Execute_Immediate Run_Utility,0x0 0170 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0172 e005 | | Load 0x0,0x5 0173 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0174 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0175 00c6 | | Action Check_Subprogram_Elaborated 0176 4803 |H | Short_Literal 0x3 0177 4803 |H | Short_Literal 0x3 0178 0099 | | Action Reference_Dynamic 0179 e006 | | Load 0x0,0x6 017a e007 | | Load 0x0,0x7 017b 4807 |H | Short_Literal 0x7 017c 0007 | | Action Break_Optional 017d BODY_0168: 017d e008 | | Load 0x0,0x8 017e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 017f 4804 |H | Short_Literal 0x4 0180 4803 |H | Short_Literal 0x3 0181 0099 | | Action Reference_Dynamic 0182 4805 |H | Short_Literal 0x5 0183 4803 |H | Short_Literal 0x3 0184 0099 | | Action Reference_Dynamic 0185 e005 | | Load 0x0,0x5 0186 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0187 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0188 c602 | | Store 0x3,0x2 0189 e602 | | Load 0x3,0x2 018a e005 | | Load 0x0,0x5 018b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 018c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018d 6802 |h | Jump_Zero 0x190 018e e218 | | Load 0x1,0x18 018f 0257 | W | Execute Discrete,Raise 0190 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c e008 | | Load 0x0,0x8 019d 180f | | Execute Package,Field_Execute,Field_Number 0xf 019e e402 | | Load 0x2,0x2 019f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01a0 017f | | Execute Record,Equal 01a1 6807 |h | Jump_Zero 0x1a9 01a2 00da | | Load_Top At_Offset_2 01a3 e008 | | Load 0x0,0x8 01a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a5 e402 | | Load 0x2,0x2 01a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a7 01df | | Execute Vector,Equal 01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a9 4800 |H | Short_Literal 0x0 01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ab ; -------------------------------------------------------------------------------------- 01ab ; STRING TABLE 01ab ; -------------------------------------------------------------------------------------- 01ab 0004 | | .STRTAB 0x0004->0x01ad ; "PHYSICAL " 01ac 000c | | .STREND 0x000c->0x01b2 01ad 5048 5953 |PHYS| .STRTAB_STRINGS 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; Debug Table 01b8 ; -------------------------------------------------------------------------------------- 01b8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x8a03,0x0000,0x0001,0x000e 01be 000b 01f6 | | .DBG4T 0x000b,0x01f6,0x8000,0x0000 01c2 002f 0205 | / | .DBG4T 0x002f,0x0205,0x8000,0x0000 01c6 005b 0212 | [ | .DBG4T 0x005b,0x0212,0x0001,0x0000 01ca 00f3 0232 | 2| .DBG4T 0x00f3,0x0232,0x0002,0x0000 01ce 00fb 0235 | 5| .DBG4T 0x00fb,0x0235,0x0002,0x0000 01d2 0103 0238 | 8| .DBG4T 0x0103,0x0238,0x0002,0x0000 01d6 010b 023b | ;| .DBG4T 0x010b,0x023b,0x0002,0x0000 01da 0113 023e | >| .DBG4T 0x0113,0x023e,0x0001,0x0000 01de 012b 0244 | + D| .DBG4T 0x012b,0x0244,0x0001,0x0000 01e2 0143 024a | C J| .DBG4T 0x0143,0x024a,0x0001,0x0000 01e6 015b 0250 | [ P| .DBG4T 0x015b,0x0250,0x0002,0x0000 01ea 0163 0253 | c S| .DBG4T 0x0163,0x0253,0x0001,0x0000 01ee 016b 0256 | k V| .DBG4T 0x016b,0x0256,0x0004,0x0000 01f2 019b 025e | ^| .DBG4T 0x019b,0x025e,0x0002,0x0000 01f6 ; -------------------------------------------------------------------------------------- 01f6 ; Debug chain 01f6 ; -------------------------------------------------------------------------------------- 01f6 000d 0000 | | .DBGLEN 0x000d,0x0000 01f8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023 0205 ; -------------------------------------------------------------------------------------- 0205 ; Debug chain 0205 ; -------------------------------------------------------------------------------------- 0205 000b 0000 | | .DBGLEN 0x000b,0x0000 0207 002f 0040 | / @| .DBGLNO 0x002f,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug chain 0212 ; -------------------------------------------------------------------------------------- 0212 0005 0019 | | .DBGLEN 0x0005,0x0019 0214 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x005f,0x0061,0x0066,0x0069,0x006c,0x006f,0x0072,0x0075,0x0087,0x0089,0x0090,0x0094,0x009b,0x00a3,0x00a5,0x00aa,0x00ac,0x00ae,0x00b4,0x00b5,0x00c8,0x00cc,0x00d3,0x00db,0x00dd,0x00e2,0x00e4,0x00e6 0232 ; -------------------------------------------------------------------------------------- 0232 ; Debug chain 0232 ; -------------------------------------------------------------------------------------- 0232 0000 0001 | | .DBGLEN 0x0000,0x0001 0234 00f3 | | .DBGLNO 0x00f3 0235 ; -------------------------------------------------------------------------------------- 0235 ; Debug chain 0235 ; -------------------------------------------------------------------------------------- 0235 0000 0001 | | .DBGLEN 0x0000,0x0001 0237 00fb | | .DBGLNO 0x00fb 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug chain 0238 ; -------------------------------------------------------------------------------------- 0238 0000 0001 | | .DBGLEN 0x0000,0x0001 023a 0103 | | .DBGLNO 0x0103 023b ; -------------------------------------------------------------------------------------- 023b ; Debug chain 023b ; -------------------------------------------------------------------------------------- 023b 0000 0001 | | .DBGLEN 0x0000,0x0001 023d 010b | | .DBGLNO 0x010b 023e ; -------------------------------------------------------------------------------------- 023e ; Debug chain 023e ; -------------------------------------------------------------------------------------- 023e 0001 0003 | | .DBGLEN 0x0001,0x0003 0240 0113 0115 | | .DBGLNO 0x0113,0x0115,0x011a,0x011d 0244 ; -------------------------------------------------------------------------------------- 0244 ; Debug chain 0244 ; -------------------------------------------------------------------------------------- 0244 0001 0003 | | .DBGLEN 0x0001,0x0003 0246 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0132,0x0135 024a ; -------------------------------------------------------------------------------------- 024a ; Debug chain 024a ; -------------------------------------------------------------------------------------- 024a 0001 0003 | | .DBGLEN 0x0001,0x0003 024c 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x014a,0x014d 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug chain 0250 ; -------------------------------------------------------------------------------------- 0250 0000 0001 | | .DBGLEN 0x0000,0x0001 0252 015b | [ | .DBGLNO 0x015b 0253 ; -------------------------------------------------------------------------------------- 0253 ; Debug chain 0253 ; -------------------------------------------------------------------------------------- 0253 0000 0001 | | .DBGLEN 0x0000,0x0001 0255 0163 | c | .DBGLNO 0x0163 0256 ; -------------------------------------------------------------------------------------- 0256 ; Debug chain 0256 ; -------------------------------------------------------------------------------------- 0256 0003 0003 | | .DBGLEN 0x0003,0x0003 0258 016b 0170 | k p| .DBGLNO 0x016b,0x0170,0x0172,0x017d,0x0189,0x018e 025e ; -------------------------------------------------------------------------------------- 025e ; Debug chain 025e ; -------------------------------------------------------------------------------------- 025e 0000 0001 | | .DBGLEN 0x0000,0x0001 0260 019b | | .DBGLNO 0x019b 0261 0000 0000 | | .BLANK 0000[0x19f]