|
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_220063
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e8 | | .CONST 0x01e8 ; 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 0051 | Q | .CONST 0x0051 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
001f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0021 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0023 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0025 00c4 | | Action Make_Default
0026 e004 | | Load 0x0,0x4
0027 e005 | | Load 0x0,0x5
0028 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
002a 4802 |H | Short_Literal 0x2
002b 032e | . | Declare_Type Record,Defined,Visible
002c 00d8 | | Load_Top At_Offset_0
002d 0322 | " | Declare_Variable Record
002e e002 | | Load 0x0,0x2
002f 00d9 | | Load_Top At_Offset_1
0030 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0031 e003 | | Load 0x0,0x3
0032 00d9 | | Load_Top At_Offset_1
0033 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0034 0129 | ) | Execute Any,Make_Visible
0035 c21a | | Store 0x1,0x1a
0036 00bf | | Action Accept_Activation
0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0038 00c7 | | Action Elaborate_Subprogram
0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003a 00c7 | | Action Elaborate_Subprogram
003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003c 00c7 | | Action Elaborate_Subprogram
003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003e 00c7 | | Action Elaborate_Subprogram
003f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0040 00c7 | | Action Elaborate_Subprogram
0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0042 00c7 | | Action Elaborate_Subprogram
0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0044 00c7 | | Action Elaborate_Subprogram
0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0046 00c7 | | Action Elaborate_Subprogram
0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0048 00c7 | | Action Elaborate_Subprogram
0049 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004a 00c7 | | Action Elaborate_Subprogram
004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004c 00c7 | | Action Elaborate_Subprogram
004d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004e 00c7 | | Action Elaborate_Subprogram
004f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0050 00c7 | | Action Elaborate_Subprogram
0051 BODY_0008:
0051 00bc | | Action Signal_Activated
0052 00bb | | Action Signal_Completion
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c e5fd | | Load 0x2,-0x3
005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005e 00db | | Load_Top At_Offset_3
005f e5fd | | Load 0x2,-0x3
0060 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0061 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c 8211 | | Call 0x1,0x11
006d 00db | | Load_Top At_Offset_3
006e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
006f 8006 | | Call 0x0,0x6
0070 0279 | y | Execute Discrete,And
0071 6810 |h | Jump_Zero 0x82
0072 00e1 | | Load_Encached Boolean_Cache
0073 e5fe | | Load 0x2,-0x2
0074 e5ff | | Load 0x2,-0x1
0075 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0076 8007 | | Call 0x0,0x7
0077 00d8 | | Load_Top At_Offset_0
0078 00e4 | | Load_Encached Positive_Cache
0079 0260 | ` | Execute Discrete,In_Type
007a 7001 |p | Jump_Nonzero 0x7c
007b 0801 | | Execute_Immediate Raise,0x1
007c e5ff | | Load 0x2,-0x1
007d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
007e 8008 | | Call 0x0,0x8
007f 8009 | | Call 0x0,0x9
0080 c5fd | | Store 0x2,-0x3
0081 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0082 4800 |H | Short_Literal 0x0
0083 a5fd | | Store_Unchecked 0x2,-0x3
0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 8213 | | Call 0x1,0x13
008d 00db | | Load_Top At_Offset_3
008e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
008f 8006 | | Call 0x0,0x6
0090 0279 | y | Execute Discrete,And
0091 6811 |h | Jump_Zero 0xa3
0092 00e1 | | Load_Encached Boolean_Cache
0093 e5fd | | Load 0x2,-0x3
0094 e5fe | | Load 0x2,-0x2
0095 e5ff | | Load 0x2,-0x1
0096 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0097 8007 | | Call 0x0,0x7
0098 00d8 | | Load_Top At_Offset_0
0099 00e4 | | Load_Encached Positive_Cache
009a 0260 | ` | Execute Discrete,In_Type
009b 7001 |p | Jump_Nonzero 0x9d
009c 0801 | | Execute_Immediate Raise,0x1
009d e5ff | | Load 0x2,-0x1
009e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009f 8008 | | Call 0x0,0x8
00a0 800a | | Call 0x0,0xa
00a1 c5fc | | Store 0x2,-0x4
00a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00a3 4800 |H | Short_Literal 0x0
00a4 a5fc | | Store_Unchecked 0x2,-0x4
00a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 0092 01cd | | Action Push_String_Extended,0x1cd ; "Attribute :"
00ad e00b | | Load 0x0,0xb
00ae 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00af 00da | | Load_Top At_Offset_2
00b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00b1 800c | | Call 0x0,0xc
00b2 00da | | Load_Top At_Offset_2
00b3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00b4 800d | | Call 0x0,0xd
00b5 00da | | Load_Top At_Offset_2
00b6 8211 | | Call 0x1,0x11
00b7 6808 |h | Jump_Zero 0xc0
00b8 0092 01ce | | Action Push_String_Extended,0x1ce ; "Number : "
00ba 00db | | Load_Top At_Offset_3
00bb 8215 | | Call 0x1,0x15
00bc 01cc | | Execute Vector,Catenate
00bd e00b | | Load 0x0,0xb
00be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c0 00da | | Load_Top At_Offset_2
00c1 8212 | | Call 0x1,0x12
00c2 6808 |h | Jump_Zero 0xcb
00c3 0092 01cf | | Action Push_String_Extended,0x1cf ; "Sentence : "
00c5 00db | | Load_Top At_Offset_3
00c6 8215 | | Call 0x1,0x15
00c7 01cc | | Execute Vector,Catenate
00c8 e00b | | Load 0x0,0xb
00c9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cb 00da | | Load_Top At_Offset_2
00cc 8213 | | Call 0x1,0x13
00cd 6808 |h | Jump_Zero 0xd6
00ce 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "Enumerate : "
00d0 00db | | Load_Top At_Offset_3
00d1 8215 | | Call 0x1,0x15
00d2 01cc | | Execute Vector,Catenate
00d3 e00b | | Load 0x0,0xb
00d4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d6 4801 |H | Short_Literal 0x1
00d7 e00b | | Load 0x0,0xb
00d8 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00e5 8006 | | Call 0x0,0x6
00e6 680d |h | Jump_Zero 0xf4
00e7 00da | | Load_Top At_Offset_2
00e8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00e9 8007 | | Call 0x0,0x7
00ea 00d8 | | Load_Top At_Offset_0
00eb 00e4 | | Load_Encached Positive_Cache
00ec 0260 | ` | Execute Discrete,In_Type
00ed 7001 |p | Jump_Nonzero 0xef
00ee 0801 | | Execute_Immediate Raise,0x1
00ef 00db | | Load_Top At_Offset_3
00f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f1 8008 | | Call 0x0,0x8
00f2 800e | | Call 0x0,0xe
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 4800 |H | Short_Literal 0x0
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00fd 8006 | | Call 0x0,0x6
00fe 680d |h | Jump_Zero 0x10c
00ff 00da | | Load_Top At_Offset_2
0100 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0101 8007 | | Call 0x0,0x7
0102 00d8 | | Load_Top At_Offset_0
0103 00e4 | | Load_Encached Positive_Cache
0104 0260 | ` | Execute Discrete,In_Type
0105 7001 |p | Jump_Nonzero 0x107
0106 0801 | | Execute_Immediate Raise,0x1
0107 00db | | Load_Top At_Offset_3
0108 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0109 8008 | | Call 0x0,0x8
010a 800f | | Call 0x0,0xf
010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010c 4800 |H | Short_Literal 0x0
010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0115 8006 | | Call 0x0,0x6
0116 680d |h | Jump_Zero 0x124
0117 00da | | Load_Top At_Offset_2
0118 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0119 8007 | | Call 0x0,0x7
011a 00d8 | | Load_Top At_Offset_0
011b 00e4 | | Load_Encached Positive_Cache
011c 0260 | ` | Execute Discrete,In_Type
011d 7001 |p | Jump_Nonzero 0x11f
011e 0801 | | Execute_Immediate Raise,0x1
011f 00db | | Load_Top At_Offset_3
0120 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0121 8008 | | Call 0x0,0x8
0122 8010 | | Call 0x0,0x10
0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0124 4800 |H | Short_Literal 0x0
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012d 8006 | | Call 0x0,0x6
012e 680d |h | Jump_Zero 0x13c
012f 00da | | Load_Top At_Offset_2
0130 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0131 8007 | | Call 0x0,0x7
0132 00d8 | | Load_Top At_Offset_0
0133 00e4 | | Load_Encached Positive_Cache
0134 0260 | ` | Execute Discrete,In_Type
0135 7001 |p | Jump_Nonzero 0x137
0136 0801 | | Execute_Immediate Raise,0x1
0137 00db | | Load_Top At_Offset_3
0138 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0139 8008 | | Call 0x0,0x8
013a 8011 | | Call 0x0,0x11
013b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013c 4800 |H | Short_Literal 0x0
013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 8211 | | Call 0x1,0x11
0145 6805 |h | Jump_Zero 0x14b
0146 00da | | Load_Top At_Offset_2
0147 8216 | | Call 0x1,0x16
0148 00e0 | | Load_Encached Standard_Cache
0149 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014b 00da | | Load_Top At_Offset_2
014c 8212 | | Call 0x1,0x12
014d 6803 |h | Jump_Zero 0x151
014e 00da | | Load_Top At_Offset_2
014f 8217 | | Call 0x1,0x17
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 00da | | Load_Top At_Offset_2
0152 8213 | | Call 0x1,0x13
0153 6806 |h | Jump_Zero 0x15a
0154 00da | | Load_Top At_Offset_2
0155 8219 | | Call 0x1,0x19
0156 00db | | Load_Top At_Offset_3
0157 8218 | | Call 0x1,0x18
0158 8012 | | Call 0x0,0x12
0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015a 00ea | | Load_Encached Null_String_Cache
015b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0165 8006 | | Call 0x0,0x6
0166 680d |h | Jump_Zero 0x174
0167 00da | | Load_Top At_Offset_2
0168 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0169 8007 | | Call 0x0,0x7
016a 00d8 | | Load_Top At_Offset_0
016b 00e4 | | Load_Encached Positive_Cache
016c 0260 | ` | Execute Discrete,In_Type
016d 7001 |p | Jump_Nonzero 0x16f
016e 0801 | | Execute_Immediate Raise,0x1
016f 00db | | Load_Top At_Offset_3
0170 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0171 8008 | | Call 0x0,0x8
0172 8013 | | Call 0x0,0x13
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0174 4800 |H | Short_Literal 0x0
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017d 8006 | | Call 0x0,0x6
017e 680d |h | Jump_Zero 0x18c
017f 00da | | Load_Top At_Offset_2
0180 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0181 8007 | | Call 0x0,0x7
0182 00d8 | | Load_Top At_Offset_0
0183 00e4 | | Load_Encached Positive_Cache
0184 0260 | ` | Execute Discrete,In_Type
0185 7001 |p | Jump_Nonzero 0x187
0186 0801 | | Execute_Immediate Raise,0x1
0187 00db | | Load_Top At_Offset_3
0188 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0189 8008 | | Call 0x0,0x8
018a 8014 | | Call 0x0,0x14
018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018c 00ea | | Load_Encached Null_String_Cache
018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018e 0000 0000 | | .XXX[0x2]
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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0195 8006 | | Call 0x0,0x6
0196 680d |h | Jump_Zero 0x1a4
0197 00da | | Load_Top At_Offset_2
0198 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0199 8007 | | Call 0x0,0x7
019a 00d8 | | Load_Top At_Offset_0
019b 00e4 | | Load_Encached Positive_Cache
019c 0260 | ` | Execute Discrete,In_Type
019d 7001 |p | Jump_Nonzero 0x19f
019e 0801 | | Execute_Immediate Raise,0x1
019f 00db | | Load_Top At_Offset_3
01a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a1 8008 | | Call 0x0,0x8
01a2 8015 | | Call 0x0,0x15
01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a4 4800 |H | Short_Literal 0x0
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ad 8006 | | Call 0x0,0x6
01ae 680d |h | Jump_Zero 0x1bc
01af 00da | | Load_Top At_Offset_2
01b0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b1 8007 | | Call 0x0,0x7
01b2 00d8 | | Load_Top At_Offset_0
01b3 00e4 | | Load_Encached Positive_Cache
01b4 0260 | ` | Execute Discrete,In_Type
01b5 7001 |p | Jump_Nonzero 0x1b7
01b6 0801 | | Execute_Immediate Raise,0x1
01b7 00db | | Load_Top At_Offset_3
01b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b9 8008 | | Call 0x0,0x8
01ba 8016 | | Call 0x0,0x16
01bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bc 4800 |H | Short_Literal 0x0
01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4601 |F | Jump_Case 0x2
01c4 7801 |x | Jump 0x1c6 ; case 0x0
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01c6 e002 | | Load 0x0,0x2
01c7 00db | | Load_Top At_Offset_3
01c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c9 e003 | | Load 0x0,0x3
01ca 00db | | Load_Top At_Offset_3
01cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01cd ; --------------------------------------------------------------------------------------
01cd ; STRING TABLE
01cd ; --------------------------------------------------------------------------------------
01cd 000a | | .STRTAB 0x000a->0x01d2 ; "Attribute :"
01ce 0013 | | .STRTAB 0x0013->0x01d7 ; "Number : "
01cf 001a | | .STRTAB 0x001a->0x01dc ; "Sentence : "
01d0 0023 | # | .STRTAB 0x0023->0x01e1 ; "Enumerate : "
01d1 002d | - | .STREND 0x002d->0x01e7
01d2 4174 7472 |Attr| .STRTAB_STRINGS
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0008 | | .DEBUG4 0x0004,0x0008,0x9896,0x0000,0x0001,0x0010
01ee 000b 022e | .| .DBG4T 0x000b,0x022e,0x8000,0x8000
01f2 0037 0250 | 7 P| .DBG4T 0x0037,0x0250,0x8000,0x0000
01f6 005b 025f | [ _| .DBG4T 0x005b,0x025f,0x0001,0x0000
01fa 006b 0263 | k c| .DBG4T 0x006b,0x0263,0x0001,0x0000
01fe 008b 0268 | h| .DBG4T 0x008b,0x0268,0x0001,0x0000
0202 00ab 026d | m| .DBG4T 0x00ab,0x026d,0x0001,0x0000
0206 00e3 0279 | y| .DBG4T 0x00e3,0x0279,0x0002,0x0000
020a 00fb 027e | ~| .DBG4T 0x00fb,0x027e,0x0002,0x0000
020e 0113 0283 | | .DBG4T 0x0113,0x0283,0x0002,0x0000
0212 012b 0288 | + | .DBG4T 0x012b,0x0288,0x0002,0x0000
0216 0143 028d | C | .DBG4T 0x0143,0x028d,0x0002,0x0000
021a 0163 0296 | c | .DBG4T 0x0163,0x0296,0x0002,0x0000
021e 017b 029b | { | .DBG4T 0x017b,0x029b,0x0002,0x0000
0222 0193 02a0 | | .DBG4T 0x0193,0x02a0,0x0002,0x0000
0226 01ab 02a5 | | .DBG4T 0x01ab,0x02a5,0x0002,0x0000
022a 01c3 0000 | | .DBG4T 0x01c3,0x0000,0x0005,0x0000
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 0010 0000 | | .DBGLEN 0x0010,0x0000
0230 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0026,0x002c
0240 0002 0003 | | .XXX[0x10]
0242 0004 0005 | |
0244 0006 0007 | |
0246 0008 0009 | |
0248 000a 000b | |
024a 000c 000d | |
024c 000e 000f | |
024e 0010 0011 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug chain
0250 ; --------------------------------------------------------------------------------------
0250 000d 0000 | | .DBGLEN 0x000d,0x0000
0252 0037 0039 | 7 9| .DBGLNO 0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f
025f ; --------------------------------------------------------------------------------------
025f ; Debug chain
025f ; --------------------------------------------------------------------------------------
025f 0000 0002 | | .DBGLEN 0x0000,0x0002
0261 005b 005e | [ ^| .DBGLNO 0x005b,0x005e
0263 ; --------------------------------------------------------------------------------------
0263 ; Debug chain
0263 ; --------------------------------------------------------------------------------------
0263 0000 0003 | | .DBGLEN 0x0000,0x0003
0265 006b 0072 | k r| .DBGLNO 0x006b,0x0072,0x0082
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug chain
0268 ; --------------------------------------------------------------------------------------
0268 0000 0003 | | .DBGLEN 0x0000,0x0003
026a 008b 0092 | | .DBGLNO 0x008b,0x0092,0x00a3
026d ; --------------------------------------------------------------------------------------
026d ; Debug chain
026d ; --------------------------------------------------------------------------------------
026d 0000 000a | | .DBGLEN 0x0000,0x000a
026f 00ab 00af | | .DBGLNO 0x00ab,0x00af,0x00b2,0x00b5,0x00b8,0x00c0,0x00c3,0x00cb,0x00ce,0x00d6
0279 ; --------------------------------------------------------------------------------------
0279 ; Debug chain
0279 ; --------------------------------------------------------------------------------------
0279 0000 0003 | | .DBGLEN 0x0000,0x0003
027b 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00f4
027e ; --------------------------------------------------------------------------------------
027e ; Debug chain
027e ; --------------------------------------------------------------------------------------
027e 0000 0003 | | .DBGLEN 0x0000,0x0003
0280 00fb 00ff | | .DBGLNO 0x00fb,0x00ff,0x010c
0283 ; --------------------------------------------------------------------------------------
0283 ; Debug chain
0283 ; --------------------------------------------------------------------------------------
0283 0000 0003 | | .DBGLEN 0x0000,0x0003
0285 0113 0117 | | .DBGLNO 0x0113,0x0117,0x0124
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug chain
0288 ; --------------------------------------------------------------------------------------
0288 0000 0003 | | .DBGLEN 0x0000,0x0003
028a 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x013c
028d ; --------------------------------------------------------------------------------------
028d ; Debug chain
028d ; --------------------------------------------------------------------------------------
028d 0000 0007 | | .DBGLEN 0x0000,0x0007
028f 0143 0146 | C F| .DBGLNO 0x0143,0x0146,0x014b,0x014e,0x0151,0x0154,0x015a
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug chain
0296 ; --------------------------------------------------------------------------------------
0296 0000 0003 | | .DBGLEN 0x0000,0x0003
0298 0163 0167 | c g| .DBGLNO 0x0163,0x0167,0x0174
029b ; --------------------------------------------------------------------------------------
029b ; Debug chain
029b ; --------------------------------------------------------------------------------------
029b 0000 0003 | | .DBGLEN 0x0000,0x0003
029d 017b 017f | { | .DBGLNO 0x017b,0x017f,0x018c
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug chain
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 0003 | | .DBGLEN 0x0000,0x0003
02a2 0193 0197 | | .DBGLNO 0x0193,0x0197,0x01a4
02a5 ; --------------------------------------------------------------------------------------
02a5 ; Debug chain
02a5 ; --------------------------------------------------------------------------------------
02a5 0000 0003 | | .DBGLEN 0x0000,0x0003
02a7 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01bc
02aa 0000 0000 | | .BLANK 0000[0x156]