|
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, 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 0230 | 0 | .CONST 0x0230 ; 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 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0 = .DEBUG 0x000b,0x0292,0x8000,0x0000,0x0037,0xb484,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 480a |H | Short_Literal 0xa ; Debug Table 0x0.0x5 = 0x14,0xfffa
0015 032a | * | Declare_Type Record,Incomplete
0016 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x6 = 0x16,0xfff9
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 e20d | | Load 0x1,0xd
0019 03a3 | | Complete_Type Heap_Access,By_Defining
001a 00bf | | Action Accept_Activation ; Debug Table 0x0.0x7 = 0x1a,0xfff8
001b 0092 0200 | | Action Push_String_Extended,0x200 ; "!machine.queues.queue.Fancy_Prefix"
; Debug Table 0x1 = .DEBUG 0x001b,0x02a4,0x8000,0x0000,0x0037,0xb4a4,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x1b,0xffff
001d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f e002 | | Load 0x0,0x2
0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0021 e002 | | Load 0x0,0x2
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 e002 | | Load 0x0,0x2
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 e002 | | Load 0x0,0x2
0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0027 e002 | | Load 0x0,0x2
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 e002 | | Load 0x0,0x2
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b 00e1 | | Load_Encached Boolean_Cache
002c 4801 |H | Short_Literal 0x1
002d 61ce |a | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00000400}
002e 00e9 | | Load_Encached String_Cache
002f 035b | [ | Declare_Type Array,Constrained
0030 00e3 | | Load_Encached Natural_Cache
0031 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0033 e212 | | Load 0x1,0x12
0034 0326 | & | Complete_Type Record,By_Defining
0035 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x2 = 0x35,0xfffd
0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0037 0337 | 7 | Declare_Variable Array
0038 0092 0201 | | Action Push_String_Extended,0x201 ; "["
003a e002 | | Load 0x0,0x2
003b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
003c 00d9 | | Load_Top At_Offset_1
003d 01d4 | | Execute Vector,Structure_Write
003e e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x3 = 0x3e,0xfffc
003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0040 0337 | 7 | Declare_Variable Array
0041 0092 0202 | | Action Push_String_Extended,0x202 ; "]"
0043 e002 | | Load 0x0,0x2
0044 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0045 00d9 | | Load_Top At_Offset_1
0046 01d4 | | Execute Vector,Structure_Write
0047 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x4 = 0x47,0xfffb
0048 00c7 | | Action Elaborate_Subprogram
0049 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call ; Debug Table 0x1.0x5 = 0x49,0xfffa
004b 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x6 = 0x4b,0xfff9
004d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x7 = 0x4d,0xfff8
004e 00c7 | | Action Elaborate_Subprogram
004f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x8 = 0x4f,0xfff7
0050 00c7 | | Action Elaborate_Subprogram
0051 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x51,0xfff6
0052 00c7 | | Action Elaborate_Subprogram
0053 BODY_0008:
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 006a | j | .CONST 0x006a ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x2 = .DEBUG 0x005b,0x02ba,0x0001,0x0000,0x0037,0xb484,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x5b,0xffff
005c e003 | | Load 0x0,0x3
005d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005e e004 | | Load 0x0,0x4
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0061 e20d | | Load 0x1,0xd ; Debug Table 0x2.0x1 = 0x61,0xfffe
0062 e20d | | Load 0x1,0xd
0063 00da | | Load_Top At_Offset_2
0064 039c | | Declare_Variable Heap_Access,By_Allocation
0065 00d8 | | Load_Top At_Offset_0
0066 0217 | | Execute Heap_Access,All_Reference
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0069 0007 | | Action Break_Optional ; Debug Table 0x2.0x2 = 0x69,0xfffd
006a BODY_0058:
006a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x6a,0x1
006b 0219 | | Execute Heap_Access,All_Read
006c 00d8 | | Load_Top At_Offset_0
006d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
006e 00ea | | Load_Encached Null_String_Cache
006f e213 | | Load 0x1,0x13
0070 4800 |H | Short_Literal 0x0
0071 e001 | | Load 0x0,0x1
0072 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0073 00d9 | | Load_Top At_Offset_1
0074 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0075 00d1 | | Pop_Control Pop_Count_1
0076 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x4 = 0x76,0x2
0077 e002 | | Load 0x0,0x2
0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0079 00db | | Load_Top At_Offset_3
007a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
007b 00d9 | | Load_Top At_Offset_1
007c 0217 | | Execute Heap_Access,All_Reference
007d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007e 0007 | | Action Break_Optional ; Debug Table 0x2.0x5 = 0x7e,0x3
007f e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x6 = 0x7f,0x4
0080 e002 | | Load 0x0,0x2
0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0082 00db | | Load_Top At_Offset_3
0083 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0084 00d9 | | Load_Top At_Offset_1
0085 0217 | | Execute Heap_Access,All_Reference
0086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0087 0007 | | Action Break_Optional ; Debug Table 0x2.0x7 = 0x87,0x5
0088 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x8 = 0x88,0x6
0089 e002 | | Load 0x0,0x2
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 00db | | Load_Top At_Offset_3
008c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
008d 00d9 | | Load_Top At_Offset_1
008e 0217 | | Execute Heap_Access,All_Reference
008f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0090 0007 | | Action Break_Optional ; Debug Table 0x2.0x9 = 0x90,0x7
0091 e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0xa = 0x91,0x8
0092 e002 | | Load 0x0,0x2
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 00db | | Load_Top At_Offset_3
0095 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0096 00d9 | | Load_Top At_Offset_1
0097 0217 | | Execute Heap_Access,All_Reference
0098 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0099 0007 | | Action Break_Optional ; Debug Table 0x2.0xb = 0x99,0x9
009a e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0xc = 0x9a,0xa
009b e002 | | Load 0x0,0x2
009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009d 00db | | Load_Top At_Offset_3
009e 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
009f 00d9 | | Load_Top At_Offset_1
00a0 0217 | | Execute Heap_Access,All_Reference
00a1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00a2 0007 | | Action Break_Optional ; Debug Table 0x2.0xd = 0xa2,0xb
00a3 e5fa | | Load 0x2,-0x6 ; Debug Table 0x2.0xe = 0xa3,0xc
00a4 e002 | | Load 0x0,0x2
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 00db | | Load_Top At_Offset_3
00a7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00a8 00d9 | | Load_Top At_Offset_1
00a9 0217 | | Execute Heap_Access,All_Reference
00aa 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00ab 0007 | | Action Break_Optional ; Debug Table 0x2.0xf = 0xab,0xd
00ac 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x10 = 0xac,0xe
00ad 0217 | | Execute Heap_Access,All_Reference
00ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00af e001 | | Load 0x0,0x1
00b0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00b1 00d9 | | Load_Top At_Offset_1
00b2 0217 | | Execute Heap_Access,All_Reference
00b3 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00b4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x11 = 0xb4,0xf
00b5 0217 | | Execute Heap_Access,All_Reference
00b6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
00b7 7002 |p | Jump_Nonzero 0xba
00b8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x12 = 0xb8,0x10
00b9 8211 | | Call 0x1,0x11
00ba 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x13 = 0xba,0x11
00bb a5f9 | | Store_Unchecked 0x2,-0x7
00bc 4507 |E | Exit_Suprogram New_Top_Offset 0x7
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00c3,0x02e4,0x0002,0x0000,0x0037,0xb484,0x0000,0x002e
; Debug Table 0x3.0x0 = 0xc3,0x1
00c4 8216 | | Call 0x1,0x16
00c5 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x1 = 0xc5,0x2
00c6 0217 | | Execute Heap_Access,All_Reference
00c7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7 | | .CONST 0x00d7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call ; Debug Table 0x4 = .DEBUG 0x00d3,0x02ea,0x0002,0x0000,0x0037,0xb484,0x0000,0x0037
; Debug Table 0x4.0x0 = 0xd3,0xffff
00d5 029f 017b | {| Declare_Subprogram INIT_0178,For_Call ; Debug Table 0x4.0x1 = 0xd5,0xfffe
00d7 BODY_00d0:
00d7 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x2 = 0xd7,0x1
00d8 8216 | | Call 0x1,0x16
00d9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x3 = 0xd9,0x2
00da 8217 | | Call 0x1,0x17
00db 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x4 = 0xdb,0x3
00dc e5ff | | Load 0x2,-0x1
00dd 0217 | | Execute Heap_Access,All_Reference
00de 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00df e5ff | | Load 0x2,-0x1
00e0 0217 | | Execute Heap_Access,All_Reference
00e1 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
00e2 01cf | | Execute Vector,Slice_Read
00e3 8402 | | Call 0x2,0x2
00e4 680b |h | Jump_Zero 0xf0
00e5 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x5 = 0xe5,0x4
00e6 e5ff | | Load 0x2,-0x1
00e7 0217 | | Execute Heap_Access,All_Reference
00e8 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00e9 e5ff | | Load 0x2,-0x1
00ea 0217 | | Execute Heap_Access,All_Reference
00eb 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
00ec 01cf | | Execute Vector,Slice_Read
00ed e5ff | | Load 0x2,-0x1
00ee 8403 | | Call 0x2,0x3
00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f0 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x6 = 0xf0,0x5
00f1 e5ff | | Load 0x2,-0x1
00f2 0217 | | Execute Heap_Access,All_Reference
00f3 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00f4 e5ff | | Load 0x2,-0x1
00f5 0217 | | Execute Heap_Access,All_Reference
00f6 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
00f7 01cf | | Execute Vector,Slice_Read
00f8 0335 | 5 | Declare_Variable Array,Duplicate
00f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0103,0x02fa,0x0001,0x0000,0x0037,0xb484,0x0000,0x0040
; Debug Table 0x5.0x0 = 0x103,0x1
0104 8216 | | Call 0x1,0x16
0105 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x1 = 0x105,0x2
0106 8217 | | Call 0x1,0x17
0107 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0x107,0x3
0108 0217 | | Execute Heap_Access,All_Reference
0109 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010a e001 | | Load 0x0,0x1
010b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
010c 00db | | Load_Top At_Offset_3
010d 0217 | | Execute Heap_Access,All_Reference
010e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
010f 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x3 = 0x10f,0x4
0110 0217 | | Execute Heap_Access,All_Reference
0111 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0112 7011 |p | Jump_Nonzero 0x124
0113 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x4 = 0x113,0x5
0114 0219 | | Execute Heap_Access,All_Read
0115 00db | | Load_Top At_Offset_3
0116 0219 | | Execute Heap_Access,All_Read
0117 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0118 00e3 | | Load_Encached Natural_Cache
0119 00d9 | | Load_Top At_Offset_1
011a e5ff | | Load 0x2,-0x1
011b 0217 | | Execute Heap_Access,All_Reference
011c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011d e001 | | Load 0x0,0x1
011e 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
011f 00d1 | | Pop_Control Pop_Count_1
0120 00da | | Load_Top At_Offset_2
0121 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0122 00d2 | | Pop_Control Pop_Count_2
0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0124 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x5 = 0x124,0x6
0125 0219 | | Execute Heap_Access,All_Read
0126 00d8 | | Load_Top At_Offset_0
0127 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0128 e001 | | Load 0x0,0x1
0129 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012a 00d9 | | Load_Top At_Offset_1
012b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012c 00d1 | | Pop_Control Pop_Count_1
012d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012e 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x0133,0x0308,0x0005,0x0000,0x0037,0xb4a4,0x0000,0x0012
0134 7808 |x | Jump 0x13d ; case 0x0
0135 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0136 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0137 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0138 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0139 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
013a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
013b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
013c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
013d 00da | | Load_Top At_Offset_2
013e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013f 0125 | % | Execute Any,Set_Constraint
0140 00da | | Load_Top At_Offset_2
0141 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0142 1c00 | | Execute_Immediate Run_Utility,0x0
0143 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x014b,0x030a,0x0001,0x0000,0x0037,0xb4a4,0x0000,0x0124
; Debug Table 0x7.0x0 = 0x14b,0x1
014c 7002 |p | Jump_Nonzero 0x14f
014d 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x7.0x1 = 0x14d,0x2
014e 0257 | W | Execute Discrete,Raise
014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x0153,0x0310,0x0001,0x0000,0x0037,0xb4a4,0x0000,0x013a
; Debug Table 0x8.0x0 = 0x153,0x1
0154 0217 | | Execute Heap_Access,All_Reference
0155 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0156 6802 |h | Jump_Zero 0x159
0157 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x8.0x1 = 0x157,0x2
0158 0257 | W | Execute Discrete,Raise
0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0169 | i | .CONST 0x0169 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0163,0x0316,0x0002,0x0000,0x0037,0xb4a4,0x0000,0x016b
; Debug Table 0x9.0x0 = 0x163,0xffff
0164 e214 | | Load 0x1,0x14
0165 e002 | | Load 0x0,0x2
0166 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0167 00e3 | | Load_Encached Natural_Cache
0168 03f1 | | Declare_Variable Discrete,With_Value
0169 BODY_0160:
0169 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0x169,0x1
016a 6807 |h | Jump_Zero 0x172
016b 00d8 | | Load_Top At_Offset_0
016c e7ff | | Load 0x3,-0x1
016d e215 | | Load 0x1,0x15
016e e002 | | Load 0x0,0x2
016f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0170 027c | | | Execute Discrete,Less
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 4800 |H | Short_Literal 0x0
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0195 | | .CONST 0x0195 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0006 | | .CONST 0x0006 ; Number of locals
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3 ; Debug Table 0xa = .DEBUG 0x017b,0x031c,0x0002,0x0000,0x0037,0xb4a4,0x0000,0x0197
; Debug Table 0xa.0x0 = 0x17b,0xffff
017c e214 | | Load 0x1,0x14
017d e002 | | Load 0x0,0x2
017e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
017f 00e3 | | Load_Encached Natural_Cache
0180 03f1 | | Declare_Variable Discrete,With_Value
0181 e7fe | | Load 0x3,-0x2 ; Debug Table 0xa.0x1 = 0x181,0xfffe
0182 e215 | | Load 0x1,0x15
0183 e002 | | Load 0x0,0x2
0184 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0185 00e3 | | Load_Encached Natural_Cache
0186 03f1 | | Declare_Variable Discrete,With_Value
0187 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x2 = 0x187,0xfffd
0188 0a01 | | Execute_Immediate Plus,0x1
0189 0248 | H | Execute Discrete,Check_In_Integer
018a 00d9 | | Load_Top At_Offset_1
018b 0aff | | Execute_Immediate Plus,-0x1
018c 0248 | H | Execute Discrete,Check_In_Integer
018d e7fe | | Load 0x3,-0x2
018e 01cf | | Execute Vector,Slice_Read
018f e002 | | Load 0x0,0x2
0190 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0191 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x3 = 0x191,0xfffc
0192 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0193 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0195 BODY_0178:
0195 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x4 = 0x195,0x1
0196 0092 0203 | | Action Push_String_Extended,0x203 ; "CREATOR"
0198 01df | | Execute Vector,Equal
0199 6805 |h | Jump_Zero 0x19f
019a e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0x5 = 0x19a,0x2
019b 0217 | | Execute Heap_Access,All_Reference
019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
019e 7834 |x4 | Jump 0x1d3
019f 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x6 = 0x19f,0x3
01a0 0092 0204 | | Action Push_String_Extended,0x204 ; "TITLE"
01a2 01df | | Execute Vector,Equal
01a3 6805 |h | Jump_Zero 0x1a9
01a4 e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0x7 = 0x1a4,0x4
01a5 0217 | | Execute Heap_Access,All_Reference
01a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01a8 782a |x* | Jump 0x1d3
01a9 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x8 = 0x1a9,0x5
01aa 0092 0205 | | Action Push_String_Extended,0x205 ; "DATE"
01ac 01df | | Execute Vector,Equal
01ad 6805 |h | Jump_Zero 0x1b3
01ae e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0x9 = 0x1ae,0x6
01af 0217 | | Execute Heap_Access,All_Reference
01b0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b1 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01b2 7820 |x | Jump 0x1d3
01b3 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xa = 0x1b3,0x7
01b4 0092 0206 | | Action Push_String_Extended,0x206 ; "BBOX"
01b6 01df | | Execute Vector,Equal
01b7 6805 |h | Jump_Zero 0x1bd
01b8 e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0xb = 0x1b8,0x8
01b9 0217 | | Execute Heap_Access,All_Reference
01ba 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01bb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01bc 7816 |x | Jump 0x1d3
01bd 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xc = 0x1bd,0x9
01be 0092 0207 | | Action Push_String_Extended,0x207 ; "FONTSIZE"
01c0 01df | | Execute Vector,Equal
01c1 6805 |h | Jump_Zero 0x1c7
01c2 e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0xd = 0x1c2,0xa
01c3 0217 | | Execute Heap_Access,All_Reference
01c4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
01c5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01c6 780c |x | Jump 0x1d3
01c7 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xe = 0x1c7,0xb
01c8 0092 0208 | | Action Push_String_Extended,0x208 ; "FONTSPACING"
01ca 01df | | Execute Vector,Equal
01cb 6805 |h | Jump_Zero 0x1d1
01cc e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0xf = 0x1cc,0xc
01cd 0217 | | Execute Heap_Access,All_Reference
01ce 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01cf 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01d0 7802 |x | Jump 0x1d3
01d1 48e0 |H | Short_Literal 0xe0 ; Debug Table 0xa.0x10 = 0x1d1,0xd
01d2 0257 | W | Execute Discrete,Raise
01d3 8606 | | Call 0x3,0x6 ; Debug Table 0xa.0x11 = 0x1d3,0xe
01d4 4831 |H1 | Short_Literal 0x31
01d5 0257 | W | Execute Discrete,Raise
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01ee | | .CONST 0x01ee ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e7fe | | Load 0x3,-0x2 ; Debug Table 0xb = .DEBUG 0x01db,0x0342,0x0004,0x0000,0x0037,0xb4a4,0x0000,0x025e
; Debug Table 0xb.0x0 = 0x1db,0xffff
01dc 01dd | | Execute Vector,First
01dd e602 | | Load 0x3,0x2
01de 0aff | | Execute_Immediate Plus,-0x1
01df 0248 | H | Execute Discrete,Check_In_Integer
01e0 e7fe | | Load 0x3,-0x2
01e1 01cf | | Execute Vector,Slice_Read
01e2 e605 | | Load 0x3,0x5
01e3 0217 | | Execute Heap_Access,All_Reference
01e4 01cc | | Execute Vector,Catenate
01e5 e603 | | Load 0x3,0x3
01e6 0a01 | | Execute_Immediate Plus,0x1
01e7 0248 | H | Execute Discrete,Check_In_Integer
01e8 e7fe | | Load 0x3,-0x2
01e9 01dc | | Execute Vector,Last
01ea e7fe | | Load 0x3,-0x2
01eb 01cf | | Execute Vector,Slice_Read
01ec 01cc | | Execute Vector,Catenate
01ed 0007 | | Action Break_Optional
01ee BODY_01d8:
01ee 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x1 = 0x1ee,0x1
01ef 8402 | | Call 0x2,0x2
01f0 6805 |h | Jump_Zero 0x1f6
01f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x2 = 0x1f1,0x2
01f2 e7ff | | Load 0x3,-0x1
01f3 8403 | | Call 0x2,0x3
01f4 00cb | | Action Pop_Block_With_Result
01f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x1f6,0x3
01f7 00cb | | Action Pop_Block_With_Result
01f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f9 0000 0000 | | .XXX[0x3]
01fb 0000 | |
01fc 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0200 ; --------------------------------------------------------------------------------------
0200 ; STRING TABLE
0200 ; --------------------------------------------------------------------------------------
0200 0014 | | .STRTAB 0x0014->0x020a ; "!machine.queues.queue.Fancy_Prefix"
0201 0034 | 4 | .STRTAB 0x0034->0x021b ; "["
0202 0033 | 3 | .STRTAB 0x0033->0x021b ; "]"
0203 0032 | 2 | .STRTAB 0x0032->0x021c ; "CREATOR"
0204 0037 | 7 | .STRTAB 0x0037->0x021f ; "TITLE"
0205 003a | : | .STRTAB 0x003a->0x0222 ; "DATE"
0206 003c | < | .STRTAB 0x003c->0x0224 ; "BBOX"
0207 003e | > | .STRTAB 0x003e->0x0226 ; "FONTSIZE"
0208 0044 | D | .STRTAB 0x0044->0x022a ; "FONTSPACING"
0209 004d | M | .STREND 0x004d->0x022f
020a 216d 6163 |!mac| .STRTAB_STRINGS
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0003 000c | | .CONST 0x0003,0x000c
0232 000b 0292 | | .DEBUG 0x000b,0x0292,0x8000,0x0000,0x0037,0xb484,0x0000,0x0003
023a 001b 02a4 | | .DEBUG 0x001b,0x02a4,0x8000,0x0000,0x0037,0xb4a4,0x0000,0x000b
0242 005b 02ba | [ | .DEBUG 0x005b,0x02ba,0x0001,0x0000,0x0037,0xb484,0x0000,0x0008
024a 00c3 02e4 | | .DEBUG 0x00c3,0x02e4,0x0002,0x0000,0x0037,0xb484,0x0000,0x002e
0252 00d3 02ea | | .DEBUG 0x00d3,0x02ea,0x0002,0x0000,0x0037,0xb484,0x0000,0x0037
025a 0103 02fa | | .DEBUG 0x0103,0x02fa,0x0001,0x0000,0x0037,0xb484,0x0000,0x0040
0262 0133 0308 | 3 | .DEBUG 0x0133,0x0308,0x0005,0x0000,0x0037,0xb4a4,0x0000,0x0012
026a 014b 030a | K | .DEBUG 0x014b,0x030a,0x0001,0x0000,0x0037,0xb4a4,0x0000,0x0124
0272 0153 0310 | S | .DEBUG 0x0153,0x0310,0x0001,0x0000,0x0037,0xb4a4,0x0000,0x013a
027a 0163 0316 | c | .DEBUG 0x0163,0x0316,0x0002,0x0000,0x0037,0xb4a4,0x0000,0x016b
0282 017b 031c | { | .DEBUG 0x017b,0x031c,0x0002,0x0000,0x0037,0xb4a4,0x0000,0x0197
028a 01db 0342 | B| .DEBUG 0x01db,0x0342,0x0004,0x0000,0x0037,0xb4a4,0x0000,0x025e
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0x0
0292 ; --------------------------------------------------------------------------------------
0292 0008 0000 | | .DBG3TAB 0x0008,0x0000
0294 000b ffff | | .CONST 0x000b,0xffff
0296 000c fffe | | .CONST 0x000c,0xfffe
0298 000e fffd | | .CONST 0x000e,0xfffd
029a 0010 fffc | | .CONST 0x0010,0xfffc
029c 0012 fffb | | .CONST 0x0012,0xfffb
029e 0014 fffa | | .CONST 0x0014,0xfffa
02a0 0016 fff9 | | .CONST 0x0016,0xfff9
02a2 001a fff8 | | .CONST 0x001a,0xfff8
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x1
02a4 ; --------------------------------------------------------------------------------------
02a4 000a 0000 | | .DBG3TAB 0x000a,0x0000
02a6 001b ffff | | .CONST 0x001b,0xffff
02a8 001d fffe | | .CONST 0x001d,0xfffe
02aa 0035 fffd | 5 | .CONST 0x0035,0xfffd
02ac 003e fffc | > | .CONST 0x003e,0xfffc
02ae 0047 fffb | G | .CONST 0x0047,0xfffb
02b0 0049 fffa | I | .CONST 0x0049,0xfffa
02b2 004b fff9 | K | .CONST 0x004b,0xfff9
02b4 004d fff8 | M | .CONST 0x004d,0xfff8
02b6 004f fff7 | O | .CONST 0x004f,0xfff7
02b8 0051 fff6 | Q | .CONST 0x0051,0xfff6
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0x2
02ba ; --------------------------------------------------------------------------------------
02ba 0003 0011 | | .DBG3TAB 0x0003,0x0011
02bc 005b ffff | [ | .CONST 0x005b,0xffff
02be 0061 fffe | a | .CONST 0x0061,0xfffe
02c0 0069 fffd | i | .CONST 0x0069,0xfffd
02c2 006a 0001 | j | .CONST 0x006a,0x0001
02c4 0076 0002 | v | .CONST 0x0076,0x0002
02c6 007e 0003 | ~ | .CONST 0x007e,0x0003
02c8 007f 0004 | | .CONST 0x007f,0x0004
02ca 0087 0005 | | .CONST 0x0087,0x0005
02cc 0088 0006 | | .CONST 0x0088,0x0006
02ce 0090 0007 | | .CONST 0x0090,0x0007
02d0 0091 0008 | | .CONST 0x0091,0x0008
02d2 0099 0009 | | .CONST 0x0099,0x0009
02d4 009a 000a | | .CONST 0x009a,0x000a
02d6 00a2 000b | | .CONST 0x00a2,0x000b
02d8 00a3 000c | | .CONST 0x00a3,0x000c
02da 00ab 000d | | .CONST 0x00ab,0x000d
02dc 00ac 000e | | .CONST 0x00ac,0x000e
02de 00b4 000f | | .CONST 0x00b4,0x000f
02e0 00b8 0010 | | .CONST 0x00b8,0x0010
02e2 00ba 0011 | | .CONST 0x00ba,0x0011
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0x3
02e4 ; --------------------------------------------------------------------------------------
02e4 0000 0002 | | .DBG3TAB 0x0000,0x0002
02e6 00c3 0001 | | .CONST 0x00c3,0x0001
02e8 00c5 0002 | | .CONST 0x00c5,0x0002
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug3 Subtable 0x4
02ea ; --------------------------------------------------------------------------------------
02ea 0002 0005 | | .DBG3TAB 0x0002,0x0005
02ec 00d3 ffff | | .CONST 0x00d3,0xffff
02ee 00d5 fffe | | .CONST 0x00d5,0xfffe
02f0 00d7 0001 | | .CONST 0x00d7,0x0001
02f2 00d9 0002 | | .CONST 0x00d9,0x0002
02f4 00db 0003 | | .CONST 0x00db,0x0003
02f6 00e5 0004 | | .CONST 0x00e5,0x0004
02f8 00f0 0005 | | .CONST 0x00f0,0x0005
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x5
02fa ; --------------------------------------------------------------------------------------
02fa 0000 0006 | | .DBG3TAB 0x0000,0x0006
02fc 0103 0001 | | .CONST 0x0103,0x0001
02fe 0105 0002 | | .CONST 0x0105,0x0002
0300 0107 0003 | | .CONST 0x0107,0x0003
0302 010f 0004 | | .CONST 0x010f,0x0004
0304 0113 0005 | | .CONST 0x0113,0x0005
0306 0124 0006 | $ | .CONST 0x0124,0x0006
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug3 Subtable 0x6
0308 ; --------------------------------------------------------------------------------------
0308 0000 0000 | | .DBG3TAB 0x0000,0x0000
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0x7
030a ; --------------------------------------------------------------------------------------
030a 0000 0002 | | .DBG3TAB 0x0000,0x0002
030c 014b 0001 | K | .CONST 0x014b,0x0001
030e 014d 0002 | M | .CONST 0x014d,0x0002
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug3 Subtable 0x8
0310 ; --------------------------------------------------------------------------------------
0310 0000 0002 | | .DBG3TAB 0x0000,0x0002
0312 0153 0001 | S | .CONST 0x0153,0x0001
0314 0157 0002 | W | .CONST 0x0157,0x0002
0316 ; --------------------------------------------------------------------------------------
0316 ; Debug3 Subtable 0x9
0316 ; --------------------------------------------------------------------------------------
0316 0001 0001 | | .DBG3TAB 0x0001,0x0001
0318 0163 ffff | c | .CONST 0x0163,0xffff
031a 0169 0001 | i | .CONST 0x0169,0x0001
031c ; --------------------------------------------------------------------------------------
031c ; Debug3 Subtable 0xa
031c ; --------------------------------------------------------------------------------------
031c 0004 000e | | .DBG3TAB 0x0004,0x000e
031e 017b ffff | { | .CONST 0x017b,0xffff
0320 0181 fffe | | .CONST 0x0181,0xfffe
0322 0187 fffd | | .CONST 0x0187,0xfffd
0324 0191 fffc | | .CONST 0x0191,0xfffc
0326 0195 0001 | | .CONST 0x0195,0x0001
0328 019a 0002 | | .CONST 0x019a,0x0002
032a 019f 0003 | | .CONST 0x019f,0x0003
032c 01a4 0004 | | .CONST 0x01a4,0x0004
032e 01a9 0005 | | .CONST 0x01a9,0x0005
0330 01ae 0006 | | .CONST 0x01ae,0x0006
0332 01b3 0007 | | .CONST 0x01b3,0x0007
0334 01b8 0008 | | .CONST 0x01b8,0x0008
0336 01bd 0009 | | .CONST 0x01bd,0x0009
0338 01c2 000a | | .CONST 0x01c2,0x000a
033a 01c7 000b | | .CONST 0x01c7,0x000b
033c 01cc 000c | | .CONST 0x01cc,0x000c
033e 01d1 000d | | .CONST 0x01d1,0x000d
0340 01d3 000e | | .CONST 0x01d3,0x000e
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug3 Subtable 0xb
0342 ; --------------------------------------------------------------------------------------
0342 0001 0003 | | .DBG3TAB 0x0001,0x0003
0344 01db ffff | | .CONST 0x01db,0xffff
0346 01ee 0001 | | .CONST 0x01ee,0x0001
0348 01f1 0002 | | .CONST 0x01f1,0x0002
034a 01f6 0003 | | .CONST 0x01f6,0x0003
034c 0000 0000 | | .BLANK 0000[0xb4]