|
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_483ca8
└─⟦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 0338 | 8 | .CONST 0x0338 ; 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 008b | | .CONST 0x008b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0036 | 6 | .CONST 0x0036 ; Number of locals
000b INIT_0008:
000b 4802 |H | Short_Literal 0x2
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0029 c22b | + | Store 0x1,0x2b
002a 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
002c c22a | * | Store 0x1,0x2a
002d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
002f c214 | | Store 0x1,0x14
0030 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0032 c215 | | Store 0x1,0x15
0033 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0035 c216 | | Store 0x1,0x16
0036 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0038 c217 | | Store 0x1,0x17
0039 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
003b c218 | | Store 0x1,0x18
003c 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
003e c219 | | Store 0x1,0x19
003f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0041 c21a | | Store 0x1,0x1a
0042 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0044 c21b | | Store 0x1,0x1b
0045 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0047 c21c | | Store 0x1,0x1c
0048 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
004a c21d | | Store 0x1,0x1d
004b 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
004d c229 | ) | Store 0x1,0x29
004e e001 | | Load 0x0,0x1
004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0050 e002 | | Load 0x0,0x2
0051 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0052 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0054 e211 | | Load 0x1,0x11
0055 0326 | & | Complete_Type Record,By_Defining
0056 00bf | | Action Accept_Activation
0057 4800 |H | Short_Literal 0x0
0058 4801 |H | Short_Literal 0x1
0059 4801 |H | Short_Literal 0x1
005a 605d |`] | Indirect_Literal Discrete,0xb8,{0x00000000, 0x000007b2}
005b e003 | | Load 0x0,0x3
005c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005d e003 | | Load 0x0,0x3
005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005f 011e | | Execute Any,Convert
0060 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0062 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
0064 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
0066 e001 | | Load 0x0,0x1
0067 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
0068 00c6 | | Action Check_Subprogram_Elaborated
0069 00e3 | | Load_Encached Natural_Cache
006a 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
006b 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
006c 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
006d e004 | | Load 0x0,0x4
006e e005 | | Load 0x0,0x5
006f 4800 |H | Short_Literal 0x0
0070 0007 | | Action Break_Optional
0071 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0072 00c7 | | Action Elaborate_Subprogram
0073 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0074 00c7 | | Action Elaborate_Subprogram
0075 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0076 00c7 | | Action Elaborate_Subprogram
0077 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0078 00c7 | | Action Elaborate_Subprogram
0079 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007a 00c7 | | Action Elaborate_Subprogram
007b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
007c 00c7 | | Action Elaborate_Subprogram
007d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
007e 00c7 | | Action Elaborate_Subprogram
007f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0082 00c7 | | Action Elaborate_Subprogram
0083 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0086 00c7 | | Action Elaborate_Subprogram
0087 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0088 00c7 | | Action Elaborate_Subprogram
0089 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
008a 00c7 | | Action Elaborate_Subprogram
008b BODY_0008:
008b 00bc | | Action Signal_Activated
008c 00bb | | Action Signal_Completion
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0098 | | .CONST 0x0098 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e002 | | Load 0x0,0x2
0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0095 02c7 | | Declare_Variable Any
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 BODY_0090:
0098 e5fe | | Load 0x2,-0x2
0099 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009a e002 | | Load 0x0,0x2
009b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009c e5fe | | Load 0x2,-0x2
009d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009e 00d8 | | Load_Top At_Offset_0
009f 0120 | | Execute Any,Is_Value
00a0 6803 |h | Jump_Zero 0xa4
00a1 e001 | | Load 0x0,0x1
00a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a3 7801 |x | Jump 0xa5
00a4 00d8 | | Load_Top At_Offset_0
00a5 e5fe | | Load 0x2,-0x2
00a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a7 0120 | | Execute Any,Is_Value
00a8 6803 |h | Jump_Zero 0xac
00a9 e001 | | Load 0x0,0x1
00aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ab 7802 |x | Jump 0xae
00ac e5fe | | Load 0x2,-0x2
00ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ae 00ea | | Load_Encached Null_String_Cache
00af e5ff | | Load 0x2,-0x1
00b0 e001 | | Load 0x0,0x1
00b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b2 e5fe | | Load 0x2,-0x2
00b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b4 c402 | | Store 0x2,0x2
00b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b6 0000 0000 | | .XXX[0x2]
00b8 0000 0000 | | .LITERAL {0x00000000, 0x000007b2}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3
00c4 0120 | | Execute Any,Is_Value
00c5 6803 |h | Jump_Zero 0xc9
00c6 e001 | | Load 0x0,0x1
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 7801 |x | Jump 0xca
00c9 00db | | Load_Top At_Offset_3
00ca 00db | | Load_Top At_Offset_3
00cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00cc e210 | | Load 0x1,0x10
00cd e001 | | Load 0x0,0x1
00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cf e5ff | | Load 0x2,-0x1
00d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d1 c5fe | | Store 0x2,-0x2
00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d3 0000 0000 | | .BLANK 0000[0x5]
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e8 | | .CONST 0x00e8 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e002 | | Load 0x0,0x2
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 02c7 | | Declare_Variable Any
00e6 00d8 | | Load_Top At_Offset_0
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 BODY_00e0:
00e8 e5fd | | Load 0x2,-0x3
00e9 6810 |h | Jump_Zero 0xfa
00ea 00d8 | | Load_Top At_Offset_0
00eb 0120 | | Execute Any,Is_Value
00ec 6803 |h | Jump_Zero 0xf0
00ed e001 | | Load 0x0,0x1
00ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ef 7801 |x | Jump 0xf1
00f0 00d8 | | Load_Top At_Offset_0
00f1 00ea | | Load_Encached Null_String_Cache
00f2 4801 |H | Short_Literal 0x1
00f3 e5fe | | Load 0x2,-0x2
00f4 e5ff | | Load 0x2,-0x1
00f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f6 e001 | | Load 0x0,0x1
00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00f8 c402 | | Store 0x2,0x2
00f9 780f |x | Jump 0x109
00fa 00d8 | | Load_Top At_Offset_0
00fb 0120 | | Execute Any,Is_Value
00fc 6803 |h | Jump_Zero 0x100
00fd e001 | | Load 0x0,0x1
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff 7801 |x | Jump 0x101
0100 00d8 | | Load_Top At_Offset_0
0101 00ea | | Load_Encached Null_String_Cache
0102 4801 |H | Short_Literal 0x1
0103 e5fe | | Load 0x2,-0x2
0104 e5ff | | Load 0x2,-0x1
0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0106 e001 | | Load 0x0,0x1
0107 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0108 c402 | | Store 0x2,0x2
0109 00d8 | | Load_Top At_Offset_0
010a c5fc | | Store 0x2,-0x4
010b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e002 | | Load 0x0,0x2
0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 BODY_0110:
0118 00d8 | | Load_Top At_Offset_0
0119 0120 | | Execute Any,Is_Value
011a 6803 |h | Jump_Zero 0x11e
011b e001 | | Load 0x0,0x1
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d 7801 |x | Jump 0x11f
011e 00d8 | | Load_Top At_Offset_0
011f 00ea | | Load_Encached Null_String_Cache
0120 4800 |H | Short_Literal 0x0
0121 e5ff | | Load 0x2,-0x1
0122 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0123 e5fd | | Load 0x2,-0x3
0124 e5fe | | Load 0x2,-0x2
0125 e001 | | Load 0x0,0x1
0126 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0127 c402 | | Store 0x2,0x2
0128 00d8 | | Load_Top At_Offset_0
0129 c5fc | | Store 0x2,-0x4
012a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0138 | 8 | .CONST 0x0138 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e002 | | Load 0x0,0x2
0134 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0135 02c7 | | Declare_Variable Any
0136 00d8 | | Load_Top At_Offset_0
0137 1c00 | | Execute_Immediate Run_Utility,0x0
0138 BODY_0130:
0138 00d8 | | Load_Top At_Offset_0
0139 0120 | | Execute Any,Is_Value
013a 6803 |h | Jump_Zero 0x13e
013b e001 | | Load 0x0,0x1
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 7801 |x | Jump 0x13f
013e 00d8 | | Load_Top At_Offset_0
013f 00ea | | Load_Encached Null_String_Cache
0140 4800 |H | Short_Literal 0x0
0141 e5ff | | Load 0x2,-0x1
0142 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0143 e5fd | | Load 0x2,-0x3
0144 e5fe | | Load 0x2,-0x2
0145 e001 | | Load 0x0,0x1
0146 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0147 c402 | | Store 0x2,0x2
0148 00d8 | | Load_Top At_Offset_0
0149 c5fc | | Store 0x2,-0x4
014a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e002 | | Load 0x0,0x2
0154 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0155 02c7 | | Declare_Variable Any
0156 00d8 | | Load_Top At_Offset_0
0157 1c00 | | Execute_Immediate Run_Utility,0x0
0158 BODY_0150:
0158 00d8 | | Load_Top At_Offset_0
0159 0120 | | Execute Any,Is_Value
015a 6803 |h | Jump_Zero 0x15e
015b e001 | | Load 0x0,0x1
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 7801 |x | Jump 0x15f
015e 00d8 | | Load_Top At_Offset_0
015f 00ea | | Load_Encached Null_String_Cache
0160 e5fc | | Load 0x2,-0x4
0161 e5fd | | Load 0x2,-0x3
0162 e5ff | | Load 0x2,-0x1
0163 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0164 e5fe | | Load 0x2,-0x2
0165 e001 | | Load 0x0,0x1
0166 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0167 c402 | | Store 0x2,0x2
0168 00d8 | | Load_Top At_Offset_0
0169 c5fb | | Store 0x2,-0x5
016a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0178 | x | .CONST 0x0178 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e002 | | Load 0x0,0x2
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 BODY_0170:
0178 00d8 | | Load_Top At_Offset_0
0179 0120 | | Execute Any,Is_Value
017a 6803 |h | Jump_Zero 0x17e
017b e001 | | Load 0x0,0x1
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d 7801 |x | Jump 0x17f
017e 00d8 | | Load_Top At_Offset_0
017f 00ea | | Load_Encached Null_String_Cache
0180 e5fd | | Load 0x2,-0x3
0181 e5ff | | Load 0x2,-0x1
0182 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0183 e5fe | | Load 0x2,-0x2
0184 e001 | | Load 0x0,0x1
0185 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0186 c402 | | Store 0x2,0x2
0187 00d8 | | Load_Top At_Offset_0
0188 c5fc | | Store 0x2,-0x4
0189 4504 |E | Exit_Suprogram New_Top_Offset 0x4
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019d | | .CONST 0x019d ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e003 | | Load 0x0,0x3
0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0195 02c7 | | Declare_Variable Any
0196 00d8 | | Load_Top At_Offset_0
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 e002 | | Load 0x0,0x2
0199 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019a 02c7 | | Declare_Variable Any
019b 00d8 | | Load_Top At_Offset_0
019c 1c00 | | Execute_Immediate Run_Utility,0x0
019d BODY_0190:
019d 4800 |H | Short_Literal 0x0
019e a5fd | | Store_Unchecked 0x2,-0x3
019f 00d8 | | Load_Top At_Offset_0
01a0 0120 | | Execute Any,Is_Value
01a1 6803 |h | Jump_Zero 0x1a5
01a2 e001 | | Load 0x0,0x1
01a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a4 7801 |x | Jump 0x1a6
01a5 00d8 | | Load_Top At_Offset_0
01a6 00da | | Load_Top At_Offset_2
01a7 0120 | | Execute Any,Is_Value
01a8 6803 |h | Jump_Zero 0x1ac
01a9 e003 | | Load 0x0,0x3
01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ab 7801 |x | Jump 0x1ad
01ac 00da | | Load_Top At_Offset_2
01ad 00ea | | Load_Encached Null_String_Cache
01ae e5ff | | Load 0x2,-0x1
01af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b0 e5fe | | Load 0x2,-0x2
01b1 e001 | | Load 0x0,0x1
01b2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01b3 c402 | | Store 0x2,0x2
01b4 c403 | | Store 0x2,0x3
01b5 e22c | , | Load 0x1,0x2c
01b6 00da | | Load_Top At_Offset_2
01b7 e003 | | Load 0x0,0x3
01b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b9 00d8 | | Load_Top At_Offset_0
01ba 0c00 | | Execute_Immediate Greater_Equal,0x0
01bb 7002 |p | Jump_Nonzero 0x1be
01bc 600f |` | Indirect_Literal Discrete,0x1cc,{0xffffffff, 0xffffc000}
01bd 7801 |x | Jump 0x1bf
01be 6009 |` | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x00004000}
01bf 0273 | s | Execute Discrete,Plus
01c0 09f1 | | Execute_Immediate Binary_Scale,-0xf
01c1 00e2 | | Load_Encached Integer_Cache
01c2 025e | ^ | Execute Discrete,Convert
01c3 a5fd | | Store_Unchecked 0x2,-0x3
01c4 00d8 | | Load_Top At_Offset_0
01c5 c5fc | | Store 0x2,-0x4
01c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c7 0000 | | .XXX[0x1]
01c8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01cc ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8 | | .CONST 0x01d8 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e002 | | Load 0x0,0x2
01d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d5 02c7 | | Declare_Variable Any
01d6 00d8 | | Load_Top At_Offset_0
01d7 1c00 | | Execute_Immediate Run_Utility,0x0
01d8 BODY_01d0:
01d8 00d8 | | Load_Top At_Offset_0
01d9 0120 | | Execute Any,Is_Value
01da 6803 |h | Jump_Zero 0x1de
01db e001 | | Load 0x0,0x1
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd 7801 |x | Jump 0x1df
01de 00d8 | | Load_Top At_Offset_0
01df 00ea | | Load_Encached Null_String_Cache
01e0 e5ff | | Load 0x2,-0x1
01e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e2 e5fd | | Load 0x2,-0x3
01e3 e5fe | | Load 0x2,-0x2
01e4 e001 | | Load 0x0,0x1
01e5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01e6 c402 | | Store 0x2,0x2
01e7 00d8 | | Load_Top At_Offset_0
01e8 c5fb | | Store 0x2,-0x5
01e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f8 | | .CONST 0x01f8 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e002 | | Load 0x0,0x2
01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f5 02c7 | | Declare_Variable Any
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 BODY_01f0:
01f8 00d8 | | Load_Top At_Offset_0
01f9 0120 | | Execute Any,Is_Value
01fa 6803 |h | Jump_Zero 0x1fe
01fb e001 | | Load 0x0,0x1
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 7801 |x | Jump 0x1ff
01fe 00d8 | | Load_Top At_Offset_0
01ff 00ea | | Load_Encached Null_String_Cache
0200 e5fe | | Load 0x2,-0x2
0201 e5ff | | Load 0x2,-0x1
0202 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0203 e001 | | Load 0x0,0x1
0204 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0205 c402 | | Store 0x2,0x2
0206 00d8 | | Load_Top At_Offset_0
0207 c5fc | | Store 0x2,-0x4
0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 e002 | | Load 0x0,0x2
0214 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0215 02c7 | | Declare_Variable Any
0216 00d8 | | Load_Top At_Offset_0
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 BODY_0210:
0218 00d8 | | Load_Top At_Offset_0
0219 0120 | | Execute Any,Is_Value
021a 6803 |h | Jump_Zero 0x21e
021b e001 | | Load 0x0,0x1
021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021d 7801 |x | Jump 0x21f
021e 00d8 | | Load_Top At_Offset_0
021f 00ea | | Load_Encached Null_String_Cache
0220 e5ff | | Load 0x2,-0x1
0221 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0222 e5fd | | Load 0x2,-0x3
0223 e5fe | | Load 0x2,-0x2
0224 e001 | | Load 0x0,0x1
0225 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0226 c402 | | Store 0x2,0x2
0227 00d8 | | Load_Top At_Offset_0
0228 c5fc | | Store 0x2,-0x4
0229 4504 |E | Exit_Suprogram New_Top_Offset 0x4
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a | : | .CONST 0x023a ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 e002 | | Load 0x0,0x2
0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0235 02c7 | | Declare_Variable Any
0236 00d8 | | Load_Top At_Offset_0
0237 1c00 | | Execute_Immediate Run_Utility,0x0
0238 00e3 | | Load_Encached Natural_Cache
0239 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
023a BODY_0230:
023a 00d9 | | Load_Top At_Offset_1
023b 0120 | | Execute Any,Is_Value
023c 6803 |h | Jump_Zero 0x240
023d e001 | | Load 0x0,0x1
023e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023f 7801 |x | Jump 0x241
0240 00d9 | | Load_Top At_Offset_1
0241 00d9 | | Load_Top At_Offset_1
0242 e5fd | | Load 0x2,-0x3
0243 090f | | Execute_Immediate Binary_Scale,0xf
0244 00d8 | | Load_Top At_Offset_0
0245 e001 | | Load 0x0,0x1
0246 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0247 0260 | ` | Execute Discrete,In_Type
0248 7001 |p | Jump_Nonzero 0x24a
0249 0801 | | Execute_Immediate Raise,0x1
024a e5ff | | Load 0x2,-0x1
024b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024c e5fe | | Load 0x2,-0x2
024d e230 | 0 | Load 0x1,0x30
024e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
024f 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0250 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0251 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0252 e001 | | Load 0x0,0x1
0253 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0254 005a | Z | Store_Top Discrete,At_Offset_2
0255 c402 | | Store 0x2,0x2
0256 00d9 | | Load_Top At_Offset_1
0257 c5fc | | Store 0x2,-0x4
0258 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0259 0000 0000 | | .BLANK 0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265 | e | .CONST 0x0265 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 0092 0313 | | Action Push_String_Extended,0x313 ; "N? "
0265 BODY_0260:
0265 4800 |H | Short_Literal 0x0
0266 a5fc | | Store_Unchecked 0x2,-0x4
0267 00db | | Load_Top At_Offset_3
0268 e006 | | Load 0x0,0x6
0269 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
026a 00db | | Load_Top At_Offset_3
026b 01db | | Execute Vector,Length
026c 7001 |p | Jump_Nonzero 0x26e
026d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
026e 00db | | Load_Top At_Offset_3
026f 01dc | | Execute Vector,Last
0270 e5ff | | Load 0x2,-0x1
0271 01d7 | | Execute Vector,Field_Read
0272 0f0a | | Execute_Immediate Equal,0xa
0273 7006 |p | Jump_Nonzero 0x27a
0274 00db | | Load_Top At_Offset_3
0275 01dc | | Execute Vector,Last
0276 e5ff | | Load 0x2,-0x1
0277 01d7 | | Execute Vector,Field_Read
0278 0f0a | | Execute_Immediate Equal,0xa
0279 6801 |h | Jump_Zero 0x27b
027a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027b 00db | | Load_Top At_Offset_3
027c 01db | | Execute Vector,Length
027d 0d03 | | Execute_Immediate Less,0x3
027e 6801 |h | Jump_Zero 0x280
027f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0280 4801 |H | Short_Literal 0x1
0281 e5ff | | Load 0x2,-0x1
0282 01dc | | Execute Vector,Last
0283 0afe | | Execute_Immediate Plus,-0x2
0284 00d8 | | Load_Top At_Offset_0
0285 00e2 | | Load_Encached Integer_Cache
0286 0260 | ` | Execute Discrete,In_Type
0287 7001 |p | Jump_Nonzero 0x289
0288 0801 | | Execute_Immediate Raise,0x1
0289 e5ff | | Load 0x2,-0x1
028a 01dc | | Execute Vector,Last
028b e5ff | | Load 0x2,-0x1
028c 01cf | | Execute Vector,Slice_Read
028d 00da | | Load_Top At_Offset_2
028e e007 | | Load 0x0,0x7
028f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0290 6802 |h | Jump_Zero 0x293
0291 4801 |H | Short_Literal 0x1
0292 a5fc | | Store_Unchecked 0x2,-0x4
0293 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0294 0000 0000 | | .BLANK 0000[0x4]
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 00e3 | | Load_Encached Natural_Cache
029c e5fe | | Load 0x2,-0x2
029d e006 | | Load 0x0,0x6
029e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
029f 00d1 | | Pop_Control Pop_Count_1
02a0 c5fd | | Store 0x2,-0x3
02a1 00e2 | | Load_Encached Integer_Cache
02a2 e5fd | | Load 0x2,-0x3
02a3 0268 | h | Execute Discrete,Successor
02a4 e5fe | | Load 0x2,-0x2
02a5 01da | | Execute Vector,Bounds
02a6 0262 | b | Execute Discrete,In_Range
02a7 6804 |h | Jump_Zero 0x2ac
02a8 00e2 | | Load_Encached Integer_Cache
02a9 e5fd | | Load 0x2,-0x3
02aa 0268 | h | Execute Discrete,Successor
02ab c5fd | | Store 0x2,-0x3
02ac 480a |H | Short_Literal 0xa
02ad e5fd | | Load 0x2,-0x3
02ae e5fe | | Load 0x2,-0x2
02af 01d6 | | Execute Vector,Field_Write
02b0 4800 |H | Short_Literal 0x0
02b1 a5fc | | Store_Unchecked 0x2,-0x4
02b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c1 | | .CONST 0x02c1 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0003 | | .CONST 0x0003 ; Number of locals
02bb INIT_02b8:
02bb 4801 |H | Short_Literal 0x1
02bc 4864 |Hd | Short_Literal 0x64
02bd 00e9 | | Load_Encached String_Cache
02be 035b | [ | Declare_Type Array,Constrained
02bf 0337 | 7 | Declare_Variable Array
02c0 00e3 | | Load_Encached Natural_Cache
02c1 BODY_02b8:
02c1 00cf | | Action Mark_Auxiliary
02c2 0092 0314 | | Action Push_String_Extended,0x314 ; "Timeout expired: (A)bort, (C)ontinue, (R)ead_Input > "
02c4 e006 | | Load 0x0,0x6
02c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02c6 00e3 | | Load_Encached Natural_Cache
02c7 00db | | Load_Top At_Offset_3
02c8 e006 | | Load 0x0,0x6
02c9 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
02ca 00d1 | | Pop_Control Pop_Count_1
02cb 005a | Z | Store_Top Discrete,At_Offset_2
02cc 4801 |H | Short_Literal 0x1
02cd 0092 0315 | | Action Push_String_Extended,0x315 ; "A"
02cf 4801 |H | Short_Literal 0x1
02d0 e403 | | Load 0x2,0x3
02d1 e402 | | Load 0x2,0x2
02d2 01cf | | Execute Vector,Slice_Read
02d3 e007 | | Load 0x0,0x7
02d4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02d5 6803 |h | Jump_Zero 0x2d9
02d6 4802 |H | Short_Literal 0x2
02d7 a5fe | | Store_Unchecked 0x2,-0x2
02d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d9 4801 |H | Short_Literal 0x1
02da 0092 0316 | | Action Push_String_Extended,0x316 ; "C"
02dc 4801 |H | Short_Literal 0x1
02dd e403 | | Load 0x2,0x3
02de e402 | | Load 0x2,0x2
02df 01cf | | Execute Vector,Slice_Read
02e0 e007 | | Load 0x0,0x7
02e1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02e2 6803 |h | Jump_Zero 0x2e6
02e3 4800 |H | Short_Literal 0x0
02e4 a5fe | | Store_Unchecked 0x2,-0x2
02e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02e6 4801 |H | Short_Literal 0x1
02e7 0092 0317 | | Action Push_String_Extended,0x317 ; "R"
02e9 4801 |H | Short_Literal 0x1
02ea e403 | | Load 0x2,0x3
02eb e402 | | Load 0x2,0x2
02ec 01cf | | Execute Vector,Slice_Read
02ed e007 | | Load 0x0,0x7
02ee 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02ef 6803 |h | Jump_Zero 0x2f3
02f0 4801 |H | Short_Literal 0x1
02f1 a5fe | | Store_Unchecked 0x2,-0x2
02f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f3 00c9 | | Action Pop_Auxiliary_Loop
02f4 7fcd | | Jump 0x2c2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4608 |F | Jump_Case 0x9
02fc 7808 |x | Jump 0x305 ; case 0x0
02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02fe 7813 |x | Jump 0x312 ; case 0x2
02ff 7812 |x | Jump 0x312 ; case 0x3
0300 7811 |x | Jump 0x312 ; case 0x4
0301 7810 |x | Jump 0x312 ; case 0x5
0302 780f |x | Jump 0x312 ; case 0x6
0303 780e |x | Jump 0x312 ; case 0x7
0304 780d |x | Jump 0x312 ; case 0x8
0305 00da | | Load_Top At_Offset_2
0306 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0307 0125 | % | Execute Any,Set_Constraint
0308 00da | | Load_Top At_Offset_2
0309 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
030a 1c00 | | Execute_Immediate Run_Utility,0x0
030b 00da | | Load_Top At_Offset_2
030c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
030d 0125 | % | Execute Any,Set_Constraint
030e 00da | | Load_Top At_Offset_2
030f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0310 1c00 | | Execute_Immediate Run_Utility,0x0
0311 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0312 0869 | i | Execute_Immediate Raise,0x69
0313 ; --------------------------------------------------------------------------------------
0313 ; STRING TABLE
0313 ; --------------------------------------------------------------------------------------
0313 000c | | .STRTAB 0x000c->0x0319 ; "N? "
0314 000d | | .STRTAB 0x000d->0x031a ; "Timeout expired: (A)bort, (C)ontinue, (R)ead_Input > "
0315 0040 | @ | .STRTAB 0x0040->0x0335 ; "A"
0316 003f | ? | .STRTAB 0x003f->0x0335 ; "C"
0317 003e | > | .STRTAB 0x003e->0x0336 ; "R"
0318 003d | = | .STREND 0x003d->0x0336
0319 4e3f 2054 |N? T| .STRTAB_STRINGS
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa6e4,0x0000,0x0001,0x0000
033e 0000 0000 | | .XXX[0x6]
0340 0042 e8c4 | B |
0342 0000 31ec | 1 |
0344 0000 0000 | | .BLANK 0000[0x30]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]