|
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, 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 0238 | 8 | .CONST 0x0238 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0062 | b | .CONST 0x0062 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0017 | | .CONST 0x0017 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 001e 02c7 | | Declare_Variable Any 001f 4801 |H | Short_Literal 0x1 0020 e001 | | Load 0x0,0x1 0021 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0022 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0023 e5ff | | Load 0x2,-0x1 0024 e001 | | Load 0x0,0x1 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0027 a402 | | Store_Unchecked 0x2,0x2 0028 e002 | | Load 0x0,0x2 0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002a 02c7 | | Declare_Variable Any 002b 00d8 | | Load_Top At_Offset_0 002c 1c00 | | Execute_Immediate Run_Utility,0x0 002d e002 | | Load 0x0,0x2 002e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002f 02c7 | | Declare_Variable Any 0030 00d8 | | Load_Top At_Offset_0 0031 1c00 | | Execute_Immediate Run_Utility,0x0 0032 e002 | | Load 0x0,0x2 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 02c7 | | Declare_Variable Any 0035 00d8 | | Load_Top At_Offset_0 0036 1c00 | | Execute_Immediate Run_Utility,0x0 0037 4800 |H | Short_Literal 0x0 0038 4803 |H | Short_Literal 0x3 0039 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 003b 03fd | | Declare_Type Discrete,Defined 003c 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 003e 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0040 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0042 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0044 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0046 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0048 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 004a a003 | | Store_Unchecked 0x0,0x3 004b 00c6 | | Action Check_Subprogram_Elaborated 004c 4809 |H | Short_Literal 0x9 004d 4802 |H | Short_Literal 0x2 004e 0099 | | Action Reference_Dynamic 004f e406 | | Load 0x2,0x6 0050 4807 |H | Short_Literal 0x7 0051 4802 |H | Short_Literal 0x2 0052 0099 | | Action Reference_Dynamic 0053 480b |H | Short_Literal 0xb 0054 4802 |H | Short_Literal 0x2 0055 0099 | | Action Reference_Dynamic 0056 480c |H | Short_Literal 0xc 0057 4802 |H | Short_Literal 0x2 0058 0099 | | Action Reference_Dynamic 0059 480d |H | Short_Literal 0xd 005a 4802 |H | Short_Literal 0x2 005b 0099 | | Action Reference_Dynamic 005c 0092 01a5 | | Action Push_String_Extended,0x1a5 ; "Pragmas" 005e e004 | | Load 0x0,0x4 005f e005 | | Load 0x0,0x5 0060 4817 |H | Short_Literal 0x17 0061 0007 | | Action Break_Optional 0062 BODY_0018: 0062 e402 | | Load 0x2,0x2 0063 e001 | | Load 0x0,0x1 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0066 680a |h | Jump_Zero 0x71 0067 e006 | | Load 0x0,0x6 0068 180e | | Execute Package,Field_Execute,Field_Number 0xe 0069 4807 |H | Short_Literal 0x7 006a e5ff | | Load 0x2,-0x1 006b 0092 01a6 | | Action Push_String_Extended,0x1a6 ; " is not a valid pathname" 006d 01cc | | Execute Vector,Catenate 006e e007 | | Load 0x0,0x7 006f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0070 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0071 e5fd | | Load 0x2,-0x3 0072 e402 | | Load 0x2,0x2 0073 e5fe | | Load 0x2,-0x2 0074 480e |H | Short_Literal 0xe 0075 4802 |H | Short_Literal 0x2 0076 0099 | | Action Reference_Dynamic 0077 e40f | | Load 0x2,0xf 0078 4810 |H | Short_Literal 0x10 0079 4802 |H | Short_Literal 0x2 007a 0099 | | Action Reference_Dynamic 007b 4811 |H | Short_Literal 0x11 007c 4802 |H | Short_Literal 0x2 007d 0099 | | Action Reference_Dynamic 007e 4812 |H | Short_Literal 0x12 007f 4802 |H | Short_Literal 0x2 0080 0099 | | Action Reference_Dynamic 0081 4813 |H | Short_Literal 0x13 0082 4802 |H | Short_Literal 0x2 0083 0099 | | Action Reference_Dynamic 0084 e414 | | Load 0x2,0x14 0085 4815 |H | Short_Literal 0x15 0086 4802 |H | Short_Literal 0x2 0087 0099 | | Action Reference_Dynamic 0088 8003 | | Call 0x0,0x3 0089 c402 | | Store 0x2,0x2 008a c5fd | | Store 0x2,-0x3 008b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009d | | .CONST 0x009d ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e008 | | Load 0x0,0x8 0094 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 e009 | | Load 0x0,0x9 0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009a 02c7 | | Declare_Variable Any 009b 00d8 | | Load_Top At_Offset_0 009c 1c00 | | Execute_Immediate Run_Utility,0x0 009d BODY_0090: 009d 00d9 | | Load_Top At_Offset_1 009e 00d9 | | Load_Top At_Offset_1 009f e5fe | | Load 0x2,-0x2 00a0 800a | | Call 0x0,0xa 00a1 c403 | | Store 0x2,0x3 00a2 c402 | | Store 0x2,0x2 00a3 00d8 | | Load_Top At_Offset_0 00a4 e009 | | Load 0x0,0x9 00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a6 4802 |H | Short_Literal 0x2 00a7 4803 |H | Short_Literal 0x3 00a8 0262 | b | Execute Discrete,In_Range 00a9 700f |p | Jump_Nonzero 0xb9 00aa 00d9 | | Load_Top At_Offset_1 00ab e5fd | | Load 0x2,-0x3 00ac e5ff | | Load 0x2,-0x1 00ad 820d | | Call 0x1,0xd 00ae c402 | | Store 0x2,0x2 00af 00d9 | | Load_Top At_Offset_1 00b0 e008 | | Load 0x0,0x8 00b1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b2 c402 | | Store 0x2,0x2 00b3 4801 |H | Short_Literal 0x1 00b4 4800 |H | Short_Literal 0x0 00b5 e5fe | | Load 0x2,-0x2 00b6 e00b | | Load 0x0,0xb 00b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b9 e006 | | Load 0x0,0x6 00ba 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bb 4807 |H | Short_Literal 0x7 00bc 0092 01a7 | | Action Push_String_Extended,0x1a7 ; "Problem creating object " 00be e5fe | | Load 0x2,-0x2 00bf 01cc | | Execute Vector,Catenate 00c0 0092 01a8 | | Action Push_String_Extended,0x1a8 ; ". " 00c2 01cc | | Execute Vector,Catenate 00c3 00db | | Load_Top At_Offset_3 00c4 e009 | | Load 0x0,0x9 00c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c6 01cc | | Execute Vector,Catenate 00c7 e007 | | Load 0x0,0x7 00c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4607 |F | Jump_Case 0x8 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00d5 7806 |x | Jump 0xdc ; case 0x1 00d6 7809 |x | Jump 0xe0 ; case 0x2 00d7 780d |x | Jump 0xe5 ; case 0x3 00d8 7810 |x | Jump 0xe9 ; case 0x4 00d9 7811 |x | Jump 0xeb ; case 0x5 00da 7812 |x | Jump 0xed ; case 0x6 00db 7815 |x | Jump 0xf1 ; case 0x7 00dc 00da | | Load_Top At_Offset_2 00dd 0091 01a1 | | Action Push_String_Extended_Indexed,0x1a1 ; "PRAGMA_NAME" 00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e0 00db | | Load_Top At_Offset_3 00e1 00db | | Load_Top At_Offset_3 00e2 00e0 | | Load_Encached Standard_Cache 00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 00da | | Load_Top At_Offset_2 00e6 00e0 | | Load_Encached Standard_Cache 00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00eb 00db | | Load_Top At_Offset_3 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed e406 | | Load 0x2,0x6 00ee 00dc | | Load_Top At_Offset_4 00ef 0267 | g | Execute Discrete,Predecessor 00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f1 e406 | | Load 0x2,0x6 00f2 00dc | | Load_Top At_Offset_4 00f3 0268 | h | Execute Discrete,Successor 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4800 |H | Short_Literal 0x0 00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e404 | | Load 0x2,0x4 0104 e002 | | Load 0x0,0x2 0105 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0106 6804 |h | Jump_Zero 0x10b 0107 e002 | | Load 0x0,0x2 0108 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0109 c405 | | Store 0x2,0x5 010a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010b e404 | | Load 0x2,0x4 010c e002 | | Load 0x0,0x2 010d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010e c405 | | Store 0x2,0x5 010f e404 | | Load 0x2,0x4 0110 e002 | | Load 0x0,0x2 0111 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0112 c404 | | Store 0x2,0x4 0113 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0114 0000 0000 | | .BLANK 0000[0x4] 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 e002 | | Load 0x0,0x2 011d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 011e 0f04 | | Execute_Immediate Equal,0x4 011f 7002 |p | Jump_Nonzero 0x122 0120 4800 |H | Short_Literal 0x0 0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0122 00da | | Load_Top At_Offset_2 0123 e00c | | Load 0x0,0xc 0124 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0125 c403 | | Store 0x2,0x3 0126 00da | | Load_Top At_Offset_2 0127 e00d | | Load 0x0,0xd 0128 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0129 c404 | | Store 0x2,0x4 012a 8408 | | Call 0x2,0x8 012b 4801 |H | Short_Literal 0x1 012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 e002 | | Load 0x0,0x2 0135 180f | | Execute Package,Field_Execute,Field_Number 0xf 0136 6802 |h | Jump_Zero 0x139 0137 00ea | | Load_Encached Null_String_Cache 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 00da | | Load_Top At_Offset_2 013a e002 | | Load 0x0,0x2 013b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0145 BODY_0140: 0145 00db | | Load_Top At_Offset_3 0146 4603 |F | Jump_Case 0x4 0147 7807 |x | Jump 0x14f ; case 0x0 0148 780a |x | Jump 0x153 ; case 0x1 0149 7809 |x | Jump 0x153 ; case 0x2 014a 7800 |x | Jump 0x14b ; case 0x3 014b e403 | | Load 0x2,0x3 014c e00e | | Load 0x0,0xe 014d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 014e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014f e7fe | | Load 0x3,-0x2 0150 e00d | | Load 0x0,0xd 0151 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0152 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0153 8602 | | Call 0x3,0x2 0154 0831 | 1 | Execute_Immediate Raise,0x31 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 4603 |F | Jump_Case 0x4 015d 7806 |x | Jump 0x164 ; case 0x0 015e 7808 |x | Jump 0x167 ; case 0x1 015f 7811 |x | Jump 0x171 ; case 0x2 0160 7800 |x | Jump 0x161 ; case 0x3 0161 0092 01a9 | | Action Push_String_Extended,0x1a9 ; "Name of the unit containing the pragma" 0163 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0164 0092 01aa | | Action Push_String_Extended,0x1aa ; "Name of the pragma" 0166 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0167 e405 | | Load 0x2,0x5 0168 e002 | | Load 0x0,0x2 0169 180f | | Execute Package,Field_Execute,Field_Number 0xf 016a 7003 |p | Jump_Nonzero 0x16e 016b 0092 01ab | | Action Push_String_Extended,0x1ab ; "First argument of the pragma" 016d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016e 0092 01ac | | Action Push_String_Extended,0x1ac ; "The pragma has no arguments" 0170 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0171 e405 | | Load 0x2,0x5 0172 e002 | | Load 0x0,0x2 0173 180f | | Execute Package,Field_Execute,Field_Number 0xf 0174 7003 |p | Jump_Nonzero 0x178 0175 0092 01ad | | Action Push_String_Extended,0x1ad ; "Second argument of the pragma" 0177 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0178 0092 01ae | | Action Push_String_Extended,0x1ae ; "The pragma has no second argument" 017a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017b 0000 0000 | | .BLANK 0000[0x5] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e002 | | Load 0x0,0x2 0184 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0185 c7fd | | Store 0x3,-0x3 0186 e002 | | Load 0x0,0x2 0187 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0188 c7fc | | Store 0x3,-0x4 0189 00da | | Load_Top At_Offset_2 018a 4603 |F | Jump_Case 0x4 018b 7806 |x | Jump 0x192 ; case 0x0 018c 7808 |x | Jump 0x195 ; case 0x1 018d 7807 |x | Jump 0x195 ; case 0x2 018e 7800 |x | Jump 0x18f ; case 0x3 018f e403 | | Load 0x2,0x3 0190 c7fd | | Store 0x3,-0x3 0191 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0192 00db | | Load_Top At_Offset_3 0193 c7fd | | Store 0x3,-0x3 0194 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0195 e405 | | Load 0x2,0x5 0196 c7fd | | Store 0x3,-0x3 0197 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e405 | | Load 0x2,0x5 019c 840a | | Call 0x2,0xa 019d BODY_0198: 019d 8408 | | Call 0x2,0x8 019e 00d8 | | Load_Top At_Offset_0 019f 00cb | | Action Pop_Block_With_Result 01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a1 ; -------------------------------------------------------------------------------------- 01a1 ; STRING TABLE 01a1 ; -------------------------------------------------------------------------------------- 01a1 001e | | .STRTAB 0x001e->0x01b0 ; "PRAGMA_NAME" 01a2 0027 | ' | .STRTAB 0x0027->0x01b5 ; "ARGUMENT1" 01a3 002e | . | .STRTAB 0x002e->0x01ba ; "ARGUMENT2" 01a4 0035 | 5 | .STRTAB 0x0035->0x01be ; "PARENT_UNIT" 01a5 003e | > | .STRTAB 0x003e->0x01c4 ; "Pragmas" 01a6 0043 | C | .STRTAB 0x0043->0x01c7 ; " is not a valid pathname" 01a7 0059 | Y | .STRTAB 0x0059->0x01d3 ; "Problem creating object " 01a8 006f | o | .STRTAB 0x006f->0x01df ; ". " 01a9 0070 | p | .STRTAB 0x0070->0x01e1 ; "Name of the unit containing the pragma" 01aa 0094 | | .STRTAB 0x0094->0x01f4 ; "Name of the pragma" 01ab 00a4 | | .STRTAB 0x00a4->0x01fd ; "First argument of the pragma" 01ac 00be | | .STRTAB 0x00be->0x020b ; "The pragma has no arguments" 01ad 00d7 | | .STRTAB 0x00d7->0x0218 ; "Second argument of the pragma" 01ae 00f2 | | .STRTAB 0x00f2->0x0227 ; "The pragma has no second argument" 01af 0111 | | .STREND 0x0111->0x0237 01b0 5052 4147 |PRAG| .STRTAB_STRINGS 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f6b,0x0000,0x0001,0x000d 023e 000b 0272 | r| .DBG4T 0x000b,0x0272,0x8000,0x0000 0242 0010 0276 | v| .DBG4T 0x0010,0x0276,0x8000,0x0000 0246 001b 027a | z| .DBG4T 0x001b,0x027a,0x0001,0x0000 024a 0093 028c | | .DBG4T 0x0093,0x028c,0x0001,0x4000 024e 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000 0252 00fb 029c | | .DBG4T 0x00fb,0x029c,0x0002,0x0000 0256 0103 029f | | .DBG4T 0x0103,0x029f,0x0001,0x0000 025a 011b 02a5 | | .DBG4T 0x011b,0x02a5,0x0002,0x4000 025e 0133 02b3 | 3 | .DBG4T 0x0133,0x02b3,0x0002,0x0000 0262 0143 02b8 | C | .DBG4T 0x0143,0x02b8,0x0002,0x4000 0266 015b 02c2 | [ | .DBG4T 0x015b,0x02c2,0x0002,0x4000 026a 0183 02d6 | | .DBG4T 0x0183,0x02d6,0x0001,0x4000 026e 019b 02e4 | | .DBG4T 0x019b,0x02e4,0x0004,0x0000 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug chain 0272 ; -------------------------------------------------------------------------------------- 0272 0002 0000 | | .DBGLEN 0x0002,0x0000 0274 000b 000d | | .DBGLNO 0x000b,0x000d 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0002 0000 | | .DBGLEN 0x0002,0x0000 0278 0010 0012 | | .DBGLNO 0x0010,0x0012 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 000d 0003 | | .DBGLEN 0x000d,0x0003 027c 001b 0028 | (| .DBGLNO 0x001b,0x0028,0x002d,0x0032,0x0037,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x0062,0x0067,0x0071 028c ; -------------------------------------------------------------------------------------- 028c ; Debug chain 028c ; -------------------------------------------------------------------------------------- 028c 0002 0006 | | .DBGLEN 0x0002,0x0006 028e 0093 0098 | | .DBGLNO 0x0093,0x0098,0x009d,0x00a3,0x00aa,0x00af,0x00b3,0x00b9 0296 0001 0002 | | .XXX[0x6] 0298 0004 0005 | | 029a 0006 0003 | | 029c ; -------------------------------------------------------------------------------------- 029c ; Debug chain 029c ; -------------------------------------------------------------------------------------- 029c 0000 0001 | | .DBGLEN 0x0000,0x0001 029e 00fb | | .DBGLNO 0x00fb 029f ; -------------------------------------------------------------------------------------- 029f ; Debug chain 029f ; -------------------------------------------------------------------------------------- 029f 0000 0004 | | .DBGLEN 0x0000,0x0004 02a1 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010b,0x010f 02a5 ; -------------------------------------------------------------------------------------- 02a5 ; Debug chain 02a5 ; -------------------------------------------------------------------------------------- 02a5 0000 0006 | | .DBGLEN 0x0000,0x0006 02a7 011b 0120 | | .DBGLNO 0x011b,0x0120,0x0122,0x0126,0x012a,0x012b 02ad 0001 0006 | | .XXX[0x6] 02af 0002 0003 | | 02b1 0004 0005 | | 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 0000 0003 | | .DBGLEN 0x0000,0x0003 02b5 0133 0137 | 3 7| .DBGLNO 0x0133,0x0137,0x0139 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug chain 02b8 ; -------------------------------------------------------------------------------------- 02b8 0000 0004 | | .DBGLEN 0x0000,0x0004 02ba 0145 014b | E K| .DBGLNO 0x0145,0x014b,0x014f,0x0153 02be 0001 0004 | | .XXX[0x4] 02c0 0002 0003 | | 02c2 ; -------------------------------------------------------------------------------------- 02c2 ; Debug chain 02c2 ; -------------------------------------------------------------------------------------- 02c2 0000 0009 | | .DBGLEN 0x0000,0x0009 02c4 015b 0161 | [ a| .DBGLNO 0x015b,0x0161,0x0164,0x0167,0x016b,0x016e,0x0171,0x0175,0x0178 02cd 0001 0009 | | .XXX[0x9] 02cf 0002 0003 | | 02d1 0004 0005 | | 02d3 0006 0007 | | 02d5 0008 | | 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug chain 02d6 ; -------------------------------------------------------------------------------------- 02d6 0000 0006 | | .DBGLEN 0x0000,0x0006 02d8 0183 0186 | | .DBGLNO 0x0183,0x0186,0x0189,0x018f,0x0192,0x0195 02de 0001 0002 | | .XXX[0x6] 02e0 0003 0006 | | 02e2 0004 0005 | | 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug chain 02e4 ; -------------------------------------------------------------------------------------- 02e4 0001 0002 | | .DBGLEN 0x0001,0x0002 02e6 019b 019d | | .DBGLNO 0x019b,0x019d,0x019e 02e9 0000 0000 | | .BLANK 0000[0x117]