|
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_05d0f0
└─⟦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 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 005d | ] | .CONST 0x005d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 4805 |H | Short_Literal 0x5
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 4801 |H | Short_Literal 0x1
000e 4807 |H | Short_Literal 0x7
000f 00e9 | | Load_Encached String_Cache
0010 035c | \ | Declare_Type Array,Constrained,Visible
0011 4800 |H | Short_Literal 0x0
0012 487f |H | Short_Literal 0x7f
0013 e002 | | Load 0x0,0x2
0014 03f9 | | Declare_Type Discrete,Constrained,Visible
0015 4801 |H | Short_Literal 0x1
0016 4808 |H | Short_Literal 0x8
0017 e002 | | Load 0x0,0x2
0018 03f9 | | Declare_Type Discrete,Constrained,Visible
0019 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
001f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0021 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0023 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0025 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0027 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0029 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
002b 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
002d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
002f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0031 e210 | | Load 0x1,0x10
0032 e20d | | Load 0x1,0xd
0033 00d8 | | Load_Top At_Offset_0
0034 e20d | | Load 0x1,0xd
0035 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
0037 4804 |H | Short_Literal 0x4
0038 0328 | ( | Declare_Type Record,Defined_Incomplete,Visible
0039 e003 | | Load 0x0,0x3
003a 00d8 | | Load_Top At_Offset_0
003b e003 | | Load 0x0,0x3
003c 00d8 | | Load_Top At_Offset_0
003d e20f | | Load 0x1,0xf
003e 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
0040 e20d | | Load 0x1,0xd
0041 0326 | & | Complete_Type Record,By_Defining
0042 00d8 | | Load_Top At_Offset_0
0043 0324 | $ | Complete_Type Record,By_Component_Completion
0044 00bf | | Action Accept_Activation
0045 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0046 00c7 | | Action Elaborate_Subprogram
0047 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0048 00c7 | | Action Elaborate_Subprogram
0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004a 00c7 | | Action Elaborate_Subprogram
004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004c 00c7 | | Action Elaborate_Subprogram
004d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004e 00c7 | | Action Elaborate_Subprogram
004f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0050 00c7 | | Action Elaborate_Subprogram
0051 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0052 00c7 | | Action Elaborate_Subprogram
0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0054 00c7 | | Action Elaborate_Subprogram
0055 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0056 00c7 | | Action Elaborate_Subprogram
0057 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0058 00c7 | | Action Elaborate_Subprogram
0059 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005a 00c7 | | Action Elaborate_Subprogram
005b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
005c 00c7 | | Action Elaborate_Subprogram
005d BODY_0008:
005d 00bc | | Action Signal_Activated
005e 00bb | | Action Signal_Completion
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e21d | | Load 0x1,0x1d
0064 0322 | " | Declare_Variable Record
0065 00db | | Load_Top At_Offset_3
0066 00d9 | | Load_Top At_Offset_1
0067 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0068 e5fe | | Load 0x2,-0x2
0069 00d9 | | Load_Top At_Offset_1
006a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006b e5fd | | Load 0x2,-0x3
006c 00d9 | | Load_Top At_Offset_1
006d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
006e e5fc | | Load 0x2,-0x4
006f 00d9 | | Load_Top At_Offset_1
0070 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0071 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007d | } | .CONST 0x007d ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e20f | | Load 0x1,0xf
007c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
007d BODY_0078:
007d 4801 |H | Short_Literal 0x1
007e e5fb | | Load 0x2,-0x5
007f 01d7 | | Execute Vector,Field_Read
0080 0f4c | L | Execute_Immediate Equal,0x4c
0081 6803 |h | Jump_Zero 0x85
0082 00d8 | | Load_Top At_Offset_0
0083 0a40 | @ | Execute_Immediate Plus,0x40
0084 0059 | Y | Store_Top Discrete,At_Offset_1
0085 4802 |H | Short_Literal 0x2
0086 e5fb | | Load 0x2,-0x5
0087 01d7 | | Execute Vector,Field_Read
0088 0f4d | M | Execute_Immediate Equal,0x4d
0089 6803 |h | Jump_Zero 0x8d
008a 00d8 | | Load_Top At_Offset_0
008b 0a20 | | Execute_Immediate Plus,0x20
008c 0059 | Y | Store_Top Discrete,At_Offset_1
008d 4803 |H | Short_Literal 0x3
008e e5fb | | Load 0x2,-0x5
008f 01d7 | | Execute Vector,Field_Read
0090 0f4d | M | Execute_Immediate Equal,0x4d
0091 6803 |h | Jump_Zero 0x95
0092 00d8 | | Load_Top At_Offset_0
0093 0a10 | | Execute_Immediate Plus,0x10
0094 0059 | Y | Store_Top Discrete,At_Offset_1
0095 4804 |H | Short_Literal 0x4
0096 e5fb | | Load 0x2,-0x5
0097 01d7 | | Execute Vector,Field_Read
0098 0f4a | J | Execute_Immediate Equal,0x4a
0099 6803 |h | Jump_Zero 0x9d
009a 00d8 | | Load_Top At_Offset_0
009b 0a08 | | Execute_Immediate Plus,0x8
009c 0059 | Y | Store_Top Discrete,At_Offset_1
009d 4805 |H | Short_Literal 0x5
009e e5fb | | Load 0x2,-0x5
009f 01d7 | | Execute Vector,Field_Read
00a0 0f56 | V | Execute_Immediate Equal,0x56
00a1 6803 |h | Jump_Zero 0xa5
00a2 00d8 | | Load_Top At_Offset_0
00a3 0a04 | | Execute_Immediate Plus,0x4
00a4 0059 | Y | Store_Top Discrete,At_Offset_1
00a5 4806 |H | Short_Literal 0x6
00a6 e5fb | | Load 0x2,-0x5
00a7 01d7 | | Execute Vector,Field_Read
00a8 0f53 | S | Execute_Immediate Equal,0x53
00a9 6803 |h | Jump_Zero 0xad
00aa 00d8 | | Load_Top At_Offset_0
00ab 0a02 | | Execute_Immediate Plus,0x2
00ac 0059 | Y | Store_Top Discrete,At_Offset_1
00ad 4807 |H | Short_Literal 0x7
00ae e5fb | | Load 0x2,-0x5
00af 01d7 | | Execute Vector,Field_Read
00b0 0f44 | D | Execute_Immediate Equal,0x44
00b1 6803 |h | Jump_Zero 0xb5
00b2 00d8 | | Load_Top At_Offset_0
00b3 0a01 | | Execute_Immediate Plus,0x1
00b4 0059 | Y | Store_Top Discrete,At_Offset_1
00b5 e20d | | Load 0x1,0xd
00b6 0322 | " | Declare_Variable Record
00b7 e5ff | | Load 0x2,-0x1
00b8 00d9 | | Load_Top At_Offset_1
00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ba e5fe | | Load 0x2,-0x2
00bb 00d9 | | Load_Top At_Offset_1
00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bd e5fd | | Load 0x2,-0x3
00be 00d9 | | Load_Top At_Offset_1
00bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c0 e5fc | | Load 0x2,-0x4
00c1 00d9 | | Load_Top At_Offset_1
00c2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c3 00d9 | | Load_Top At_Offset_1
00c4 00d9 | | Load_Top At_Offset_1
00c5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00c6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4809 |H | Short_Literal 0x9
00cc 480a |H | Short_Literal 0xa
00cd 4809 |H | Short_Literal 0x9
00ce 480a |H | Short_Literal 0xa
00cf 4809 |H | Short_Literal 0x9
00d0 e5ff | | Load 0x2,-0x1
00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d2 00e0 | | Load_Encached Standard_Cache
00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d4 01cb | | Execute Vector,Append
00d5 e5ff | | Load 0x2,-0x1
00d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d7 8214 | | Call 0x1,0x14
00d8 01cc | | Execute Vector,Catenate
00d9 01cb | | Execute Vector,Append
00da 01cb | | Execute Vector,Append
00db e5ff | | Load 0x2,-0x1
00dc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00dd 8214 | | Call 0x1,0x14
00de 01cc | | Execute Vector,Catenate
00df 01cb | | Execute Vector,Append
00e0 01cb | | Execute Vector,Append
00e1 00db | | Load_Top At_Offset_3
00e2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00e3 8214 | | Call 0x1,0x14
00e4 01cc | | Execute Vector,Catenate
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ed 8004 | | Call 0x0,0x4
00ee 0092 0293 | | Action Push_String_Extended,0x293 ; "-"
00f0 01cc | | Execute Vector,Catenate
00f1 00db | | Load_Top At_Offset_3
00f2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f3 8004 | | Call 0x0,0x4
00f4 01cc | | Execute Vector,Catenate
00f5 0092 0294 | | Action Push_String_Extended,0x294 ; " "
00f7 01cc | | Execute Vector,Catenate
00f8 00db | | Load_Top At_Offset_3
00f9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00fa 8004 | | Call 0x0,0x4
00fb 01cc | | Execute Vector,Catenate
00fc 0092 0293 | | Action Push_String_Extended,0x293 ; "-"
00fe 01cc | | Execute Vector,Catenate
00ff 00db | | Load_Top At_Offset_3
0100 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0101 8004 | | Call 0x0,0x4
0102 01cc | | Execute Vector,Catenate
0103 0092 0294 | | Action Push_String_Extended,0x294 ; " "
0105 01cc | | Execute Vector,Catenate
0106 00db | | Load_Top At_Offset_3
0107 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0108 8217 | | Call 0x1,0x17
0109 01cc | | Execute Vector,Catenate
010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0115 00db | | Load_Top At_Offset_3
0116 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0117 8216 | | Call 0x1,0x16
0118 01ca | | Execute Vector,Prepend
0119 00db | | Load_Top At_Offset_3
011a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
011b 8216 | | Call 0x1,0x16
011c 01cc | | Execute Vector,Catenate
011d 00db | | Load_Top At_Offset_3
011e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
011f 8216 | | Call 0x1,0x16
0120 01cc | | Execute Vector,Catenate
0121 e005 | | Load 0x0,0x5
0122 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
012d 00db | | Load_Top At_Offset_3
012e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012f 8006 | | Call 0x0,0x6
0130 e5ff | | Load 0x2,-0x1
0131 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0132 8006 | | Call 0x0,0x6
0133 01cc | | Execute Vector,Catenate
0134 e5ff | | Load 0x2,-0x1
0135 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0136 8006 | | Call 0x0,0x6
0137 01cc | | Execute Vector,Catenate
0138 e5ff | | Load 0x2,-0x1
0139 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
013a 8006 | | Call 0x0,0x6
013b 01cc | | Execute Vector,Catenate
013c 01cb | | Execute Vector,Append
013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 018c | | .CONST 0x018c ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0004 | | .CONST 0x0004 ; Number of locals
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 e20f | | Load 0x1,0xf
0145 03f1 | | Declare_Variable Discrete,With_Value
0146 e20e | | Load 0x1,0xe
0147 0337 | 7 | Declare_Variable Array
0148 00d8 | | Load_Top At_Offset_0
0149 0335 | 5 | Declare_Variable Array,Duplicate
014a 00cd | | Action Spare6_Action
014b 482d |H- | Short_Literal 0x2d
014c 4801 |H | Short_Literal 0x1
014d 00da | | Load_Top At_Offset_2
014e 01d6 | | Execute Vector,Field_Write
014f 482d |H- | Short_Literal 0x2d
0150 4802 |H | Short_Literal 0x2
0151 00da | | Load_Top At_Offset_2
0152 01d6 | | Execute Vector,Field_Write
0153 482d |H- | Short_Literal 0x2d
0154 4803 |H | Short_Literal 0x3
0155 00da | | Load_Top At_Offset_2
0156 01d6 | | Execute Vector,Field_Write
0157 482d |H- | Short_Literal 0x2d
0158 4804 |H | Short_Literal 0x4
0159 00da | | Load_Top At_Offset_2
015a 01d6 | | Execute Vector,Field_Write
015b 482d |H- | Short_Literal 0x2d
015c 4805 |H | Short_Literal 0x5
015d 00da | | Load_Top At_Offset_2
015e 01d6 | | Execute Vector,Field_Write
015f 482d |H- | Short_Literal 0x2d
0160 4806 |H | Short_Literal 0x6
0161 00da | | Load_Top At_Offset_2
0162 01d6 | | Execute Vector,Field_Write
0163 482d |H- | Short_Literal 0x2d
0164 4807 |H | Short_Literal 0x7
0165 00da | | Load_Top At_Offset_2
0166 01d6 | | Execute Vector,Field_Write
0167 00d9 | | Load_Top At_Offset_1
0168 01d4 | | Execute Vector,Structure_Write
0169 e20e | | Load 0x1,0xe
016a 0337 | 7 | Declare_Variable Array
016b 00d8 | | Load_Top At_Offset_0
016c 0335 | 5 | Declare_Variable Array,Duplicate
016d 00cd | | Action Spare6_Action
016e 484c |HL | Short_Literal 0x4c
016f 4801 |H | Short_Literal 0x1
0170 00da | | Load_Top At_Offset_2
0171 01d6 | | Execute Vector,Field_Write
0172 484d |HM | Short_Literal 0x4d
0173 4802 |H | Short_Literal 0x2
0174 00da | | Load_Top At_Offset_2
0175 01d6 | | Execute Vector,Field_Write
0176 484d |HM | Short_Literal 0x4d
0177 4803 |H | Short_Literal 0x3
0178 00da | | Load_Top At_Offset_2
0179 01d6 | | Execute Vector,Field_Write
017a 484a |HJ | Short_Literal 0x4a
017b 4804 |H | Short_Literal 0x4
017c 00da | | Load_Top At_Offset_2
017d 01d6 | | Execute Vector,Field_Write
017e 4856 |HV | Short_Literal 0x56
017f 4805 |H | Short_Literal 0x5
0180 00da | | Load_Top At_Offset_2
0181 01d6 | | Execute Vector,Field_Write
0182 4853 |HS | Short_Literal 0x53
0183 4806 |H | Short_Literal 0x6
0184 00da | | Load_Top At_Offset_2
0185 01d6 | | Execute Vector,Field_Write
0186 4844 |HD | Short_Literal 0x44
0187 4807 |H | Short_Literal 0x7
0188 00da | | Load_Top At_Offset_2
0189 01d6 | | Execute Vector,Field_Write
018a 00d9 | | Load_Top At_Offset_1
018b 01d4 | | Execute Vector,Structure_Write
018c BODY_0140:
018c 00cf | | Action Mark_Auxiliary
018d 4807 |H | Short_Literal 0x7
018e 4801 |H | Short_Literal 0x1
018f 0007 | | Action Break_Optional
0190 e402 | | Load 0x2,0x2
0191 4801 |H | Short_Literal 0x1
0192 0279 | y | Execute Discrete,And
0193 680a |h | Jump_Zero 0x19e
0194 4808 |H | Short_Literal 0x8
0195 00d9 | | Load_Top At_Offset_1
0196 0272 | r | Execute Discrete,Minus
0197 e404 | | Load 0x2,0x4
0198 01d7 | | Execute Vector,Field_Read
0199 4808 |H | Short_Literal 0x8
019a 00da | | Load_Top At_Offset_2
019b 0272 | r | Execute Discrete,Minus
019c e403 | | Load 0x2,0x3
019d 01d6 | | Execute Vector,Field_Write
019e e402 | | Load 0x2,0x2
019f 09ff | | Execute_Immediate Binary_Scale,-0x1
01a0 c402 | | Store 0x2,0x2
01a1 00c8 | | Action Pop_Auxiliary_Range
01a2 3fed |? | Loop_Increasing 0x190
01a3 00ce | | Action Pop_Auxiliary
01a4 00d9 | | Load_Top At_Offset_1
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4801 |H | Short_Literal 0x1
01ac 4801 |H | Short_Literal 0x1
01ad e007 | | Load 0x0,0x7
01ae 035b | [ | Declare_Type Array,Constrained
01af 0337 | 7 | Declare_Variable Array
01b0 00db | | Load_Top At_Offset_3
01b1 4801 |H | Short_Literal 0x1
01b2 00da | | Load_Top At_Offset_2
01b3 01d6 | | Execute Vector,Field_Write
01b4 e005 | | Load 0x0,0x5
01b5 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c4 | | .CONST 0x01c4 ; Address of begin
01b9 01ef | | .CONST 0x01ef ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e21d | | Load 0x1,0x1d
01bc 0322 | " | Declare_Variable Record
01bd 00d8 | | Load_Top At_Offset_0
01be 1c00 | | Execute_Immediate Run_Utility,0x0
01bf 4801 |H | Short_Literal 0x1
01c0 4809 |H | Short_Literal 0x9
01c1 e007 | | Load 0x0,0x7
01c2 035b | [ | Declare_Type Array,Constrained
01c3 0337 | 7 | Declare_Variable Array
01c4 BODY_01b8:
01c4 4801 |H | Short_Literal 0x1
01c5 e5ff | | Load 0x2,-0x1
01c6 01d7 | | Execute Vector,Field_Read
01c7 00da | | Load_Top At_Offset_2
01c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c9 4802 |H | Short_Literal 0x2
01ca 480a |H | Short_Literal 0xa
01cb e5ff | | Load 0x2,-0x1
01cc 01cf | | Execute Vector,Slice_Read
01cd 4801 |H | Short_Literal 0x1
01ce 4809 |H | Short_Literal 0x9
01cf 00db | | Load_Top At_Offset_3
01d0 01ce | | Execute Vector,Slice_Write
01d1 00d8 | | Load_Top At_Offset_0
01d2 821a | | Call 0x1,0x1a
01d3 00da | | Load_Top At_Offset_2
01d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d5 480b |H | Short_Literal 0xb
01d6 4813 |H | Short_Literal 0x13
01d7 e5ff | | Load 0x2,-0x1
01d8 01cf | | Execute Vector,Slice_Read
01d9 4801 |H | Short_Literal 0x1
01da 4809 |H | Short_Literal 0x9
01db 00db | | Load_Top At_Offset_3
01dc 01ce | | Execute Vector,Slice_Write
01dd 00d8 | | Load_Top At_Offset_0
01de 821a | | Call 0x1,0x1a
01df 00da | | Load_Top At_Offset_2
01e0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e1 4814 |H | Short_Literal 0x14
01e2 481c |H | Short_Literal 0x1c
01e3 e5ff | | Load 0x2,-0x1
01e4 01cf | | Execute Vector,Slice_Read
01e5 4801 |H | Short_Literal 0x1
01e6 4809 |H | Short_Literal 0x9
01e7 00db | | Load_Top At_Offset_3
01e8 01ce | | Execute Vector,Slice_Write
01e9 00d8 | | Load_Top At_Offset_0
01ea 821a | | Call 0x1,0x1a
01eb 00da | | Load_Top At_Offset_2
01ec 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ed 00d9 | | Load_Top At_Offset_1
01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ef TRAP_01b8:
01ef 010e | | Execute Exception,Is_Constraint_Error
01f0 6802 |h | Jump_Zero 0x1f3
01f1 821c | | Call 0x1,0x1c
01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f3 0100 | | Execute Exception,Raise
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0204 | | .CONST 0x0204 ; Address of begin
01f9 0236 | 6 | .CONST 0x0236 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e20d | | Load 0x1,0xd
01fc 0322 | " | Declare_Variable Record
01fd 00d8 | | Load_Top At_Offset_0
01fe 1c00 | | Execute_Immediate Run_Utility,0x0
01ff 4801 |H | Short_Literal 0x1
0200 4802 |H | Short_Literal 0x2
0201 e007 | | Load 0x0,0x7
0202 035b | [ | Declare_Type Array,Constrained
0203 0337 | 7 | Declare_Variable Array
0204 BODY_01f8:
0204 4801 |H | Short_Literal 0x1
0205 4802 |H | Short_Literal 0x2
0206 e5ff | | Load 0x2,-0x1
0207 01cf | | Execute Vector,Slice_Read
0208 8008 | | Call 0x0,0x8
0209 00da | | Load_Top At_Offset_2
020a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
020b 4803 |H | Short_Literal 0x3
020c 4804 |H | Short_Literal 0x4
020d e5ff | | Load 0x2,-0x1
020e 01cf | | Execute Vector,Slice_Read
020f 4801 |H | Short_Literal 0x1
0210 4802 |H | Short_Literal 0x2
0211 00db | | Load_Top At_Offset_3
0212 01ce | | Execute Vector,Slice_Write
0213 00d8 | | Load_Top At_Offset_0
0214 8008 | | Call 0x0,0x8
0215 00da | | Load_Top At_Offset_2
0216 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0217 4805 |H | Short_Literal 0x5
0218 4806 |H | Short_Literal 0x6
0219 e5ff | | Load 0x2,-0x1
021a 01cf | | Execute Vector,Slice_Read
021b 4801 |H | Short_Literal 0x1
021c 4802 |H | Short_Literal 0x2
021d 00db | | Load_Top At_Offset_3
021e 01ce | | Execute Vector,Slice_Write
021f 00d8 | | Load_Top At_Offset_0
0220 8008 | | Call 0x0,0x8
0221 00da | | Load_Top At_Offset_2
0222 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0223 4807 |H | Short_Literal 0x7
0224 4808 |H | Short_Literal 0x8
0225 e5ff | | Load 0x2,-0x1
0226 01cf | | Execute Vector,Slice_Read
0227 4801 |H | Short_Literal 0x1
0228 4802 |H | Short_Literal 0x2
0229 00db | | Load_Top At_Offset_3
022a 01ce | | Execute Vector,Slice_Write
022b 00d8 | | Load_Top At_Offset_0
022c 8008 | | Call 0x0,0x8
022d 00da | | Load_Top At_Offset_2
022e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
022f 4809 |H | Short_Literal 0x9
0230 e5ff | | Load 0x2,-0x1
0231 01d7 | | Execute Vector,Field_Read
0232 00da | | Load_Top At_Offset_2
0233 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0234 00d9 | | Load_Top At_Offset_1
0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0236 TRAP_01f8:
0236 010e | | Execute Exception,Is_Constraint_Error
0237 6802 |h | Jump_Zero 0x23a
0238 821b | | Call 0x1,0x1b
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 0100 | | Execute Exception,Raise
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e20d | | Load 0x1,0xd
0244 0322 | " | Declare_Variable Record
0245 8009 | | Call 0x0,0x9
0246 00d9 | | Load_Top At_Offset_1
0247 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0248 8009 | | Call 0x0,0x9
0249 00d9 | | Load_Top At_Offset_1
024a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
024b 8009 | | Call 0x0,0x9
024c 00d9 | | Load_Top At_Offset_1
024d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
024e 8009 | | Call 0x0,0x9
024f 00d9 | | Load_Top At_Offset_1
0250 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0251 4800 |H | Short_Literal 0x0
0252 00d9 | | Load_Top At_Offset_1
0253 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0254 00ca | | Action Exit_Nullary_Function
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e21d | | Load 0x1,0x1d
025c 0322 | " | Declare_Variable Record
025d 4800 |H | Short_Literal 0x0
025e 00d9 | | Load_Top At_Offset_1
025f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0260 821b | | Call 0x1,0x1b
0261 00d9 | | Load_Top At_Offset_1
0262 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0263 821b | | Call 0x1,0x1b
0264 00d9 | | Load_Top At_Offset_1
0265 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0266 821b | | Call 0x1,0x1b
0267 00d9 | | Load_Top At_Offset_1
0268 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0269 00ca | | Action Exit_Nullary_Function
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 4601 |F | Jump_Case 0x2
0274 7801 |x | Jump 0x276 ; case 0x0
0275 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0276 00da | | Load_Top At_Offset_2
0277 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0278 1c00 | | Execute_Immediate Run_Utility,0x0
0279 00da | | Load_Top At_Offset_2
027a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
027b 1c00 | | Execute_Immediate Run_Utility,0x0
027c 00da | | Load_Top At_Offset_2
027d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
027e 1c00 | | Execute_Immediate Run_Utility,0x0
027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4601 |F | Jump_Case 0x2
0284 7801 |x | Jump 0x286 ; case 0x0
0285 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0286 00da | | Load_Top At_Offset_2
0287 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0288 1c00 | | Execute_Immediate Run_Utility,0x0
0289 00da | | Load_Top At_Offset_2
028a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
028b 1c00 | | Execute_Immediate Run_Utility,0x0
028c 00da | | Load_Top At_Offset_2
028d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
028e 1c00 | | Execute_Immediate Run_Utility,0x0
028f 00da | | Load_Top At_Offset_2
0290 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0291 1c00 | | Execute_Immediate Run_Utility,0x0
0292 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0293 ; --------------------------------------------------------------------------------------
0293 ; STRING TABLE
0293 ; --------------------------------------------------------------------------------------
0293 0006 | | .STRTAB 0x0006->0x0296 ; "-"
0294 0005 | | .STRTAB 0x0005->0x0296 ; " "
0295 0004 | | .STREND 0x0004->0x0297
0296 2d20 |- | .STRTAB_STRINGS
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0009 | | .DEBUG4 0x0004,0x0009,0x553c,0x0000,0x0001,0x0010
029e 000b 02de | | .DBG4T 0x000b,0x02de,0x8000,0x8000
02a2 0045 0304 | E | .DBG4T 0x0045,0x0304,0x8000,0x0000
02a6 0063 0312 | c | .DBG4T 0x0063,0x0312,0x0002,0x0000
02aa 007b 0315 | { | .DBG4T 0x007b,0x0315,0x0002,0x0000
02ae 00cb 0327 | '| .DBG4T 0x00cb,0x0327,0x0002,0x0000
02b2 00eb 032a | *| .DBG4T 0x00eb,0x032a,0x0002,0x0000
02b6 0113 032d | -| .DBG4T 0x0113,0x032d,0x0002,0x0000
02ba 012b 0330 | + 0| .DBG4T 0x012b,0x0330,0x0002,0x0000
02be 0143 0333 | C 3| .DBG4T 0x0143,0x0333,0x0002,0x0000
02c2 01ab 033d | =| .DBG4T 0x01ab,0x033d,0x0002,0x0000
02c6 01bb 0340 | @| .DBG4T 0x01bb,0x0340,0x0002,0x0000
02ca 01fb 034d | M| .DBG4T 0x01fb,0x034d,0x0002,0x0000
02ce 0243 035b | C [| .DBG4T 0x0243,0x035b,0x0002,0x0000
02d2 025b 035e | [ ^| .DBG4T 0x025b,0x035e,0x0002,0x0000
02d6 0273 0000 | s | .DBG4T 0x0273,0x0000,0x0005,0x0000
02da 0283 0000 | | .DBG4T 0x0283,0x0000,0x0005,0x0000
02de ; --------------------------------------------------------------------------------------
02de ; Debug chain
02de ; --------------------------------------------------------------------------------------
02de 0012 0000 | | .DBGLEN 0x0012,0x0000
02e0 000b 000d | | .DBGLNO 0x000b,0x000d,0x0011,0x0015,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0039
02f2 0004 0005 | | .XXX[0x12]
02f4 0006 0007 | |
02f6 0008 0009 | |
02f8 000a 000b | |
02fa 000c 000d | |
02fc 000e 000f | |
02fe 0010 0011 | |
0300 0012 0013 | |
0302 0014 0015 | |
0304 ; --------------------------------------------------------------------------------------
0304 ; Debug chain
0304 ; --------------------------------------------------------------------------------------
0304 000c 0000 | | .DBGLEN 0x000c,0x0000
0306 0045 0047 | E G| .DBGLNO 0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b
0312 ; --------------------------------------------------------------------------------------
0312 ; Debug chain
0312 ; --------------------------------------------------------------------------------------
0312 0000 0001 | | .DBGLEN 0x0000,0x0001
0314 0063 | c | .DBGLNO 0x0063
0315 ; --------------------------------------------------------------------------------------
0315 ; Debug chain
0315 ; --------------------------------------------------------------------------------------
0315 0001 000f | | .DBGLEN 0x0001,0x000f
0317 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0082,0x0085,0x008a,0x008d,0x0092,0x0095,0x009a,0x009d,0x00a2,0x00a5,0x00aa,0x00ad,0x00b2,0x00b5
0327 ; --------------------------------------------------------------------------------------
0327 ; Debug chain
0327 ; --------------------------------------------------------------------------------------
0327 0000 0001 | | .DBGLEN 0x0000,0x0001
0329 00cb | | .DBGLNO 0x00cb
032a ; --------------------------------------------------------------------------------------
032a ; Debug chain
032a ; --------------------------------------------------------------------------------------
032a 0000 0001 | | .DBGLEN 0x0000,0x0001
032c 00eb | | .DBGLNO 0x00eb
032d ; --------------------------------------------------------------------------------------
032d ; Debug chain
032d ; --------------------------------------------------------------------------------------
032d 0000 0001 | | .DBGLEN 0x0000,0x0001
032f 0113 | | .DBGLNO 0x0113
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug chain
0330 ; --------------------------------------------------------------------------------------
0330 0000 0001 | | .DBGLEN 0x0000,0x0001
0332 012b | + | .DBGLNO 0x012b
0333 ; --------------------------------------------------------------------------------------
0333 ; Debug chain
0333 ; --------------------------------------------------------------------------------------
0333 0003 0005 | | .DBGLEN 0x0003,0x0005
0335 0143 0146 | C F| .DBGLNO 0x0143,0x0146,0x0169,0x018d,0x0190,0x0194,0x019e,0x01a4
033d ; --------------------------------------------------------------------------------------
033d ; Debug chain
033d ; --------------------------------------------------------------------------------------
033d 0000 0001 | | .DBGLEN 0x0000,0x0001
033f 01ab | | .DBGLNO 0x01ab
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0002 0009 | | .DBGLEN 0x0002,0x0009
0342 01bb 01bf | | .DBGLNO 0x01bb,0x01bf,0x01c4,0x01c9,0x01d1,0x01d5,0x01dd,0x01e1,0x01e9,0x01ed,0x01f1
034d ; --------------------------------------------------------------------------------------
034d ; Debug chain
034d ; --------------------------------------------------------------------------------------
034d 0002 000a | | .DBGLEN 0x0002,0x000a
034f 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0204,0x020b,0x0213,0x0217,0x021f,0x0223,0x022b,0x022f,0x0234,0x0238
035b ; --------------------------------------------------------------------------------------
035b ; Debug chain
035b ; --------------------------------------------------------------------------------------
035b 0000 0001 | | .DBGLEN 0x0000,0x0001
035d 0243 | C | .DBGLNO 0x0243
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 0000 0001 | | .DBGLEN 0x0000,0x0001
0360 025b | [ | .DBGLNO 0x025b
0361 0000 0000 | | .BLANK 0000[0x9f]