|
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_f384d5
└─⟦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 01b0 | | .CONST 0x01b0 ; 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 01a3 | | Action Push_String_Extended,0x1a3 ; "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 0067 | g | .CONST 0x0067 ; 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 0322 | " | Declare_Variable Record
0064 00e3 | | Load_Encached Natural_Cache
0065 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
0067 BODY_0058:
0067 e5ff | | Load 0x2,-0x1
0068 e402 | | Load 0x2,0x2
0069 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006a e5fe | | Load 0x2,-0x2
006b e402 | | Load 0x2,0x2
006c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006d e5fd | | Load 0x2,-0x3
006e e402 | | Load 0x2,0x2
006f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0070 e5fc | | Load 0x2,-0x4
0071 e402 | | Load 0x2,0x2
0072 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0073 e402 | | Load 0x2,0x2
0074 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0075 e002 | | Load 0x0,0x2
0076 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0077 01df | | Execute Vector,Equal
0078 e402 | | Load 0x2,0x2
0079 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
007a e002 | | Load 0x0,0x2
007b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
007c 01df | | Execute Vector,Equal
007d 0278 | x | Execute Discrete,Or
007e e402 | | Load 0x2,0x2
007f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0080 e002 | | Load 0x0,0x2
0081 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0082 01df | | Execute Vector,Equal
0083 0278 | x | Execute Discrete,Or
0084 6802 |h | Jump_Zero 0x87
0085 e218 | | Load 0x1,0x18
0086 0257 | W | Execute Discrete,Raise
0087 e219 | | Load 0x1,0x19
0088 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0089 e005 | | Load 0x0,0x5
008a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
008b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
008d 00cf | | Action Mark_Auxiliary
008e 00da | | Load_Top At_Offset_2
008f 4801 |H | Short_Literal 0x1
0090 0263 | c | Execute Discrete,Above_Bound
0091 7016 |p | Jump_Nonzero 0xa8
0092 00d8 | | Load_Top At_Offset_0
0093 e219 | | Load 0x1,0x19
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 e005 | | Load 0x0,0x5
0096 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0097 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0098 e405 | | Load 0x2,0x5
0099 017d | } | Execute Record,Structure_Write
009a e405 | | Load 0x2,0x5
009b e219 | | Load 0x1,0x19
009c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
009d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009e e402 | | Load 0x2,0x2
009f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a0 01df | | Execute Vector,Equal
00a1 6804 |h | Jump_Zero 0xa6
00a2 4800 |H | Short_Literal 0x0
00a3 a403 | | Store_Unchecked 0x2,0x3
00a4 00d2 | | Pop_Control Pop_Count_2
00a5 7802 |x | Jump 0xa8
00a6 00c8 | | Action Pop_Auxiliary_Range
00a7 3fea |? | Loop_Increasing 0x92
00a8 00ce | | Action Pop_Auxiliary
00a9 e403 | | Load 0x2,0x3
00aa 7002 |p | Jump_Nonzero 0xad
00ab e218 | | Load 0x1,0x18
00ac 0257 | W | Execute Discrete,Raise
00ad e402 | | Load 0x2,0x2
00ae 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00af e002 | | Load 0x0,0x2
00b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b1 01df | | Execute Vector,Equal
00b2 6801 |h | Jump_Zero 0xb4
00b3 8407 | | Call 0x2,0x7
00b4 e402 | | Load 0x2,0x2
00b5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00b6 e002 | | Load 0x0,0x2
00b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b8 01de | | Execute Vector,Not_Equal
00b9 e402 | | Load 0x2,0x2
00ba 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00bb e002 | | Load 0x0,0x2
00bc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00bd 01de | | Execute Vector,Not_Equal
00be 0279 | y | Execute Discrete,And
00bf e402 | | Load 0x2,0x2
00c0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00c1 e002 | | Load 0x0,0x2
00c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c3 01de | | Execute Vector,Not_Equal
00c4 0279 | y | Execute Discrete,And
00c5 6820 |h | Jump_Zero 0xe6
00c6 00cf | | Action Mark_Auxiliary
00c7 00da | | Load_Top At_Offset_2
00c8 4801 |H | Short_Literal 0x1
00c9 0263 | c | Execute Discrete,Above_Bound
00ca 7016 |p | Jump_Nonzero 0xe1
00cb 00d8 | | Load_Top At_Offset_0
00cc e219 | | Load 0x1,0x19
00cd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ce e005 | | Load 0x0,0x5
00cf 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00d0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00d1 e405 | | Load 0x2,0x5
00d2 017d | } | Execute Record,Structure_Write
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 3fea |? | Loop_Increasing 0xcb
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 017b | { | .CONST 0x017b ; 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 0322 | " | Declare_Variable Record
016e 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0170 e005 | | Load 0x0,0x5
0171 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0172 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0173 00c6 | | Action Check_Subprogram_Elaborated
0174 4803 |H | Short_Literal 0x3
0175 4803 |H | Short_Literal 0x3
0176 0099 | | Action Reference_Dynamic
0177 e006 | | Load 0x0,0x6
0178 e007 | | Load 0x0,0x7
0179 4807 |H | Short_Literal 0x7
017a 0007 | | Action Break_Optional
017b BODY_0168:
017b e008 | | Load 0x0,0x8
017c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017d 4804 |H | Short_Literal 0x4
017e 4803 |H | Short_Literal 0x3
017f 0099 | | Action Reference_Dynamic
0180 4805 |H | Short_Literal 0x5
0181 4803 |H | Short_Literal 0x3
0182 0099 | | Action Reference_Dynamic
0183 e005 | | Load 0x0,0x5
0184 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0185 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0186 e602 | | Load 0x3,0x2
0187 017d | } | Execute Record,Structure_Write
0188 e602 | | Load 0x3,0x2
0189 e005 | | Load 0x0,0x5
018a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
018b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018c 6802 |h | Jump_Zero 0x18f
018d e218 | | Load 0x1,0x18
018e 0257 | W | Execute Discrete,Raise
018f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e008 | | Load 0x0,0x8
0195 180f | | Execute Package,Field_Execute,Field_Number 0xf
0196 e402 | | Load 0x2,0x2
0197 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0198 017f | | Execute Record,Equal
0199 6807 |h | Jump_Zero 0x1a1
019a 00da | | Load_Top At_Offset_2
019b e008 | | Load 0x0,0x8
019c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
019d e402 | | Load 0x2,0x2
019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019f 01df | | Execute Vector,Equal
01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a1 4800 |H | Short_Literal 0x0
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 ; --------------------------------------------------------------------------------------
01a3 ; STRING TABLE
01a3 ; --------------------------------------------------------------------------------------
01a3 0004 | | .STRTAB 0x0004->0x01a5 ; "PHYSICAL "
01a4 000c | | .STREND 0x000c->0x01aa
01a5 5048 5953 |PHYS| .STRTAB_STRINGS
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x64cb,0x0000,0x0001,0x000e
01b6 000b 01ee | | .DBG4T 0x000b,0x01ee,0x8000,0x0000
01ba 002f 01fd | / | .DBG4T 0x002f,0x01fd,0x8000,0x0000
01be 005b 020a | [ | .DBG4T 0x005b,0x020a,0x0001,0x0000
01c2 00f3 022a | *| .DBG4T 0x00f3,0x022a,0x0002,0x0000
01c6 00fb 022d | -| .DBG4T 0x00fb,0x022d,0x0002,0x0000
01ca 0103 0230 | 0| .DBG4T 0x0103,0x0230,0x0002,0x0000
01ce 010b 0233 | 3| .DBG4T 0x010b,0x0233,0x0002,0x0000
01d2 0113 0236 | 6| .DBG4T 0x0113,0x0236,0x0001,0x0000
01d6 012b 023c | + <| .DBG4T 0x012b,0x023c,0x0001,0x0000
01da 0143 0242 | C B| .DBG4T 0x0143,0x0242,0x0001,0x0000
01de 015b 0248 | [ H| .DBG4T 0x015b,0x0248,0x0002,0x0000
01e2 0163 024b | c K| .DBG4T 0x0163,0x024b,0x0001,0x0000
01e6 016b 024e | k N| .DBG4T 0x016b,0x024e,0x0004,0x0000
01ea 0193 0256 | V| .DBG4T 0x0193,0x0256,0x0002,0x0000
01ee ; --------------------------------------------------------------------------------------
01ee ; Debug chain
01ee ; --------------------------------------------------------------------------------------
01ee 000d 0000 | | .DBGLEN 0x000d,0x0000
01f0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023
01fd ; --------------------------------------------------------------------------------------
01fd ; Debug chain
01fd ; --------------------------------------------------------------------------------------
01fd 000b 0000 | | .DBGLEN 0x000b,0x0000
01ff 002f 0040 | / @| .DBGLNO 0x002f,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052
020a ; --------------------------------------------------------------------------------------
020a ; Debug chain
020a ; --------------------------------------------------------------------------------------
020a 0005 0019 | | .DBGLEN 0x0005,0x0019
020c 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x005f,0x0061,0x0064,0x0067,0x006a,0x006d,0x0070,0x0073,0x0085,0x0087,0x008e,0x0092,0x009a,0x00a2,0x00a4,0x00a9,0x00ab,0x00ad,0x00b3,0x00b4,0x00c7,0x00cb,0x00d3,0x00db,0x00dd,0x00e2,0x00e4,0x00e6
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 0000 0001 | | .DBGLEN 0x0000,0x0001
022c 00f3 | | .DBGLNO 0x00f3
022d ; --------------------------------------------------------------------------------------
022d ; Debug chain
022d ; --------------------------------------------------------------------------------------
022d 0000 0001 | | .DBGLEN 0x0000,0x0001
022f 00fb | | .DBGLNO 0x00fb
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug chain
0230 ; --------------------------------------------------------------------------------------
0230 0000 0001 | | .DBGLEN 0x0000,0x0001
0232 0103 | | .DBGLNO 0x0103
0233 ; --------------------------------------------------------------------------------------
0233 ; Debug chain
0233 ; --------------------------------------------------------------------------------------
0233 0000 0001 | | .DBGLEN 0x0000,0x0001
0235 010b | | .DBGLNO 0x010b
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug chain
0236 ; --------------------------------------------------------------------------------------
0236 0001 0003 | | .DBGLEN 0x0001,0x0003
0238 0113 0115 | | .DBGLNO 0x0113,0x0115,0x011a,0x011d
023c ; --------------------------------------------------------------------------------------
023c ; Debug chain
023c ; --------------------------------------------------------------------------------------
023c 0001 0003 | | .DBGLEN 0x0001,0x0003
023e 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0132,0x0135
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug chain
0242 ; --------------------------------------------------------------------------------------
0242 0001 0003 | | .DBGLEN 0x0001,0x0003
0244 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x014a,0x014d
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug chain
0248 ; --------------------------------------------------------------------------------------
0248 0000 0001 | | .DBGLEN 0x0000,0x0001
024a 015b | [ | .DBGLNO 0x015b
024b ; --------------------------------------------------------------------------------------
024b ; Debug chain
024b ; --------------------------------------------------------------------------------------
024b 0000 0001 | | .DBGLEN 0x0000,0x0001
024d 0163 | c | .DBGLNO 0x0163
024e ; --------------------------------------------------------------------------------------
024e ; Debug chain
024e ; --------------------------------------------------------------------------------------
024e 0003 0003 | | .DBGLEN 0x0003,0x0003
0250 016b 016e | k n| .DBGLNO 0x016b,0x016e,0x0170,0x017b,0x0188,0x018d
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001 | | .DBGLEN 0x0000,0x0001
0258 0193 | | .DBGLNO 0x0193
0259 0000 0000 | | .BLANK 0000[0x1a7]