|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 a00f | | Store_Unchecked 0x0,0xf 001a 00c6 | | Action Check_Subprogram_Elaborated 001b e00e | | Load 0x0,0xe 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 e012 | | Load 0x0,0x12 0023 e013 | | Load 0x0,0x13 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 e21e | | Load 0x1,0x1e 0043 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0044 4801 |H | Short_Literal 0x1 0045 a404 | | Store_Unchecked 0x2,0x4 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 e21e | | Load 0x1,0x1e 0059 1818 | | Execute Package,Field_Execute,Field_Number 0x18 005a e409 | | Load 0x2,0x9 005b 0a01 | | Execute_Immediate Plus,0x1 005c c409 | | Store 0x2,0x9 005d 4800 |H | Short_Literal 0x0 005e a404 | | Store_Unchecked 0x2,0x4 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e40b | | Load 0x2,0xb 0094 e00e | | Load 0x0,0xe 0095 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0096 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0097 e602 | | Load 0x3,0x2 0098 e00e | | Load 0x0,0xe 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 8217 | | Call 0x1,0x17 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 8217 | | Call 0x1,0x17 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 e40b | | Load 0x2,0xb 00b4 e00e | | Load 0x0,0xe 00b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00b7 e602 | | Load 0x3,0x2 00b8 e00e | | Load 0x0,0xe 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 8219 | | Call 0x1,0x19 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 8219 | | Call 0x1,0x19 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 e00e | | Load 0x0,0xe 00d4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d6 e602 | | Load 0x3,0x2 00d7 e00e | | Load 0x0,0xe 00d8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00da e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 00e9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ea 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00eb e40b | | Load 0x2,0xb 00ec e7ff | | Load 0x3,-0x1 00ed e003 | | Load 0x0,0x3 00ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ef 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00f0 e00e | | Load 0x0,0xe 00f1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f3 c40b | | Store 0x2,0xb 00f4 c802 | | Store 0x4,0x2 00f5 c804 | | Store 0x4,0x4 00f6 00d8 | | Load_Top At_Offset_0 00f7 e00e | | Load 0x0,0xe 00f8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fa 4610 |F | Jump_Case 0x11 00fb 7816 |x | Jump 0x112 ; case 0x0 00fc 780f |x | Jump 0x10c ; case 0x1 00fd 780e |x | Jump 0x10c ; case 0x2 00fe 780d |x | Jump 0x10c ; case 0x3 00ff 780c |x | Jump 0x10c ; case 0x4 0100 7825 |x% | Jump 0x126 ; case 0x5 0101 780a |x | Jump 0x10c ; case 0x6 0102 7809 |x | Jump 0x10c ; case 0x7 0103 7808 |x | Jump 0x10c ; case 0x8 0104 7807 |x | Jump 0x10c ; case 0x9 0105 7806 |x | Jump 0x10c ; case 0xa 0106 7805 |x | Jump 0x10c ; case 0xb 0107 7804 |x | Jump 0x10c ; case 0xc 0108 7803 |x | Jump 0x10c ; case 0xd 0109 7802 |x | Jump 0x10c ; case 0xe 010a 7801 |x | Jump 0x10c ; case 0xf 010b 7800 |x | Jump 0x10c ; case 0x10 010c 00d8 | | Load_Top At_Offset_0 010d e00e | | Load 0x0,0xe 010e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 010f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0110 840d | | Call 0x2,0xd 0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0112 00d9 | | Load_Top At_Offset_1 0113 00db | | Load_Top At_Offset_3 0114 027e | ~ | Execute Discrete,Not_Equal 0115 680f |h | Jump_Zero 0x125 0116 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Unit number " 0118 00da | | Load_Top At_Offset_2 0119 8218 | | Call 0x1,0x18 011a 01cc | | Execute Vector,Catenate 011b 0092 01f5 | | Action Push_String_Extended,0x1f5 ; " does not match unit number " 011d 01cc | | Execute Vector,Catenate 011e 00db | | Load_Top At_Offset_3 011f 8218 | | Call 0x1,0x18 0120 01cc | | Execute Vector,Catenate 0121 0092 01f1 | | Action Push_String_Extended,0x1f1 ; " in unit map" 0123 01cc | | Execute Vector,Catenate 0124 860b | | Call 0x3,0xb 0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0126 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Unit number " 0128 00da | | Load_Top At_Offset_2 0129 8218 | | Call 0x1,0x18 012a 01cc | | Execute Vector,Catenate 012b 0092 01f6 | | Action Push_String_Extended,0x1f6 ; " does not exist in the unit map" 012d 01cc | | Execute Vector,Catenate 012e 860b | | Call 0x3,0xb 012f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 800f | | Call 0x0,0xf 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 821a | | Call 0x1,0x1a 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 821a | | Call 0x1,0x1a 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 821a | | Call 0x1,0x1a 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00b | | Load 0x0,0xb 01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b5 e7ff | | Load 0x3,-0x1 01b6 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 01c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c4 840d | | Call 0x2,0xd 01c5 00cc | | Action Pop_Block 01c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c7 e40c | | Load 0x2,0xc 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 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 e00e | | Load 0x0,0xe 01e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e8 840d | | Call 0x2,0xd 01e9 e404 | | Load 0x2,0x4 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 0007 | | .DEBUG4 0x0004,0x0007,0x44e4,0x0000,0x0001,0x0000 02b6 0000 0000 | | .BLANK 0000[0x5] 02bb 4827 cd60 |H' `| .XXX[0x1c] 02bd 0006 c469 | i| 02bf 0000 1000 | | 02c1 c000 ae00 | | 02c3 0000 0706 | | 02c5 4000 0200 |@ | 02c7 0000 0300 | | 02c9 2800 0000 |( | 02cb 0800 0002 | | 02cd 0000 0011 | | 02cf 0000 0000 | | 02d1 0800 0000 | | 02d3 5200 0010 |R | 02d5 2762 e800 |'b | 02d7 0000 0000 | | .BLANK 0000[0x1d] 02f4 0904 f9ae | | .XXX[0x1c] 02f6 0000 d88d | | 02f8 2000 0200 | | 02fa 1800 15c0 | | 02fc 0000 009c | | 02fe 9800 0040 | @| 0300 0000 00a0 | | 0302 0500 0000 | | 0304 0100 0000 | | 0306 4000 0002 |@ | 0308 2000 0000 | | 030a 0100 0000 | | 030c 0a40 0002 | @ | 030e 03df ee00 | | 0310 0000 0000 | | .BLANK 0000[0x8] 0318 0040 0002 | @ | .XXX[0x4] 031a 02ed 8100 | | 031c 0000 0000 | | .BLANK 0000[0x1e] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]