|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01c8 | | .CONST 0x01c8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0091 | | .CONST 0x0091 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0015 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0017 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0021 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0023 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0025 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0027 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0029 0093 0000 | | push_full_address 0x0
002b 607c |`| | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00010000}
002c 0273 | s | Execute Discrete,Plus
002d 0129 | ) | Execute Any,Make_Visible
002e 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0030 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0032 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0034 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0036 4800 |H | Short_Literal 0x0
0037 4801 |H | Short_Literal 0x1
0038 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
003a 03fe | | Declare_Type Discrete,Defined,Visible
003b 0093 0000 | | push_full_address 0x0
003d 6066 |`f | Indirect_Literal Discrete,0xa4,{0x80000000, 0x00010000}
003e 0273 | s | Execute Discrete,Plus
003f e002 | | Load 0x0,0x2
0040 0273 | s | Execute Discrete,Plus
0041 e003 | | Load 0x0,0x3
0042 0273 | s | Execute Discrete,Plus
0043 480a |H | Short_Literal 0xa
0044 e004 | | Load 0x0,0x4
0045 e005 | | Load 0x0,0x5
0046 e006 | | Load 0x0,0x6
0047 e007 | | Load 0x0,0x7
0048 4801 |H | Short_Literal 0x1
0049 e221 | ! | Load 0x1,0x21
004a a008 | | Store_Unchecked 0x0,0x8
004b a009 | | Store_Unchecked 0x0,0x9
004c a00a | | Store_Unchecked 0x0,0xa
004d a00b | | Store_Unchecked 0x0,0xb
004e a00c | | Store_Unchecked 0x0,0xc
004f a00d | | Store_Unchecked 0x0,0xd
0050 a00e | | Store_Unchecked 0x0,0xe
0051 a00f | | Store_Unchecked 0x0,0xf
0052 a010 | | Store_Unchecked 0x0,0x10
0053 a011 | | Store_Unchecked 0x0,0x11
0054 a012 | | Store_Unchecked 0x0,0x12
0055 a013 | | Store_Unchecked 0x0,0x13
0056 a014 | | Store_Unchecked 0x0,0x14
0057 a015 | | Store_Unchecked 0x0,0x15
0058 a016 | | Store_Unchecked 0x0,0x16
0059 a017 | | Store_Unchecked 0x0,0x17
005a e018 | | Load 0x0,0x18
005b 0386 | | Declare_Variable Package,Visible
005c 00d8 | | Load_Top At_Offset_0
005d 020f | | Execute Module,Activate
005e e019 | | Load 0x0,0x19
005f 00d9 | | Load_Top At_Offset_1
0060 0098 | | Execute Package,Field_Read_Dynamic
0061 0129 | ) | Execute Any,Make_Visible
0062 e01a | | Load 0x0,0x1a
0063 00da | | Load_Top At_Offset_2
0064 0098 | | Execute Package,Field_Read_Dynamic
0065 0129 | ) | Execute Any,Make_Visible
0066 e01b | | Load 0x0,0x1b
0067 00db | | Load_Top At_Offset_3
0068 0098 | | Execute Package,Field_Read_Dynamic
0069 0129 | ) | Execute Any,Make_Visible
006a 00bf | | Action Accept_Activation
006b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
006c 00c7 | | Action Elaborate_Subprogram
006d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
006e 00c7 | | Action Elaborate_Subprogram
006f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0070 00c7 | | Action Elaborate_Subprogram
0071 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0072 00c7 | | Action Elaborate_Subprogram
0073 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0074 00c7 | | Action Elaborate_Subprogram
0075 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0076 00c7 | | Action Elaborate_Subprogram
0077 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0078 00c7 | | Action Elaborate_Subprogram
0079 1d14 | | Execute_Immediate Reference_Lex_1,0x14
007a 00c7 | | Action Elaborate_Subprogram
007b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007c 00c7 | | Action Elaborate_Subprogram
007d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007e 00c7 | | Action Elaborate_Subprogram
007f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0080 00c7 | | Action Elaborate_Subprogram
0081 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0082 00c7 | | Action Elaborate_Subprogram
0083 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0086 00c7 | | Action Elaborate_Subprogram
0087 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0088 00c7 | | Action Elaborate_Subprogram
0089 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008a 00c7 | | Action Elaborate_Subprogram
008b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
008c 00c7 | | Action Elaborate_Subprogram
008d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
008e 00c7 | | Action Elaborate_Subprogram
008f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0090 00c7 | | Action Elaborate_Subprogram
0091 BODY_0008:
0091 00bc | | Action Signal_Activated
0092 00bb | | Action Signal_Completion
0093 0000 0000 | | .BLANK 0000[0x5]
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 e5fd | | Load 0x2,-0x3
009c e5fe | | Load 0x2,-0x2
009d e5ff | | Load 0x2,-0x1
009e e01c | | Load 0x0,0x1c
009f e222 | " | Load 0x1,0x22
00a0 0096 | | Execute Package,Entry
00a1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00a2 0000 0000 | | .XXX[0x2]
00a4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e01d | | Load 0x0,0x1d
00b5 e222 | " | Load 0x1,0x22
00b6 0096 | | Execute Package,Entry
00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
00bc e019 | | Load 0x0,0x19
00bd e222 | " | Load 0x1,0x22
00be 0098 | | Execute Package,Field_Read_Dynamic
00bf 0216 | | Execute Heap_Access,Convert
00c0 e01e | | Load 0x0,0x1e
00c1 e222 | " | Load 0x1,0x22
00c2 0096 | | Execute Package,Entry
00c3 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 00db | | Load_Top At_Offset_3
00cd e01f | | Load 0x0,0x1f
00ce e222 | " | Load 0x1,0x22
00cf 0096 | | Execute Package,Entry
00d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e5fd | | Load 0x2,-0x3
00dc e019 | | Load 0x0,0x19
00dd e222 | " | Load 0x1,0x22
00de 0098 | | Execute Package,Field_Read_Dynamic
00df 0216 | | Execute Heap_Access,Convert
00e0 e5fe | | Load 0x2,-0x2
00e1 e5ff | | Load 0x2,-0x1
00e2 e020 | | Load 0x0,0x20
00e3 e222 | " | Load 0x1,0x22
00e4 0096 | | Execute Package,Entry
00e5 c5fd | | Store 0x2,-0x3
00e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec 00db | | Load_Top At_Offset_3
00ed e021 | ! | Load 0x0,0x21
00ee e222 | " | Load 0x1,0x22
00ef 0096 | | Execute Package,Entry
00f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f1 0000 0000 | | .BLANK 0000[0x7]
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 00e1 | | Load_Encached Boolean_Cache
00fc e5fd | | Load 0x2,-0x3
00fd e5fe | | Load 0x2,-0x2
00fe e5ff | | Load 0x2,-0x1
00ff e022 | " | Load 0x0,0x22
0100 e222 | " | Load 0x1,0x22
0101 0096 | | Execute Package,Entry
0102 00d1 | | Pop_Control Pop_Count_1
0103 c5fc | | Store 0x2,-0x4
0104 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
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 e5fd | | Load 0x2,-0x3
010c e019 | | Load 0x0,0x19
010d e222 | " | Load 0x1,0x22
010e 0098 | | Execute Package,Field_Read_Dynamic
010f 0216 | | Execute Heap_Access,Convert
0110 e5fe | | Load 0x2,-0x2
0111 e5ff | | Load 0x2,-0x1
0112 e023 | # | Load 0x0,0x23
0113 e222 | " | Load 0x1,0x22
0114 0096 | | Execute Package,Entry
0115 c5fd | | Store 0x2,-0x3
0116 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00db | | Load_Top At_Offset_3
011c e019 | | Load 0x0,0x19
011d e222 | " | Load 0x1,0x22
011e 0098 | | Execute Package,Field_Read_Dynamic
011f 0216 | | Execute Heap_Access,Convert
0120 00db | | Load_Top At_Offset_3
0121 e024 | $ | Load 0x0,0x24
0122 e222 | " | Load 0x1,0x22
0123 0096 | | Execute Package,Entry
0124 c5fe | | Store 0x2,-0x2
0125 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c e025 | % | Load 0x0,0x25
012d e222 | " | Load 0x1,0x22
012e 0096 | | Execute Package,Entry
012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0134 e019 | | Load 0x0,0x19
0135 e222 | " | Load 0x1,0x22
0136 0098 | | Execute Package,Field_Read_Dynamic
0137 0216 | | Execute Heap_Access,Convert
0138 e026 | & | Load 0x0,0x26
0139 e222 | " | Load 0x1,0x22
013a 0096 | | Execute Package,Entry
013b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
013c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e01a | | Load 0x0,0x1a
0144 e222 | " | Load 0x1,0x22
0145 0098 | | Execute Package,Field_Read_Dynamic
0146 00db | | Load_Top At_Offset_3
0147 e027 | ' | Load 0x0,0x27
0148 e222 | " | Load 0x1,0x22
0149 0096 | | Execute Package,Entry
014a c5fe | | Store 0x2,-0x2
014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e01a | | Load 0x0,0x1a
0155 e222 | " | Load 0x1,0x22
0156 0098 | | Execute Package,Field_Read_Dynamic
0157 0226 | & | Execute Access,Convert
0158 e028 | ( | Load 0x0,0x28
0159 e222 | " | Load 0x1,0x22
015a 0096 | | Execute Package,Entry
015b 003b | ; | Store_Top Access,At_Offset_3
015c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
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 00da | | Load_Top At_Offset_2
0164 e029 | ) | Load 0x0,0x29
0165 e222 | " | Load 0x1,0x22
0166 0096 | | Execute Package,Entry
0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
016c e02a | * | Load 0x0,0x2a
016d e222 | " | Load 0x1,0x22
016e 0096 | | Execute Package,Entry
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 e02b | + | Load 0x0,0x2b
0175 e222 | " | Load 0x1,0x22
0176 0096 | | Execute Package,Entry
0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e02c | , | Load 0x0,0x2c
017d e222 | " | Load 0x1,0x22
017e 0096 | | Execute Package,Entry
017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e02d | - | Load 0x0,0x2d
0185 e222 | " | Load 0x1,0x22
0186 0096 | | Execute Package,Entry
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
018c e02e | . | Load 0x0,0x2e
018d e222 | " | Load 0x1,0x22
018e 0096 | | Execute Package,Entry
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 4607 |F | Jump_Case 0x8
0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0195 7807 |x | Jump 0x19d ; case 0x1
0196 780a |x | Jump 0x1a1 ; case 0x2
0197 780e |x | Jump 0x1a6 ; case 0x3
0198 7811 |x | Jump 0x1aa ; case 0x4
0199 7812 |x | Jump 0x1ac ; case 0x5
019a 7813 |x | Jump 0x1ae ; case 0x6
019b 7816 |x | Jump 0x1b2 ; case 0x7
019c 4302 |C | .XXX[0x1]
019d 00da | | Load_Top At_Offset_2
019e 0091 01b6 | | Action Push_String_Extended_Indexed,0x1b6 ; "TEST_CASE"
01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a1 00db | | Load_Top At_Offset_3
01a2 00db | | Load_Top At_Offset_3
01a3 00e0 | | Load_Encached Standard_Cache
01a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a6 00da | | Load_Top At_Offset_2
01a7 00e0 | | Load_Encached Standard_Cache
01a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01aa 00db | | Load_Top At_Offset_3
01ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ac 00db | | Load_Top At_Offset_3
01ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ae e221 | ! | Load 0x1,0x21
01af 00dc | | Load_Top At_Offset_4
01b0 0267 | g | Execute Discrete,Predecessor
01b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b2 e221 | ! | Load 0x1,0x21
01b3 00dc | | Load_Top At_Offset_4
01b4 0268 | h | Execute Discrete,Successor
01b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b6 ; --------------------------------------------------------------------------------------
01b6 ; STRING TABLE
01b6 ; --------------------------------------------------------------------------------------
01b6 0006 | | .STRTAB 0x0006->0x01b9 ; "TEST_CASE"
01b7 000d | | .STRTAB 0x000d->0x01bd ; "UNIT_SET"
01b8 0013 | | .STREND 0x0013->0x01c1
01b9 5445 5354 |TEST| .STRTAB_STRINGS
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 000a | | .DEBUG4 0x0004,0x000a,0x4ed0,0x0000,0x0001,0x0000
01ce 0000 0000 | | .BLANK 0000[0x32]