|
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_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0300 | | .CONST 0x0300 ; 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 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Unelaborated
0038 029d 0263 | c| Declare_Subprogram INIT_0260,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 0273 | s| Declare_Subprogram INIT_0270,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 0292 | | Action Push_String_Extended,0x292 ; "[Check."
0078 e5ff | | Load 0x2,-0x1
0079 01cc | | Execute Vector,Catenate
007a 0092 0293 | | Action Push_String_Extended,0x293 ; " ("
007c 01cc | | Execute Vector,Catenate
007d e5fe | | Load 0x2,-0x2
007e 01cc | | Execute Vector,Catenate
007f 0092 0294 | | Action Push_String_Extended,0x294 ; ");]"
0081 01cc | | Execute Vector,Catenate
0082 e003 | | Load 0x0,0x3
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 0295 | | Action Push_String_Extended,0x295 ; "[End of Check."
0090 e5ff | | Load 0x2,-0x1
0091 01cc | | Execute Vector,Catenate
0092 0092 0296 | | Action Push_String_Extended,0x296 ; " command]"
0094 01cc | | Execute Vector,Catenate
0095 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
00d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00da e004 | | Load 0x0,0x4
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
010b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010c e004 | | Load 0x0,0x4
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 0297 | | Action Push_String_Extended,0x297 ; "Unhandled exception "
0118 e005 | | Load 0x0,0x5
0119 180d | | Execute Package,Field_Execute,Field_Number 0xd
011a 01cc | | Execute Vector,Catenate
011b e003 | | Load 0x0,0x3
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 e006 | | Load 0x0,0x6
0124 180e | | Execute Package,Field_Execute,Field_Number 0xe
0125 00db | | Load_Top At_Offset_3
0126 e003 | | Load 0x0,0x3
0127 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0128 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
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 e007 | | Load 0x0,0x7
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 0298 | | Action Push_String_Extended,0x298 ; "incompatibilities"
01e2 00ea | | Load_Encached Null_String_Cache
01e3 e007 | | Load 0x0,0x7
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 0299 | | Action Push_String_Extended,0x299 ; "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 029a | | Action Push_String_Extended,0x29a ; "All units/views are compatible"
01f9 e008 | | Load 0x0,0x8
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 e007 | | Load 0x0,0x7
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 029b | | Action Push_String_Extended,0x29b ; "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 e009 | | Load 0x0,0x9
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 e009 | | Load 0x0,0x9
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 e009 | | Load 0x0,0x9
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 e009 | | Load 0x0,0x9
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 e009 | | Load 0x0,0x9
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 800a | | Call 0x0,0xa
0240 7007 |p | Jump_Nonzero 0x248
0241 e5fe | | Load 0x2,-0x2
0242 e5ff | | Load 0x2,-0x1
0243 0092 029c | | Action Push_String_Extended,0x29c ; "Could not get object for"
0245 800b | | Call 0x0,0xb
0246 8212 | | Call 0x1,0x12
0247 00d1 | | Pop_Control Pop_Count_1
0248 00d9 | | Load_Top At_Offset_1
0249 e009 | | Load 0x0,0x9
024a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
024b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024c e5fe | | Load 0x2,-0x2
024d 380a |8 | Execute Record,Field_Write,Field_Number 0xa
024e e004 | | Load 0x0,0x4
024f 0257 | W | Execute Discrete,Raise
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00db | | Load_Top At_Offset_3
0254 8224 | $ | Call 0x1,0x24
0255 00d1 | | Pop_Control Pop_Count_1
0256 00da | | Load_Top At_Offset_2
0257 e5fe | | Load 0x2,-0x2
0258 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0259 e004 | | Load 0x0,0x4
025a 0257 | W | Execute Discrete,Raise
025b 0000 0000 | | .BLANK 0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00db | | Load_Top At_Offset_3
0264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0265 00db | | Load_Top At_Offset_3
0266 027c | | | Execute Discrete,Less
0267 6803 |h | Jump_Zero 0x26b
0268 00da | | Load_Top At_Offset_2
0269 e5fe | | Load 0x2,-0x2
026a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
026b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0274 | t | .CONST 0x0274 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 00e1 | | Load_Encached Boolean_Cache
0274 BODY_0270:
0274 00db | | Load_Top At_Offset_3
0275 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0276 e009 | | Load 0x0,0x9
0277 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0278 7011 |p | Jump_Nonzero 0x28a
0279 00e1 | | Load_Encached Boolean_Cache
027a e5ff | | Load 0x2,-0x1
027b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
027c e5ff | | Load 0x2,-0x1
027d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
027e e5ff | | Load 0x2,-0x1
027f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0280 e007 | | Load 0x0,0x7
0281 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0282 0059 | Y | Store_Top Discrete,At_Offset_1
0283 00d8 | | Load_Top At_Offset_0
0284 7005 |p | Jump_Nonzero 0x28a
0285 00db | | Load_Top At_Offset_3
0286 0092 029d | | Action Push_String_Extended,0x29d ; "Could not build menu"
0288 8212 | | Call 0x1,0x12
0289 00d1 | | Pop_Control Pop_Count_1
028a e009 | | Load 0x0,0x9
028b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
028c e5ff | | Load 0x2,-0x1
028d 380a |8 | Execute Record,Field_Write,Field_Number 0xa
028e 00f1 | | Load_Encached Diana_Temp_Seq
028f e5ff | | Load 0x2,-0x1
0290 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0291 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0292 ; --------------------------------------------------------------------------------------
0292 ; STRING TABLE
0292 ; --------------------------------------------------------------------------------------
0292 001a | | .STRTAB 0x001a->0x029f ; "[Check."
0293 001f | | .STRTAB 0x001f->0x02a2 ; " ("
0294 001f | | .STRTAB 0x001f->0x02a3 ; ");]"
0295 0020 | | .STRTAB 0x0020->0x02a5 ; "[End of Check."
0296 002c | , | .STRTAB 0x002c->0x02ac ; " command]"
0297 0033 | 3 | .STRTAB 0x0033->0x02b0 ; "Unhandled exception "
0298 0045 | E | .STRTAB 0x0045->0x02ba ; "incompatibilities"
0299 0054 | T | .STRTAB 0x0054->0x02c3 ; "Could not create menu"
029a 0067 | g | .STRTAB 0x0067->0x02cd ; "All units/views are compatible"
029b 0083 | | .STRTAB 0x0083->0x02dc ; "Could not display menu"
029c 0097 | | .STRTAB 0x0097->0x02e7 ; "Could not get object for"
029d 00ad | | .STRTAB 0x00ad->0x02f3 ; "Could not build menu"
029e 00bf | | .STREND 0x00bf->0x02fd
029f 5b43 6865 |[Che| .STRTAB_STRINGS
02fe 0000 0000 | | .XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc05e,0x0000,0x0001,0x0000
0306 0000 0000 | | .BLANK 0000[0xfa]