|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0228 | ( | .CONST 0x0228 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0011 | | .CONST 0x0011 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 000d 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 000f 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0011 BODY_0008: 0011 e5fe | | Load 0x2,-0x2 0012 e00b | | Load 0x0,0xb 0013 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0014 e5fe | | Load 0x2,-0x2 0015 e5ff | | Load 0x2,-0x1 0016 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0017 8404 | | Call 0x2,0x4 0018 e5fe | | Load 0x2,-0x2 0019 e5ff | | Load 0x2,-0x1 001a 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 001b 8404 | | Call 0x2,0x4 001c 00cf | | Action Mark_Auxiliary 001d e5ff | | Load 0x2,-0x1 001e 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 001f 4801 |H | Short_Literal 0x1 0020 0263 | c | Execute Discrete,Above_Bound 0021 7008 |p | Jump_Nonzero 0x2a 0022 e5fe | | Load 0x2,-0x2 0023 00d9 | | Load_Top At_Offset_1 0024 e5ff | | Load 0x2,-0x1 0025 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0026 01d5 | | Execute Vector,Field_Reference 0027 8402 | | Call 0x2,0x2 0028 00c8 | | Action Pop_Auxiliary_Range 0029 3ff8 |? | Loop_Increasing 0x22 002a 00ce | | Action Pop_Auxiliary 002b e5ff | | Load 0x2,-0x1 002c 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 002d 0c01 | | Execute_Immediate Greater_Equal,0x1 002e 68a1 |h | Jump_Zero 0xd0 002f e5fe | | Load 0x2,-0x2 0030 4801 |H | Short_Literal 0x1 0031 e5ff | | Load 0x2,-0x1 0032 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0033 01d5 | | Execute Vector,Field_Reference 0034 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0035 0afe | | Execute_Immediate Plus,-0x2 0036 00d8 | | Load_Top At_Offset_0 0037 00e4 | | Load_Encached Positive_Cache 0038 0260 | ` | Execute Discrete,In_Type 0039 7001 |p | Jump_Nonzero 0x3b 003a 0801 | | Execute_Immediate Raise,0x1 003b 4801 |H | Short_Literal 0x1 003c e5ff | | Load 0x2,-0x1 003d 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 003e 01d5 | | Execute Vector,Field_Reference 003f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0040 0aff | | Execute_Immediate Plus,-0x1 0041 00d8 | | Load_Top At_Offset_0 0042 00e4 | | Load_Encached Positive_Cache 0043 0260 | ` | Execute Discrete,In_Type 0044 7001 |p | Jump_Nonzero 0x46 0045 0801 | | Execute_Immediate Raise,0x1 0046 486c |Hl | Short_Literal 0x6c 0047 8403 | | Call 0x2,0x3 0048 e5fe | | Load 0x2,-0x2 0049 4801 |H | Short_Literal 0x1 004a e5ff | | Load 0x2,-0x1 004b 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 004c 01d5 | | Execute Vector,Field_Reference 004d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 004e 0afe | | Execute_Immediate Plus,-0x2 004f 00d8 | | Load_Top At_Offset_0 0050 00e4 | | Load_Encached Positive_Cache 0051 0260 | ` | Execute Discrete,In_Type 0052 7001 |p | Jump_Nonzero 0x54 0053 0801 | | Execute_Immediate Raise,0x1 0054 e5ff | | Load 0x2,-0x1 0055 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0056 e5ff | | Load 0x2,-0x1 0057 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0058 01d5 | | Execute Vector,Field_Reference 0059 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 005a 0a01 | | Execute_Immediate Plus,0x1 005b 00d8 | | Load_Top At_Offset_0 005c 00e4 | | Load_Encached Positive_Cache 005d 0260 | ` | Execute Discrete,In_Type 005e 7001 |p | Jump_Nonzero 0x60 005f 0801 | | Execute_Immediate Raise,0x1 0060 486d |Hm | Short_Literal 0x6d 0061 8403 | | Call 0x2,0x3 0062 e5fe | | Load 0x2,-0x2 0063 4801 |H | Short_Literal 0x1 0064 e5ff | | Load 0x2,-0x1 0065 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0066 01d5 | | Execute Vector,Field_Reference 0067 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0068 0afe | | Execute_Immediate Plus,-0x2 0069 00d8 | | Load_Top At_Offset_0 006a 00e4 | | Load_Encached Positive_Cache 006b 0260 | ` | Execute Discrete,In_Type 006c 7001 |p | Jump_Nonzero 0x6e 006d 0801 | | Execute_Immediate Raise,0x1 006e e5ff | | Load 0x2,-0x1 006f 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0070 e5ff | | Load 0x2,-0x1 0071 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0072 01d5 | | Execute Vector,Field_Reference 0073 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0074 4801 |H | Short_Literal 0x1 0075 e5ff | | Load 0x2,-0x1 0076 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0077 01d5 | | Execute Vector,Field_Reference 0078 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0079 e00c | | Load 0x0,0xc 007a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007b e5fe | | Load 0x2,-0x2 007c 4801 |H | Short_Literal 0x1 007d e5ff | | Load 0x2,-0x1 007e 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 007f 01d5 | | Execute Vector,Field_Reference 0080 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0081 e5ff | | Load 0x2,-0x1 0082 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0083 e5ff | | Load 0x2,-0x1 0084 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0085 01d5 | | Execute Vector,Field_Reference 0086 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0087 0273 | s | Execute Discrete,Plus 0088 09ff | | Execute_Immediate Binary_Scale,-0x1 0089 00d8 | | Load_Top At_Offset_0 008a 00e4 | | Load_Encached Positive_Cache 008b 0260 | ` | Execute Discrete,In_Type 008c 7001 |p | Jump_Nonzero 0x8e 008d 0801 | | Execute_Immediate Raise,0x1 008e 4801 |H | Short_Literal 0x1 008f e5ff | | Load 0x2,-0x1 0090 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0091 01d5 | | Execute Vector,Field_Reference 0092 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0093 0afc | | Execute_Immediate Plus,-0x4 0094 00d8 | | Load_Top At_Offset_0 0095 00e4 | | Load_Encached Positive_Cache 0096 0260 | ` | Execute Discrete,In_Type 0097 7001 |p | Jump_Nonzero 0x99 0098 0801 | | Execute_Immediate Raise,0x1 0099 4801 |H | Short_Literal 0x1 009a e5ff | | Load 0x2,-0x1 009b 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 009c 01d5 | | Execute Vector,Field_Reference 009d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 009e 0afe | | Execute_Immediate Plus,-0x2 009f 00d8 | | Load_Top At_Offset_0 00a0 00e4 | | Load_Encached Positive_Cache 00a1 0260 | ` | Execute Discrete,In_Type 00a2 7001 |p | Jump_Nonzero 0xa4 00a3 0801 | | Execute_Immediate Raise,0x1 00a4 e00c | | Load 0x0,0xc 00a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a6 e5fe | | Load 0x2,-0x2 00a7 4801 |H | Short_Literal 0x1 00a8 e5ff | | Load 0x2,-0x1 00a9 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00aa 01d5 | | Execute Vector,Field_Reference 00ab 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00ac 0afc | | Execute_Immediate Plus,-0x4 00ad 00d8 | | Load_Top At_Offset_0 00ae 00e4 | | Load_Encached Positive_Cache 00af 0260 | ` | Execute Discrete,In_Type 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 0801 | | Execute_Immediate Raise,0x1 00b2 e5ff | | Load 0x2,-0x1 00b3 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b5 0aff | | Execute_Immediate Plus,-0x1 00b6 00d8 | | Load_Top At_Offset_0 00b7 00e4 | | Load_Encached Positive_Cache 00b8 0260 | ` | Execute Discrete,In_Type 00b9 7001 |p | Jump_Nonzero 0xbb 00ba 0801 | | Execute_Immediate Raise,0x1 00bb 4801 |H | Short_Literal 0x1 00bc e5ff | | Load 0x2,-0x1 00bd 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00be 01d5 | | Execute Vector,Field_Reference 00bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c0 e5ff | | Load 0x2,-0x1 00c1 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 00c2 e5ff | | Load 0x2,-0x1 00c3 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00c4 01d5 | | Execute Vector,Field_Reference 00c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c6 0273 | s | Execute Discrete,Plus 00c7 09ff | | Execute_Immediate Binary_Scale,-0x1 00c8 00d8 | | Load_Top At_Offset_0 00c9 00e4 | | Load_Encached Positive_Cache 00ca 0260 | ` | Execute Discrete,In_Type 00cb 7001 |p | Jump_Nonzero 0xcd 00cc 0801 | | Execute_Immediate Raise,0x1 00cd e00c | | Load 0x0,0xc 00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cf 7817 |x | Jump 0xe7 00d0 e5fe | | Load 0x2,-0x2 00d1 e213 | | Load 0x1,0x13 00d2 0322 | " | Declare_Variable Record 00d3 e003 | | Load 0x0,0x3 00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d5 e213 | | Load 0x1,0x13 00d6 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00d7 0119 | | Execute Any,Check_In_Formal_Type 00d8 00d9 | | Load_Top At_Offset_1 00d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00da 0092 0216 | | Action Push_String_Extended,0x216 ; "(no callers)" 00dc e009 | | Load 0x0,0x9 00dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00de 00d9 | | Load_Top At_Offset_1 00df 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e0 4802 |H | Short_Literal 0x2 00e1 00d9 | | Load_Top At_Offset_1 00e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e3 480b |H | Short_Literal 0xb 00e4 00d9 | | Load_Top At_Offset_1 00e5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e6 8402 | | Call 0x2,0x2 00e7 00cf | | Action Mark_Auxiliary 00e8 e5ff | | Load 0x2,-0x1 00e9 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 00ea 4801 |H | Short_Literal 0x1 00eb 0263 | c | Execute Discrete,Above_Bound 00ec 7008 |p | Jump_Nonzero 0xf5 00ed e5fe | | Load 0x2,-0x2 00ee 00d9 | | Load_Top At_Offset_1 00ef e5ff | | Load 0x2,-0x1 00f0 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 00f1 01d5 | | Execute Vector,Field_Reference 00f2 8402 | | Call 0x2,0x2 00f3 00c8 | | Action Pop_Auxiliary_Range 00f4 3ff8 |? | Loop_Increasing 0xed 00f5 00ce | | Action Pop_Auxiliary 00f6 e5ff | | Load 0x2,-0x1 00f7 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 00f8 0c01 | | Execute_Immediate Greater_Equal,0x1 00f9 68a1 |h | Jump_Zero 0x19b 00fa e5fe | | Load 0x2,-0x2 00fb 4801 |H | Short_Literal 0x1 00fc e5ff | | Load 0x2,-0x1 00fd 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 00fe 01d5 | | Execute Vector,Field_Reference 00ff 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0100 0afe | | Execute_Immediate Plus,-0x2 0101 00d8 | | Load_Top At_Offset_0 0102 00e4 | | Load_Encached Positive_Cache 0103 0260 | ` | Execute Discrete,In_Type 0104 7001 |p | Jump_Nonzero 0x106 0105 0801 | | Execute_Immediate Raise,0x1 0106 4801 |H | Short_Literal 0x1 0107 e5ff | | Load 0x2,-0x1 0108 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0109 01d5 | | Execute Vector,Field_Reference 010a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 010b 0aff | | Execute_Immediate Plus,-0x1 010c 00d8 | | Load_Top At_Offset_0 010d 00e4 | | Load_Encached Positive_Cache 010e 0260 | ` | Execute Discrete,In_Type 010f 7001 |p | Jump_Nonzero 0x111 0110 0801 | | Execute_Immediate Raise,0x1 0111 486c |Hl | Short_Literal 0x6c 0112 8403 | | Call 0x2,0x3 0113 e5fe | | Load 0x2,-0x2 0114 4801 |H | Short_Literal 0x1 0115 e5ff | | Load 0x2,-0x1 0116 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0117 01d5 | | Execute Vector,Field_Reference 0118 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0119 0afe | | Execute_Immediate Plus,-0x2 011a 00d8 | | Load_Top At_Offset_0 011b 00e4 | | Load_Encached Positive_Cache 011c 0260 | ` | Execute Discrete,In_Type 011d 7001 |p | Jump_Nonzero 0x11f 011e 0801 | | Execute_Immediate Raise,0x1 011f e5ff | | Load 0x2,-0x1 0120 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0121 e5ff | | Load 0x2,-0x1 0122 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0123 01d5 | | Execute Vector,Field_Reference 0124 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0125 0a01 | | Execute_Immediate Plus,0x1 0126 00d8 | | Load_Top At_Offset_0 0127 00e4 | | Load_Encached Positive_Cache 0128 0260 | ` | Execute Discrete,In_Type 0129 7001 |p | Jump_Nonzero 0x12b 012a 0801 | | Execute_Immediate Raise,0x1 012b 486d |Hm | Short_Literal 0x6d 012c 8403 | | Call 0x2,0x3 012d e5fe | | Load 0x2,-0x2 012e 4801 |H | Short_Literal 0x1 012f e5ff | | Load 0x2,-0x1 0130 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0131 01d5 | | Execute Vector,Field_Reference 0132 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0133 0afe | | Execute_Immediate Plus,-0x2 0134 00d8 | | Load_Top At_Offset_0 0135 00e4 | | Load_Encached Positive_Cache 0136 0260 | ` | Execute Discrete,In_Type 0137 7001 |p | Jump_Nonzero 0x139 0138 0801 | | Execute_Immediate Raise,0x1 0139 e5ff | | Load 0x2,-0x1 013a 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 013b e5ff | | Load 0x2,-0x1 013c 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 013d 01d5 | | Execute Vector,Field_Reference 013e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 013f 4801 |H | Short_Literal 0x1 0140 e5ff | | Load 0x2,-0x1 0141 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0142 01d5 | | Execute Vector,Field_Reference 0143 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0144 e00c | | Load 0x0,0xc 0145 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0146 e5fe | | Load 0x2,-0x2 0147 4801 |H | Short_Literal 0x1 0148 e5ff | | Load 0x2,-0x1 0149 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 014a 01d5 | | Execute Vector,Field_Reference 014b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 014c e5ff | | Load 0x2,-0x1 014d 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 014e e5ff | | Load 0x2,-0x1 014f 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0150 01d5 | | Execute Vector,Field_Reference 0151 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0152 0273 | s | Execute Discrete,Plus 0153 09ff | | Execute_Immediate Binary_Scale,-0x1 0154 00d8 | | Load_Top At_Offset_0 0155 00e4 | | Load_Encached Positive_Cache 0156 0260 | ` | Execute Discrete,In_Type 0157 7001 |p | Jump_Nonzero 0x159 0158 0801 | | Execute_Immediate Raise,0x1 0159 4801 |H | Short_Literal 0x1 015a e5ff | | Load 0x2,-0x1 015b 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 015c 01d5 | | Execute Vector,Field_Reference 015d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 015e 0afc | | Execute_Immediate Plus,-0x4 015f 00d8 | | Load_Top At_Offset_0 0160 00e4 | | Load_Encached Positive_Cache 0161 0260 | ` | Execute Discrete,In_Type 0162 7001 |p | Jump_Nonzero 0x164 0163 0801 | | Execute_Immediate Raise,0x1 0164 4801 |H | Short_Literal 0x1 0165 e5ff | | Load 0x2,-0x1 0166 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0167 01d5 | | Execute Vector,Field_Reference 0168 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0169 0afe | | Execute_Immediate Plus,-0x2 016a 00d8 | | Load_Top At_Offset_0 016b 00e4 | | Load_Encached Positive_Cache 016c 0260 | ` | Execute Discrete,In_Type 016d 7001 |p | Jump_Nonzero 0x16f 016e 0801 | | Execute_Immediate Raise,0x1 016f e00c | | Load 0x0,0xc 0170 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0171 e5fe | | Load 0x2,-0x2 0172 4801 |H | Short_Literal 0x1 0173 e5ff | | Load 0x2,-0x1 0174 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0175 01d5 | | Execute Vector,Field_Reference 0176 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0177 0afc | | Execute_Immediate Plus,-0x4 0178 00d8 | | Load_Top At_Offset_0 0179 00e4 | | Load_Encached Positive_Cache 017a 0260 | ` | Execute Discrete,In_Type 017b 7001 |p | Jump_Nonzero 0x17d 017c 0801 | | Execute_Immediate Raise,0x1 017d e5ff | | Load 0x2,-0x1 017e 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 017f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0180 0a01 | | Execute_Immediate Plus,0x1 0181 00d8 | | Load_Top At_Offset_0 0182 00e4 | | Load_Encached Positive_Cache 0183 0260 | ` | Execute Discrete,In_Type 0184 7001 |p | Jump_Nonzero 0x186 0185 0801 | | Execute_Immediate Raise,0x1 0186 4801 |H | Short_Literal 0x1 0187 e5ff | | Load 0x2,-0x1 0188 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0189 01d5 | | Execute Vector,Field_Reference 018a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018b e5ff | | Load 0x2,-0x1 018c 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 018d e5ff | | Load 0x2,-0x1 018e 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 018f 01d5 | | Execute Vector,Field_Reference 0190 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0191 0273 | s | Execute Discrete,Plus 0192 09ff | | Execute_Immediate Binary_Scale,-0x1 0193 00d8 | | Load_Top At_Offset_0 0194 00e4 | | Load_Encached Positive_Cache 0195 0260 | ` | Execute Discrete,In_Type 0196 7001 |p | Jump_Nonzero 0x198 0197 0801 | | Execute_Immediate Raise,0x1 0198 e00c | | Load 0x0,0xc 0199 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019b e5fe | | Load 0x2,-0x2 019c e213 | | Load 0x1,0x13 019d 0322 | " | Declare_Variable Record 019e e003 | | Load 0x0,0x3 019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a0 e213 | | Load 0x1,0x13 01a1 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 01a2 0119 | | Execute Any,Check_In_Formal_Type 01a3 00d9 | | Load_Top At_Offset_1 01a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a5 0092 0217 | | Action Push_String_Extended,0x217 ; "(no calls)" 01a7 e009 | | Load 0x0,0x9 01a8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01a9 00d9 | | Load_Top At_Offset_1 01aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ab e5ff | | Load 0x2,-0x1 01ac 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 01ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ae 0a04 | | Execute_Immediate Plus,0x4 01af 00d9 | | Load_Top At_Offset_1 01b0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b1 480b |H | Short_Literal 0xb 01b2 00d9 | | Load_Top At_Offset_1 01b3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b4 8402 | | Call 0x2,0x2 01b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b6 0000 0000 | | .XXX[0x2] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4800 |H | Short_Literal 0x0 01bc 00db | | Load_Top At_Offset_3 01bd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01be e7ff | | Load 0x3,-0x1 01bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c0 e7fe | | Load 0x3,-0x2 01c1 e006 | | Load 0x0,0x6 01c2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01c3 4800 |H | Short_Literal 0x0 01c4 e006 | | Load 0x0,0x6 01c5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01c6 e7ff | | Load 0x3,-0x1 01c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c8 e009 | | Load 0x0,0x9 01c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ca e7fe | | Load 0x3,-0x2 01cb e006 | | Load 0x0,0x6 01cc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 01d4 e7fd | | Load 0x3,-0x3 01d5 e7fe | | Load 0x3,-0x2 01d6 e7fc | | Load 0x3,-0x4 01d7 e006 | | Load 0x0,0x6 01d8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01d9 4800 |H | Short_Literal 0x0 01da e00d | | Load 0x0,0xd 01db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dc e7ff | | Load 0x3,-0x1 01dd e7fc | | Load 0x3,-0x4 01de e006 | | Load 0x0,0x6 01df 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00db | | Load_Top At_Offset_3 01ec 00db | | Load_Top At_Offset_3 01ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01ee e7ff | | Load 0x3,-0x1 01ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f0 e009 | | Load 0x0,0x9 01f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f2 0273 | s | Execute Discrete,Plus 01f3 00d8 | | Load_Top At_Offset_0 01f4 00e4 | | Load_Encached Positive_Cache 01f5 0260 | ` | Execute Discrete,In_Type 01f6 7001 |p | Jump_Nonzero 0x1f8 01f7 0801 | | Execute_Immediate Raise,0x1 01f8 e7ff | | Load 0x3,-0x1 01f9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01fa 0a01 | | Execute_Immediate Plus,0x1 01fb 00d8 | | Load_Top At_Offset_0 01fc 00e4 | | Load_Encached Positive_Cache 01fd 0260 | ` | Execute Discrete,In_Type 01fe 7001 |p | Jump_Nonzero 0x200 01ff 0801 | | Execute_Immediate Raise,0x1 0200 e7ff | | Load 0x3,-0x1 0201 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0202 0aff | | Execute_Immediate Plus,-0x1 0203 00d8 | | Load_Top At_Offset_0 0204 00e4 | | Load_Encached Positive_Cache 0205 0260 | ` | Execute Discrete,In_Type 0206 7001 |p | Jump_Nonzero 0x208 0207 0801 | | Execute_Immediate Raise,0x1 0208 e7ff | | Load 0x3,-0x1 0209 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 020a 0aff | | Execute_Immediate Plus,-0x1 020b 00d8 | | Load_Top At_Offset_0 020c 00e4 | | Load_Encached Positive_Cache 020d 0260 | ` | Execute Discrete,In_Type 020e 7001 |p | Jump_Nonzero 0x210 020f 0801 | | Execute_Immediate Raise,0x1 0210 e00c | | Load 0x0,0xc 0211 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0212 00db | | Load_Top At_Offset_3 0213 00db | | Load_Top At_Offset_3 0214 8402 | | Call 0x2,0x2 0215 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0216 ; -------------------------------------------------------------------------------------- 0216 ; STRING TABLE 0216 ; -------------------------------------------------------------------------------------- 0216 0006 | | .STRTAB 0x0006->0x0219 ; "(no callers)" 0217 0010 | | .STRTAB 0x0010->0x021f ; "(no calls)" 0218 0018 | | .STREND 0x0018->0x0224 0219 286e 6f20 |(no | .STRTAB_STRINGS 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug Table 0228 ; -------------------------------------------------------------------------------------- 0228 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2ee9,0x0000,0x0001,0x0004 022e 000b 023e | >| .DBG4T 0x000b,0x023e,0x0001,0x0000 0232 01bb 0258 | X| .DBG4T 0x01bb,0x0258,0x0001,0x0000 0236 01d3 025c | \| .DBG4T 0x01d3,0x025c,0x0001,0x0000 023a 01eb 0260 | `| .DBG4T 0x01eb,0x0260,0x0001,0x0000 023e ; -------------------------------------------------------------------------------------- 023e ; Debug chain 023e ; -------------------------------------------------------------------------------------- 023e 0003 0015 | | .DBGLEN 0x0003,0x0015 0240 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0014,0x0018,0x001d,0x0022,0x002b,0x002f,0x0048,0x0062,0x007b,0x00a6,0x00d0,0x00e8,0x00ed,0x00f6,0x00fa,0x0113,0x012d,0x0146,0x0171,0x019b 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug chain 0258 ; -------------------------------------------------------------------------------------- 0258 0000 0002 | | .DBGLEN 0x0000,0x0002 025a 01bb 01c3 | | .DBGLNO 0x01bb,0x01c3 025c ; -------------------------------------------------------------------------------------- 025c ; Debug chain 025c ; -------------------------------------------------------------------------------------- 025c 0000 0002 | | .DBGLEN 0x0000,0x0002 025e 01d3 01d9 | | .DBGLNO 0x01d3,0x01d9 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug chain 0260 ; -------------------------------------------------------------------------------------- 0260 0000 0002 | | .DBGLEN 0x0000,0x0002 0262 01eb 0212 | | .DBGLNO 0x01eb,0x0212 0264 0000 0000 | | .BLANK 0000[0x19c]