|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 0340 | @ | .CONST 0x0340 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x03fa,0xc000,0x0000,0x0036,0x43a4,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 00bf | | Action Accept_Activation
0016 0092 02d0 | | Action Push_String_Extended,0x2d0 ; ".XFER"
; Debug Table 0x1 = .DEBUG 0x0016,0x0408,0xc000,0x0000,0x0036,0x43d4,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x16,0xffff
0018 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call ; Debug Table 0x1.0x2 = 0x19,0xfffd
001b 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1b,0xfffc
001d 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0x4 = 0x1d,0xfffb
001f 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x5 = 0x1f,0xfffa
0021 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call ; Debug Table 0x1.0x6 = 0x21,0xfff9
0023 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call ; Debug Table 0x1.0x7 = 0x23,0xfff8
0025 62a6 |b | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x003643d4} ; Debug Table 0x1.0x8 = 0x25,0xfff7
0026 488e |H | Short_Literal 0x8e
0027 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0028 e001 | | Load 0x0,0x1
0029 0387 | | Declare_Variable Package
002a 00d8 | | Load_Top At_Offset_0
002b 020f | | Execute Module,Activate
002c e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x9 = 0x2c,0xfff6
002d 191c | | Execute Package,Field_Reference,Field_Number 0x1c
002e 0007 | | Action Break_Optional
002f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xa = 0x2f,0xfff5
0030 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0031 0007 | | Action Break_Optional
0032 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x1.0xb = 0x32,0xfff4
0034 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xc = 0x34,0xfff3
0035 00c7 | | Action Elaborate_Subprogram
0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xd = 0x36,0xfff2
0037 00c7 | | Action Elaborate_Subprogram
0038 00db | | Load_Top At_Offset_3 ; Debug Table 0x1.0xe = 0x38,0xfff1
0039 1910 | | Execute Package,Field_Reference,Field_Number 0x10
003a 0007 | | Action Break_Optional
003b 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call ; Debug Table 0x1.0xf = 0x3b,0xfff0
003d 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x10 = 0x3d,0xffef
003f 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call ; Debug Table 0x1.0x11 = 0x3f,0xffee
0041 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call ; Debug Table 0x1.0x12 = 0x41,0xffed
0043 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x13 = 0x43,0xffec
0044 00c7 | | Action Elaborate_Subprogram
0045 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x14 = 0x45,0xffeb
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0053,0x0434,0x1002,0x0000,0x0036,0x43a4,0x0000,0x005f
; Debug Table 0x2.0x0 = 0x53,0x1
0054 01da | | Execute Vector,Bounds
0055 0264 | d | Execute Discrete,Below_Bound
0056 700d |p | Jump_Nonzero 0x64
0057 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x57,0x2
0058 e5ff | | Load 0x2,-0x1
0059 01d7 | | Execute Vector,Field_Read
005a 0f2e | . | Execute_Immediate Equal,0x2e
005b 6807 |h | Jump_Zero 0x63
005c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x5c,0x3
005d e5ff | | Load 0x2,-0x1
005e 01dc | | Execute Vector,Last
005f e5ff | | Load 0x2,-0x1
0060 01cf | | Execute Vector,Slice_Read
0061 8223 | # | Call 0x1,0x23
0062 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0063 37f3 |7 | Loop_Decreasing 0x57
0064 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x3 = 0x64,0x4
0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0066 0000 0000 | | .XXX[0x2]
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 ; Debug Table 0x3 = .DEBUG 0x006b,0x043e,0x1002,0x0000,0x0036,0x43a4,0x0000,0x0068
; Debug Table 0x3.0x0 = 0x6b,0x1
006c 01da | | Execute Vector,Bounds
006d 0264 | d | Execute Discrete,Below_Bound
006e 700f |p | Jump_Nonzero 0x7e
006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x6f,0x2
0070 e5ff | | Load 0x2,-0x1
0071 01d7 | | Execute Vector,Field_Read
0072 0f3a | : | Execute_Immediate Equal,0x3a
0073 6809 |h | Jump_Zero 0x7d
0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x74,0x3
0075 0a01 | | Execute_Immediate Plus,0x1
0076 0248 | H | Execute Discrete,Check_In_Integer
0077 e5ff | | Load 0x2,-0x1
0078 01dc | | Execute Vector,Last
0079 e5ff | | Load 0x2,-0x1
007a 01cf | | Execute Vector,Slice_Read
007b 0335 | 5 | Declare_Variable Array,Duplicate
007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007d 37f1 |7 | Loop_Decreasing 0x6f
007e 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x7e,0x4
007f 0335 | 5 | Declare_Variable Array,Duplicate
0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0093 | | .CONST 0x0093 ; Address of begin
0089 00dc | | .CONST 0x00dc ; Address of exception handler
008a 0005 | | .CONST 0x0005 ; Number of locals
008b INIT_0088:
008b 4820 |H | Short_Literal 0x20 ; Debug Table 0x4 = .DEBUG 0x008b,0x0448,0x1001,0x0000,0x0036,0x43a4,0x0000,0x0071
; Debug Table 0x4.0x0 = 0x8b,0xffff
008c 00db | | Load_Top At_Offset_3
008d 8222 | " | Call 0x1,0x22
008e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x8e,0xfffe
008f 8217 | | Call 0x1,0x17
0090 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x2 = 0x90,0xfffd
0091 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x3 = 0x91,0xfffc
0092 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0093 BODY_0088:
0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x4 = 0x93,0x1
0094 01db | | Execute Vector,Length
0095 0d01 | | Execute_Immediate Less,0x1
0096 6801 |h | Jump_Zero 0x98
0097 783d |x= | Jump 0xd5 ; Debug Table 0x4.0x5 = 0x97,0x2
0098 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x6 = 0x98,0x3
0099 8226 | & | Call 0x1,0x26
009a 6807 |h | Jump_Zero 0xa2
009b e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x7 = 0x9b,0x4
009c e5fe | | Load 0x2,-0x2
009d e402 | | Load 0x2,0x2
009e 8219 | | Call 0x1,0x19
009f 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x8 = 0x9f,0x5
00a0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00a1 7833 |x3 | Jump 0xd5
00a2 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x9 = 0xa2,0x6
00a3 8225 | % | Call 0x1,0x25
00a4 6816 |h | Jump_Zero 0xbb
00a5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0xa = 0xa5,0x7
00a6 702e |p. | Jump_Nonzero 0xd5
00a7 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xb = 0xa7,0x8
00a8 e221 | ! | Load 0x1,0x21
00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00aa 6809 |h | Jump_Zero 0xb4
00ab 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0xc = 0xab,0x9
00ac e5fd | | Load 0x2,-0x3
00ad e403 | | Load 0x2,0x3
00ae e402 | | Load 0x2,0x2
00af 8228 | ( | Call 0x1,0x28
00b0 005a | Z | Store_Top Discrete,At_Offset_2
00b1 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xd = 0xb1,0xa
00b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00b3 7821 |x! | Jump 0xd5
00b4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xe = 0xb4,0xb
00b5 00db | | Load_Top At_Offset_3
00b6 0092 02d1 | | Action Push_String_Extended,0x2d1 ; " already exists."
00b8 01cc | | Execute Vector,Catenate
00b9 8229 | ) | Call 0x1,0x29
00ba 781a |x | Jump 0xd5
00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xf = 0xbb,0xc
00bc e221 | ! | Load 0x1,0x21
00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00be 6811 |h | Jump_Zero 0xd0
00bf 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x10 = 0xbf,0xd
00c0 e5fd | | Load 0x2,-0x3
00c1 e403 | | Load 0x2,0x3
00c2 e402 | | Load 0x2,0x2
00c3 8228 | ( | Call 0x1,0x28
00c4 c5fb | | Store 0x2,-0x5
00c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x11 = 0xc5,0xe
00c6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00c7 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0x12 = 0xc7,0xf
00c8 680c |h | Jump_Zero 0xd5
00c9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x13 = 0xc9,0x10
00ca 00db | | Load_Top At_Offset_3
00cb 0092 02d2 | | Action Push_String_Extended,0x2d2 ; " is a preloaded subystem."
00cd 01cc | | Execute Vector,Catenate
00ce 8229 | ) | Call 0x1,0x29
00cf 7805 |x | Jump 0xd5
00d0 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x14 = 0xd0,0x11
00d1 0092 02d3 | | Action Push_String_Extended,0x2d3 ; " cannot be written to EEDB."
00d3 01cc | | Execute Vector,Catenate
00d4 821e | | Call 0x1,0x1e
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x15 = 0xd5,0x12
00d6 7002 |p | Jump_Nonzero 0xd9
00d7 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x16 = 0xd7,0x13
00d8 8213 | | Call 0x1,0x13
00d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x17 = 0xd9,0x14
00da a5fc | | Store_Unchecked 0x2,-0x4
00db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00dc TRAP_0088:
00dc 0007 | | Action Break_Optional
00dd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x18 = 0xdd,0x15
00de a5fc | | Store_Unchecked 0x2,-0x4
00df 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f8 | | .CONST 0x00f8 ; Address of begin
00e1 0112 | | .CONST 0x0112 ; Address of exception handler
00e2 000a | | .CONST 0x000a ; Number of locals
00e3 INIT_00e0:
00e3 e20f | | Load 0x1,0xf ; Debug Table 0x5 = .DEBUG 0x00e3,0x047c,0x1001,0x0000,0x0036,0x43a4,0x0000,0x008b
; Debug Table 0x5.0x0 = 0xe3,0xffff
00e4 02c7 | | Declare_Variable Any
00e5 00d8 | | Load_Top At_Offset_0
00e6 1c00 | | Execute_Immediate Run_Utility,0x0
00e7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x1 = 0xe7,0xfffe
00e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x2 = 0xe9,0xfffd
00ea 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x3 = 0xea,0xfffc
00eb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ec 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x4 = 0xec,0xfffb
00ed e5fd | | Load 0x2,-0x3
00ee 00e9 | | Load_Encached String_Cache
00ef 0334 | 4 | Declare_Variable Array,With_Constraint
00f0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x5 = 0xf0,0xfffa
00f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f2 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x6 = 0xf2,0xfff9
00f3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f4 029f 0213 | | Declare_Subprogram INIT_0210,For_Call ; Debug Table 0x5.0x7 = 0xf4,0xfff8
00f6 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call ; Debug Table 0x5.0x8 = 0xf6,0xfff7
00f8 BODY_00e0:
00f8 00be | | Action Activate_Tasks
00f9 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x9 = 0xf9,0x1
00fa e5ff | | Load 0x2,-0x1
00fb 8210 | | Call 0x1,0x10
00fc c402 | | Store 0x2,0x2
00fd 780d |x | Jump 0x10b
00fe e403 | | Load 0x2,0x3 ; Debug Table 0x5.0xa = 0xfe,0x3
00ff 00e1 | | Load_Encached Boolean_Cache
0100 e5fd | | Load 0x2,-0x3
0101 e5fe | | Load 0x2,-0x2
0102 8409 | | Call 0x2,0x9
0103 8218 | | Call 0x1,0x18
0104 c404 | | Store 0x2,0x4
0105 c403 | | Store 0x2,0x3
0106 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xb = 0x106,0x4
0107 6803 |h | Jump_Zero 0x10b
0108 e405 | | Load 0x2,0x5 ; Debug Table 0x5.0xc = 0x108,0x5
0109 0a01 | | Execute_Immediate Plus,0x1
010a c405 | | Store 0x2,0x5
010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xd = 0x10b,0x2
010c 6ff1 |o | Jump_Zero 0xfe
010d e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xe = 0x10d,0x6
010e 8211 | | Call 0x1,0x11
010f c402 | | Store 0x2,0x2
0110 840a | | Call 0x2,0xa ; Debug Table 0x5.0xf = 0x110,0x7
0111 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0112 TRAP_00e0:
0112 0007 | | Action Break_Optional
0113 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x10 = 0x113,0x8
0114 8211 | | Call 0x1,0x11
0115 c402 | | Store 0x2,0x2
0116 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "while reading "
; Debug Table 0x5.0x11 = 0x116,0x9
0118 e5ff | | Load 0x2,-0x1
0119 01cc | | Execute Vector,Catenate
011a 821f | | Call 0x1,0x1f
011b 840a | | Call 0x2,0xa ; Debug Table 0x5.0x12 = 0x11b,0xa
011c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 0092 02d5 | | Action Push_String_Extended,0x2d5 ; " "
; Debug Table 0x6 = .DEBUG 0x0123,0x04a4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0016
; Debug Table 0x6.0x0 = 0x123,0x1
0125 00db | | Load_Top At_Offset_3
0126 01cc | | Execute Vector,Catenate
0127 8214 | | Call 0x1,0x14
0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "*** "
; Debug Table 0x7 = .DEBUG 0x0133,0x04a8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x002a
; Debug Table 0x7.0x0 = 0x133,0x1
0135 00db | | Load_Top At_Offset_3
0136 01cc | | Execute Vector,Catenate
0137 8214 | | Call 0x1,0x14
0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0139 0000 0000 | | .BLANK 0000[0x7]
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 0092 02d7 | | Action Push_String_Extended,0x2d7 ; "+++ "
; Debug Table 0x8 = .DEBUG 0x0143,0x04ac,0x1001,0x0000,0x0036,0x43d4,0x0000,0x003e
; Debug Table 0x8.0x0 = 0x143,0x1
0145 00db | | Load_Top At_Offset_3
0146 01cc | | Execute Vector,Catenate
0147 8214 | | Call 0x1,0x14
0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "++* "
; Debug Table 0x9 = .DEBUG 0x0153,0x04b0,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0052
; Debug Table 0x9.0x0 = 0x153,0x1
0155 00db | | Load_Top At_Offset_3
0156 01cc | | Execute Vector,Catenate
0157 8214 | | Call 0x1,0x14
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
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 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "%%% An exception was raised "
; Debug Table 0xa = .DEBUG 0x0163,0x04b4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0066
; Debug Table 0xa.0x0 = 0x163,0x1
0165 00db | | Load_Top At_Offset_3
0166 01cc | | Execute Vector,Catenate
0167 8214 | | Call 0x1,0x14
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 0092 02da | | Action Push_String_Extended,0x2da ; "::: "
; Debug Table 0xb = .DEBUG 0x0173,0x04b8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x007a
; Debug Table 0xb.0x0 = 0x173,0x1
0175 00db | | Load_Top At_Offset_3
0176 01cc | | Execute Vector,Catenate
0177 8214 | | Call 0x1,0x14
0178 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4820 |H | Short_Literal 0x20 ; Debug Table 0xc = .DEBUG 0x0183,0x04bc,0x1002,0x0000,0x0036,0x43d4,0x0000,0x00b5
; Debug Table 0xc.0x0 = 0x183,0x1
0184 00db | | Load_Top At_Offset_3
0185 00e0 | | Load_Encached Standard_Cache
0186 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0187 8222 | " | Call 0x1,0x22
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 0000 0000 | | .BLANK 0000[0x7]
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 ; Debug Table 0xd = .DEBUG 0x0193,0x04c0,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0131
; Debug Table 0xd.0x0 = 0x193,0x1
0194 8216 | | Call 0x1,0x16
0195 e21a | | Load 0x1,0x1a
0196 01df | | Execute Vector,Equal
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a4 | | .CONST 0x01a4 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b 4800 |H | Short_Literal 0x0 ; Debug Table 0xe = .DEBUG 0x019b,0x04c4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0147
; Debug Table 0xe.0x0 = 0x19b,0xffff
019c e5fe | | Load 0x2,-0x2
019d 01db | | Execute Vector,Length
019e 0aff | | Execute_Immediate Plus,-0x1
019f 0248 | H | Execute Discrete,Check_In_Integer
01a0 e003 | | Load 0x0,0x3
01a1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01a2 0334 | 4 | Declare_Variable Array,With_Constraint
01a3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xe.0x1 = 0x1a3,0xfffe
01a4 BODY_0198:
01a4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xe.0x2 = 0x1a4,0x1
01a5 00da | | Load_Top At_Offset_2
01a6 e5ff | | Load 0x2,-0x1
01a7 8212 | | Call 0x1,0x12
01a8 c5ff | | Store 0x2,-0x1
01a9 00d1 | | Pop_Control Pop_Count_1
01aa 0059 | Y | Store_Top Discrete,At_Offset_1
01ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x1ab,0x2
01ac 0aff | | Execute_Immediate Plus,-0x1
01ad 0248 | H | Execute Discrete,Check_In_Integer
01ae 4800 |H | Short_Literal 0x0
01af 0263 | c | Execute Discrete,Above_Bound
01b0 7011 |p | Jump_Nonzero 0x1c2
01b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x1b1,0x3
01b2 e402 | | Load 0x2,0x2
01b3 01d7 | | Execute Vector,Field_Read
01b4 00d8 | | Load_Top At_Offset_0
01b5 00e8 | | Load_Encached Character_Cache
01b6 0260 | ` | Execute Discrete,In_Type
01b7 7002 |p | Jump_Nonzero 0x1ba
01b8 48e0 |H | Short_Literal 0xe0
01b9 0257 | W | Execute Discrete,Raise
01ba e5fe | | Load 0x2,-0x2
01bb 01dd | | Execute Vector,First
01bc 00da | | Load_Top At_Offset_2
01bd 0273 | s | Execute Discrete,Plus
01be 0248 | H | Execute Discrete,Check_In_Integer
01bf e5fe | | Load 0x2,-0x2
01c0 01d6 | | Execute Vector,Field_Write
01c1 3fef |? | Loop_Increasing 0x1b1
01c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x5 = 0x1c2,0x4
01c3 a5fd | | Store_Unchecked 0x2,-0x3
01c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01e0 | | .CONST 0x01e0 ; Address of begin
01c9 01f2 | | .CONST 0x01f2 ; Address of exception handler
01ca 0008 | | .CONST 0x0008 ; Number of locals
01cb INIT_01c8:
01cb e20f | | Load 0x1,0xf ; Debug Table 0xf = .DEBUG 0x01cb,0x04d2,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0198
; Debug Table 0xf.0x0 = 0x1cb,0xffff
01cc 02c7 | | Declare_Variable Any
01cd 00d8 | | Load_Top At_Offset_0
01ce 1c00 | | Execute_Immediate Run_Utility,0x0
01cf e221 | ! | Load 0x1,0x21 ; Debug Table 0xf.0x1 = 0x1cf,0xfffe
01d0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01d1 0322 | " | Declare_Variable Record
01d2 00d8 | | Load_Top At_Offset_0
01d3 1c00 | | Execute_Immediate Run_Utility,0x0
01d4 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x2 = 0x1d4,0xfffd
01d5 e5fd | | Load 0x2,-0x3
01d6 e003 | | Load 0x0,0x3
01d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01d8 0334 | 4 | Declare_Variable Array,With_Constraint
01d9 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x3 = 0x1d9,0xfffc
01da 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x4 = 0x1da,0xfffb
01db 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01dc 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
01de 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
01e0 BODY_01c8:
01e0 00be | | Action Activate_Tasks
01e1 8407 | | Call 0x2,0x7 ; Debug Table 0xf.0x5 = 0x1e1,0x1
01e2 8408 | | Call 0x2,0x8 ; Debug Table 0xf.0x6 = 0x1e2,0x2
01e3 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x7 = 0x1e3,0x3
01e4 8211 | | Call 0x1,0x11
01e5 c402 | | Store 0x2,0x2
01e6 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0x8 = 0x1e6,0x4
01e7 0092 02db | | Action Push_String_Extended,0x2db ; " ("
01e9 01cc | | Execute Vector,Catenate
01ea 00db | | Load_Top At_Offset_3
01eb 8224 | $ | Call 0x1,0x24
01ec 01cc | | Execute Vector,Catenate
01ed 0092 02dc | | Action Push_String_Extended,0x2dc ; " bytes)"
01ef 01cc | | Execute Vector,Catenate
01f0 821d | | Call 0x1,0x1d
01f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f2 TRAP_01c8:
01f2 0007 | | Action Break_Optional
01f3 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x9 = 0x1f3,0x5
01f4 8211 | | Call 0x1,0x11
01f5 c402 | | Store 0x2,0x2
01f6 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0xa = 0x1f6,0x6
01f7 0092 02db | | Action Push_String_Extended,0x2db ; " ("
01f9 01cc | | Execute Vector,Catenate
01fa e406 | | Load 0x2,0x6
01fb 8224 | $ | Call 0x1,0x24
01fc 01cc | | Execute Vector,Catenate
01fd 0092 02dc | | Action Push_String_Extended,0x2dc ; " bytes)"
01ff 01cc | | Execute Vector,Catenate
0200 821e | | Call 0x1,0x1e
0201 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0xb = 0x201,0x7
0202 0101 | | Execute Exception,Reraise
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x020b,0x04ec,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0261
; Debug Table 0x10.0x0 = 0x20b,0x1
020c 6802 |h | Jump_Zero 0x20f
020d 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x1 = 0x20d,0x2
020e 821b | | Call 0x1,0x1b
020f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0217 | | .CONST 0x0217 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 029f 029b | | Declare_Subprogram INIT_0298,For_Call ; Debug Table 0x11 = .DEBUG 0x0213,0x04f2,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0376
0215 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
0217 BODY_0210:
0217 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x0 = 0x217,0x1
0218 700d |p | Jump_Nonzero 0x226
0219 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x11.0x1 = 0x219,0x2
021a e406 | | Load 0x2,0x6
021b e402 | | Load 0x2,0x2
021c 8227 | ' | Call 0x1,0x27
021d c402 | | Store 0x2,0x2
021e 00d1 | | Pop_Control Pop_Count_1
021f c407 | | Store 0x2,0x7
0220 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x2 = 0x220,0x3
0221 7004 |p | Jump_Nonzero 0x226
0222 4801 |H | Short_Literal 0x1 ; Debug Table 0x11.0x3 = 0x222,0x4
0223 a408 | | Store_Unchecked 0x2,0x8
0224 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x11.0x4 = 0x224,0x5
0225 00ca | | Action Exit_Nullary_Function
0226 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x5 = 0x226,0x6
0227 4801 |H | Short_Literal 0x1
0228 0263 | c | Execute Discrete,Above_Bound
0229 7007 |p | Jump_Nonzero 0x231
022a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x6 = 0x22a,0x7
022b e406 | | Load 0x2,0x6
022c 01d7 | | Execute Vector,Field_Read
022d 0f0a | | Execute_Immediate Equal,0xa
022e 6801 |h | Jump_Zero 0x230
022f 8602 | | Call 0x3,0x2 ; Debug Table 0x11.0x7 = 0x22f,0x8
0230 3ff9 |? | Loop_Increasing 0x22a
0231 8603 | | Call 0x3,0x3 ; Debug Table 0x11.0x8 = 0x231,0x9
0232 4831 |H1 | Short_Literal 0x31
0233 0257 | W | Execute Discrete,Raise
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e405 | | Load 0x2,0x5 ; Debug Table 0x12 = .DEBUG 0x023b,0x0506,0x1001,0x0000,0x0036,0x43d4,0x0000,0x03f1
; Debug Table 0x12.0x0 = 0x23b,0x1
023c 0f01 | | Execute_Immediate Equal,0x1
023d 6806 |h | Jump_Zero 0x244
023e 0092 02dd | | Action Push_String_Extended,0x2dd ; "1 file read via "
; Debug Table 0x12.0x1 = 0x23e,0x2
0240 e5ff | | Load 0x2,-0x1
0241 01cc | | Execute Vector,Catenate
0242 8220 | | Call 0x1,0x20
0243 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0244 e405 | | Load 0x2,0x5 ; Debug Table 0x12.0x2 = 0x244,0x3
0245 8224 | $ | Call 0x1,0x24
0246 0092 02de | | Action Push_String_Extended,0x2de ; " files read via "
0248 01cc | | Execute Vector,Catenate
0249 e5ff | | Load 0x2,-0x1
024a 01cc | | Execute Vector,Catenate
024b 8220 | | Call 0x1,0x20
024c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0258 | X | .CONST 0x0258 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e402 | | Load 0x2,0x2 ; Debug Table 0x13 = .DEBUG 0x0253,0x050e,0x1004,0x0000,0x0036,0x43d4,0x0000,0x01e3
; Debug Table 0x13.0x0 = 0x253,0x1
0254 e5ff | | Load 0x2,-0x1
0255 8210 | | Call 0x1,0x10
0256 c402 | | Store 0x2,0x2
0257 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0258 TRAP_0250:
0258 0007 | | Action Break_Optional
0259 0092 02df | | Action Push_String_Extended,0x2df ; "while opening "
; Debug Table 0x13.0x1 = 0x259,0x2
025b e5ff | | Load 0x2,-0x1
025c 01cc | | Execute Vector,Catenate
025d 821f | | Call 0x1,0x1f
025e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x2 = 0x25e,0x3
025f 0101 | | Execute Exception,Reraise
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0286 | | .CONST 0x0286 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 e403 | | Load 0x2,0x3 ; Debug Table 0x14 = .DEBUG 0x0263,0x0516,0x1004,0x0000,0x0036,0x43d4,0x0000,0x0229
; Debug Table 0x14.0x0 = 0x263,0x1
0264 e5fe | | Load 0x2,-0x2
0265 e221 | ! | Load 0x1,0x21
0266 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0267 00d1 | | Pop_Control Pop_Count_1
0268 0007 | | Action Break_Optional ; Debug Table 0x14.0x1 = 0x268,0x2
0269 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x14.0x2 = 0x269,0x3
026a e404 | | Load 0x2,0x4
026b e402 | | Load 0x2,0x2
026c 8212 | | Call 0x1,0x12
026d c402 | | Store 0x2,0x2
026e 00d1 | | Pop_Control Pop_Count_1
026f c405 | | Store 0x2,0x5
0270 e405 | | Load 0x2,0x5 ; Debug Table 0x14.0x3 = 0x270,0x4
0271 680d |h | Jump_Zero 0x27f
0272 e403 | | Load 0x2,0x3 ; Debug Table 0x14.0x4 = 0x272,0x5
0273 4801 |H | Short_Literal 0x1
0274 e405 | | Load 0x2,0x5
0275 e404 | | Load 0x2,0x4
0276 01cf | | Execute Vector,Slice_Read
0277 e221 | ! | Load 0x1,0x21
0278 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0279 00d1 | | Pop_Control Pop_Count_1
027a e406 | | Load 0x2,0x6 ; Debug Table 0x14.0x5 = 0x27a,0x6
027b e405 | | Load 0x2,0x5
027c 0273 | s | Execute Discrete,Plus
027d c406 | | Store 0x2,0x6
027e 7fea | | Jump 0x269
027f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x6 = 0x27f,0x7
0280 e403 | | Load 0x2,0x3
0281 e221 | ! | Load 0x1,0x21
0282 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0283 00d1 | | Pop_Control Pop_Count_1
0284 c5fc | | Store 0x2,-0x4
0285 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0286 TRAP_0260:
0286 0007 | | Action Break_Optional
0287 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x7 = 0x287,0x8
0288 e403 | | Load 0x2,0x3
0289 e221 | ! | Load 0x1,0x21
028a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
028b 00d1 | | Pop_Control Pop_Count_1
028c c5fc | | Store 0x2,-0x4
028d 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "while reading "
; Debug Table 0x14.0x8 = 0x28d,0x9
028f e5ff | | Load 0x2,-0x1
0290 01cc | | Execute Vector,Catenate
0291 821f | | Call 0x1,0x1f
0292 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x9 = 0x292,0xa
0293 0101 | | Execute Exception,Reraise
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a4 | | .CONST 0x02a4 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b 4801 |H | Short_Literal 0x1 ; Debug Table 0x15 = .DEBUG 0x029b,0x052c,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03d0
; Debug Table 0x15.0x0 = 0x29b,0xffff
029c e605 | | Load 0x3,0x5
029d 0aff | | Execute_Immediate Plus,-0x1
029e 0248 | H | Execute Discrete,Check_In_Integer
029f e406 | | Load 0x2,0x6
02a0 01cf | | Execute Vector,Slice_Read
02a1 0335 | 5 | Declare_Variable Array,Duplicate
02a2 00d0 | | Action Swap_Control
02a3 00d1 | | Pop_Control Pop_Count_1
02a4 BODY_0298:
02a4 e605 | | Load 0x3,0x5 ; Debug Table 0x15.0x1 = 0x2a4,0x1
02a5 0a01 | | Execute_Immediate Plus,0x1
02a6 0248 | H | Execute Discrete,Check_In_Integer
02a7 e407 | | Load 0x2,0x7
02a8 e406 | | Load 0x2,0x6
02a9 01cf | | Execute Vector,Slice_Read
02aa 4801 |H | Short_Literal 0x1
02ab e407 | | Load 0x2,0x7
02ac e605 | | Load 0x3,0x5
02ad 0272 | r | Execute Discrete,Minus
02ae 0248 | H | Execute Discrete,Check_In_Integer
02af e406 | | Load 0x2,0x6
02b0 01ce | | Execute Vector,Slice_Write
02b1 e407 | | Load 0x2,0x7 ; Debug Table 0x15.0x2 = 0x2b1,0x2
02b2 e605 | | Load 0x3,0x5
02b3 0272 | r | Execute Discrete,Minus
02b4 c407 | | Store 0x2,0x7
02b5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x3 = 0x2b5,0x3
02b6 00cb | | Action Pop_Block_With_Result
02b7 00ca | | Action Exit_Nullary_Function
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c2 | | .CONST 0x02c2 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x16 = .DEBUG 0x02bb,0x0536,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03ec
; Debug Table 0x16.0x0 = 0x2bb,0xffff
02bc e407 | | Load 0x2,0x7
02bd e406 | | Load 0x2,0x6
02be 01cf | | Execute Vector,Slice_Read
02bf 0335 | 5 | Declare_Variable Array,Duplicate
02c0 00d0 | | Action Swap_Control
02c1 00d1 | | Pop_Control Pop_Count_1
02c2 BODY_02b8:
02c2 4800 |H | Short_Literal 0x0 ; Debug Table 0x16.0x1 = 0x2c2,0x1
02c3 a407 | | Store_Unchecked 0x2,0x7
02c4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0x2 = 0x2c4,0x2
02c5 8409 | | Call 0x2,0x9
02c6 01cc | | Execute Vector,Catenate
02c7 00cb | | Action Pop_Block_With_Result
02c8 00ca | | Action Exit_Nullary_Function
02c9 0000 0000 | | .XXX[0x3]
02cb 0000 | |
02cc 0000 0000 | | .LITERAL {0x00000000, 0x003643d4}
02d0 ; --------------------------------------------------------------------------------------
02d0 ; STRING TABLE
02d0 ; --------------------------------------------------------------------------------------
02d0 0022 | " | .STRTAB 0x0022->0x02e1 ; ".XFER"
02d1 0025 | % | .STRTAB 0x0025->0x02e3 ; " already exists."
02d2 0033 | 3 | .STRTAB 0x0033->0x02eb ; " is a preloaded subystem."
02d3 004a | J | .STRTAB 0x004a->0x02f8 ; " cannot be written to EEDB."
02d4 0063 | c | .STRTAB 0x0063->0x0305 ; "while reading "
02d5 006f | o | .STRTAB 0x006f->0x030c ; " "
02d6 0071 | q | .STRTAB 0x0071->0x030e ; "*** "
02d7 0073 | s | .STRTAB 0x0073->0x0310 ; "+++ "
02d8 0075 | u | .STRTAB 0x0075->0x0312 ; "++* "
02d9 0077 | w | .STRTAB 0x0077->0x0314 ; "%%% An exception was raised "
02da 0091 | | .STRTAB 0x0091->0x0322 ; "::: "
02db 0093 | | .STRTAB 0x0093->0x0324 ; " ("
02dc 0093 | | .STRTAB 0x0093->0x0325 ; " bytes)"
02dd 0098 | | .STRTAB 0x0098->0x0329 ; "1 file read via "
02de 00a6 | | .STRTAB 0x00a6->0x0331 ; " files read via "
02df 00b4 | | .STRTAB 0x00b4->0x0339 ; "while opening "
02e0 00c0 | | .STREND 0x00c0->0x0340
02e1 2e58 4645 |.XFE| .STRTAB_STRINGS
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0003 0017 | | .CONST 0x0003,0x0017
0342 000b 03fa | | .DEBUG 0x000b,0x03fa,0xc000,0x0000,0x0036,0x43a4,0x0000,0x0007
034a 0016 0408 | | .DEBUG 0x0016,0x0408,0xc000,0x0000,0x0036,0x43d4,0x0000,0x0007
0352 0053 0434 | S 4| .DEBUG 0x0053,0x0434,0x1002,0x0000,0x0036,0x43a4,0x0000,0x005f
035a 006b 043e | k >| .DEBUG 0x006b,0x043e,0x1002,0x0000,0x0036,0x43a4,0x0000,0x0068
0362 008b 0448 | H| .DEBUG 0x008b,0x0448,0x1001,0x0000,0x0036,0x43a4,0x0000,0x0071
036a 00e3 047c | || .DEBUG 0x00e3,0x047c,0x1001,0x0000,0x0036,0x43a4,0x0000,0x008b
0372 0123 04a4 | # | .DEBUG 0x0123,0x04a4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0016
037a 0133 04a8 | 3 | .DEBUG 0x0133,0x04a8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x002a
0382 0143 04ac | C | .DEBUG 0x0143,0x04ac,0x1001,0x0000,0x0036,0x43d4,0x0000,0x003e
038a 0153 04b0 | S | .DEBUG 0x0153,0x04b0,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0052
0392 0163 04b4 | c | .DEBUG 0x0163,0x04b4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0066
039a 0173 04b8 | s | .DEBUG 0x0173,0x04b8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x007a
03a2 0183 04bc | | .DEBUG 0x0183,0x04bc,0x1002,0x0000,0x0036,0x43d4,0x0000,0x00b5
03aa 0193 04c0 | | .DEBUG 0x0193,0x04c0,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0131
03b2 019b 04c4 | | .DEBUG 0x019b,0x04c4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0147
03ba 01cb 04d2 | | .DEBUG 0x01cb,0x04d2,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0198
03c2 020b 04ec | | .DEBUG 0x020b,0x04ec,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0261
03ca 0213 04f2 | | .DEBUG 0x0213,0x04f2,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0376
03d2 023b 0506 | ; | .DEBUG 0x023b,0x0506,0x1001,0x0000,0x0036,0x43d4,0x0000,0x03f1
03da 0253 050e | S | .DEBUG 0x0253,0x050e,0x1004,0x0000,0x0036,0x43d4,0x0000,0x01e3
03e2 0263 0516 | c | .DEBUG 0x0263,0x0516,0x1004,0x0000,0x0036,0x43d4,0x0000,0x0229
03ea 029b 052c | ,| .DEBUG 0x029b,0x052c,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03d0
03f2 02bb 0536 | 6| .DEBUG 0x02bb,0x0536,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03ec
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0x0
03fa ; --------------------------------------------------------------------------------------
03fa 0006 0000 | | .DBG3TAB 0x0006,0x0000
03fc 000b ffff | | .CONST 0x000b,0xffff
03fe 000c fffe | | .CONST 0x000c,0xfffe
0400 000d fffd | | .CONST 0x000d,0xfffd
0402 000f fffc | | .CONST 0x000f,0xfffc
0404 0011 fffb | | .CONST 0x0011,0xfffb
0406 0013 fffa | | .CONST 0x0013,0xfffa
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug3 Subtable 0x1
0408 ; --------------------------------------------------------------------------------------
0408 0015 0000 | | .DBG3TAB 0x0015,0x0000
040a 0016 ffff | | .CONST 0x0016,0xffff
040c 0018 fffe | | .CONST 0x0018,0xfffe
040e 0019 fffd | | .CONST 0x0019,0xfffd
0410 001b fffc | | .CONST 0x001b,0xfffc
0412 001d fffb | | .CONST 0x001d,0xfffb
0414 001f fffa | | .CONST 0x001f,0xfffa
0416 0021 fff9 | ! | .CONST 0x0021,0xfff9
0418 0023 fff8 | # | .CONST 0x0023,0xfff8
041a 0025 fff7 | % | .CONST 0x0025,0xfff7
041c 002c fff6 | , | .CONST 0x002c,0xfff6
041e 002f fff5 | / | .CONST 0x002f,0xfff5
0420 0032 fff4 | 2 | .CONST 0x0032,0xfff4
0422 0034 fff3 | 4 | .CONST 0x0034,0xfff3
0424 0036 fff2 | 6 | .CONST 0x0036,0xfff2
0426 0038 fff1 | 8 | .CONST 0x0038,0xfff1
0428 003b fff0 | ; | .CONST 0x003b,0xfff0
042a 003d ffef | = | .CONST 0x003d,0xffef
042c 003f ffee | ? | .CONST 0x003f,0xffee
042e 0041 ffed | A | .CONST 0x0041,0xffed
0430 0043 ffec | C | .CONST 0x0043,0xffec
0432 0045 ffeb | E | .CONST 0x0045,0xffeb
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug3 Subtable 0x2
0434 ; --------------------------------------------------------------------------------------
0434 0000 0004 | | .DBG3TAB 0x0000,0x0004
0436 0053 0001 | S | .CONST 0x0053,0x0001
0438 0057 0002 | W | .CONST 0x0057,0x0002
043a 005c 0003 | \ | .CONST 0x005c,0x0003
043c 0064 0004 | d | .CONST 0x0064,0x0004
043e ; --------------------------------------------------------------------------------------
043e ; Debug3 Subtable 0x3
043e ; --------------------------------------------------------------------------------------
043e 0000 0004 | | .DBG3TAB 0x0000,0x0004
0440 006b 0001 | k | .CONST 0x006b,0x0001
0442 006f 0002 | o | .CONST 0x006f,0x0002
0444 0074 0003 | t | .CONST 0x0074,0x0003
0446 007e 0004 | ~ | .CONST 0x007e,0x0004
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug3 Subtable 0x4
0448 ; --------------------------------------------------------------------------------------
0448 0004 0015 | | .DBG3TAB 0x0004,0x0015
044a 008b ffff | | .CONST 0x008b,0xffff
044c 008e fffe | | .CONST 0x008e,0xfffe
044e 0090 fffd | | .CONST 0x0090,0xfffd
0450 0091 fffc | | .CONST 0x0091,0xfffc
0452 0093 0001 | | .CONST 0x0093,0x0001
0454 0097 0002 | | .CONST 0x0097,0x0002
0456 0098 0003 | | .CONST 0x0098,0x0003
0458 009b 0004 | | .CONST 0x009b,0x0004
045a 009f 0005 | | .CONST 0x009f,0x0005
045c 00a2 0006 | | .CONST 0x00a2,0x0006
045e 00a5 0007 | | .CONST 0x00a5,0x0007
0460 00a7 0008 | | .CONST 0x00a7,0x0008
0462 00ab 0009 | | .CONST 0x00ab,0x0009
0464 00b1 000a | | .CONST 0x00b1,0x000a
0466 00b4 000b | | .CONST 0x00b4,0x000b
0468 00bb 000c | | .CONST 0x00bb,0x000c
046a 00bf 000d | | .CONST 0x00bf,0x000d
046c 00c5 000e | | .CONST 0x00c5,0x000e
046e 00c7 000f | | .CONST 0x00c7,0x000f
0470 00c9 0010 | | .CONST 0x00c9,0x0010
0472 00d0 0011 | | .CONST 0x00d0,0x0011
0474 00d5 0012 | | .CONST 0x00d5,0x0012
0476 00d7 0013 | | .CONST 0x00d7,0x0013
0478 00d9 0014 | | .CONST 0x00d9,0x0014
047a 00dd 0015 | | .CONST 0x00dd,0x0015
047c ; --------------------------------------------------------------------------------------
047c ; Debug3 Subtable 0x5
047c ; --------------------------------------------------------------------------------------
047c 0009 000a | | .DBG3TAB 0x0009,0x000a
047e 00e3 ffff | | .CONST 0x00e3,0xffff
0480 00e7 fffe | | .CONST 0x00e7,0xfffe
0482 00e9 fffd | | .CONST 0x00e9,0xfffd
0484 00ea fffc | | .CONST 0x00ea,0xfffc
0486 00ec fffb | | .CONST 0x00ec,0xfffb
0488 00f0 fffa | | .CONST 0x00f0,0xfffa
048a 00f2 fff9 | | .CONST 0x00f2,0xfff9
048c 00f4 fff8 | | .CONST 0x00f4,0xfff8
048e 00f6 fff7 | | .CONST 0x00f6,0xfff7
0490 00f9 0001 | | .CONST 0x00f9,0x0001
0492 00fe 0003 | | .CONST 0x00fe,0x0003
0494 0106 0004 | | .CONST 0x0106,0x0004
0496 0108 0005 | | .CONST 0x0108,0x0005
0498 010b 0002 | | .CONST 0x010b,0x0002
049a 010d 0006 | | .CONST 0x010d,0x0006
049c 0110 0007 | | .CONST 0x0110,0x0007
049e 0113 0008 | | .CONST 0x0113,0x0008
04a0 0116 0009 | | .CONST 0x0116,0x0009
04a2 011b 000a | | .CONST 0x011b,0x000a
04a4 ; --------------------------------------------------------------------------------------
04a4 ; Debug3 Subtable 0x6
04a4 ; --------------------------------------------------------------------------------------
04a4 0000 0001 | | .DBG3TAB 0x0000,0x0001
04a6 0123 0001 | # | .CONST 0x0123,0x0001
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x7
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0001 | | .DBG3TAB 0x0000,0x0001
04aa 0133 0001 | 3 | .CONST 0x0133,0x0001
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug3 Subtable 0x8
04ac ; --------------------------------------------------------------------------------------
04ac 0000 0001 | | .DBG3TAB 0x0000,0x0001
04ae 0143 0001 | C | .CONST 0x0143,0x0001
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug3 Subtable 0x9
04b0 ; --------------------------------------------------------------------------------------
04b0 0000 0001 | | .DBG3TAB 0x0000,0x0001
04b2 0153 0001 | S | .CONST 0x0153,0x0001
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0xa
04b4 ; --------------------------------------------------------------------------------------
04b4 0000 0001 | | .DBG3TAB 0x0000,0x0001
04b6 0163 0001 | c | .CONST 0x0163,0x0001
04b8 ; --------------------------------------------------------------------------------------
04b8 ; Debug3 Subtable 0xb
04b8 ; --------------------------------------------------------------------------------------
04b8 0000 0001 | | .DBG3TAB 0x0000,0x0001
04ba 0173 0001 | s | .CONST 0x0173,0x0001
04bc ; --------------------------------------------------------------------------------------
04bc ; Debug3 Subtable 0xc
04bc ; --------------------------------------------------------------------------------------
04bc 0000 0001 | | .DBG3TAB 0x0000,0x0001
04be 0183 0001 | | .CONST 0x0183,0x0001
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0xd
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0001 | | .DBG3TAB 0x0000,0x0001
04c2 0193 0001 | | .CONST 0x0193,0x0001
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug3 Subtable 0xe
04c4 ; --------------------------------------------------------------------------------------
04c4 0002 0004 | | .DBG3TAB 0x0002,0x0004
04c6 019b ffff | | .CONST 0x019b,0xffff
04c8 01a3 fffe | | .CONST 0x01a3,0xfffe
04ca 01a4 0001 | | .CONST 0x01a4,0x0001
04cc 01ab 0002 | | .CONST 0x01ab,0x0002
04ce 01b1 0003 | | .CONST 0x01b1,0x0003
04d0 01c2 0004 | | .CONST 0x01c2,0x0004
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug3 Subtable 0xf
04d2 ; --------------------------------------------------------------------------------------
04d2 0005 0007 | | .DBG3TAB 0x0005,0x0007
04d4 01cb ffff | | .CONST 0x01cb,0xffff
04d6 01cf fffe | | .CONST 0x01cf,0xfffe
04d8 01d4 fffd | | .CONST 0x01d4,0xfffd
04da 01d9 fffc | | .CONST 0x01d9,0xfffc
04dc 01da fffb | | .CONST 0x01da,0xfffb
04de 01e1 0001 | | .CONST 0x01e1,0x0001
04e0 01e2 0002 | | .CONST 0x01e2,0x0002
04e2 01e3 0003 | | .CONST 0x01e3,0x0003
04e4 01e6 0004 | | .CONST 0x01e6,0x0004
04e6 01f3 0005 | | .CONST 0x01f3,0x0005
04e8 01f6 0006 | | .CONST 0x01f6,0x0006
04ea 0201 0007 | | .CONST 0x0201,0x0007
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug3 Subtable 0x10
04ec ; --------------------------------------------------------------------------------------
04ec 0000 0002 | | .DBG3TAB 0x0000,0x0002
04ee 020b 0001 | | .CONST 0x020b,0x0001
04f0 020d 0002 | | .CONST 0x020d,0x0002
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug3 Subtable 0x11
04f2 ; --------------------------------------------------------------------------------------
04f2 0000 0009 | | .DBG3TAB 0x0000,0x0009
04f4 0217 0001 | | .CONST 0x0217,0x0001
04f6 0219 0002 | | .CONST 0x0219,0x0002
04f8 0220 0003 | | .CONST 0x0220,0x0003
04fa 0222 0004 | " | .CONST 0x0222,0x0004
04fc 0224 0005 | $ | .CONST 0x0224,0x0005
04fe 0226 0006 | & | .CONST 0x0226,0x0006
0500 022a 0007 | * | .CONST 0x022a,0x0007
0502 022f 0008 | / | .CONST 0x022f,0x0008
0504 0231 0009 | 1 | .CONST 0x0231,0x0009
0506 ; --------------------------------------------------------------------------------------
0506 ; Debug3 Subtable 0x12
0506 ; --------------------------------------------------------------------------------------
0506 0000 0003 | | .DBG3TAB 0x0000,0x0003
0508 023b 0001 | ; | .CONST 0x023b,0x0001
050a 023e 0002 | > | .CONST 0x023e,0x0002
050c 0244 0003 | D | .CONST 0x0244,0x0003
050e ; --------------------------------------------------------------------------------------
050e ; Debug3 Subtable 0x13
050e ; --------------------------------------------------------------------------------------
050e 0000 0003 | | .DBG3TAB 0x0000,0x0003
0510 0253 0001 | S | .CONST 0x0253,0x0001
0512 0259 0002 | Y | .CONST 0x0259,0x0002
0514 025e 0003 | ^ | .CONST 0x025e,0x0003
0516 ; --------------------------------------------------------------------------------------
0516 ; Debug3 Subtable 0x14
0516 ; --------------------------------------------------------------------------------------
0516 0000 000a | | .DBG3TAB 0x0000,0x000a
0518 0263 0001 | c | .CONST 0x0263,0x0001
051a 0268 0002 | h | .CONST 0x0268,0x0002
051c 0269 0003 | i | .CONST 0x0269,0x0003
051e 0270 0004 | p | .CONST 0x0270,0x0004
0520 0272 0005 | r | .CONST 0x0272,0x0005
0522 027a 0006 | z | .CONST 0x027a,0x0006
0524 027f 0007 | | .CONST 0x027f,0x0007
0526 0287 0008 | | .CONST 0x0287,0x0008
0528 028d 0009 | | .CONST 0x028d,0x0009
052a 0292 000a | | .CONST 0x0292,0x000a
052c ; --------------------------------------------------------------------------------------
052c ; Debug3 Subtable 0x15
052c ; --------------------------------------------------------------------------------------
052c 0001 0003 | | .DBG3TAB 0x0001,0x0003
052e 029b ffff | | .CONST 0x029b,0xffff
0530 02a4 0001 | | .CONST 0x02a4,0x0001
0532 02b1 0002 | | .CONST 0x02b1,0x0002
0534 02b5 0003 | | .CONST 0x02b5,0x0003
0536 ; --------------------------------------------------------------------------------------
0536 ; Debug3 Subtable 0x16
0536 ; --------------------------------------------------------------------------------------
0536 0001 0002 | | .DBG3TAB 0x0001,0x0002
0538 02bb ffff | | .CONST 0x02bb,0xffff
053a 02c2 0001 | | .CONST 0x02c2,0x0001
053c 02c4 0002 | | .CONST 0x02c4,0x0002
053e 0000 0000 | | .BLANK 0000[0xc2]