|
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_1e70ad
└─⟦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 02a8 | | .CONST 0x02a8 ; 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 0052 | R | .CONST 0x0052 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0015 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
001f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0021 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0023 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0025 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0027 00bf | | Action Accept_Activation
0028 e002 | | Load 0x0,0x2
0029 0007 | | Action Break_Optional
002a 00d8 | | Load_Top At_Offset_0
002b 0007 | | Action Break_Optional
002c e002 | | Load 0x0,0x2
002d 0007 | | Action Break_Optional
002e 00d8 | | Load_Top At_Offset_0
002f 0007 | | Action Break_Optional
0030 e002 | | Load 0x0,0x2
0031 0007 | | Action Break_Optional
0032 00d8 | | Load_Top At_Offset_0
0033 0007 | | Action Break_Optional
0034 e003 | | Load 0x0,0x3
0035 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0039 00c7 | | Action Elaborate_Subprogram
003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003b 00c7 | | Action Elaborate_Subprogram
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003d 00c7 | | Action Elaborate_Subprogram
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003f 00c7 | | Action Elaborate_Subprogram
0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0041 00c7 | | Action Elaborate_Subprogram
0042 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0043 00c7 | | Action Elaborate_Subprogram
0044 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0045 00c7 | | Action Elaborate_Subprogram
0046 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0047 00c7 | | Action Elaborate_Subprogram
0048 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0049 00c7 | | Action Elaborate_Subprogram
004a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004b 00c7 | | Action Elaborate_Subprogram
004c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004d 00c7 | | Action Elaborate_Subprogram
004e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004f 00c7 | | Action Elaborate_Subprogram
0050 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0051 00c7 | | Action Elaborate_Subprogram
0052 BODY_0008:
0052 00bc | | Action Signal_Activated
0053 00bb | | Action Signal_Completion
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 8004 | | Call 0x0,0x4
005c a21b | | Store_Unchecked 0x1,0x1b
005d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005e 0000 0000 | | .XXX[0x2]
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 e221 | ! | Load 0x1,0x21
0064 8005 | | Call 0x0,0x5
0065 c221 | ! | Store 0x1,0x21
0066 e221 | ! | Load 0x1,0x21
0067 00db | | Load_Top At_Offset_3
0068 8006 | | Call 0x0,0x6
0069 c221 | ! | Store 0x1,0x21
006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006b 0000 0000 | | .BLANK 0000[0x5]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007b | { | .CONST 0x007b ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0007 | | .CONST 0x0007 ; Number of locals
0073 INIT_0070:
0073 e007 | | Load 0x0,0x7
0074 0322 | " | Declare_Variable Record
0075 e002 | | Load 0x0,0x2
0076 03bd | | Declare_Variable Access,Duplicate
0077 e002 | | Load 0x0,0x2
0078 03bd | | Declare_Variable Access,Duplicate
0079 e003 | | Load 0x0,0x3
007a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007b BODY_0070:
007b e5ff | | Load 0x2,-0x1
007c 8008 | | Call 0x0,0x8
007d 8009 | | Call 0x0,0x9
007e 68b4 |h | Jump_Zero 0x133
007f e5ff | | Load 0x2,-0x1
0080 0092 028b | | Action Push_String_Extended,0x28b ; "string"
0082 01df | | Execute Vector,Equal
0083 e5ff | | Load 0x2,-0x1
0084 0092 028c | | Action Push_String_Extended,0x28c ; "boolean"
0086 01df | | Execute Vector,Equal
0087 0278 | x | Execute Discrete,Or
0088 e5ff | | Load 0x2,-0x1
0089 0092 028d | | Action Push_String_Extended,0x28d ; "integer"
008b 01df | | Execute Vector,Equal
008c 0278 | x | Execute Discrete,Or
008d e5ff | | Load 0x2,-0x1
008e 8008 | | Call 0x0,0x8
008f 800a | | Call 0x0,0xa
0090 0227 | ' | Execute Access,All_Reference
0091 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0092 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0093 800b | | Call 0x0,0xb
0094 0092 028e | | Action Push_String_Extended,0x28e ; "enum"
0096 01df | | Execute Vector,Equal
0097 0278 | x | Execute Discrete,Or
0098 680f |h | Jump_Zero 0xa8
0099 00ea | | Load_Encached Null_String_Cache
009a e5ff | | Load 0x2,-0x1
009b e221 | ! | Load 0x1,0x21
009c 800b | | Call 0x0,0xb
009d 800c | | Call 0x0,0xc
009e e402 | | Load 0x2,0x2
009f 017d | } | Execute Record,Structure_Write
00a0 e21b | | Load 0x1,0x1b
00a1 e402 | | Load 0x2,0x2
00a2 800d | | Call 0x0,0xd
00a3 c21b | | Store 0x1,0x1b
00a4 e21b | | Load 0x1,0x1b
00a5 800e | | Call 0x0,0xe
00a6 a21c | | Store_Unchecked 0x1,0x1c
00a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a8 e5ff | | Load 0x2,-0x1
00a9 8008 | | Call 0x0,0x8
00aa 800a | | Call 0x0,0xa
00ab a403 | | Store_Unchecked 0x2,0x3
00ac e403 | | Load 0x2,0x3
00ad 0227 | ' | Execute Access,All_Reference
00ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00af 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00b0 800f | | Call 0x0,0xf
00b1 003b | ; | Store_Top Access,At_Offset_3
00b2 00da | | Load_Top At_Offset_2
00b3 a403 | | Store_Unchecked 0x2,0x3
00b4 00cf | | Action Mark_Auxiliary
00b5 7860 |x` | Jump 0x116
00b6 e403 | | Load 0x2,0x3
00b7 0229 | ) | Execute Access,All_Read
00b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b9 00d8 | | Load_Top At_Offset_0
00ba 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00bb 8010 | | Call 0x0,0x10
00bc 00d9 | | Load_Top At_Offset_1
00bd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00be 00d1 | | Pop_Control Pop_Count_1
00bf 00d9 | | Load_Top At_Offset_1
00c0 8005 | | Call 0x0,0x5
00c1 003a | : | Store_Top Access,At_Offset_2
00c2 00d9 | | Load_Top At_Offset_1
00c3 e403 | | Load 0x2,0x3
00c4 0227 | ' | Execute Access,All_Reference
00c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c7 8011 | | Call 0x0,0x11
00c8 003a | : | Store_Top Access,At_Offset_2
00c9 00d9 | | Load_Top At_Offset_1
00ca 800b | | Call 0x0,0xb
00cb 0092 028b | | Action Push_String_Extended,0x28b ; "string"
00cd 01df | | Execute Vector,Equal
00ce 00da | | Load_Top At_Offset_2
00cf 800b | | Call 0x0,0xb
00d0 0092 028c | | Action Push_String_Extended,0x28c ; "boolean"
00d2 01df | | Execute Vector,Equal
00d3 0278 | x | Execute Discrete,Or
00d4 00da | | Load_Top At_Offset_2
00d5 800b | | Call 0x0,0xb
00d6 0092 028d | | Action Push_String_Extended,0x28d ; "integer"
00d8 01df | | Execute Vector,Equal
00d9 0278 | x | Execute Discrete,Or
00da 00da | | Load_Top At_Offset_2
00db 800b | | Call 0x0,0xb
00dc 8008 | | Call 0x0,0x8
00dd 800a | | Call 0x0,0xa
00de 0227 | ' | Execute Access,All_Reference
00df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e1 800b | | Call 0x0,0xb
00e2 0092 028e | | Action Push_String_Extended,0x28e ; "enum"
00e4 01df | | Execute Vector,Equal
00e5 0278 | x | Execute Discrete,Or
00e6 6801 |h | Jump_Zero 0xe8
00e7 7820 |x | Jump 0x108
00e8 00d9 | | Load_Top At_Offset_1
00e9 800b | | Call 0x0,0xb
00ea 8008 | | Call 0x0,0x8
00eb 800a | | Call 0x0,0xa
00ec a404 | | Store_Unchecked 0x2,0x4
00ed e404 | | Load 0x2,0x4
00ee 0227 | ' | Execute Access,All_Reference
00ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f1 800f | | Call 0x0,0xf
00f2 003b | ; | Store_Top Access,At_Offset_3
00f3 00da | | Load_Top At_Offset_2
00f4 a404 | | Store_Unchecked 0x2,0x4
00f5 00cf | | Action Mark_Auxiliary
00f6 780d |x | Jump 0x104
00f7 e404 | | Load 0x2,0x4
00f8 0229 | ) | Execute Access,All_Read
00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00fa 00d8 | | Load_Top At_Offset_0
00fb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00fc 8010 | | Call 0x0,0x10
00fd 00d9 | | Load_Top At_Offset_1
00fe 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00ff 00d1 | | Pop_Control Pop_Count_1
0100 e404 | | Load 0x2,0x4
0101 8012 | | Call 0x0,0x12
0102 c404 | | Store 0x2,0x4
0103 00c9 | | Action Pop_Auxiliary_Loop
0104 e404 | | Load 0x2,0x4
0105 8013 | | Call 0x0,0x13
0106 77f0 |w | Jump_Nonzero 0xf7
0107 00ce | | Action Pop_Auxiliary
0108 e403 | | Load 0x2,0x3
0109 0229 | ) | Execute Access,All_Read
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b 00d8 | | Load_Top At_Offset_0
010c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
010d e406 | | Load 0x2,0x6
010e 8014 | | Call 0x0,0x14
010f 00d9 | | Load_Top At_Offset_1
0110 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0111 00d1 | | Pop_Control Pop_Count_1
0112 e403 | | Load 0x2,0x3
0113 8012 | | Call 0x0,0x12
0114 c403 | | Store 0x2,0x3
0115 00c9 | | Action Pop_Auxiliary_Loop
0116 e403 | | Load 0x2,0x3
0117 8013 | | Call 0x0,0x13
0118 779d |w | Jump_Nonzero 0xb6
0119 00ce | | Action Pop_Auxiliary
011a 00ea | | Load_Encached Null_String_Cache
011b e5ff | | Load 0x2,-0x1
011c e221 | ! | Load 0x1,0x21
011d 800b | | Call 0x0,0xb
011e 800c | | Call 0x0,0xc
011f e402 | | Load 0x2,0x2
0120 017d | } | Execute Record,Structure_Write
0121 e21b | | Load 0x1,0x1b
0122 e402 | | Load 0x2,0x2
0123 800d | | Call 0x0,0xd
0124 c21b | | Store 0x1,0x1b
0125 e21c | | Load 0x1,0x1c
0126 8015 | | Call 0x0,0x15
0127 a21c | | Store_Unchecked 0x1,0x1c
0128 e21c | | Load 0x1,0x1c
0129 0229 | ) | Execute Access,All_Read
012a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012b 00d8 | | Load_Top At_Offset_0
012c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
012d e405 | | Load 0x2,0x5
012e 8014 | | Call 0x0,0x14
012f 00d9 | | Load_Top At_Offset_1
0130 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0131 00d1 | | Pop_Control Pop_Count_1
0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0133 e5ff | | Load 0x2,-0x1
0134 0092 028f | | Action Push_String_Extended,0x28f ; " not yet declared)"
0136 01cc | | Execute Vector,Catenate
0137 e016 | | Load 0x0,0x16
0138 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145 | E | .CONST 0x0145 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e002 | | Load 0x0,0x2
0144 0007 | | Action Break_Optional
0145 BODY_0140:
0145 e5fe | | Load 0x2,-0x2
0146 e5ff | | Load 0x2,-0x1
0147 800a | | Call 0x0,0xa
0148 0039 | 9 | Store_Top Access,At_Offset_1
0149 00d8 | | Load_Top At_Offset_0
014a 0227 | ' | Execute Access,All_Reference
014b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014d 800b | | Call 0x0,0xb
014e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e21b | | Load 0x1,0x1b
0155 8210 | | Call 0x1,0x10
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d | ] | .CONST 0x015d ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e002 | | Load 0x0,0x2
015c 0007 | | Action Break_Optional
015d BODY_0158:
015d e5fe | | Load 0x2,-0x2
015e e5ff | | Load 0x2,-0x1
015f 800a | | Call 0x0,0xa
0160 0039 | 9 | Store_Top Access,At_Offset_1
0161 00d8 | | Load_Top At_Offset_0
0162 0227 | ' | Execute Access,All_Reference
0163 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0165 800b | | Call 0x0,0xb
0166 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c e21b | | Load 0x1,0x1b
016d 8212 | | Call 0x1,0x12
016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e21b | | Load 0x1,0x1b
0174 00ca | | Action Exit_Nullary_Function
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e21b | | Load 0x1,0x1b
017c 8017 | | Call 0x0,0x17
017d 8018 | | Call 0x0,0x18
017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e21b | | Load 0x1,0x1b
0185 800a | | Call 0x0,0xa
0186 a21d | | Store_Unchecked 0x1,0x1d
0187 e21b | | Load 0x1,0x1b
0188 a220 | | Store_Unchecked 0x1,0x20
0189 e21d | | Load 0x1,0x1d
018a a21e | | Store_Unchecked 0x1,0x1e
018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195 | | .CONST 0x0195 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 e002 | | Load 0x0,0x2
0194 0007 | | Action Break_Optional
0195 BODY_0190:
0195 e21d | | Load 0x1,0x1d
0196 0227 | ' | Execute Access,All_Reference
0197 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0198 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0199 8017 | | Call 0x0,0x17
019a 8013 | | Call 0x0,0x13
019b 680d |h | Jump_Zero 0x1a9
019c e21d | | Load 0x1,0x1d
019d 0227 | ' | Execute Access,All_Reference
019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01a0 a220 | | Store_Unchecked 0x1,0x20
01a1 00db | | Load_Top At_Offset_3
01a2 e220 | | Load 0x1,0x20
01a3 800a | | Call 0x0,0xa
01a4 0039 | 9 | Store_Top Access,At_Offset_1
01a5 00d8 | | Load_Top At_Offset_0
01a6 a21d | | Store_Unchecked 0x1,0x1d
01a7 e21d | | Load 0x1,0x1d
01a8 a21f | | Store_Unchecked 0x1,0x1f
01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e002 | | Load 0x0,0x2
01b4 0007 | | Action Break_Optional
01b5 BODY_01b0:
01b5 e21d | | Load 0x1,0x1d
01b6 0227 | ' | Execute Access,All_Reference
01b7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b9 8017 | | Call 0x0,0x17
01ba 8013 | | Call 0x0,0x13
01bb 680b |h | Jump_Zero 0x1c7
01bc e21d | | Load 0x1,0x1d
01bd 0227 | ' | Execute Access,All_Reference
01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c0 a220 | | Store_Unchecked 0x1,0x20
01c1 00db | | Load_Top At_Offset_3
01c2 e220 | | Load 0x1,0x20
01c3 800a | | Call 0x0,0xa
01c4 0039 | 9 | Store_Top Access,At_Offset_1
01c5 00d8 | | Load_Top At_Offset_0
01c6 a21d | | Store_Unchecked 0x1,0x1d
01c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd | | .CONST 0x01cd ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e002 | | Load 0x0,0x2
01cc 0007 | | Action Break_Optional
01cd BODY_01c8:
01cd e5fe | | Load 0x2,-0x2
01ce e5ff | | Load 0x2,-0x1
01cf 8009 | | Call 0x0,0x9
01d0 682e |h. | Jump_Zero 0x1ff
01d1 00db | | Load_Top At_Offset_3
01d2 8017 | | Call 0x0,0x17
01d3 0039 | 9 | Store_Top Access,At_Offset_1
01d4 00d8 | | Load_Top At_Offset_0
01d5 0227 | ' | Execute Access,All_Reference
01d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d8 800b | | Call 0x0,0xb
01d9 e5fe | | Load 0x2,-0x2
01da 01df | | Execute Vector,Equal
01db 6812 |h | Jump_Zero 0x1ee
01dc e5fe | | Load 0x2,-0x2
01dd e21e | | Load 0x1,0x1e
01de 0227 | ' | Execute Access,All_Reference
01df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01e1 8009 | | Call 0x0,0x9
01e2 6802 |h | Jump_Zero 0x1e5
01e3 e21e | | Load 0x1,0x1e
01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e5 e5fe | | Load 0x2,-0x2
01e6 e21f | | Load 0x1,0x1f
01e7 0227 | ' | Execute Access,All_Reference
01e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01ea 8009 | | Call 0x0,0x9
01eb 6813 |h | Jump_Zero 0x1ff
01ec e21f | | Load 0x1,0x1f
01ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ee 00cf | | Action Mark_Auxiliary
01ef 7804 |x | Jump 0x1f4
01f0 00d9 | | Load_Top At_Offset_1
01f1 8012 | | Call 0x0,0x12
01f2 003a | : | Store_Top Access,At_Offset_2
01f3 00c9 | | Action Pop_Auxiliary_Loop
01f4 00d9 | | Load_Top At_Offset_1
01f5 8019 | | Call 0x0,0x19
01f6 8015 | | Call 0x0,0x15
01f7 0227 | ' | Execute Access,All_Reference
01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01fa 800b | | Call 0x0,0xb
01fb e5fe | | Load 0x2,-0x2
01fc 01df | | Execute Vector,Equal
01fd 6ff2 |o | Jump_Zero 0x1f0
01fe 00ce | | Action Pop_Auxiliary
01ff 00d8 | | Load_Top At_Offset_0
0200 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0215 | | .CONST 0x0215 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0006 | | .CONST 0x0006 ; Number of locals
020b INIT_0208:
020b e007 | | Load 0x0,0x7
020c 0322 | " | Declare_Variable Record
020d e002 | | Load 0x0,0x2
020e 0007 | | Action Break_Optional
020f 00d8 | | Load_Top At_Offset_0
0210 0007 | | Action Break_Optional
0211 e002 | | Load 0x0,0x2
0212 0007 | | Action Break_Optional
0213 e003 | | Load 0x0,0x3
0214 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0215 BODY_0208:
0215 00d8 | | Load_Top At_Offset_0
0216 e21d | | Load 0x1,0x1d
0217 0227 | ' | Execute Access,All_Reference
0218 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0219 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021a 8011 | | Call 0x0,0x11
021b 0039 | 9 | Store_Top Access,At_Offset_1
021c 00d8 | | Load_Top At_Offset_0
021d 800b | | Call 0x0,0xb
021e e220 | | Load 0x1,0x20
021f 800a | | Call 0x0,0xa
0220 a403 | | Store_Unchecked 0x2,0x3
0221 e5ff | | Load 0x2,-0x1
0222 e403 | | Load 0x2,0x3
0223 0227 | ' | Execute Access,All_Reference
0224 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0226 800b | | Call 0x0,0xb
0227 e403 | | Load 0x2,0x3
0228 0227 | ' | Execute Access,All_Reference
0229 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022b 800b | | Call 0x0,0xb
022c 800c | | Call 0x0,0xc
022d e402 | | Load 0x2,0x2
022e 017d | } | Execute Record,Structure_Write
022f 00d8 | | Load_Top At_Offset_0
0230 800b | | Call 0x0,0xb
0231 e220 | | Load 0x1,0x20
0232 8219 | | Call 0x1,0x19
0233 003b | ; | Store_Top Access,At_Offset_3
0234 00da | | Load_Top At_Offset_2
0235 0227 | ' | Execute Access,All_Reference
0236 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0237 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0238 800b | | Call 0x0,0xb
0239 e220 | | Load 0x1,0x20
023a 8009 | | Call 0x0,0x9
023b 6821 |h! | Jump_Zero 0x25d
023c 00db | | Load_Top At_Offset_3
023d 0227 | ' | Execute Access,All_Reference
023e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0240 8017 | | Call 0x0,0x17
0241 8013 | | Call 0x0,0x13
0242 6806 |h | Jump_Zero 0x249
0243 00db | | Load_Top At_Offset_3
0244 0227 | ' | Execute Access,All_Reference
0245 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0246 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0247 e402 | | Load 0x2,0x2
0248 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0249 e002 | | Load 0x0,0x2
024a 00db | | Load_Top At_Offset_3
024b 0227 | ' | Execute Access,All_Reference
024c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
024d e220 | | Load 0x1,0x20
024e e402 | | Load 0x2,0x2
024f 800d | | Call 0x0,0xd
0250 c220 | | Store 0x1,0x20
0251 00db | | Load_Top At_Offset_3
0252 8013 | | Call 0x0,0x13
0253 6808 |h | Jump_Zero 0x25c
0254 00db | | Load_Top At_Offset_3
0255 8019 | | Call 0x0,0x19
0256 8015 | | Call 0x0,0x15
0257 003a | : | Store_Top Access,At_Offset_2
0258 e220 | | Load 0x1,0x20
0259 00da | | Load_Top At_Offset_2
025a 8014 | | Call 0x0,0x14
025b c220 | | Store 0x1,0x20
025c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025d 00db | | Load_Top At_Offset_3
025e 0227 | ' | Execute Access,All_Reference
025f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0260 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0261 8017 | | Call 0x0,0x17
0262 8013 | | Call 0x0,0x13
0263 6806 |h | Jump_Zero 0x26a
0264 00db | | Load_Top At_Offset_3
0265 0227 | ' | Execute Access,All_Reference
0266 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0267 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0268 e402 | | Load 0x2,0x2
0269 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
026a e002 | | Load 0x0,0x2
026b 00db | | Load_Top At_Offset_3
026c 0227 | ' | Execute Access,All_Reference
026d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
026e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
026f 00da | | Load_Top At_Offset_2
0270 0229 | ) | Execute Access,All_Read
0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0272 00d8 | | Load_Top At_Offset_0
0273 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0274 e402 | | Load 0x2,0x2
0275 800d | | Call 0x0,0xd
0276 00d9 | | Load_Top At_Offset_1
0277 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0278 00d1 | | Pop_Control Pop_Count_1
0279 00db | | Load_Top At_Offset_3
027a 8013 | | Call 0x0,0x13
027b 680e |h | Jump_Zero 0x28a
027c 00db | | Load_Top At_Offset_3
027d 8019 | | Call 0x0,0x19
027e 8015 | | Call 0x0,0x15
027f 003a | : | Store_Top Access,At_Offset_2
0280 00da | | Load_Top At_Offset_2
0281 0229 | ) | Execute Access,All_Read
0282 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0283 00d8 | | Load_Top At_Offset_0
0284 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0285 00db | | Load_Top At_Offset_3
0286 8014 | | Call 0x0,0x14
0287 00d9 | | Load_Top At_Offset_1
0288 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0289 00d1 | | Pop_Control Pop_Count_1
028a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028b ; --------------------------------------------------------------------------------------
028b ; STRING TABLE
028b ; --------------------------------------------------------------------------------------
028b 000c | | .STRTAB 0x000c->0x0291 ; "string"
028c 0010 | | .STRTAB 0x0010->0x0294 ; "boolean"
028d 0015 | | .STRTAB 0x0015->0x0297 ; "integer"
028e 001a | | .STRTAB 0x001a->0x029b ; "enum"
028f 001c | | .STRTAB 0x001c->0x029d ; " not yet declared)"
0290 002c | , | .STREND 0x002c->0x02a6
0291 7374 7269 |stri| .STRTAB_STRINGS
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa5c5,0x0000,0x0001,0x0010
02ae 000b 02ee | | .DBG4T 0x000b,0x02ee,0x8000,0x0000
02b2 0028 02fe | ( | .DBG4T 0x0028,0x02fe,0x8000,0x0000
02b6 005b 0315 | [ | .DBG4T 0x005b,0x0315,0x0001,0x0000
02ba 0063 0318 | c | .DBG4T 0x0063,0x0318,0x0001,0x0000
02be 0073 031c | s | .DBG4T 0x0073,0x031c,0x0001,0x4000
02c2 0143 0358 | C X| .DBG4T 0x0143,0x0358,0x0002,0x0000
02c6 0153 035d | S ]| .DBG4T 0x0153,0x035d,0x0002,0x0000
02ca 015b 0360 | [ `| .DBG4T 0x015b,0x0360,0x0002,0x0000
02ce 016b 0365 | k e| .DBG4T 0x016b,0x0365,0x0002,0x0000
02d2 0173 0368 | s h| .DBG4T 0x0173,0x0368,0x0002,0x0000
02d6 017b 036b | { k| .DBG4T 0x017b,0x036b,0x0001,0x0000
02da 0183 036e | n| .DBG4T 0x0183,0x036e,0x0001,0x0000
02de 0193 0373 | s| .DBG4T 0x0193,0x0373,0x0001,0x0000
02e2 01b3 037b | {| .DBG4T 0x01b3,0x037b,0x0001,0x0000
02e6 01cb 0382 | | .DBG4T 0x01cb,0x0382,0x0002,0x4000
02ea 020b 0399 | | .DBG4T 0x020b,0x0399,0x0001,0x0000
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug chain
02ee ; --------------------------------------------------------------------------------------
02ee 000e 0000 | | .DBGLEN 0x000e,0x0000
02f0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug chain
02fe ; --------------------------------------------------------------------------------------
02fe 0015 0000 | | .DBGLEN 0x0015,0x0000
0300 0028 002a | ( *| .DBGLNO 0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050
0315 ; --------------------------------------------------------------------------------------
0315 ; Debug chain
0315 ; --------------------------------------------------------------------------------------
0315 0000 0001 | | .DBGLEN 0x0000,0x0001
0317 005b | [ | .DBGLNO 0x005b
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug chain
0318 ; --------------------------------------------------------------------------------------
0318 0000 0002 | | .DBGLEN 0x0000,0x0002
031a 0063 0066 | c f| .DBGLNO 0x0063,0x0066
031c ; --------------------------------------------------------------------------------------
031c ; Debug chain
031c ; --------------------------------------------------------------------------------------
031c 0004 001b | | .DBGLEN 0x0004,0x001b
031e 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0077,0x0079,0x007b,0x007f,0x0099,0x00a0,0x00a4,0x00a8,0x00ac,0x00b2,0x00b6,0x00bf,0x00c2,0x00c9,0x00e7,0x00e8,0x00ed,0x00f3,0x00f7,0x0100,0x0104,0x0108,0x0112,0x0116,0x011a,0x0121,0x0125,0x0128,0x0133
033d 0001 0002 | | .XXX[0x1b]
033f 0003 0004 | |
0341 0005 0006 | |
0343 0007 0008 | |
0345 000a 000b | |
0347 000c 000d | |
0349 000e 000f | |
034b 0010 0011 | |
034d 0013 0014 | |
034f 0012 0015 | |
0351 0016 0009 | |
0353 0017 0018 | |
0355 0019 001a | |
0357 001b | |
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug chain
0358 ; --------------------------------------------------------------------------------------
0358 0001 0002 | | .DBGLEN 0x0001,0x0002
035a 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0149
035d ; --------------------------------------------------------------------------------------
035d ; Debug chain
035d ; --------------------------------------------------------------------------------------
035d 0000 0001 | | .DBGLEN 0x0000,0x0001
035f 0153 | S | .DBGLNO 0x0153
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug chain
0360 ; --------------------------------------------------------------------------------------
0360 0001 0002 | | .DBGLEN 0x0001,0x0002
0362 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0161
0365 ; --------------------------------------------------------------------------------------
0365 ; Debug chain
0365 ; --------------------------------------------------------------------------------------
0365 0000 0001 | | .DBGLEN 0x0000,0x0001
0367 016b | k | .DBGLNO 0x016b
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug chain
0368 ; --------------------------------------------------------------------------------------
0368 0000 0001 | | .DBGLEN 0x0000,0x0001
036a 0173 | s | .DBGLNO 0x0173
036b ; --------------------------------------------------------------------------------------
036b ; Debug chain
036b ; --------------------------------------------------------------------------------------
036b 0000 0001 | | .DBGLEN 0x0000,0x0001
036d 017b | { | .DBGLNO 0x017b
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0000 0003 | | .DBGLEN 0x0000,0x0003
0370 0183 0187 | | .DBGLNO 0x0183,0x0187,0x0189
0373 ; --------------------------------------------------------------------------------------
0373 ; Debug chain
0373 ; --------------------------------------------------------------------------------------
0373 0001 0005 | | .DBGLEN 0x0001,0x0005
0375 0193 0195 | | .DBGLNO 0x0193,0x0195,0x019c,0x01a1,0x01a5,0x01a7
037b ; --------------------------------------------------------------------------------------
037b ; Debug chain
037b ; --------------------------------------------------------------------------------------
037b 0001 0004 | | .DBGLEN 0x0001,0x0004
037d 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01bc,0x01c1,0x01c5
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug chain
0382 ; --------------------------------------------------------------------------------------
0382 0001 000a | | .DBGLEN 0x0001,0x000a
0384 01cb 01cd | | .DBGLNO 0x01cb,0x01cd,0x01d1,0x01d4,0x01dc,0x01e3,0x01e5,0x01ec,0x01f0,0x01f4,0x01ff
038f 0001 0002 | | .XXX[0xa]
0391 0003 0004 | |
0393 0005 0006 | |
0395 0007 0009 | |
0397 0008 000a | |
0399 ; --------------------------------------------------------------------------------------
0399 ; Debug chain
0399 ; --------------------------------------------------------------------------------------
0399 0005 0013 | | .DBGLEN 0x0005,0x0013
039b 020b 020d | | .DBGLNO 0x020b,0x020d,0x020f,0x0211,0x0213,0x0215,0x021c,0x0221,0x022f,0x0234,0x023c,0x0243,0x0249,0x024d,0x0251,0x0254,0x0258,0x025d,0x0264,0x026a,0x026f,0x0279,0x027c,0x0280
03b3 0000 0000 | | .BLANK 0000[0x4d]