|
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: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0380 | | .CONST 0x0380 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0156 | V | .CONST 0x0156 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x03c2,0x8000,0x0000,0x004d,0x9fa5,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00e8 | | Load_Encached Character_Cache ; Debug Table 0x0.0x2 = 0xf,0xfffd
0010 0266 | f | Execute Discrete,Bounds
0011 00e1 | | Load_Encached Boolean_Cache
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 4801 |H | Short_Literal 0x1
0014 035e | ^ | Declare_Type Array,Defined,Visible
0015 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x3 = 0x15,0xfffc
0016 0336 | 6 | Declare_Variable Array,Visible
0017 00d9 | | Load_Top At_Offset_1
0018 0337 | 7 | Declare_Variable Array
0019 487a |Hz | Short_Literal 0x7a
001a 4861 |Ha | Short_Literal 0x61
001b 4801 |H | Short_Literal 0x1
001c 00d9 | | Load_Top At_Offset_1
001d e211 | | Load 0x1,0x11
001e 01d6 | | Execute Vector,Field_Write
001f 3ffb |? | Loop_Increasing 0x1b
0020 485a |HZ | Short_Literal 0x5a
0021 4841 |HA | Short_Literal 0x41
0022 4801 |H | Short_Literal 0x1
0023 00d9 | | Load_Top At_Offset_1
0024 e211 | | Load 0x1,0x11
0025 01d6 | | Execute Vector,Field_Write
0026 3ffb |? | Loop_Increasing 0x22
0027 4801 |H | Short_Literal 0x1
0028 485f |H_ | Short_Literal 0x5f
0029 00da | | Load_Top At_Offset_2
002a 01d6 | | Execute Vector,Field_Write
002b 4840 |H@ | Short_Literal 0x40
002c 4800 |H | Short_Literal 0x0
002d 4800 |H | Short_Literal 0x0
002e 00d9 | | Load_Top At_Offset_1
002f e211 | | Load 0x1,0x11
0030 01d6 | | Execute Vector,Field_Write
0031 3ffb |? | Loop_Increasing 0x2d
0032 485e |H^ | Short_Literal 0x5e
0033 485b |H[ | Short_Literal 0x5b
0034 4800 |H | Short_Literal 0x0
0035 00d9 | | Load_Top At_Offset_1
0036 e211 | | Load 0x1,0x11
0037 01d6 | | Execute Vector,Field_Write
0038 3ffb |? | Loop_Increasing 0x34
0039 4800 |H | Short_Literal 0x0
003a 4860 |H` | Short_Literal 0x60
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 487f |H | Short_Literal 0x7f
003e 487b |H{ | Short_Literal 0x7b
003f 4800 |H | Short_Literal 0x0
0040 00d9 | | Load_Top At_Offset_1
0041 e211 | | Load 0x1,0x11
0042 01d6 | | Execute Vector,Field_Write
0043 3ffb |? | Loop_Increasing 0x3f
0044 00da | | Load_Top At_Offset_2
0045 01c3 | | Execute Vector,Check_In_Type
0046 00d9 | | Load_Top At_Offset_1
0047 01d4 | | Execute Vector,Structure_Write
0048 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x4 = 0x48,0xfffb
0049 0336 | 6 | Declare_Variable Array,Visible
004a 00da | | Load_Top At_Offset_2
004b 0337 | 7 | Declare_Variable Array
004c 4839 |H9 | Short_Literal 0x39
004d 4830 |H0 | Short_Literal 0x30
004e 4801 |H | Short_Literal 0x1
004f 00d9 | | Load_Top At_Offset_1
0050 e212 | | Load 0x1,0x12
0051 01d6 | | Execute Vector,Field_Write
0052 3ffb |? | Loop_Increasing 0x4e
0053 482f |H/ | Short_Literal 0x2f
0054 4800 |H | Short_Literal 0x0
0055 4800 |H | Short_Literal 0x0
0056 00d9 | | Load_Top At_Offset_1
0057 e212 | | Load 0x1,0x12
0058 01d6 | | Execute Vector,Field_Write
0059 3ffb |? | Loop_Increasing 0x55
005a 487f |H | Short_Literal 0x7f
005b 483a |H: | Short_Literal 0x3a
005c 4800 |H | Short_Literal 0x0
005d 00d9 | | Load_Top At_Offset_1
005e e212 | | Load 0x1,0x12
005f 01d6 | | Execute Vector,Field_Write
0060 3ffb |? | Loop_Increasing 0x5c
0061 00db | | Load_Top At_Offset_3
0062 01c3 | | Execute Vector,Check_In_Type
0063 00d9 | | Load_Top At_Offset_1
0064 01d4 | | Execute Vector,Structure_Write
0065 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x5 = 0x65,0xfffa
0066 0336 | 6 | Declare_Variable Array,Visible
0067 00db | | Load_Top At_Offset_3
0068 0337 | 7 | Declare_Variable Array
0069 487a |Hz | Short_Literal 0x7a
006a 4861 |Ha | Short_Literal 0x61
006b 4801 |H | Short_Literal 0x1
006c 00d9 | | Load_Top At_Offset_1
006d e213 | | Load 0x1,0x13
006e 01d6 | | Execute Vector,Field_Write
006f 3ffb |? | Loop_Increasing 0x6b
0070 485a |HZ | Short_Literal 0x5a
0071 4841 |HA | Short_Literal 0x41
0072 4801 |H | Short_Literal 0x1
0073 00d9 | | Load_Top At_Offset_1
0074 e213 | | Load 0x1,0x13
0075 01d6 | | Execute Vector,Field_Write
0076 3ffb |? | Loop_Increasing 0x72
0077 4801 |H | Short_Literal 0x1
0078 485f |H_ | Short_Literal 0x5f
0079 00da | | Load_Top At_Offset_2
007a 01d6 | | Execute Vector,Field_Write
007b 4839 |H9 | Short_Literal 0x39
007c 4830 |H0 | Short_Literal 0x30
007d 4801 |H | Short_Literal 0x1
007e 00d9 | | Load_Top At_Offset_1
007f e213 | | Load 0x1,0x13
0080 01d6 | | Execute Vector,Field_Write
0081 3ffb |? | Loop_Increasing 0x7d
0082 482f |H/ | Short_Literal 0x2f
0083 4800 |H | Short_Literal 0x0
0084 4800 |H | Short_Literal 0x0
0085 00d9 | | Load_Top At_Offset_1
0086 e213 | | Load 0x1,0x13
0087 01d6 | | Execute Vector,Field_Write
0088 3ffb |? | Loop_Increasing 0x84
0089 4840 |H@ | Short_Literal 0x40
008a 483a |H: | Short_Literal 0x3a
008b 4800 |H | Short_Literal 0x0
008c 00d9 | | Load_Top At_Offset_1
008d e213 | | Load 0x1,0x13
008e 01d6 | | Execute Vector,Field_Write
008f 3ffb |? | Loop_Increasing 0x8b
0090 485e |H^ | Short_Literal 0x5e
0091 485b |H[ | Short_Literal 0x5b
0092 4800 |H | Short_Literal 0x0
0093 00d9 | | Load_Top At_Offset_1
0094 e213 | | Load 0x1,0x13
0095 01d6 | | Execute Vector,Field_Write
0096 3ffb |? | Loop_Increasing 0x92
0097 4800 |H | Short_Literal 0x0
0098 4860 |H` | Short_Literal 0x60
0099 00da | | Load_Top At_Offset_2
009a 01d6 | | Execute Vector,Field_Write
009b 487f |H | Short_Literal 0x7f
009c 487b |H{ | Short_Literal 0x7b
009d 4800 |H | Short_Literal 0x0
009e 00d9 | | Load_Top At_Offset_1
009f e213 | | Load 0x1,0x13
00a0 01d6 | | Execute Vector,Field_Write
00a1 3ffb |? | Loop_Increasing 0x9d
00a2 e20f | | Load 0x1,0xf
00a3 01c3 | | Execute Vector,Check_In_Type
00a4 00d9 | | Load_Top At_Offset_1
00a5 01d4 | | Execute Vector,Structure_Write
00a6 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x6 = 0xa6,0xfff9
00a7 0336 | 6 | Declare_Variable Array,Visible
00a8 e20f | | Load 0x1,0xf
00a9 0337 | 7 | Declare_Variable Array
00aa 4801 |H | Short_Literal 0x1
00ab 4820 |H | Short_Literal 0x20
00ac 00da | | Load_Top At_Offset_2
00ad 01d6 | | Execute Vector,Field_Write
00ae 4801 |H | Short_Literal 0x1
00af 480d |H | Short_Literal 0xd
00b0 00da | | Load_Top At_Offset_2
00b1 01d6 | | Execute Vector,Field_Write
00b2 4801 |H | Short_Literal 0x1
00b3 480a |H | Short_Literal 0xa
00b4 00da | | Load_Top At_Offset_2
00b5 01d6 | | Execute Vector,Field_Write
00b6 4809 |H | Short_Literal 0x9
00b7 4800 |H | Short_Literal 0x0
00b8 4800 |H | Short_Literal 0x0
00b9 00d9 | | Load_Top At_Offset_1
00ba e214 | | Load 0x1,0x14
00bb 01d6 | | Execute Vector,Field_Write
00bc 3ffb |? | Loop_Increasing 0xb8
00bd 4800 |H | Short_Literal 0x0
00be 480b |H | Short_Literal 0xb
00bf 00da | | Load_Top At_Offset_2
00c0 01d6 | | Execute Vector,Field_Write
00c1 4800 |H | Short_Literal 0x0
00c2 480c |H | Short_Literal 0xc
00c3 00da | | Load_Top At_Offset_2
00c4 01d6 | | Execute Vector,Field_Write
00c5 481f |H | Short_Literal 0x1f
00c6 480e |H | Short_Literal 0xe
00c7 4800 |H | Short_Literal 0x0
00c8 00d9 | | Load_Top At_Offset_1
00c9 e214 | | Load 0x1,0x14
00ca 01d6 | | Execute Vector,Field_Write
00cb 3ffb |? | Loop_Increasing 0xc7
00cc 487f |H | Short_Literal 0x7f
00cd 4821 |H! | Short_Literal 0x21
00ce 4800 |H | Short_Literal 0x0
00cf 00d9 | | Load_Top At_Offset_1
00d0 e214 | | Load 0x1,0x14
00d1 01d6 | | Execute Vector,Field_Write
00d2 3ffb |? | Loop_Increasing 0xce
00d3 e20f | | Load 0x1,0xf
00d4 01c3 | | Execute Vector,Check_In_Type
00d5 00d9 | | Load_Top At_Offset_1
00d6 01d4 | | Execute Vector,Structure_Write
00d7 e20f | | Load 0x1,0xf ; Debug Table 0x0.0x7 = 0xd7,0xfff8
00d8 0336 | 6 | Declare_Variable Array,Visible
00d9 e20f | | Load 0x1,0xf
00da 0337 | 7 | Declare_Variable Array
00db 4801 |H | Short_Literal 0x1
00dc 482c |H, | Short_Literal 0x2c
00dd 00da | | Load_Top At_Offset_2
00de 01d6 | | Execute Vector,Field_Write
00df 4801 |H | Short_Literal 0x1
00e0 483b |H; | Short_Literal 0x3b
00e1 00da | | Load_Top At_Offset_2
00e2 01d6 | | Execute Vector,Field_Write
00e3 4801 |H | Short_Literal 0x1
00e4 4828 |H( | Short_Literal 0x28
00e5 00da | | Load_Top At_Offset_2
00e6 01d6 | | Execute Vector,Field_Write
00e7 4801 |H | Short_Literal 0x1
00e8 4829 |H) | Short_Literal 0x29
00e9 00da | | Load_Top At_Offset_2
00ea 01d6 | | Execute Vector,Field_Write
00eb 4801 |H | Short_Literal 0x1
00ec 482a |H* | Short_Literal 0x2a
00ed 00da | | Load_Top At_Offset_2
00ee 01d6 | | Execute Vector,Field_Write
00ef 4801 |H | Short_Literal 0x1
00f0 483a |H: | Short_Literal 0x3a
00f1 00da | | Load_Top At_Offset_2
00f2 01d6 | | Execute Vector,Field_Write
00f3 4801 |H | Short_Literal 0x1
00f4 482b |H+ | Short_Literal 0x2b
00f5 00da | | Load_Top At_Offset_2
00f6 01d6 | | Execute Vector,Field_Write
00f7 4801 |H | Short_Literal 0x1
00f8 482d |H- | Short_Literal 0x2d
00f9 00da | | Load_Top At_Offset_2
00fa 01d6 | | Execute Vector,Field_Write
00fb 4801 |H | Short_Literal 0x1
00fc 487c |H| | Short_Literal 0x7c
00fd 00da | | Load_Top At_Offset_2
00fe 01d6 | | Execute Vector,Field_Write
00ff 4801 |H | Short_Literal 0x1
0100 487e |H~ | Short_Literal 0x7e
0101 00da | | Load_Top At_Offset_2
0102 01d6 | | Execute Vector,Field_Write
0103 4801 |H | Short_Literal 0x1
0104 487b |H{ | Short_Literal 0x7b
0105 00da | | Load_Top At_Offset_2
0106 01d6 | | Execute Vector,Field_Write
0107 4801 |H | Short_Literal 0x1
0108 487d |H} | Short_Literal 0x7d
0109 00da | | Load_Top At_Offset_2
010a 01d6 | | Execute Vector,Field_Write
010b 4801 |H | Short_Literal 0x1
010c 485b |H[ | Short_Literal 0x5b
010d 00da | | Load_Top At_Offset_2
010e 01d6 | | Execute Vector,Field_Write
010f 4801 |H | Short_Literal 0x1
0110 485d |H] | Short_Literal 0x5d
0111 00da | | Load_Top At_Offset_2
0112 01d6 | | Execute Vector,Field_Write
0113 4801 |H | Short_Literal 0x1
0114 485c |H\ | Short_Literal 0x5c
0115 00da | | Load_Top At_Offset_2
0116 01d6 | | Execute Vector,Field_Write
0117 4801 |H | Short_Literal 0x1
0118 483d |H= | Short_Literal 0x3d
0119 00da | | Load_Top At_Offset_2
011a 01d6 | | Execute Vector,Field_Write
011b 4801 |H | Short_Literal 0x1
011c 483e |H> | Short_Literal 0x3e
011d 00da | | Load_Top At_Offset_2
011e 01d6 | | Execute Vector,Field_Write
011f 4827 |H' | Short_Literal 0x27
0120 4800 |H | Short_Literal 0x0
0121 4800 |H | Short_Literal 0x0
0122 00d9 | | Load_Top At_Offset_1
0123 e215 | | Load 0x1,0x15
0124 01d6 | | Execute Vector,Field_Write
0125 3ffb |? | Loop_Increasing 0x121
0126 4839 |H9 | Short_Literal 0x39
0127 482e |H. | Short_Literal 0x2e
0128 4800 |H | Short_Literal 0x0
0129 00d9 | | Load_Top At_Offset_1
012a e215 | | Load 0x1,0x15
012b 01d6 | | Execute Vector,Field_Write
012c 3ffb |? | Loop_Increasing 0x128
012d 4800 |H | Short_Literal 0x0
012e 483c |H< | Short_Literal 0x3c
012f 00da | | Load_Top At_Offset_2
0130 01d6 | | Execute Vector,Field_Write
0131 485a |HZ | Short_Literal 0x5a
0132 483f |H? | Short_Literal 0x3f
0133 4800 |H | Short_Literal 0x0
0134 00d9 | | Load_Top At_Offset_1
0135 e215 | | Load 0x1,0x15
0136 01d6 | | Execute Vector,Field_Write
0137 3ffb |? | Loop_Increasing 0x133
0138 487a |Hz | Short_Literal 0x7a
0139 485e |H^ | Short_Literal 0x5e
013a 4800 |H | Short_Literal 0x0
013b 00d9 | | Load_Top At_Offset_1
013c e215 | | Load 0x1,0x15
013d 01d6 | | Execute Vector,Field_Write
013e 3ffb |? | Loop_Increasing 0x13a
013f 4800 |H | Short_Literal 0x0
0140 487f |H | Short_Literal 0x7f
0141 00da | | Load_Top At_Offset_2
0142 01d6 | | Execute Vector,Field_Write
0143 e20f | | Load 0x1,0xf
0144 01c3 | | Execute Vector,Check_In_Type
0145 00d9 | | Load_Top At_Offset_1
0146 01d4 | | Execute Vector,Structure_Write
0147 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x147,0xfff7
0149 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x149,0xfff6
014b 00bf | | Action Accept_Activation
014c 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x014c,0x03d8,0x8000,0x0000,0x004d,0x9fb5,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x14c,0xffff
014d 00c7 | | Action Elaborate_Subprogram
014e 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x14e,0xfffe
014f 00c7 | | Action Elaborate_Subprogram
0150 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x2 = 0x150,0xfffd
0151 00c7 | | Action Elaborate_Subprogram
0152 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call ; Debug Table 0x1.0x3 = 0x152,0xfffc
0154 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x4 = 0x154,0xfffb
0155 00c7 | | Action Elaborate_Subprogram
0156 BODY_0008:
0156 00bc | | Action Signal_Activated
0157 00bb | | Action Signal_Completion
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0172 | r | .CONST 0x0172 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0005 | | .CONST 0x0005 ; Number of locals
015b INIT_0158:
015b 00e8 | | Load_Encached Character_Cache ; Debug Table 0x2 = .DEBUG 0x015b,0x03e4,0x0002,0x0000,0x004d,0x9fa5,0x0000,0x0004
; Debug Table 0x2.0x0 = 0x15b,0xffff
015c 0266 | f | Execute Discrete,Bounds
015d 00e1 | | Load_Encached Boolean_Cache
015e 02a0 | | Declare_Subprogram Null_Subprogram
015f 4801 |H | Short_Literal 0x1
0160 035d | ] | Declare_Type Array,Defined
0161 00d8 | | Load_Top At_Offset_0
0162 0337 | 7 | Declare_Variable Array
0163 00d8 | | Load_Top At_Offset_0
0164 0337 | 7 | Declare_Variable Array
0165 487f |H | Short_Literal 0x7f
0166 4800 |H | Short_Literal 0x0
0167 4800 |H | Short_Literal 0x0
0168 00d9 | | Load_Top At_Offset_1
0169 e404 | | Load 0x2,0x4
016a 01d6 | | Execute Vector,Field_Write
016b 3ffb |? | Loop_Increasing 0x167
016c 00d9 | | Load_Top At_Offset_1
016d 01d4 | | Execute Vector,Structure_Write
016e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x1 = 0x16e,0xfffe
016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0170 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
0172 BODY_0158:
0172 00cf | | Action Mark_Auxiliary
0173 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x2 = 0x173,0x1
0174 01d9 | | Execute Vector,Reverse_Bounds
0175 0263 | c | Execute Discrete,Above_Bound
0176 7008 |p | Jump_Nonzero 0x17f
0177 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x3 = 0x177,0x2
0178 00d9 | | Load_Top At_Offset_1
0179 e5fd | | Load 0x2,-0x3
017a 01d7 | | Execute Vector,Field_Read
017b e403 | | Load 0x2,0x3
017c 01d6 | | Execute Vector,Field_Write
017d 00c8 | | Action Pop_Auxiliary_Range
017e 3ff8 |? | Loop_Increasing 0x177
017f 00ce | | Action Pop_Auxiliary
0180 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x4 = 0x180,0x3
0181 e5fe | | Load 0x2,-0x2
0182 e403 | | Load 0x2,0x3
0183 01d6 | | Execute Vector,Field_Write
0184 00cf | | Action Mark_Auxiliary
0185 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x5 = 0x185,0x4
0186 01d9 | | Execute Vector,Reverse_Bounds
0187 0263 | c | Execute Discrete,Above_Bound
0188 700b |p | Jump_Nonzero 0x194
0189 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x189,0x5
018a e5ff | | Load 0x2,-0x1
018b 01d7 | | Execute Vector,Field_Read
018c e403 | | Load 0x2,0x3
018d 01d7 | | Execute Vector,Field_Read
018e 6803 |h | Jump_Zero 0x192
018f e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x7 = 0x18f,0x6
0190 0a01 | | Execute_Immediate Plus,0x1
0191 c404 | | Store 0x2,0x4
0192 00c8 | | Action Pop_Auxiliary_Range
0193 3ff5 |? | Loop_Increasing 0x189
0194 00ce | | Action Pop_Auxiliary
0195 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x8 = 0x195,0x7
0196 7003 |p | Jump_Nonzero 0x19a
0197 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x9 = 0x197,0x8
0198 0335 | 5 | Declare_Variable Array,Duplicate
0199 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
019a 8405 | | Call 0x2,0x5 ; Debug Table 0x2.0xa = 0x19a,0x9
019b 4831 |H1 | Short_Literal 0x31
019c 0257 | W | Execute Discrete,Raise
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b0 | | .CONST 0x01b0 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0004 | | .CONST 0x0004 ; Number of locals
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x01a3,0x03fc,0x0002,0x0000,0x004d,0x9fa5,0x0000,0x0017
; Debug Table 0x3.0x0 = 0x1a3,0xffff
01a4 01da | | Execute Vector,Bounds
01a5 00e9 | | Load_Encached String_Cache
01a6 035b | [ | Declare_Type Array,Constrained
01a7 0337 | 7 | Declare_Variable Array
01a8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x1a8,0xfffe
01a9 01dd | | Execute Vector,First
01aa 00e3 | | Load_Encached Natural_Cache
01ab 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01ac e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x1ac,0xfffd
01ad 01dd | | Execute Vector,First
01ae 00e3 | | Load_Encached Natural_Cache
01af 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01b0 BODY_01a0:
01b0 00cf | | Action Mark_Auxiliary
01b1 7828 |x( | Jump 0x1da
01b2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0x1b2,0x2
01b3 e5ff | | Load 0x2,-0x1
01b4 01d7 | | Execute Vector,Field_Read
01b5 e5fe | | Load 0x2,-0x2
01b6 027e | ~ | Execute Discrete,Not_Equal
01b7 680d |h | Jump_Zero 0x1c5
01b8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x4 = 0x1b8,0x3
01b9 e5ff | | Load 0x2,-0x1
01ba 01d7 | | Execute Vector,Field_Read
01bb 00db | | Load_Top At_Offset_3
01bc e402 | | Load 0x2,0x2
01bd 01d6 | | Execute Vector,Field_Write
01be 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x5 = 0x1be,0x4
01bf 0a01 | | Execute_Immediate Plus,0x1
01c0 005b | [ | Store_Top Discrete,At_Offset_3
01c1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0x1c1,0x5
01c2 0a01 | | Execute_Immediate Plus,0x1
01c3 005a | Z | Store_Top Discrete,At_Offset_2
01c4 7814 |x | Jump 0x1d9
01c5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x1c5,0x6
01c6 0a01 | | Execute_Immediate Plus,0x1
01c7 005a | Z | Store_Top Discrete,At_Offset_2
01c8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x8 = 0x1c8,0x7
01c9 e5ff | | Load 0x2,-0x1
01ca 01dc | | Execute Vector,Last
01cb 027a | z | Execute Discrete,Less_Equal
01cc 680c |h | Jump_Zero 0x1d9
01cd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x9 = 0x1cd,0x8
01ce e5ff | | Load 0x2,-0x1
01cf 01d7 | | Execute Vector,Field_Read
01d0 00db | | Load_Top At_Offset_3
01d1 e402 | | Load 0x2,0x2
01d2 01d6 | | Execute Vector,Field_Write
01d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xa = 0x1d3,0x9
01d4 0a01 | | Execute_Immediate Plus,0x1
01d5 005b | [ | Store_Top Discrete,At_Offset_3
01d6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0x1d6,0xa
01d7 0a01 | | Execute_Immediate Plus,0x1
01d8 005a | Z | Store_Top Discrete,At_Offset_2
01d9 00c9 | | Action Pop_Auxiliary_Loop
01da 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xc = 0x1da,0x1
01db e5ff | | Load 0x2,-0x1
01dc 01dc | | Execute Vector,Last
01dd 027a | z | Execute Discrete,Less_Equal
01de 77d3 |w | Jump_Nonzero 0x1b2
01df 00ce | | Action Pop_Auxiliary
01e0 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xd = 0x1e0,0xb
01e1 01dd | | Execute Vector,First
01e2 00da | | Load_Top At_Offset_2
01e3 0aff | | Execute_Immediate Plus,-0x1
01e4 0248 | H | Execute Discrete,Check_In_Integer
01e5 e402 | | Load 0x2,0x2
01e6 01cf | | Execute Vector,Slice_Read
01e7 00e9 | | Load_Encached String_Cache
01e8 01c6 | | Execute Vector,Convert_To_Formal
01e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1 ; Debug Table 0x4 = .DEBUG 0x01f3,0x041a,0x0001,0x0000,0x004d,0x9fa5,0x0000,0x00b9
; Debug Table 0x4.0x0 = 0x1f3,0x1
01f4 a5fb | | Store_Unchecked 0x2,-0x5
01f5 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0x1f5,0x2
01f6 a5fa | | Store_Unchecked 0x2,-0x6
01f7 00cf | | Action Mark_Auxiliary
01f8 7804 |x | Jump 0x1fd
01f9 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x2 = 0x1f9,0x4
01fa 0a01 | | Execute_Immediate Plus,0x1
01fb c5fc | | Store 0x2,-0x4
01fc 00c9 | | Action Pop_Auxiliary_Loop
01fd e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x3 = 0x1fd,0x3
01fe e5ff | | Load 0x2,-0x1
01ff 01dc | | Execute Vector,Last
0200 027a | z | Execute Discrete,Less_Equal
0201 6806 |h | Jump_Zero 0x208
0202 e5fc | | Load 0x2,-0x4
0203 e5ff | | Load 0x2,-0x1
0204 01d7 | | Execute Vector,Field_Read
0205 e5fe | | Load 0x2,-0x2
0206 01d7 | | Execute Vector,Field_Read
0207 77f1 |w | Jump_Nonzero 0x1f9
0208 00ce | | Action Pop_Auxiliary
0209 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x4 = 0x209,0x5
020a 00db | | Load_Top At_Offset_3
020b 01dc | | Execute Vector,Last
020c 027d | } | Execute Discrete,Greater
020d 6801 |h | Jump_Zero 0x20f
020e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x4.0x5 = 0x20e,0x6
020f e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x6 = 0x20f,0x7
0210 a5fb | | Store_Unchecked 0x2,-0x5
0211 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x7 = 0x211,0x8
0212 00db | | Load_Top At_Offset_3
0213 01d7 | | Execute Vector,Field_Read
0214 0f22 | " | Execute_Immediate Equal,0x22
0215 6831 |h1 | Jump_Zero 0x247
0216 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x8 = 0x216,0x9
0217 0a01 | | Execute_Immediate Plus,0x1
0218 c5fc | | Store 0x2,-0x4
0219 00cf | | Action Mark_Auxiliary
021a 7825 |x% | Jump 0x240
021b e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x9 = 0x21b,0xb
021c e5ff | | Load 0x2,-0x1
021d 01d7 | | Execute Vector,Field_Read
021e 0f22 | " | Execute_Immediate Equal,0x22
021f 681c |h | Jump_Zero 0x23c
0220 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xa = 0x220,0xc
0221 e5ff | | Load 0x2,-0x1
0222 01dc | | Execute Vector,Last
0223 027c | | | Execute Discrete,Less
0224 6807 |h | Jump_Zero 0x22c
0225 e5fc | | Load 0x2,-0x4
0226 0a01 | | Execute_Immediate Plus,0x1
0227 0248 | H | Execute Discrete,Check_In_Integer
0228 e5ff | | Load 0x2,-0x1
0229 01d7 | | Execute Vector,Field_Read
022a 0e22 | " | Execute_Immediate Not_Equal,0x22
022b 7801 |x | Jump 0x22d
022c 4800 |H | Short_Literal 0x0
022d 7005 |p | Jump_Nonzero 0x233
022e e5fc | | Load 0x2,-0x4
022f e5ff | | Load 0x2,-0x1
0230 01dc | | Execute Vector,Last
0231 027f | | Execute Discrete,Equal
0232 6806 |h | Jump_Zero 0x239
0233 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xb = 0x233,0xd
0234 a5fa | | Store_Unchecked 0x2,-0x6
0235 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xc = 0x235,0xe
0236 0a01 | | Execute_Immediate Plus,0x1
0237 c5fc | | Store 0x2,-0x4
0238 780c |x | Jump 0x245 ; Debug Table 0x4.0xd = 0x238,0xf
0239 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xe = 0x239,0x10
023a 0a01 | | Execute_Immediate Plus,0x1
023b c5fc | | Store 0x2,-0x4
023c e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xf = 0x23c,0x11
023d 0a01 | | Execute_Immediate Plus,0x1
023e c5fc | | Store 0x2,-0x4
023f 00c9 | | Action Pop_Auxiliary_Loop
0240 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x10 = 0x240,0xa
0241 e5ff | | Load 0x2,-0x1
0242 01dc | | Execute Vector,Last
0243 027a | z | Execute Discrete,Less_Equal
0244 77d6 |w | Jump_Nonzero 0x21b
0245 00ce | | Action Pop_Auxiliary
0246 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0247 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0x11 = 0x247,0x12
0248 00db | | Load_Top At_Offset_3
0249 01d7 | | Execute Vector,Field_Read
024a e5fd | | Load 0x2,-0x3
024b 01d7 | | Execute Vector,Field_Read
024c 6806 |h | Jump_Zero 0x253
024d e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0x12 = 0x24d,0x13
024e a5fa | | Store_Unchecked 0x2,-0x6
024f e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x13 = 0x24f,0x14
0250 0a01 | | Execute_Immediate Plus,0x1
0251 c5fc | | Store 0x2,-0x4
0252 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0253 00cf | | Action Mark_Auxiliary
0254 7804 |x | Jump 0x259
0255 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x14 = 0x255,0x16
0256 0a01 | | Execute_Immediate Plus,0x1
0257 c5fc | | Store 0x2,-0x4
0258 00c9 | | Action Pop_Auxiliary_Loop
0259 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x15 = 0x259,0x15
025a e5ff | | Load 0x2,-0x1
025b 01dc | | Execute Vector,Last
025c 027a | z | Execute Discrete,Less_Equal
025d 680c |h | Jump_Zero 0x26a
025e e5fc | | Load 0x2,-0x4
025f e5ff | | Load 0x2,-0x1
0260 01d7 | | Execute Vector,Field_Read
0261 e5fe | | Load 0x2,-0x2
0262 01d7 | | Execute Vector,Field_Read
0263 7006 |p | Jump_Nonzero 0x26a
0264 e5fc | | Load 0x2,-0x4
0265 e5ff | | Load 0x2,-0x1
0266 01d7 | | Execute Vector,Field_Read
0267 e5fd | | Load 0x2,-0x3
0268 01d7 | | Execute Vector,Field_Read
0269 6feb |o | Jump_Zero 0x255
026a 00ce | | Action Pop_Auxiliary
026b e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x16 = 0x26b,0x17
026c 0aff | | Execute_Immediate Plus,-0x1
026d c5fa | | Store 0x2,-0x6
026e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027c | | | .CONST 0x027c ; Address of begin
0271 028b | | .CONST 0x028b ; Address of exception handler
0272 0003 | | .CONST 0x0003 ; Number of locals
0273 INIT_0270:
0273 4820 |H | Short_Literal 0x20 ; Debug Table 0x5 = .DEBUG 0x0273,0x044a,0x0002,0x0000,0x004d,0x9fa5,0x0000,0x00d7
; Debug Table 0x5.0x0 = 0x273,0xffff
0274 00db | | Load_Top At_Offset_3
0275 e001 | | Load 0x0,0x1
0276 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0277 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x1 = 0x277,0xfffe
0278 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0279 02c7 | | Declare_Variable Any
027a 00d8 | | Load_Top At_Offset_0
027b 1c00 | | Execute_Immediate Run_Utility,0x0
027c BODY_0270:
027c e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x2 = 0x27c,0x1
027d 6805 |h | Jump_Zero 0x283
027e 00d9 | | Load_Top At_Offset_1
027f 8217 | | Call 0x1,0x17
0280 7002 |p | Jump_Nonzero 0x283
0281 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x3 = 0x281,0x2
0282 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0283 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x4 = 0x283,0x3
0284 e003 | | Load 0x0,0x3
0285 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0286 e003 | | Load 0x0,0x3
0287 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0288 c403 | | Store 0x2,0x3
0289 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x5 = 0x289,0x4
028a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
028b TRAP_0270:
028b 010e | | Execute Exception,Is_Constraint_Error
028c 7002 |p | Jump_Nonzero 0x28f
028d 010d | | Execute Exception,Is_Numeric_Error
028e 6802 |h | Jump_Zero 0x291
028f 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x6 = 0x28f,0x5
0290 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0291 0100 | | Execute Exception,Raise
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029f | | .CONST 0x029f ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6 = .DEBUG 0x029b,0x045a,0x0002,0x0000,0x004d,0x9fb5,0x0000,0x0242
; Debug Table 0x6.0x0 = 0x29b,0xffff
029c 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0x29c,0xfffe
029d e001 | | Load 0x0,0x1
029e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
029f BODY_0298:
029f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0x29f,0x1
02a0 01dd | | Execute Vector,First
02a1 00d9 | | Load_Top At_Offset_1
02a2 01d7 | | Execute Vector,Field_Read
02a3 0b6a | j | Execute_Immediate Case_Compare,0x6a
02a4 7010 |p | Jump_Nonzero 0x2b5
02a5 0b66 | f | Execute_Immediate Case_Compare,0x66
02a6 7028 |p( | Jump_Nonzero 0x2cf
02a7 0b6d | m | Execute_Immediate Case_Compare,0x6d
02a8 702e |p. | Jump_Nonzero 0x2d7
02a9 0b61 | a | Execute_Immediate Case_Compare,0x61
02aa 703d |p= | Jump_Nonzero 0x2e8
02ab 0b73 | s | Execute_Immediate Case_Compare,0x73
02ac 704c |pL | Jump_Nonzero 0x2f9
02ad 0b6f | o | Execute_Immediate Case_Compare,0x6f
02ae 7052 |pR | Jump_Nonzero 0x301
02af 0b6e | n | Execute_Immediate Case_Compare,0x6e
02b0 7058 |pX | Jump_Nonzero 0x309
02b1 0b64 | d | Execute_Immediate Case_Compare,0x64
02b2 705e |p^ | Jump_Nonzero 0x311
02b3 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x3 = 0x2b3,0x12
02b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b5 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x4 = 0x2b5,0x2
02b6 00da | | Load_Top At_Offset_2
02b7 0092 034e | N| Action Push_String_Extended,0x34e ; "january"
02b9 e001 | | Load 0x0,0x1
02ba 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02bb 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02bc 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x5 = 0x2bc,0x3
02bd 7007 |p | Jump_Nonzero 0x2c5
02be 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x6 = 0x2be,0x4
02bf 00da | | Load_Top At_Offset_2
02c0 0092 034f | O| Action Push_String_Extended,0x34f ; "june"
02c2 e001 | | Load 0x0,0x1
02c3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02c4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02c5 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x7 = 0x2c5,0x5
02c6 7051 |pQ | Jump_Nonzero 0x318
02c7 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x8 = 0x2c7,0x6
02c8 00da | | Load_Top At_Offset_2
02c9 0092 0350 | P| Action Push_String_Extended,0x350 ; "july"
02cb e001 | | Load 0x0,0x1
02cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02cd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02ce 7849 |xI | Jump 0x318
02cf 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x9 = 0x2cf,0x7
02d0 00da | | Load_Top At_Offset_2
02d1 0092 0351 | Q| Action Push_String_Extended,0x351 ; "february"
02d3 e001 | | Load 0x0,0x1
02d4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02d5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02d6 7841 |xA | Jump 0x318
02d7 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xa = 0x2d7,0x8
02d8 00da | | Load_Top At_Offset_2
02d9 0092 0352 | R| Action Push_String_Extended,0x352 ; "march"
02db e001 | | Load 0x0,0x1
02dc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02dd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02de 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xb = 0x2de,0x9
02df 7038 |p8 | Jump_Nonzero 0x318
02e0 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xc = 0x2e0,0xa
02e1 00da | | Load_Top At_Offset_2
02e2 0092 0353 | S| Action Push_String_Extended,0x353 ; "may"
02e4 e001 | | Load 0x0,0x1
02e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02e6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02e7 7830 |x0 | Jump 0x318
02e8 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xd = 0x2e8,0xb
02e9 00da | | Load_Top At_Offset_2
02ea 0092 0354 | T| Action Push_String_Extended,0x354 ; "april"
02ec e001 | | Load 0x0,0x1
02ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02ee 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02ef 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xe = 0x2ef,0xc
02f0 7027 |p' | Jump_Nonzero 0x318
02f1 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xf = 0x2f1,0xd
02f2 00da | | Load_Top At_Offset_2
02f3 0092 0355 | U| Action Push_String_Extended,0x355 ; "august"
02f5 e001 | | Load 0x0,0x1
02f6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02f8 781f |x | Jump 0x318
02f9 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x10 = 0x2f9,0xe
02fa 00da | | Load_Top At_Offset_2
02fb 0092 0356 | V| Action Push_String_Extended,0x356 ; "september"
02fd e001 | | Load 0x0,0x1
02fe 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02ff 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0300 7817 |x | Jump 0x318
0301 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x11 = 0x301,0xf
0302 00da | | Load_Top At_Offset_2
0303 0092 0357 | W| Action Push_String_Extended,0x357 ; "october"
0305 e001 | | Load 0x0,0x1
0306 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0307 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0308 780f |x | Jump 0x318
0309 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x12 = 0x309,0x10
030a 00da | | Load_Top At_Offset_2
030b 0092 0358 | X| Action Push_String_Extended,0x358 ; "november"
030d e001 | | Load 0x0,0x1
030e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
030f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0310 7807 |x | Jump 0x318
0311 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x13 = 0x311,0x11
0312 00da | | Load_Top At_Offset_2
0313 0092 0359 | Y| Action Push_String_Extended,0x359 ; "december"
0315 e001 | | Load 0x0,0x1
0316 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0317 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0318 00d1 | | Pop_Control Pop_Count_1
0319 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x14 = 0x319,0x13
031a 0e00 | | Execute_Immediate Not_Equal,0x0
031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032d | - | .CONST 0x032d ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 4801 |H | Short_Literal 0x1 ; Debug Table 0x7 = .DEBUG 0x0323,0x0486,0x0004,0x0000,0x004d,0x9fb5,0x0000,0x00b5
; Debug Table 0x7.0x0 = 0x323,0xffff
0324 e5ff | | Load 0x2,-0x1
0325 01db | | Execute Vector,Length
0326 e404 | | Load 0x2,0x4
0327 0273 | s | Execute Discrete,Plus
0328 0248 | H | Execute Discrete,Check_In_Integer
0329 00e9 | | Load_Encached String_Cache
032a 0334 | 4 | Declare_Variable Array,With_Constraint
032b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7.0x1 = 0x32b,0xfffe
032c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
032d BODY_0320:
032d 00cf | | Action Mark_Auxiliary
032e e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x2 = 0x32e,0x1
032f 01d9 | | Execute Vector,Reverse_Bounds
0330 0263 | c | Execute Discrete,Above_Bound
0331 7018 |p | Jump_Nonzero 0x34a
0332 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x332,0x2
0333 e5ff | | Load 0x2,-0x1
0334 01d7 | | Execute Vector,Field_Read
0335 e403 | | Load 0x2,0x3
0336 01d7 | | Execute Vector,Field_Read
0337 6807 |h | Jump_Zero 0x33f
0338 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x4 = 0x338,0x3
0339 e603 | | Load 0x3,0x3
033a e602 | | Load 0x3,0x2
033b 01d6 | | Execute Vector,Field_Write
033c 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x5 = 0x33c,0x4
033d 0a01 | | Execute_Immediate Plus,0x1
033e c603 | | Store 0x3,0x3
033f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x6 = 0x33f,0x5
0340 e5ff | | Load 0x2,-0x1
0341 01d7 | | Execute Vector,Field_Read
0342 e603 | | Load 0x3,0x3
0343 e602 | | Load 0x3,0x2
0344 01d6 | | Execute Vector,Field_Write
0345 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x7 = 0x345,0x6
0346 0a01 | | Execute_Immediate Plus,0x1
0347 c603 | | Store 0x3,0x3
0348 00c8 | | Action Pop_Auxiliary_Range
0349 3fe8 |? | Loop_Increasing 0x332
034a 00ce | | Action Pop_Auxiliary
034b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x8 = 0x34b,0x7
034c 00cb | | Action Pop_Block_With_Result
034d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
034e ; --------------------------------------------------------------------------------------
034e ; STRING TABLE
034e ; --------------------------------------------------------------------------------------
034e 001a | | .STRTAB 0x001a->0x035b ; "january"
034f 001f | | .STRTAB 0x001f->0x035e ; "june"
0350 0021 | ! | .STRTAB 0x0021->0x0360 ; "july"
0351 0023 | # | .STRTAB 0x0023->0x0362 ; "february"
0352 0029 | ) | .STRTAB 0x0029->0x0366 ; "march"
0353 002c | , | .STRTAB 0x002c->0x0369 ; "may"
0354 002d | - | .STRTAB 0x002d->0x036a ; "april"
0355 0030 | 0 | .STRTAB 0x0030->0x036d ; "august"
0356 0034 | 4 | .STRTAB 0x0034->0x0370 ; "september"
0357 003b | ; | .STRTAB 0x003b->0x0374 ; "october"
0358 0040 | @ | .STRTAB 0x0040->0x0378 ; "november"
0359 0046 | F | .STRTAB 0x0046->0x037c ; "december"
035a 004c | L | .STREND 0x004c->0x0380
035b 6a61 6e75 |janu| .STRTAB_STRINGS
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug Table
0380 ; --------------------------------------------------------------------------------------
0380 0003 0008 | | .CONST 0x0003,0x0008
0382 000b 03c2 | | .DEBUG 0x000b,0x03c2,0x8000,0x0000,0x004d,0x9fa5,0x0000,0x0003
038a 014c 03d8 | L | .DEBUG 0x014c,0x03d8,0x8000,0x0000,0x004d,0x9fb5,0x0000,0x000b
0392 015b 03e4 | [ | .DEBUG 0x015b,0x03e4,0x0002,0x0000,0x004d,0x9fa5,0x0000,0x0004
039a 01a3 03fc | | .DEBUG 0x01a3,0x03fc,0x0002,0x0000,0x004d,0x9fa5,0x0000,0x0017
03a2 01f3 041a | | .DEBUG 0x01f3,0x041a,0x0001,0x0000,0x004d,0x9fa5,0x0000,0x00b9
03aa 0273 044a | s J| .DEBUG 0x0273,0x044a,0x0002,0x0000,0x004d,0x9fa5,0x0000,0x00d7
03b2 029b 045a | Z| .DEBUG 0x029b,0x045a,0x0002,0x0000,0x004d,0x9fb5,0x0000,0x0242
03ba 0323 0486 | # | .DEBUG 0x0323,0x0486,0x0004,0x0000,0x004d,0x9fb5,0x0000,0x00b5
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug3 Subtable 0x0
03c2 ; --------------------------------------------------------------------------------------
03c2 000a 0000 | | .DBG3TAB 0x000a,0x0000
03c4 000b ffff | | .CONST 0x000b,0xffff
03c6 000d fffe | | .CONST 0x000d,0xfffe
03c8 000f fffd | | .CONST 0x000f,0xfffd
03ca 0015 fffc | | .CONST 0x0015,0xfffc
03cc 0048 fffb | H | .CONST 0x0048,0xfffb
03ce 0065 fffa | e | .CONST 0x0065,0xfffa
03d0 00a6 fff9 | | .CONST 0x00a6,0xfff9
03d2 00d7 fff8 | | .CONST 0x00d7,0xfff8
03d4 0147 fff7 | G | .CONST 0x0147,0xfff7
03d6 0149 fff6 | I | .CONST 0x0149,0xfff6
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 0005 0000 | | .DBG3TAB 0x0005,0x0000
03da 014c ffff | L | .CONST 0x014c,0xffff
03dc 014e fffe | N | .CONST 0x014e,0xfffe
03de 0150 fffd | P | .CONST 0x0150,0xfffd
03e0 0152 fffc | R | .CONST 0x0152,0xfffc
03e2 0154 fffb | T | .CONST 0x0154,0xfffb
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0x2
03e4 ; --------------------------------------------------------------------------------------
03e4 0002 0009 | | .DBG3TAB 0x0002,0x0009
03e6 015b ffff | [ | .CONST 0x015b,0xffff
03e8 016e fffe | n | .CONST 0x016e,0xfffe
03ea 0173 0001 | s | .CONST 0x0173,0x0001
03ec 0177 0002 | w | .CONST 0x0177,0x0002
03ee 0180 0003 | | .CONST 0x0180,0x0003
03f0 0185 0004 | | .CONST 0x0185,0x0004
03f2 0189 0005 | | .CONST 0x0189,0x0005
03f4 018f 0006 | | .CONST 0x018f,0x0006
03f6 0195 0007 | | .CONST 0x0195,0x0007
03f8 0197 0008 | | .CONST 0x0197,0x0008
03fa 019a 0009 | | .CONST 0x019a,0x0009
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug3 Subtable 0x3
03fc ; --------------------------------------------------------------------------------------
03fc 0003 000b | | .DBG3TAB 0x0003,0x000b
03fe 01a3 ffff | | .CONST 0x01a3,0xffff
0400 01a8 fffe | | .CONST 0x01a8,0xfffe
0402 01ac fffd | | .CONST 0x01ac,0xfffd
0404 01b2 0002 | | .CONST 0x01b2,0x0002
0406 01b8 0003 | | .CONST 0x01b8,0x0003
0408 01be 0004 | | .CONST 0x01be,0x0004
040a 01c1 0005 | | .CONST 0x01c1,0x0005
040c 01c5 0006 | | .CONST 0x01c5,0x0006
040e 01c8 0007 | | .CONST 0x01c8,0x0007
0410 01cd 0008 | | .CONST 0x01cd,0x0008
0412 01d3 0009 | | .CONST 0x01d3,0x0009
0414 01d6 000a | | .CONST 0x01d6,0x000a
0416 01da 0001 | | .CONST 0x01da,0x0001
0418 01e0 000b | | .CONST 0x01e0,0x000b
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0x4
041a ; --------------------------------------------------------------------------------------
041a 0000 0017 | | .DBG3TAB 0x0000,0x0017
041c 01f3 0001 | | .CONST 0x01f3,0x0001
041e 01f5 0002 | | .CONST 0x01f5,0x0002
0420 01f9 0004 | | .CONST 0x01f9,0x0004
0422 01fd 0003 | | .CONST 0x01fd,0x0003
0424 0209 0005 | | .CONST 0x0209,0x0005
0426 020e 0006 | | .CONST 0x020e,0x0006
0428 020f 0007 | | .CONST 0x020f,0x0007
042a 0211 0008 | | .CONST 0x0211,0x0008
042c 0216 0009 | | .CONST 0x0216,0x0009
042e 021b 000b | | .CONST 0x021b,0x000b
0430 0220 000c | | .CONST 0x0220,0x000c
0432 0233 000d | 3 | .CONST 0x0233,0x000d
0434 0235 000e | 5 | .CONST 0x0235,0x000e
0436 0238 000f | 8 | .CONST 0x0238,0x000f
0438 0239 0010 | 9 | .CONST 0x0239,0x0010
043a 023c 0011 | < | .CONST 0x023c,0x0011
043c 0240 000a | @ | .CONST 0x0240,0x000a
043e 0247 0012 | G | .CONST 0x0247,0x0012
0440 024d 0013 | M | .CONST 0x024d,0x0013
0442 024f 0014 | O | .CONST 0x024f,0x0014
0444 0255 0016 | U | .CONST 0x0255,0x0016
0446 0259 0015 | Y | .CONST 0x0259,0x0015
0448 026b 0017 | k | .CONST 0x026b,0x0017
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0x5
044a ; --------------------------------------------------------------------------------------
044a 0002 0005 | | .DBG3TAB 0x0002,0x0005
044c 0273 ffff | s | .CONST 0x0273,0xffff
044e 0277 fffe | w | .CONST 0x0277,0xfffe
0450 027c 0001 | | | .CONST 0x027c,0x0001
0452 0281 0002 | | .CONST 0x0281,0x0002
0454 0283 0003 | | .CONST 0x0283,0x0003
0456 0289 0004 | | .CONST 0x0289,0x0004
0458 028f 0005 | | .CONST 0x028f,0x0005
045a ; --------------------------------------------------------------------------------------
045a ; Debug3 Subtable 0x6
045a ; --------------------------------------------------------------------------------------
045a 0002 0013 | | .DBG3TAB 0x0002,0x0013
045c 029b ffff | | .CONST 0x029b,0xffff
045e 029c fffe | | .CONST 0x029c,0xfffe
0460 029f 0001 | | .CONST 0x029f,0x0001
0462 02b3 0012 | | .CONST 0x02b3,0x0012
0464 02b5 0002 | | .CONST 0x02b5,0x0002
0466 02bc 0003 | | .CONST 0x02bc,0x0003
0468 02be 0004 | | .CONST 0x02be,0x0004
046a 02c5 0005 | | .CONST 0x02c5,0x0005
046c 02c7 0006 | | .CONST 0x02c7,0x0006
046e 02cf 0007 | | .CONST 0x02cf,0x0007
0470 02d7 0008 | | .CONST 0x02d7,0x0008
0472 02de 0009 | | .CONST 0x02de,0x0009
0474 02e0 000a | | .CONST 0x02e0,0x000a
0476 02e8 000b | | .CONST 0x02e8,0x000b
0478 02ef 000c | | .CONST 0x02ef,0x000c
047a 02f1 000d | | .CONST 0x02f1,0x000d
047c 02f9 000e | | .CONST 0x02f9,0x000e
047e 0301 000f | | .CONST 0x0301,0x000f
0480 0309 0010 | | .CONST 0x0309,0x0010
0482 0311 0011 | | .CONST 0x0311,0x0011
0484 0319 0013 | | .CONST 0x0319,0x0013
0486 ; --------------------------------------------------------------------------------------
0486 ; Debug3 Subtable 0x7
0486 ; --------------------------------------------------------------------------------------
0486 0002 0007 | | .DBG3TAB 0x0002,0x0007
0488 0323 ffff | # | .CONST 0x0323,0xffff
048a 032b fffe | + | .CONST 0x032b,0xfffe
048c 032e 0001 | . | .CONST 0x032e,0x0001
048e 0332 0002 | 2 | .CONST 0x0332,0x0002
0490 0338 0003 | 8 | .CONST 0x0338,0x0003
0492 033c 0004 | < | .CONST 0x033c,0x0004
0494 033f 0005 | ? | .CONST 0x033f,0x0005
0496 0345 0006 | E | .CONST 0x0345,0x0006
0498 034b 0007 | K | .CONST 0x034b,0x0007
049a 0000 0000 | | .BLANK 0000[0x166]