|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0298 | | .CONST 0x0298 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0020
000d 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
000f 00bf | | Action Accept_Activation
0010 029d 00cb | | Declare_Subprogram For_Outer_Call,INIT_00c8
0012 029d 011b | | Declare_Subprogram For_Outer_Call,INIT_0118
0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0057 | W | .CONST 0x0057 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0012 | | .CONST 0x0012 ; Number of locals
0023 INIT_0020:
0023 e001 | | Load 0x0,0x1
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0026 02c7 | | Declare_Variable Any
0027 4801 |H | Short_Literal 0x1
0028 e001 | | Load 0x0,0x1
0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
002b e5ff | | Load 0x2,-0x1
002c e001 | | Load 0x0,0x1
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
002f a402 | | Store_Unchecked 0x2,0x2
0030 4800 |H | Short_Literal 0x0
0031 4803 |H | Short_Literal 0x3
0032 029f 014b | K| Declare_Subprogram For_Call,INIT_0148
0034 03fd | | Declare_Type Discrete,Defined
0035 029f 0173 | s| Declare_Subprogram For_Call,INIT_0170
0037 029f 017b | {| Declare_Subprogram For_Call,INIT_0178
0039 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
003b 029f 01bb | | Declare_Subprogram For_Call,INIT_01b8
003d 029f 01db | | Declare_Subprogram For_Call,INIT_01d8
003f a002 | | Reference 0x0,0x2
0040 00c6 | | Action Check_Subprogram_Elaborated
0041 4805 |H | Short_Literal 0x5
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 e403 | | Load 0x2,0x3
0045 4804 |H | Short_Literal 0x4
0046 4802 |H | Short_Literal 0x2
0047 0099 | | Action Reference_Dynamic
0048 4807 |H | Short_Literal 0x7
0049 4802 |H | Short_Literal 0x2
004a 0099 | | Action Reference_Dynamic
004b 4806 |H | Short_Literal 0x6
004c 4802 |H | Short_Literal 0x2
004d 0099 | | Action Reference_Dynamic
004e 4808 |H | Short_Literal 0x8
004f 4802 |H | Short_Literal 0x2
0050 0099 | | Action Reference_Dynamic
0051 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "LITERALS"
0053 e003 | | Load 0x0,0x3
0054 e004 | | Load 0x0,0x4
0055 4812 |H | Short_Literal 0x12
0056 0007 | | Action Break_Optional
0057 BODY_0020:
0057 e402 | | Load 0x2,0x2
0058 e001 | | Load 0x0,0x1
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
005b 680a |h | Jump_Zero 0x66
005c e005 | | Load 0x0,0x5
005d 180e | | Execute Package,Field_Execute,Field_Number 0xe
005e 4807 |H | Short_Literal 0x7
005f e5ff | | Load 0x2,-0x1
0060 0092 01f9 | | Action Push_String_Extended,0x1f9 ; " is not a valid pathname"
0062 01cc | | Execute Vector,Catenate
0063 e006 | | Load 0x0,0x6
0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0065 4509 |E | Exit_Subprogram 0x9
0066 e5f7 | | Load 0x2,-0x9
0067 e402 | | Load 0x2,0x2
0068 0092 01fa | | Action Push_String_Extended,0x1fa ; "<PROFILE>"
006a 4809 |H | Short_Literal 0x9
006b 4802 |H | Short_Literal 0x2
006c 0099 | | Action Reference_Dynamic
006d e40a | | Load 0x2,0xa
006e 480b |H | Short_Literal 0xb
006f 4802 |H | Short_Literal 0x2
0070 0099 | | Action Reference_Dynamic
0071 480c |H | Short_Literal 0xc
0072 4802 |H | Short_Literal 0x2
0073 0099 | | Action Reference_Dynamic
0074 480d |H | Short_Literal 0xd
0075 4802 |H | Short_Literal 0x2
0076 0099 | | Action Reference_Dynamic
0077 480e |H | Short_Literal 0xe
0078 4802 |H | Short_Literal 0x2
0079 0099 | | Action Reference_Dynamic
007a e40f | | Load 0x2,0xf
007b 4810 |H | Short_Literal 0x10
007c 4802 |H | Short_Literal 0x2
007d 0099 | | Action Reference_Dynamic
007e 8002 | | Call 0x0,0x2
007f c402 | | Store 0x2,0x2
0080 c5f7 | | Store 0x2,-0x9
0081 4509 |E | Exit_Subprogram 0x9
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0095 | | .CONST 0x0095 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b e007 | | Load 0x0,0x7
008c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 e008 | | Load 0x0,0x8
0091 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0092 02c7 | | Declare_Variable Any
0093 00d8 | | Load_Top At_Offset_0
0094 1c00 | | Execute_Immediate Run_Utility,0x0
0095 BODY_0088:
0095 00d9 | | Load_Top At_Offset_1
0096 00d9 | | Load_Top At_Offset_1
0097 e5fe | | Load 0x2,-0x2
0098 8009 | | Call 0x0,0x9
0099 c403 | | Store 0x2,0x3
009a c402 | | Store 0x2,0x2
009b 00d8 | | Load_Top At_Offset_0
009c e008 | | Load 0x0,0x8
009d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
009e 4802 |H | Short_Literal 0x2
009f 4803 |H | Short_Literal 0x3
00a0 0262 | b | Execute Discrete,In_Range
00a1 7015 |p | Jump_Nonzero 0xb7
00a2 00d9 | | Load_Top At_Offset_1
00a3 e5f7 | | Load 0x2,-0x9
00a4 e5f8 | | Load 0x2,-0x8
00a5 e5f9 | | Load 0x2,-0x7
00a6 e5fa | | Load 0x2,-0x6
00a7 e5fb | | Load 0x2,-0x5
00a8 e5fc | | Load 0x2,-0x4
00a9 e5fd | | Load 0x2,-0x3
00aa e5ff | | Load 0x2,-0x1
00ab 820d | | Call 0x1,0xd
00ac c402 | | Store 0x2,0x2
00ad 00d9 | | Load_Top At_Offset_1
00ae e007 | | Load 0x0,0x7
00af 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00b0 c402 | | Store 0x2,0x2
00b1 4801 |H | Short_Literal 0x1
00b2 4800 |H | Short_Literal 0x0
00b3 e5fe | | Load 0x2,-0x2
00b4 e00a | | Load 0x0,0xa
00b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b6 450a |E | Exit_Subprogram 0xa
00b7 e005 | | Load 0x0,0x5
00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b9 4807 |H | Short_Literal 0x7
00ba 0092 01fb | | Action Push_String_Extended,0x1fb ; "Problem creating object "
00bc e5fe | | Load 0x2,-0x2
00bd 01cc | | Execute Vector,Catenate
00be 0092 01fc | | Action Push_String_Extended,0x1fc ; ". "
00c0 01cc | | Execute Vector,Catenate
00c1 00db | | Load_Top At_Offset_3
00c2 e008 | | Load 0x0,0x8
00c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c4 01cc | | Execute Vector,Catenate
00c5 e006 | | Load 0x0,0x6
00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c7 450a |E | Exit_Subprogram 0xa
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d2 | | .CONST 0x00d2 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e00b | | Load 0x0,0xb
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 02c7 | | Declare_Variable Any
00ce 00db | | Load_Top At_Offset_3
00cf e00b | | Load 0x0,0xb
00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d1 a402 | | Store_Unchecked 0x2,0x2
00d2 BODY_00c8:
00d2 00d8 | | Load_Top At_Offset_0
00d3 e00b | | Load 0x0,0xb
00d4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00d5 4606 |F | Jump_Case 0x6
00d6 7806 |x | Jump 0xdd ; case 0x0
00d7 7805 |x | Jump 0xdd ; case 0x1
00d8 7814 |x | Jump 0xed ; case 0x2
00d9 7806 |x | Jump 0xe0 ; case 0x3
00da 7837 |x7 | Jump 0x112 ; case 0x4
00db 7839 |x9 | Jump 0x115 ; case 0x5
00dc 7800 |x | Jump 0xdd ; case 0x6
00dd 0092 01fd | | Action Push_String_Extended,0x1fd ; "OTHER"
00df 4401 |D | Exit_Subprogram With_Result,0x1
00e0 4800 |H | Short_Literal 0x0
00e1 4820 |H | Short_Literal 0x20
00e2 485f |H_ | Short_Literal 0x5f
00e3 00db | | Load_Top At_Offset_3
00e4 e00c | | Load 0x0,0xc
00e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00e6 e00c | | Load 0x0,0xc
00e7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00e8 011c | | Execute Any,Convert_Unchecked
00e9 1c01 | | Execute_Immediate Run_Utility,0x1
00ea e00d | | Load 0x0,0xd
00eb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ec 4401 |D | Exit_Subprogram With_Result,0x1
00ed 00d8 | | Load_Top At_Offset_0
00ee e00e | | Load 0x0,0xe
00ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f0 680d |h | Jump_Zero 0xfe
00f1 4800 |H | Short_Literal 0x0
00f2 4820 |H | Short_Literal 0x20
00f3 485f |H_ | Short_Literal 0x5f
00f4 00db | | Load_Top At_Offset_3
00f5 e00e | | Load 0x0,0xe
00f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f7 e00e | | Load 0x0,0xe
00f8 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00f9 011c | | Execute Any,Convert_Unchecked
00fa 1c01 | | Execute_Immediate Run_Utility,0x1
00fb e00d | | Load 0x0,0xd
00fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00fd 4401 |D | Exit_Subprogram With_Result,0x1
00fe 00d8 | | Load_Top At_Offset_0
00ff e00f | | Load 0x0,0xf
0100 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0101 680d |h | Jump_Zero 0x10f
0102 4800 |H | Short_Literal 0x0
0103 4820 |H | Short_Literal 0x20
0104 485f |H_ | Short_Literal 0x5f
0105 00db | | Load_Top At_Offset_3
0106 e00e | | Load 0x0,0xe
0107 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0108 e00e | | Load 0x0,0xe
0109 1b15 | | Execute Package,Field_Read,Field_Number 0x15
010a 011c | | Execute Any,Convert_Unchecked
010b 1c01 | | Execute_Immediate Run_Utility,0x1
010c e00d | | Load 0x0,0xd
010d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010e 4401 |D | Exit_Subprogram With_Result,0x1
010f 0092 01fe | | Action Push_String_Extended,0x1fe ; "A RECORD COMPONENT"
0111 4401 |D | Exit_Subprogram With_Result,0x1
0112 0092 01ff | | Action Push_String_Extended,0x1ff ; "PRAGMA"
0114 4401 |D | Exit_Subprogram With_Result,0x1
0115 0092 0200 | | Action Push_String_Extended,0x200 ; "REP SPEC"
0117 4401 |D | Exit_Subprogram With_Result,0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c e010 | | Load 0x0,0x10
011d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011e 4612 |F | Jump_Case 0x12
011f 7812 |x | Jump 0x132 ; case 0x0
0120 7811 |x | Jump 0x132 ; case 0x1
0121 7810 |x | Jump 0x132 ; case 0x2
0122 780f |x | Jump 0x132 ; case 0x3
0123 780e |x | Jump 0x132 ; case 0x4
0124 780d |x | Jump 0x132 ; case 0x5
0125 780f |x | Jump 0x135 ; case 0x6
0126 7811 |x | Jump 0x138 ; case 0x7
0127 7813 |x | Jump 0x13b ; case 0x8
0128 7815 |x | Jump 0x13e ; case 0x9
0129 7817 |x | Jump 0x141 ; case 0xa
012a 7819 |x | Jump 0x144 ; case 0xb
012b 7806 |x | Jump 0x132 ; case 0xc
012c 7805 |x | Jump 0x132 ; case 0xd
012d 7804 |x | Jump 0x132 ; case 0xe
012e 7803 |x | Jump 0x132 ; case 0xf
012f 7802 |x | Jump 0x132 ; case 0x10
0130 7801 |x | Jump 0x132 ; case 0x11
0131 7800 |x | Jump 0x132 ; case 0x12
0132 0092 0201 | | Action Push_String_Extended,0x201 ; "UNKNOWN"
0134 4401 |D | Exit_Subprogram With_Result,0x1
0135 0092 0202 | | Action Push_String_Extended,0x202 ; "CHARACTER"
0137 4401 |D | Exit_Subprogram With_Result,0x1
0138 0092 0203 | | Action Push_String_Extended,0x203 ; "INTEGER"
013a 4401 |D | Exit_Subprogram With_Result,0x1
013b 0092 0204 | | Action Push_String_Extended,0x204 ; "REAL"
013d 4401 |D | Exit_Subprogram With_Result,0x1
013e 0092 0205 | | Action Push_String_Extended,0x205 ; "ENUMERATION"
0140 4401 |D | Exit_Subprogram With_Result,0x1
0141 0092 0206 | | Action Push_String_Extended,0x206 ; "NULL"
0143 4401 |D | Exit_Subprogram With_Result,0x1
0144 0092 0207 | | Action Push_String_Extended,0x207 ; "STRING"
0146 4401 |D | Exit_Subprogram With_Result,0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4607 |F | Jump_Case 0x7
014c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
014d 7806 |x | Jump 0x154 ; case 0x1
014e 7809 |x | Jump 0x158 ; case 0x2
014f 780d |x | Jump 0x15d ; case 0x3
0150 7810 |x | Jump 0x161 ; case 0x4
0151 7811 |x | Jump 0x163 ; case 0x5
0152 7812 |x | Jump 0x165 ; case 0x6
0153 7815 |x | Jump 0x169 ; case 0x7
0154 00da | | Load_Top At_Offset_2
0155 0091 01f4 | | Action Push_String_Extended_Indexed,0x1f4 ; "KIND"
0157 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0158 00db | | Load_Top At_Offset_3
0159 00db | | Load_Top At_Offset_3
015a 00e0 | | Load_Encached Standard_Cache
015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
015d 00da | | Load_Top At_Offset_2
015e 00e0 | | Load_Encached Standard_Cache
015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0160 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0165 e403 | | Load 0x2,0x3
0166 00dc | | Load_Top At_Offset_4
0167 0267 | g | Execute Discrete,Predecessor
0168 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0169 e403 | | Load 0x2,0x3
016a 00dc | | Load_Top At_Offset_4
016b 0268 | h | Execute Discrete,Successor
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
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 4800 |H | Short_Literal 0x0
0174 4401 |D | Exit_Subprogram With_Result,0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e010 | | Load 0x0,0x10
017d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017e 4612 |F | Jump_Case 0x12
017f 7812 |x | Jump 0x192 ; case 0x0
0180 7811 |x | Jump 0x192 ; case 0x1
0181 7810 |x | Jump 0x192 ; case 0x2
0182 780f |x | Jump 0x192 ; case 0x3
0183 780e |x | Jump 0x192 ; case 0x4
0184 780d |x | Jump 0x192 ; case 0x5
0185 780e |x | Jump 0x194 ; case 0x6
0186 780f |x | Jump 0x196 ; case 0x7
0187 7810 |x | Jump 0x198 ; case 0x8
0188 7811 |x | Jump 0x19a ; case 0x9
0189 7812 |x | Jump 0x19c ; case 0xa
018a 7813 |x | Jump 0x19e ; case 0xb
018b 7806 |x | Jump 0x192 ; case 0xc
018c 7805 |x | Jump 0x192 ; case 0xd
018d 7804 |x | Jump 0x192 ; case 0xe
018e 7803 |x | Jump 0x192 ; case 0xf
018f 7802 |x | Jump 0x192 ; case 0x10
0190 7801 |x | Jump 0x192 ; case 0x11
0191 7800 |x | Jump 0x192 ; case 0x12
0192 4800 |H | Short_Literal 0x0
0193 4401 |D | Exit_Subprogram With_Result,0x1
0194 e5fd | | Load 0x2,-0x3
0195 4401 |D | Exit_Subprogram With_Result,0x1
0196 e5fc | | Load 0x2,-0x4
0197 4401 |D | Exit_Subprogram With_Result,0x1
0198 e5fb | | Load 0x2,-0x5
0199 4401 |D | Exit_Subprogram With_Result,0x1
019a e5fa | | Load 0x2,-0x6
019b 4401 |D | Exit_Subprogram With_Result,0x1
019c e5f9 | | Load 0x2,-0x7
019d 4401 |D | Exit_Subprogram With_Result,0x1
019e e5fe | | Load 0x2,-0x2
019f 4401 |D | Exit_Subprogram With_Result,0x1
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 4603 |F | Jump_Case 0x3
01a5 7809 |x | Jump 0x1af ; case 0x0
01a6 780b |x | Jump 0x1b2 ; case 0x1
01a7 7804 |x | Jump 0x1ac ; case 0x2
01a8 7800 |x | Jump 0x1a9 ; case 0x3
01a9 0092 0208 | | Action Push_String_Extended,0x208 ; "The type of the literal"
01ab 4402 |D | Exit_Subprogram With_Result,0x2
01ac 0092 0209 | | Action Push_String_Extended,0x209 ; "The literal"
01ae 4402 |D | Exit_Subprogram With_Result,0x2
01af 0092 020a | | Action Push_String_Extended,0x20a ; "The kind of the literal"
01b1 4402 |D | Exit_Subprogram With_Result,0x2
01b2 0092 020b | | Action Push_String_Extended,0x20b ; "Context is which the literal appears"
01b4 4402 |D | Exit_Subprogram With_Result,0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 4603 |F | Jump_Case 0x3
01bd 7812 |x | Jump 0x1d0 ; case 0x0
01be 780e |x | Jump 0x1cd ; case 0x1
01bf 7809 |x | Jump 0x1c9 ; case 0x2
01c0 7800 |x | Jump 0x1c1 ; case 0x3
01c1 00db | | Load_Top At_Offset_3
01c2 e010 | | Load 0x0,0x10
01c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c4 e00e | | Load 0x0,0xe
01c5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c6 e00e | | Load 0x0,0xe
01c7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01c8 4402 |D | Exit_Subprogram With_Result,0x2
01c9 00db | | Load_Top At_Offset_3
01ca e00b | | Load 0x0,0xb
01cb 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01cc 4402 |D | Exit_Subprogram With_Result,0x2
01cd 00db | | Load_Top At_Offset_3
01ce 820f | | Call 0x1,0xf
01cf 4402 |D | Exit_Subprogram With_Result,0x2
01d0 00db | | Load_Top At_Offset_3
01d1 8210 | | Call 0x1,0x10
01d2 4402 |D | Exit_Subprogram With_Result,0x2
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e00b | | Load 0x0,0xb
01dc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01dd c7fc | | Store 0x3,-0x4
01de 00da | | Load_Top At_Offset_2
01df 4603 |F | Jump_Case 0x3
01e0 7810 |x | Jump 0x1f1 ; case 0x0
01e1 780a |x | Jump 0x1ec ; case 0x1
01e2 7806 |x | Jump 0x1e9 ; case 0x2
01e3 7800 |x | Jump 0x1e4 ; case 0x3
01e4 00db | | Load_Top At_Offset_3
01e5 e010 | | Load 0x0,0x10
01e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e7 c7fd | | Store 0x3,-0x3
01e8 4503 |E | Exit_Subprogram 0x3
01e9 00db | | Load_Top At_Offset_3
01ea c7fd | | Store 0x3,-0x3
01eb 4503 |E | Exit_Subprogram 0x3
01ec 00db | | Load_Top At_Offset_3
01ed e00b | | Load 0x0,0xb
01ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ef c7fd | | Store 0x3,-0x3
01f0 4503 |E | Exit_Subprogram 0x3
01f1 00db | | Load_Top At_Offset_3
01f2 c7fd | | Store 0x3,-0x3
01f3 4503 |E | Exit_Subprogram 0x3
01f4 ; --------------------------------------------------------------------------------------
01f4 ; STRING TABLE
01f4 ; --------------------------------------------------------------------------------------
01f4 0032 | 2 | .STRTAB 0x0032->0x020d ; "KIND"
01f5 0034 | 4 | .STRTAB 0x0034->0x020f ; "CONTEXT"
01f6 0039 | 9 | .STRTAB 0x0039->0x0212 ; "LITERAL"
01f7 003e | > | .STRTAB 0x003e->0x0216 ; "TYPE_NAME"
01f8 0045 | E | .STRTAB 0x0045->0x021a ; "LITERALS"
01f9 004b | K | .STRTAB 0x004b->0x021e ; " is not a valid pathname"
01fa 0061 | a | .STRTAB 0x0061->0x022a ; "<PROFILE>"
01fb 0068 | h | .STRTAB 0x0068->0x022f ; "Problem creating object "
01fc 007e | ~ | .STRTAB 0x007e->0x023b ; ". "
01fd 007f | | .STRTAB 0x007f->0x023c ; "OTHER"
01fe 0082 | | .STRTAB 0x0082->0x023f ; "A RECORD COMPONENT"
01ff 0092 | | .STRTAB 0x0092->0x0248 ; "PRAGMA"
0200 0096 | | .STRTAB 0x0096->0x024b ; "REP SPEC"
0201 009c | | .STRTAB 0x009c->0x024f ; "UNKNOWN"
0202 00a1 | | .STRTAB 0x00a1->0x0252 ; "CHARACTER"
0203 00a8 | | .STRTAB 0x00a8->0x0257 ; "INTEGER"
0204 00ad | | .STRTAB 0x00ad->0x025a ; "REAL"
0205 00af | | .STRTAB 0x00af->0x025c ; "ENUMERATION"
0206 00b8 | | .STRTAB 0x00b8->0x0262 ; "NULL"
0207 00ba | | .STRTAB 0x00ba->0x0264 ; "STRING"
0208 00be | | .STRTAB 0x00be->0x0267 ; "The type of the literal"
0209 00d3 | | .STRTAB 0x00d3->0x0272 ; "The literal"
020a 00dc | | .STRTAB 0x00dc->0x0278 ; "The kind of the literal"
020b 00f1 | | .STRTAB 0x00f1->0x0283 ; "Context is which the literal appears"
020c 0113 | | .STREND 0x0113->0x0295
020d 4b49 4e44 |KIND| .STRTAB_STRINGS
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f5c,0x0000,0x0001,0x000c
029e 000b 02ce | | .DBG4T 0x000b,0x02ce,0x8000,0x0000
02a2 0010 02d2 | | .DBG4T 0x0010,0x02d2,0x8000,0x0000
02a6 0023 02d8 | # | .DBG4T 0x0023,0x02d8,0x0001,0x0000
02aa 008b 02e5 | | .DBG4T 0x008b,0x02e5,0x0001,0x4000
02ae 00cb 02f5 | | .DBG4T 0x00cb,0x02f5,0x0002,0x4000
02b2 011b 030c | | .DBG4T 0x011b,0x030c,0x0002,0x4000
02b6 014b 0000 | K | .DBG4T 0x014b,0x0000,0x0005,0x0000
02ba 0173 031e | s | .DBG4T 0x0173,0x031e,0x0002,0x0000
02be 017b 0321 | { !| .DBG4T 0x017b,0x0321,0x0002,0x4000
02c2 01a3 0333 | 3| .DBG4T 0x01a3,0x0333,0x0002,0x4000
02c6 01bb 033f | ?| .DBG4T 0x01bb,0x033f,0x0002,0x4000
02ca 01db 034b | K| .DBG4T 0x01db,0x034b,0x0001,0x4000
02ce ; --------------------------------------------------------------------------------------
02ce ; Debug chain
02ce ; --------------------------------------------------------------------------------------
02ce 0002 0000 | | .DBGLEN 0x0002,0x0000
02d0 000b 000d | | .DBGLNO 0x000b,0x000d
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug chain
02d2 ; --------------------------------------------------------------------------------------
02d2 0004 0000 | | .DBGLEN 0x0004,0x0000
02d4 0010 0012 | | .DBGLNO 0x0010,0x0012,0x0014,0x0016
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug chain
02d8 ; --------------------------------------------------------------------------------------
02d8 0008 0003 | | .DBGLEN 0x0008,0x0003
02da 0023 0030 | # 0| .DBGLNO 0x0023,0x0030,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0057,0x005c,0x0066
02e5 ; --------------------------------------------------------------------------------------
02e5 ; Debug chain
02e5 ; --------------------------------------------------------------------------------------
02e5 0002 0006 | | .DBGLEN 0x0002,0x0006
02e7 008b 0090 | | .DBGLNO 0x008b,0x0090,0x0095,0x009b,0x00a2,0x00ad,0x00b1,0x00b7
02ef 0001 0002 | | .XXX[0x6]
02f1 0004 0005 | |
02f3 0006 0003 | |
02f5 ; --------------------------------------------------------------------------------------
02f5 ; Debug chain
02f5 ; --------------------------------------------------------------------------------------
02f5 0001 000a | | .DBGLEN 0x0001,0x000a
02f7 00cb 00d2 | | .DBGLNO 0x00cb,0x00d2,0x00dd,0x00e0,0x00ed,0x00f1,0x00fe,0x0102,0x010f,0x0112,0x0115
0302 0001 000a | | .XXX[0xa]
0304 0002 0003 | |
0306 0007 0004 | |
0308 0005 0006 | |
030a 0008 0009 | |
030c ; --------------------------------------------------------------------------------------
030c ; Debug chain
030c ; --------------------------------------------------------------------------------------
030c 0000 0008 | | .DBGLEN 0x0000,0x0008
030e 011b 0132 | 2| .DBGLNO 0x011b,0x0132,0x0135,0x0138,0x013b,0x013e,0x0141,0x0144
0316 0001 0008 | | .XXX[0x8]
0318 0002 0003 | |
031a 0004 0005 | |
031c 0006 0007 | |
031e ; --------------------------------------------------------------------------------------
031e ; Debug chain
031e ; --------------------------------------------------------------------------------------
031e 0000 0001 | | .DBGLEN 0x0000,0x0001
0320 0173 | s | .DBGLNO 0x0173
0321 ; --------------------------------------------------------------------------------------
0321 ; Debug chain
0321 ; --------------------------------------------------------------------------------------
0321 0000 0008 | | .DBGLEN 0x0000,0x0008
0323 017b 0192 | { | .DBGLNO 0x017b,0x0192,0x0194,0x0196,0x0198,0x019a,0x019c,0x019e
032b 0001 0008 | | .XXX[0x8]
032d 0002 0003 | |
032f 0004 0005 | |
0331 0006 0007 | |
0333 ; --------------------------------------------------------------------------------------
0333 ; Debug chain
0333 ; --------------------------------------------------------------------------------------
0333 0000 0005 | | .DBGLEN 0x0000,0x0005
0335 01a3 01a9 | | .DBGLNO 0x01a3,0x01a9,0x01ac,0x01af,0x01b2
033a 0001 0005 | | .XXX[0x5]
033c 0002 0003 | |
033e 0004 | |
033f ; --------------------------------------------------------------------------------------
033f ; Debug chain
033f ; --------------------------------------------------------------------------------------
033f 0000 0005 | | .DBGLEN 0x0000,0x0005
0341 01bb 01c1 | | .DBGLNO 0x01bb,0x01c1,0x01c9,0x01cd,0x01d0
0346 0001 0005 | | .XXX[0x5]
0348 0002 0003 | |
034a 0004 | |
034b ; --------------------------------------------------------------------------------------
034b ; Debug chain
034b ; --------------------------------------------------------------------------------------
034b 0000 0006 | | .DBGLEN 0x0000,0x0006
034d 01db 01de | | .DBGLNO 0x01db,0x01de,0x01e4,0x01e9,0x01ec,0x01f1
0353 0001 0002 | | .XXX[0x6]
0355 0006 0003 | |
0357 0004 0005 | |
0359 0000 0000 | | .BLANK 0000[0xa7]