|
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_03bcfe
└─⟦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 01f8 | | .CONST 0x01f8 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000e 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0010 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0012 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0014 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0016 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0018 BODY_0008: 0018 e20e | | Load 0x1,0xe 0019 0122 | " | Execute Any,Make_Root_Type 001a 1c01 | | Execute_Immediate Run_Utility,0x1 001b 00d8 | | Load_Top At_Offset_0 001c 0d01 | | Execute_Immediate Less,0x1 001d 7013 |p | Jump_Nonzero 0x31 001e 00d8 | | Load_Top At_Offset_0 001f 0c13 | | Execute_Immediate Greater_Equal,0x13 0020 700a |p | Jump_Nonzero 0x2b 0021 00d8 | | Load_Top At_Offset_0 0022 0c07 | | Execute_Immediate Greater_Equal,0x7 0023 680f |h | Jump_Zero 0x33 0024 00d8 | | Load_Top At_Offset_0 0025 0c10 | | Execute_Immediate Greater_Equal,0x10 0026 680f |h | Jump_Zero 0x36 0027 0f10 | | Execute_Immediate Equal,0x10 0028 7010 |p | Jump_Nonzero 0x39 0029 8406 | | Call 0x2,0x6 002a 7814 |x | Jump 0x3f 002b 00d8 | | Load_Top At_Offset_0 002c 0c1c | | Execute_Immediate Greater_Equal,0x1c 002d 680d |h | Jump_Zero 0x3b 002e 0c22 | " | Execute_Immediate Greater_Equal,0x22 002f 680e |h | Jump_Zero 0x3e 0030 08e2 | | Execute_Immediate Raise,0xe2 0031 00d1 | | Pop_Control Pop_Count_1 0032 7ffd | | Jump 0x30 0033 00d1 | | Pop_Control Pop_Count_1 0034 8403 | | Call 0x2,0x3 0035 7809 |x | Jump 0x3f 0036 00d1 | | Pop_Control Pop_Count_1 0037 8404 | | Call 0x2,0x4 0038 7806 |x | Jump 0x3f 0039 8405 | | Call 0x2,0x5 003a 7804 |x | Jump 0x3f 003b 00d1 | | Pop_Control Pop_Count_1 003c 8407 | | Call 0x2,0x7 003d 7801 |x | Jump 0x3f 003e 8408 | | Call 0x2,0x8 003f e402 | | Load 0x2,0x2 0040 e20e | | Load 0x1,0xe 0041 0232 | 2 | Execute Float,Check_In_Type 0042 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0058 | X | .CONST 0x0058 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0004 | | .CONST 0x0004 ; Number of locals 004b INIT_0048: 004b 00e6 | | Load_Encached Float_Cache 004c 0241 | A | Execute Float,First 004d 00e6 | | Load_Encached Float_Cache 004e 0240 | @ | Execute Float,Last 004f 00e6 | | Load_Encached Float_Cache 0050 03e3 | | Declare_Type Float,Constrained 0051 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0053 00d9 | | Load_Top At_Offset_1 0054 012a | * | Execute Any,Change_Utility 0055 0007 | | Action Break_Optional 0056 00d8 | | Load_Top At_Offset_0 0057 03d8 | | Declare_Variable Float,Duplicate 0058 BODY_0048: 0058 e5ff | | Load 0x2,-0x1 0059 00d8 | | Load_Top At_Offset_0 005a 023b | ; | Execute Float,Times 005b 00d8 | | Load_Top At_Offset_0 005c e602 | | Load 0x3,0x2 005d 0234 | 4 | Execute Float,In_Type 005e 7001 |p | Jump_Nonzero 0x60 005f 0801 | | Execute_Immediate Raise,0x1 0060 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0061 00d9 | | Load_Top At_Offset_1 0062 5805 |X | Indirect_Literal Float,0x68,0.08333400828551363 0063 023b | ; | Execute Float,Times 0064 0049 | I | Store_Top Float,At_Offset_1 0065 00d8 | | Load_Top At_Offset_0 0066 c402 | | Store 0x2,0x2 0067 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0068 3fb5 5560 |? U`| .DBL 0.08333400828551363 006a a83b 1a90 | ; | 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0080 | | .CONST 0x0080 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0004 | | .CONST 0x0004 ; Number of locals 0073 INIT_0070: 0073 00e6 | | Load_Encached Float_Cache 0074 0241 | A | Execute Float,First 0075 00e6 | | Load_Encached Float_Cache 0076 0240 | @ | Execute Float,Last 0077 00e6 | | Load_Encached Float_Cache 0078 03e3 | | Declare_Type Float,Constrained 0079 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 007b 00d9 | | Load_Top At_Offset_1 007c 012a | * | Execute Any,Change_Utility 007d 0007 | | Action Break_Optional 007e 00d8 | | Load_Top At_Offset_0 007f 03d8 | | Declare_Variable Float,Duplicate 0080 BODY_0070: 0080 e5ff | | Load 0x2,-0x1 0081 00d8 | | Load_Top At_Offset_0 0082 023b | ; | Execute Float,Times 0083 00d8 | | Load_Top At_Offset_0 0084 e602 | | Load 0x3,0x2 0085 0234 | 4 | Execute Float,In_Type 0086 7001 |p | Jump_Nonzero 0x88 0087 0801 | | Execute_Immediate Raise,0x1 0088 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0089 00d9 | | Load_Top At_Offset_1 008a 5815 |X | Indirect_Literal Float,0xa0,0.08333333333333336 008b 00db | | Load_Top At_Offset_3 008c 580f |X | Indirect_Literal Float,0x9c,0.012499999997813866 008d e603 | | Load 0x3,0x3 008e 5809 |X | Indirect_Literal Float,0x98,0.0022321981075855983 008f 023b | ; | Execute Float,Times 0090 023d | = | Execute Float,Plus 0091 023b | ; | Execute Float,Times 0092 023d | = | Execute Float,Plus 0093 023b | ; | Execute Float,Times 0094 0049 | I | Store_Top Float,At_Offset_1 0095 00d8 | | Load_Top At_Offset_0 0096 c402 | | Store 0x2,0x2 0097 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0098 3f62 4942 |?bIB| .DBL 0.0022321981075855983 009a 3bd9 4741 |; GA| 009c 3f89 9999 |? | .DBL 0.012499999997813866 009e 9986 5edd | ^ | 00a0 3fb5 5555 |? UU| .DBL 0.08333333333333336 00a2 5555 5557 |UUUW| 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b8 | | .CONST 0x00b8 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0004 | | .CONST 0x0004 ; Number of locals 00ab INIT_00a8: 00ab 00e6 | | Load_Encached Float_Cache 00ac 0241 | A | Execute Float,First 00ad 00e6 | | Load_Encached Float_Cache 00ae 0240 | @ | Execute Float,Last 00af 00e6 | | Load_Encached Float_Cache 00b0 03e3 | | Declare_Type Float,Constrained 00b1 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 00b3 00d9 | | Load_Top At_Offset_1 00b4 012a | * | Execute Any,Change_Utility 00b5 0007 | | Action Break_Optional 00b6 00d8 | | Load_Top At_Offset_0 00b7 03d8 | | Declare_Variable Float,Duplicate 00b8 BODY_00a8: 00b8 e5ff | | Load 0x2,-0x1 00b9 00d8 | | Load_Top At_Offset_0 00ba 023b | ; | Execute Float,Times 00bb 00d8 | | Load_Top At_Offset_0 00bc e602 | | Load 0x3,0x2 00bd 0234 | 4 | Execute Float,In_Type 00be 7001 |p | Jump_Nonzero 0xc0 00bf 0801 | | Execute_Immediate Raise,0x1 00c0 0042 | B | Store_Top_Unchecked Float,At_Offset_2 00c1 00d9 | | Load_Top At_Offset_1 00c2 5fdd |_ | Indirect_Literal Float,0xa0,0.08333333333333336 00c3 00db | | Load_Top At_Offset_3 00c4 5fd7 |_ | Indirect_Literal Float,0x9c,0.012499999997813866 00c5 e603 | | Load 0x3,0x3 00c6 5fd1 |_ | Indirect_Literal Float,0x98,0.0022321981075855983 00c7 023b | ; | Execute Float,Times 00c8 023d | = | Execute Float,Plus 00c9 023b | ; | Execute Float,Times 00ca 023d | = | Execute Float,Plus 00cb 023b | ; | Execute Float,Times 00cc 0049 | I | Store_Top Float,At_Offset_1 00cd 00d8 | | Load_Top At_Offset_0 00ce c402 | | Store 0x2,0x2 00cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e0 | | .CONST 0x00e0 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 00e6 | | Load_Encached Float_Cache 00d4 0241 | A | Execute Float,First 00d5 00e6 | | Load_Encached Float_Cache 00d6 0240 | @ | Execute Float,Last 00d7 00e6 | | Load_Encached Float_Cache 00d8 03e3 | | Declare_Type Float,Constrained 00d9 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 00db 00d9 | | Load_Top At_Offset_1 00dc 012a | * | Execute Any,Change_Utility 00dd 0007 | | Action Break_Optional 00de 00d8 | | Load_Top At_Offset_0 00df 03d8 | | Declare_Variable Float,Duplicate 00e0 BODY_00d0: 00e0 e5ff | | Load 0x2,-0x1 00e1 00d8 | | Load_Top At_Offset_0 00e2 023b | ; | Execute Float,Times 00e3 00d8 | | Load_Top At_Offset_0 00e4 e602 | | Load 0x3,0x2 00e5 0234 | 4 | Execute Float,In_Type 00e6 7001 |p | Jump_Nonzero 0xe8 00e7 0801 | | Execute_Immediate Raise,0x1 00e8 0042 | B | Store_Top_Unchecked Float,At_Offset_2 00e9 00d9 | | Load_Top At_Offset_1 00ea 5815 |X | Indirect_Literal Float,0x100,0.08333333333333336 00eb 00db | | Load_Top At_Offset_3 00ec 580f |X | Indirect_Literal Float,0xfc,0.012499999997813866 00ed e603 | | Load 0x3,0x3 00ee 5809 |X | Indirect_Literal Float,0xf8,0.0022321981075855983 00ef 023b | ; | Execute Float,Times 00f0 023d | = | Execute Float,Plus 00f1 023b | ; | Execute Float,Times 00f2 023d | = | Execute Float,Plus 00f3 023b | ; | Execute Float,Times 00f4 0049 | I | Store_Top Float,At_Offset_1 00f5 00d8 | | Load_Top At_Offset_0 00f6 c402 | | Store 0x2,0x2 00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f8 3f62 4942 |?bIB| .DBL 0.0022321981075855983 00fa 3bd9 4741 |; GA| 00fc 3f89 9999 |? | .DBL 0.012499999997813866 00fe 9986 5edd | ^ | 0100 3fb5 5555 |? UU| .DBL 0.08333333333333336 0102 5555 5557 |UUUW| 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0118 | | .CONST 0x0118 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0004 | | .CONST 0x0004 ; Number of locals 010b INIT_0108: 010b 00e6 | | Load_Encached Float_Cache 010c 0241 | A | Execute Float,First 010d 00e6 | | Load_Encached Float_Cache 010e 0240 | @ | Execute Float,Last 010f 00e6 | | Load_Encached Float_Cache 0110 03e3 | | Declare_Type Float,Constrained 0111 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0113 00d9 | | Load_Top At_Offset_1 0114 012a | * | Execute Any,Change_Utility 0115 0007 | | Action Break_Optional 0116 00d8 | | Load_Top At_Offset_0 0117 03d8 | | Declare_Variable Float,Duplicate 0118 BODY_0108: 0118 e5ff | | Load 0x2,-0x1 0119 00d8 | | Load_Top At_Offset_0 011a 023b | ; | Execute Float,Times 011b 00d8 | | Load_Top At_Offset_0 011c e602 | | Load 0x3,0x2 011d 0234 | 4 | Execute Float,In_Type 011e 7001 |p | Jump_Nonzero 0x120 011f 0801 | | Execute_Immediate Raise,0x1 0120 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0121 00d9 | | Load_Top At_Offset_1 0122 5825 |X% | Indirect_Literal Float,0x148,0.08333333333333333 0123 00db | | Load_Top At_Offset_3 0124 581f |X | Indirect_Literal Float,0x144,0.012499999999999999 0125 e603 | | Load 0x3,0x3 0126 5819 |X | Indirect_Literal Float,0x140,0.002232142857142866 0127 e603 | | Load 0x3,0x3 0128 5813 |X | Indirect_Literal Float,0x13c,0.0004340277775126439 0129 e603 | | Load 0x3,0x3 012a 580d |X | Indirect_Literal Float,0x138,8.8782039767245e-05 012b 023b | ; | Execute Float,Times 012c 023d | = | Execute Float,Plus 012d 023b | ; | Execute Float,Times 012e 023d | = | Execute Float,Plus 012f 023b | ; | Execute Float,Times 0130 023d | = | Execute Float,Plus 0131 023b | ; | Execute Float,Times 0132 023d | = | Execute Float,Plus 0133 023b | ; | Execute Float,Times 0134 0049 | I | Store_Top Float,At_Offset_1 0135 00d8 | | Load_Top At_Offset_0 0136 c402 | | Store 0x2,0x2 0137 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0138 3f17 460f |? F | .DBL 8.8782039767245e-05 013a d43f 3d42 | ?=B| 013c 3f3c 71c7 |?<q | .DBL 0.0004340277775126439 013e 1c27 2634 | '&4| 0140 3f62 4924 |?bI$| .DBL 0.002232142857142866 0142 9249 24a7 | I$ | 0144 3f89 9999 |? | .DBL 0.012499999999999999 0146 9999 9999 | | 0148 3fb5 5555 |? UU| .DBL 0.08333333333333333 014a 5555 5555 |UUUU| 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0160 | ` | .CONST 0x0160 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 00e6 | | Load_Encached Float_Cache 0154 0241 | A | Execute Float,First 0155 00e6 | | Load_Encached Float_Cache 0156 0240 | @ | Execute Float,Last 0157 00e6 | | Load_Encached Float_Cache 0158 03e3 | | Declare_Type Float,Constrained 0159 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 015b 00d9 | | Load_Top At_Offset_1 015c 012a | * | Execute Any,Change_Utility 015d 0007 | | Action Break_Optional 015e 00d8 | | Load_Top At_Offset_0 015f 03d8 | | Declare_Variable Float,Duplicate 0160 BODY_0150: 0160 e5ff | | Load 0x2,-0x1 0161 00d8 | | Load_Top At_Offset_0 0162 023b | ; | Execute Float,Times 0163 00d8 | | Load_Top At_Offset_0 0164 e602 | | Load 0x3,0x2 0165 0234 | 4 | Execute Float,In_Type 0166 7001 |p | Jump_Nonzero 0x168 0167 0801 | | Execute_Immediate Raise,0x1 0168 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0169 00d9 | | Load_Top At_Offset_1 016a 5fdd |_ | Indirect_Literal Float,0x148,0.08333333333333333 016b 00db | | Load_Top At_Offset_3 016c 5fd7 |_ | Indirect_Literal Float,0x144,0.012499999999999999 016d e603 | | Load 0x3,0x3 016e 5821 |X! | Indirect_Literal Float,0x190,0.002232142857142857 016f e603 | | Load 0x3,0x3 0170 581b |X | Indirect_Literal Float,0x18c,0.0004340277777777814 0171 e603 | | Load 0x3,0x3 0172 5815 |X | Indirect_Literal Float,0x188,8.877840900903778e-05 0173 e603 | | Load 0x3,0x3 0174 580f |X | Indirect_Literal Float,0x184,1.878096574024066e-05 0175 023b | ; | Execute Float,Times 0176 023d | = | Execute Float,Plus 0177 023b | ; | Execute Float,Times 0178 023d | = | Execute Float,Plus 0179 023b | ; | Execute Float,Times 017a 023d | = | Execute Float,Plus 017b 023b | ; | Execute Float,Times 017c 023d | = | Execute Float,Plus 017d 023b | ; | Execute Float,Times 017e 023d | = | Execute Float,Plus 017f 023b | ; | Execute Float,Times 0180 0049 | I | Store_Top Float,At_Offset_1 0181 00d8 | | Load_Top At_Offset_0 0182 c402 | | Store 0x2,0x2 0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0184 3ef3 b17a |> z| .DBL 1.878096574024066e-05 0186 2365 67e8 |#eg | 0188 3f17 45d1 |? E | .DBL 8.877840900903778e-05 018a 7400 e979 |t y| 018c 3f3c 71c7 |?<q | .DBL 0.0004340277777777814 018e 1c71 c75f | q _| 0190 3f62 4924 |?bI$| .DBL 0.002232142857142857 0192 9249 2492 | I$ | 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4601 |F | Jump_Case 0x2 019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 019d 7801 |x | Jump 0x19f ; case 0x1 019e 4302 |C | .XXX[0x1] 019f 4806 |H | Short_Literal 0x6 01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4601 |F | Jump_Case 0x2 01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01ad 7801 |x | Jump 0x1af ; case 0x1 01ae 4302 |C | .XXX[0x1] 01af 480f |H | Short_Literal 0xf 01b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4601 |F | Jump_Case 0x2 01bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01bd 7801 |x | Jump 0x1bf ; case 0x1 01be 4302 |C | .XXX[0x1] 01bf 480f |H | Short_Literal 0xf 01c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c1 0000 0000 | | .BLANK 0000[0x7] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4601 |F | Jump_Case 0x2 01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01cd 7801 |x | Jump 0x1cf ; case 0x1 01ce 4302 |C | .XXX[0x1] 01cf 480f |H | Short_Literal 0xf 01d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 4601 |F | Jump_Case 0x2 01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01dd 7801 |x | Jump 0x1df ; case 0x1 01de 4302 |C | .XXX[0x1] 01df 480f |H | Short_Literal 0xf 01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4601 |F | Jump_Case 0x2 01ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01ed 7801 |x | Jump 0x1ef ; case 0x1 01ee 4302 |C | .XXX[0x1] 01ef 480f |H | Short_Literal 0xf 01f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; Debug Table 01f8 ; -------------------------------------------------------------------------------------- 01f8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f19,0x0000,0x0001,0x0000 01fe 2151 8026 |!Q &| .XXX[0x2]