|
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_043cfb
└─⟦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 03d0 | | .CONST 0x03d0 ; 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 0056 | V | .CONST 0x0056 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b e012 | | Load 0x0,0x12 000c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 02c7 | | Declare_Variable Any 000f 00d8 | | Load_Top At_Offset_0 0010 1c00 | | Execute_Immediate Run_Utility,0x0 0011 e012 | | Load 0x0,0x12 0012 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0013 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0014 e012 | | Load 0x0,0x12 0015 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0016 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0017 e012 | | Load 0x0,0x12 0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0019 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001a 00e3 | | Load_Encached Natural_Cache 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4804 |H | Short_Literal 0x4 001d 032d | - | Declare_Type Record,Defined 001e 00e4 | | Load_Encached Positive_Cache 001f 0266 | f | Execute Discrete,Bounds 0020 00da | | Load_Top At_Offset_2 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 4801 |H | Short_Literal 0x1 0023 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0024 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0026 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0028 a01b | | Store_Unchecked 0x0,0x1b 0029 00c6 | | Action Check_Subprogram_Elaborated 002a 00db | | Load_Top At_Offset_3 002b 00e4 | | Load_Encached Positive_Cache 002c e604 | | Load 0x3,0x4 002d 4806 |H | Short_Literal 0x6 002e 4803 |H | Short_Literal 0x3 002f 0099 | | Action Reference_Dynamic 0030 e01e | | Load 0x0,0x1e 0031 e01f | | Load 0x0,0x1f 0032 480d |H | Short_Literal 0xd 0033 0007 | | Action Break_Optional 0034 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0036 e020 | | Load 0x0,0x20 0037 e021 | ! | Load 0x0,0x21 0038 49ff |I | Short_Literal 0x1ff 0039 e012 | | Load 0x0,0x12 003a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 003b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003c e012 | | Load 0x0,0x12 003d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 003e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003f 480e |H | Short_Literal 0xe 0040 4803 |H | Short_Literal 0x3 0041 0099 | | Action Reference_Dynamic 0042 e022 | " | Load 0x0,0x22 0043 0387 | | Declare_Variable Package 0044 00d8 | | Load_Top At_Offset_0 0045 020f | | Execute Module,Activate 0046 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0048 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 004a 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 004c 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 004e 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0050 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0052 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0054 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0056 BODY_0008: 0056 8617 | | Call 0x3,0x17 0057 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 005d 821a | | Call 0x1,0x1a 005e 0092 02eb | | Action Push_String_Extended,0x2eb ; " for " 0060 01cc | | Execute Vector,Catenate 0061 00db | | Load_Top At_Offset_3 0062 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0063 821c | | Call 0x1,0x1c 0064 01cc | | Execute Vector,Catenate 0065 0092 02ec | | Action Push_String_Extended,0x2ec ; " in " 0067 01cc | | Execute Vector,Catenate 0068 00db | | Load_Top At_Offset_3 0069 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 006a 821c | | Call 0x1,0x1c 006b 01cc | | Execute Vector,Catenate 006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0075 e9fe | | Load 0x4,-0x2 0076 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0077 027f | | Execute Discrete,Equal 0078 6812 |h | Jump_Zero 0x8b 0079 00da | | Load_Top At_Offset_2 007a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007b e9fe | | Load 0x4,-0x2 007c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007d 027f | | Execute Discrete,Equal 007e 6806 |h | Jump_Zero 0x85 007f 00da | | Load_Top At_Offset_2 0080 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0081 e9fe | | Load 0x4,-0x2 0082 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0083 027c | | | Execute Discrete,Less 0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0085 00da | | Load_Top At_Offset_2 0086 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0087 e9fe | | Load 0x4,-0x2 0088 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0089 027c | | | Execute Discrete,Less 008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008b 00da | | Load_Top At_Offset_2 008c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008d e9fe | | Load 0x4,-0x2 008e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008f 027c | | | Execute Discrete,Less 0090 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e5fc | | Load 0x2,-0x4 00a4 e5ff | | Load 0x2,-0x1 00a5 e7ff | | Load 0x3,-0x1 00a6 0092 02ed | | Action Push_String_Extended,0x2ed ; "Corrupt offset map for <<1>> in <2>: " 00a8 e9ff | | Load 0x4,-0x1 00a9 01cc | | Execute Vector,Catenate 00aa e220 | | Load 0x1,0x20 00ab 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ac 4801 |H | Short_Literal 0x1 00ad a407 | | Store_Unchecked 0x2,0x7 00ae 4800 |H | Short_Literal 0x0 00af a5fb | | Store_Unchecked 0x2,-0x5 00b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e5fc | | Load 0x2,-0x4 00bc e5ff | | Load 0x2,-0x1 00bd e7ff | | Load 0x3,-0x1 00be 0092 02ee | | Action Push_String_Extended,0x2ee ; "Offset map for <<1>> in <2> is corrupt" 00c0 e220 | | Load 0x1,0x20 00c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c2 e40c | | Load 0x2,0xc 00c3 0a01 | | Execute_Immediate Plus,0x1 00c4 c40c | | Store 0x2,0xc 00c5 4800 |H | Short_Literal 0x0 00c6 a407 | | Store_Unchecked 0x2,0x7 00c7 4800 |H | Short_Literal 0x0 00c8 a5fb | | Store_Unchecked 0x2,-0x5 00c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00db | | .CONST 0x00db ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 e012 | | Load 0x0,0x12 00d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00d6 02c7 | | Declare_Variable Any 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 00e3 | | Load_Encached Natural_Cache 00da 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00db BODY_00d0: 00db 00be | | Action Activate_Tasks 00dc 00d9 | | Load_Top At_Offset_1 00dd e9ff | | Load 0x4,-0x1 00de e012 | | Load 0x0,0x12 00df 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00e1 c802 | | Store 0x4,0x2 00e2 00cf | | Action Mark_Auxiliary 00e3 7809 |x | Jump 0xed 00e4 00d9 | | Load_Top At_Offset_1 00e5 0a01 | | Execute_Immediate Plus,0x1 00e6 005a | Z | Store_Top Discrete,At_Offset_2 00e7 00da | | Load_Top At_Offset_2 00e8 e012 | | Load 0x0,0x12 00e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ea 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00eb c802 | | Store 0x4,0x2 00ec 00c9 | | Action Pop_Auxiliary_Loop 00ed 00da | | Load_Top At_Offset_2 00ee e012 | | Load 0x0,0x12 00ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00f0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00f1 6ff2 |o | Jump_Zero 0xe4 00f2 00ce | | Action Pop_Auxiliary 00f3 00d8 | | Load_Top At_Offset_0 00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0103 | | .CONST 0x0103 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb e40d | | Load 0x2,0xd 00fc e012 | | Load 0x0,0x12 00fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00fe 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00ff e602 | | Load 0x3,0x2 0100 e012 | | Load 0x0,0x12 0101 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0102 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0103 BODY_00f8: 0103 00d8 | | Load_Top At_Offset_0 0104 00da | | Load_Top At_Offset_2 0105 027e | ~ | Execute Discrete,Not_Equal 0106 680f |h | Jump_Zero 0x116 0107 0092 02ef | | Action Push_String_Extended,0x2ef ; "Subsystem mode " 0109 00d9 | | Load_Top At_Offset_1 010a 8219 | | Call 0x1,0x19 010b 01cc | | Execute Vector,Catenate 010c 0092 02f0 | | Action Push_String_Extended,0x2f0 ; " does not match subsystem mode " 010e 01cc | | Execute Vector,Catenate 010f 00da | | Load_Top At_Offset_2 0110 8219 | | Call 0x1,0x19 0111 01cc | | Execute Vector,Catenate 0112 0092 02f1 | | Action Push_String_Extended,0x2f1 ; " in unit map" 0114 01cc | | Execute Vector,Catenate 0115 8610 | | Call 0x3,0x10 0116 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0123 | # | .CONST 0x0123 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b e40d | | Load 0x2,0xd 011c e012 | | Load 0x0,0x12 011d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 011e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 011f e602 | | Load 0x3,0x2 0120 e012 | | Load 0x0,0x12 0121 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0122 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0123 BODY_0118: 0123 00d8 | | Load_Top At_Offset_0 0124 00da | | Load_Top At_Offset_2 0125 027e | ~ | Execute Discrete,Not_Equal 0126 680f |h | Jump_Zero 0x136 0127 0092 02f2 | | Action Push_String_Extended,0x2f2 ; "Subsystem ID " 0129 00d9 | | Load_Top At_Offset_1 012a 821b | | Call 0x1,0x1b 012b 01cc | | Execute Vector,Catenate 012c 0092 02f3 | | Action Push_String_Extended,0x2f3 ; " does not match subsystem ID " 012e 01cc | | Execute Vector,Catenate 012f 00da | | Load_Top At_Offset_2 0130 821b | | Call 0x1,0x1b 0131 01cc | | Execute Vector,Catenate 0132 0092 02f1 | | Action Push_String_Extended,0x2f1 ; " in unit map" 0134 01cc | | Execute Vector,Catenate 0135 8610 | | Call 0x3,0x10 0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0148 | H | .CONST 0x0148 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0004 | | .CONST 0x0004 ; Number of locals 013b INIT_0138: 013b e012 | | Load 0x0,0x12 013c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 013d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013e e602 | | Load 0x3,0x2 013f e012 | | Load 0x0,0x12 0140 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0141 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0142 e012 | | Load 0x0,0x12 0143 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0144 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0145 02c7 | | Declare_Variable Any 0146 00d8 | | Load_Top At_Offset_0 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 BODY_0138: 0148 00d8 | | Load_Top At_Offset_0 0149 0120 | | Execute Any,Is_Value 014a 6804 |h | Jump_Zero 0x14f 014b e012 | | Load 0x0,0x12 014c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014e 7801 |x | Jump 0x150 014f 00d8 | | Load_Top At_Offset_0 0150 e012 | | Load 0x0,0x12 0151 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0152 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0153 e40d | | Load 0x2,0xd 0154 e7ff | | Load 0x3,-0x1 0155 8402 | | Call 0x2,0x2 0156 e012 | | Load 0x0,0x12 0157 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0158 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0159 c40d | | Store 0x2,0xd 015a c802 | | Store 0x4,0x2 015b c804 | | Store 0x4,0x4 015c 00d8 | | Load_Top At_Offset_0 015d e012 | | Load 0x0,0x12 015e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 015f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0160 4610 |F | Jump_Case 0x11 0161 7816 |x | Jump 0x178 ; case 0x0 0162 780f |x | Jump 0x172 ; case 0x1 0163 780e |x | Jump 0x172 ; case 0x2 0164 780d |x | Jump 0x172 ; case 0x3 0165 780c |x | Jump 0x172 ; case 0x4 0166 7825 |x% | Jump 0x18c ; case 0x5 0167 780a |x | Jump 0x172 ; case 0x6 0168 7809 |x | Jump 0x172 ; case 0x7 0169 7808 |x | Jump 0x172 ; case 0x8 016a 7807 |x | Jump 0x172 ; case 0x9 016b 7806 |x | Jump 0x172 ; case 0xa 016c 7805 |x | Jump 0x172 ; case 0xb 016d 7804 |x | Jump 0x172 ; case 0xc 016e 7803 |x | Jump 0x172 ; case 0xd 016f 7802 |x | Jump 0x172 ; case 0xe 0170 7801 |x | Jump 0x172 ; case 0xf 0171 7800 |x | Jump 0x172 ; case 0x10 0172 00d8 | | Load_Top At_Offset_0 0173 e012 | | Load 0x0,0x12 0174 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0175 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0176 840f | | Call 0x2,0xf 0177 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0178 00d9 | | Load_Top At_Offset_1 0179 00db | | Load_Top At_Offset_3 017a 027e | ~ | Execute Discrete,Not_Equal 017b 680f |h | Jump_Zero 0x18b 017c 0092 02f4 | | Action Push_String_Extended,0x2f4 ; "Unit number " 017e 00da | | Load_Top At_Offset_2 017f 821a | | Call 0x1,0x1a 0180 01cc | | Execute Vector,Catenate 0181 0092 02f5 | | Action Push_String_Extended,0x2f5 ; " does not match unit number " 0183 01cc | | Execute Vector,Catenate 0184 00db | | Load_Top At_Offset_3 0185 821a | | Call 0x1,0x1a 0186 01cc | | Execute Vector,Catenate 0187 0092 02f1 | | Action Push_String_Extended,0x2f1 ; " in unit map" 0189 01cc | | Execute Vector,Catenate 018a 8610 | | Call 0x3,0x10 018b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018c 0092 02f4 | | Action Push_String_Extended,0x2f4 ; "Unit number " 018e 00da | | Load_Top At_Offset_2 018f 821a | | Call 0x1,0x1a 0190 01cc | | Execute Vector,Catenate 0191 0092 02f6 | | Action Push_String_Extended,0x2f6 ; " does not exist in the unit map" 0193 01cc | | Execute Vector,Catenate 0194 8610 | | Call 0x3,0x10 0195 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01b1 | | .CONST 0x01b1 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0008 | | .CONST 0x0008 ; Number of locals 019b INIT_0198: 019b e602 | | Load 0x3,0x2 019c 8612 | | Call 0x3,0x12 019d 4801 |H | Short_Literal 0x1 019e 00d9 | | Load_Top At_Offset_1 019f e604 | | Load 0x3,0x4 01a0 035b | [ | Declare_Type Array,Constrained 01a1 0337 | 7 | Declare_Variable Array 01a2 e012 | | Load 0x0,0x12 01a3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01a4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01a5 02c7 | | Declare_Variable Any 01a6 00d8 | | Load_Top At_Offset_0 01a7 1c00 | | Execute_Immediate Run_Utility,0x0 01a8 e012 | | Load 0x0,0x12 01a9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01aa 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ab e60f | | Load 0x3,0xf 01ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ad 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 01af 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 01b1 BODY_0198: 01b1 00be | | Action Activate_Tasks 01b2 e60f | | Load 0x3,0xf 01b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b4 49ff |I | Short_Literal 0x1ff 01b5 e60f | | Load 0x3,0xf 01b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01b7 003b | ; | Store_Top Access,At_Offset_3 01b8 e804 | | Load 0x4,0x4 01b9 e602 | | Load 0x3,0x2 01ba e012 | | Load 0x0,0x12 01bb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01bc 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01bd c804 | | Store 0x4,0x4 01be 00cf | | Action Mark_Auxiliary 01bf e802 | | Load 0x4,0x2 01c0 4801 |H | Short_Literal 0x1 01c1 0263 | c | Execute Discrete,Above_Bound 01c2 7035 |p5 | Jump_Nonzero 0x1f8 01c3 e804 | | Load 0x4,0x4 01c4 e012 | | Load 0x0,0x12 01c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01c6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01c7 00d9 | | Load_Top At_Offset_1 01c8 e803 | | Load 0x4,0x3 01c9 01d5 | | Execute Vector,Field_Reference 01ca 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01cb e804 | | Load 0x4,0x4 01cc e012 | | Load 0x0,0x12 01cd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01ce 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d0 00d9 | | Load_Top At_Offset_1 01d1 e803 | | Load 0x4,0x3 01d2 01d5 | | Execute Vector,Field_Reference 01d3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01d4 e804 | | Load 0x4,0x4 01d5 e012 | | Load 0x0,0x12 01d6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d9 00d9 | | Load_Top At_Offset_1 01da e803 | | Load 0x4,0x3 01db 01d5 | | Execute Vector,Field_Reference 01dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01dd e804 | | Load 0x4,0x4 01de e012 | | Load 0x0,0x12 01df 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01e0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e2 00d9 | | Load_Top At_Offset_1 01e3 e803 | | Load 0x4,0x3 01e4 01d5 | | Execute Vector,Field_Reference 01e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e6 00d8 | | Load_Top At_Offset_0 01e7 e803 | | Load 0x4,0x3 01e8 01d5 | | Execute Vector,Field_Reference 01e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01ea 7006 |p | Jump_Nonzero 0x1f1 01eb 00d8 | | Load_Top At_Offset_0 01ec e803 | | Load 0x4,0x3 01ed 01d5 | | Execute Vector,Field_Reference 01ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ef 7001 |p | Jump_Nonzero 0x1f1 01f0 8807 | | Call 0x4,0x7 01f1 e804 | | Load 0x4,0x4 01f2 e012 | | Load 0x0,0x12 01f3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01f5 c804 | | Store 0x4,0x4 01f6 00c8 | | Action Pop_Auxiliary_Range 01f7 3fcb |? | Loop_Increasing 0x1c3 01f8 00ce | | Action Pop_Auxiliary 01f9 e803 | | Load 0x4,0x3 01fa e607 | | Load 0x3,0x7 01fb e608 | | Load 0x3,0x8 01fc e609 | | Load 0x3,0x9 01fd 480a |H | Short_Literal 0xa 01fe 4803 |H | Short_Literal 0x3 01ff 0099 | | Action Reference_Dynamic 0200 480b |H | Short_Literal 0xb 0201 4803 |H | Short_Literal 0x3 0202 0099 | | Action Reference_Dynamic 0203 801b | | Call 0x0,0x1b 0204 00d1 | | Pop_Control Pop_Count_1 0205 00cf | | Action Mark_Auxiliary 0206 e802 | | Load 0x4,0x2 0207 4801 |H | Short_Literal 0x1 0208 0263 | c | Execute Discrete,Above_Bound 0209 7034 |p4 | Jump_Nonzero 0x23e 020a 00d8 | | Load_Top At_Offset_0 020b e803 | | Load 0x4,0x3 020c 01d5 | | Execute Vector,Field_Reference 020d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 020e 6801 |h | Jump_Zero 0x210 020f 8808 | | Call 0x4,0x8 0210 00d8 | | Load_Top At_Offset_0 0211 0c02 | | Execute_Immediate Greater_Equal,0x2 0212 6829 |h) | Jump_Zero 0x23c 0213 00d8 | | Load_Top At_Offset_0 0214 e803 | | Load 0x4,0x3 0215 01d5 | | Execute Vector,Field_Reference 0216 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0217 00d9 | | Load_Top At_Offset_1 0218 0aff | | Execute_Immediate Plus,-0x1 0219 e803 | | Load 0x4,0x3 021a 01d5 | | Execute Vector,Field_Reference 021b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021c 027f | | Execute Discrete,Equal 021d 681e |h | Jump_Zero 0x23c 021e 00d8 | | Load_Top At_Offset_0 021f 0aff | | Execute_Immediate Plus,-0x1 0220 e803 | | Load 0x4,0x3 0221 01d5 | | Execute Vector,Field_Reference 0222 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0223 00d9 | | Load_Top At_Offset_1 0224 0aff | | Execute_Immediate Plus,-0x1 0225 e803 | | Load 0x4,0x3 0226 01d5 | | Execute Vector,Field_Reference 0227 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0228 0273 | s | Execute Discrete,Plus 0229 c805 | | Store 0x4,0x5 022a 00d8 | | Load_Top At_Offset_0 022b e803 | | Load 0x4,0x3 022c 01d5 | | Execute Vector,Field_Reference 022d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022e e805 | | Load 0x4,0x5 022f 027c | | | Execute Discrete,Less 0230 680b |h | Jump_Zero 0x23c 0231 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "Offset " 0233 00d9 | | Load_Top At_Offset_1 0234 e803 | | Load 0x4,0x3 0235 01d5 | | Execute Vector,Field_Reference 0236 8605 | | Call 0x3,0x5 0237 01cc | | Execute Vector,Catenate 0238 0092 02f8 | | Action Push_String_Extended,0x2f8 ; " is not unique" 023a 01cc | | Execute Vector,Catenate 023b 8610 | | Call 0x3,0x10 023c 00c8 | | Action Pop_Auxiliary_Range 023d 3fcc |? | Loop_Increasing 0x20a 023e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0249 | I | .CONST 0x0249 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 e012 | | Load 0x0,0x12 0244 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0246 02c7 | | Declare_Variable Any 0247 00d8 | | Load_Top At_Offset_0 0248 1c00 | | Execute_Immediate Run_Utility,0x0 0249 BODY_0240: 0249 00d8 | | Load_Top At_Offset_0 024a 0120 | | Execute Any,Is_Value 024b 6804 |h | Jump_Zero 0x250 024c e012 | | Load 0x0,0x12 024d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024f 7801 |x | Jump 0x251 0250 00d8 | | Load_Top At_Offset_0 0251 e602 | | Load 0x3,0x2 0252 4800 |H | Short_Literal 0x0 0253 e00f | | Load 0x0,0xf 0254 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0255 e7ff | | Load 0x3,-0x1 0256 e012 | | Load 0x0,0x12 0257 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0258 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0259 c602 | | Store 0x3,0x2 025a c802 | | Store 0x4,0x2 025b 00d8 | | Load_Top At_Offset_0 025c e012 | | Load 0x0,0x12 025d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 025e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 025f 7007 |p | Jump_Nonzero 0x267 0260 00d8 | | Load_Top At_Offset_0 0261 e012 | | Load 0x0,0x12 0262 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0263 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0264 840f | | Call 0x2,0xf 0265 00cc | | Action Pop_Block 0266 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0267 e40e | | Load 0x2,0xe 0268 6804 |h | Jump_Zero 0x26d 0269 8613 | | Call 0x3,0x13 026a 8614 | | Call 0x3,0x14 026b 8615 | | Call 0x3,0x15 026c 7803 |x | Jump 0x270 026d 0092 02f9 | | Action Push_String_Extended,0x2f9 ; "Unit map is missing" 026f 8610 | | Call 0x3,0x10 0270 8616 | | Call 0x3,0x16 0271 00d8 | | Load_Top At_Offset_0 0272 0120 | | Execute Any,Is_Value 0273 6804 |h | Jump_Zero 0x278 0274 e012 | | Load 0x0,0x12 0275 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0277 7801 |x | Jump 0x279 0278 00d8 | | Load_Top At_Offset_0 0279 e602 | | Load 0x3,0x2 027a e012 | | Load 0x0,0x12 027b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 027c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 027d c602 | | Store 0x3,0x2 027e c802 | | Store 0x4,0x2 027f 00d8 | | Load_Top At_Offset_0 0280 e012 | | Load 0x0,0x12 0281 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0282 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0283 7005 |p | Jump_Nonzero 0x289 0284 00d8 | | Load_Top At_Offset_0 0285 e012 | | Load 0x0,0x12 0286 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0287 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0288 840f | | Call 0x2,0xf 0289 e407 | | Load 0x2,0x7 028a 6801 |h | Jump_Zero 0x28c 028b 8611 | | Call 0x3,0x11 028c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 02a1 | | .CONST 0x02a1 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 e806 | | Load 0x4,0x6 0294 4801 |H | Short_Literal 0x1 0295 e80b | | Load 0x4,0xb 0296 e803 | | Load 0x4,0x3 0297 01d5 | | Execute Vector,Field_Reference 0298 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0299 e80b | | Load 0x4,0xb 029a e803 | | Load 0x4,0x3 029b 01d5 | | Execute Vector,Field_Reference 029c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029d e60f | | Load 0x3,0xf 029e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029f c806 | | Store 0x4,0x6 02a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a1 TRAP_0290: 02a1 e60f | | Load 0x3,0xf 02a2 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 02a3 010f | | Execute Exception,Equal 02a4 680d |h | Jump_Zero 0x2b2 02a5 0092 02fa | | Action Push_String_Extended,0x2fa ; "Next available offset for " 02a7 e80b | | Load 0x4,0xb 02a8 e803 | | Load 0x4,0x3 02a9 01d5 | | Execute Vector,Field_Reference 02aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ab 821c | | Call 0x1,0x1c 02ac 01cc | | Execute Vector,Catenate 02ad 0092 02f8 | | Action Push_String_Extended,0x2f8 ; " is not unique" 02af 01cc | | Execute Vector,Catenate 02b0 8610 | | Call 0x3,0x10 02b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b2 0100 | | Execute Exception,Raise 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 02d9 | | .CONST 0x02d9 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb e80b | | Load 0x4,0xb 02bc e803 | | Load 0x4,0x3 02bd 01d5 | | Execute Vector,Field_Reference 02be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02bf e806 | | Load 0x4,0x6 02c0 e60f | | Load 0x3,0xf 02c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c2 a805 | | Store_Unchecked 0x4,0x5 02c3 e80b | | Load 0x4,0xb 02c4 e803 | | Load 0x4,0x3 02c5 01d5 | | Execute Vector,Field_Reference 02c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02c7 e805 | | Load 0x4,0x5 02c8 027b | { | Execute Discrete,Greater_Equal 02c9 680e |h | Jump_Zero 0x2d8 02ca 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "Offset " 02cc e80b | | Load 0x4,0xb 02cd e803 | | Load 0x4,0x3 02ce 01d5 | | Execute Vector,Field_Reference 02cf 8605 | | Call 0x3,0x5 02d0 01cc | | Execute Vector,Catenate 02d1 0092 02fb | | Action Push_String_Extended,0x2fb ; " is greater than the next available offset " 02d3 01cc | | Execute Vector,Catenate 02d4 e805 | | Load 0x4,0x5 02d5 821a | | Call 0x1,0x1a 02d6 01cc | | Execute Vector,Catenate 02d7 8610 | | Call 0x3,0x10 02d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d9 TRAP_02b8: 02d9 e60f | | Load 0x3,0xf 02da 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02db 010f | | Execute Exception,Equal 02dc 680d |h | Jump_Zero 0x2ea 02dd 0092 02fc | | Action Push_String_Extended,0x2fc ; "Declaration " 02df e80b | | Load 0x4,0xb 02e0 e803 | | Load 0x4,0x3 02e1 01d5 | | Execute Vector,Field_Reference 02e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02e3 821c | | Call 0x1,0x1c 02e4 01cc | | Execute Vector,Catenate 02e5 0092 02fd | | Action Push_String_Extended,0x2fd ; " does not have a next available offset" 02e7 01cc | | Execute Vector,Catenate 02e8 8610 | | Call 0x3,0x10 02e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ea 0100 | | Execute Exception,Raise 02eb ; -------------------------------------------------------------------------------------- 02eb ; STRING TABLE 02eb ; -------------------------------------------------------------------------------------- 02eb 0028 | ( | .STRTAB 0x0028->0x02ff ; " for " 02ec 002b | + | .STRTAB 0x002b->0x0301 ; " in " 02ed 002d | - | .STRTAB 0x002d->0x0303 ; "Corrupt offset map for <<1>> in <2>: " 02ee 0050 | P | .STRTAB 0x0050->0x0316 ; "Offset map for <<1>> in <2> is corrupt" 02ef 0074 | t | .STRTAB 0x0074->0x0329 ; "Subsystem mode " 02f0 0081 | | .STRTAB 0x0081->0x0330 ; " does not match subsystem mode " 02f1 009e | | .STRTAB 0x009e->0x0340 ; " in unit map" 02f2 00a8 | | .STRTAB 0x00a8->0x0346 ; "Subsystem ID " 02f3 00b3 | | .STRTAB 0x00b3->0x034c ; " does not match subsystem ID " 02f4 00ce | | .STRTAB 0x00ce->0x035b ; "Unit number " 02f5 00d8 | | .STRTAB 0x00d8->0x0361 ; " does not match unit number " 02f6 00f2 | | .STRTAB 0x00f2->0x036f ; " does not exist in the unit map" 02f7 010f | | .STRTAB 0x010f->0x037e ; "Offset " 02f8 0114 | | .STRTAB 0x0114->0x0382 ; " is not unique" 02f9 0120 | | .STRTAB 0x0120->0x0389 ; "Unit map is missing" 02fa 0131 | 1 | .STRTAB 0x0131->0x0392 ; "Next available offset for " 02fb 0149 | I | .STRTAB 0x0149->0x039f ; " is greater than the next available offset " 02fc 0172 | r | .STRTAB 0x0172->0x03b5 ; "Declaration " 02fd 017c | | | .STRTAB 0x017c->0x03bb ; " does not have a next available offset" 02fe 01a0 | | .STREND 0x01a0->0x03ce 02ff 2066 6f72 | for| .STRTAB_STRINGS 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug Table 03d0 ; -------------------------------------------------------------------------------------- 03d0 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b52,0x0000,0x0001,0x0000 03d6 400b c7a8 |@ | .XXX[0x14] 03d8 0801 7800 | x | 03da 0000 0000 | | 03dc 71a9 6020 |q ` | 03de 0820 2aeb | * | 03e0 e000 0556 | V| 03e2 a98c 1980 | | 03e4 0000 002a | *| 03e6 fd80 0e60 | `| 03e8 000a c00c | | 03ea 0000 0000 | | .BLANK 0000[0x5] 03ef 055e 2800 | ^( | .XXX[0x11] 03f1 3d01 001c |= | 03f3 0000 0000 | | 03f5 2005 6894 | h | 03f7 1d81 2005 | | 03f9 5f17 0131 |_ 1| 03fb 8080 1780 | | 03fd abed a000 | | 03ff 06a2 | |