|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0300 | | .CONST 0x0300 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018 ; Debug Table 0x0 = .DEBUG 0x000b,0x0332,0x8000,0x0000,0x002c,0xbd34,0x0000,0x0011
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 006d | m | .CONST 0x006d ; Address of begin
0019 01a8 | | .CONST 0x01a8 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001b,0x0334,0x8001,0x0000,0x002c,0xbd34,0x0000,0x0011
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 0092 0230 | 0| Action Push_String_Extended,0x230 ; "File String Operations Test"
; Debug Table 0x1.0x1 = 0x1c,0xfffe
001e e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0020 02ff | | Declare_Variable Variant_Record
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x23,0xfffc
0024 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0025 02c7 | | Declare_Variable Any
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x28,0xfffb
0029 1b16 | | Execute Package,Field_Read,Field_Number 0x16
002a 02c7 | | Declare_Variable Any
002b e001 | | Load 0x0,0x1
002c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
002d c405 | | Store 0x2,0x5
002e e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x5 = 0x2e,0xfffa
002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0030 02c7 | | Declare_Variable Any
0031 e003 | | Load 0x0,0x3
0032 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0033 e002 | | Load 0x0,0x2
0034 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0035 c406 | | Store 0x2,0x6
0036 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x6 = 0x36,0xfff9
0037 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0038 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x7 = 0x38,0xfff8
0039 4814 |H | Short_Literal 0x14
003a 00e9 | | Load_Encached String_Cache
003b 0334 | 4 | Declare_Variable Array,With_Constraint
003c 4801 |H | Short_Literal 0x1
003d 4814 |H | Short_Literal 0x14
003e 00e9 | | Load_Encached String_Cache
003f 0334 | 4 | Declare_Variable Array,With_Constraint
0040 4814 |H | Short_Literal 0x14
0041 4801 |H | Short_Literal 0x1
0042 4800 |H | Short_Literal 0x0
0043 00d9 | | Load_Top At_Offset_1
0044 e409 | | Load 0x2,0x9
0045 01d6 | | Execute Vector,Field_Write
0046 3ffb |? | Loop_Increasing 0x42
0047 00d9 | | Load_Top At_Offset_1
0048 01d4 | | Execute Vector,Structure_Write
0049 00e8 | | Load_Encached Character_Cache ; Debug Table 0x1.0x8 = 0x49,0xfff7
004a 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x9 = 0x4a,0xfff6
004b 4814 |H | Short_Literal 0x14
004c e005 | | Load 0x0,0x5
004d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004e 0334 | 4 | Declare_Variable Array,With_Constraint
004f 4801 |H | Short_Literal 0x1
0050 4814 |H | Short_Literal 0x14
0051 e005 | | Load 0x0,0x5
0052 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0053 0334 | 4 | Declare_Variable Array,With_Constraint
0054 4814 |H | Short_Literal 0x14
0055 4801 |H | Short_Literal 0x1
0056 4800 |H | Short_Literal 0x0
0057 00d9 | | Load_Top At_Offset_1
0058 e40b | | Load 0x2,0xb
0059 01d6 | | Execute Vector,Field_Write
005a 3ffb |? | Loop_Increasing 0x56
005b 00d9 | | Load_Top At_Offset_1
005c 01d4 | | Execute Vector,Structure_Write
005d e005 | | Load 0x0,0x5 ; Debug Table 0x1.0xa = 0x5d,0xfff5
005e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
005f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0xb = 0x5f,0xfff4
0060 0092 0231 | 1| Action Push_String_Extended,0x231 ; "abcdefghijklm"
; Debug Table 0x1.0xc = 0x60,0xfff3
0062 0007 | | Action Break_Optional ; Debug Table 0x1.0xd = 0x62,0xfff2
0063 0007 | | Action Break_Optional ; Debug Table 0x1.0xe = 0x63,0xfff1
0064 0007 | | Action Break_Optional ; Debug Table 0x1.0xf = 0x64,0xfff0
0065 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8 ; Debug Table 0x1.0x10 = 0x65,0xffef
0067 029f 01db | | Declare_Subprogram For_Call,INIT_01d8 ; Debug Table 0x1.0x11 = 0x67,0xffee
0069 029f 01f3 | | Declare_Subprogram For_Call,INIT_01f0 ; Debug Table 0x1.0x12 = 0x69,0xffed
006b 029f 0213 | | Declare_Subprogram For_Call,INIT_0210 ; Debug Table 0x1.0x13 = 0x6b,0xffec
006d BODY_0018:
006d 00be | | Action Activate_Tasks
006e e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x14 = 0x6e,0x1
006f 0092 0232 | 2| Action Push_String_Extended,0x232 ; "String_Ops"
0071 e006 | | Load 0x0,0x6
0072 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0073 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Create and open a file"
; Debug Table 0x1.0x15 = 0x73,0x2
0075 e006 | | Load 0x0,0x6
0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0077 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x16 = 0x77,0x3
0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0079 e403 | | Load 0x2,0x3
007a e002 | | Load 0x0,0x2
007b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007c 4800 |H | Short_Literal 0x0
007d 4800 |H | Short_Literal 0x0
007e e001 | | Load 0x0,0x1
007f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0080 4800 |H | Short_Literal 0x0
0081 4800 |H | Short_Literal 0x0
0082 e007 | | Load 0x0,0x7
0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0084 4800 |H | Short_Literal 0x0
0085 e008 | | Load 0x0,0x8
0086 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0087 e001 | | Load 0x0,0x1
0088 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0089 00d1 | | Pop_Control Pop_Count_1
008a c407 | | Store 0x2,0x7
008b e407 | | Load 0x2,0x7 ; Debug Table 0x1.0x17 = 0x8b,0x4
008c 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Create"
008e 840f | | Call 0x2,0xf
008f e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x18 = 0x8f,0x5
0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0091 e404 | | Load 0x2,0x4
0092 0120 | | Execute Any,Is_Value
0093 6803 |h | Jump_Zero 0x97
0094 e001 | | Load 0x0,0x1
0095 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0096 7801 |x | Jump 0x98
0097 e404 | | Load 0x2,0x4
0098 e406 | | Load 0x2,0x6
0099 4800 |H | Short_Literal 0x0
009a 4802 |H | Short_Literal 0x2
009b e403 | | Load 0x2,0x3
009c e001 | | Load 0x0,0x1
009d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
009e c404 | | Store 0x2,0x4
009f c407 | | Store 0x2,0x7
00a0 e407 | | Load 0x2,0x7 ; Debug Table 0x1.0x19 = 0xa0,0x6
00a1 0092 0235 | 5| Action Push_String_Extended,0x235 ; "Open"
00a3 840f | | Call 0x2,0xf
00a4 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1a = 0xa4,0x7
00a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a6 c405 | | Store 0x2,0x5
00a7 e40a | | Load 0x2,0xa ; Debug Table 0x1.0x1b = 0xa7,0x8
00a8 4801 |H | Short_Literal 0x1
00a9 480d |H | Short_Literal 0xd
00aa 00da | | Load_Top At_Offset_2
00ab 035b | [ | Declare_Type Array,Constrained
00ac 00d0 | | Action Swap_Control
00ad 01cd | | Execute Vector,Slice_Reference
00ae e40d | | Load 0x2,0xd
00af 8411 | | Call 0x2,0x11
00b0 00d1 | | Pop_Control Pop_Count_1
00b1 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Write out byte form"
; Debug Table 0x1.0x1c = 0xb1,0x9
00b3 e006 | | Load 0x0,0x6
00b4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b5 480d |H | Short_Literal 0xd ; Debug Table 0x1.0x1d = 0xb5,0xa
00b6 4801 |H | Short_Literal 0x1
00b7 0007 | | Action Break_Optional
00b8 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x1e = 0xb8,0xb
00b9 00d9 | | Load_Top At_Offset_1
00ba e40a | | Load 0x2,0xa
00bb 01d7 | | Execute Vector,Field_Read
00bc e404 | | Load 0x2,0x4
00bd e001 | | Load 0x0,0x1
00be 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
00bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c0 c405 | | Store 0x2,0x5
00c1 3ff6 |? | Loop_Increasing 0xb8
00c2 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Write out byte string form"
; Debug Table 0x1.0x1f = 0xc2,0xc
00c4 e006 | | Load 0x0,0x6
00c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c6 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x20 = 0xc6,0xd
00c7 4801 |H | Short_Literal 0x1
00c8 480d |H | Short_Literal 0xd
00c9 e40a | | Load 0x2,0xa
00ca 01cf | | Execute Vector,Slice_Read
00cb e404 | | Load 0x2,0x4
00cc e001 | | Load 0x0,0x1
00cd 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cf c405 | | Store 0x2,0x5
00d0 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Write out character form"
; Debug Table 0x1.0x21 = 0xd0,0xe
00d2 e006 | | Load 0x0,0x6
00d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d4 480d |H | Short_Literal 0xd ; Debug Table 0x1.0x22 = 0xd4,0xf
00d5 4801 |H | Short_Literal 0x1
00d6 0007 | | Action Break_Optional
00d7 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x23 = 0xd7,0x10
00d8 00d9 | | Load_Top At_Offset_1
00d9 e40d | | Load 0x2,0xd
00da 01d7 | | Execute Vector,Field_Read
00db e404 | | Load 0x2,0x4
00dc e001 | | Load 0x0,0x1
00dd 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
00de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00df c405 | | Store 0x2,0x5
00e0 3ff6 |? | Loop_Increasing 0xd7
00e1 0092 0239 | 9| Action Push_String_Extended,0x239 ; "Write out string form"
; Debug Table 0x1.0x24 = 0xe1,0x11
00e3 e006 | | Load 0x0,0x6
00e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e5 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x25 = 0xe5,0x12
00e6 e40d | | Load 0x2,0xd
00e7 e404 | | Load 0x2,0x4
00e8 e001 | | Load 0x0,0x1
00e9 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
00ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00eb c405 | | Store 0x2,0x5
00ec e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x26 = 0xec,0x13
00ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ee c405 | | Store 0x2,0x5
00ef 0092 023a | :| Action Push_String_Extended,0x23a ; "read data as a string"
; Debug Table 0x1.0x27 = 0xef,0x14
00f1 e006 | | Load 0x0,0x6
00f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x28 = 0xf3,0x15
00f4 e408 | | Load 0x2,0x8
00f5 4801 |H | Short_Literal 0x1
00f6 480d |H | Short_Literal 0xd
00f7 00da | | Load_Top At_Offset_2
00f8 035b | [ | Declare_Type Array,Constrained
00f9 00d0 | | Action Swap_Control
00fa 01cd | | Execute Vector,Slice_Reference
00fb e405 | | Load 0x2,0x5
00fc e404 | | Load 0x2,0x4
00fd e001 | | Load 0x0,0x1
00fe 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0100 c405 | | Store 0x2,0x5
0101 00d1 | | Pop_Control Pop_Count_1
0102 c40c | | Store 0x2,0xc
0103 0092 023b | ;| Action Push_String_Extended,0x23b ; "count mismatch, count ="
; Debug Table 0x1.0x29 = 0x103,0x16
0105 e40c | | Load 0x2,0xc
0106 00e0 | | Load_Encached Standard_Cache
0107 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0108 01cc | | Execute Vector,Catenate
0109 e40c | | Load 0x2,0xc
010a 0f0d | | Execute_Immediate Equal,0xd
010b 840e | | Call 0x2,0xe
010c 0092 023c | <| Action Push_String_Extended,0x23c ; "value mismatch:"
; Debug Table 0x1.0x2a = 0x10c,0x17
010e 4801 |H | Short_Literal 0x1
010f e40c | | Load 0x2,0xc
0110 e408 | | Load 0x2,0x8
0111 01cf | | Execute Vector,Slice_Read
0112 01cc | | Execute Vector,Catenate
0113 4801 |H | Short_Literal 0x1
0114 e40c | | Load 0x2,0xc
0115 e408 | | Load 0x2,0x8
0116 01cf | | Execute Vector,Slice_Read
0117 e40d | | Load 0x2,0xd
0118 01df | | Execute Vector,Equal
0119 840e | | Call 0x2,0xe
011a 0092 023d | =| Action Push_String_Extended,0x23d ; "read data as characters"
; Debug Table 0x1.0x2b = 0x11a,0x18
011c e006 | | Load 0x0,0x6
011d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011e e40d | | Load 0x2,0xd ; Debug Table 0x1.0x2c = 0x11e,0x19
011f 01d9 | | Execute Vector,Reverse_Bounds
0120 0007 | | Action Break_Optional
0121 00e8 | | Load_Encached Character_Cache ; Debug Table 0x1.0x2d = 0x121,0x1a
0122 e405 | | Load 0x2,0x5
0123 e404 | | Load 0x2,0x4
0124 e001 | | Load 0x0,0x1
0125 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0126 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0127 c405 | | Store 0x2,0x5
0128 c409 | | Store 0x2,0x9
0129 e409 | | Load 0x2,0x9 ; Debug Table 0x1.0x2e = 0x129,0x1b
012a 0092 023e | >| Action Push_String_Extended,0x23e ; "char"
012c 00da | | Load_Top At_Offset_2
012d 00e0 | | Load_Encached Standard_Cache
012e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012f 01cc | | Execute Vector,Catenate
0130 0092 023f | ?| Action Push_String_Extended,0x23f ; "= "
0132 01cc | | Execute Vector,Catenate
0133 01cb | | Execute Vector,Append
0134 e409 | | Load 0x2,0x9
0135 00da | | Load_Top At_Offset_2
0136 e40d | | Load 0x2,0xd
0137 01d7 | | Execute Vector,Field_Read
0138 027f | | Execute Discrete,Equal
0139 840e | | Call 0x2,0xe
013a 3fe6 |? | Loop_Increasing 0x121
013b 0092 0240 | @| Action Push_String_Extended,0x240 ; "read data as a byte string"
; Debug Table 0x1.0x2f = 0x13b,0x1c
013d e006 | | Load 0x0,0x6
013e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x30 = 0x13f,0x1d
0140 e40a | | Load 0x2,0xa
0141 4801 |H | Short_Literal 0x1
0142 480d |H | Short_Literal 0xd
0143 00da | | Load_Top At_Offset_2
0144 035b | [ | Declare_Type Array,Constrained
0145 00d0 | | Action Swap_Control
0146 01cd | | Execute Vector,Slice_Reference
0147 e405 | | Load 0x2,0x5
0148 e404 | | Load 0x2,0x4
0149 e001 | | Load 0x0,0x1
014a 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
014b 180f | | Execute Package,Field_Execute,Field_Number 0xf
014c c405 | | Store 0x2,0x5
014d 00d1 | | Pop_Control Pop_Count_1
014e c40c | | Store 0x2,0xc
014f 0092 023b | ;| Action Push_String_Extended,0x23b ; "count mismatch, count ="
; Debug Table 0x1.0x31 = 0x14f,0x1e
0151 e40c | | Load 0x2,0xc
0152 00e0 | | Load_Encached Standard_Cache
0153 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0154 01cc | | Execute Vector,Catenate
0155 e40c | | Load 0x2,0xc
0156 0f0d | | Execute_Immediate Equal,0xd
0157 840e | | Call 0x2,0xe
0158 e408 | | Load 0x2,0x8 ; Debug Table 0x1.0x32 = 0x158,0x1f
0159 e40a | | Load 0x2,0xa
015a 8410 | | Call 0x2,0x10
015b 00d1 | | Pop_Control Pop_Count_1
015c 0092 023c | <| Action Push_String_Extended,0x23c ; "value mismatch:"
; Debug Table 0x1.0x33 = 0x15c,0x20
015e 4801 |H | Short_Literal 0x1
015f e40c | | Load 0x2,0xc
0160 e408 | | Load 0x2,0x8
0161 01cf | | Execute Vector,Slice_Read
0162 01cc | | Execute Vector,Catenate
0163 4801 |H | Short_Literal 0x1
0164 e40c | | Load 0x2,0xc
0165 e408 | | Load 0x2,0x8
0166 01cf | | Execute Vector,Slice_Read
0167 e40d | | Load 0x2,0xd
0168 01df | | Execute Vector,Equal
0169 840e | | Call 0x2,0xe
016a 0092 0241 | A| Action Push_String_Extended,0x241 ; "read data as bytes"
; Debug Table 0x1.0x34 = 0x16a,0x21
016c e006 | | Load 0x0,0x6
016d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
016e e40d | | Load 0x2,0xd ; Debug Table 0x1.0x35 = 0x16e,0x22
016f 01d9 | | Execute Vector,Reverse_Bounds
0170 0007 | | Action Break_Optional
0171 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x36 = 0x171,0x23
0172 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0174 e405 | | Load 0x2,0x5
0175 e404 | | Load 0x2,0x4
0176 e001 | | Load 0x0,0x1
0177 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0178 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0179 c405 | | Store 0x2,0x5
017a c40b | | Store 0x2,0xb
017b 0092 0242 | B| Action Push_String_Extended,0x242 ; "byte"
; Debug Table 0x1.0x37 = 0x17b,0x24
017d 00d9 | | Load_Top At_Offset_1
017e 00e0 | | Load_Encached Standard_Cache
017f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0180 01cc | | Execute Vector,Catenate
0181 0092 023f | ?| Action Push_String_Extended,0x23f ; "= "
0183 01cc | | Execute Vector,Catenate
0184 e40b | | Load 0x2,0xb
0185 00e0 | | Load_Encached Standard_Cache
0186 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0187 01cc | | Execute Vector,Catenate
0188 e40b | | Load 0x2,0xb
0189 00da | | Load_Top At_Offset_2
018a e40a | | Load 0x2,0xa
018b 01d7 | | Execute Vector,Field_Read
018c 027f | | Execute Discrete,Equal
018d 840e | | Call 0x2,0xe
018e 3fe2 |? | Loop_Increasing 0x171
018f 0092 0243 | C| Action Push_String_Extended,0x243 ; "Close file and abandon action"
; Debug Table 0x1.0x38 = 0x18f,0x25
0191 e006 | | Load 0x0,0x6
0192 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0193 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x39 = 0x193,0x26
0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0195 e404 | | Load 0x2,0x4
0196 4800 |H | Short_Literal 0x0
0197 e001 | | Load 0x0,0x1
0198 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0199 c404 | | Store 0x2,0x4
019a c407 | | Store 0x2,0x7
019b e407 | | Load 0x2,0x7 ; Debug Table 0x1.0x3a = 0x19b,0x27
019c 0092 0244 | D| Action Push_String_Extended,0x244 ; "Close"
019e 840f | | Call 0x2,0xf
019f e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x3b = 0x19f,0x28
01a0 4801 |H | Short_Literal 0x1
01a1 4800 |H | Short_Literal 0x0
01a2 e002 | | Load 0x0,0x2
01a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a4 c406 | | Store 0x2,0x6
01a5 e006 | | Load 0x0,0x6 ; Debug Table 0x1.0x3c = 0x1a5,0x29
01a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a7 4501 |E | Exit_Subprogram 0x1
01a8 TRAP_0018:
01a8 6083 |` | Indirect_Literal Discrete,0x22c,{0x00000000, 0x2cbd3401}
01a9 010f | | Execute Exception,Equal
01aa 6809 |h | Jump_Zero 0x1b4
01ab e006 | | Load 0x0,0x6 ; Debug Table 0x1.0x3d = 0x1ab,0x2a
01ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ad e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x3e = 0x1ad,0x2b
01ae 4801 |H | Short_Literal 0x1
01af 4800 |H | Short_Literal 0x0
01b0 e002 | | Load 0x0,0x2
01b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b2 c406 | | Store 0x2,0x6
01b3 4501 |E | Exit_Subprogram 0x1
01b4 0092 0245 | E| Action Push_String_Extended,0x245 ; "Exception: "
; Debug Table 0x1.0x3f = 0x1b4,0x2c
01b6 e009 | | Load 0x0,0x9
01b7 180d | | Execute Package,Field_Execute,Field_Number 0xd
01b8 01cc | | Execute Vector,Catenate
01b9 e006 | | Load 0x0,0x6
01ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bb e006 | | Load 0x0,0x6 ; Debug Table 0x1.0x40 = 0x1bb,0x2d
01bc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01bd e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x41 = 0x1bd,0x2e
01be 4801 |H | Short_Literal 0x1
01bf 4800 |H | Short_Literal 0x0
01c0 e002 | | Load 0x0,0x2
01c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c2 c406 | | Store 0x2,0x6
01c3 4501 |E | Exit_Subprogram 0x1
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x01cb,0x03ba,0x0001,0x0000,0x002c,0xbd34,0x0000,0x00a3
; Debug Table 0x2.0x0 = 0x1cb,0x1
01cc 7005 |p | Jump_Nonzero 0x1d2
01cd 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x1cd,0x2
01ce e006 | | Load 0x0,0x6
01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d0 605b |`[ | Indirect_Literal Discrete,0x22c,{0x00000000, 0x2cbd3401} ; Debug Table 0x2.0x2 = 0x1d0,0x3
01d1 0257 | W | Execute Discrete,Raise
01d2 4503 |E | Exit_Subprogram 0x3
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x01db,0x03c2,0x0001,0x0000,0x002c,0xbd34,0x0000,0x00c2
; Debug Table 0x3.0x0 = 0x1db,0x1
01dc 680c |h | Jump_Zero 0x1e9
01dd 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x1 = 0x1dd,0x2
01de 0092 0246 | F| Action Push_String_Extended,0x246 ; " failed: "
01e0 01cc | | Execute Vector,Catenate
01e1 e7fe | | Load 0x3,-0x2
01e2 e004 | | Load 0x0,0x4
01e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e4 025e | ^ | Execute Discrete,Convert
01e5 1c01 | | Execute_Immediate Run_Utility,0x1
01e6 01cc | | Execute Vector,Catenate
01e7 e006 | | Load 0x0,0x6
01e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e9 4503 |E | Exit_Subprogram 0x3
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fb | | .CONST 0x01fb ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x01f3,0x03c8,0x0001,0x0000,0x002c,0xbd34,0x0000,0x00f0
; Debug Table 0x4.0x0 = 0x1f3,0xffff
01f4 01dd | | Execute Vector,First
01f5 e7fe | | Load 0x3,-0x2
01f6 01dd | | Execute Vector,First
01f7 0272 | r | Execute Discrete,Minus
01f8 0248 | H | Execute Discrete,Check_In_Integer
01f9 00e2 | | Load_Encached Integer_Cache
01fa 03f1 | | Declare_Variable Discrete,With_Value
01fb BODY_01f0:
01fb e7fe | | Load 0x3,-0x2 ; Debug Table 0x4.0x1 = 0x1fb,0x1
01fc 01d9 | | Execute Vector,Reverse_Bounds
01fd 0263 | c | Execute Discrete,Above_Bound
01fe 7010 |p | Jump_Nonzero 0x20f
01ff 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0x1ff,0x2
0200 00db | | Load_Top At_Offset_3
0201 0273 | s | Execute Discrete,Plus
0202 0248 | H | Execute Discrete,Check_In_Integer
0203 e7ff | | Load 0x3,-0x1
0204 01d7 | | Execute Vector,Field_Read
0205 00d8 | | Load_Top At_Offset_0
0206 00e8 | | Load_Encached Character_Cache
0207 0260 | ` | Execute Discrete,In_Type
0208 7002 |p | Jump_Nonzero 0x20b
0209 48e0 |H | Short_Literal 0xe0
020a 0257 | W | Execute Discrete,Raise
020b 00d9 | | Load_Top At_Offset_1
020c e7fe | | Load 0x3,-0x2
020d 01d6 | | Execute Vector,Field_Write
020e 3ff0 |? | Loop_Increasing 0x1ff
020f 4502 |E | Exit_Subprogram 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021b | | .CONST 0x021b ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0213,0x03d0,0x0001,0x0000,0x002c,0xbd34,0x0000,0x0128
; Debug Table 0x5.0x0 = 0x213,0xffff
0214 01dd | | Execute Vector,First
0215 e7fe | | Load 0x3,-0x2
0216 01dd | | Execute Vector,First
0217 0272 | r | Execute Discrete,Minus
0218 0248 | H | Execute Discrete,Check_In_Integer
0219 00e2 | | Load_Encached Integer_Cache
021a 03f1 | | Declare_Variable Discrete,With_Value
021b BODY_0210:
021b e7fe | | Load 0x3,-0x2 ; Debug Table 0x5.0x1 = 0x21b,0x1
021c 01d9 | | Execute Vector,Reverse_Bounds
021d 0263 | c | Execute Discrete,Above_Bound
021e 700a |p | Jump_Nonzero 0x229
021f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x21f,0x2
0220 00db | | Load_Top At_Offset_3
0221 0273 | s | Execute Discrete,Plus
0222 0248 | H | Execute Discrete,Check_In_Integer
0223 e7ff | | Load 0x3,-0x1
0224 01d7 | | Execute Vector,Field_Read
0225 00d9 | | Load_Top At_Offset_1
0226 e7fe | | Load 0x3,-0x2
0227 01d6 | | Execute Vector,Field_Write
0228 3ff6 |? | Loop_Increasing 0x21f
0229 4502 |E | Exit_Subprogram 0x2
022a 0000 0000 | | .XXX[0x2]
022c 0000 0000 | | .LITERAL {0x00000000, 0x2cbd3401}
0230 ; --------------------------------------------------------------------------------------
0230 ; STRING TABLE
0230 ; --------------------------------------------------------------------------------------
0230 0030 | 0 | .STRTAB 0x0030->0x0248 ; "File String Operations Test"
0231 0049 | I | .STRTAB 0x0049->0x0255 ; "abcdefghijklm"
0232 0054 | T | .STRTAB 0x0054->0x025c ; "String_Ops"
0233 005c | \ | .STRTAB 0x005c->0x0261 ; "Create and open a file"
0234 0070 | p | .STRTAB 0x0070->0x026c ; "Create"
0235 0074 | t | .STRTAB 0x0074->0x026f ; "Open"
0236 0076 | v | .STRTAB 0x0076->0x0271 ; "Write out byte form"
0237 0087 | | .STRTAB 0x0087->0x027a ; "Write out byte string form"
0238 009f | | .STRTAB 0x009f->0x0287 ; "Write out character form"
0239 00b5 | | .STRTAB 0x00b5->0x0293 ; "Write out string form"
023a 00c8 | | .STRTAB 0x00c8->0x029e ; "read data as a string"
023b 00db | | .STRTAB 0x00db->0x02a8 ; "count mismatch, count ="
; "count mismatch, count ="
023c 00f0 | | .STRTAB 0x00f0->0x02b4 ; "value mismatch:"
; "value mismatch:"
023d 00fd | | .STRTAB 0x00fd->0x02bb ; "read data as characters"
023e 0112 | | .STRTAB 0x0112->0x02c7 ; "char"
023f 0114 | | .STRTAB 0x0114->0x02c9 ; "= "
; "= "
0240 0114 | | .STRTAB 0x0114->0x02ca ; "read data as a byte string"
0241 012c | , | .STRTAB 0x012c->0x02d7 ; "read data as bytes"
0242 013c | < | .STRTAB 0x013c->0x02e0 ; "byte"
0243 013e | > | .STRTAB 0x013e->0x02e2 ; "Close file and abandon action"
0244 0159 | Y | .STRTAB 0x0159->0x02f0 ; "Close"
0245 015c | \ | .STRTAB 0x015c->0x02f3 ; "Exception: "
0246 0165 | e | .STRTAB 0x0165->0x02f8 ; " failed: "
0247 016c | l | .STREND 0x016c->0x02fd
0248 4669 6c65 |File| .STRTAB_STRINGS
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0003 0006 | | .CONST 0x0003,0x0006
0302 000b 0332 | 2| .DEBUG 0x000b,0x0332,0x8000,0x0000,0x002c,0xbd34,0x0000,0x0011
030a 001b 0334 | 4| .DEBUG 0x001b,0x0334,0x8001,0x0000,0x002c,0xbd34,0x0000,0x0011
0312 01cb 03ba | | .DEBUG 0x01cb,0x03ba,0x0001,0x0000,0x002c,0xbd34,0x0000,0x00a3
031a 01db 03c2 | | .DEBUG 0x01db,0x03c2,0x0001,0x0000,0x002c,0xbd34,0x0000,0x00c2
0322 01f3 03c8 | | .DEBUG 0x01f3,0x03c8,0x0001,0x0000,0x002c,0xbd34,0x0000,0x00f0
032a 0213 03d0 | | .DEBUG 0x0213,0x03d0,0x0001,0x0000,0x002c,0xbd34,0x0000,0x0128
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug3 Subtable 0x0
0332 ; --------------------------------------------------------------------------------------
0332 0000 0000 | | .DBG3TAB 0x0000,0x0000
0334 ; --------------------------------------------------------------------------------------
0334 ; Debug3 Subtable 0x1
0334 ; --------------------------------------------------------------------------------------
0334 0014 002e | .| .DBG3TAB 0x0014,0x002e
0336 001b ffff | | .CONST 0x001b,0xffff
0338 001c fffe | | .CONST 0x001c,0xfffe
033a 001e fffd | | .CONST 0x001e,0xfffd
033c 0023 fffc | # | .CONST 0x0023,0xfffc
033e 0028 fffb | ( | .CONST 0x0028,0xfffb
0340 002e fffa | . | .CONST 0x002e,0xfffa
0342 0036 fff9 | 6 | .CONST 0x0036,0xfff9
0344 0038 fff8 | 8 | .CONST 0x0038,0xfff8
0346 0049 fff7 | I | .CONST 0x0049,0xfff7
0348 004a fff6 | J | .CONST 0x004a,0xfff6
034a 005d fff5 | ] | .CONST 0x005d,0xfff5
034c 005f fff4 | _ | .CONST 0x005f,0xfff4
034e 0060 fff3 | ` | .CONST 0x0060,0xfff3
0350 0062 fff2 | b | .CONST 0x0062,0xfff2
0352 0063 fff1 | c | .CONST 0x0063,0xfff1
0354 0064 fff0 | d | .CONST 0x0064,0xfff0
0356 0065 ffef | e | .CONST 0x0065,0xffef
0358 0067 ffee | g | .CONST 0x0067,0xffee
035a 0069 ffed | i | .CONST 0x0069,0xffed
035c 006b ffec | k | .CONST 0x006b,0xffec
035e 006e 0001 | n | .CONST 0x006e,0x0001
0360 0073 0002 | s | .CONST 0x0073,0x0002
0362 0077 0003 | w | .CONST 0x0077,0x0003
0364 008b 0004 | | .CONST 0x008b,0x0004
0366 008f 0005 | | .CONST 0x008f,0x0005
0368 00a0 0006 | | .CONST 0x00a0,0x0006
036a 00a4 0007 | | .CONST 0x00a4,0x0007
036c 00a7 0008 | | .CONST 0x00a7,0x0008
036e 00b1 0009 | | .CONST 0x00b1,0x0009
0370 00b5 000a | | .CONST 0x00b5,0x000a
0372 00b8 000b | | .CONST 0x00b8,0x000b
0374 00c2 000c | | .CONST 0x00c2,0x000c
0376 00c6 000d | | .CONST 0x00c6,0x000d
0378 00d0 000e | | .CONST 0x00d0,0x000e
037a 00d4 000f | | .CONST 0x00d4,0x000f
037c 00d7 0010 | | .CONST 0x00d7,0x0010
037e 00e1 0011 | | .CONST 0x00e1,0x0011
0380 00e5 0012 | | .CONST 0x00e5,0x0012
0382 00ec 0013 | | .CONST 0x00ec,0x0013
0384 00ef 0014 | | .CONST 0x00ef,0x0014
0386 00f3 0015 | | .CONST 0x00f3,0x0015
0388 0103 0016 | | .CONST 0x0103,0x0016
038a 010c 0017 | | .CONST 0x010c,0x0017
038c 011a 0018 | | .CONST 0x011a,0x0018
038e 011e 0019 | | .CONST 0x011e,0x0019
0390 0121 001a | ! | .CONST 0x0121,0x001a
0392 0129 001b | ) | .CONST 0x0129,0x001b
0394 013b 001c | ; | .CONST 0x013b,0x001c
0396 013f 001d | ? | .CONST 0x013f,0x001d
0398 014f 001e | O | .CONST 0x014f,0x001e
039a 0158 001f | X | .CONST 0x0158,0x001f
039c 015c 0020 | \ | .CONST 0x015c,0x0020
039e 016a 0021 | j !| .CONST 0x016a,0x0021
03a0 016e 0022 | n "| .CONST 0x016e,0x0022
03a2 0171 0023 | q #| .CONST 0x0171,0x0023
03a4 017b 0024 | { $| .CONST 0x017b,0x0024
03a6 018f 0025 | %| .CONST 0x018f,0x0025
03a8 0193 0026 | &| .CONST 0x0193,0x0026
03aa 019b 0027 | '| .CONST 0x019b,0x0027
03ac 019f 0028 | (| .CONST 0x019f,0x0028
03ae 01a5 0029 | )| .CONST 0x01a5,0x0029
03b0 01ab 002a | *| .CONST 0x01ab,0x002a
03b2 01ad 002b | +| .CONST 0x01ad,0x002b
03b4 01b4 002c | ,| .CONST 0x01b4,0x002c
03b6 01bb 002d | -| .CONST 0x01bb,0x002d
03b8 01bd 002e | .| .CONST 0x01bd,0x002e
03ba ; --------------------------------------------------------------------------------------
03ba ; Debug3 Subtable 0x2
03ba ; --------------------------------------------------------------------------------------
03ba 0000 0003 | | .DBG3TAB 0x0000,0x0003
03bc 01cb 0001 | | .CONST 0x01cb,0x0001
03be 01cd 0002 | | .CONST 0x01cd,0x0002
03c0 01d0 0003 | | .CONST 0x01d0,0x0003
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug3 Subtable 0x3
03c2 ; --------------------------------------------------------------------------------------
03c2 0000 0002 | | .DBG3TAB 0x0000,0x0002
03c4 01db 0001 | | .CONST 0x01db,0x0001
03c6 01dd 0002 | | .CONST 0x01dd,0x0002
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0x4
03c8 ; --------------------------------------------------------------------------------------
03c8 0001 0002 | | .DBG3TAB 0x0001,0x0002
03ca 01f3 ffff | | .CONST 0x01f3,0xffff
03cc 01fb 0001 | | .CONST 0x01fb,0x0001
03ce 01ff 0002 | | .CONST 0x01ff,0x0002
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0x5
03d0 ; --------------------------------------------------------------------------------------
03d0 0001 0002 | | .DBG3TAB 0x0001,0x0002
03d2 0213 ffff | | .CONST 0x0213,0xffff
03d4 021b 0001 | | .CONST 0x021b,0x0001
03d6 021f 0002 | | .CONST 0x021f,0x0002
03d8 0000 0000 | | .BLANK 0000[0x28]