|
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_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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0340 | @ | .CONST 0x0340 ; 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 005e | ^ | .CONST 0x005e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4801 |H | Short_Literal 0x1 000d 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0012 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0016 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001a 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 001c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001e 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0020 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0022 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0024 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0026 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0028 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 002a 4818 |H | Short_Literal 0x18 002b 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 002c 00bf | | Action Accept_Activation 002d e002 | | Load 0x0,0x2 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 4801 |H | Short_Literal 0x1 0030 49f4 |I | Short_Literal 0x1f4 0031 00e9 | | Load_Encached String_Cache 0032 035b | [ | Declare_Type Array,Constrained 0033 00e3 | | Load_Encached Natural_Cache 0034 e003 | | Load 0x0,0x3 0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0036 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0037 00e1 | | Load_Encached Boolean_Cache 0038 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 003a 4805 |H | Short_Literal 0x5 003b 032d | - | Declare_Type Record,Defined 003c 00d8 | | Load_Top At_Offset_0 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e e21b | | Load 0x1,0x1b 003f 03c7 | | Complete_Type Access,By_Defining 0040 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0042 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0043 00c7 | | Action Elaborate_Subprogram 0044 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0045 00c7 | | Action Elaborate_Subprogram 0046 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0047 00c7 | | Action Elaborate_Subprogram 0048 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call 004a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004b 00c7 | | Action Elaborate_Subprogram 004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004d 00c7 | | Action Elaborate_Subprogram 004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004f 00c7 | | Action Elaborate_Subprogram 0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0051 00c7 | | Action Elaborate_Subprogram 0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0053 00c7 | | Action Elaborate_Subprogram 0054 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0055 00c7 | | Action Elaborate_Subprogram 0056 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0057 00c7 | | Action Elaborate_Subprogram 0058 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0059 00c7 | | Action Elaborate_Subprogram 005a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005d 00c7 | | Action Elaborate_Subprogram 005e BODY_0008: 005e 00bc | | Action Signal_Activated 005f 00bb | | Action Signal_Completion 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4607 |F | Jump_Case 0x8 0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0065 7807 |x | Jump 0x6d ; case 0x1 0066 780a |x | Jump 0x71 ; case 0x2 0067 780e |x | Jump 0x76 ; case 0x3 0068 7811 |x | Jump 0x7a ; case 0x4 0069 7812 |x | Jump 0x7c ; case 0x5 006a 7813 |x | Jump 0x7e ; case 0x6 006b 7816 |x | Jump 0x82 ; case 0x7 006c 4302 |C | .XXX[0x1] 006d 00da | | Load_Top At_Offset_2 006e 0091 0331 | 1| Action Push_String_Extended_Indexed,0x331 ; "SESSION" 0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0071 00db | | Load_Top At_Offset_3 0072 00db | | Load_Top At_Offset_3 0073 00e0 | | Load_Encached Standard_Cache 0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 00da | | Load_Top At_Offset_2 0077 00e0 | | Load_Encached Standard_Cache 0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0079 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007a 00db | | Load_Top At_Offset_3 007b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007c 00db | | Load_Top At_Offset_3 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e e20d | | Load 0x1,0xd 007f 00dc | | Load_Top At_Offset_4 0080 0267 | g | Execute Discrete,Predecessor 0081 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0082 e20d | | Load 0x1,0xd 0083 00dc | | Load_Top At_Offset_4 0084 0268 | h | Execute Discrete,Successor 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0090 | | .CONST 0x0090 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b e21b | | Load 0x1,0x1b 008c 03bc | | Declare_Variable Access,By_Allocation 008d 00d8 | | Load_Top At_Offset_0 008e 0227 | ' | Execute Access,All_Reference 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 BODY_0088: 0090 4801 |H | Short_Literal 0x1 0091 e003 | | Load 0x0,0x3 0092 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0094 e5ff | | Load 0x2,-0x1 0095 0092 0333 | 3| Action Push_String_Extended,0x333 ; ".Activity_@" 0097 01cc | | Execute Vector,Catenate 0098 e003 | | Load 0x0,0x3 0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 009b e402 | | Load 0x2,0x2 009c 0227 | ' | Execute Access,All_Reference 009d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 009e 00d8 | | Load_Top At_Offset_0 009f 0227 | ' | Execute Access,All_Reference 00a0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00a1 e003 | | Load 0x0,0x3 00a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00a4 7021 |p! | Jump_Nonzero 0xc6 00a5 00d8 | | Load_Top At_Offset_0 00a6 0229 | ) | Execute Access,All_Read 00a7 00d8 | | Load_Top At_Offset_0 00a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a9 00ea | | Load_Encached Null_String_Cache 00aa e402 | | Load 0x2,0x2 00ab 0227 | ' | Execute Access,All_Reference 00ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00ad e003 | | Load 0x0,0x3 00ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00af 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00b0 e003 | | Load 0x0,0x3 00b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b3 4800 |H | Short_Literal 0x0 00b4 e002 | | Load 0x0,0x2 00b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b6 e403 | | Load 0x2,0x3 00b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b8 00d1 | | Pop_Control Pop_Count_1 00b9 00d8 | | Load_Top At_Offset_0 00ba 0229 | ) | Execute Access,All_Read 00bb 00d8 | | Load_Top At_Offset_0 00bc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00bd e003 | | Load 0x0,0x3 00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00c0 e403 | | Load 0x2,0x3 00c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c2 00d1 | | Pop_Control Pop_Count_1 00c3 00d8 | | Load_Top At_Offset_0 00c4 821d | | Call 0x1,0x1d 00c5 7804 |x | Jump 0xca 00c6 4801 |H | Short_Literal 0x1 00c7 e402 | | Load 0x2,0x2 00c8 0227 | ' | Execute Access,All_Reference 00c9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00ca 00d8 | | Load_Top At_Offset_0 00cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d5 | | .CONST 0x00d5 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e5ff | | Load 0x2,-0x1 00d4 0007 | | Action Break_Optional 00d5 BODY_00d0: 00d5 00d8 | | Load_Top At_Offset_0 00d6 821d | | Call 0x1,0x1d 00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 e5ff | | Load 0x2,-0x1 00dc 0227 | ' | Execute Access,All_Reference 00dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 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 4801 |H | Short_Literal 0x1 00e4 e5ff | | Load 0x2,-0x1 00e5 0227 | ' | Execute Access,All_Reference 00e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e7 01d7 | | Execute Vector,Field_Read 00e8 0f53 | S | Execute_Immediate Equal,0x53 00e9 6802 |h | Jump_Zero 0xec 00ea 4800 |H | Short_Literal 0x0 00eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ec 4801 |H | Short_Literal 0x1 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 00e3 | | Load_Encached Natural_Cache 00f4 03e9 | | Declare_Variable Discrete,Duplicate 00f5 BODY_00f0: 00f5 00e3 | | Load_Encached Natural_Cache 00f6 00e3 | | Load_Encached Natural_Cache 00f7 4809 |H | Short_Literal 0x9 00f8 e5ff | | Load 0x2,-0x1 00f9 0227 | ' | Execute Access,All_Reference 00fa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00fb 01dd | | Execute Vector,First 00fc e5ff | | Load 0x2,-0x1 00fd 0227 | ' | Execute Access,All_Reference 00fe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ff e5ff | | Load 0x2,-0x1 0100 0227 | ' | Execute Access,All_Reference 0101 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0102 01cf | | Execute Vector,Slice_Read 0103 821e | | Call 0x1,0x1e 0104 c402 | | Store 0x2,0x2 0105 c403 | | Store 0x2,0x3 0106 e402 | | Load 0x2,0x2 0107 4800 |H | Short_Literal 0x0 0108 e402 | | Load 0x2,0x2 0109 e403 | | Load 0x2,0x3 010a e5ff | | Load 0x2,-0x1 010b 0227 | ' | Execute Access,All_Reference 010c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 010d 01cf | | Execute Vector,Slice_Read 010e 482e |H. | Short_Literal 0x2e 010f e004 | | Load 0x0,0x4 0110 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0111 0aff | | Execute_Immediate Plus,-0x1 0112 e5ff | | Load 0x2,-0x1 0113 0227 | ' | Execute Access,All_Reference 0114 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0115 01cf | | Execute Vector,Slice_Read 0116 0335 | 5 | Declare_Variable Array,Duplicate 0117 00cd | | Action Spare6_Action 0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0125 | % | .CONST 0x0125 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 00e3 | | Load_Encached Natural_Cache 0124 03e9 | | Declare_Variable Discrete,Duplicate 0125 BODY_0120: 0125 00e3 | | Load_Encached Natural_Cache 0126 00e3 | | Load_Encached Natural_Cache 0127 4809 |H | Short_Literal 0x9 0128 e5ff | | Load 0x2,-0x1 0129 0227 | ' | Execute Access,All_Reference 012a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 012b 01dd | | Execute Vector,First 012c e5ff | | Load 0x2,-0x1 012d 0227 | ' | Execute Access,All_Reference 012e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012f e5ff | | Load 0x2,-0x1 0130 0227 | ' | Execute Access,All_Reference 0131 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0132 01cf | | Execute Vector,Slice_Read 0133 821e | | Call 0x1,0x1e 0134 c402 | | Store 0x2,0x2 0135 c403 | | Store 0x2,0x3 0136 4800 |H | Short_Literal 0x0 0137 e402 | | Load 0x2,0x2 0138 e5ff | | Load 0x2,-0x1 0139 0227 | ' | Execute Access,All_Reference 013a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 013b e5ff | | Load 0x2,-0x1 013c 0227 | ' | Execute Access,All_Reference 013d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 013e 01cf | | Execute Vector,Slice_Read 013f 482e |H. | Short_Literal 0x2e 0140 e004 | | Load 0x0,0x4 0141 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0142 0a01 | | Execute_Immediate Plus,0x1 0143 00d8 | | Load_Top At_Offset_0 0144 00e2 | | Load_Encached Integer_Cache 0145 0260 | ` | Execute Discrete,In_Type 0146 7001 |p | Jump_Nonzero 0x148 0147 0801 | | Execute_Immediate Raise,0x1 0148 e403 | | Load 0x2,0x3 0149 e5ff | | Load 0x2,-0x1 014a 0227 | ' | Execute Access,All_Reference 014b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 014c 01cf | | Execute Vector,Slice_Read 014d 0335 | 5 | Declare_Variable Array,Duplicate 014e 00cd | | Action Spare6_Action 014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0156 | V | .CONST 0x0156 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 00e3 | | Load_Encached Natural_Cache 0154 03e9 | | Declare_Variable Discrete,Duplicate 0155 03e9 | | Declare_Variable Discrete,Duplicate 0156 BODY_0150: 0156 00e3 | | Load_Encached Natural_Cache 0157 00e3 | | Load_Encached Natural_Cache 0158 4802 |H | Short_Literal 0x2 0159 e5ff | | Load 0x2,-0x1 015a 0227 | ' | Execute Access,All_Reference 015b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 015c 01dd | | Execute Vector,First 015d e5ff | | Load 0x2,-0x1 015e 0227 | ' | Execute Access,All_Reference 015f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0160 e5ff | | Load 0x2,-0x1 0161 0227 | ' | Execute Access,All_Reference 0162 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0163 01cf | | Execute Vector,Slice_Read 0164 821e | | Call 0x1,0x1e 0165 c402 | | Store 0x2,0x2 0166 c404 | | Store 0x2,0x4 0167 00e3 | | Load_Encached Natural_Cache 0168 00e3 | | Load_Encached Natural_Cache 0169 4803 |H | Short_Literal 0x3 016a e5ff | | Load 0x2,-0x1 016b 0227 | ' | Execute Access,All_Reference 016c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 016d 01dd | | Execute Vector,First 016e e5ff | | Load 0x2,-0x1 016f 0227 | ' | Execute Access,All_Reference 0170 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0171 e5ff | | Load 0x2,-0x1 0172 0227 | ' | Execute Access,All_Reference 0173 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0174 01cf | | Execute Vector,Slice_Read 0175 821e | | Call 0x1,0x1e 0176 c404 | | Store 0x2,0x4 0177 c403 | | Store 0x2,0x3 0178 e402 | | Load 0x2,0x2 0179 e403 | | Load 0x2,0x3 017a e5ff | | Load 0x2,-0x1 017b 0227 | ' | Execute Access,All_Reference 017c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 017d 01cf | | Execute Vector,Slice_Read 017e e005 | | Load 0x0,0x5 017f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0180 e005 | | Load 0x0,0x5 0181 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018e | | .CONST 0x018e ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b 00e3 | | Load_Encached Natural_Cache 018c 03e9 | | Declare_Variable Discrete,Duplicate 018d 03e9 | | Declare_Variable Discrete,Duplicate 018e BODY_0188: 018e 00e3 | | Load_Encached Natural_Cache 018f 00e3 | | Load_Encached Natural_Cache 0190 4804 |H | Short_Literal 0x4 0191 e5ff | | Load 0x2,-0x1 0192 0227 | ' | Execute Access,All_Reference 0193 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0194 01dd | | Execute Vector,First 0195 e5ff | | Load 0x2,-0x1 0196 0227 | ' | Execute Access,All_Reference 0197 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0198 e5ff | | Load 0x2,-0x1 0199 0227 | ' | Execute Access,All_Reference 019a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 019b 01cf | | Execute Vector,Slice_Read 019c 821e | | Call 0x1,0x1e 019d c402 | | Store 0x2,0x2 019e c404 | | Store 0x2,0x4 019f 00e3 | | Load_Encached Natural_Cache 01a0 00e3 | | Load_Encached Natural_Cache 01a1 4805 |H | Short_Literal 0x5 01a2 e5ff | | Load 0x2,-0x1 01a3 0227 | ' | Execute Access,All_Reference 01a4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01a5 01dd | | Execute Vector,First 01a6 e5ff | | Load 0x2,-0x1 01a7 0227 | ' | Execute Access,All_Reference 01a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a9 e5ff | | Load 0x2,-0x1 01aa 0227 | ' | Execute Access,All_Reference 01ab 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01ac 01cf | | Execute Vector,Slice_Read 01ad 821e | | Call 0x1,0x1e 01ae c404 | | Store 0x2,0x4 01af c403 | | Store 0x2,0x3 01b0 e402 | | Load 0x2,0x2 01b1 e403 | | Load 0x2,0x3 01b2 e5ff | | Load 0x2,-0x1 01b3 0227 | ' | Execute Access,All_Reference 01b4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b5 01cf | | Execute Vector,Slice_Read 01b6 e005 | | Load 0x0,0x5 01b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01b8 e005 | | Load 0x0,0x5 01b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e5ff | | Load 0x2,-0x1 01c4 8214 | | Call 0x1,0x14 01c5 e5ff | | Load 0x2,-0x1 01c6 8215 | | Call 0x1,0x15 01c7 e006 | | Load 0x0,0x6 01c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d5 | | .CONST 0x01d5 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 00e3 | | Load_Encached Natural_Cache 01d4 03e9 | | Declare_Variable Discrete,Duplicate 01d5 BODY_01d0: 01d5 00e3 | | Load_Encached Natural_Cache 01d6 00e3 | | Load_Encached Natural_Cache 01d7 4806 |H | Short_Literal 0x6 01d8 e5ff | | Load 0x2,-0x1 01d9 0227 | ' | Execute Access,All_Reference 01da 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01db 01dd | | Execute Vector,First 01dc e5ff | | Load 0x2,-0x1 01dd 0227 | ' | Execute Access,All_Reference 01de 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01df e5ff | | Load 0x2,-0x1 01e0 0227 | ' | Execute Access,All_Reference 01e1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01e2 01cf | | Execute Vector,Slice_Read 01e3 821e | | Call 0x1,0x1e 01e4 c402 | | Store 0x2,0x2 01e5 c403 | | Store 0x2,0x3 01e6 e402 | | Load 0x2,0x2 01e7 e403 | | Load 0x2,0x3 01e8 e5ff | | Load 0x2,-0x1 01e9 0227 | ' | Execute Access,All_Reference 01ea 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01eb 01cf | | Execute Vector,Slice_Read 01ec e005 | | Load 0x0,0x5 01ed 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01ee e005 | | Load 0x0,0x5 01ef 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fd | | .CONST 0x01fd ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb 00e3 | | Load_Encached Natural_Cache 01fc 03e9 | | Declare_Variable Discrete,Duplicate 01fd BODY_01f8: 01fd 00e3 | | Load_Encached Natural_Cache 01fe 00e3 | | Load_Encached Natural_Cache 01ff 4807 |H | Short_Literal 0x7 0200 e5ff | | Load 0x2,-0x1 0201 0227 | ' | Execute Access,All_Reference 0202 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0203 01dd | | Execute Vector,First 0204 e5ff | | Load 0x2,-0x1 0205 0227 | ' | Execute Access,All_Reference 0206 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0207 e5ff | | Load 0x2,-0x1 0208 0227 | ' | Execute Access,All_Reference 0209 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 020a 01cf | | Execute Vector,Slice_Read 020b 821e | | Call 0x1,0x1e 020c c402 | | Store 0x2,0x2 020d c403 | | Store 0x2,0x3 020e e402 | | Load 0x2,0x2 020f e403 | | Load 0x2,0x3 0210 e5ff | | Load 0x2,-0x1 0211 0227 | ' | Execute Access,All_Reference 0212 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0213 01cf | | Execute Vector,Slice_Read 0214 00e2 | | Load_Encached Integer_Cache 0215 00e0 | | Load_Encached Standard_Cache 0216 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0217 00d8 | | Load_Top At_Offset_0 0218 00e3 | | Load_Encached Natural_Cache 0219 0260 | ` | Execute Discrete,In_Type 021a 7001 |p | Jump_Nonzero 0x21c 021b 0801 | | Execute_Immediate Raise,0x1 021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0225 | % | .CONST 0x0225 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 00e3 | | Load_Encached Natural_Cache 0224 03e9 | | Declare_Variable Discrete,Duplicate 0225 BODY_0220: 0225 00e3 | | Load_Encached Natural_Cache 0226 00e3 | | Load_Encached Natural_Cache 0227 4808 |H | Short_Literal 0x8 0228 e5ff | | Load 0x2,-0x1 0229 0227 | ' | Execute Access,All_Reference 022a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 022b 01dd | | Execute Vector,First 022c e5ff | | Load 0x2,-0x1 022d 0227 | ' | Execute Access,All_Reference 022e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022f e5ff | | Load 0x2,-0x1 0230 0227 | ' | Execute Access,All_Reference 0231 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0232 01cf | | Execute Vector,Slice_Read 0233 821e | | Call 0x1,0x1e 0234 c402 | | Store 0x2,0x2 0235 c403 | | Store 0x2,0x3 0236 e402 | | Load 0x2,0x2 0237 e403 | | Load 0x2,0x3 0238 e5ff | | Load 0x2,-0x1 0239 0227 | ' | Execute Access,All_Reference 023a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 023b 01cf | | Execute Vector,Slice_Read 023c 00e2 | | Load_Encached Integer_Cache 023d 00e0 | | Load_Encached Standard_Cache 023e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 023f 00d8 | | Load_Top At_Offset_0 0240 00e3 | | Load_Encached Natural_Cache 0241 0260 | ` | Execute Discrete,In_Type 0242 7001 |p | Jump_Nonzero 0x244 0243 0801 | | Execute_Immediate Raise,0x1 0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4801 |H | Short_Literal 0x1 024c e5ff | | Load 0x2,-0x1 024d 0227 | ' | Execute Access,All_Reference 024e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 024f e5ff | | Load 0x2,-0x1 0250 0227 | ' | Execute Access,All_Reference 0251 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0252 01cf | | Execute Vector,Slice_Read 0253 0335 | 5 | Declare_Variable Array,Duplicate 0254 00cd | | Action Spare6_Action 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 0000 0000 | | .XXX[0x2] 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 4601 |F | Jump_Case 0x2 025c 7801 |x | Jump 0x25e ; case 0x0 025d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 025e e5ff | | Load 0x2,-0x1 025f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0260 0125 | % | Execute Any,Set_Constraint 0261 e5ff | | Load 0x2,-0x1 0262 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0263 1c00 | | Execute_Immediate Run_Utility,0x0 0264 4800 |H | Short_Literal 0x0 0265 e5ff | | Load 0x2,-0x1 0266 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0267 e5ff | | Load 0x2,-0x1 0268 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0269 0125 | % | Execute Any,Set_Constraint 026a e5ff | | Load 0x2,-0x1 026b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 026c 1c00 | | Execute_Immediate Run_Utility,0x0 026d 4800 |H | Short_Literal 0x0 026e e5ff | | Load 0x2,-0x1 026f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0270 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b e5ff | | Load 0x2,-0x1 027c 0227 | ' | Execute Access,All_Reference 027d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 027e 704f |pO | Jump_Nonzero 0x2ce 027f 00cf | | Action Mark_Auxiliary 0280 e5ff | | Load 0x2,-0x1 0281 0227 | ' | Execute Access,All_Reference 0282 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0283 e002 | | Load 0x0,0x2 0284 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0285 6834 |h4 | Jump_Zero 0x2ba 0286 e5ff | | Load 0x2,-0x1 0287 0229 | ) | Execute Access,All_Read 0288 00d8 | | Load_Top At_Offset_0 0289 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 028a e002 | | Load 0x0,0x2 028b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028c e403 | | Load 0x2,0x3 028d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 028e 00d1 | | Pop_Control Pop_Count_1 028f e5ff | | Load 0x2,-0x1 0290 0227 | ' | Execute Access,All_Reference 0291 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0292 e003 | | Load 0x0,0x3 0293 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0294 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0295 701f |p | Jump_Nonzero 0x2b5 0296 e5ff | | Load 0x2,-0x1 0297 0229 | ) | Execute Access,All_Read 0298 00d8 | | Load_Top At_Offset_0 0299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029a 00ea | | Load_Encached Null_String_Cache 029b e5ff | | Load 0x2,-0x1 029c 0227 | ' | Execute Access,All_Reference 029d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 029e e003 | | Load 0x0,0x3 029f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02a1 e003 | | Load 0x0,0x3 02a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02a4 4800 |H | Short_Literal 0x0 02a5 e002 | | Load 0x0,0x2 02a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02a7 e403 | | Load 0x2,0x3 02a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a9 00d1 | | Pop_Control Pop_Count_1 02aa e5ff | | Load 0x2,-0x1 02ab 0229 | ) | Execute Access,All_Read 02ac 00d8 | | Load_Top At_Offset_0 02ad 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ae e003 | | Load 0x0,0x3 02af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02b1 e403 | | Load 0x2,0x3 02b2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02b3 00d1 | | Pop_Control Pop_Count_1 02b4 7816 |x | Jump 0x2cb 02b5 4801 |H | Short_Literal 0x1 02b6 e5ff | | Load 0x2,-0x1 02b7 0227 | ' | Execute Access,All_Reference 02b8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02b9 7813 |x | Jump 0x2cd 02ba e5ff | | Load 0x2,-0x1 02bb 0229 | ) | Execute Access,All_Read 02bc e5ff | | Load 0x2,-0x1 02bd 0229 | ) | Execute Access,All_Read 02be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02bf 00e3 | | Load_Encached Natural_Cache 02c0 e404 | | Load 0x2,0x4 02c1 e5ff | | Load 0x2,-0x1 02c2 0227 | ' | Execute Access,All_Reference 02c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c4 e002 | | Load 0x0,0x2 02c5 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 02c6 00d1 | | Pop_Control Pop_Count_1 02c7 e403 | | Load 0x2,0x3 02c8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02c9 00d2 | | Pop_Control Pop_Count_2 02ca 7802 |x | Jump 0x2cd 02cb 00c9 | | Action Pop_Auxiliary_Loop 02cc 7fb3 | | Jump 0x280 02cd 00ce | | Action Pop_Auxiliary 02ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d9 | | .CONST 0x02d9 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0005 | | .CONST 0x0005 ; Number of locals 02d3 INIT_02d0: 02d3 00e3 | | Load_Encached Natural_Cache 02d4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02d5 03e9 | | Declare_Variable Discrete,Duplicate 02d6 03e9 | | Declare_Variable Discrete,Duplicate 02d7 029f 030b | | Declare_Subprogram INIT_0308,For_Call 02d9 BODY_02d0: 02d9 e5ff | | Load 0x2,-0x1 02da 01dd | | Execute Vector,First 02db c402 | | Store 0x2,0x2 02dc 00cf | | Action Mark_Auxiliary 02dd e402 | | Load 0x2,0x2 02de 4801 |H | Short_Literal 0x1 02df 8405 | | Call 0x2,0x5 02e0 c402 | | Store 0x2,0x2 02e1 e402 | | Load 0x2,0x2 02e2 a403 | | Store_Unchecked 0x2,0x3 02e3 e403 | | Load 0x2,0x3 02e4 4800 |H | Short_Literal 0x0 02e5 8405 | | Call 0x2,0x5 02e6 c403 | | Store 0x2,0x3 02e7 e403 | | Load 0x2,0x3 02e8 e5ff | | Load 0x2,-0x1 02e9 01d7 | | Execute Vector,Field_Read 02ea 0f20 | | Execute_Immediate Equal,0x20 02eb 6803 |h | Jump_Zero 0x2ef 02ec e403 | | Load 0x2,0x3 02ed 0aff | | Execute_Immediate Plus,-0x1 02ee c403 | | Store 0x2,0x3 02ef e404 | | Load 0x2,0x4 02f0 e5fe | | Load 0x2,-0x2 02f1 027f | | Execute Discrete,Equal 02f2 7009 |p | Jump_Nonzero 0x2fc 02f3 e404 | | Load 0x2,0x4 02f4 0a01 | | Execute_Immediate Plus,0x1 02f5 c404 | | Store 0x2,0x4 02f6 e402 | | Load 0x2,0x2 02f7 4800 |H | Short_Literal 0x0 02f8 8405 | | Call 0x2,0x5 02f9 c402 | | Store 0x2,0x2 02fa 00c9 | | Action Pop_Auxiliary_Loop 02fb 7fe1 | | Jump 0x2dd 02fc 00ce | | Action Pop_Auxiliary 02fd e402 | | Load 0x2,0x2 02fe a5fd | | Store_Unchecked 0x2,-0x3 02ff e403 | | Load 0x2,0x3 0300 a5fc | | Store_Unchecked 0x2,-0x4 0301 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b e7ff | | Load 0x3,-0x1 030c 6812 |h | Jump_Zero 0x31f 030d 00cf | | Action Mark_Auxiliary 030e 7804 |x | Jump 0x313 030f e7fe | | Load 0x3,-0x2 0310 0a01 | | Execute_Immediate Plus,0x1 0311 c7fe | | Store 0x3,-0x2 0312 00c9 | | Action Pop_Auxiliary_Loop 0313 e7fe | | Load 0x3,-0x2 0314 e5ff | | Load 0x2,-0x1 0315 01dc | | Execute Vector,Last 0316 027e | ~ | Execute Discrete,Not_Equal 0317 6805 |h | Jump_Zero 0x31d 0318 e7fe | | Load 0x3,-0x2 0319 e5ff | | Load 0x2,-0x1 031a 01d7 | | Execute Vector,Field_Read 031b 0f20 | | Execute_Immediate Equal,0x20 031c 77f2 |w | Jump_Nonzero 0x30f 031d 00ce | | Action Pop_Auxiliary 031e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 031f 00cf | | Action Mark_Auxiliary 0320 7804 |x | Jump 0x325 0321 e7fe | | Load 0x3,-0x2 0322 0a01 | | Execute_Immediate Plus,0x1 0323 c7fe | | Store 0x3,-0x2 0324 00c9 | | Action Pop_Auxiliary_Loop 0325 e7fe | | Load 0x3,-0x2 0326 e5ff | | Load 0x2,-0x1 0327 01dc | | Execute Vector,Last 0328 027e | ~ | Execute Discrete,Not_Equal 0329 6805 |h | Jump_Zero 0x32f 032a e7fe | | Load 0x3,-0x2 032b e5ff | | Load 0x2,-0x1 032c 01d7 | | Execute Vector,Field_Read 032d 0e20 | | Execute_Immediate Not_Equal,0x20 032e 77f2 |w | Jump_Nonzero 0x321 032f 00ce | | Action Pop_Auxiliary 0330 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0331 ; -------------------------------------------------------------------------------------- 0331 ; STRING TABLE 0331 ; -------------------------------------------------------------------------------------- 0331 0008 | | .STRTAB 0x0008->0x0335 ; "SESSION" 0332 000d | | .STRTAB 0x000d->0x0338 ; "JOB" 0333 000e | | .STRTAB 0x000e->0x033a ; ".Activity_@" 0334 0017 | | .STREND 0x0017->0x033f 0335 5345 5353 |SESS| .STRTAB_STRINGS 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9c64,0x0000,0x0001,0x0000 0346 0000 0000 | | .BLANK 0000[0xba]