|
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_590cc5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0298 | | .CONST 0x0298 ; 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 021d | | .CONST 0x021d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0005 | | .CONST 0x0005 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
000d 0337 | 7 | Declare_Variable Array
000e 00d8 | | Load_Top At_Offset_0
000f 0335 | 5 | Declare_Variable Array,Duplicate
0010 00cd | | Action Spare6_Action
0011 4800 |H | Short_Literal 0x0
0012 4800 |H | Short_Literal 0x0
0013 00da | | Load_Top At_Offset_2
0014 01d6 | | Execute Vector,Field_Write
0015 4800 |H | Short_Literal 0x0
0016 4801 |H | Short_Literal 0x1
0017 00da | | Load_Top At_Offset_2
0018 01d6 | | Execute Vector,Field_Write
0019 4800 |H | Short_Literal 0x0
001a 4802 |H | Short_Literal 0x2
001b 00da | | Load_Top At_Offset_2
001c 01d6 | | Execute Vector,Field_Write
001d 4801 |H | Short_Literal 0x1
001e 4803 |H | Short_Literal 0x3
001f 00da | | Load_Top At_Offset_2
0020 01d6 | | Execute Vector,Field_Write
0021 4800 |H | Short_Literal 0x0
0022 4804 |H | Short_Literal 0x4
0023 00da | | Load_Top At_Offset_2
0024 01d6 | | Execute Vector,Field_Write
0025 00d9 | | Load_Top At_Offset_1
0026 01d4 | | Execute Vector,Structure_Write
0027 4800 |H | Short_Literal 0x0
0028 4808 |H | Short_Literal 0x8
0029 e002 | | Load 0x0,0x2
002a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
002b 035b | [ | Declare_Type Array,Constrained
002c 0337 | 7 | Declare_Variable Array
002d e20f | | Load 0x1,0xf
002e 00ea | | Load_Encached Null_String_Cache
002f 4801 |H | Short_Literal 0x1
0030 4800 |H | Short_Literal 0x0
0031 0092 021f | | Action Push_String_Extended,0x21f ; "false"
0033 0092 0220 | | Action Push_String_Extended,0x220 ; "Assemble"
0035 4801 |H | Short_Literal 0x1
0036 e002 | | Load 0x0,0x2
0037 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0038 0337 | 7 | Declare_Variable Array
0039 4801 |H | Short_Literal 0x1
003a 4801 |H | Short_Literal 0x1
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 4800 |H | Short_Literal 0x0
003e 4800 |H | Short_Literal 0x0
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 4800 |H | Short_Literal 0x0
0042 4802 |H | Short_Literal 0x2
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4800 |H | Short_Literal 0x0
0046 4803 |H | Short_Literal 0x3
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 e002 | | Load 0x0,0x2
004a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004b 01c3 | | Execute Vector,Check_In_Type
004c 0092 0221 | !| Action Push_String_Extended,0x221 ; "S"
004e e002 | | Load 0x0,0x2
004f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0050 e002 | | Load 0x0,0x2
0051 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0052 0119 | | Execute Any,Check_In_Formal_Type
0053 4800 |H | Short_Literal 0x0
0054 00da | | Load_Top At_Offset_2
0055 01d6 | | Execute Vector,Field_Write
0056 e20f | | Load 0x1,0xf
0057 00ea | | Load_Encached Null_String_Cache
0058 4801 |H | Short_Literal 0x1
0059 4800 |H | Short_Literal 0x0
005a 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
005c 0092 0223 | #| Action Push_String_Extended,0x223 ; "Debugging"
005e 4801 |H | Short_Literal 0x1
005f e002 | | Load 0x0,0x2
0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0061 0337 | 7 | Declare_Variable Array
0062 4801 |H | Short_Literal 0x1
0063 4801 |H | Short_Literal 0x1
0064 00da | | Load_Top At_Offset_2
0065 01d6 | | Execute Vector,Field_Write
0066 4800 |H | Short_Literal 0x0
0067 4800 |H | Short_Literal 0x0
0068 00da | | Load_Top At_Offset_2
0069 01d6 | | Execute Vector,Field_Write
006a 4800 |H | Short_Literal 0x0
006b 4802 |H | Short_Literal 0x2
006c 00da | | Load_Top At_Offset_2
006d 01d6 | | Execute Vector,Field_Write
006e 4800 |H | Short_Literal 0x0
006f 4803 |H | Short_Literal 0x3
0070 00da | | Load_Top At_Offset_2
0071 01d6 | | Execute Vector,Field_Write
0072 e002 | | Load 0x0,0x2
0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0074 01c3 | | Execute Vector,Check_In_Type
0075 0092 0224 | $| Action Push_String_Extended,0x224 ; "fD"
0077 e002 | | Load 0x0,0x2
0078 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0079 e002 | | Load 0x0,0x2
007a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
007b 0119 | | Execute Any,Check_In_Formal_Type
007c 4801 |H | Short_Literal 0x1
007d 00da | | Load_Top At_Offset_2
007e 01d6 | | Execute Vector,Field_Write
007f e20f | | Load 0x1,0xf
0080 00ea | | Load_Encached Null_String_Cache
0081 4801 |H | Short_Literal 0x1
0082 4800 |H | Short_Literal 0x0
0083 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
0085 0092 0225 | %| Action Push_String_Extended,0x225 ; "Minor_Optimize"
0087 4801 |H | Short_Literal 0x1
0088 e002 | | Load 0x0,0x2
0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008a 0337 | 7 | Declare_Variable Array
008b 4801 |H | Short_Literal 0x1
008c 4801 |H | Short_Literal 0x1
008d 00da | | Load_Top At_Offset_2
008e 01d6 | | Execute Vector,Field_Write
008f 4800 |H | Short_Literal 0x0
0090 4800 |H | Short_Literal 0x0
0091 00da | | Load_Top At_Offset_2
0092 01d6 | | Execute Vector,Field_Write
0093 4800 |H | Short_Literal 0x0
0094 4802 |H | Short_Literal 0x2
0095 00da | | Load_Top At_Offset_2
0096 01d6 | | Execute Vector,Field_Write
0097 4800 |H | Short_Literal 0x0
0098 4803 |H | Short_Literal 0x3
0099 00da | | Load_Top At_Offset_2
009a 01d6 | | Execute Vector,Field_Write
009b e002 | | Load 0x0,0x2
009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009d 01c3 | | Execute Vector,Check_In_Type
009e 0092 0226 | &| Action Push_String_Extended,0x226 ; "K"
00a0 e002 | | Load 0x0,0x2
00a1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00a2 e002 | | Load 0x0,0x2
00a3 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00a4 0119 | | Execute Any,Check_In_Formal_Type
00a5 4802 |H | Short_Literal 0x2
00a6 00da | | Load_Top At_Offset_2
00a7 01d6 | | Execute Vector,Field_Write
00a8 e20f | | Load 0x1,0xf
00a9 00ea | | Load_Encached Null_String_Cache
00aa 4801 |H | Short_Literal 0x1
00ab 4800 |H | Short_Literal 0x0
00ac 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
00ae 0092 0227 | '| Action Push_String_Extended,0x227 ; "Major_Optimize"
00b0 4801 |H | Short_Literal 0x1
00b1 e002 | | Load 0x0,0x2
00b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b3 0337 | 7 | Declare_Variable Array
00b4 4801 |H | Short_Literal 0x1
00b5 4801 |H | Short_Literal 0x1
00b6 00da | | Load_Top At_Offset_2
00b7 01d6 | | Execute Vector,Field_Write
00b8 4800 |H | Short_Literal 0x0
00b9 4800 |H | Short_Literal 0x0
00ba 00da | | Load_Top At_Offset_2
00bb 01d6 | | Execute Vector,Field_Write
00bc 4800 |H | Short_Literal 0x0
00bd 4802 |H | Short_Literal 0x2
00be 00da | | Load_Top At_Offset_2
00bf 01d6 | | Execute Vector,Field_Write
00c0 4800 |H | Short_Literal 0x0
00c1 4803 |H | Short_Literal 0x3
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 e002 | | Load 0x0,0x2
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 01c3 | | Execute Vector,Check_In_Type
00c7 0092 0228 | (| Action Push_String_Extended,0x228 ; "K -g"
00c9 e002 | | Load 0x0,0x2
00ca 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00cb e002 | | Load 0x0,0x2
00cc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00cd 0119 | | Execute Any,Check_In_Formal_Type
00ce 4803 |H | Short_Literal 0x3
00cf 00da | | Load_Top At_Offset_2
00d0 01d6 | | Execute Vector,Field_Write
00d1 e20f | | Load 0x1,0xf
00d2 00ea | | Load_Encached Null_String_Cache
00d3 4801 |H | Short_Literal 0x1
00d4 4800 |H | Short_Literal 0x0
00d5 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
00d7 0092 0225 | %| Action Push_String_Extended,0x225 ; "Minor_Optimize"
00d9 4801 |H | Short_Literal 0x1
00da e002 | | Load 0x0,0x2
00db 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dc 0337 | 7 | Declare_Variable Array
00dd 4801 |H | Short_Literal 0x1
00de 4803 |H | Short_Literal 0x3
00df 00da | | Load_Top At_Offset_2
00e0 01d6 | | Execute Vector,Field_Write
00e1 4802 |H | Short_Literal 0x2
00e2 4800 |H | Short_Literal 0x0
00e3 4800 |H | Short_Literal 0x0
00e4 00d9 | | Load_Top At_Offset_1
00e5 e40b | | Load 0x2,0xb
00e6 01d6 | | Execute Vector,Field_Write
00e7 3ffb |? | Loop_Increasing 0xe3
00e8 e002 | | Load 0x0,0x2
00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ea 01c3 | | Execute Vector,Check_In_Type
00eb 0092 0229 | )| Action Push_String_Extended,0x229 ; "g"
00ed e002 | | Load 0x0,0x2
00ee 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ef e002 | | Load 0x0,0x2
00f0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00f1 0119 | | Execute Any,Check_In_Formal_Type
00f2 4804 |H | Short_Literal 0x4
00f3 00da | | Load_Top At_Offset_2
00f4 01d6 | | Execute Vector,Field_Write
00f5 e20f | | Load 0x1,0xf
00f6 00ea | | Load_Encached Null_String_Cache
00f7 4801 |H | Short_Literal 0x1
00f8 4800 |H | Short_Literal 0x0
00f9 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
00fb 0092 0227 | '| Action Push_String_Extended,0x227 ; "Major_Optimize"
00fd 4801 |H | Short_Literal 0x1
00fe e002 | | Load 0x0,0x2
00ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0100 0337 | 7 | Declare_Variable Array
0101 4801 |H | Short_Literal 0x1
0102 4803 |H | Short_Literal 0x3
0103 00da | | Load_Top At_Offset_2
0104 01d6 | | Execute Vector,Field_Write
0105 4802 |H | Short_Literal 0x2
0106 4800 |H | Short_Literal 0x0
0107 4800 |H | Short_Literal 0x0
0108 00d9 | | Load_Top At_Offset_1
0109 e40b | | Load 0x2,0xb
010a 01d6 | | Execute Vector,Field_Write
010b 3ffb |? | Loop_Increasing 0x107
010c e002 | | Load 0x0,0x2
010d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010e 01c3 | | Execute Vector,Check_In_Type
010f 0092 022a | *| Action Push_String_Extended,0x22a ; "G"
0111 e002 | | Load 0x0,0x2
0112 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0113 e002 | | Load 0x0,0x2
0114 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0115 0119 | | Execute Any,Check_In_Formal_Type
0116 4805 |H | Short_Literal 0x5
0117 00da | | Load_Top At_Offset_2
0118 01d6 | | Execute Vector,Field_Write
0119 e20f | | Load 0x1,0xf
011a 00ea | | Load_Encached Null_String_Cache
011b 4801 |H | Short_Literal 0x1
011c 4800 |H | Short_Literal 0x0
011d 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
011f 0092 022b | +| Action Push_String_Extended,0x22b ; "List"
0121 4801 |H | Short_Literal 0x1
0122 e002 | | Load 0x0,0x2
0123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0124 0337 | 7 | Declare_Variable Array
0125 4801 |H | Short_Literal 0x1
0126 4801 |H | Short_Literal 0x1
0127 00da | | Load_Top At_Offset_2
0128 01d6 | | Execute Vector,Field_Write
0129 4800 |H | Short_Literal 0x0
012a 4800 |H | Short_Literal 0x0
012b 00da | | Load_Top At_Offset_2
012c 01d6 | | Execute Vector,Field_Write
012d 4800 |H | Short_Literal 0x0
012e 4802 |H | Short_Literal 0x2
012f 00da | | Load_Top At_Offset_2
0130 01d6 | | Execute Vector,Field_Write
0131 4800 |H | Short_Literal 0x0
0132 4803 |H | Short_Literal 0x3
0133 00da | | Load_Top At_Offset_2
0134 01d6 | | Execute Vector,Field_Write
0135 e002 | | Load 0x0,0x2
0136 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0137 01c3 | | Execute Vector,Check_In_Type
0138 0092 022c | ,| Action Push_String_Extended,0x22c ; "lp"
013a e002 | | Load 0x0,0x2
013b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
013c e002 | | Load 0x0,0x2
013d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
013e 0119 | | Execute Any,Check_In_Formal_Type
013f 4806 |H | Short_Literal 0x6
0140 00da | | Load_Top At_Offset_2
0141 01d6 | | Execute Vector,Field_Write
0142 e20f | | Load 0x1,0xf
0143 00ea | | Load_Encached Null_String_Cache
0144 4801 |H | Short_Literal 0x1
0145 4800 |H | Short_Literal 0x0
0146 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
0148 0092 022d | -| Action Push_String_Extended,0x22d ; "Verbose"
014a 4801 |H | Short_Literal 0x1
014b e002 | | Load 0x0,0x2
014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014d 0337 | 7 | Declare_Variable Array
014e 4801 |H | Short_Literal 0x1
014f 4801 |H | Short_Literal 0x1
0150 00da | | Load_Top At_Offset_2
0151 01d6 | | Execute Vector,Field_Write
0152 4800 |H | Short_Literal 0x0
0153 4800 |H | Short_Literal 0x0
0154 00da | | Load_Top At_Offset_2
0155 01d6 | | Execute Vector,Field_Write
0156 4800 |H | Short_Literal 0x0
0157 4802 |H | Short_Literal 0x2
0158 00da | | Load_Top At_Offset_2
0159 01d6 | | Execute Vector,Field_Write
015a 4800 |H | Short_Literal 0x0
015b 4803 |H | Short_Literal 0x3
015c 00da | | Load_Top At_Offset_2
015d 01d6 | | Execute Vector,Field_Write
015e e002 | | Load 0x0,0x2
015f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0160 01c3 | | Execute Vector,Check_In_Type
0161 0092 022e | .| Action Push_String_Extended,0x22e ; "fv"
0163 e002 | | Load 0x0,0x2
0164 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0165 e002 | | Load 0x0,0x2
0166 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0167 0119 | | Execute Any,Check_In_Formal_Type
0168 4807 |H | Short_Literal 0x7
0169 00da | | Load_Top At_Offset_2
016a 01d6 | | Execute Vector,Field_Write
016b e20f | | Load 0x1,0xf
016c 00ea | | Load_Encached Null_String_Cache
016d 4801 |H | Short_Literal 0x1
016e 4800 |H | Short_Literal 0x0
016f 0092 0222 | "| Action Push_String_Extended,0x222 ; "False"
0171 0092 022d | -| Action Push_String_Extended,0x22d ; "Verbose"
0173 4801 |H | Short_Literal 0x1
0174 e002 | | Load 0x0,0x2
0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0176 0337 | 7 | Declare_Variable Array
0177 4801 |H | Short_Literal 0x1
0178 4803 |H | Short_Literal 0x3
0179 00da | | Load_Top At_Offset_2
017a 01d6 | | Execute Vector,Field_Write
017b 4802 |H | Short_Literal 0x2
017c 4800 |H | Short_Literal 0x0
017d 4800 |H | Short_Literal 0x0
017e 00d9 | | Load_Top At_Offset_1
017f e40b | | Load 0x2,0xb
0180 01d6 | | Execute Vector,Field_Write
0181 3ffb |? | Loop_Increasing 0x17d
0182 e002 | | Load 0x0,0x2
0183 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0184 01c3 | | Execute Vector,Check_In_Type
0185 0092 022f | /| Action Push_String_Extended,0x22f ; "v"
0187 e002 | | Load 0x0,0x2
0188 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0189 e002 | | Load 0x0,0x2
018a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
018b 0119 | | Execute Any,Check_In_Formal_Type
018c 4808 |H | Short_Literal 0x8
018d 00da | | Load_Top At_Offset_2
018e 01d6 | | Execute Vector,Field_Write
018f 4800 |H | Short_Literal 0x0
0190 4802 |H | Short_Literal 0x2
0191 e002 | | Load 0x0,0x2
0192 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
0193 035b | [ | Declare_Type Array,Constrained
0194 0337 | 7 | Declare_Variable Array
0195 e20f | | Load 0x1,0xf
0196 00ea | | Load_Encached Null_String_Cache
0197 00ea | | Load_Encached Null_String_Cache
0198 4800 |H | Short_Literal 0x0
0199 4800 |H | Short_Literal 0x0
019a 0092 0230 | 0| Action Push_String_Extended,0x230 ; "exe"
019c 00ea | | Load_Encached Null_String_Cache
019d 4800 |H | Short_Literal 0x0
019e 4803 |H | Short_Literal 0x3
019f 4800 |H | Short_Literal 0x0
01a0 4801 |H | Short_Literal 0x1
01a1 e002 | | Load 0x0,0x2
01a2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01a3 e002 | | Load 0x0,0x2
01a4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01a5 0119 | | Execute Any,Check_In_Formal_Type
01a6 4800 |H | Short_Literal 0x0
01a7 00da | | Load_Top At_Offset_2
01a8 01d6 | | Execute Vector,Field_Write
01a9 e20f | | Load 0x1,0xf
01aa 0092 0231 | 1| Action Push_String_Extended,0x231 ; "lst"
01ac 00ea | | Load_Encached Null_String_Cache
01ad 4800 |H | Short_Literal 0x0
01ae 4801 |H | Short_Literal 0x1
01af 0092 0232 | 2| Action Push_String_Extended,0x232 ; "list"
01b1 0092 022b | +| Action Push_String_Extended,0x22b ; "List"
01b3 4801 |H | Short_Literal 0x1
01b4 4801 |H | Short_Literal 0x1
01b5 4803 |H | Short_Literal 0x3
01b6 4800 |H | Short_Literal 0x0
01b7 e002 | | Load 0x0,0x2
01b8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01b9 e002 | | Load 0x0,0x2
01ba 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01bb 0119 | | Execute Any,Check_In_Formal_Type
01bc 4801 |H | Short_Literal 0x1
01bd 00da | | Load_Top At_Offset_2
01be 01d6 | | Execute Vector,Field_Write
01bf e20f | | Load 0x1,0xf
01c0 0092 0233 | 3| Action Push_String_Extended,0x233 ; "a"
01c2 0092 0234 | 4| Action Push_String_Extended,0x234 ; "ada.aux"
01c4 4800 |H | Short_Literal 0x0
01c5 4801 |H | Short_Literal 0x1
01c6 0092 0235 | 5| Action Push_String_Extended,0x235 ; "asm"
01c8 0092 0220 | | Action Push_String_Extended,0x220 ; "Assemble"
01ca 4801 |H | Short_Literal 0x1
01cb 4801 |H | Short_Literal 0x1
01cc 4803 |H | Short_Literal 0x3
01cd 4800 |H | Short_Literal 0x0
01ce e002 | | Load 0x0,0x2
01cf 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01d0 e002 | | Load 0x0,0x2
01d1 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01d2 0119 | | Execute Any,Check_In_Formal_Type
01d3 4802 |H | Short_Literal 0x2
01d4 00da | | Load_Top At_Offset_2
01d5 01d6 | | Execute Vector,Field_Write
01d6 e002 | | Load 0x0,0x2
01d7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01d8 02c7 | | Declare_Variable Any
01d9 e20f | | Load 0x1,0xf
01da 00ea | | Load_Encached Null_String_Cache
01db 00ea | | Load_Encached Null_String_Cache
01dc 0092 0236 | 6| Action Push_String_Extended,0x236 ; "newfolder"
01de 00ea | | Load_Encached Null_String_Cache
01df 0092 0237 | 7| Action Push_String_Extended,0x237 ; "duplicate"
01e1 0092 0238 | 8| Action Push_String_Extended,0x238 ; "execute"
01e3 4801 |H | Short_Literal 0x1
01e4 e210 | | Load 0x1,0x10
01e5 e404 | | Load 0x2,0x4
01e6 4800 |H | Short_Literal 0x0
01e7 00ea | | Load_Encached Null_String_Cache
01e8 00ea | | Load_Encached Null_String_Cache
01e9 0092 0239 | 9| Action Push_String_Extended,0x239 ; "."
01eb e403 | | Load 0x2,0x3
01ec 0092 023a | :| Action Push_String_Extended,0x23a ; " "
01ee 0092 023b | ;| Action Push_String_Extended,0x23b ; "-"
01f0 0092 023a | :| Action Push_String_Extended,0x23a ; " "
01f2 4801 |H | Short_Literal 0x1
01f3 4800 |H | Short_Literal 0x0
01f4 0092 023c | <| Action Push_String_Extended,0x23c ; ".ada\x22, "
01f6 4800 |H | Short_Literal 0x0
01f7 4801 |H | Short_Literal 0x1
01f8 0092 023d | =| Action Push_String_Extended,0x23d ; "ada.lib"
01fa 00ea | | Load_Encached Null_String_Cache
01fb 0092 023e | >| Action Push_String_Extended,0x23e ; "directory"
01fd 4800 |H | Short_Literal 0x0
01fe 0092 023f | ?| Action Push_String_Extended,0x23f ; "o"
0200 00ea | | Load_Encached Null_String_Cache
0201 00ea | | Load_Encached Null_String_Cache
0202 0092 0240 | @| Action Push_String_Extended,0x240 ; "bamp"
0204 00ea | | Load_Encached Null_String_Cache
0205 00ea | | Load_Encached Null_String_Cache
0206 0092 0241 | A| Action Push_String_Extended,0x241 ; "ada"
0208 48ff |H | Short_Literal 0xff
0209 4801 |H | Short_Literal 0x1
020a 4800 |H | Short_Literal 0x0
020b 00ea | | Load_Encached Null_String_Cache
020c 0092 0242 | B| Action Push_String_Extended,0x242 ; ":"
020e 00ea | | Load_Encached Null_String_Cache
020f 0092 0242 | B| Action Push_String_Extended,0x242 ; ":"
0211 0092 0239 | 9| Action Push_String_Extended,0x239 ; "."
0213 0092 0241 | A| Action Push_String_Extended,0x241 ; "ada"
0215 0092 0241 | A| Action Push_String_Extended,0x241 ; "ada"
0217 48ff |H | Short_Literal 0xff
0218 481b |H | Short_Literal 0x1b
0219 e402 | | Load 0x2,0x2
021a e002 | | Load 0x0,0x2
021b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
021c a405 | | Store_Unchecked 0x2,0x5
021d BODY_0008:
021d 00d8 | | Load_Top At_Offset_0
021e 00ca | | Action Exit_Nullary_Function
021f ; --------------------------------------------------------------------------------------
021f ; STRING TABLE
021f ; --------------------------------------------------------------------------------------
021f 004a | J | .STRTAB 0x004a->0x0244 ; "false"
0220 004d | M | .STRTAB 0x004d->0x0246 ; "Assemble"
0221 0053 | S | .STRTAB 0x0053->0x024a ; "S"
0222 0052 | R | .STRTAB 0x0052->0x024b ; "False"
0223 0055 | U | .STRTAB 0x0055->0x024d ; "Debugging"
0224 005c | \ | .STRTAB 0x005c->0x0252 ; "fD"
0225 005c | \ | .STRTAB 0x005c->0x0253 ; "Minor_Optimize"
0226 0068 | h | .STRTAB 0x0068->0x025a ; "K"
0227 0067 | g | .STRTAB 0x0067->0x025a ; "Major_Optimize"
0228 0073 | s | .STRTAB 0x0073->0x0261 ; "K -g"
0229 0075 | u | .STRTAB 0x0075->0x0263 ; "g"
022a 0074 | t | .STRTAB 0x0074->0x0264 ; "G"
022b 0073 | s | .STRTAB 0x0073->0x0264 ; "List"
022c 0075 | u | .STRTAB 0x0075->0x0266 ; "lp"
022d 0075 | u | .STRTAB 0x0075->0x0267 ; "Verbose"
022e 007a | z | .STRTAB 0x007a->0x026b ; "fv"
022f 007a | z | .STRTAB 0x007a->0x026c ; "v"
0230 0079 | y | .STRTAB 0x0079->0x026c ; "exe"
0231 007a | z | .STRTAB 0x007a->0x026e ; "lst"
0232 007b | { | .STRTAB 0x007b->0x026f ; "list"
0233 007d | } | .STRTAB 0x007d->0x0271 ; "a"
0234 007c | | | .STRTAB 0x007c->0x0272 ; "ada.aux"
0235 0081 | | .STRTAB 0x0081->0x0275 ; "asm"
0236 0082 | | .STRTAB 0x0082->0x0277 ; "newfolder"
0237 0089 | | .STRTAB 0x0089->0x027b ; "duplicate"
0238 0090 | | .STRTAB 0x0090->0x0280 ; "execute"
0239 0095 | | .STRTAB 0x0095->0x0283 ; "."
023a 0094 | | .STRTAB 0x0094->0x0284 ; " "
023b 0093 | | .STRTAB 0x0093->0x0284 ; "-"
023c 0092 | | .STRTAB 0x0092->0x0285 ; ".ada\x22, "
023d 0097 | | .STRTAB 0x0097->0x0288 ; "ada.lib"
023e 009c | | .STRTAB 0x009c->0x028c ; "directory"
023f 00a3 | | .STRTAB 0x00a3->0x0290 ; "o"
0240 00a2 | | .STRTAB 0x00a2->0x0291 ; "bamp"
0241 00a4 | | .STRTAB 0x00a4->0x0293 ; "ada"
0242 00a5 | | .STRTAB 0x00a5->0x0294 ; ":"
0243 00a4 | | .STREND 0x00a4->0x0295
0244 6661 6c73 |fals| .STRTAB_STRINGS
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0004 | | .DEBUG4 0x0004,0x0004,0x717a,0x0000,0x0001,0x0001
029e 000b 02a2 | | .DBG4T 0x000b,0x02a2,0x0002,0x0000
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug chain
02a2 ; --------------------------------------------------------------------------------------
02a2 0004 0001 | | .DBGLEN 0x0004,0x0001
02a4 000b 0027 | '| .DBGLNO 0x000b,0x0027,0x018f,0x01d6,0x021d
02a9 0000 0000 | | .BLANK 0000[0x157]