|
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]