|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0348 | H | .CONST 0x0348 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0109 | | .CONST 0x0109 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0011 c20f | | Store 0x1,0xf
0012 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0014 c210 | | Store 0x1,0x10
0015 00bf | | Action Accept_Activation
0016 00e9 | | Load_Encached String_Cache
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 03ad | | Declare_Type Heap_Access,Defined
0019 4882 |H | Short_Literal 0x82
001a 48c8 |H | Short_Literal 0xc8
001b e211 | | Load 0x1,0x11
001c 02a0 | | Declare_Subprogram Null_Subprogram
001d 4801 |H | Short_Literal 0x1
001e 035d | ] | Declare_Type Array,Defined
001f 00d8 | | Load_Top At_Offset_0
0020 0337 | 7 | Declare_Variable Array
0021 00e8 | | Load_Encached Character_Cache
0022 0266 | f | Execute Discrete,Bounds
0023 00e2 | | Load_Encached Integer_Cache
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4801 |H | Short_Literal 0x1
0026 035d | ] | Declare_Type Array,Defined
0027 00d8 | | Load_Top At_Offset_0
0028 0337 | 7 | Declare_Variable Array
0029 4831 |H1 | Short_Literal 0x31
002a 4842 |HB | Short_Literal 0x42
002b e215 | | Load 0x1,0x15
002c 01d6 | | Execute Vector,Field_Write
002d 4831 |H1 | Short_Literal 0x31
002e 4862 |Hb | Short_Literal 0x62
002f e215 | | Load 0x1,0x15
0030 01d6 | | Execute Vector,Field_Write
0031 4ff9 |O | Short_Literal -0x7
0032 4844 |HD | Short_Literal 0x44
0033 e215 | | Load 0x1,0x15
0034 01d6 | | Execute Vector,Field_Write
0035 4ff9 |O | Short_Literal -0x7
0036 4864 |Hd | Short_Literal 0x64
0037 e215 | | Load 0x1,0x15
0038 01d6 | | Execute Vector,Field_Write
0039 4fec |O | Short_Literal -0x14
003a 4845 |HE | Short_Literal 0x45
003b e215 | | Load 0x1,0x15
003c 01d6 | | Execute Vector,Field_Write
003d 4fec |O | Short_Literal -0x14
003e 4865 |He | Short_Literal 0x65
003f e215 | | Load 0x1,0x15
0040 01d6 | | Execute Vector,Field_Write
0041 4812 |H | Short_Literal 0x12
0042 4846 |HF | Short_Literal 0x46
0043 e215 | | Load 0x1,0x15
0044 01d6 | | Execute Vector,Field_Write
0045 4812 |H | Short_Literal 0x12
0046 4866 |Hf | Short_Literal 0x66
0047 e215 | | Load 0x1,0x15
0048 01d6 | | Execute Vector,Field_Write
0049 4ffe |O | Short_Literal -0x2
004a 4847 |HG | Short_Literal 0x47
004b e215 | | Load 0x1,0x15
004c 01d6 | | Execute Vector,Field_Write
004d 4ffe |O | Short_Literal -0x2
004e 4867 |Hg | Short_Literal 0x67
004f e215 | | Load 0x1,0x15
0050 01d6 | | Execute Vector,Field_Write
0051 4fda |O | Short_Literal -0x26
0052 4848 |HH | Short_Literal 0x48
0053 e215 | | Load 0x1,0x15
0054 01d6 | | Execute Vector,Field_Write
0055 4fda |O | Short_Literal -0x26
0056 4868 |Hh | Short_Literal 0x68
0057 e215 | | Load 0x1,0x15
0058 01d6 | | Execute Vector,Field_Write
0059 4821 |H! | Short_Literal 0x21
005a 4849 |HI | Short_Literal 0x49
005b e215 | | Load 0x1,0x15
005c 01d6 | | Execute Vector,Field_Write
005d 4821 |H! | Short_Literal 0x21
005e 4869 |Hi | Short_Literal 0x69
005f e215 | | Load 0x1,0x15
0060 01d6 | | Execute Vector,Field_Write
0061 4ff7 |O | Short_Literal -0x9
0062 484b |HK | Short_Literal 0x4b
0063 e215 | | Load 0x1,0x15
0064 01d6 | | Execute Vector,Field_Write
0065 4ff7 |O | Short_Literal -0x9
0066 486b |Hk | Short_Literal 0x6b
0067 e215 | | Load 0x1,0x15
0068 01d6 | | Execute Vector,Field_Write
0069 4809 |H | Short_Literal 0x9
006a 484c |HL | Short_Literal 0x4c
006b e215 | | Load 0x1,0x15
006c 01d6 | | Execute Vector,Field_Write
006d 4809 |H | Short_Literal 0x9
006e 486c |Hl | Short_Literal 0x6c
006f e215 | | Load 0x1,0x15
0070 01d6 | | Execute Vector,Field_Write
0071 481d |H | Short_Literal 0x1d
0072 484d |HM | Short_Literal 0x4d
0073 e215 | | Load 0x1,0x15
0074 01d6 | | Execute Vector,Field_Write
0075 481d |H | Short_Literal 0x1d
0076 486d |Hm | Short_Literal 0x6d
0077 e215 | | Load 0x1,0x15
0078 01d6 | | Execute Vector,Field_Write
0079 4ff7 |O | Short_Literal -0x9
007a 484e |HN | Short_Literal 0x4e
007b e215 | | Load 0x1,0x15
007c 01d6 | | Execute Vector,Field_Write
007d 4ff7 |O | Short_Literal -0x9
007e 486e |Hn | Short_Literal 0x6e
007f e215 | | Load 0x1,0x15
0080 01d6 | | Execute Vector,Field_Write
0081 4806 |H | Short_Literal 0x6
0082 484f |HO | Short_Literal 0x4f
0083 e215 | | Load 0x1,0x15
0084 01d6 | | Execute Vector,Field_Write
0085 4806 |H | Short_Literal 0x6
0086 486f |Ho | Short_Literal 0x6f
0087 e215 | | Load 0x1,0x15
0088 01d6 | | Execute Vector,Field_Write
0089 481a |H | Short_Literal 0x1a
008a 4850 |HP | Short_Literal 0x50
008b e215 | | Load 0x1,0x15
008c 01d6 | | Execute Vector,Field_Write
008d 481a |H | Short_Literal 0x1a
008e 4870 |Hp | Short_Literal 0x70
008f e215 | | Load 0x1,0x15
0090 01d6 | | Execute Vector,Field_Write
0091 4808 |H | Short_Literal 0x8
0092 4852 |HR | Short_Literal 0x52
0093 e215 | | Load 0x1,0x15
0094 01d6 | | Execute Vector,Field_Write
0095 4808 |H | Short_Literal 0x8
0096 4872 |Hr | Short_Literal 0x72
0097 e215 | | Load 0x1,0x15
0098 01d6 | | Execute Vector,Field_Write
0099 4801 |H | Short_Literal 0x1
009a 4853 |HS | Short_Literal 0x53
009b e215 | | Load 0x1,0x15
009c 01d6 | | Execute Vector,Field_Write
009d 4801 |H | Short_Literal 0x1
009e 4873 |Hs | Short_Literal 0x73
009f e215 | | Load 0x1,0x15
00a0 01d6 | | Execute Vector,Field_Write
00a1 4801 |H | Short_Literal 0x1
00a2 4854 |HT | Short_Literal 0x54
00a3 e215 | | Load 0x1,0x15
00a4 01d6 | | Execute Vector,Field_Write
00a5 4801 |H | Short_Literal 0x1
00a6 4874 |Ht | Short_Literal 0x74
00a7 e215 | | Load 0x1,0x15
00a8 01d6 | | Execute Vector,Field_Write
00a9 4ff7 |O | Short_Literal -0x9
00aa 4855 |HU | Short_Literal 0x55
00ab e215 | | Load 0x1,0x15
00ac 01d6 | | Execute Vector,Field_Write
00ad 4ff7 |O | Short_Literal -0x9
00ae 4875 |Hu | Short_Literal 0x75
00af e215 | | Load 0x1,0x15
00b0 01d6 | | Execute Vector,Field_Write
00b1 4838 |H8 | Short_Literal 0x38
00b2 4857 |HW | Short_Literal 0x57
00b3 e215 | | Load 0x1,0x15
00b4 01d6 | | Execute Vector,Field_Write
00b5 4838 |H8 | Short_Literal 0x38
00b6 4877 |Hw | Short_Literal 0x77
00b7 e215 | | Load 0x1,0x15
00b8 01d6 | | Execute Vector,Field_Write
00b9 4fe4 |O | Short_Literal -0x1c
00ba 4858 |HX | Short_Literal 0x58
00bb e215 | | Load 0x1,0x15
00bc 01d6 | | Execute Vector,Field_Write
00bd 4fe4 |O | Short_Literal -0x1c
00be 4878 |Hx | Short_Literal 0x78
00bf e215 | | Load 0x1,0x15
00c0 01d6 | | Execute Vector,Field_Write
00c1 480b |H | Short_Literal 0xb
00c2 4859 |HY | Short_Literal 0x59
00c3 e215 | | Load 0x1,0x15
00c4 01d6 | | Execute Vector,Field_Write
00c5 480b |H | Short_Literal 0xb
00c6 4879 |Hy | Short_Literal 0x79
00c7 e215 | | Load 0x1,0x15
00c8 01d6 | | Execute Vector,Field_Write
00c9 4841 |HA | Short_Literal 0x41
00ca 4800 |H | Short_Literal 0x0
00cb 4800 |H | Short_Literal 0x0
00cc e217 | | Load 0x1,0x17
00cd e215 | | Load 0x1,0x15
00ce 01d6 | | Execute Vector,Field_Write
00cf 3ffb |? | Loop_Increasing 0xcb
00d0 4800 |H | Short_Literal 0x0
00d1 4843 |HC | Short_Literal 0x43
00d2 e215 | | Load 0x1,0x15
00d3 01d6 | | Execute Vector,Field_Write
00d4 4800 |H | Short_Literal 0x0
00d5 484a |HJ | Short_Literal 0x4a
00d6 e215 | | Load 0x1,0x15
00d7 01d6 | | Execute Vector,Field_Write
00d8 4800 |H | Short_Literal 0x0
00d9 4851 |HQ | Short_Literal 0x51
00da e215 | | Load 0x1,0x15
00db 01d6 | | Execute Vector,Field_Write
00dc 4800 |H | Short_Literal 0x0
00dd 4856 |HV | Short_Literal 0x56
00de e215 | | Load 0x1,0x15
00df 01d6 | | Execute Vector,Field_Write
00e0 4861 |Ha | Short_Literal 0x61
00e1 485a |HZ | Short_Literal 0x5a
00e2 4800 |H | Short_Literal 0x0
00e3 e217 | | Load 0x1,0x17
00e4 e215 | | Load 0x1,0x15
00e5 01d6 | | Execute Vector,Field_Write
00e6 3ffb |? | Loop_Increasing 0xe2
00e7 4800 |H | Short_Literal 0x0
00e8 4863 |Hc | Short_Literal 0x63
00e9 e215 | | Load 0x1,0x15
00ea 01d6 | | Execute Vector,Field_Write
00eb 4800 |H | Short_Literal 0x0
00ec 486a |Hj | Short_Literal 0x6a
00ed e215 | | Load 0x1,0x15
00ee 01d6 | | Execute Vector,Field_Write
00ef 4800 |H | Short_Literal 0x0
00f0 4871 |Hq | Short_Literal 0x71
00f1 e215 | | Load 0x1,0x15
00f2 01d6 | | Execute Vector,Field_Write
00f3 4800 |H | Short_Literal 0x0
00f4 4876 |Hv | Short_Literal 0x76
00f5 e215 | | Load 0x1,0x15
00f6 01d6 | | Execute Vector,Field_Write
00f7 487f |H | Short_Literal 0x7f
00f8 487a |Hz | Short_Literal 0x7a
00f9 4800 |H | Short_Literal 0x0
00fa e217 | | Load 0x1,0x17
00fb e215 | | Load 0x1,0x15
00fc 01d6 | | Execute Vector,Field_Write
00fd 3ffb |? | Loop_Increasing 0xf9
00fe e214 | | Load 0x1,0x14
00ff 01c3 | | Execute Vector,Check_In_Type
0100 0007 | | Action Break_Optional
0101 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
0103 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0105 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0106 00c7 | | Action Elaborate_Subprogram
0107 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0108 00c7 | | Action Elaborate_Subprogram
0109 BODY_0008:
0109 0092 026a | j| Action Push_String_Extended,0x26a ; "ABORT"
010b 8217 | | Call 0x1,0x17
010c 0092 026b | k| Action Push_String_Extended,0x26b ; "ABS"
010e 8217 | | Call 0x1,0x17
010f 0092 026c | l| Action Push_String_Extended,0x26c ; "ACCEPT"
0111 8217 | | Call 0x1,0x17
0112 0092 026d | m| Action Push_String_Extended,0x26d ; "ACCESS"
0114 8217 | | Call 0x1,0x17
0115 0092 026e | n| Action Push_String_Extended,0x26e ; "ALL"
0117 8217 | | Call 0x1,0x17
0118 0092 026f | o| Action Push_String_Extended,0x26f ; "AND"
011a 8217 | | Call 0x1,0x17
011b 0092 0270 | p| Action Push_String_Extended,0x270 ; "ARRAY"
011d 8217 | | Call 0x1,0x17
011e 0092 0271 | q| Action Push_String_Extended,0x271 ; "AT"
0120 8217 | | Call 0x1,0x17
0121 0092 0272 | r| Action Push_String_Extended,0x272 ; "BEGIN"
0123 8217 | | Call 0x1,0x17
0124 0092 0273 | s| Action Push_String_Extended,0x273 ; "BODY"
0126 8217 | | Call 0x1,0x17
0127 0092 0274 | t| Action Push_String_Extended,0x274 ; "CASE"
0129 8217 | | Call 0x1,0x17
012a 0092 0275 | u| Action Push_String_Extended,0x275 ; "CONSTANT"
012c 8217 | | Call 0x1,0x17
012d 0092 0276 | v| Action Push_String_Extended,0x276 ; "DECLARE"
012f 8217 | | Call 0x1,0x17
0130 0092 0277 | w| Action Push_String_Extended,0x277 ; "DELAY"
0132 8217 | | Call 0x1,0x17
0133 0092 0278 | x| Action Push_String_Extended,0x278 ; "DELTA"
0135 8217 | | Call 0x1,0x17
0136 0092 0279 | y| Action Push_String_Extended,0x279 ; "DIGITS"
0138 8217 | | Call 0x1,0x17
0139 0092 027a | z| Action Push_String_Extended,0x27a ; "DO"
013b 8217 | | Call 0x1,0x17
013c 0092 027b | {| Action Push_String_Extended,0x27b ; "ELSE"
013e 8217 | | Call 0x1,0x17
013f 0092 027c | || Action Push_String_Extended,0x27c ; "ELSIF"
0141 8217 | | Call 0x1,0x17
0142 0092 027d | }| Action Push_String_Extended,0x27d ; "END"
0144 8217 | | Call 0x1,0x17
0145 0092 027e | ~| Action Push_String_Extended,0x27e ; "ENTRY"
0147 8217 | | Call 0x1,0x17
0148 0092 027f | | Action Push_String_Extended,0x27f ; "EXCEPTION"
014a 8217 | | Call 0x1,0x17
014b 0092 0280 | | Action Push_String_Extended,0x280 ; "EXIT"
014d 8217 | | Call 0x1,0x17
014e 0092 0281 | | Action Push_String_Extended,0x281 ; "FOR"
0150 8217 | | Call 0x1,0x17
0151 0092 0282 | | Action Push_String_Extended,0x282 ; "FUNCTION"
0153 8217 | | Call 0x1,0x17
0154 0092 0283 | | Action Push_String_Extended,0x283 ; "GENERIC"
0156 8217 | | Call 0x1,0x17
0157 0092 0284 | | Action Push_String_Extended,0x284 ; "GOTO"
0159 8217 | | Call 0x1,0x17
015a 0092 0285 | | Action Push_String_Extended,0x285 ; "IF"
015c 8217 | | Call 0x1,0x17
015d 0092 0286 | | Action Push_String_Extended,0x286 ; "IN"
015f 8217 | | Call 0x1,0x17
0160 0092 0287 | | Action Push_String_Extended,0x287 ; "IS"
0162 8217 | | Call 0x1,0x17
0163 0092 0288 | | Action Push_String_Extended,0x288 ; "LIMITED"
0165 8217 | | Call 0x1,0x17
0166 0092 0289 | | Action Push_String_Extended,0x289 ; "LOOP"
0168 8217 | | Call 0x1,0x17
0169 0092 028a | | Action Push_String_Extended,0x28a ; "MOD"
016b 8217 | | Call 0x1,0x17
016c 0092 028b | | Action Push_String_Extended,0x28b ; "NEW"
016e 8217 | | Call 0x1,0x17
016f 0092 028c | | Action Push_String_Extended,0x28c ; "NOT"
0171 8217 | | Call 0x1,0x17
0172 0092 028d | | Action Push_String_Extended,0x28d ; "NULL"
0174 8217 | | Call 0x1,0x17
0175 0092 028e | | Action Push_String_Extended,0x28e ; "OF"
0177 8217 | | Call 0x1,0x17
0178 0092 028f | | Action Push_String_Extended,0x28f ; "OR"
017a 8217 | | Call 0x1,0x17
017b 0092 0290 | | Action Push_String_Extended,0x290 ; "OTHERS"
017d 8217 | | Call 0x1,0x17
017e 0092 0291 | | Action Push_String_Extended,0x291 ; "OUT"
0180 8217 | | Call 0x1,0x17
0181 0092 0292 | | Action Push_String_Extended,0x292 ; "PACKAGE"
0183 8217 | | Call 0x1,0x17
0184 0092 0293 | | Action Push_String_Extended,0x293 ; "PRAGMA"
0186 8217 | | Call 0x1,0x17
0187 0092 0294 | | Action Push_String_Extended,0x294 ; "PRIVATE"
0189 8217 | | Call 0x1,0x17
018a 0092 0295 | | Action Push_String_Extended,0x295 ; "PROCEDURE"
018c 8217 | | Call 0x1,0x17
018d 0092 0296 | | Action Push_String_Extended,0x296 ; "RAISE"
018f 8217 | | Call 0x1,0x17
0190 0092 0297 | | Action Push_String_Extended,0x297 ; "RANGE"
0192 8217 | | Call 0x1,0x17
0193 0092 0298 | | Action Push_String_Extended,0x298 ; "RECORD"
0195 8217 | | Call 0x1,0x17
0196 0092 0299 | | Action Push_String_Extended,0x299 ; "REM"
0198 8217 | | Call 0x1,0x17
0199 0092 029a | | Action Push_String_Extended,0x29a ; "RENAMES"
019b 8217 | | Call 0x1,0x17
019c 0092 029b | | Action Push_String_Extended,0x29b ; "RETURN"
019e 8217 | | Call 0x1,0x17
019f 0092 029c | | Action Push_String_Extended,0x29c ; "REVERSE"
01a1 8217 | | Call 0x1,0x17
01a2 0092 029d | | Action Push_String_Extended,0x29d ; "SELECT"
01a4 8217 | | Call 0x1,0x17
01a5 0092 029e | | Action Push_String_Extended,0x29e ; "SEPARATE"
01a7 8217 | | Call 0x1,0x17
01a8 0092 029f | | Action Push_String_Extended,0x29f ; "SUBTYPE"
01aa 8217 | | Call 0x1,0x17
01ab 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "TASK"
01ad 8217 | | Call 0x1,0x17
01ae 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "TERMINATE"
01b0 8217 | | Call 0x1,0x17
01b1 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "THEN"
01b3 8217 | | Call 0x1,0x17
01b4 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "TYPE"
01b6 8217 | | Call 0x1,0x17
01b7 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "USE"
01b9 8217 | | Call 0x1,0x17
01ba 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "WHEN"
01bc 8217 | | Call 0x1,0x17
01bd 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "WHILE"
01bf 8217 | | Call 0x1,0x17
01c0 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "WITH"
01c2 8217 | | Call 0x1,0x17
01c3 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "XOR"
01c5 8217 | | Call 0x1,0x17
01c6 00bc | | Action Signal_Activated
01c7 00bb | | Action Signal_Completion
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1 | | .CONST 0x01d1 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb e5ff | | Load 0x2,-0x1
01cc 01db | | Execute Vector,Length
01cd 00e3 | | Load_Encached Natural_Cache
01ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01cf 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
01d1 BODY_01c8:
01d1 e402 | | Load 0x2,0x2
01d2 4802 |H | Short_Literal 0x2
01d3 4809 |H | Short_Literal 0x9
01d4 0262 | b | Execute Discrete,In_Range
01d5 6801 |h | Jump_Zero 0x1d7
01d6 8403 | | Call 0x2,0x3
01d7 4800 |H | Short_Literal 0x0
01d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e6 | | .CONST 0x01e6 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e5ff | | Load 0x2,-0x1
01e4 e001 | | Load 0x0,0x1
01e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e6 BODY_01e0:
01e6 00d8 | | Load_Top At_Offset_0
01e7 0092 0278 | x| Action Push_String_Extended,0x278 ; "DELTA"
01e9 01df | | Execute Vector,Equal
01ea e402 | | Load 0x2,0x2
01eb 0092 0279 | y| Action Push_String_Extended,0x279 ; "DIGITS"
01ed 01df | | Execute Vector,Equal
01ee 0278 | x | Execute Discrete,Or
01ef e402 | | Load 0x2,0x2
01f0 0092 0297 | | Action Push_String_Extended,0x297 ; "RANGE"
01f2 01df | | Execute Vector,Equal
01f3 0278 | x | Execute Discrete,Or
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01ff | | .CONST 0x01ff ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e5ff | | Load 0x2,-0x1
01fc 01dc | | Execute Vector,Last
01fd 00e3 | | Load_Encached Natural_Cache
01fe 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01ff BODY_01f8:
01ff e5ff | | Load 0x2,-0x1
0200 01dd | | Execute Vector,First
0201 e5ff | | Load 0x2,-0x1
0202 01d7 | | Execute Vector,Field_Read
0203 e215 | | Load 0x1,0x15
0204 01d7 | | Execute Vector,Field_Read
0205 e402 | | Load 0x2,0x2
0206 e5ff | | Load 0x2,-0x1
0207 01d7 | | Execute Vector,Field_Read
0208 e215 | | Load 0x1,0x15
0209 01d7 | | Execute Vector,Field_Read
020a 0273 | s | Execute Discrete,Plus
020b e5ff | | Load 0x2,-0x1
020c 01db | | Execute Vector,Length
020d 0273 | s | Execute Discrete,Plus
020e e402 | | Load 0x2,0x2
020f 0aff | | Execute_Immediate Plus,-0x1
0210 e5ff | | Load 0x2,-0x1
0211 01d7 | | Execute Vector,Field_Read
0212 e001 | | Load 0x0,0x1
0213 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0214 0901 | | Execute_Immediate Binary_Scale,0x1
0215 0273 | s | Execute Discrete,Plus
0216 00d8 | | Load_Top At_Offset_0
0217 00e2 | | Load_Encached Integer_Cache
0218 0260 | ` | Execute Discrete,In_Type
0219 7001 |p | Jump_Nonzero 0x21b
021a 0801 | | Execute_Immediate Raise,0x1
021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e5ff | | Load 0x2,-0x1
0224 e211 | | Load 0x1,0x11
0225 e002 | | Load 0x0,0x2
0226 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0227 e003 | | Load 0x0,0x3
0228 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0229 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
022a e5ff | | Load 0x2,-0x1
022b 8216 | | Call 0x1,0x16
022c e213 | | Load 0x1,0x13
022d 01d6 | | Execute Vector,Field_Write
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0252 | R | .CONST 0x0252 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 4801 |H | Short_Literal 0x1
0234 e402 | | Load 0x2,0x2
0235 00e9 | | Load_Encached String_Cache
0236 035b | [ | Declare_Type Array,Constrained
0237 0337 | 7 | Declare_Variable Array
0238 e5ff | | Load 0x2,-0x1
0239 e602 | | Load 0x3,0x2
023a 01d4 | | Execute Vector,Structure_Write
023b 4801 |H | Short_Literal 0x1
023c e602 | | Load 0x3,0x2
023d 01d7 | | Execute Vector,Field_Read
023e e215 | | Load 0x1,0x15
023f 01d7 | | Execute Vector,Field_Read
0240 e402 | | Load 0x2,0x2
0241 e602 | | Load 0x3,0x2
0242 01d7 | | Execute Vector,Field_Read
0243 e215 | | Load 0x1,0x15
0244 01d7 | | Execute Vector,Field_Read
0245 0273 | s | Execute Discrete,Plus
0246 e402 | | Load 0x2,0x2
0247 0273 | s | Execute Discrete,Plus
0248 e402 | | Load 0x2,0x2
0249 0aff | | Execute_Immediate Plus,-0x1
024a e602 | | Load 0x3,0x2
024b 01d7 | | Execute Vector,Field_Read
024c e001 | | Load 0x0,0x1
024d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024e 0901 | | Execute_Immediate Binary_Scale,0x1
024f 0273 | s | Execute Discrete,Plus
0250 00e2 | | Load_Encached Integer_Cache
0251 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0252 BODY_0230:
0252 00d8 | | Load_Top At_Offset_0
0253 4882 |H | Short_Literal 0x82
0254 48c8 |H | Short_Literal 0xc8
0255 0262 | b | Execute Discrete,In_Range
0256 6812 |h | Jump_Zero 0x269
0257 00d8 | | Load_Top At_Offset_0
0258 e213 | | Load 0x1,0x13
0259 01d7 | | Execute Vector,Field_Read
025a 680e |h | Jump_Zero 0x269
025b e602 | | Load 0x3,0x2
025c e001 | | Load 0x0,0x1
025d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
025e 00d1 | | Pop_Control Pop_Count_1
025f e602 | | Load 0x3,0x2
0260 e603 | | Load 0x3,0x3
0261 e213 | | Load 0x1,0x13
0262 01d7 | | Execute Vector,Field_Read
0263 0217 | | Execute Heap_Access,All_Reference
0264 01df | | Execute Vector,Equal
0265 00e1 | | Load_Encached Boolean_Cache
0266 025e | ^ | Execute Discrete,Convert
0267 00cb | | Action Pop_Block_With_Result
0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0269 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026a ; --------------------------------------------------------------------------------------
026a ; STRING TABLE
026a ; --------------------------------------------------------------------------------------
026a 0080 | | .STRTAB 0x0080->0x02aa ; "ABORT"
026b 0083 | | .STRTAB 0x0083->0x02ac ; "ABS"
026c 0084 | | .STRTAB 0x0084->0x02ae ; "ACCEPT"
026d 0088 | | .STRTAB 0x0088->0x02b1 ; "ACCESS"
026e 008c | | .STRTAB 0x008c->0x02b4 ; "ALL"
026f 008d | | .STRTAB 0x008d->0x02b5 ; "AND"
0270 008e | | .STRTAB 0x008e->0x02b7 ; "ARRAY"
0271 0091 | | .STRTAB 0x0091->0x02b9 ; "AT"
0272 0091 | | .STRTAB 0x0091->0x02ba ; "BEGIN"
0273 0094 | | .STRTAB 0x0094->0x02bd ; "BODY"
0274 0096 | | .STRTAB 0x0096->0x02bf ; "CASE"
0275 0098 | | .STRTAB 0x0098->0x02c1 ; "CONSTANT"
0276 009e | | .STRTAB 0x009e->0x02c5 ; "DECLARE"
0277 00a3 | | .STRTAB 0x00a3->0x02c8 ; "DELAY"
0278 00a6 | | .STRTAB 0x00a6->0x02cb ; "DELTA"
0279 00a9 | | .STRTAB 0x00a9->0x02cd ; "DIGITS"
027a 00ad | | .STRTAB 0x00ad->0x02d0 ; "DO"
027b 00ad | | .STRTAB 0x00ad->0x02d1 ; "ELSE"
027c 00af | | .STRTAB 0x00af->0x02d3 ; "ELSIF"
027d 00b2 | | .STRTAB 0x00b2->0x02d6 ; "END"
027e 00b3 | | .STRTAB 0x00b3->0x02d7 ; "ENTRY"
027f 00b6 | | .STRTAB 0x00b6->0x02da ; "EXCEPTION"
0280 00bd | | .STRTAB 0x00bd->0x02de ; "EXIT"
0281 00bf | | .STRTAB 0x00bf->0x02e0 ; "FOR"
0282 00c0 | | .STRTAB 0x00c0->0x02e2 ; "FUNCTION"
0283 00c6 | | .STRTAB 0x00c6->0x02e6 ; "GENERIC"
0284 00cb | | .STRTAB 0x00cb->0x02e9 ; "GOTO"
0285 00cd | | .STRTAB 0x00cd->0x02eb ; "IF"
0286 00cd | | .STRTAB 0x00cd->0x02ec ; "IN"
0287 00cd | | .STRTAB 0x00cd->0x02ed ; "IS"
0288 00cd | | .STRTAB 0x00cd->0x02ee ; "LIMITED"
0289 00d2 | | .STRTAB 0x00d2->0x02f2 ; "LOOP"
028a 00d4 | | .STRTAB 0x00d4->0x02f4 ; "MOD"
028b 00d5 | | .STRTAB 0x00d5->0x02f5 ; "NEW"
028c 00d6 | | .STRTAB 0x00d6->0x02f7 ; "NOT"
028d 00d7 | | .STRTAB 0x00d7->0x02f8 ; "NULL"
028e 00d9 | | .STRTAB 0x00d9->0x02fa ; "OF"
028f 00d9 | | .STRTAB 0x00d9->0x02fb ; "OR"
0290 00d9 | | .STRTAB 0x00d9->0x02fc ; "OTHERS"
0291 00dd | | .STRTAB 0x00dd->0x02ff ; "OUT"
0292 00de | | .STRTAB 0x00de->0x0301 ; "PACKAGE"
0293 00e3 | | .STRTAB 0x00e3->0x0304 ; "PRAGMA"
0294 00e7 | | .STRTAB 0x00e7->0x0307 ; "PRIVATE"
0295 00ec | | .STRTAB 0x00ec->0x030b ; "PROCEDURE"
0296 00f3 | | .STRTAB 0x00f3->0x030f ; "RAISE"
0297 00f6 | | .STRTAB 0x00f6->0x0312 ; "RANGE"
0298 00f9 | | .STRTAB 0x00f9->0x0314 ; "RECORD"
0299 00fd | | .STRTAB 0x00fd->0x0317 ; "REM"
029a 00fe | | .STRTAB 0x00fe->0x0319 ; "RENAMES"
029b 0103 | | .STRTAB 0x0103->0x031c ; "RETURN"
029c 0107 | | .STRTAB 0x0107->0x031f ; "REVERSE"
029d 010c | | .STRTAB 0x010c->0x0323 ; "SELECT"
029e 0110 | | .STRTAB 0x0110->0x0326 ; "SEPARATE"
029f 0116 | | .STRTAB 0x0116->0x032a ; "SUBTYPE"
02a0 011b | | .STRTAB 0x011b->0x032d ; "TASK"
02a1 011d | | .STRTAB 0x011d->0x032f ; "TERMINATE"
02a2 0124 | $ | .STRTAB 0x0124->0x0334 ; "THEN"
02a3 0126 | & | .STRTAB 0x0126->0x0336 ; "TYPE"
02a4 0128 | ( | .STRTAB 0x0128->0x0338 ; "USE"
02a5 0129 | ) | .STRTAB 0x0129->0x0339 ; "WHEN"
02a6 012b | + | .STRTAB 0x012b->0x033b ; "WHILE"
02a7 012e | . | .STRTAB 0x012e->0x033e ; "WITH"
02a8 0130 | 0 | .STRTAB 0x0130->0x0340 ; "XOR"
02a9 0131 | 1 | .STREND 0x0131->0x0341
02aa 4142 4f52 |ABOR| .STRTAB_STRINGS
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 000f | | .DEBUG4 0x0004,0x000f,0x4303,0x0000,0x0001,0x0000
034e 0000 0000 | | .BLANK 0000[0xb2]