|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 02e8 | | .CONST 0x02e8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0092 | | .CONST 0x0092 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
000d e001 | | Load 0x0,0x1
000e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
000f 4800 |H | Short_Literal 0x0
0010 4802 |H | Short_Literal 0x2
0011 4802 |H | Short_Literal 0x2
0012 4814 |H | Short_Literal 0x14
0013 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0014 029f 01f3 | | Declare_Subprogram For_Call,INIT_01f0
0016 00d9 | | Load_Top At_Offset_1
0017 012a | * | Execute Any,Change_Utility
0018 0007 | | Action Break_Optional
0019 e002 | | Load 0x0,0x2
001a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
001b 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
001d 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
001f e003 | | Load 0x0,0x3
0020 0129 | ) | Execute Any,Make_Visible
0021 e004 | | Load 0x0,0x4
0022 0129 | ) | Execute Any,Make_Visible
0023 e001 | | Load 0x0,0x1
0024 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0025 e001 | | Load 0x0,0x1
0026 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0027 4800 |H | Short_Literal 0x0
0028 4802 |H | Short_Literal 0x2
0029 029f 00c3 | | Declare_Subprogram For_Call,INIT_00c0
002b 03fd | | Declare_Type Discrete,Defined
002c 4800 |H | Short_Literal 0x0
002d 4803 |H | Short_Literal 0x3
002e 029f 00eb | | Declare_Subprogram For_Call,INIT_00e8
0030 03fd | | Declare_Type Discrete,Defined
0031 00db | | Load_Top At_Offset_3
0032 0266 | f | Execute Discrete,Bounds
0033 00da | | Load_Top At_Offset_2
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 4801 |H | Short_Literal 0x1
0036 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0037 00db | | Load_Top At_Offset_3
0038 0266 | f | Execute Discrete,Bounds
0039 00e1 | | Load_Encached Boolean_Cache
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b 4801 |H | Short_Literal 0x1
003c 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
003d 029b 0113 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0110
003f 4802 |H | Short_Literal 0x2
0040 e001 | | Load 0x0,0x1
0041 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0042 e220 | | Load 0x1,0x20
0043 e221 | ! | Load 0x1,0x21
0044 e001 | | Load 0x0,0x1
0045 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0046 e001 | | Load 0x0,0x1
0047 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0048 029f 01d3 | | Declare_Subprogram For_Call,INIT_01d0
004a 4804 |H | Short_Literal 0x4
004b 032d | - | Declare_Type Record,Defined
004c e220 | | Load 0x1,0x20
004d 00d8 | | Load_Top At_Offset_0
004e e221 | ! | Load 0x1,0x21
004f 00e1 | | Load_Encached Boolean_Cache
0050 02a0 | | Declare_Subprogram Null_Subprogram
0051 4804 |H | Short_Literal 0x4
0052 032d | - | Declare_Type Record,Defined
0053 e220 | | Load 0x1,0x20
0054 00da | | Load_Top At_Offset_2
0055 00da | | Load_Top At_Offset_2
0056 00e1 | | Load_Encached Boolean_Cache
0057 00e1 | | Load_Encached Boolean_Cache
0058 00e1 | | Load_Encached Boolean_Cache
0059 00e1 | | Load_Encached Boolean_Cache
005a e222 | " | Load 0x1,0x22
005b 00e1 | | Load_Encached Boolean_Cache
005c e228 | ( | Load 0x1,0x28
005d e001 | | Load 0x0,0x1
005e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
005f e001 | | Load 0x0,0x1
0060 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0061 00e1 | | Load_Encached Boolean_Cache
0062 00e3 | | Load_Encached Natural_Cache
0063 00e1 | | Load_Encached Boolean_Cache
0064 4801 |H | Short_Literal 0x1
0065 e217 | | Load 0x1,0x17
0066 00e9 | | Load_Encached String_Cache
0067 035b | [ | Declare_Type Array,Constrained
0068 e224 | $ | Load 0x1,0x24
0069 e225 | % | Load 0x1,0x25
006a 029f 01f3 | | Declare_Subprogram For_Call,INIT_01f0
006c 4800 |H | Short_Literal 0x0
006d 4802 |H | Short_Literal 0x2
006e 4810 |H | Short_Literal 0x10
006f e21a | | Load 0x1,0x1a
0070 0307 | | Complete_Type Variant_Record,By_Defining
0071 00bf | | Action Accept_Activation
0072 4800 |H | Short_Literal 0x0
0073 4801 |H | Short_Literal 0x1
0074 029f 0143 | C| Declare_Subprogram For_Call,INIT_0140
0076 03fd | | Declare_Type Discrete,Defined
0077 4800 |H | Short_Literal 0x0
0078 4802 |H | Short_Literal 0x2
0079 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
007b 03fd | | Declare_Type Discrete,Defined
007c 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "\x1bO"
007e e005 | | Load 0x0,0x5
007f 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0080 029d 0193 | | Declare_Subprogram For_Outer_Call,INIT_0190
0082 029d 01a3 | | Declare_Subprogram For_Outer_Call,INIT_01a0
0084 029d 01b3 | | Declare_Subprogram For_Outer_Call,INIT_01b0
0086 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
0088 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0089 00c7 | | Action Elaborate_Subprogram
008a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008b 00c7 | | Action Elaborate_Subprogram
008c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
008d 00c7 | | Action Elaborate_Subprogram
008e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008f 00c7 | | Action Elaborate_Subprogram
0090 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0091 00c7 | | Action Elaborate_Subprogram
0092 BODY_0008:
0092 00bc | | Action Signal_Activated
0093 00bb | | Action Signal_Completion
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009e | | .CONST 0x009e ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e001 | | Load 0x0,0x1
009c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
009d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009e BODY_0098:
009e e001 | | Load 0x0,0x1
009f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a1 e5fe | | Load 0x2,-0x2
00a2 e001 | | Load 0x0,0x1
00a3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a5 0059 | Y | Store_Top Discrete,At_Offset_1
00a6 e5fd | | Load 0x2,-0x3
00a7 00d9 | | Load_Top At_Offset_1
00a8 e5ff | | Load 0x2,-0x1
00a9 821d | | Call 0x1,0x1d
00aa 4403 |D | Exit_Subprogram With_Result,0x3
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e5fd | | Load 0x2,-0x3
00b5 e5fe | | Load 0x2,-0x2
00b6 e001 | | Load 0x0,0x1
00b7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00b9 822d | - | Call 0x1,0x2d
00ba 4403 |D | Exit_Subprogram With_Result,0x3
00bb 0000 0000 | | .BLANK 0000[0x5]
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 4607 |F | Jump_Case 0x7
00c4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00c5 7806 |x | Jump 0xcc ; case 0x1
00c6 7809 |x | Jump 0xd0 ; case 0x2
00c7 780d |x | Jump 0xd5 ; case 0x3
00c8 7810 |x | Jump 0xd9 ; case 0x4
00c9 7811 |x | Jump 0xdb ; case 0x5
00ca 7812 |x | Jump 0xdd ; case 0x6
00cb 7815 |x | Jump 0xe1 ; case 0x7
00cc 00da | | Load_Top At_Offset_2
00cd 0091 02ad | | Action Push_String_Extended_Indexed,0x2ad ; "NUMERIC"
00cf 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00d0 00db | | Load_Top At_Offset_3
00d1 00db | | Load_Top At_Offset_3
00d2 00e0 | | Load_Encached Standard_Cache
00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00d5 00da | | Load_Top At_Offset_2
00d6 00e0 | | Load_Encached Standard_Cache
00d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00d9 00db | | Load_Top At_Offset_3
00da 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00db 00db | | Load_Top At_Offset_3
00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00dd e222 | " | Load 0x1,0x22
00de 00dc | | Load_Top At_Offset_4
00df 0267 | g | Execute Discrete,Predecessor
00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e1 e222 | " | Load 0x1,0x22
00e2 00dc | | Load_Top At_Offset_4
00e3 0268 | h | Execute Discrete,Successor
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4607 |F | Jump_Case 0x7
00ec 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00ed 7806 |x | Jump 0xf4 ; case 0x1
00ee 7809 |x | Jump 0xf8 ; case 0x2
00ef 780d |x | Jump 0xfd ; case 0x3
00f0 7810 |x | Jump 0x101 ; case 0x4
00f1 7811 |x | Jump 0x103 ; case 0x5
00f2 7812 |x | Jump 0x105 ; case 0x6
00f3 7815 |x | Jump 0x109 ; case 0x7
00f4 00da | | Load_Top At_Offset_2
00f5 0091 02b0 | | Action Push_String_Extended_Indexed,0x2b0 ; "NORMAL"
00f7 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f8 00db | | Load_Top At_Offset_3
00f9 00db | | Load_Top At_Offset_3
00fa 00e0 | | Load_Encached Standard_Cache
00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fd 00da | | Load_Top At_Offset_2
00fe 00e0 | | Load_Encached Standard_Cache
00ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0100 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0101 00db | | Load_Top At_Offset_3
0102 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0103 00db | | Load_Top At_Offset_3
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0105 e223 | # | Load 0x1,0x23
0106 00dc | | Load_Top At_Offset_4
0107 0267 | g | Execute Discrete,Predecessor
0108 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0109 e223 | # | Load 0x1,0x23
010a 00dc | | Load_Top At_Offset_4
010b 0268 | h | Execute Discrete,Successor
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0128 | ( | .CONST 0x0128 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 4801 |H | Short_Literal 0x1
0114 00db | | Load_Top At_Offset_3
0115 e225 | % | Load 0x1,0x25
0116 035b | [ | Declare_Type Array,Constrained
0117 0337 | 7 | Declare_Variable Array
0118 00d8 | | Load_Top At_Offset_0
0119 0335 | 5 | Declare_Variable Array,Duplicate
011a 00cd | | Action Spare6_Action
011b 00d9 | | Load_Top At_Offset_1
011c 01d9 | | Execute Vector,Reverse_Bounds
011d 0263 | c | Execute Discrete,Above_Bound
011e 7005 |p | Jump_Nonzero 0x124
011f 4800 |H | Short_Literal 0x0
0120 00d9 | | Load_Top At_Offset_1
0121 e403 | | Load 0x2,0x3
0122 01d6 | | Execute Vector,Field_Write
0123 3ffb |? | Loop_Increasing 0x11f
0124 00d9 | | Load_Top At_Offset_1
0125 01d4 | | Execute Vector,Structure_Write
0126 e221 | ! | Load 0x1,0x21
0127 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0128 BODY_0110:
0128 00cf | | Action Mark_Auxiliary
0129 00d9 | | Load_Top At_Offset_1
012a 0a08 | | Execute_Immediate Plus,0x8
012b 005a | Z | Store_Top Discrete,At_Offset_2
012c 00d9 | | Load_Top At_Offset_1
012d e5ff | | Load 0x2,-0x1
012e 027d | } | Execute Discrete,Greater
012f 7006 |p | Jump_Nonzero 0x136
0130 4801 |H | Short_Literal 0x1
0131 00da | | Load_Top At_Offset_2
0132 e402 | | Load 0x2,0x2
0133 01d6 | | Execute Vector,Field_Write
0134 00c9 | | Action Pop_Auxiliary_Loop
0135 7ff3 | | Jump 0x129
0136 00ce | | Action Pop_Auxiliary
0137 00d9 | | Load_Top At_Offset_1
0138 e225 | % | Load 0x1,0x25
0139 01c6 | | Execute Vector,Convert_To_Formal
013a 4401 |D | Exit_Subprogram With_Result,0x1
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4607 |F | Jump_Case 0x7
0144 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0145 7806 |x | Jump 0x14c ; case 0x1
0146 7809 |x | Jump 0x150 ; case 0x2
0147 780d |x | Jump 0x155 ; case 0x3
0148 7810 |x | Jump 0x159 ; case 0x4
0149 7811 |x | Jump 0x15b ; case 0x5
014a 7812 |x | Jump 0x15d ; case 0x6
014b 7815 |x | Jump 0x161 ; case 0x7
014c 00da | | Load_Top At_Offset_2
014d 0091 02b4 | | Action Push_String_Extended_Indexed,0x2b4 ; "LINE"
014f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0150 00db | | Load_Top At_Offset_3
0151 00db | | Load_Top At_Offset_3
0152 00e0 | | Load_Encached Standard_Cache
0153 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0154 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0155 00da | | Load_Top At_Offset_2
0156 00e0 | | Load_Encached Standard_Cache
0157 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0158 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0159 00db | | Load_Top At_Offset_3
015a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
015b 00db | | Load_Top At_Offset_3
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
015d e22a | * | Load 0x1,0x2a
015e 00dc | | Load_Top At_Offset_4
015f 0267 | g | Execute Discrete,Predecessor
0160 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0161 e22a | * | Load 0x1,0x2a
0162 00dc | | Load_Top At_Offset_4
0163 0268 | h | Execute Discrete,Successor
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4607 |F | Jump_Case 0x7
016c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
016d 7806 |x | Jump 0x174 ; case 0x1
016e 7809 |x | Jump 0x178 ; case 0x2
016f 780d |x | Jump 0x17d ; case 0x3
0170 7810 |x | Jump 0x181 ; case 0x4
0171 7811 |x | Jump 0x183 ; case 0x5
0172 7812 |x | Jump 0x185 ; case 0x6
0173 7815 |x | Jump 0x189 ; case 0x7
0174 00da | | Load_Top At_Offset_2
0175 0091 02b6 | | Action Push_String_Extended_Indexed,0x2b6 ; "FROM_START"
0177 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0178 00db | | Load_Top At_Offset_3
0179 00db | | Load_Top At_Offset_3
017a 00e0 | | Load_Encached Standard_Cache
017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
017d 00da | | Load_Top At_Offset_2
017e 00e0 | | Load_Encached Standard_Cache
017f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0180 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0181 00db | | Load_Top At_Offset_3
0182 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0183 00db | | Load_Top At_Offset_3
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0185 e22b | + | Load 0x1,0x2b
0186 00dc | | Load_Top At_Offset_4
0187 0267 | g | Execute Discrete,Predecessor
0188 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0189 e22b | + | Load 0x1,0x2b
018a 00dc | | Load_Top At_Offset_4
018b 0268 | h | Execute Discrete,Successor
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e5fe | | Load 0x2,-0x2
0195 027c | | | Execute Discrete,Less
0196 6802 |h | Jump_Zero 0x199
0197 00da | | Load_Top At_Offset_2
0198 4402 |D | Exit_Subprogram With_Result,0x2
0199 00db | | Load_Top At_Offset_3
019a 4402 |D | Exit_Subprogram With_Result,0x2
019b 0000 0000 | | .BLANK 0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 e5fe | | Load 0x2,-0x2
01a5 027d | } | Execute Discrete,Greater
01a6 6802 |h | Jump_Zero 0x1a9
01a7 00da | | Load_Top At_Offset_2
01a8 4402 |D | Exit_Subprogram With_Result,0x2
01a9 00db | | Load_Top At_Offset_3
01aa 4402 |D | Exit_Subprogram With_Result,0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 e5fe | | Load 0x2,-0x2
01b5 0272 | r | Execute Discrete,Minus
01b6 00d8 | | Load_Top At_Offset_0
01b7 00e2 | | Load_Encached Integer_Cache
01b8 0260 | ` | Execute Discrete,In_Type
01b9 7001 |p | Jump_Nonzero 0x1bb
01ba 0801 | | Execute_Immediate Raise,0x1
01bb 4402 |D | Exit_Subprogram With_Result,0x2
01bc 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
01c4 e5fe | | Load 0x2,-0x2
01c5 0273 | s | Execute Discrete,Plus
01c6 00d8 | | Load_Top At_Offset_0
01c7 00e8 | | Load_Encached Character_Cache
01c8 0260 | ` | Execute Discrete,In_Type
01c9 7001 |p | Jump_Nonzero 0x1cb
01ca 0801 | | Execute_Immediate Raise,0x1
01cb 4402 |D | Exit_Subprogram With_Result,0x2
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4608 |F | Jump_Case 0x8
01d4 7808 |x | Jump 0x1dd ; case 0x0
01d5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
01d6 7813 |x | Jump 0x1ea ; case 0x2
01d7 7812 |x | Jump 0x1ea ; case 0x3
01d8 7811 |x | Jump 0x1ea ; case 0x4
01d9 7810 |x | Jump 0x1ea ; case 0x5
01da 780f |x | Jump 0x1ea ; case 0x6
01db 780e |x | Jump 0x1ea ; case 0x7
01dc 780d |x | Jump 0x1ea ; case 0x8
01dd 4801 |H | Short_Literal 0x1
01de 00db | | Load_Top At_Offset_3
01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e0 4801 |H | Short_Literal 0x1
01e1 00db | | Load_Top At_Offset_3
01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e3 4802 |H | Short_Literal 0x2
01e4 00db | | Load_Top At_Offset_3
01e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e6 e227 | ' | Load 0x1,0x27
01e7 00db | | Load_Top At_Offset_3
01e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e9 4302 |C | Exit_Subprogram From_Utility,0x2
01ea 0869 | i | Execute_Immediate Raise,0x69
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
; Number of locals
01f3 BODY_01f0:
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 INIT_01f0:
01f3 4608 |F | Jump_Case 0x8
01f4 7808 |x | Jump 0x1fd ; case 0x0
01f5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
01f6 78b5 |x | Jump 0x2ac ; case 0x2
01f7 78b4 |x | Jump 0x2ac ; case 0x3
01f8 78b3 |x | Jump 0x2ac ; case 0x4
01f9 78b2 |x | Jump 0x2ac ; case 0x5
01fa 78b1 |x | Jump 0x2ac ; case 0x6
01fb 7892 |x | Jump 0x28e ; case 0x7
01fc 789f |x | Jump 0x29c ; case 0x8
01fd 00da | | Load_Top At_Offset_2
01fe 016c | l | Execute Variant_Record,Is_Constrained
01ff 700a |p | Jump_Nonzero 0x20a
0200 00cf | | Action Mark_Auxiliary
0201 4818 |H | Short_Literal 0x18
0202 4884 |H | Short_Literal 0x84
0203 e5ff | | Load 0x2,-0x1
0204 1c08 | | Execute_Immediate Run_Utility,0x8
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 c5ff | | Store 0x2,-0x1
0208 00ce | | Action Pop_Auxiliary
0209 4302 |C | Exit_Subprogram From_Utility,0x2
020a 4801 |H | Short_Literal 0x1
020b 00db | | Load_Top At_Offset_3
020c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
020d 00da | | Load_Top At_Offset_2
020e 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 e229 | ) | Load 0x1,0x29
0211 0322 | " | Declare_Variable Record
0212 4801 |H | Short_Literal 0x1
0213 00d9 | | Load_Top At_Offset_1
0214 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0215 00db | | Load_Top At_Offset_3
0216 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0217 00d9 | | Load_Top At_Offset_1
0218 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0219 00db | | Load_Top At_Offset_3
021a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
021b 00d9 | | Load_Top At_Offset_1
021c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
021d 4800 |H | Short_Literal 0x0
021e 00d9 | | Load_Top At_Offset_1
021f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0220 00db | | Load_Top At_Offset_3
0221 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0222 4800 |H | Short_Literal 0x0
0223 00db | | Load_Top At_Offset_3
0224 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0225 4800 |H | Short_Literal 0x0
0226 00db | | Load_Top At_Offset_3
0227 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0228 4800 |H | Short_Literal 0x0
0229 00db | | Load_Top At_Offset_3
022a 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
022b 4800 |H | Short_Literal 0x0
022c 00db | | Load_Top At_Offset_3
022d 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
022e 4800 |H | Short_Literal 0x0
022f 00db | | Load_Top At_Offset_3
0230 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0231 4800 |H | Short_Literal 0x0
0232 00db | | Load_Top At_Offset_3
0233 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0234 00da | | Load_Top At_Offset_2
0235 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc
0236 1c00 | | Execute_Immediate Run_Utility,0x0
0237 4800 |H | Short_Literal 0x0
0238 00db | | Load_Top At_Offset_3
0239 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
023a 4800 |H | Short_Literal 0x0
023b 00db | | Load_Top At_Offset_3
023c 280e |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xe
023d 4800 |H | Short_Literal 0x0
023e 00db | | Load_Top At_Offset_3
023f 280f |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xf
0240 4800 |H | Short_Literal 0x0
0241 00db | | Load_Top At_Offset_3
0242 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10
0243 4800 |H | Short_Literal 0x0
0244 00db | | Load_Top At_Offset_3
0245 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11
0246 e21a | | Load 0x1,0x1a
0247 2312 |# | Execute Variant_Record,Field_Type,Field_Number 0x12
0248 0337 | 7 | Declare_Variable Array
0249 e21a | | Load 0x1,0x1a
024a 2312 |# | Execute Variant_Record,Field_Type,Field_Number 0x12
024b 01d9 | | Execute Vector,Reverse_Bounds
024c 0263 | c | Execute Discrete,Above_Bound
024d 7005 |p | Jump_Nonzero 0x253
024e 4820 |H | Short_Literal 0x20
024f 00d9 | | Load_Top At_Offset_1
0250 e402 | | Load 0x2,0x2
0251 01d6 | | Execute Vector,Field_Write
0252 3ffb |? | Loop_Increasing 0x24e
0253 00db | | Load_Top At_Offset_3
0254 00d9 | | Load_Top At_Offset_1
0255 00d9 | | Load_Top At_Offset_1
0256 2312 |# | Execute Variant_Record,Field_Type,Field_Number 0x12
0257 0119 | | Execute Any,Check_In_Formal_Type
0258 00d1 | | Pop_Control Pop_Count_1
0259 2812 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x12
025a 00da | | Load_Top At_Offset_2
025b 2513 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x13
025c 0335 | 5 | Declare_Variable Array,Duplicate
025d 00cd | | Action Spare6_Action
025e 00db | | Load_Top At_Offset_3
025f 2513 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x13
0260 01d9 | | Execute Vector,Reverse_Bounds
0261 0263 | c | Execute Discrete,Above_Bound
0262 7005 |p | Jump_Nonzero 0x268
0263 4800 |H | Short_Literal 0x0
0264 00d9 | | Load_Top At_Offset_1
0265 e402 | | Load 0x2,0x2
0266 01d6 | | Execute Vector,Field_Write
0267 3ffb |? | Loop_Increasing 0x263
0268 00db | | Load_Top At_Offset_3
0269 00d8 | | Load_Top At_Offset_0
026a 2513 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x13
026b 00da | | Load_Top At_Offset_2
026c 01da | | Execute Vector,Bounds
026d 00da | | Load_Top At_Offset_2
026e 01da | | Execute Vector,Bounds
026f 00da | | Load_Top At_Offset_2
0270 027f | | Execute Discrete,Equal
0271 7001 |p | Jump_Nonzero 0x273
0272 08e0 | | Execute_Immediate Raise,0xe0
0273 00cd | | Action Spare6_Action
0274 027f | | Execute Discrete,Equal
0275 7001 |p | Jump_Nonzero 0x277
0276 08e0 | | Execute_Immediate Raise,0xe0
0277 00d1 | | Pop_Control Pop_Count_1
0278 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13
0279 00da | | Load_Top At_Offset_2
027a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027b 8226 | & | Call 0x1,0x26
027c 00db | | Load_Top At_Offset_3
027d 00d8 | | Load_Top At_Offset_0
027e 2514 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x14
027f 00da | | Load_Top At_Offset_2
0280 01da | | Execute Vector,Bounds
0281 00da | | Load_Top At_Offset_2
0282 01da | | Execute Vector,Bounds
0283 00da | | Load_Top At_Offset_2
0284 027f | | Execute Discrete,Equal
0285 7001 |p | Jump_Nonzero 0x287
0286 08e0 | | Execute_Immediate Raise,0xe0
0287 00cd | | Action Spare6_Action
0288 027f | | Execute Discrete,Equal
0289 7001 |p | Jump_Nonzero 0x28b
028a 08e0 | | Execute_Immediate Raise,0xe0
028b 00d1 | | Pop_Control Pop_Count_1
028c 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14
028d 4302 |C | Exit_Subprogram From_Utility,0x2
028e e5fd | | Load 0x2,-0x3
028f e5fe | | Load 0x2,-0x2
0290 4801 |H | Short_Literal 0x1
0291 e5fd | | Load 0x2,-0x3
0292 e224 | $ | Load 0x1,0x24
0293 035b | [ | Declare_Type Array,Constrained
0294 4801 |H | Short_Literal 0x1
0295 e5fe | | Load 0x2,-0x2
0296 e225 | % | Load 0x1,0x25
0297 035b | [ | Declare_Type Array,Constrained
0298 4802 |H | Short_Literal 0x2
0299 e5ff | | Load 0x2,-0x1
029a 031b | | Declare_Type Variant_Record,Constrained
029b 4203 |B | Exit_Subprogram From_Utility,With_Result,0x3
029c e5fd | | Load 0x2,-0x3
029d e5fe | | Load 0x2,-0x2
029e e5ff | | Load 0x2,-0x1
029f 02fc | | Declare_Variable Variant_Record,With_Constraint
02a0 4801 |H | Short_Literal 0x1
02a1 e5fd | | Load 0x2,-0x3
02a2 e224 | $ | Load 0x1,0x24
02a3 0334 | 4 | Declare_Variable Array,With_Constraint
02a4 2d13 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x13
02a5 4801 |H | Short_Literal 0x1
02a6 e5fe | | Load 0x2,-0x2
02a7 e225 | % | Load 0x1,0x25
02a8 0334 | 4 | Declare_Variable Array,With_Constraint
02a9 2d14 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x14
02aa 016a | j | Execute Variant_Record,Indirects_Appended
02ab 4203 |B | Exit_Subprogram From_Utility,With_Result,0x3
02ac 0869 | i | Execute_Immediate Raise,0x69
02ad ; --------------------------------------------------------------------------------------
02ad ; STRING TABLE
02ad ; --------------------------------------------------------------------------------------
02ad 001c | | .STRTAB 0x001c->0x02bb ; "NUMERIC"
02ae 0021 | ! | .STRTAB 0x0021->0x02be ; "APPLICATION"
02af 002a | * | .STRTAB 0x002a->0x02c4 ; "HEX"
02b0 002b | + | .STRTAB 0x002b->0x02c5 ; "NORMAL"
02b1 002f | / | .STRTAB 0x002f->0x02c8 ; "WIDE"
02b2 0031 | 1 | .STRTAB 0x0031->0x02ca ; "TOP_HALF"
02b3 0037 | 7 | .STRTAB 0x0037->0x02ce ; "BOTTOM_HALF"
02b4 0040 | @ | .STRTAB 0x0040->0x02d4 ; "LINE"
02b5 0042 | B | .STRTAB 0x0042->0x02d6 ; "SCREEN"
02b6 0046 | F | .STRTAB 0x0046->0x02d9 ; "FROM_START"
02b7 004e | N | .STRTAB 0x004e->0x02de ; "ENTIRETY"
02b8 0054 | T | .STRTAB 0x0054->0x02e2 ; "TO_END"
02b9 0058 | X | .STRTAB 0x0058->0x02e5 ; "\x1bO"
02ba 0058 | X | .STREND 0x0058->0x02e6
02bb 4e55 4d45 |NUME| .STRTAB_STRINGS
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c4,0x0000,0x0001,0x0000
02ee 9590 81d1 | | .XXX[0x42]
02f0 bc81 85b8 | |
02f2 8105 9184 | |
02f4 81bd 89a9 | |
02f6 958d d081 | |
02f8 bdc8 81a5 | |
02fa d195 b4f1 | |
02fc 0d55 494d | UIM|
02fe 3d48 f8f1 |=H |
0300 0cc1 a804 | |
0302 0800 0a38 | 8|
0304 0014 03ec | |
0306 0002 a410 | |
0308 0cc1 a804 | |
030a 0000 007f | |
030c 0016 b413 | |
030e 0000 7f52 | R|
0310 0cc1 a804 | |
0312 0000 17bf | |
0314 0008 7077 | pw|
0316 0000 05b5 | |
0318 000f c404 | |
031a 0000 08c4 | |
031c 0014 03ec | |
031e 0002 a632 | 2|
0320 000f c404 | |
0322 0000 007f | |
0324 0013 8013 | |
0326 0000 4502 | E |
0328 000f c404 | |
032a 0000 17bf | |
032c 0008 e0c5 | |
032e 0000 05b5 | |
0330 0000 0000 | | .BLANK 0000[0x7]
0337 015e | ^ | .XXX[0x1]
0338 0000 0000 | | .BLANK 0000[0x7]
033f 005f 0cc1 | _ | .XXX[0x1d]
0341 9004 0800 | |
0343 0138 0014 | 8 |
0345 03ec 0002 | |
0347 a96e 000f | n |
0349 c404 0000 | |
034b 007f 0014 | |
034d 1013 0000 | |
034f 6332 000f |c2 |
0351 c404 0000 | |
0353 17bf 0009 | |
0355 10bd 0000 | |
0357 05b5 0cc1 | |
0359 bc04 0800 | |
035b 04b8 | |
035c 0000 0000 | | .BLANK 0000[0x4]
0360 0cc1 bc04 | | .XXX[0x43]
0362 0000 0d44 | D|
0364 0014 03ec | |
0366 0000 01c0 | |
0368 000f c404 | |
036a 0800 01cc | |
036c 0006 3cfc | < |
036e 0000 76ae | v |
0370 9481 c195 | |
0372 c999 bdc9 | |
0374 b595 9081 | |
0376 a5b8 8105 | |
0378 9184 81d5 | |
037a b9a5 d1cc | |
037c 8555 cd95 | U |
037e c9cc b8b9 | |
0380 0dbd b5c1 | |
0382 a5b1 957d | }|
0384 31bd 9df8 |1 |
0386 e8e8 e8b0 | |
0388 f141 493d | AI=|
038a 1925 3114 | %1 |
038c f8b1 f8e8 | |
038e e8e8 81a5 | |
0390 cc81 85b1 | |
0392 c995 8591 | |
0394 e481 a5b8 | |
0396 81d1 a194 | |
0398 8125 b9cd | % |
039a d185 b1b1 | |
039c 9590 81cd | |
039e d185 d194 | |
03a0 b97d 0511 | } |
03a2 0400 | |
03a3 0000 0000 | | .BLANK 0000[0x4]
03a7 0010 0049 | I| .XXX[0x41]
03a9 92f4 0000 | |
03ab 0004 0000 | |
03ad 0000 0010 | |
03af c918 e4c8 | |
03b1 0000 0018 | |
03b3 c4dd 1110 | |
03b5 c114 0000 | |
03b7 3830 003d |80 =|
03b9 6000 0000 |` |
03bb 1c00 0400 | |
03bd 02ec 0002 | |
03bf 0010 018c | |
03c1 0010 007b | {|
03c3 8004 04a7 | |
03c5 8008 6c34 | l4|
03c7 04a7 8008 | |
03c9 6c38 04a7 |l8 |
03cb 800c 6c34 | l4|
03cd 04a7 800c | |
03cf 6c38 04a7 |l8 |
03d1 800c 6c3c | l<|
03d3 04a7 800c | |
03d5 6c40 04a7 |l@ |
03d7 800c 6c44 | lD|
03d9 04a7 800c | |
03db 6c48 04a4 |lH |
03dd 0a81 2000 | |
03df 0cb9 2014 | |
03e1 024c 01cc | L |
03e3 0a80 0e34 | 4|
03e5 02fd 2001 | |
03e7 80e3 | |
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 0014 1013 | | .XXX[0x14]
03ee 0000 4006 | @ |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0014 1013 | |
03f6 0000 5a70 | Zp|
03f8 ff55 0023 | U #|
03fa 5000 0001 |P |
03fc 0000 0000 | |
03fe 0000 0003 | |