|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01c0 | | .CONST 0x01c0 ; 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 8001 | | .CONST 0x8001 ; 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
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 0045 | E | .CONST 0x0045 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0013 | | .CONST 0x0013 ; Number of locals
001b INIT_0018:
001b 029f 0073 | s| Declare_Subprogram For_Call,INIT_0070
001d e001 | | Load 0x0,0x1
001e 1917 | | Execute Package,Field_Reference,Field_Number 0x17
001f 00c6 | | Action Check_Subprogram_Elaborated
0020 e002 | | Load 0x0,0x2
0021 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0022 4802 |H | Short_Literal 0x2
0023 4802 |H | Short_Literal 0x2
0024 0099 | | Action Reference_Dynamic
0025 e003 | | Load 0x0,0x3
0026 e004 | | Load 0x0,0x4
0027 4807 |H | Short_Literal 0x7
0028 0007 | | Action Break_Optional
0029 029f 00c3 | | Declare_Subprogram For_Call,INIT_00c0
002b e001 | | Load 0x0,0x1
002c 1917 | | Execute Package,Field_Reference,Field_Number 0x17
002d 00c6 | | Action Check_Subprogram_Elaborated
002e e002 | | Load 0x0,0x2
002f 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0030 4808 |H | Short_Literal 0x8
0031 4802 |H | Short_Literal 0x2
0032 0099 | | Action Reference_Dynamic
0033 e005 | | Load 0x0,0x5
0034 e006 | | Load 0x0,0x6
0035 480d |H | Short_Literal 0xd
0036 0007 | | Action Break_Optional
0037 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0039 e001 | | Load 0x0,0x1
003a 1917 | | Execute Package,Field_Reference,Field_Number 0x17
003b 00c6 | | Action Check_Subprogram_Elaborated
003c e002 | | Load 0x0,0x2
003d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
003e 480e |H | Short_Literal 0xe
003f 4802 |H | Short_Literal 0x2
0040 0099 | | Action Reference_Dynamic
0041 e007 | | Load 0x0,0x7
0042 e008 | | Load 0x0,0x8
0043 4813 |H | Short_Literal 0x13
0044 0007 | | Action Break_Optional
0045 BODY_0018:
0045 e409 | | Load 0x2,0x9
0046 480a |H | Short_Literal 0xa
0047 4802 |H | Short_Literal 0x2
0048 0099 | | Action Reference_Dynamic
0049 480b |H | Short_Literal 0xb
004a 4802 |H | Short_Literal 0x2
004b 0099 | | Action Reference_Dynamic
004c e001 | | Load 0x0,0x1
004d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
004e e40f | | Load 0x2,0xf
004f 4810 |H | Short_Literal 0x10
0050 4802 |H | Short_Literal 0x2
0051 0099 | | Action Reference_Dynamic
0052 4811 |H | Short_Literal 0x11
0053 4802 |H | Short_Literal 0x2
0054 0099 | | Action Reference_Dynamic
0055 e001 | | Load 0x0,0x1
0056 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0057 e403 | | Load 0x2,0x3
0058 4804 |H | Short_Literal 0x4
0059 4802 |H | Short_Literal 0x2
005a 0099 | | Action Reference_Dynamic
005b 4805 |H | Short_Literal 0x5
005c 4802 |H | Short_Literal 0x2
005d 0099 | | Action Reference_Dynamic
005e e001 | | Load 0x0,0x1
005f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0060 00ea | | Load_Encached Null_String_Cache
0061 00ea | | Load_Encached Null_String_Cache
0062 0092 0179 | y| Action Push_String_Extended,0x179 ; "!Io.Io_Exceptions.End_Error"
0064 e009 | | Load 0x0,0x9
0065 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0066 e5fc | | Load 0x2,-0x4
0067 e5fd | | Load 0x2,-0x3
0068 e5fe | | Load 0x2,-0x2
0069 e5ff | | Load 0x2,-0x1
006a 800a | | Call 0x0,0xa
006b 4505 |E | Exit_Subprogram 0x5
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007e | ~ | .CONST 0x007e ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0009 | | .CONST 0x0009 ; Number of locals
0073 INIT_0070:
0073 e002 | | Load 0x0,0x2
0074 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0075 00e1 | | Load_Encached Boolean_Cache
0076 00e2 | | Load_Encached Integer_Cache
0077 03e9 | | Declare_Variable Discrete,Duplicate
0078 00e2 | | Load_Encached Integer_Cache
0079 03e9 | | Declare_Variable Discrete,Duplicate
007a 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
007c 029f 0123 | #| Declare_Subprogram For_Call,INIT_0120
007e BODY_0070:
007e e7ff | | Load 0x3,-0x1
007f 0d00 | | Execute_Immediate Less,0x0
0080 6806 |h | Jump_Zero 0x87
0081 4801 |H | Short_Literal 0x1
0082 a603 | | Store_Unchecked 0x3,0x3
0083 e7ff | | Load 0x3,-0x1
0084 0275 | u | Execute Discrete,Unary_Minus
0085 a602 | | Store_Unchecked 0x3,0x2
0086 7804 |x | Jump 0x8b
0087 4800 |H | Short_Literal 0x0
0088 a603 | | Store_Unchecked 0x3,0x3
0089 e7ff | | Load 0x3,-0x1
008a a602 | | Store_Unchecked 0x3,0x2
008b e602 | | Load 0x3,0x2
008c 4be8 |K | Short_Literal 0x3e8
008d 0270 | p | Execute Discrete,Divide
008e a604 | | Store_Unchecked 0x3,0x4
008f e602 | | Load 0x3,0x2
0090 4be8 |K | Short_Literal 0x3e8
0091 026e | n | Execute Discrete,Modulo
0092 4be8 |K | Short_Literal 0x3e8
0093 0271 | q | Execute Discrete,Times
0094 4be8 |K | Short_Literal 0x3e8
0095 0270 | p | Execute Discrete,Divide
0096 00d8 | | Load_Top At_Offset_0
0097 00e2 | | Load_Encached Integer_Cache
0098 0260 | ` | Execute Discrete,In_Type
0099 7001 |p | Jump_Nonzero 0x9b
009a 0801 | | Execute_Immediate Raise,0x1
009b a605 | | Store_Unchecked 0x3,0x5
009c e602 | | Load 0x3,0x2
009d 601e |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00011940}
009e 0270 | p | Execute Discrete,Divide
009f a606 | | Store_Unchecked 0x3,0x6
00a0 e602 | | Load 0x3,0x2
00a1 601a |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00011940}
00a2 026e | n | Execute Discrete,Modulo
00a3 4be8 |K | Short_Literal 0x3e8
00a4 0271 | q | Execute Discrete,Times
00a5 6016 |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00011940}
00a6 0270 | p | Execute Discrete,Divide
00a7 00d8 | | Load_Top At_Offset_0
00a8 00e2 | | Load_Encached Integer_Cache
00a9 0260 | ` | Execute Discrete,In_Type
00aa 7001 |p | Jump_Nonzero 0xac
00ab 0801 | | Execute_Immediate Raise,0x1
00ac a607 | | Store_Unchecked 0x3,0x7
00ad e605 | | Load 0x3,0x5
00ae e604 | | Load 0x3,0x4
00af 8609 | | Call 0x3,0x9
00b0 0092 017a | z| Action Push_String_Extended,0x17a ; " Points = "
00b2 01cc | | Execute Vector,Catenate
00b3 e607 | | Load 0x3,0x7
00b4 e606 | | Load 0x3,0x6
00b5 8609 | | Call 0x3,0x9
00b6 01cc | | Execute Vector,Catenate
00b7 0092 017b | {| Action Push_String_Extended,0x17b ; " Inches"
00b9 01cc | | Execute Vector,Catenate
00ba 4404 |D | Exit_Subprogram With_Result,0x4
00bb 0000 | | .XXX[0x1]
00bc 0000 0000 | | .LITERAL {0x00000000, 0x00011940}
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 e7ff | | Load 0x3,-0x1
00c4 0c20 | | Execute_Immediate Greater_Equal,0x20
00c5 e7ff | | Load 0x3,-0x1
00c6 0d7f | | Execute_Immediate Less,0x7f
00c7 0279 | y | Execute Discrete,And
00c8 680d |h | Jump_Zero 0xd6
00c9 e7ff | | Load 0x3,-0x1
00ca 00d8 | | Load_Top At_Offset_0
00cb 00e8 | | Load_Encached Character_Cache
00cc 0260 | ` | Execute Discrete,In_Type
00cd 7001 |p | Jump_Nonzero 0xcf
00ce 0801 | | Execute_Immediate Raise,0x1
00cf 0092 017c | || Action Push_String_Extended,0x17c ; "'"
00d1 01cb | | Execute Vector,Append
00d2 0092 017c | || Action Push_String_Extended,0x17c ; "'"
00d4 01cc | | Execute Vector,Catenate
00d5 4404 |D | Exit_Subprogram With_Result,0x4
00d6 e7ff | | Load 0x3,-0x1
00d7 e002 | | Load 0x0,0x2
00d8 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
00d9 011c | | Execute Any,Convert_Unchecked
00da 1c01 | | Execute_Immediate Run_Utility,0x1
00db 4404 |D | Exit_Subprogram With_Result,0x4
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 029f 0143 | C| Declare_Subprogram For_Call,INIT_0140
00e5 BODY_00e0:
00e5 e7fc | | Load 0x3,-0x4
00e6 e7fd | | Load 0x3,-0x3
00e7 e7fe | | Load 0x3,-0x2
00e8 e7ff | | Load 0x3,-0x1
00e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ea 8408 | | Call 0x2,0x8
00eb 0092 017d | }| Action Push_String_Extended,0x17d ; ", Point_Size => "
00ed 01cc | | Execute Vector,Catenate
00ee 4820 |H | Short_Literal 0x20
00ef 4800 |H | Short_Literal 0x0
00f0 480a |H | Short_Literal 0xa
00f1 e7ff | | Load 0x3,-0x1
00f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f3 e00b | | Load 0x0,0xb
00f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f5 01cc | | Execute Vector,Catenate
00f6 0092 017e | ~| Action Push_String_Extended,0x17e ; ", Width => "
00f8 01cc | | Execute Vector,Catenate
00f9 e7fc | | Load 0x3,-0x4
00fa e7fd | | Load 0x3,-0x3
00fb e7fe | | Load 0x3,-0x2
00fc e7ff | | Load 0x3,-0x1
00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00fe 8402 | | Call 0x2,0x2
00ff 01cc | | Execute Vector,Catenate
0100 0092 017f | | Action Push_String_Extended,0x17f ; ", Font_Family => "
0102 01cc | | Execute Vector,Catenate
0103 4820 |H | Short_Literal 0x20
0104 4800 |H | Short_Literal 0x0
0105 480a |H | Short_Literal 0xa
0106 e7ff | | Load 0x3,-0x1
0107 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0108 e00b | | Load 0x0,0xb
0109 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010a 01cc | | Execute Vector,Catenate
010b 8602 | | Call 0x3,0x2
010c 01cc | | Execute Vector,Catenate
010d 4404 |D | Exit_Subprogram With_Result,0x4
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e603 | | Load 0x3,0x3
0114 6804 |h | Jump_Zero 0x119
0115 482d |H- | Short_Literal 0x2d
0116 e9ff | | Load 0x4,-0x1
0117 01ca | | Execute Vector,Prepend
0118 4401 |D | Exit_Subprogram With_Result,0x1
0119 e9ff | | Load 0x4,-0x1
011a 4401 |D | Exit_Subprogram With_Result,0x1
011b 0000 0000 | | .BLANK 0000[0x5]
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 e9fe | | Load 0x4,-0x2
0124 7008 |p | Jump_Nonzero 0x12d
0125 4820 |H | Short_Literal 0x20
0126 4800 |H | Short_Literal 0x0
0127 480a |H | Short_Literal 0xa
0128 e9ff | | Load 0x4,-0x1
0129 e00b | | Load 0x0,0xb
012a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012b 8608 | | Call 0x3,0x8
012c 4402 |D | Exit_Subprogram With_Result,0x2
012d 482e |H. | Short_Literal 0x2e
012e 4820 |H | Short_Literal 0x20
012f 4800 |H | Short_Literal 0x0
0130 480a |H | Short_Literal 0xa
0131 e9ff | | Load 0x4,-0x1
0132 e00b | | Load 0x0,0xb
0133 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0134 01cb | | Execute Vector,Append
0135 4830 |H0 | Short_Literal 0x30
0136 4803 |H | Short_Literal 0x3
0137 480a |H | Short_Literal 0xa
0138 e9fe | | Load 0x4,-0x2
0139 e00b | | Load 0x0,0xb
013a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
013b 01cc | | Execute Vector,Catenate
013c 8608 | | Call 0x3,0x8
013d 4402 |D | Exit_Subprogram With_Result,0x2
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145 | E | .CONST 0x0145 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 029f 0173 | s| Declare_Subprogram For_Call,INIT_0170
0145 BODY_0140:
0145 e7ff | | Load 0x3,-0x1
0146 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0147 e7ff | | Load 0x3,-0x1
0148 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0149 0278 | x | Execute Discrete,Or
014a e7ff | | Load 0x3,-0x1
014b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
014c 0278 | x | Execute Discrete,Or
014d e7ff | | Load 0x3,-0x1
014e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
014f 0278 | x | Execute Discrete,Or
0150 681b |h | Jump_Zero 0x16c
0151 0092 0180 | | Action Push_String_Extended,0x180 ; ", Flags => "
0153 0092 0181 | | Action Push_String_Extended,0x181 ; "U"
0155 e7ff | | Load 0x3,-0x1
0156 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0157 8802 | | Call 0x4,0x2
0158 01cc | | Execute Vector,Catenate
0159 0092 0182 | | Action Push_String_Extended,0x182 ; "B"
015b e7ff | | Load 0x3,-0x1
015c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
015d 8802 | | Call 0x4,0x2
015e 01cc | | Execute Vector,Catenate
015f 0092 0183 | | Action Push_String_Extended,0x183 ; "I"
0161 e7ff | | Load 0x3,-0x1
0162 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0163 8802 | | Call 0x4,0x2
0164 01cc | | Execute Vector,Catenate
0165 0092 0184 | | Action Push_String_Extended,0x184 ; "C"
0167 e7ff | | Load 0x3,-0x1
0168 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0169 8802 | | Call 0x4,0x2
016a 01cc | | Execute Vector,Catenate
016b 00ca | | Action Exit_Nullary_Function
016c 00ea | | Load_Encached Null_String_Cache
016d 00ca | | Action Exit_Nullary_Function
016e 0000 0000 | | .XXX[0x2]
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 ebff | | Load 0x5,-0x1
0174 6802 |h | Jump_Zero 0x177
0175 ebfe | | Load 0x5,-0x2
0176 4402 |D | Exit_Subprogram With_Result,0x2
0177 00ea | | Load_Encached Null_String_Cache
0178 4402 |D | Exit_Subprogram With_Result,0x2
0179 ; --------------------------------------------------------------------------------------
0179 ; STRING TABLE
0179 ; --------------------------------------------------------------------------------------
0179 001a | | .STRTAB 0x001a->0x0186 ; "!Io.Io_Exceptions.End_Error"
017a 0033 | 3 | .STRTAB 0x0033->0x0193 ; " Points = "
017b 003b | ; | .STRTAB 0x003b->0x0198 ; " Inches"
017c 0040 | @ | .STRTAB 0x0040->0x019c ; "'"
; "'"
017d 003f | ? | .STRTAB 0x003f->0x019c ; ", Point_Size => "
017e 004d | M | .STRTAB 0x004d->0x01a4 ; ", Width => "
017f 0056 | V | .STRTAB 0x0056->0x01aa ; ", Font_Family => "
0180 0065 | e | .STRTAB 0x0065->0x01b2 ; ", Flags => "
0181 006e | n | .STRTAB 0x006e->0x01b8 ; "U"
0182 006d | m | .STRTAB 0x006d->0x01b8 ; "B"
0183 006c | l | .STRTAB 0x006c->0x01b9 ; "I"
0184 006b | k | .STRTAB 0x006b->0x01b9 ; "C"
0185 006a | j | .STREND 0x006a->0x01ba
0186 2149 6f2e |!Io.| .STRTAB_STRINGS
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0004 000f | | .DEBUG4 0x0004,0x000f,0x4305,0x0000,0x0001,0x0000
01c6 bb60 172f | ` /| .XXX[0x18]
01c8 2360 0000 |#` |
01ca 0060 0000 | ` |
01cc 0444 0e8d | D |
01ce 2dac ae64 |- d|
01d0 0dec c40e | |
01d2 8d0c a40c | |
01d4 adce 8e4d | M|
01d6 2cae 640d |, d |
01d8 2dc4 0e8d |- |
01da 0ca4 0ccd | |
01dc 2d8c a5c0 |- |
01de 0000 0000 | | .BLANK 0000[0x4]
01e2 172f cb60 | / `| .XXX[0x4]
01e4 172f 8160 | / `|
01e6 0000 0000 | | .BLANK 0000[0x4]
01ea 1729 9e60 | ) `| .XXX[0x16]
01ec 172f bb60 | / `|
01ee 172f eb60 | / `|
01f0 0000 0140 | @|
01f2 1730 5760 | 0W`|
01f4 1730 4760 | 0G`|
01f6 0000 00e0 | |
01f8 0000 0884 | |
01fa 092d cd2e | - .|
01fc 8d2c 2d8d | ,- |
01fe 2f4c a40e |/L |