|
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_0418f8
└─⟦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 02b8 | | .CONST 0x02b8 ; 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 0056 | V | .CONST 0x0056 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; 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 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
001d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0021 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0023 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0025 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0027 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0029 00bf | | Action Accept_Activation
002a e002 | | Load 0x0,0x2
002b 0007 | | Action Break_Optional
002c 00d8 | | Load_Top At_Offset_0
002d 0007 | | Action Break_Optional
002e e002 | | Load 0x0,0x2
002f 0007 | | Action Break_Optional
0030 00d8 | | Load_Top At_Offset_0
0031 0007 | | Action Break_Optional
0032 e002 | | Load 0x0,0x2
0033 0007 | | Action Break_Optional
0034 00d8 | | Load_Top At_Offset_0
0035 0007 | | Action Break_Optional
0036 e003 | | Load 0x0,0x3
0037 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0038 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0039 00c7 | | Action Elaborate_Subprogram
003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003b 00c7 | | Action Elaborate_Subprogram
003c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003d 00c7 | | Action Elaborate_Subprogram
003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003f 00c7 | | Action Elaborate_Subprogram
0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0041 00c7 | | Action Elaborate_Subprogram
0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0043 00c7 | | Action Elaborate_Subprogram
0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0045 00c7 | | Action Elaborate_Subprogram
0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0047 00c7 | | Action Elaborate_Subprogram
0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0049 00c7 | | Action Elaborate_Subprogram
004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004b 00c7 | | Action Elaborate_Subprogram
004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004d 00c7 | | Action Elaborate_Subprogram
004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004f 00c7 | | Action Elaborate_Subprogram
0050 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0055 00c7 | | Action Elaborate_Subprogram
0056 BODY_0008:
0056 00bc | | Action Signal_Activated
0057 00bb | | Action Signal_Completion
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d | ] | .CONST 0x005d ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b e004 | | Load 0x0,0x4
005c 0322 | " | Declare_Variable Record
005d BODY_0058:
005d 8005 | | Call 0x0,0x5
005e a21c | | Store_Unchecked 0x1,0x1c
005f 4501 |E | Exit_Suprogram New_Top_Offset 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 e222 | " | Load 0x1,0x22
0064 8006 | | Call 0x0,0x6
0065 c222 | " | Store 0x1,0x22
0066 e222 | " | Load 0x1,0x22
0067 00db | | Load_Top At_Offset_3
0068 8007 | | Call 0x0,0x7
0069 c222 | " | Store 0x1,0x22
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 e004 | | Load 0x0,0x4
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 029b | | Action Push_String_Extended,0x29b ; "string"
0082 01df | | Execute Vector,Equal
0083 e5ff | | Load 0x2,-0x1
0084 0092 029c | | Action Push_String_Extended,0x29c ; "boolean"
0086 01df | | Execute Vector,Equal
0087 0278 | x | Execute Discrete,Or
0088 e5ff | | Load 0x2,-0x1
0089 0092 029d | | Action Push_String_Extended,0x29d ; "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 029e | | Action Push_String_Extended,0x29e ; "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 e222 | " | Load 0x1,0x22
009c 800b | | Call 0x0,0xb
009d 800c | | Call 0x0,0xc
009e e402 | | Load 0x2,0x2
009f 017d | } | Execute Record,Structure_Write
00a0 e21c | | Load 0x1,0x1c
00a1 e402 | | Load 0x2,0x2
00a2 800d | | Call 0x0,0xd
00a3 c21c | | Store 0x1,0x1c
00a4 e21c | | Load 0x1,0x1c
00a5 800e | | Call 0x0,0xe
00a6 a21d | | Store_Unchecked 0x1,0x1d
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 8006 | | Call 0x0,0x6
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 029b | | Action Push_String_Extended,0x29b ; "string"
00cd 01df | | Execute Vector,Equal
00ce 00da | | Load_Top At_Offset_2
00cf 800b | | Call 0x0,0xb
00d0 0092 029c | | Action Push_String_Extended,0x29c ; "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 029d | | Action Push_String_Extended,0x29d ; "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 029e | | Action Push_String_Extended,0x29e ; "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 e222 | " | Load 0x1,0x22
011d 800b | | Call 0x0,0xb
011e 800c | | Call 0x0,0xc
011f e402 | | Load 0x2,0x2
0120 017d | } | Execute Record,Structure_Write
0121 e21c | | Load 0x1,0x1c
0122 e402 | | Load 0x2,0x2
0123 800d | | Call 0x0,0xd
0124 c21c | | Store 0x1,0x1c
0125 e21d | | Load 0x1,0x1d
0126 8015 | | Call 0x0,0x15
0127 a21d | | Store_Unchecked 0x1,0x1d
0128 e21d | | Load 0x1,0x1d
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 029f | | Action Push_String_Extended,0x29f ; " 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 e21c | | Load 0x1,0x1c
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 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e21e | | Load 0x1,0x1e
015c 0227 | ' | Execute Access,All_Reference
015d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015f 800b | | Call 0x0,0xb
0160 00ca | | Action Exit_Nullary_Function
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e002 | | Load 0x0,0x2
016c 0007 | | Action Break_Optional
016d BODY_0168:
016d e5fe | | Load 0x2,-0x2
016e e5ff | | Load 0x2,-0x1
016f 800a | | Call 0x0,0xa
0170 0039 | 9 | Store_Top Access,At_Offset_1
0171 00d8 | | Load_Top At_Offset_0
0172 0227 | ' | Execute Access,All_Reference
0173 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0174 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0175 800b | | Call 0x0,0xb
0176 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0177 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
017c e21c | | Load 0x1,0x1c
017d 8213 | | Call 0x1,0x13
017e 4401 |D | Exit_Subprogram With_Value,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 e21c | | Load 0x1,0x1c
0184 00ca | | Action Exit_Nullary_Function
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e21c | | Load 0x1,0x1c
018c 8017 | | Call 0x0,0x17
018d 8018 | | Call 0x0,0x18
018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e21c | | Load 0x1,0x1c
0195 800a | | Call 0x0,0xa
0196 a21e | | Store_Unchecked 0x1,0x1e
0197 e21c | | Load 0x1,0x1c
0198 a221 | ! | Store_Unchecked 0x1,0x21
0199 e21e | | Load 0x1,0x1e
019a a21f | | Store_Unchecked 0x1,0x1f
019b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5 | | .CONST 0x01a5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e002 | | Load 0x0,0x2
01a4 0007 | | Action Break_Optional
01a5 BODY_01a0:
01a5 e21e | | Load 0x1,0x1e
01a6 0227 | ' | Execute Access,All_Reference
01a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01a9 8017 | | Call 0x0,0x17
01aa 8013 | | Call 0x0,0x13
01ab 680d |h | Jump_Zero 0x1b9
01ac e21e | | Load 0x1,0x1e
01ad 0227 | ' | Execute Access,All_Reference
01ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01af 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b0 a221 | ! | Store_Unchecked 0x1,0x21
01b1 00db | | Load_Top At_Offset_3
01b2 e221 | ! | Load 0x1,0x21
01b3 800a | | Call 0x0,0xa
01b4 0039 | 9 | Store_Top Access,At_Offset_1
01b5 00d8 | | Load_Top At_Offset_0
01b6 a21e | | Store_Unchecked 0x1,0x1e
01b7 e21e | | Load 0x1,0x1e
01b8 a220 | | Store_Unchecked 0x1,0x20
01b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e002 | | Load 0x0,0x2
01c4 0007 | | Action Break_Optional
01c5 BODY_01c0:
01c5 e21e | | Load 0x1,0x1e
01c6 0227 | ' | Execute Access,All_Reference
01c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c9 8017 | | Call 0x0,0x17
01ca 8013 | | Call 0x0,0x13
01cb 680b |h | Jump_Zero 0x1d7
01cc e21e | | Load 0x1,0x1e
01cd 0227 | ' | Execute Access,All_Reference
01ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d0 a221 | ! | Store_Unchecked 0x1,0x21
01d1 00db | | Load_Top At_Offset_3
01d2 e221 | ! | Load 0x1,0x21
01d3 800a | | Call 0x0,0xa
01d4 0039 | 9 | Store_Top Access,At_Offset_1
01d5 00d8 | | Load_Top At_Offset_0
01d6 a21e | | Store_Unchecked 0x1,0x1e
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd | | .CONST 0x01dd ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e002 | | Load 0x0,0x2
01dc 0007 | | Action Break_Optional
01dd BODY_01d8:
01dd e5fe | | Load 0x2,-0x2
01de e5ff | | Load 0x2,-0x1
01df 8009 | | Call 0x0,0x9
01e0 682e |h. | Jump_Zero 0x20f
01e1 00db | | Load_Top At_Offset_3
01e2 8017 | | Call 0x0,0x17
01e3 0039 | 9 | Store_Top Access,At_Offset_1
01e4 00d8 | | Load_Top At_Offset_0
01e5 0227 | ' | Execute Access,All_Reference
01e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e8 800b | | Call 0x0,0xb
01e9 e5fe | | Load 0x2,-0x2
01ea 01df | | Execute Vector,Equal
01eb 6812 |h | Jump_Zero 0x1fe
01ec e5fe | | Load 0x2,-0x2
01ed e21f | | Load 0x1,0x1f
01ee 0227 | ' | Execute Access,All_Reference
01ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01f1 8009 | | Call 0x0,0x9
01f2 6802 |h | Jump_Zero 0x1f5
01f3 e21f | | Load 0x1,0x1f
01f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f5 e5fe | | Load 0x2,-0x2
01f6 e220 | | Load 0x1,0x20
01f7 0227 | ' | Execute Access,All_Reference
01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01fa 8009 | | Call 0x0,0x9
01fb 6813 |h | Jump_Zero 0x20f
01fc e220 | | Load 0x1,0x20
01fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fe 00cf | | Action Mark_Auxiliary
01ff 7804 |x | Jump 0x204
0200 00d9 | | Load_Top At_Offset_1
0201 8012 | | Call 0x0,0x12
0202 003a | : | Store_Top Access,At_Offset_2
0203 00c9 | | Action Pop_Auxiliary_Loop
0204 00d9 | | Load_Top At_Offset_1
0205 8019 | | Call 0x0,0x19
0206 8015 | | Call 0x0,0x15
0207 0227 | ' | Execute Access,All_Reference
0208 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0209 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020a 800b | | Call 0x0,0xb
020b e5fe | | Load 0x2,-0x2
020c 01df | | Execute Vector,Equal
020d 6ff2 |o | Jump_Zero 0x200
020e 00ce | | Action Pop_Auxiliary
020f 00d8 | | Load_Top At_Offset_0
0210 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225 | % | .CONST 0x0225 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0006 | | .CONST 0x0006 ; Number of locals
021b INIT_0218:
021b e004 | | Load 0x0,0x4
021c 0322 | " | Declare_Variable Record
021d e002 | | Load 0x0,0x2
021e 0007 | | Action Break_Optional
021f 00d8 | | Load_Top At_Offset_0
0220 0007 | | Action Break_Optional
0221 e002 | | Load 0x0,0x2
0222 0007 | | Action Break_Optional
0223 e003 | | Load 0x0,0x3
0224 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0225 BODY_0218:
0225 00d8 | | Load_Top At_Offset_0
0226 e21e | | Load 0x1,0x1e
0227 0227 | ' | Execute Access,All_Reference
0228 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0229 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022a 8011 | | Call 0x0,0x11
022b 0039 | 9 | Store_Top Access,At_Offset_1
022c 00d8 | | Load_Top At_Offset_0
022d 800b | | Call 0x0,0xb
022e e221 | ! | Load 0x1,0x21
022f 800a | | Call 0x0,0xa
0230 a403 | | Store_Unchecked 0x2,0x3
0231 e5ff | | Load 0x2,-0x1
0232 e403 | | Load 0x2,0x3
0233 0227 | ' | Execute Access,All_Reference
0234 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0235 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0236 800b | | Call 0x0,0xb
0237 e403 | | Load 0x2,0x3
0238 0227 | ' | Execute Access,All_Reference
0239 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023b 800b | | Call 0x0,0xb
023c 800c | | Call 0x0,0xc
023d e402 | | Load 0x2,0x2
023e 017d | } | Execute Record,Structure_Write
023f 00d8 | | Load_Top At_Offset_0
0240 800b | | Call 0x0,0xb
0241 e221 | ! | Load 0x1,0x21
0242 821a | | Call 0x1,0x1a
0243 003b | ; | Store_Top Access,At_Offset_3
0244 00da | | Load_Top At_Offset_2
0245 0227 | ' | Execute Access,All_Reference
0246 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0247 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0248 800b | | Call 0x0,0xb
0249 e221 | ! | Load 0x1,0x21
024a 8009 | | Call 0x0,0x9
024b 6821 |h! | Jump_Zero 0x26d
024c 00db | | Load_Top At_Offset_3
024d 0227 | ' | Execute Access,All_Reference
024e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
024f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0250 8017 | | Call 0x0,0x17
0251 8013 | | Call 0x0,0x13
0252 6806 |h | Jump_Zero 0x259
0253 00db | | Load_Top At_Offset_3
0254 0227 | ' | Execute Access,All_Reference
0255 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0256 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0257 e402 | | Load 0x2,0x2
0258 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0259 e002 | | Load 0x0,0x2
025a 00db | | Load_Top At_Offset_3
025b 0227 | ' | Execute Access,All_Reference
025c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025d e221 | ! | Load 0x1,0x21
025e e402 | | Load 0x2,0x2
025f 800d | | Call 0x0,0xd
0260 c221 | ! | Store 0x1,0x21
0261 00db | | Load_Top At_Offset_3
0262 8013 | | Call 0x0,0x13
0263 6808 |h | Jump_Zero 0x26c
0264 00db | | Load_Top At_Offset_3
0265 8019 | | Call 0x0,0x19
0266 8015 | | Call 0x0,0x15
0267 003a | : | Store_Top Access,At_Offset_2
0268 e221 | ! | Load 0x1,0x21
0269 00da | | Load_Top At_Offset_2
026a 8014 | | Call 0x0,0x14
026b c221 | ! | Store 0x1,0x21
026c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026d 00db | | Load_Top At_Offset_3
026e 0227 | ' | Execute Access,All_Reference
026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0270 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0271 8017 | | Call 0x0,0x17
0272 8013 | | Call 0x0,0x13
0273 6806 |h | Jump_Zero 0x27a
0274 00db | | Load_Top At_Offset_3
0275 0227 | ' | Execute Access,All_Reference
0276 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0277 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0278 e402 | | Load 0x2,0x2
0279 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
027a e002 | | Load 0x0,0x2
027b 00db | | Load_Top At_Offset_3
027c 0227 | ' | Execute Access,All_Reference
027d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
027e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
027f 00da | | Load_Top At_Offset_2
0280 0229 | ) | Execute Access,All_Read
0281 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0282 00d8 | | Load_Top At_Offset_0
0283 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0284 e402 | | Load 0x2,0x2
0285 800d | | Call 0x0,0xd
0286 00d9 | | Load_Top At_Offset_1
0287 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0288 00d1 | | Pop_Control Pop_Count_1
0289 00db | | Load_Top At_Offset_3
028a 8013 | | Call 0x0,0x13
028b 680e |h | Jump_Zero 0x29a
028c 00db | | Load_Top At_Offset_3
028d 8019 | | Call 0x0,0x19
028e 8015 | | Call 0x0,0x15
028f 003a | : | Store_Top Access,At_Offset_2
0290 00da | | Load_Top At_Offset_2
0291 0229 | ) | Execute Access,All_Read
0292 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0293 00d8 | | Load_Top At_Offset_0
0294 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0295 00db | | Load_Top At_Offset_3
0296 8014 | | Call 0x0,0x14
0297 00d9 | | Load_Top At_Offset_1
0298 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0299 00d1 | | Pop_Control Pop_Count_1
029a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029b ; --------------------------------------------------------------------------------------
029b ; STRING TABLE
029b ; --------------------------------------------------------------------------------------
029b 000c | | .STRTAB 0x000c->0x02a1 ; "string"
029c 0010 | | .STRTAB 0x0010->0x02a4 ; "boolean"
029d 0015 | | .STRTAB 0x0015->0x02a7 ; "integer"
029e 001a | | .STRTAB 0x001a->0x02ab ; "enum"
029f 001c | | .STRTAB 0x001c->0x02ad ; " not yet declared)"
02a0 002c | , | .STREND 0x002c->0x02b6
02a1 7374 7269 |stri| .STRTAB_STRINGS
02b6 0000 0000 | | .XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xda4f,0x0000,0x0001,0x0011
02be 000b 0302 | | .DBG4T 0x000b,0x0302,0x8000,0x0000
02c2 002a 0313 | * | .DBG4T 0x002a,0x0313,0x8000,0x0000
02c6 005b 032b | [ +| .DBG4T 0x005b,0x032b,0x0001,0x0000
02ca 0063 032f | c /| .DBG4T 0x0063,0x032f,0x0001,0x0000
02ce 0073 0333 | s 3| .DBG4T 0x0073,0x0333,0x0001,0x4000
02d2 0143 036f | C o| .DBG4T 0x0143,0x036f,0x0002,0x0000
02d6 0153 0374 | S t| .DBG4T 0x0153,0x0374,0x0002,0x0000
02da 015b 0377 | [ w| .DBG4T 0x015b,0x0377,0x0002,0x0000
02de 016b 037a | k z| .DBG4T 0x016b,0x037a,0x0002,0x0000
02e2 017b 037f | { | .DBG4T 0x017b,0x037f,0x0002,0x0000
02e6 0183 0382 | | .DBG4T 0x0183,0x0382,0x0002,0x0000
02ea 018b 0385 | | .DBG4T 0x018b,0x0385,0x0001,0x0000
02ee 0193 0388 | | .DBG4T 0x0193,0x0388,0x0001,0x0000
02f2 01a3 038d | | .DBG4T 0x01a3,0x038d,0x0001,0x0000
02f6 01c3 0395 | | .DBG4T 0x01c3,0x0395,0x0001,0x0000
02fa 01db 039c | | .DBG4T 0x01db,0x039c,0x0002,0x4000
02fe 021b 03b3 | | .DBG4T 0x021b,0x03b3,0x0001,0x0000
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug chain
0302 ; --------------------------------------------------------------------------------------
0302 000f 0000 | | .DBGLEN 0x000f,0x0000
0304 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027
0313 ; --------------------------------------------------------------------------------------
0313 ; Debug chain
0313 ; --------------------------------------------------------------------------------------
0313 0016 0000 | | .DBGLEN 0x0016,0x0000
0315 002a 002c | * ,| .DBGLNO 0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054
032b ; --------------------------------------------------------------------------------------
032b ; Debug chain
032b ; --------------------------------------------------------------------------------------
032b 0001 0001 | | .DBGLEN 0x0001,0x0001
032d 005b 005d | [ ]| .DBGLNO 0x005b,0x005d
032f ; --------------------------------------------------------------------------------------
032f ; Debug chain
032f ; --------------------------------------------------------------------------------------
032f 0000 0002 | | .DBGLEN 0x0000,0x0002
0331 0063 0066 | c f| .DBGLNO 0x0063,0x0066
0333 ; --------------------------------------------------------------------------------------
0333 ; Debug chain
0333 ; --------------------------------------------------------------------------------------
0333 0004 001b | | .DBGLEN 0x0004,0x001b
0335 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
0354 0001 0002 | | .XXX[0x1b]
0356 0003 0004 | |
0358 0005 0006 | |
035a 0007 0008 | |
035c 000a 000b | |
035e 000c 000d | |
0360 000e 000f | |
0362 0010 0011 | |
0364 0013 0014 | |
0366 0012 0015 | |
0368 0016 0009 | |
036a 0017 0018 | |
036c 0019 001a | |
036e 001b | |
036f ; --------------------------------------------------------------------------------------
036f ; Debug chain
036f ; --------------------------------------------------------------------------------------
036f 0001 0002 | | .DBGLEN 0x0001,0x0002
0371 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0149
0374 ; --------------------------------------------------------------------------------------
0374 ; Debug chain
0374 ; --------------------------------------------------------------------------------------
0374 0000 0001 | | .DBGLEN 0x0000,0x0001
0376 0153 | S | .DBGLNO 0x0153
0377 ; --------------------------------------------------------------------------------------
0377 ; Debug chain
0377 ; --------------------------------------------------------------------------------------
0377 0000 0001 | | .DBGLEN 0x0000,0x0001
0379 015b | [ | .DBGLNO 0x015b
037a ; --------------------------------------------------------------------------------------
037a ; Debug chain
037a ; --------------------------------------------------------------------------------------
037a 0001 0002 | | .DBGLEN 0x0001,0x0002
037c 016b 016d | k m| .DBGLNO 0x016b,0x016d,0x0171
037f ; --------------------------------------------------------------------------------------
037f ; Debug chain
037f ; --------------------------------------------------------------------------------------
037f 0000 0001 | | .DBGLEN 0x0000,0x0001
0381 017b | { | .DBGLNO 0x017b
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug chain
0382 ; --------------------------------------------------------------------------------------
0382 0000 0001 | | .DBGLEN 0x0000,0x0001
0384 0183 | | .DBGLNO 0x0183
0385 ; --------------------------------------------------------------------------------------
0385 ; Debug chain
0385 ; --------------------------------------------------------------------------------------
0385 0000 0001 | | .DBGLEN 0x0000,0x0001
0387 018b | | .DBGLNO 0x018b
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug chain
0388 ; --------------------------------------------------------------------------------------
0388 0000 0003 | | .DBGLEN 0x0000,0x0003
038a 0193 0197 | | .DBGLNO 0x0193,0x0197,0x0199
038d ; --------------------------------------------------------------------------------------
038d ; Debug chain
038d ; --------------------------------------------------------------------------------------
038d 0001 0005 | | .DBGLEN 0x0001,0x0005
038f 01a3 01a5 | | .DBGLNO 0x01a3,0x01a5,0x01ac,0x01b1,0x01b5,0x01b7
0395 ; --------------------------------------------------------------------------------------
0395 ; Debug chain
0395 ; --------------------------------------------------------------------------------------
0395 0001 0004 | | .DBGLEN 0x0001,0x0004
0397 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01cc,0x01d1,0x01d5
039c ; --------------------------------------------------------------------------------------
039c ; Debug chain
039c ; --------------------------------------------------------------------------------------
039c 0001 000a | | .DBGLEN 0x0001,0x000a
039e 01db 01dd | | .DBGLNO 0x01db,0x01dd,0x01e1,0x01e4,0x01ec,0x01f3,0x01f5,0x01fc,0x0200,0x0204,0x020f
03a9 0001 0002 | | .XXX[0xa]
03ab 0003 0004 | |
03ad 0005 0006 | |
03af 0007 0009 | |
03b1 0008 000a | |
03b3 ; --------------------------------------------------------------------------------------
03b3 ; Debug chain
03b3 ; --------------------------------------------------------------------------------------
03b3 0005 0013 | | .DBGLEN 0x0005,0x0013
03b5 021b 021d | | .DBGLNO 0x021b,0x021d,0x021f,0x0221,0x0223,0x0225,0x022c,0x0231,0x023f,0x0244,0x024c,0x0253,0x0259,0x025d,0x0261,0x0264,0x0268,0x026d,0x0274,0x027a,0x027f,0x0289,0x028c,0x0290
03cd 0000 0000 | | .BLANK 0000[0x33]