|
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 10bc 0000 | | .XXX[0xc] 02b8 0000 0140 | @| 02ba 0000 0000 | | 02bc 8b33 0021 | 3 !| 02be be20 0000 | | 02c0 0002 1692 | | 02c2 0000 0000 | | .BLANK 0000[0x8] 02ca 25a6 0008 |% | .XXX[0x1d] 02cc 6bb8 0000 |k | 02ce 0000 4800 | H | 02d0 0085 e000 | | 02d2 0000 0002 | | 02d4 e000 0000 | | 02d6 0219 4508 | E | 02d8 9000 437c | C|| 02da 4000 0000 |@ | 02dc 0435 0800 | 5 | 02de 88df c18e | | 02e0 400a d770 |@ p| 02e2 0000 0001 | | 02e4 0d77 0042 | w B| 02e6 f000 | | 02e7 0000 0000 | | .BLANK 0000[0x7] 02ee 0877 a800 | w | .XXX[0x13] 02f0 010c a200 | | 02f2 0000 2762 | 'b| 02f4 e008 7d48 | }H| 02f6 0000 0000 | | 02f8 a000 0000 | | 02fa 0045 9980 | E | 02fc 111d a000 | | 02fe 0000 010f | | 0300 3200 |2 | 0301 0000 0000 | | .BLANK 0000[0x7] 0308 0012 d300 | | .XXX[0x1e] 030a 0445 8000 | E | 030c 0000 0020 | | 030e 0000 43ea | C | 0310 4000 0000 |@ | 0312 0190 0000 | | 0314 0001 108b | | 0316 8448 0022 | H "| 0318 3b40 0000 |;@ | 031a 0002 2256 | "V| 031c 0045 6a20 | Ej | 031e c720 056b | k| 0320 b800 0000 | | 0322 0088 b000 | | 0324 21f5 2000 |! | 0326 0000 0000 | | .BLANK 0000[0x6] 032c 0004 4b78 | Kx| .XXX[0x14] 032e 0000 8845 | E| 0330 8000 0013 | | 0332 b170 044e | p N| 0334 4800 0000 |H | 0336 0050 0000 | P | 0338 0000 22cc | " | 033a c008 ae18 | | 033c 0000 0000 | | 033e 898d 8000 | | 0340 0000 0000 | | .BLANK 0000[0x7] 0347 0969 8002 | i | .XXX[0x37] 0349 2a92 0000 |* | 034b 0000 4100 | A | 034d 0022 7240 | "r@| 034f 0000 0000 | | 0351 d800 0000 | | 0353 008a 3a42 | :B| 0355 2400 115c |$ \| 0357 3000 0000 |0 | 0359 0115 1400 | | 035b 2332 3063 |#20c| 035d 9002 b5dc | | 035f 0000 0000 | | 0361 4552 4011 |ER@ | 0363 3920 0000 |9 | 0365 0000 0000 | | 0367 01f6 1000 | | 0369 0000 0000 | | 036b 022d 8e00 | - | 036d 0045 1d00 | E | 036f 0000 09d8 | | 0371 b802 2ef6 | . | 0373 0000 0000 | | 0375 2800 0000 |( | 0377 0011 6660 | f`| 0379 0466 b000 | f | 037b 0000 0045 | E| 037d c100 | | 037e 0000 0000 | | .BLANK 0000[0x7] 0385 0004 b4c0 | | .XXX[0x1e] 0387 0119 3200 | 2 | 0389 0000 003f | ?| 038b 0000 1177 | w| 038d b000 0000 | | 038f 0074 0000 | t | 0391 0000 4617 | F | 0393 6112 0008 |a | 0395 cd60 0000 | ` | 0397 0000 8c7e | ~| 0399 8011 d7a8 | | 039b 31c8 015a |1 Z| 039d ee00 0000 | | 039f 0023 2640 | #&@| 03a1 08bb d800 | | 03a3 0000 0000 | | .BLANK 0000[0x6] 03a9 0001 1ab0 | | .XXX[0x14] 03ab 0000 230b | # | 03ad a000 0004 | | 03af ec5c 011b | \ | 03b1 6400 0000 |d | 03b3 0014 0000 | | 03b5 0000 08b3 | | 03b7 3002 3b2a |0 ;*| 03b9 0000 0000 | | 03bb 235d a000 |#] | 03bd 0000 0000 | | .BLANK 0000[0x7] 03c4 025a 6000 | Z` | .XXX[0x1d] 03c6 8e8d 8000 | | 03c8 0000 03c0 | | 03ca 0008 db20 | | 03cc 0000 0000 | | 03ce 3e00 0000 |> | 03d0 0023 88d0 | # | 03d2 8900 0476 | v| 03d4 5400 0000 |T | 03d6 0047 3980 | G9 | 03d8 090b 1c18 | | 03da e400 ad77 | w| 03dc 0000 0000 | | 03de 11d1 b004 | | 03e0 6d90 |m | 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 008f 4c80 | L | .XXX[0x13] 03ea 0011 c460 | `| 03ec 0000 0276 | v| 03ee 2e00 8fa6 |. | 03f0 8000 0000 | | 03f2 0a00 0000 | | 03f4 0004 5998 | Y | 03f6 0121 7e00 | !~ | 03f8 0000 0011 | | 03fa ed60 | ` | 03fb 0000 0000 | | .BLANK 0000[0x5]