|
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 02b0 | | .CONST 0x02b0 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b e012 | | Load 0x0,0x12 000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 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 00e4 | | Load_Encached Positive_Cache 0012 0266 | f | Execute Discrete,Bounds 0013 e012 | | Load 0x0,0x12 0014 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0015 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4801 |H | Short_Literal 0x1 0018 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0019 a01b | | Store_Unchecked 0x0,0x1b 001a 00c6 | | Action Check_Subprogram_Elaborated 001b e012 | | Load 0x0,0x12 001c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 001d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001e 00e4 | | Load_Encached Positive_Cache 001f 00da | | Load_Top At_Offset_2 0020 00e0 | | Load_Encached Standard_Cache 0021 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 0022 e01c | | Load 0x0,0x1c 0023 e01d | | Load 0x0,0x1d 0024 480a |H | Short_Literal 0xa 0025 0007 | | Action Break_Optional 0026 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0028 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 002a 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 002c 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 002e 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0030 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0032 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0034 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0036 BODY_0008: 0036 8612 | | Call 0x3,0x12 0037 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e5fc | | Load 0x2,-0x4 003c e5ff | | Load 0x2,-0x1 003d e7ff | | Load 0x3,-0x1 003e 0092 01ed | | Action Push_String_Extended,0x1ed ; "Corrupt declaration map for <<1>> in <2>: " 0040 e9ff | | Load 0x4,-0x1 0041 01cc | | Execute Vector,Catenate 0042 e220 | | Load 0x1,0x20 0043 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0044 4801 |H | Short_Literal 0x1 0045 a406 | | Store_Unchecked 0x2,0x6 0046 4800 |H | Short_Literal 0x0 0047 a5fb | | Store_Unchecked 0x2,-0x5 0048 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 e5fc | | Load 0x2,-0x4 0054 e5ff | | Load 0x2,-0x1 0055 e7ff | | Load 0x3,-0x1 0056 0092 01ee | | Action Push_String_Extended,0x1ee ; "Declaration map for <<1>> in <2> is corrupt" 0058 e220 | | Load 0x1,0x20 0059 1818 | | Execute Package,Field_Execute,Field_Number 0x18 005a e40b | | Load 0x2,0xb 005b 0a01 | | Execute_Immediate Plus,0x1 005c c40b | | Store 0x2,0xb 005d 4800 |H | Short_Literal 0x0 005e a406 | | Store_Unchecked 0x2,0x6 005f 4800 |H | Short_Literal 0x0 0060 a5fb | | Store_Unchecked 0x2,-0x5 0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0073 | s | .CONST 0x0073 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e012 | | Load 0x0,0x12 006c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 006d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 006e 02c7 | | Declare_Variable Any 006f 00d8 | | Load_Top At_Offset_0 0070 1c00 | | Execute_Immediate Run_Utility,0x0 0071 00e3 | | Load_Encached Natural_Cache 0072 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0073 BODY_0068: 0073 00be | | Action Activate_Tasks 0074 00d9 | | Load_Top At_Offset_1 0075 e9ff | | Load 0x4,-0x1 0076 e012 | | Load 0x0,0x12 0077 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0078 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0079 c802 | | Store 0x4,0x2 007a 00cf | | Action Mark_Auxiliary 007b 7809 |x | Jump 0x85 007c 00d9 | | Load_Top At_Offset_1 007d 0a01 | | Execute_Immediate Plus,0x1 007e 005a | Z | Store_Top Discrete,At_Offset_2 007f 00da | | Load_Top At_Offset_2 0080 e012 | | Load 0x0,0x12 0081 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0082 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0083 c802 | | Store 0x4,0x2 0084 00c9 | | Action Pop_Auxiliary_Loop 0085 00da | | Load_Top At_Offset_2 0086 e012 | | Load 0x0,0x12 0087 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0088 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0089 6ff2 |o | Jump_Zero 0x7c 008a 00ce | | Action Pop_Auxiliary 008b 00d8 | | Load_Top At_Offset_0 008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009b | | .CONST 0x009b ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e40d | | Load 0x2,0xd 0094 e012 | | Load 0x0,0x12 0095 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0096 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0097 e602 | | Load 0x3,0x2 0098 e012 | | Load 0x0,0x12 0099 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 009b BODY_0090: 009b 00d8 | | Load_Top At_Offset_0 009c 00da | | Load_Top At_Offset_2 009d 027e | ~ | Execute Discrete,Not_Equal 009e 680f |h | Jump_Zero 0xae 009f 0092 01ef | | Action Push_String_Extended,0x1ef ; "Subsystem mode " 00a1 00d9 | | Load_Top At_Offset_1 00a2 8219 | | Call 0x1,0x19 00a3 01cc | | Execute Vector,Catenate 00a4 0092 01f0 | | Action Push_String_Extended,0x1f0 ; " does not match subsyste mode " 00a6 01cc | | Execute Vector,Catenate 00a7 00da | | Load_Top At_Offset_2 00a8 8219 | | Call 0x1,0x19 00a9 01cc | | Execute Vector,Catenate 00aa 0092 01f1 | | Action Push_String_Extended,0x1f1 ; " in unit map" 00ac 01cc | | Execute Vector,Catenate 00ad 860b | | Call 0x3,0xb 00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bb | | .CONST 0x00bb ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e40d | | Load 0x2,0xd 00b4 e012 | | Load 0x0,0x12 00b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00b7 e602 | | Load 0x3,0x2 00b8 e012 | | Load 0x0,0x12 00b9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ba 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00bb BODY_00b0: 00bb 00d8 | | Load_Top At_Offset_0 00bc 00da | | Load_Top At_Offset_2 00bd 027e | ~ | Execute Discrete,Not_Equal 00be 680f |h | Jump_Zero 0xce 00bf 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "Subsystem ID " 00c1 00d9 | | Load_Top At_Offset_1 00c2 821b | | Call 0x1,0x1b 00c3 01cc | | Execute Vector,Catenate 00c4 0092 01f3 | | Action Push_String_Extended,0x1f3 ; " does not match subsystem ID " 00c6 01cc | | Execute Vector,Catenate 00c7 00da | | Load_Top At_Offset_2 00c8 821b | | Call 0x1,0x1b 00c9 01cc | | Execute Vector,Catenate 00ca 0092 01f1 | | Action Push_String_Extended,0x1f1 ; " in unit map" 00cc 01cc | | Execute Vector,Catenate 00cd 860b | | Call 0x3,0xb 00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00cf 0000 | | .XXX[0x1] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e0 | | .CONST 0x00e0 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 e012 | | Load 0x0,0x12 00d4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d6 e602 | | Load 0x3,0x2 00d7 e012 | | Load 0x0,0x12 00d8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00da e012 | | Load 0x0,0x12 00db 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00dd 02c7 | | Declare_Variable Any 00de 00d8 | | Load_Top At_Offset_0 00df 1c00 | | Execute_Immediate Run_Utility,0x0 00e0 BODY_00d0: 00e0 00d8 | | Load_Top At_Offset_0 00e1 0120 | | Execute Any,Is_Value 00e2 6804 |h | Jump_Zero 0xe7 00e3 e012 | | Load 0x0,0x12 00e4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e6 7801 |x | Jump 0xe8 00e7 00d8 | | Load_Top At_Offset_0 00e8 e012 | | Load 0x0,0x12 00e9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ea 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00eb e40d | | Load 0x2,0xd 00ec e7ff | | Load 0x3,-0x1 00ed 8402 | | Call 0x2,0x2 00ee e012 | | Load 0x0,0x12 00ef 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f1 c40d | | Store 0x2,0xd 00f2 c802 | | Store 0x4,0x2 00f3 c804 | | Store 0x4,0x4 00f4 00d8 | | Load_Top At_Offset_0 00f5 e012 | | Load 0x0,0x12 00f6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f8 4610 |F | Jump_Case 0x11 00f9 7816 |x | Jump 0x110 ; case 0x0 00fa 780f |x | Jump 0x10a ; case 0x1 00fb 780e |x | Jump 0x10a ; case 0x2 00fc 780d |x | Jump 0x10a ; case 0x3 00fd 780c |x | Jump 0x10a ; case 0x4 00fe 7825 |x% | Jump 0x124 ; case 0x5 00ff 780a |x | Jump 0x10a ; case 0x6 0100 7809 |x | Jump 0x10a ; case 0x7 0101 7808 |x | Jump 0x10a ; case 0x8 0102 7807 |x | Jump 0x10a ; case 0x9 0103 7806 |x | Jump 0x10a ; case 0xa 0104 7805 |x | Jump 0x10a ; case 0xb 0105 7804 |x | Jump 0x10a ; case 0xc 0106 7803 |x | Jump 0x10a ; case 0xd 0107 7802 |x | Jump 0x10a ; case 0xe 0108 7801 |x | Jump 0x10a ; case 0xf 0109 7800 |x | Jump 0x10a ; case 0x10 010a 00d8 | | Load_Top At_Offset_0 010b e012 | | Load 0x0,0x12 010c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 010d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 010e 840f | | Call 0x2,0xf 010f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0110 00d9 | | Load_Top At_Offset_1 0111 00db | | Load_Top At_Offset_3 0112 027e | ~ | Execute Discrete,Not_Equal 0113 680f |h | Jump_Zero 0x123 0114 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Unit number " 0116 00da | | Load_Top At_Offset_2 0117 821a | | Call 0x1,0x1a 0118 01cc | | Execute Vector,Catenate 0119 0092 01f5 | | Action Push_String_Extended,0x1f5 ; " does not match unit number " 011b 01cc | | Execute Vector,Catenate 011c 00db | | Load_Top At_Offset_3 011d 821a | | Call 0x1,0x1a 011e 01cc | | Execute Vector,Catenate 011f 0092 01f1 | | Action Push_String_Extended,0x1f1 ; " in unit map" 0121 01cc | | Execute Vector,Catenate 0122 860b | | Call 0x3,0xb 0123 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0124 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Unit number " 0126 00da | | Load_Top At_Offset_2 0127 821a | | Call 0x1,0x1a 0128 01cc | | Execute Vector,Catenate 0129 0092 01f6 | | Action Push_String_Extended,0x1f6 ; " does not exist in the unit map" 012b 01cc | | Execute Vector,Catenate 012c 860b | | Call 0x3,0xb 012d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0144 | D | .CONST 0x0144 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0005 | | .CONST 0x0005 ; Number of locals 0133 INIT_0130: 0133 e602 | | Load 0x3,0x2 0134 860d | | Call 0x3,0xd 0135 4801 |H | Short_Literal 0x1 0136 00d9 | | Load_Top At_Offset_1 0137 e603 | | Load 0x3,0x3 0138 035b | [ | Declare_Type Array,Constrained 0139 0337 | 7 | Declare_Variable Array 013a e012 | | Load 0x0,0x12 013b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 013c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 013d 02c7 | | Declare_Variable Any 013e 00d8 | | Load_Top At_Offset_0 013f 1c00 | | Execute_Immediate Run_Utility,0x0 0140 e602 | | Load 0x3,0x2 0141 e012 | | Load 0x0,0x12 0142 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0143 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0144 BODY_0130: 0144 00be | | Action Activate_Tasks 0145 00d9 | | Load_Top At_Offset_1 0146 e602 | | Load 0x3,0x2 0147 e012 | | Load 0x0,0x12 0148 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0149 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 014a c804 | | Store 0x4,0x4 014b 00cf | | Action Mark_Auxiliary 014c e802 | | Load 0x4,0x2 014d 4801 |H | Short_Literal 0x1 014e 0263 | c | Execute Discrete,Above_Bound 014f 700e |p | Jump_Nonzero 0x15e 0150 e804 | | Load 0x4,0x4 0151 e012 | | Load 0x0,0x12 0152 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0153 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0154 00d9 | | Load_Top At_Offset_1 0155 e803 | | Load 0x4,0x3 0156 01d6 | | Execute Vector,Field_Write 0157 e804 | | Load 0x4,0x4 0158 e012 | | Load 0x0,0x12 0159 1b14 | | Execute Package,Field_Read,Field_Number 0x14 015a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 015b c804 | | Store 0x4,0x4 015c 00c8 | | Action Pop_Auxiliary_Range 015d 3ff2 |? | Loop_Increasing 0x150 015e 00ce | | Action Pop_Auxiliary 015f 00da | | Load_Top At_Offset_2 0160 e604 | | Load 0x3,0x4 0161 e605 | | Load 0x3,0x5 0162 e606 | | Load 0x3,0x6 0163 4807 |H | Short_Literal 0x7 0164 4803 |H | Short_Literal 0x3 0165 0099 | | Action Reference_Dynamic 0166 4808 |H | Short_Literal 0x8 0167 4803 |H | Short_Literal 0x3 0168 0099 | | Action Reference_Dynamic 0169 801b | | Call 0x0,0x1b 016a 00d1 | | Pop_Control Pop_Count_1 016b 00cf | | Action Mark_Auxiliary 016c e802 | | Load 0x4,0x2 016d 4801 |H | Short_Literal 0x1 016e 0263 | c | Execute Discrete,Above_Bound 016f 702d |p- | Jump_Nonzero 0x19d 0170 00d8 | | Load_Top At_Offset_0 0171 e803 | | Load 0x4,0x3 0172 01d7 | | Execute Vector,Field_Read 0173 e805 | | Load 0x4,0x5 0174 027d | } | Execute Discrete,Greater 0175 680e |h | Jump_Zero 0x184 0176 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Declaration number " 0178 00d9 | | Load_Top At_Offset_1 0179 e803 | | Load 0x4,0x3 017a 01d7 | | Execute Vector,Field_Read 017b 821c | | Call 0x1,0x1c 017c 01cc | | Execute Vector,Catenate 017d 0092 01f8 | | Action Push_String_Extended,0x1f8 ; " is greater than last assigned declaration number " 017f 01cc | | Execute Vector,Catenate 0180 e805 | | Load 0x4,0x5 0181 821c | | Call 0x1,0x1c 0182 01cc | | Execute Vector,Catenate 0183 860b | | Call 0x3,0xb 0184 00d8 | | Load_Top At_Offset_0 0185 0c02 | | Execute_Immediate Greater_Equal,0x2 0186 6814 |h | Jump_Zero 0x19b 0187 00d8 | | Load_Top At_Offset_0 0188 e803 | | Load 0x4,0x3 0189 01d7 | | Execute Vector,Field_Read 018a 00d9 | | Load_Top At_Offset_1 018b 0aff | | Execute_Immediate Plus,-0x1 018c e803 | | Load 0x4,0x3 018d 01d7 | | Execute Vector,Field_Read 018e 027f | | Execute Discrete,Equal 018f 680b |h | Jump_Zero 0x19b 0190 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Declaration number " 0192 00d9 | | Load_Top At_Offset_1 0193 e803 | | Load 0x4,0x3 0194 01d7 | | Execute Vector,Field_Read 0195 821c | | Call 0x1,0x1c 0196 01cc | | Execute Vector,Catenate 0197 0092 01f9 | | Action Push_String_Extended,0x1f9 ; " is not unique" 0199 01cc | | Execute Vector,Catenate 019a 860b | | Call 0x3,0xb 019b 00c8 | | Action Pop_Auxiliary_Range 019c 3fd3 |? | Loop_Increasing 0x170 019d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019e 0000 0000 | | .XXX[0x2] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a9 | | .CONST 0x01a9 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e012 | | Load 0x0,0x12 01a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a6 02c7 | | Declare_Variable Any 01a7 00d8 | | Load_Top At_Offset_0 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 BODY_01a0: 01a9 00d8 | | Load_Top At_Offset_0 01aa 0120 | | Execute Any,Is_Value 01ab 6804 |h | Jump_Zero 0x1b0 01ac e012 | | Load 0x0,0x12 01ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01af 7801 |x | Jump 0x1b1 01b0 00d8 | | Load_Top At_Offset_0 01b1 e602 | | Load 0x3,0x2 01b2 4800 |H | Short_Literal 0x0 01b3 e00f | | Load 0x0,0xf 01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b5 e7ff | | Load 0x3,-0x1 01b6 e012 | | Load 0x0,0x12 01b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b9 c602 | | Store 0x3,0x2 01ba c802 | | Store 0x4,0x2 01bb 00d8 | | Load_Top At_Offset_0 01bc e012 | | Load 0x0,0x12 01bd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01be 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01bf 7007 |p | Jump_Nonzero 0x1c7 01c0 00d8 | | Load_Top At_Offset_0 01c1 e012 | | Load 0x0,0x12 01c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c4 840f | | Call 0x2,0xf 01c5 00cc | | Action Pop_Block 01c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c7 e40e | | Load 0x2,0xe 01c8 6804 |h | Jump_Zero 0x1cd 01c9 860e | | Call 0x3,0xe 01ca 860f | | Call 0x3,0xf 01cb 8610 | | Call 0x3,0x10 01cc 7803 |x | Jump 0x1d0 01cd 0092 01fa | | Action Push_String_Extended,0x1fa ; "Unit map is missing" 01cf 860b | | Call 0x3,0xb 01d0 8611 | | Call 0x3,0x11 01d1 00d8 | | Load_Top At_Offset_0 01d2 0120 | | Execute Any,Is_Value 01d3 6804 |h | Jump_Zero 0x1d8 01d4 e012 | | Load 0x0,0x12 01d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d7 7801 |x | Jump 0x1d9 01d8 00d8 | | Load_Top At_Offset_0 01d9 e602 | | Load 0x3,0x2 01da e012 | | Load 0x0,0x12 01db 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01dc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01dd c602 | | Store 0x3,0x2 01de c802 | | Store 0x4,0x2 01df 00d8 | | Load_Top At_Offset_0 01e0 e012 | | Load 0x0,0x12 01e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e3 7005 |p | Jump_Nonzero 0x1e9 01e4 00d8 | | Load_Top At_Offset_0 01e5 e012 | | Load 0x0,0x12 01e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e8 840f | | Call 0x2,0xf 01e9 e406 | | Load 0x2,0x6 01ea 6801 |h | Jump_Zero 0x1ec 01eb 860c | | Call 0x3,0xc 01ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ed ; -------------------------------------------------------------------------------------- 01ed ; STRING TABLE 01ed ; -------------------------------------------------------------------------------------- 01ed 001e | | .STRTAB 0x001e->0x01fc ; "Corrupt declaration map for <<1>> in <2>: " 01ee 0046 | F | .STRTAB 0x0046->0x0211 ; "Declaration map for <<1>> in <2> is corrupt" 01ef 006f | o | .STRTAB 0x006f->0x0226 ; "Subsystem mode " 01f0 007c | | | .STRTAB 0x007c->0x022e ; " does not match subsyste mode " 01f1 0098 | | .STRTAB 0x0098->0x023d ; " in unit map" 01f2 00a2 | | .STRTAB 0x00a2->0x0243 ; "Subsystem ID " 01f3 00ad | | .STRTAB 0x00ad->0x0249 ; " does not match subsystem ID " 01f4 00c8 | | .STRTAB 0x00c8->0x0258 ; "Unit number " 01f5 00d2 | | .STRTAB 0x00d2->0x025e ; " does not match unit number " 01f6 00ec | | .STRTAB 0x00ec->0x026c ; " does not exist in the unit map" 01f7 0109 | | .STRTAB 0x0109->0x027b ; "Declaration number " 01f8 011a | | .STRTAB 0x011a->0x0285 ; " is greater than last assigned declaration number " 01f9 014a | J | .STRTAB 0x014a->0x029e ; " is not unique" 01fa 0156 | V | .STRTAB 0x0156->0x02a5 ; "Unit map is missing" 01fb 0167 | g | .STREND 0x0167->0x02ae 01fc 436f 7272 |Corr| .STRTAB_STRINGS 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b51,0x0000,0x0001,0x0000 02b6 4e8e 640c |N d | .XXX[0x20] 02b8 4f24 0ecd |O$ | 02ba 2cae e40c |, | 02bc 2dcc 840d |- | 02be 6d2d cc80 |m- | 02c0 0000 04a0 | | 02c2 0000 0404 | | 02c4 0404 0404 | | 02c6 0704 0404 | | 02c8 040a 6dee | m | 02ca 4e8e 640c |N d | 02cc 4f24 0ecd |O$ | 02ce 2cae e40c |, | 02d0 2dcc 840d |- | 02d2 6d2d cc80 |m- | 02d4 0000 0020 | | 02d6 0000 0000 | | .BLANK 0000[0x5] 02db 08c0 0000 | | .XXX[0x41] 02dd 0000 0000 | | 02df 08a0 0000 | | 02e1 0920 0000 | | 02e3 03a4 286d | (m| 02e5 edad ac2d | -| 02e7 cc8e 65c8 | e | 02e9 6ded adad |m | 02eb edc5 c9ec | | 02ed 4d4c ac6e |ML n| 02ef 85c8 6d0d | m | 02f1 2d8c 8000 |- | 02f3 0008 e000 | | 02f5 0003 e404 | | 02f7 0428 6ded | (m | 02f9 adac 2dcc | - | 02fb 8e65 c86d | e m| 02fd edad aded | | 02ff c5c9 ec4d | M| 0301 4cac 6e85 |L n | 0303 c86d 0d2d | m -| 0305 8c80 0000 | | 0307 08e0 0000 | | 0309 03e4 0404 | | 030b 286d edad |(m | 030d ac2d cc8e | - | 030f 65c8 6ded |e m | 0311 adad edc5 | | 0313 c9ec 4d4c | ML| 0315 ac6e 85c8 | n | 0317 6d0d 2d8c |m - | 0319 8000 0000 | | 031b 2000 | | 031c 0000 0000 | | .BLANK 0000[0x4] 0320 000c e000 | | .XXX[0xe0] 0322 0000 0000 | | 0324 000c c000 | | 0326 000d 4000 | @ | 0328 0007 ea6c | l| 032a ad8c ac6e | n| 032c 8e64 0e8d | d | 032e 0ca4 0cad | | 0330 ce8e 4f24 | O$| 0332 0d2d c40e | - | 0334 8d0c a40c | | 0336 2c6e 8d2e |,n .| 0338 cd2e 8f24 | . $| 033a 0ded c40e | | 033c ed0d 2c6d | ,m| 033e 040e 8d0c | | 0340 a40c 6eae | n | 0342 4e6d ee44 |Nm D| 0344 0c6e ae4e | n N| 0346 4cad ce8d |L | 0348 8f20 0000 | | 034a 0d00 0000 | | 034c 0824 040a | $ | 034e 6cad 8cac |l | 0350 6e8e 640e |n d | 0352 8d0c a40c | | 0354 adce 8e4f | O| 0356 240d 2dc4 |$ - | 0358 0e8d 0ca4 | | 035a 0c2c 6e8d | ,n | 035c 2ecd 2e8f |. . | 035e 240d edc4 |$ | 0360 0eed 0d2c | ,| 0362 6d04 0e8d |m | 0364 0ca4 0c6e | n| 0366 ae4e 6dee | Nm | 0368 440c 6eae |D n | 036a 4e4c adce |NL | 036c 8d8f 2000 | | 036e 000d 0000 | | 0370 0008 2404 | $ | 0372 0a6c ad8c | l | 0374 ac6e 8e64 | n d| 0376 0e8d 0ca4 | | 0378 0cad ce8e | | 037a 4f24 0d2d |O$ -| 037c c40e 8d0c | | 037e a40c 2c6e | ,n| 0380 8d2e cd2e | . .| 0382 8f24 0ded | $ | 0384 c40e ed0d | | 0386 2c6d 040e |,m | 0388 8d0c a40c | | 038a 6eae 4e6d |n Nm| 038c ee44 0c6e | D n| 038e ae4e 4cad | NL | 0390 ce8d 8f20 | | 0392 0000 0580 | | 0394 0000 07ce | | 0396 4cae 6d2c |L m,| 0398 8cae 65c4 | e | 039a 0409 2cc4 | , | 039c 0c2d c40c | - | 039e adce 8e4f | O| 03a0 240d 2e64 |$ .d| 03a2 0c2d 8e4c | - L| 03a4 ac2c 8f24 | , $| 03a6 0e6c ad8c | l | 03a8 ac6e 8cac | n | 03aa 8584 0e8d | | 03ac 0d2e 640c | .d | 03ae 6ded adac |m | 03b0 2dcc 840d |- | 03b2 0c2e 640d | .d | 03b4 cde0 0000 | | 03b6 0540 0000 | @ | 03b8 0804 040e | | 03ba 4cae 6d2c |L m,| 03bc 8cae 65c4 | e | 03be 0409 2cc4 | , | 03c0 0c2d c40c | - | 03c2 adce 8e4f | O| 03c4 240d 2e64 |$ .d| 03c6 0c2d 8e4c | - L| 03c8 ac2c 8f24 | , $| 03ca 0e6c ad8c | l | 03cc ac6e 8cac | n | 03ce 8584 0e8d | | 03d0 0d2e 640c | .d | 03d2 6ded adac |m | 03d4 2dcc 840d |- | 03d6 0c2e 640d | .d | 03d8 cde0 0000 | | 03da 0540 0000 | @ | 03dc 0804 040e | | 03de 4cae 6d2c |L m,| 03e0 8cae 65c4 | e | 03e2 0409 2cc4 | , | 03e4 0c2d c40c | - | 03e6 adce 8e4f | O| 03e8 240d 2e64 |$ .d| 03ea 0c2d 8e4c | - L| 03ec ac2c 8f24 | , $| 03ee 0e6c ad8c | l | 03f0 ac6e 8cac | n | 03f2 8584 0e8d | | 03f4 0d2e 640c | .d | 03f6 6ded adac |m | 03f8 2dcc 840d |- | 03fa 0c2e 640d | .d | 03fc cde0 0000 | | 03fe 0da0 0000 | |