|
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_0340e4
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0037 | 7 | .CONST 0x0037 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 4800 |H | Short_Literal 0x0
0012 4801 |H | Short_Literal 0x1
0013 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0018 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001a 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001c 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001e 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0020 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0022 00bf | | Action Accept_Activation
0023 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0024 00c7 | | Action Elaborate_Subprogram
0025 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0026 00c7 | | Action Elaborate_Subprogram
0027 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0028 00c7 | | Action Elaborate_Subprogram
0029 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002c 00c7 | | Action Elaborate_Subprogram
002d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002e 00c7 | | Action Elaborate_Subprogram
002f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0030 00c7 | | Action Elaborate_Subprogram
0031 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
0033 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0034 00c7 | | Action Elaborate_Subprogram
0035 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0036 00c7 | | Action Elaborate_Subprogram
0037 BODY_0008:
0037 00bc | | Action Signal_Activated
0038 00bb | | Action Signal_Completion
0039 0000 0000 | | .BLANK 0000[0x7]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 004a | J | .CONST 0x004a ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0002 | | .CONST 0x0002 ; Number of locals
0043 INIT_0040:
0043 e001 | | Load 0x0,0x1
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 02c7 | | Declare_Variable Any
0046 00db | | Load_Top At_Offset_3
0047 e002 | | Load 0x0,0x2
0048 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0049 a402 | | Store_Unchecked 0x2,0x2
004a BODY_0040:
004a 00d8 | | Load_Top At_Offset_0
004b e003 | | Load 0x0,0x3
004c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
004d 460c |F | Jump_Case 0xd
004e 780c |x | Jump 0x5b ; case 0x0
004f 780b |x | Jump 0x5b ; case 0x1
0050 780a |x | Jump 0x5b ; case 0x2
0051 7809 |x | Jump 0x5b ; case 0x3
0052 7808 |x | Jump 0x5b ; case 0x4
0053 7809 |x | Jump 0x5d ; case 0x5
0054 780c |x | Jump 0x61 ; case 0x6
0055 7805 |x | Jump 0x5b ; case 0x7
0056 7804 |x | Jump 0x5b ; case 0x8
0057 7803 |x | Jump 0x5b ; case 0x9
0058 7802 |x | Jump 0x5b ; case 0xa
0059 7801 |x | Jump 0x5b ; case 0xb
005a 7800 |x | Jump 0x5b ; case 0xc
005b 4801 |H | Short_Literal 0x1
005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005d 00d8 | | Load_Top At_Offset_0
005e e003 | | Load 0x0,0x3
005f 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 00d8 | | Load_Top At_Offset_0
0062 e003 | | Load 0x0,0x3
0063 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0064 0f00 | | Execute_Immediate Equal,0x0
0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0074 | t | .CONST 0x0074 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b e001 | | Load 0x0,0x1
006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006d 02c7 | | Declare_Variable Any
006e 00db | | Load_Top At_Offset_3
006f e002 | | Load 0x0,0x2
0070 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0071 e003 | | Load 0x0,0x3
0072 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0073 a402 | | Store_Unchecked 0x2,0x2
0074 BODY_0068:
0074 00d8 | | Load_Top At_Offset_0
0075 e003 | | Load 0x0,0x3
0076 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c 820e | | Call 0x1,0xe
007d 6816 |h | Jump_Zero 0x94
007e 00da | | Load_Top At_Offset_2
007f e002 | | Load 0x0,0x2
0080 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0081 e003 | | Load 0x0,0x3
0082 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0083 0f04 | | Execute_Immediate Equal,0x4
0084 7002 |p | Jump_Nonzero 0x87
0085 4800 |H | Short_Literal 0x0
0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0087 4801 |H | Short_Literal 0x1
0088 00db | | Load_Top At_Offset_3
0089 e002 | | Load 0x0,0x2
008a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
008b 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "Duration"
008d e004 | | Load 0x0,0x4
008e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
008f 6802 |h | Jump_Zero 0x92
0090 4801 |H | Short_Literal 0x1
0091 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0092 4800 |H | Short_Literal 0x0
0093 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0094 4800 |H | Short_Literal 0x0
0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4607 |F | Jump_Case 0x8
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
009d 7806 |x | Jump 0xa4 ; case 0x1
009e 7809 |x | Jump 0xa8 ; case 0x2
009f 780d |x | Jump 0xad ; case 0x3
00a0 7810 |x | Jump 0xb1 ; case 0x4
00a1 7811 |x | Jump 0xb3 ; case 0x5
00a2 7812 |x | Jump 0xb5 ; case 0x6
00a3 7815 |x | Jump 0xb9 ; case 0x7
00a4 00da | | Load_Top At_Offset_2
00a5 0091 01e4 | | Action Push_String_Extended_Indexed,0x1e4 ; "PUT"
00a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a8 00db | | Load_Top At_Offset_3
00a9 00db | | Load_Top At_Offset_3
00aa 00e0 | | Load_Encached Standard_Cache
00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ad 00da | | Load_Top At_Offset_2
00ae 00e0 | | Load_Encached Standard_Cache
00af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db | | Load_Top At_Offset_3
00b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b3 00db | | Load_Top At_Offset_3
00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b5 e210 | | Load 0x1,0x10
00b6 00dc | | Load_Top At_Offset_4
00b7 0267 | g | Execute Discrete,Predecessor
00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b9 e210 | | Load 0x1,0x10
00ba 00dc | | Load_Top At_Offset_4
00bb 0268 | h | Execute Discrete,Successor
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "return_"
00c5 00db | | Load_Top At_Offset_3
00c6 e005 | | Load 0x0,0x5
00c7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c8 01cc | | Execute Vector,Catenate
00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 e005 | | Load 0x0,0x5
00d5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc e005 | | Load 0x0,0x5
00dd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00de e005 | | Load 0x0,0x5
00df 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec e005 | | Load 0x0,0x5
00ed 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00ee 4604 |F | Jump_Case 0x5
00ef 7806 |x | Jump 0xf6 ; case 0x0
00f0 7807 |x | Jump 0xf8 ; case 0x1
00f1 7809 |x | Jump 0xfb ; case 0x2
00f2 780b |x | Jump 0xfe ; case 0x3
00f3 7800 |x | Jump 0xf4 ; case 0x4
00f4 00ea | | Load_Encached Null_String_Cache
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 00ea | | Load_Encached Null_String_Cache
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f8 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "in "
00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fb 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "out "
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0092 01ea | | Action Push_String_Extended,0x1ea ; "in out "
0100 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0114 | | .CONST 0x0114 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e001 | | Load 0x0,0x1
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d 02c7 | | Declare_Variable Any
010e 00db | | Load_Top At_Offset_3
010f e002 | | Load 0x0,0x2
0110 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0111 e003 | | Load 0x0,0x3
0112 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0113 a402 | | Store_Unchecked 0x2,0x2
0114 BODY_0108:
0114 00db | | Load_Top At_Offset_3
0115 820e | | Call 0x1,0xe
0116 6821 |h! | Jump_Zero 0x138
0117 00d8 | | Load_Top At_Offset_0
0118 e003 | | Load 0x0,0x3
0119 1819 | | Execute Package,Field_Execute,Field_Number 0x19
011a 460c |F | Jump_Case 0xd
011b 780c |x | Jump 0x128 ; case 0x0
011c 780b |x | Jump 0x128 ; case 0x1
011d 780c |x | Jump 0x12a ; case 0x2
011e 780e |x | Jump 0x12d ; case 0x3
011f 7810 |x | Jump 0x130 ; case 0x4
0120 7807 |x | Jump 0x128 ; case 0x5
0121 7806 |x | Jump 0x128 ; case 0x6
0122 7805 |x | Jump 0x128 ; case 0x7
0123 7804 |x | Jump 0x128 ; case 0x8
0124 7803 |x | Jump 0x128 ; case 0x9
0125 7802 |x | Jump 0x128 ; case 0xa
0126 7801 |x | Jump 0x128 ; case 0xb
0127 7800 |x | Jump 0x128 ; case 0xc
0128 00ea | | Load_Encached Null_String_Cache
0129 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012a 0092 01eb | | Action Push_String_Extended,0x1eb ; "Interchange.Integer"
012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012d 0092 01ec | | Action Push_String_Extended,0x1ec ; "Interchange.Float"
012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 820f | | Call 0x1,0xf
0132 6803 |h | Jump_Zero 0x136
0133 0092 01ed | | Action Push_String_Extended,0x1ed ; "Interchange.Convert"
0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0136 00ea | | Load_Encached Null_String_Cache
0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0138 00ea | | Load_Encached Null_String_Cache
0139 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014f | O | .CONST 0x014f ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0005 | | .CONST 0x0005 ; Number of locals
0143 INIT_0140:
0143 e006 | | Load 0x0,0x6
0144 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0145 e5fb | | Load 0x2,-0x5
0146 820e | | Call 0x1,0xe
0147 00e1 | | Load_Encached Boolean_Cache
0148 03f1 | | Declare_Variable Discrete,With_Value
0149 e5fb | | Load 0x2,-0x5
014a 820d | | Call 0x1,0xd
014b 00e1 | | Load_Encached Boolean_Cache
014c 03f1 | | Declare_Variable Discrete,With_Value
014d 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
014f BODY_0140:
014f 00da | | Load_Top At_Offset_2
0150 6807 |h | Jump_Zero 0x158
0151 00db | | Load_Top At_Offset_3
0152 0092 01ee | | Action Push_String_Extended,0x1ee ; "Transport_Interchange"
0154 e006 | | Load 0x0,0x6
0155 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0156 c402 | | Store 0x2,0x2
0157 7807 |x | Jump 0x15f
0158 00db | | Load_Top At_Offset_3
0159 e5fc | | Load 0x2,-0x4
015a e007 | | Load 0x0,0x7
015b 180f | | Execute Package,Field_Execute,Field_Number 0xf
015c e006 | | Load 0x0,0x6
015d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015e c402 | | Store 0x2,0x2
015f e5fa | | Load 0x2,-0x6
0160 6838 |h8 | Jump_Zero 0x199
0161 e5fb | | Load 0x2,-0x5
0162 8217 | | Call 0x1,0x17
0163 6809 |h | Jump_Zero 0x16d
0164 00db | | Load_Top At_Offset_3
0165 0092 01ef | | Action Push_String_Extended,0x1ef ; ".Get_String (From => "
0167 e5fd | | Load 0x2,-0x3
0168 01cc | | Execute Vector,Catenate
0169 e006 | | Load 0x0,0x6
016a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
016b c402 | | Store 0x2,0x2
016c 7808 |x | Jump 0x175
016d 00db | | Load_Top At_Offset_3
016e 0092 01f0 | | Action Push_String_Extended,0x1f0 ; ".Get (From => "
0170 e5fd | | Load 0x2,-0x3
0171 01cc | | Execute Vector,Catenate
0172 e006 | | Load 0x0,0x6
0173 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0174 c402 | | Store 0x2,0x2
0175 00d9 | | Load_Top At_Offset_1
0176 7007 |p | Jump_Nonzero 0x17e
0177 00db | | Load_Top At_Offset_3
0178 0092 01f1 | | Action Push_String_Extended,0x1f1 ; ")"
017a e006 | | Load 0x0,0x6
017b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
017c c402 | | Store 0x2,0x2
017d 783a |x: | Jump 0x1b8
017e e5fb | | Load 0x2,-0x5
017f 820f | | Call 0x1,0xf
0180 680c |h | Jump_Zero 0x18d
0181 00db | | Load_Top At_Offset_3
0182 0092 01f2 | | Action Push_String_Extended,0x1f2 ; ", Data => "
0184 e5ff | | Load 0x2,-0x1
0185 01cc | | Execute Vector,Catenate
0186 0092 01f3 | | Action Push_String_Extended,0x1f3 ; ");"
0188 01cc | | Execute Vector,Catenate
0189 e006 | | Load 0x0,0x6
018a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018b c402 | | Store 0x2,0x2
018c 782b |x+ | Jump 0x1b8
018d 00db | | Load_Top At_Offset_3
018e 0092 01f2 | | Action Push_String_Extended,0x1f2 ; ", Data => "
0190 8405 | | Call 0x2,0x5
0191 01cc | | Execute Vector,Catenate
0192 0092 01f3 | | Action Push_String_Extended,0x1f3 ; ");"
0194 01cc | | Execute Vector,Catenate
0195 e006 | | Load 0x0,0x6
0196 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0197 c402 | | Store 0x2,0x2
0198 781f |x | Jump 0x1b8
0199 e5fb | | Load 0x2,-0x5
019a 8217 | | Call 0x1,0x17
019b 6809 |h | Jump_Zero 0x1a5
019c 00db | | Load_Top At_Offset_3
019d 0092 01f4 | | Action Push_String_Extended,0x1f4 ; ".Put_String (Into => "
019f e5fd | | Load 0x2,-0x3
01a0 01cc | | Execute Vector,Catenate
01a1 e006 | | Load 0x0,0x6
01a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01a3 c402 | | Store 0x2,0x2
01a4 7808 |x | Jump 0x1ad
01a5 00db | | Load_Top At_Offset_3
01a6 0092 01f5 | | Action Push_String_Extended,0x1f5 ; ".Put (Into => "
01a8 e5fd | | Load 0x2,-0x3
01a9 01cc | | Execute Vector,Catenate
01aa e006 | | Load 0x0,0x6
01ab 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ac c402 | | Store 0x2,0x2
01ad 00db | | Load_Top At_Offset_3
01ae 0092 01f2 | | Action Push_String_Extended,0x1f2 ; ", Data => "
01b0 8405 | | Call 0x2,0x5
01b1 01cc | | Execute Vector,Catenate
01b2 0092 01f3 | | Action Push_String_Extended,0x1f3 ; ");"
01b4 01cc | | Execute Vector,Catenate
01b5 e006 | | Load 0x0,0x6
01b6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b7 c402 | | Store 0x2,0x2
01b8 00db | | Load_Top At_Offset_3
01b9 e006 | | Load 0x0,0x6
01ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01bb 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
01bc 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
01c4 e002 | | Load 0x0,0x2
01c5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01c6 e008 | | Load 0x0,0x8
01c7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01c8 0f06 | | Execute_Immediate Equal,0x6
01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e5fe | | Load 0x2,-0x2
01d4 01db | | Execute Vector,Length
01d5 7004 |p | Jump_Nonzero 0x1da
01d6 e5ff | | Load 0x2,-0x1
01d7 0335 | 5 | Declare_Variable Array,Duplicate
01d8 00cd | | Action Spare6_Action
01d9 00ca | | Action Exit_Nullary_Function
01da e5fe | | Load 0x2,-0x2
01db 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "("
01dd 01cc | | Execute Vector,Catenate
01de e5ff | | Load 0x2,-0x1
01df 01cc | | Execute Vector,Catenate
01e0 0092 01f1 | | Action Push_String_Extended,0x1f1 ; ")"
01e2 01cc | | Execute Vector,Catenate
01e3 00ca | | Action Exit_Nullary_Function
01e4 ; --------------------------------------------------------------------------------------
01e4 ; STRING TABLE
01e4 ; --------------------------------------------------------------------------------------
01e4 0028 | ( | .STRTAB 0x0028->0x01f8 ; "PUT"
01e5 0029 | ) | .STRTAB 0x0029->0x01f9 ; "GET"
01e6 002a | * | .STRTAB 0x002a->0x01fb ; "Duration"
01e7 0030 | 0 | .STRTAB 0x0030->0x01ff ; "return_"
01e8 0035 | 5 | .STRTAB 0x0035->0x0202 ; "in "
01e9 0036 | 6 | .STRTAB 0x0036->0x0204 ; "out "
01ea 0038 | 8 | .STRTAB 0x0038->0x0206 ; "in out "
01eb 003d | = | .STRTAB 0x003d->0x0209 ; "Interchange.Integer"
01ec 004e | N | .STRTAB 0x004e->0x0213 ; "Interchange.Float"
01ed 005d | ] | .STRTAB 0x005d->0x021b ; "Interchange.Convert"
01ee 006e | n | .STRTAB 0x006e->0x0225 ; "Transport_Interchange"
01ef 0081 | | .STRTAB 0x0081->0x022f ; ".Get_String (From => "
01f0 0094 | | .STRTAB 0x0094->0x023a ; ".Get (From => "
01f1 00a0 | | .STRTAB 0x00a0->0x0241 ; ")"
01f2 009f | | .STRTAB 0x009f->0x0241 ; ", Data => "
01f3 00a7 | | .STRTAB 0x00a7->0x0246 ; ");"
01f4 00a7 | | .STRTAB 0x00a7->0x0247 ; ".Put_String (Into => "
01f5 00ba | | .STRTAB 0x00ba->0x0252 ; ".Put (Into => "
01f6 00c6 | | .STRTAB 0x00c6->0x0259 ; "("
01f7 00c5 | | .STREND 0x00c5->0x0259
01f8 5055 5447 |PUTG| .STRTAB_STRINGS
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f2f,0x0000,0x0001,0x000e
0266 000b 029e | | .DBG4T 0x000b,0x029e,0x0000,0x0000
026a 0023 02aa | # | .DBG4T 0x0023,0x02aa,0x0000,0x0000
026e 0043 02b6 | C | .DBG4T 0x0043,0x02b6,0x0002,0x4000
0272 006b 02c1 | k | .DBG4T 0x006b,0x02c1,0x0002,0x0000
0276 007b 02c5 | { | .DBG4T 0x007b,0x02c5,0x0002,0x4000
027a 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000
027e 00c3 02d5 | | .DBG4T 0x00c3,0x02d5,0x0002,0x0000
0282 00d3 02d8 | | .DBG4T 0x00d3,0x02d8,0x0002,0x0000
0286 00db 02db | | .DBG4T 0x00db,0x02db,0x0002,0x0000
028a 00eb 02de | | .DBG4T 0x00eb,0x02de,0x0002,0x4000
028e 010b 02ec | | .DBG4T 0x010b,0x02ec,0x0002,0x4000
0292 0143 0301 | C | .DBG4T 0x0143,0x0301,0x0002,0x4000
0296 01c3 0329 | )| .DBG4T 0x01c3,0x0329,0x0002,0x0000
029a 01d3 032c | ,| .DBG4T 0x01d3,0x032c,0x0002,0x0000
029e ; --------------------------------------------------------------------------------------
029e ; Debug chain
029e ; --------------------------------------------------------------------------------------
029e 000a 0000 | | .DBGLEN 0x000a,0x0000
02a0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug chain
02aa ; --------------------------------------------------------------------------------------
02aa 000a 0000 | | .DBGLEN 0x000a,0x0000
02ac 0023 0025 | # %| .DBGLNO 0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 0001 0004 | | .DBGLEN 0x0001,0x0004
02b8 0043 004a | C J| .DBGLNO 0x0043,0x004a,0x005b,0x005d,0x0061
02bd 0001 0004 | | .XXX[0x4]
02bf 0002 0003 | |
02c1 ; --------------------------------------------------------------------------------------
02c1 ; Debug chain
02c1 ; --------------------------------------------------------------------------------------
02c1 0001 0001 | | .DBGLEN 0x0001,0x0001
02c3 006b 0074 | k t| .DBGLNO 0x006b,0x0074
02c5 ; --------------------------------------------------------------------------------------
02c5 ; Debug chain
02c5 ; --------------------------------------------------------------------------------------
02c5 0000 0007 | | .DBGLEN 0x0000,0x0007
02c7 007b 007e | { ~| .DBGLNO 0x007b,0x007e,0x0085,0x0087,0x0090,0x0092,0x0094
02ce 0001 0002 | | .XXX[0x7]
02d0 0006 0003 | |
02d2 0004 0005 | |
02d4 0007 | |
02d5 ; --------------------------------------------------------------------------------------
02d5 ; Debug chain
02d5 ; --------------------------------------------------------------------------------------
02d5 0000 0001 | | .DBGLEN 0x0000,0x0001
02d7 00c3 | | .DBGLNO 0x00c3
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug chain
02d8 ; --------------------------------------------------------------------------------------
02d8 0000 0001 | | .DBGLEN 0x0000,0x0001
02da 00d3 | | .DBGLNO 0x00d3
02db ; --------------------------------------------------------------------------------------
02db ; Debug chain
02db ; --------------------------------------------------------------------------------------
02db 0000 0001 | | .DBGLEN 0x0000,0x0001
02dd 00db | | .DBGLNO 0x00db
02de ; --------------------------------------------------------------------------------------
02de ; Debug chain
02de ; --------------------------------------------------------------------------------------
02de 0000 0006 | | .DBGLEN 0x0000,0x0006
02e0 00eb 00f4 | | .DBGLNO 0x00eb,0x00f4,0x00f6,0x00f8,0x00fb,0x00fe
02e6 0001 0006 | | .XXX[0x6]
02e8 0002 0003 | |
02ea 0004 0005 | |
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug chain
02ec ; --------------------------------------------------------------------------------------
02ec 0001 0009 | | .DBGLEN 0x0001,0x0009
02ee 010b 0114 | | .DBGLNO 0x010b,0x0114,0x0117,0x0128,0x012a,0x012d,0x0130,0x0133,0x0136,0x0138
02f8 0001 0002 | | .XXX[0x9]
02fa 0008 0003 | |
02fc 0004 0005 | |
02fe 0006 0007 | |
0300 0009 | |
0301 ; --------------------------------------------------------------------------------------
0301 ; Debug chain
0301 ; --------------------------------------------------------------------------------------
0301 0004 0011 | | .DBGLEN 0x0004,0x0011
0303 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0149,0x014d,0x014f,0x0151,0x0158,0x015f,0x0161,0x0164,0x016d,0x0175,0x0177,0x017e,0x0181,0x018d,0x0199,0x019c,0x01a5,0x01ad,0x01b8
0318 0001 0002 | | .XXX[0x11]
031a 0003 0004 | |
031c 0009 000a | |
031e 000b 000c | |
0320 000d 000e | |
0322 000f 0010 | |
0324 0005 0006 | |
0326 0007 0008 | |
0328 0011 | |
0329 ; --------------------------------------------------------------------------------------
0329 ; Debug chain
0329 ; --------------------------------------------------------------------------------------
0329 0000 0001 | | .DBGLEN 0x0000,0x0001
032b 01c3 | | .DBGLNO 0x01c3
032c ; --------------------------------------------------------------------------------------
032c ; Debug chain
032c ; --------------------------------------------------------------------------------------
032c 0000 0003 | | .DBGLEN 0x0000,0x0003
032e 01d3 01d6 | | .DBGLNO 0x01d3,0x01d6,0x01da
0331 0000 0000 | | .BLANK 0000[0xcf]