|
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_043cfb
└─⟦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 0308 | | .CONST 0x0308 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0068 | h | .CONST 0x0068 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0015 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0019 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0021 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0023 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0025 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0027 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0029 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
002b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
002d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
002f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0031 00bf | | Action Accept_Activation
0032 029b 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Unelaborated
0034 029b 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Unelaborated
0036 029b 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Unelaborated
0038 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
003a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003b 00c7 | | Action Elaborate_Subprogram
003c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
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 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0059 00c7 | | Action Elaborate_Subprogram
005a 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
005c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005d 00c7 | | Action Elaborate_Subprogram
005e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
005f 00c7 | | Action Elaborate_Subprogram
0060 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0065 00c7 | | Action Elaborate_Subprogram
0066 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0067 00c7 | | Action Elaborate_Subprogram
0068 BODY_0008:
0068 00bc | | Action Signal_Activated
0069 00bb | | Action Signal_Completion
006a 0000 0000 | | .BLANK 0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e5fd | | Load 0x2,-0x3
0074 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0075 4800 |H | Short_Literal 0x0
0076 0092 029b | | Action Push_String_Extended,0x29b ; "[Check."
0078 e5ff | | Load 0x2,-0x1
0079 01cc | | Execute Vector,Catenate
007a 0092 029c | | Action Push_String_Extended,0x29c ; " ("
007c 01cc | | Execute Vector,Catenate
007d e5fe | | Load 0x2,-0x2
007e 01cc | | Execute Vector,Catenate
007f 0092 029d | | Action Push_String_Extended,0x29d ; ");]"
0081 01cc | | Execute Vector,Catenate
0082 e001 | | Load 0x0,0x1
0083 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00db | | Load_Top At_Offset_3
008c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
008d 4800 |H | Short_Literal 0x0
008e 0092 029e | | Action Push_String_Extended,0x29e ; "[End of Check."
0090 e5ff | | Load 0x2,-0x1
0091 01cc | | Execute Vector,Catenate
0092 0092 029f | | Action Push_String_Extended,0x29f ; " command]"
0094 01cc | | Execute Vector,Catenate
0095 e001 | | Load 0x0,0x1
0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00db | | Load_Top At_Offset_3
009c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
009d 4801 |H | Short_Literal 0x1
009e e5ff | | Load 0x2,-0x1
009f e001 | | Load 0x0,0x1
00a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a2 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
00ac 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00ad 7006 |p | Jump_Nonzero 0xb4
00ae 00db | | Load_Top At_Offset_3
00af 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00b0 4802 |H | Short_Literal 0x2
00b1 e5ff | | Load 0x2,-0x1
00b2 e001 | | Load 0x0,0x1
00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3
00bc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00bd 7006 |p | Jump_Nonzero 0xc4
00be 00db | | Load_Top At_Offset_3
00bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00c0 4806 |H | Short_Literal 0x6
00c1 e5ff | | Load 0x2,-0x1
00c2 e001 | | Load 0x0,0x1
00c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
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 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
00cd 0a01 | | Execute_Immediate Plus,0x1
00ce e5fe | | Load 0x2,-0x2
00cf 380c |8 | Execute Record,Field_Write,Field_Number 0xc
00d0 00db | | Load_Top At_Offset_3
00d1 4802 |H | Short_Literal 0x2
00d2 8223 | # | Call 0x1,0x23
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 00db | | Load_Top At_Offset_3
00d5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00d6 4807 |H | Short_Literal 0x7
00d7 e5ff | | Load 0x2,-0x1
00d8 e001 | | Load 0x0,0x1
00d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00da e002 | | Load 0x0,0x2
00db 0257 | W | Execute Discrete,Raise
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00e5 7006 |p | Jump_Nonzero 0xec
00e6 00db | | Load_Top At_Offset_3
00e7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00e8 4804 |H | Short_Literal 0x4
00e9 e5ff | | Load 0x2,-0x1
00ea e001 | | Load 0x0,0x1
00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
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 00db | | Load_Top At_Offset_3
00f4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00f5 7006 |p | Jump_Nonzero 0xfc
00f6 00db | | Load_Top At_Offset_3
00f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f8 4803 |H | Short_Literal 0x3
00f9 e5ff | | Load 0x2,-0x1
00fa e001 | | Load 0x0,0x1
00fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
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 00db | | Load_Top At_Offset_3
0104 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0105 7006 |p | Jump_Nonzero 0x10c
0106 00db | | Load_Top At_Offset_3
0107 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0108 4805 |H | Short_Literal 0x5
0109 e5ff | | Load 0x2,-0x1
010a e001 | | Load 0x0,0x1
010b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010c e002 | | Load 0x0,0x2
010d 0257 | W | Execute Discrete,Raise
010e 0000 0000 | | .XXX[0x2]
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 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0115 4808 |H | Short_Literal 0x8
0116 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "Unhandled exception "
0118 e003 | | Load 0x0,0x3
0119 180d | | Execute Package,Field_Execute,Field_Number 0xd
011a 01cc | | Execute Vector,Catenate
011b e001 | | Load 0x0,0x1
011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e004 | | Load 0x0,0x4
0124 180e | | Execute Package,Field_Execute,Field_Number 0xe
0125 00db | | Load_Top At_Offset_3
0126 e001 | | Load 0x0,0x1
0127 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0128 e002 | | Load 0x0,0x2
0129 0257 | W | Execute Discrete,Raise
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5fd | | Load 0x2,-0x3
0134 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0135 0a01 | | Execute_Immediate Plus,0x1
0136 e5fd | | Load 0x2,-0x3
0137 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0138 e5fd | | Load 0x2,-0x3
0139 4801 |H | Short_Literal 0x1
013a 8223 | # | Call 0x1,0x23
013b 00d1 | | Pop_Control Pop_Count_1
013c e5fd | | Load 0x2,-0x3
013d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
013e 7005 |p | Jump_Nonzero 0x144
013f e5fd | | Load 0x2,-0x3
0140 e5fe | | Load 0x2,-0x2
0141 8215 | | Call 0x1,0x15
0142 00d1 | | Pop_Control Pop_Count_1
0143 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0144 e002 | | Load 0x0,0x2
0145 0257 | W | Execute Discrete,Raise
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e5fd | | Load 0x2,-0x3
014c 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
014d 0a01 | | Execute_Immediate Plus,0x1
014e e5fd | | Load 0x2,-0x3
014f 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0150 e5fd | | Load 0x2,-0x3
0151 4801 |H | Short_Literal 0x1
0152 8223 | # | Call 0x1,0x23
0153 00d1 | | Pop_Control Pop_Count_1
0154 e5fd | | Load 0x2,-0x3
0155 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0156 7005 |p | Jump_Nonzero 0x15c
0157 e5fd | | Load 0x2,-0x3
0158 e5fe | | Load 0x2,-0x2
0159 8215 | | Call 0x1,0x15
015a 00d1 | | Pop_Control Pop_Count_1
015b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015c e5fd | | Load 0x2,-0x3
015d 00db | | Load_Top At_Offset_3
015e 8222 | " | Call 0x1,0x22
015f 00d1 | | Pop_Control Pop_Count_1
0160 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e5fd | | Load 0x2,-0x3
016c 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
016d 0a01 | | Execute_Immediate Plus,0x1
016e e5fd | | Load 0x2,-0x3
016f 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0170 e5fd | | Load 0x2,-0x3
0171 4801 |H | Short_Literal 0x1
0172 8223 | # | Call 0x1,0x23
0173 00d1 | | Pop_Control Pop_Count_1
0174 e5fd | | Load 0x2,-0x3
0175 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0176 7005 |p | Jump_Nonzero 0x17c
0177 e5fd | | Load 0x2,-0x3
0178 e5fe | | Load 0x2,-0x2
0179 8215 | | Call 0x1,0x15
017a 00d1 | | Pop_Control Pop_Count_1
017b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017c e5fd | | Load 0x2,-0x3
017d 00db | | Load_Top At_Offset_3
017e 8221 | ! | Call 0x1,0x21
017f 00d1 | | Pop_Control Pop_Count_1
0180 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e5fd | | Load 0x2,-0x3
018c 4801 |H | Short_Literal 0x1
018d 8223 | # | Call 0x1,0x23
018e 00d1 | | Pop_Control Pop_Count_1
018f e5fd | | Load 0x2,-0x3
0190 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0191 7005 |p | Jump_Nonzero 0x197
0192 e5fd | | Load 0x2,-0x3
0193 e5fe | | Load 0x2,-0x2
0194 8213 | | Call 0x1,0x13
0195 00d1 | | Pop_Control Pop_Count_1
0196 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0197 e5fd | | Load 0x2,-0x3
0198 00db | | Load_Top At_Offset_3
0199 8220 | | Call 0x1,0x20
019a 00d1 | | Pop_Control Pop_Count_1
019b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 e5fd | | Load 0x2,-0x3
01a4 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
01a5 0a01 | | Execute_Immediate Plus,0x1
01a6 e5fd | | Load 0x2,-0x3
01a7 380e |8 | Execute Record,Field_Write,Field_Number 0xe
01a8 e5fd | | Load 0x2,-0x3
01a9 4801 |H | Short_Literal 0x1
01aa 8223 | # | Call 0x1,0x23
01ab 00d1 | | Pop_Control Pop_Count_1
01ac e5fd | | Load 0x2,-0x3
01ad e5fe | | Load 0x2,-0x2
01ae 8215 | | Call 0x1,0x15
01af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e5fd | | Load 0x2,-0x3
01b4 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
01b5 0a01 | | Execute_Immediate Plus,0x1
01b6 e5fd | | Load 0x2,-0x3
01b7 380d |8 | Execute Record,Field_Write,Field_Number 0xd
01b8 e5fd | | Load 0x2,-0x3
01b9 4801 |H | Short_Literal 0x1
01ba 8223 | # | Call 0x1,0x23
01bb 00d1 | | Pop_Control Pop_Count_1
01bc e5fd | | Load 0x2,-0x3
01bd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
01be 7005 |p | Jump_Nonzero 0x1c4
01bf e5fd | | Load 0x2,-0x3
01c0 e5fe | | Load 0x2,-0x2
01c1 8215 | | Call 0x1,0x15
01c2 00d1 | | Pop_Control Pop_Count_1
01c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c4 e5fd | | Load 0x2,-0x3
01c5 00db | | Load_Top At_Offset_3
01c6 8222 | " | Call 0x1,0x22
01c7 00d1 | | Pop_Control Pop_Count_1
01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d4 | | .CONST 0x01d4 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00e1 | | Load_Encached Boolean_Cache
01d4 BODY_01d0:
01d4 00e1 | | Load_Encached Boolean_Cache
01d5 e5ff | | Load 0x2,-0x1
01d6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01d7 0120 | | Execute Any,Is_Value
01d8 6803 |h | Jump_Zero 0x1dc
01d9 e005 | | Load 0x0,0x5
01da 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
01db 7802 |x | Jump 0x1de
01dc e5ff | | Load 0x2,-0x1
01dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01de 00ea | | Load_Encached Null_String_Cache
01df 4802 |H | Short_Literal 0x2
01e0 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "incompatibilities"
01e2 00ea | | Load_Encached Null_String_Cache
01e3 e005 | | Load 0x0,0x5
01e4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01e5 e5ff | | Load 0x2,-0x1
01e6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01e7 0059 | Y | Store_Top Discrete,At_Offset_1
01e8 00d8 | | Load_Top At_Offset_0
01e9 7005 |p | Jump_Nonzero 0x1ef
01ea 00db | | Load_Top At_Offset_3
01eb 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "Could not create menu"
01ed 8212 | | Call 0x1,0x12
01ee 00d1 | | Pop_Control Pop_Count_1
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f4 | | .CONST 0x01f4 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 00e1 | | Load_Encached Boolean_Cache
01f4 BODY_01f0:
01f4 00db | | Load_Top At_Offset_3
01f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f6 7005 |p | Jump_Nonzero 0x1fc
01f7 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "All units/views are compatible"
01f9 e006 | | Load 0x0,0x6
01fa 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
01fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fc 00db | | Load_Top At_Offset_3
01fd 8224 | $ | Call 0x1,0x24
01fe 00d1 | | Pop_Control Pop_Count_1
01ff 00e1 | | Load_Encached Boolean_Cache
0200 e5ff | | Load 0x2,-0x1
0201 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0202 e005 | | Load 0x0,0x5
0203 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0204 e5ff | | Load 0x2,-0x1
0205 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0206 0059 | Y | Store_Top Discrete,At_Offset_1
0207 00d8 | | Load_Top At_Offset_0
0208 7005 |p | Jump_Nonzero 0x20e
0209 00db | | Load_Top At_Offset_3
020a 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "Could not display menu"
020c 8212 | | Call 0x1,0x12
020d 00d1 | | Pop_Control Pop_Count_1
020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00db | | Load_Top At_Offset_3
0214 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0215 00db | | Load_Top At_Offset_3
0216 00eb | | Load_Encached Diana_Cache
0217 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0218 e5fe | | Load 0x2,-0x2
0219 380b |8 | Execute Record,Field_Write,Field_Number 0xb
021a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022b | + | .CONST 0x022b ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 e007 | | Load 0x0,0x7
0224 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0225 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0226 02c7 | | Declare_Variable Any
0227 00d8 | | Load_Top At_Offset_0
0228 1c00 | | Execute_Immediate Run_Utility,0x0
0229 e007 | | Load 0x0,0x7
022a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022b BODY_0220:
022b e5fe | | Load 0x2,-0x2
022c 8224 | $ | Call 0x1,0x24
022d 00d1 | | Pop_Control Pop_Count_1
022e e007 | | Load 0x0,0x7
022f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0230 00da | | Load_Top At_Offset_2
0231 0120 | | Execute Any,Is_Value
0232 6804 |h | Jump_Zero 0x237
0233 e007 | | Load 0x0,0x7
0234 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0235 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0236 7801 |x | Jump 0x238
0237 00da | | Load_Top At_Offset_2
0238 e5ff | | Load 0x2,-0x1
0239 e007 | | Load 0x0,0x7
023a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
023b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
023c c402 | | Store 0x2,0x2
023d 0059 | Y | Store_Top Discrete,At_Offset_1
023e 00d8 | | Load_Top At_Offset_0
023f e008 | | Load 0x0,0x8
0240 180e | | Execute Package,Field_Execute,Field_Number 0xe
0241 7008 |p | Jump_Nonzero 0x24a
0242 e5fe | | Load 0x2,-0x2
0243 e5ff | | Load 0x2,-0x1
0244 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "Could not get object for"
0246 e009 | | Load 0x0,0x9
0247 180f | | Execute Package,Field_Execute,Field_Number 0xf
0248 8212 | | Call 0x1,0x12
0249 00d1 | | Pop_Control Pop_Count_1
024a 00d9 | | Load_Top At_Offset_1
024b e007 | | Load 0x0,0x7
024c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
024d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024e e5fe | | Load 0x2,-0x2
024f 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0250 e002 | | Load 0x0,0x2
0251 0257 | W | Execute Discrete,Raise
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00db | | Load_Top At_Offset_3
025c 8224 | $ | Call 0x1,0x24
025d 00d1 | | Pop_Control Pop_Count_1
025e 00da | | Load_Top At_Offset_2
025f e5fe | | Load 0x2,-0x2
0260 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0261 e002 | | Load 0x0,0x2
0262 0257 | W | Execute Discrete,Raise
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00db | | Load_Top At_Offset_3
026c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026d 00db | | Load_Top At_Offset_3
026e 027c | | | Execute Discrete,Less
026f 6803 |h | Jump_Zero 0x273
0270 00da | | Load_Top At_Offset_2
0271 e5fe | | Load 0x2,-0x2
0272 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0273 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027c | | | .CONST 0x027c ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b 00e1 | | Load_Encached Boolean_Cache
027c BODY_0278:
027c 00db | | Load_Top At_Offset_3
027d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
027e e007 | | Load 0x0,0x7
027f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0280 7011 |p | Jump_Nonzero 0x292
0281 00e1 | | Load_Encached Boolean_Cache
0282 e5ff | | Load 0x2,-0x1
0283 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0284 e5ff | | Load 0x2,-0x1
0285 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0286 e5ff | | Load 0x2,-0x1
0287 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0288 e005 | | Load 0x0,0x5
0289 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
028a 0059 | Y | Store_Top Discrete,At_Offset_1
028b 00d8 | | Load_Top At_Offset_0
028c 7005 |p | Jump_Nonzero 0x292
028d 00db | | Load_Top At_Offset_3
028e 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "Could not build menu"
0290 8212 | | Call 0x1,0x12
0291 00d1 | | Pop_Control Pop_Count_1
0292 e007 | | Load 0x0,0x7
0293 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0294 e5ff | | Load 0x2,-0x1
0295 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0296 00eb | | Load_Encached Diana_Cache
0297 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
0298 e5ff | | Load 0x2,-0x1
0299 380b |8 | Execute Record,Field_Write,Field_Number 0xb
029a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029b ; --------------------------------------------------------------------------------------
029b ; STRING TABLE
029b ; --------------------------------------------------------------------------------------
029b 001a | | .STRTAB 0x001a->0x02a8 ; "[Check."
029c 001f | | .STRTAB 0x001f->0x02ab ; " ("
029d 001f | | .STRTAB 0x001f->0x02ac ; ");]"
029e 0020 | | .STRTAB 0x0020->0x02ae ; "[End of Check."
029f 002c | , | .STRTAB 0x002c->0x02b5 ; " command]"
02a0 0033 | 3 | .STRTAB 0x0033->0x02b9 ; "Unhandled exception "
02a1 0045 | E | .STRTAB 0x0045->0x02c3 ; "incompatibilities"
02a2 0054 | T | .STRTAB 0x0054->0x02cc ; "Could not create menu"
02a3 0067 | g | .STRTAB 0x0067->0x02d6 ; "All units/views are compatible"
02a4 0083 | | .STRTAB 0x0083->0x02e5 ; "Could not display menu"
02a5 0097 | | .STRTAB 0x0097->0x02f0 ; "Could not get object for"
02a6 00ad | | .STRTAB 0x00ad->0x02fc ; "Could not build menu"
02a7 00bf | | .STREND 0x00bf->0x0306
02a8 5b43 6865 |[Che| .STRTAB_STRINGS
0307 0000 | | .XXX[0x1]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 0012 | | .DEBUG4 0x0004,0x0012,0xa466,0x0000,0x0001,0x0000
030e ac80 0000 | | .XXX[0xf2]
0310 0980 0000 | |
0312 0904 0d2d | -|
0314 ce6c ae4e | l N|
0316 8e65 840d | e |
0318 ee44 0c6d | D m|
031a 0c2d ccec | - |
031c ae65 840c | e |
031e 240e 6eed |$ n |
0320 2e8c 6d04 |. m |
0322 0ecc 2d8e | - |
0324 aca5 c404 | |
0326 09ae ad8e | |
0328 8d2e 0d8c | . |
032a a40e 6eed | n |
032c 2e8c 6d0c |. m |
032e ae64 0c6c | d l|
0330 2dc4 0c4c |- L|
0332 a40d 2dce | - |
0334 6cae 4e8c |l N |
0336 ac80 0000 | |
0338 02c0 0000 | |
033a 092e ed2e | . .|
033c 8d04 0ded | |
033e cca4 0c6d | m|
0340 edad ac2d | -|
0342 cc84 0c4f | O|
0344 240e 6cae |$ l |
0346 0c2e 4c2e | .L.|
0348 8d2d cce4 | - |
034a 0e8d 0cad | |
034c a40e ed2e | .|
034e 8d04 0e6c | l|
0350 adad 2c6d | ,m|
0352 ed8d edce | |
0354 65c4 040a |e |
0356 8d0d 2e64 | .d|
0358 0e0e 4dec | M |
035a 6cac 8eae |l |
035c 4ca4 0eae |L |
035e 6cae 6000 |l ` |
0360 0002 a000 | |
0362 0009 440e | D |
0364 ed2e 8d04 | . |
0366 0ded cca4 | |
0368 0c6d edad | m |
036a ac2d cc84 | - |
036c 0c4f 240e | O$ |
036e 6cae 0c2e |l .|
0370 4c2e 8d2d |L. -|
0372 cce4 0e8d | |
0374 0cad a40e | |
0376 ed2e 8d04 | . |
0378 0e6c adad | l |
037a 2c6d ed8d |,m |
037c edce 65c4 | e |
037e 040a 8d0d | |
0380 2e64 0e0e |.d |
0382 4dec 6cac |M l |
0384 8eae 4ca4 | L |
0386 0eae 6cae | l |
0388 6000 0002 |` |
038a a000 0009 | |
038c 440e ed2e |D .|
038e 8d04 0ded | |
0390 cca4 0c6d | m|
0392 edad ac2d | -|
0394 cc84 0c4f | O|
0396 240e 6cae |$ l |
0398 0c2e 4c2e | .L.|
039a 8d2d cce4 | - |
039c 0e8d 0cad | |
039e a40e ed2e | .|
03a0 8d04 0e6c | l|
03a2 adad 2c6d | ,m|
03a4 ed8d edce | |
03a6 65c4 040a |e |
03a8 8d0d 2e64 | .d|
03aa 0e0e 4dec | M |
03ac 6cac 8eae |l |
03ae 4ca4 0eae |L |
03b0 6cae 6000 |l ` |
03b2 000c 2000 | |
03b4 0005 0e8d | |
03b6 0ca4 0e6c | l|
03b8 2dac a40c |- |
03ba cdee 4dac | M |
03bc 2e84 0c2e |. .|
03be 640c 2dc4 |d - |
03c0 09ee 0e8d | |
03c2 2ded ce64 |- d|
03c4 0e0c 2e4c | .L|
03c6 2dac ae8c |- |
03c8 ae45 c000 | E |
03ca 000c 0000 | |
03cc 0005 240e | $ |
03ce 8d0c a40e | |
03d0 6c2d aca4 |l- |
03d2 0ccd ee4d | M|
03d4 ac2e 840c | . |
03d6 2e64 0c2d |.d -|
03d8 c409 ee0e | |
03da 8d2d edce | - |
03dc 640e 0c2e |d .|
03de 4c2d acae |L- |
03e0 8cae 45c0 | E |
03e2 0000 0c00 | |
03e4 0000 0524 | $|
03e6 0e8d 0ca4 | |
03e8 0e6c 2dac | l- |
03ea a40c cdee | |
03ec 4dac 2e84 |M . |
03ee 0c2e 640c | .d |
03f0 2dc4 09ee |- |
03f2 0e8d 2ded | - |
03f4 ce64 0e0c | d |
03f6 2e4c 2dac |.L- |
03f8 ae8c ae45 | E|
03fa c000 0000 | |
03fc 2000 0000 | |
03fe 0000 0000 | |