|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦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 0460 | ` | .CONST 0x0460 ; 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 004a | J | .CONST 0x004a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 0092 038f | | Action Push_String_Extended,0x38f ; "command: "
000e 0007 | | Action Break_Optional
000f 4800 |H | Short_Literal 0x0
0010 0093 0083 | | push_full_address INIT_0080
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 037d | } | Declare_Type Task,Defined
0014 036f | o | Declare_Variable Task
0015 4800 |H | Short_Literal 0x0
0016 e009 | | Load 0x0,0x9
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 037d | } | Declare_Type Task,Defined
0019 036f | o | Declare_Variable Task
001a 4800 |H | Short_Literal 0x0
001b 0093 0053 | S| push_full_address INIT_0050
001d 02a0 | | Declare_Subprogram Null_Subprogram
001e 037a | z | Declare_Type Task,Defined,Not_Elaborated
001f 00d8 | | Load_Top At_Offset_0
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 4818 |H | Short_Literal 0x18
0022 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0023 e00a | | Load 0x0,0xa
0024 e403 | | Load 0x2,0x3
0025 4802 |H | Short_Literal 0x2
0026 e405 | | Load 0x2,0x5
0027 020e | | Execute Module,Augment_Imports
0028 e405 | | Load 0x2,0x5
0029 020d | | Execute Module,Elaborate
002a 0007 | | Action Break_Optional
002b e00b | | Load 0x0,0xb
002c e403 | | Load 0x2,0x3
002d e00c | | Load 0x0,0xc
002e 4803 |H | Short_Literal 0x3
002f e404 | | Load 0x2,0x4
0030 020e | | Execute Module,Augment_Imports
0031 0007 | | Action Break_Optional
0032 e210 | | Load 0x1,0x10
0033 e211 | | Load 0x1,0x11
0034 e406 | | Load 0x2,0x6
0035 e00a | | Load 0x0,0xa
0036 e00d | | Load 0x0,0xd
0037 e00e | | Load 0x0,0xe
0038 e5ff | | Load 0x2,-0x1
0039 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003a e003 | | Load 0x0,0x3
003b e404 | | Load 0x2,0x4
003c e402 | | Load 0x2,0x2
003d e5fe | | Load 0x2,-0x2
003e e20f | | Load 0x1,0xf
003f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0040 e00b | | Load 0x0,0xb
0041 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0042 e00f | | Load 0x0,0xf
0043 e010 | | Load 0x0,0x10
0044 e005 | | Load 0x0,0x5
0045 e011 | | Load 0x0,0x11
0046 e006 | | Load 0x0,0x6
0047 4815 |H | Short_Literal 0x15
0048 e403 | | Load 0x2,0x3
0049 020e | | Execute Module,Augment_Imports
004a BODY_0008:
004a 00be | | Action Activate_Tasks
004b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005e | ^ | .CONST 0x005e ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0010 | | .CONST 0x0010 ; Number of locals
0053 INIT_0050:
0053 4801 |H | Short_Literal 0x1
0054 02cb | | Declare_Variable Entry
0055 00bf | | Action Accept_Activation
0056 e001 | | Load 0x0,0x1
0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0058 480d |H | Short_Literal 0xd
0059 0299 006b | k| Declare_Subprogram INIT_0068,For_Accept
005b 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
005d 00bc | | Action Signal_Activated
005e BODY_0050:
005e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0060 0137 | 7 | Execute Entry,Rendezvous
0061 8210 | | Call 0x1,0x10
0062 e20e | | Load 0x1,0xe
0063 4801 |H | Short_Literal 0x1
0064 e002 | | Load 0x0,0x2
0065 170e | | Execute Task,Entry_Call,Field_Number 0xe
0066 00bb | | Action Signal_Completion
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e5fe | | Load 0x2,-0x2
006c a20e | | Store_Unchecked 0x1,0xe
006d 4100 |A | End_Rendezvous 0x0
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0077 | w | .CONST 0x0077 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e20e | | Load 0x1,0xe
0074 e001 | | Load 0x0,0x1
0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 TRAP_0070:
0077 0007 | | Action Break_Optional
0078 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0112 | | .CONST 0x0112 ; Address of begin
0081 0156 | V | .CONST 0x0156 ; Address of exception handler
0082 0029 | ) | .CONST 0x0029 ; Number of locals
0083 INIT_0080:
0083 4801 |H | Short_Literal 0x1
0084 02cb | | Declare_Variable Entry
0085 4801 |H | Short_Literal 0x1
0086 02cb | | Declare_Variable Entry
0087 00bf | | Action Accept_Activation
0088 0007 | | Action Break_Optional
0089 e001 | | Load 0x0,0x1
008a 0322 | " | Declare_Variable Record
008b 00d8 | | Load_Top At_Offset_0
008c 1c00 | | Execute_Immediate Run_Utility,0x0
008d 62a2 |b | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
008e e002 | | Load 0x0,0x2
008f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0090 1c08 | | Execute_Immediate Run_Utility,0x8
0091 00d8 | | Load_Top At_Offset_0
0092 1c00 | | Execute_Immediate Run_Utility,0x0
0093 e003 | | Load 0x0,0x3
0094 0007 | | Action Break_Optional
0095 00e1 | | Load_Encached Boolean_Cache
0096 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0097 e004 | | Load 0x0,0x4
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 4801 |H | Short_Literal 0x1
009a 6295 |b | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
009b 00e9 | | Load_Encached String_Cache
009c 0334 | 4 | Declare_Variable Array,With_Constraint
009d 00e3 | | Load_Encached Natural_Cache
009e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009f 0007 | | Action Break_Optional
00a0 00e8 | | Load_Encached Character_Cache
00a1 0266 | f | Execute Discrete,Bounds
00a2 00e1 | | Load_Encached Boolean_Cache
00a3 02a0 | | Declare_Subprogram Null_Subprogram
00a4 4801 |H | Short_Literal 0x1
00a5 035d | ] | Declare_Type Array,Defined
00a6 00d8 | | Load_Top At_Offset_0
00a7 0337 | 7 | Declare_Variable Array
00a8 e216 | | Load 0x1,0x16
00a9 0337 | 7 | Declare_Variable Array
00aa 4801 |H | Short_Literal 0x1
00ab 4820 |H | Short_Literal 0x20
00ac e218 | | Load 0x1,0x18
00ad 01d6 | | Execute Vector,Field_Write
00ae 4801 |H | Short_Literal 0x1
00af 482e |H. | Short_Literal 0x2e
00b0 e218 | | Load 0x1,0x18
00b1 01d6 | | Execute Vector,Field_Write
00b2 4801 |H | Short_Literal 0x1
00b3 483b |H; | Short_Literal 0x3b
00b4 e218 | | Load 0x1,0x18
00b5 01d6 | | Execute Vector,Field_Write
00b6 4801 |H | Short_Literal 0x1
00b7 4828 |H( | Short_Literal 0x28
00b8 e218 | | Load 0x1,0x18
00b9 01d6 | | Execute Vector,Field_Write
00ba 4801 |H | Short_Literal 0x1
00bb 4829 |H) | Short_Literal 0x29
00bc e218 | | Load 0x1,0x18
00bd 01d6 | | Execute Vector,Field_Write
00be 4801 |H | Short_Literal 0x1
00bf 482d |H- | Short_Literal 0x2d
00c0 e218 | | Load 0x1,0x18
00c1 01d6 | | Execute Vector,Field_Write
00c2 481f |H | Short_Literal 0x1f
00c3 4800 |H | Short_Literal 0x0
00c4 4800 |H | Short_Literal 0x0
00c5 e21a | | Load 0x1,0x1a
00c6 e218 | | Load 0x1,0x18
00c7 01d6 | | Execute Vector,Field_Write
00c8 3ffb |? | Loop_Increasing 0xc4
00c9 4827 |H' | Short_Literal 0x27
00ca 4821 |H! | Short_Literal 0x21
00cb 4800 |H | Short_Literal 0x0
00cc e21a | | Load 0x1,0x1a
00cd e218 | | Load 0x1,0x18
00ce 01d6 | | Execute Vector,Field_Write
00cf 3ffb |? | Loop_Increasing 0xcb
00d0 482c |H, | Short_Literal 0x2c
00d1 482a |H* | Short_Literal 0x2a
00d2 4800 |H | Short_Literal 0x0
00d3 e21a | | Load 0x1,0x1a
00d4 e218 | | Load 0x1,0x18
00d5 01d6 | | Execute Vector,Field_Write
00d6 3ffb |? | Loop_Increasing 0xd2
00d7 483a |H: | Short_Literal 0x3a
00d8 482f |H/ | Short_Literal 0x2f
00d9 4800 |H | Short_Literal 0x0
00da e21a | | Load 0x1,0x1a
00db e218 | | Load 0x1,0x18
00dc 01d6 | | Execute Vector,Field_Write
00dd 3ffb |? | Loop_Increasing 0xd9
00de 487f |H | Short_Literal 0x7f
00df 483c |H< | Short_Literal 0x3c
00e0 4800 |H | Short_Literal 0x0
00e1 e21a | | Load 0x1,0x1a
00e2 e218 | | Load 0x1,0x18
00e3 01d6 | | Execute Vector,Field_Write
00e4 3ffb |? | Loop_Increasing 0xe0
00e5 e216 | | Load 0x1,0x16
00e6 01c3 | | Execute Vector,Check_In_Type
00e7 e217 | | Load 0x1,0x17
00e8 01d4 | | Execute Vector,Structure_Write
00e9 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
00eb 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
00ed 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call
00ef 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call
00f1 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
00f3 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
00f5 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
00f7 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
00f9 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
00fb 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call
00fd e002 | | Load 0x0,0x2
00fe 1914 | | Execute Package,Field_Reference,Field_Number 0x14
00ff 00c6 | | Action Check_Subprogram_Elaborated
0100 e001 | | Load 0x0,0x1
0101 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0102 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0103 e005 | | Load 0x0,0x5
0104 e006 | | Load 0x0,0x6
0105 4800 |H | Short_Literal 0x0
0106 480e 485c |H H\| Declare_Variable Select 0x000, 0x002,
0108 480d 485e |H H^| [0x001]: 0x000 = 0x0000,
010a 4801 4800 |H H | [0x00d]: 0x05e = 0x02f0,
010c 4800 4802 |H H | [0x00e]: 0x05c = 0x02e0
010e 02cf | |
010f 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0111 00bc | | Action Signal_Activated
0112 BODY_0080:
0112 e20f | | Load 0x1,0xf
0113 0092 0390 | | Action Push_String_Extended,0x390 ; "None"
0115 4800 |H | Short_Literal 0x0
0116 e007 | | Load 0x0,0x7
0117 8008 | | Call 0x0,0x8
0118 00d1 | | Pop_Control Pop_Count_1
0119 e20f | | Load 0x1,0xf
011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011b e009 | | Load 0x0,0x9
011c 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
011d 4801 |H | Short_Literal 0x1
011e e00a | | Load 0x0,0xa
011f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0120 e00b | | Load 0x0,0xb
0121 8219 | | Call 0x1,0x19
0122 00cf | | Action Mark_Auxiliary
0123 0007 | | Action Break_Optional
0124 00e1 | | Load_Encached Boolean_Cache
0125 4800 |H | Short_Literal 0x0
0126 c22b | + | Store 0x1,0x2b
0127 00e7 | | Load_Encached Duration_Cache
0128 00e3 | | Load_Encached Natural_Cache
0129 e212 | | Load 0x1,0x12
012a 7010 |p | Jump_Nonzero 0x13b
012b e00c | | Load 0x0,0xc
012c e22b | + | Load 0x1,0x2b
012d 7002 |p | Jump_Nonzero 0x130
012e c22c | , | Store 0x1,0x2c
012f 7805 |x | Jump 0x135
0130 00d8 | | Load_Top At_Offset_0
0131 e22c | , | Load 0x1,0x2c
0132 027c | | | Execute Discrete,Less
0133 6806 |h | Jump_Zero 0x13a
0134 c22c | , | Store 0x1,0x2c
0135 4801 |H | Short_Literal 0x1
0136 c22b | + | Store 0x1,0x2b
0137 4802 |H | Short_Literal 0x2
0138 c22d | - | Store 0x1,0x2d
0139 7801 |x | Jump 0x13b
013a 00d1 | | Pop_Control Pop_Count_1
013b e22b | + | Load 0x1,0x2b
013c 00d8 | | Load_Top At_Offset_0
013d e228 | ( | Load 0x1,0x28
013e 013e | > | Execute Select,Timed_Guard_Write
013f 6804 |h | Jump_Zero 0x144
0140 00d8 | | Load_Top At_Offset_0
0141 e22c | , | Load 0x1,0x2c
0142 e228 | ( | Load 0x1,0x28
0143 013d | = | Execute Select,Timed_Duration_Write
0144 00d3 | | Pop_Control Pop_Count_3
0145 e228 | ( | Load 0x1,0x28
0146 013f | ? | Execute Select,Rendezvous
0147 4603 |F | Jump_Case 0x4
0148 7805 |x | Jump 0x14e ; case 0x0
0149 7804 |x | Jump 0x14e ; case 0x1
014a 7800 |x | Jump 0x14b ; case 0x2
014b e00d | | Load 0x0,0xd ; case 0x3
014c 821a | | Call 0x1,0x1a
014d 7805 |x | Jump 0x153
014e e212 | | Load 0x1,0x12
014f 7001 |p | Jump_Nonzero 0x151
0150 8229 | ) | Call 0x1,0x29
0151 00c9 | | Action Pop_Auxiliary_Loop
0152 7fd1 | | Jump 0x124
0153 00ce | | Action Pop_Auxiliary
0154 8218 | | Call 0x1,0x18
0155 00bb | | Action Signal_Completion
0156 TRAP_0080:
0156 0007 | | Action Break_Optional
0157 8218 | | Call 0x1,0x18
0158 00bb | | Action Signal_Completion
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167 | g | .CONST 0x0167 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0165 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
0167 BODY_0160:
0167 8402 | | Call 0x2,0x2
0168 8403 | | Call 0x2,0x3
0169 e20f | | Load 0x1,0xf
016a 800e | | Call 0x0,0xe
016b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e5ff | | Load 0x2,-0x1
0174 e20f | | Load 0x1,0xf
0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0176 e009 | | Load 0x0,0x9
0177 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0178 e00f | | Load 0x0,0xf
0179 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017b 0000 0000 | | .BLANK 0000[0x5]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 480a |H | Short_Literal 0xa
0184 e5ff | | Load 0x2,-0x1
0185 01cb | | Execute Vector,Append
0186 8219 | | Call 0x1,0x19
0187 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
018d BODY_0188:
018d e212 | | Load 0x1,0x12
018e 6808 |h | Jump_Zero 0x197
018f 8402 | | Call 0x2,0x2
0190 4800 |H | Short_Literal 0x0
0191 a212 | | Store_Unchecked 0x1,0x12
0192 e20f | | Load 0x1,0xf
0193 8010 | | Call 0x0,0x10
0194 00d1 | | Pop_Control Pop_Count_1
0195 e00b | | Load 0x0,0xb
0196 8219 | | Call 0x1,0x19
0197 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3 | | .CONST 0x01a3 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b 4820 |H | Short_Literal 0x20
019c e5ff | | Load 0x2,-0x1
019d e011 | | Load 0x0,0x11
019e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
019f 00d8 | | Load_Top At_Offset_0
01a0 01dd | | Execute Vector,First
01a1 00e3 | | Load_Encached Natural_Cache
01a2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01a3 BODY_0198:
01a3 00cf | | Action Mark_Auxiliary
01a4 0007 | | Action Break_Optional
01a5 e403 | | Load 0x2,0x3
01a6 e402 | | Load 0x2,0x2
01a7 01dc | | Execute Vector,Last
01a8 027d | } | Execute Discrete,Greater
01a9 7006 |p | Jump_Nonzero 0x1b0
01aa e403 | | Load 0x2,0x3
01ab e402 | | Load 0x2,0x2
01ac 01d7 | | Execute Vector,Field_Read
01ad e217 | | Load 0x1,0x17
01ae 01d7 | | Execute Vector,Field_Read
01af 6804 |h | Jump_Zero 0x1b4
01b0 e403 | | Load 0x2,0x3
01b1 0aff | | Execute_Immediate Plus,-0x1
01b2 c403 | | Store 0x2,0x3
01b3 7805 |x | Jump 0x1b9
01b4 e403 | | Load 0x2,0x3
01b5 0a01 | | Execute_Immediate Plus,0x1
01b6 c403 | | Store 0x2,0x3
01b7 00c9 | | Action Pop_Auxiliary_Loop
01b8 7fec | | Jump 0x1a5
01b9 00ce | | Action Pop_Auxiliary
01ba e402 | | Load 0x2,0x2
01bb 01dd | | Execute Vector,First
01bc e403 | | Load 0x2,0x3
01bd e402 | | Load 0x2,0x2
01be 01cf | | Execute Vector,Slice_Read
01bf e011 | | Load 0x0,0x11
01c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1 | | .CONST 0x01d1 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb 4820 |H | Short_Literal 0x20
01cc e5ff | | Load 0x2,-0x1
01cd e011 | | Load 0x0,0x11
01ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01cf 00d8 | | Load_Top At_Offset_0
01d0 821c | | Call 0x1,0x1c
01d1 BODY_01c8:
01d1 e402 | | Load 0x2,0x2
01d2 01dd | | Execute Vector,First
01d3 e403 | | Load 0x2,0x3
01d4 01db | | Execute Vector,Length
01d5 0273 | s | Execute Discrete,Plus
01d6 0248 | H | Execute Discrete,Check_In_Integer
01d7 e402 | | Load 0x2,0x2
01d8 01dc | | Execute Vector,Last
01d9 e402 | | Load 0x2,0x2
01da 01cf | | Execute Vector,Slice_Read
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ec | | .CONST 0x01ec ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0004 | | .CONST 0x0004 ; Number of locals
01e3 INIT_01e0:
01e3 e5ff | | Load 0x2,-0x1
01e4 821c | | Call 0x1,0x1c
01e5 e004 | | Load 0x0,0x4
01e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e7 02c7 | | Declare_Variable Any
01e8 00d8 | | Load_Top At_Offset_0
01e9 1c00 | | Execute_Immediate Run_Utility,0x0
01ea 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
01ec BODY_01e0:
01ec e5ff | | Load 0x2,-0x1
01ed 01db | | Execute Vector,Length
01ee 7001 |p | Jump_Nonzero 0x1f0
01ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f0 e402 | | Load 0x2,0x2
01f1 0092 0391 | | Action Push_String_Extended,0x391 ; "HELP"
01f3 01df | | Execute Vector,Equal
01f4 6813 |h | Jump_Zero 0x208
01f5 0092 0392 | | Action Push_String_Extended,0x392 ; "HELP display this message."
01f7 821a | | Call 0x1,0x1a
01f8 0092 0393 | | Action Push_String_Extended,0x393 ; "QUIT stop executing commands."
01fa 821a | | Call 0x1,0x1a
01fb 0092 0394 | | Action Push_String_Extended,0x394 ; "DEF (\x22<new context>\x22); set current context."
01fd 821a | | Call 0x1,0x1a
01fe 0092 0395 | | Action Push_String_Extended,0x395 ; "TYP (\x22<object name>\x22); display an object."
0200 821a | | Call 0x1,0x1a
0201 0092 0396 | | Action Push_String_Extended,0x396 ; "... or type in an Ada statement."
0203 821a | | Call 0x1,0x1a
0204 0092 0397 | | Action Push_String_Extended,0x397 ; "A running program can be interrupted with ^G."
0206 821a | | Call 0x1,0x1a
0207 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0208 e402 | | Load 0x2,0x2
0209 0092 0398 | | Action Push_String_Extended,0x398 ; "QUIT"
020b 01df | | Execute Vector,Equal
020c 700a |p | Jump_Nonzero 0x217
020d e402 | | Load 0x2,0x2
020e 0092 0399 | | Action Push_String_Extended,0x399 ; "LOGOUT"
0210 01df | | Execute Vector,Equal
0211 7005 |p | Jump_Nonzero 0x217
0212 e402 | | Load 0x2,0x2
0213 0092 039a | | Action Push_String_Extended,0x39a ; "EXIT"
0215 01df | | Execute Vector,Equal
0216 6802 |h | Jump_Zero 0x219
0217 e012 | | Load 0x0,0x12
0218 0257 | W | Execute Discrete,Raise
0219 e402 | | Load 0x2,0x2
021a 0092 039b | | Action Push_String_Extended,0x39b ; "DEF"
021c 01df | | Execute Vector,Equal
021d 7005 |p | Jump_Nonzero 0x223
021e e402 | | Load 0x2,0x2
021f 0092 039c | | Action Push_String_Extended,0x39c ; "CD"
0221 01df | | Execute Vector,Equal
0222 680c |h | Jump_Zero 0x22f
0223 0092 039d | | Action Push_String_Extended,0x39d ; "<PROFILE>"
0225 0092 039e | | Action Push_String_Extended,0x39e ; "$"
0227 0092 039f | | Action Push_String_Extended,0x39f ; "LIBRARY.CONTEXT"
0229 e5ff | | Load 0x2,-0x1
022a 821d | | Call 0x1,0x1d
022b 01cc | | Execute Vector,Catenate
022c e004 | | Load 0x0,0x4
022d 180f | | Execute Package,Field_Execute,Field_Number 0xf
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 8404 | | Call 0x2,0x4
0230 e212 | | Load 0x1,0x12
0231 680c |h | Jump_Zero 0x23e
0232 e003 | | Load 0x0,0x3
0233 03bc | | Declare_Variable Access,By_Allocation
0234 00d8 | | Load_Top At_Offset_0
0235 00e0 | | Load_Encached Standard_Cache
0236 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0237 a211 | | Store_Unchecked 0x1,0x11
0238 e213 | | Load 0x1,0x13
0239 4801 |H | Short_Literal 0x1
023a e211 | | Load 0x1,0x11
023b 0229 | ) | Execute Access,All_Read
023c 170d | | Execute Task,Entry_Call,Field_Number 0xd
023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023e e013 | | Load 0x0,0x13
023f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0240 4807 |H | Short_Literal 0x7
0241 e403 | | Load 0x2,0x3
0242 e014 | | Load 0x0,0x14
0243 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0244 e015 | | Load 0x0,0x15
0245 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0246 e013 | | Load 0x0,0x13
0247 180e | | Execute Package,Field_Execute,Field_Number 0xe
0248 4805 |H | Short_Literal 0x5
0249 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "Command was not executed."
024b e015 | | Load 0x0,0x15
024c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00cf | | Action Mark_Auxiliary
0254 e5ff | | Load 0x2,-0x1
0255 01d9 | | Execute Vector,Reverse_Bounds
0256 0263 | c | Execute Discrete,Above_Bound
0257 700f |p | Jump_Nonzero 0x267
0258 00d8 | | Load_Top At_Offset_0
0259 e5ff | | Load 0x2,-0x1
025a 01d7 | | Execute Vector,Field_Read
025b 0f07 | | Execute_Immediate Equal,0x7
025c 6808 |h | Jump_Zero 0x265
025d 4800 |H | Short_Literal 0x0
025e a215 | | Store_Unchecked 0x1,0x15
025f e210 | | Load 0x1,0x10
0260 e002 | | Load 0x0,0x2
0261 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0262 00d1 | | Pop_Control Pop_Count_1
0263 821b | | Call 0x1,0x1b
0264 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0265 00c8 | | Action Pop_Auxiliary_Range
0266 3ff1 |? | Loop_Increasing 0x258
0267 00ce | | Action Pop_Auxiliary
0268 e215 | | Load 0x1,0x15
0269 e5ff | | Load 0x2,-0x1
026a 01db | | Execute Vector,Length
026b 0273 | s | Execute Discrete,Plus
026c 60c3 |` | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
026d 027a | z | Execute Discrete,Less_Equal
026e 6811 |h | Jump_Zero 0x280
026f e5ff | | Load 0x2,-0x1
0270 e215 | | Load 0x1,0x15
0271 0a01 | | Execute_Immediate Plus,0x1
0272 0248 | H | Execute Discrete,Check_In_Integer
0273 e215 | | Load 0x1,0x15
0274 e5ff | | Load 0x2,-0x1
0275 01db | | Execute Vector,Length
0276 0273 | s | Execute Discrete,Plus
0277 0248 | H | Execute Discrete,Check_In_Integer
0278 e214 | | Load 0x1,0x14
0279 01ce | | Execute Vector,Slice_Write
027a e215 | | Load 0x1,0x15
027b e5ff | | Load 0x2,-0x1
027c 01db | | Execute Vector,Length
027d 0273 | s | Execute Discrete,Plus
027e c215 | | Store 0x1,0x15
027f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0280 e5ff | | Load 0x2,-0x1
0281 01dd | | Execute Vector,First
0282 e5ff | | Load 0x2,-0x1
0283 01dd | | Execute Vector,First
0284 60ab |` | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
0285 e215 | | Load 0x1,0x15
0286 0272 | r | Execute Discrete,Minus
0287 0248 | H | Execute Discrete,Check_In_Integer
0288 0273 | s | Execute Discrete,Plus
0289 0aff | | Execute_Immediate Plus,-0x1
028a 0248 | H | Execute Discrete,Check_In_Integer
028b e5ff | | Load 0x2,-0x1
028c 01cf | | Execute Vector,Slice_Read
028d e215 | | Load 0x1,0x15
028e 0a01 | | Execute_Immediate Plus,0x1
028f 0248 | H | Execute Discrete,Check_In_Integer
0290 609f |` | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
0291 e214 | | Load 0x1,0x14
0292 01ce | | Execute Vector,Slice_Write
0293 609c |` | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
0294 a215 | | Store_Unchecked 0x1,0x15
0295 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e215 | | Load 0x1,0x15
029c e5fd | | Load 0x2,-0x3
029d 01db | | Execute Vector,Length
029e 027d | } | Execute Discrete,Greater
029f 681f |h | Jump_Zero 0x2bf
02a0 e5fd | | Load 0x2,-0x3
02a1 01db | | Execute Vector,Length
02a2 c5fc | | Store 0x2,-0x4
02a3 4801 |H | Short_Literal 0x1
02a4 e5fd | | Load 0x2,-0x3
02a5 01db | | Execute Vector,Length
02a6 e214 | | Load 0x1,0x14
02a7 01cf | | Execute Vector,Slice_Read
02a8 e5fd | | Load 0x2,-0x3
02a9 01d4 | | Execute Vector,Structure_Write
02aa e215 | | Load 0x1,0x15
02ab e5fd | | Load 0x2,-0x3
02ac 01db | | Execute Vector,Length
02ad 0272 | r | Execute Discrete,Minus
02ae c215 | | Store 0x1,0x15
02af e5fd | | Load 0x2,-0x3
02b0 01db | | Execute Vector,Length
02b1 0a01 | | Execute_Immediate Plus,0x1
02b2 0248 | H | Execute Discrete,Check_In_Integer
02b3 e5fd | | Load 0x2,-0x3
02b4 01db | | Execute Vector,Length
02b5 e215 | | Load 0x1,0x15
02b6 0273 | s | Execute Discrete,Plus
02b7 0248 | H | Execute Discrete,Check_In_Integer
02b8 e214 | | Load 0x1,0x14
02b9 01cf | | Execute Vector,Slice_Read
02ba 4801 |H | Short_Literal 0x1
02bb e215 | | Load 0x1,0x15
02bc e214 | | Load 0x1,0x14
02bd 01ce | | Execute Vector,Slice_Write
02be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bf e215 | | Load 0x1,0x15
02c0 a5fc | | Store_Unchecked 0x2,-0x4
02c1 e215 | | Load 0x1,0x15
02c2 0c01 | | Execute_Immediate Greater_Equal,0x1
02c3 6810 |h | Jump_Zero 0x2d4
02c4 4801 |H | Short_Literal 0x1
02c5 e215 | | Load 0x1,0x15
02c6 e214 | | Load 0x1,0x14
02c7 01cf | | Execute Vector,Slice_Read
02c8 e5fd | | Load 0x2,-0x3
02c9 01dd | | Execute Vector,First
02ca e5fd | | Load 0x2,-0x3
02cb 01dd | | Execute Vector,First
02cc e215 | | Load 0x1,0x15
02cd 0273 | s | Execute Discrete,Plus
02ce 0aff | | Execute_Immediate Plus,-0x1
02cf 0248 | H | Execute Discrete,Check_In_Integer
02d0 e5fd | | Load 0x2,-0x3
02d1 01ce | | Execute Vector,Slice_Write
02d2 4800 |H | Short_Literal 0x0
02d3 a215 | | Store_Unchecked 0x1,0x15
02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e5ff | | Load 0x2,-0x1
02dc 8219 | | Call 0x1,0x19
02dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02de 0000 0000 | | .XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; See instruction 0x02cf at 0x106, index=0xe
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 e5fe | | Load 0x2,-0x2
02e4 e213 | | Load 0x1,0x13
02e5 027f | | Execute Discrete,Equal
02e6 6801 |h | Jump_Zero 0x2e8
02e7 821b | | Call 0x1,0x1b
02e8 4100 |A | End_Rendezvous 0x0
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; See instruction 0x02cf at 0x106, index=0xd
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e5fe | | Load 0x2,-0x2
02f4 821f | | Call 0x1,0x1f
02f5 4100 |A | End_Rendezvous 0x0
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0300 | | .CONST 0x0300 ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0003 | | .CONST 0x0003 ; Number of locals
02fb INIT_02f8:
02fb 4801 |H | Short_Literal 0x1
02fc 6033 |`3 | Indirect_Literal Discrete,0x330,{0x00000000, 0x00000400}
02fd 00e9 | | Load_Encached String_Cache
02fe 0334 | 4 | Declare_Variable Array,With_Constraint
02ff 00e3 | | Load_Encached Natural_Cache
0300 BODY_02f8:
0300 e210 | | Load 0x1,0x10
0301 00e3 | | Load_Encached Natural_Cache
0302 e402 | | Load 0x2,0x2
0303 e20f | | Load 0x1,0xf
0304 480a |H | Short_Literal 0xa
0305 e002 | | Load 0x0,0x2
0306 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0307 e002 | | Load 0x0,0x2
0308 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0309 e00c | | Load 0x0,0xc
030a e222 | " | Load 0x1,0x22
030b 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
030c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
030d 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
030e e002 | | Load 0x0,0x2
030f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0310 00d2 | | Pop_Control Pop_Count_2
0311 c403 | | Store 0x2,0x3
0312 00d1 | | Pop_Control Pop_Count_1
0313 00d8 | | Load_Top At_Offset_0
0314 0c01 | | Execute_Immediate Greater_Equal,0x1
0315 6816 |h | Jump_Zero 0x32c
0316 00d8 | | Load_Top At_Offset_0
0317 e402 | | Load 0x2,0x2
0318 01d7 | | Execute Vector,Field_Read
0319 0f0a | | Execute_Immediate Equal,0xa
031a 6808 |h | Jump_Zero 0x323
031b 4801 |H | Short_Literal 0x1
031c e403 | | Load 0x2,0x3
031d 0aff | | Execute_Immediate Plus,-0x1
031e 0248 | H | Execute Discrete,Check_In_Integer
031f e402 | | Load 0x2,0x2
0320 01cf | | Execute Vector,Slice_Read
0321 821e | | Call 0x1,0x1e
0322 7805 |x | Jump 0x328
0323 4801 |H | Short_Literal 0x1
0324 e403 | | Load 0x2,0x3
0325 e402 | | Load 0x2,0x2
0326 01cf | | Execute Vector,Slice_Read
0327 821e | | Call 0x1,0x1e
0328 e212 | | Load 0x1,0x12
0329 7002 |p | Jump_Nonzero 0x32c
032a e00b | | Load 0x0,0xb
032b 8219 | | Call 0x1,0x19
032c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 033e | > | .CONST 0x033e ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e00a | | Load 0x0,0xa
033c 0209 | | Execute Task,Abort
033d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033e TRAP_0338:
033e 0007 | | Action Break_Optional
033f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0347 | G | .CONST 0x0347 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e211 | | Load 0x1,0x11
0344 0229 | ) | Execute Access,All_Read
0345 0209 | | Execute Task,Abort
0346 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0347 TRAP_0340:
0347 0007 | | Action Break_Optional
0348 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0349 0000 0000 | | .BLANK 0000[0x7]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0357 | W | .CONST 0x0357 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e211 | | Load 0x1,0x11
0354 0229 | ) | Execute Access,All_Read
0355 0209 | | Execute Task,Abort
0356 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0357 TRAP_0350:
0357 0007 | | Action Break_Optional
0358 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0359 0000 0000 | | .BLANK 0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0384 | | .CONST 0x0384 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 e403 | | Load 0x2,0x3
0364 e004 | | Load 0x0,0x4
0365 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0366 0092 039d | | Action Push_String_Extended,0x39d ; "<PROFILE>"
0368 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "Input=>"
036a e007 | | Load 0x0,0x7
036b 01cc | | Execute Vector,Catenate
036c 0092 03a2 | | Action Push_String_Extended,0x3a2 ; ",Output=>"
036e 01cc | | Execute Vector,Catenate
036f e007 | | Load 0x0,0x7
0370 01cc | | Execute Vector,Catenate
0371 0092 03a3 | | Action Push_String_Extended,0x3a3 ; ",Error=>"
0373 01cc | | Execute Vector,Catenate
0374 e007 | | Load 0x0,0x7
0375 01cc | | Execute Vector,Catenate
0376 4800 |H | Short_Literal 0x0
0377 0092 039e | | Action Push_String_Extended,0x39e ; "$"
0379 4800 |H | Short_Literal 0x0
037a e5ff | | Load 0x2,-0x1
037b e004 | | Load 0x0,0x4
037c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
037d c213 | | Store 0x1,0x13
037e c403 | | Store 0x2,0x3
037f e403 | | Load 0x2,0x3
0380 e004 | | Load 0x0,0x4
0381 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0382 a212 | | Store_Unchecked 0x1,0x12
0383 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0384 TRAP_0360:
0384 0007 | | Action Break_Optional
0385 e013 | | Load 0x0,0x13
0386 180e | | Execute Package,Field_Execute,Field_Number 0xe
0387 4808 |H | Short_Literal 0x8
0388 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "Program.Create_Job raised an exception."
038a e015 | | Load 0x0,0x15
038b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038c 4800 |H | Short_Literal 0x0
038d a212 | | Store_Unchecked 0x1,0x12
038e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038f ; --------------------------------------------------------------------------------------
038f ; STRING TABLE
038f ; --------------------------------------------------------------------------------------
038f 002e | . | .STRTAB 0x002e->0x03a6 ; "command: "
0390 0035 | 5 | .STRTAB 0x0035->0x03aa ; "None"
0391 0037 | 7 | .STRTAB 0x0037->0x03ac ; "HELP"
0392 0039 | 9 | .STRTAB 0x0039->0x03ae ; "HELP display this message."
0393 0052 | R | .STRTAB 0x0052->0x03bc ; "QUIT stop executing commands."
0394 006e | n | .STRTAB 0x006e->0x03cb ; "DEF (\x22<new context>\x22); set current context."
0395 0099 | | .STRTAB 0x0099->0x03e1 ; "TYP (\x22<object name>\x22); display an object."
0396 00c2 | | .STRTAB 0x00c2->0x03f7 ; "... or type in an Ada statement."
0397 00e0 | | .STRTAB 0x00e0->0x0407 ; "A running program can be interrupted with ^G."
0398 010b | | .STRTAB 0x010b->0x041d ; "QUIT"
0399 010d | | .STRTAB 0x010d->0x041f ; "LOGOUT"
039a 0111 | | .STRTAB 0x0111->0x0422 ; "EXIT"
039b 0113 | | .STRTAB 0x0113->0x0424 ; "DEF"
039c 0114 | | .STRTAB 0x0114->0x0426 ; "CD"
039d 0114 | | .STRTAB 0x0114->0x0427 ; "<PROFILE>"
039e 011b | | .STRTAB 0x011b->0x042b ; "$"
039f 011a | | .STRTAB 0x011a->0x042c ; "LIBRARY.CONTEXT"
03a0 0127 | ' | .STRTAB 0x0127->0x0433 ; "Command was not executed."
03a1 013e | > | .STRTAB 0x013e->0x0440 ; "Input=>"
03a2 0143 | C | .STRTAB 0x0143->0x0443 ; ",Output=>"
03a3 014a | J | .STRTAB 0x014a->0x0448 ; ",Error=>"
03a4 0150 | P | .STRTAB 0x0150->0x044c ; "Program.Create_Job raised an exception."
03a5 0175 | u | .STREND 0x0175->0x045f
03a6 636f 6d6d |comm| .STRTAB_STRINGS
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug Table
0460 ; --------------------------------------------------------------------------------------
0460 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb052,0x0000,0x0001,0x0000
0466 181a c210 | | .XXX[0x193]
0468 c21e 00e1 | |
046a e001 1b17 | |
046c 1b11 e21f | |
046e 0092 01e3 | |
0470 e001 1b17 | |
0472 181a c211 | |
0474 c21e 00e1 | |
0476 e001 1b17 | |
0478 1b11 e21f | |
047a 0092 01e4 | |
047c e001 1b17 | |
047e 181a c214 | |
0480 c21e 00e1 | |
0482 e001 1b17 | |
0484 1b11 e21f | |
0486 0092 01e5 | |
0488 e001 1b17 | |
048a 181a c213 | |
048c c21e 00e1 | |
048e e001 1b17 | |
0490 1b11 e21f | |
0492 0092 01e6 | |
0494 e001 1b17 | |
0496 181a c212 | |
0498 c21e e21f | |
049a 0092 01e7 | |
049c 01df 683d | h=|
049e 00e1 e001 | |
04a0 1b17 1b11 | |
04a2 e21f 0092 | |
04a4 01e8 e001 | |
04a6 1b17 181a | |
04a8 c215 c21e | |
04aa 00e1 e001 | |
04ac 1b17 1b11 | |
04ae e21f 0092 | |
04b0 01e9 e001 | |
04b2 1b17 181a | |
04b4 c216 c21e | |
04b6 00e1 e001 | |
04b8 1b17 1b11 | |
04ba e21f 0092 | |
04bc 01ea e001 | |
04be 1b17 181a | |
04c0 c217 c21e | |
04c2 00e1 e001 | |
04c4 1b17 1b11 | |
04c6 e21f 0092 | |
04c8 01eb e001 | |
04ca 1b17 181a | |
04cc c21a c21e | |
04ce 00e1 e001 | |
04d0 1b17 1b11 | |
04d2 e21f 0092 | |
04d4 01ec e001 | |
04d6 1b17 181a | |
04d8 c21b c21e | |
04da 78d8 e21f |x |
04dc 0092 01ed | |
04de 01df 683d | h=|
04e0 00e1 e001 | |
04e2 1b17 1b11 | |
04e4 e21f 0092 | |
04e6 01ee e001 | |
04e8 1b17 181a | |
04ea c215 c21e | |
04ec 00e1 e001 | |
04ee 1b17 1b11 | |
04f0 e21f 0092 | |
04f2 01ef e001 | |
04f4 1b17 181a | |
04f6 c216 c21e | |
04f8 00e1 e001 | |
04fa 1b17 1b11 | |
04fc e21f 0092 | |
04fe 01f0 e001 | |
0500 1b17 181a | |
0502 c217 c21e | |
0504 00e1 e001 | |
0506 1b17 1b11 | |
0508 e21f 0092 | |
050a 01f1 e001 | |
050c 1b17 181a | |
050e c21a c21e | |
0510 00e1 e001 | |
0512 1b17 1b11 | |
0514 e21f 0092 | |
0516 01f2 e001 | |
0518 1b17 181a | |
051a c21b c21e | |
051c 7896 e21f |x |
051e 0092 01f3 | |
0520 01df 683d | h=|
0522 00e1 e001 | |
0524 1b17 1b11 | |
0526 e21f 0092 | |
0528 01f4 e001 | |
052a 1b17 181a | |
052c c215 c21e | |
052e 00e1 e001 | |
0530 1b17 1b11 | |
0532 e21f 0092 | |
0534 01f5 e001 | |
0536 1b17 181a | |
0538 c216 c21e | |
053a 00e1 e001 | |
053c 1b17 1b11 | |
053e e21f 0092 | |
0540 01f6 e001 | |
0542 1b17 181a | |
0544 c217 c21e | |
0546 00e1 e001 | |
0548 1b17 1b11 | |
054a e21f 0092 | |
054c 01f7 e001 | |
054e 1b17 181a | |
0550 c21a c21e | |
0552 00e1 e001 | |
0554 1b17 1b11 | |
0556 e21f 0092 | |
0558 01f8 e001 | |
055a 1b17 181a | |
055c c21b c21e | |
055e 7854 00e1 |xT |
0560 e001 1b17 | |
0562 1b11 e21f | |
0564 0092 01e8 | |
0566 e001 1b17 | |
0568 181a c215 | |
056a c21e 00e1 | |
056c e001 1b17 | |
056e 1b11 e21f | |
0570 0092 01f9 | |
0572 e001 1b17 | |
0574 181a c216 | |
0576 c21e 00e1 | |
0578 e001 1b17 | |
057a 1b11 e21f | |
057c 0092 01fa | |
057e e001 1b17 | |
0580 181a c217 | |
0582 c21e 00e1 | |
0584 e001 1b17 | |
0586 1b11 e21f | |
0588 0092 01fb | |
058a e001 1b17 | |
058c 181a c21a | |
058e c21e 00e1 | |
0590 e001 1b17 | |
0592 1b11 e21f | |
0594 0092 01fc | |
0596 e001 1b17 | |
0598 181a c21b | |
059a c21e 00e1 | |
059c e001 1b17 | |
059e 1b11 e21f | |
05a0 0092 01e9 | |
05a2 e001 1b17 | |
05a4 181a c218 | |
05a6 c21e 00e1 | |
05a8 e001 1b17 | |
05aa 1b11 e21f | |
05ac 0092 01eb | |
05ae e001 1b17 | |
05b0 181a c219 | |
05b2 c21e 00bc | |
05b4 00bb 0000 | |
05b6 0000 0000 | |
05b8 01bc 0004 | |
05ba 0002 00e8 | |
05bc e5ff e001 | |
05be 1b17 1b13 | |
05c0 0260 6815 | `h |
05c2 e5ff e001 | |
05c4 1b17 1b13 | |
05c6 025b e001 | [ |
05c8 1b17 1817 | |
05ca a402 00d8 | |
05cc e220 0260 | `|
05ce e402 e221 | !|
05d0 0260 0278 | ` x|
05d2 6802 4801 |h H |
05d4 4401 4800 |D H |
05d6 4401 4800 |D H |
05d8 4401 0000 |D |
05da 0000 0000 | |
05dc 2720 2720 |' ' |
05de 2020 2020 | |
05e0 003c 003c | < <|
05e2 003e 0040 | > @|
05e4 0043 0044 | C D|
05e6 0047 004b | G K|
05e8 0050 0052 | P R|
05ea 0054 0056 | T V|
05ec 0058 005a | X Z|
05ee 005b 005e | [ ^|
05f0 0061 0064 | a d|
05f2 0067 006a | g j|
05f4 006d 0070 | m p|
05f6 0073 0076 | s v|
05f8 0079 | y |
05f9 007c 007c | | || .BLANK 007c[0x5]
05fe 7570 646f |updo| .XXX[0x2]