|
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: 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 01d8 | | .CONST 0x01d8 ; 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 001a | | .CONST 0x001a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b e0b5 | | Load 0x0,0xb5
000c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
000d 4fff |O | Short_Literal -0x1
000e e011 | | Load 0x0,0x11
000f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0010 03f1 | | Declare_Variable Discrete,With_Value
0011 e011 | | Load 0x0,0x11
0012 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0013 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0014 00e1 | | Load_Encached Boolean_Cache
0015 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0016 e017 | | Load 0x0,0x17
0017 3c23 |<# | Execute Record,Field_Read,Field_Number 0x23
0018 00e2 | | Load_Encached Integer_Cache
0019 03f1 | | Declare_Variable Discrete,With_Value
001a BODY_0008:
001a e5ff | | Load 0x2,-0x1
001b e011 | | Load 0x0,0x11
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
001e e0b5 | | Load 0x0,0xb5
001f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0020 a402 | | Store_Unchecked 0x2,0x2
0021 e402 | | Load 0x2,0x2
0022 e0b5 | | Load 0x0,0xb5
0023 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0024 e5ff | | Load 0x2,-0x1
0025 e011 | | Load 0x0,0x11
0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0027 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0028 0e00 | | Execute_Immediate Not_Equal,0x0
0029 0279 | y | Execute Discrete,And
002a 6805 |h | Jump_Zero 0x30
002b 0092 0158 | X| Action Push_String_Extended,0x158 ; "Argument to Set_Tab was unrecognizable"
002d e01c | | Load 0x0,0x1c
002e 180e | | Execute Package,Field_Execute,Field_Number 0xe
002f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0030 00cf | | Action Mark_Auxiliary
0031 7862 |xb | Jump 0x94
0032 4800 |H | Short_Literal 0x0
0033 e402 | | Load 0x2,0x2
0034 e0b5 | | Load 0x0,0xb5
0035 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0036 684f |hO | Jump_Zero 0x86
0037 e402 | | Load 0x2,0x2
0038 e0b5 | | Load 0x0,0xb5
0039 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
003a 4604 |F | Jump_Case 0x5
003b 7853 |xS | Jump 0x8f ; case 0x0
003c 7818 |x | Jump 0x55 ; case 0x1
003d 781f |x | Jump 0x5d ; case 0x2
003e 7840 |x@ | Jump 0x7f ; case 0x3
003f 7800 |x | Jump 0x40 ; case 0x4
0040 6113 |a | Indirect_Literal Discrete,0x154,{0x00000000, 0x7fffffff}
0041 4800 |H | Short_Literal 0x0
0042 e402 | | Load 0x2,0x2
0043 e0b5 | | Load 0x0,0xb5
0044 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0045 a406 | | Store_Unchecked 0x2,0x6
0046 e406 | | Load 0x2,0x6
0047 0d00 | | Execute_Immediate Less,0x0
0048 e406 | | Load 0x2,0x6
0049 49ff |I | Short_Literal 0x1ff
004a 027d | } | Execute Discrete,Greater
004b 0278 | x | Execute Discrete,Or
004c 6842 |hB | Jump_Zero 0x8f
004d 0092 0159 | Y| Action Push_String_Extended,0x159 ; "Leader_Unit_Size must be between 0 and 511. Default used instead"
004f e01c | | Load 0x0,0x1c
0050 180e | | Execute Package,Field_Execute,Field_Number 0xe
0051 e017 | | Load 0x0,0x17
0052 3c23 |<# | Execute Record,Field_Read,Field_Number 0x23
0053 a406 | | Store_Unchecked 0x2,0x6
0054 783a |x: | Jump 0x8f
0055 00ea | | Load_Encached Null_String_Cache
0056 4800 |H | Short_Literal 0x0
0057 e402 | | Load 0x2,0x2
0058 e0b5 | | Load 0x0,0xb5
0059 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
005a 801b | | Call 0x0,0x1b
005b a403 | | Store_Unchecked 0x2,0x3
005c 7832 |x2 | Jump 0x8f
005d 4800 |H | Short_Literal 0x0
005e 4801 |H | Short_Literal 0x1
005f 4800 |H | Short_Literal 0x0
0060 e402 | | Load 0x2,0x2
0061 e0b6 | | Load 0x0,0xb6
0062 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0063 4604 |F | Jump_Case 0x5
0064 7807 |x | Jump 0x6c ; case 0x0
0065 7810 |x | Jump 0x76 ; case 0x1
0066 7812 |x | Jump 0x79 ; case 0x2
0067 7814 |x | Jump 0x7c ; case 0x3
0068 7800 |x | Jump 0x69 ; case 0x4
0069 4801 |H | Short_Literal 0x1
006a a404 | | Store_Unchecked 0x2,0x4
006b 7823 |x# | Jump 0x8f
006c 0092 015a | Z| Action Push_String_Extended,0x15a ; "Set_Tab Kind"
006e 4800 |H | Short_Literal 0x0
006f e402 | | Load 0x2,0x2
0070 e0b5 | | Load 0x0,0xb5
0071 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0072 01cc | | Execute Vector,Catenate
0073 e01c | | Load 0x0,0x1c
0074 180e | | Execute Package,Field_Execute,Field_Number 0xe
0075 7819 |x | Jump 0x8f
0076 4803 |H | Short_Literal 0x3
0077 a404 | | Store_Unchecked 0x2,0x4
0078 7816 |x | Jump 0x8f
0079 4802 |H | Short_Literal 0x2
007a a404 | | Store_Unchecked 0x2,0x4
007b 7813 |x | Jump 0x8f
007c 4804 |H | Short_Literal 0x4
007d a404 | | Store_Unchecked 0x2,0x4
007e 7810 |x | Jump 0x8f
007f 4800 |H | Short_Literal 0x0
0080 4800 |H | Short_Literal 0x0
0081 e402 | | Load 0x2,0x2
0082 e0b5 | | Load 0x0,0xb5
0083 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0084 a405 | | Store_Unchecked 0x2,0x5
0085 7809 |x | Jump 0x8f
0086 0092 015b | [| Action Push_String_Extended,0x15b ; "Set_Tab"
0088 4800 |H | Short_Literal 0x0
0089 e402 | | Load 0x2,0x2
008a e0b5 | | Load 0x0,0xb5
008b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
008c 01cc | | Execute Vector,Catenate
008d e01c | | Load 0x0,0x1c
008e 180e | | Execute Package,Field_Execute,Field_Number 0xe
008f e402 | | Load 0x2,0x2
0090 e0b5 | | Load 0x0,0xb5
0091 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0092 c402 | | Store 0x2,0x2
0093 00c9 | | Action Pop_Auxiliary_Loop
0094 e402 | | Load 0x2,0x2
0095 e0b5 | | Load 0x0,0xb5
0096 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0097 6f9a |o | Jump_Zero 0x32
0098 00ce | | Action Pop_Auxiliary
0099 e404 | | Load 0x2,0x4
009a 0f00 | | Execute_Immediate Equal,0x0
009b e403 | | Load 0x2,0x3
009c 0d00 | | Execute_Immediate Less,0x0
009d 0278 | x | Execute Discrete,Or
009e 6805 |h | Jump_Zero 0xa4
009f 0092 015c | \| Action Push_String_Extended,0x15c ; "Both a tab kind (kind) and a position (where) must be specified"
00a1 e01c | | Load 0x0,0x1c
00a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a4 00cf | | Action Mark_Auxiliary
00a5 e01d | | Load 0x0,0x1d
00a6 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
00a7 4801 |H | Short_Literal 0x1
00a8 0263 | c | Execute Discrete,Above_Bound
00a9 7079 |py | Jump_Nonzero 0x123
00aa 00d8 | | Load_Top At_Offset_0
00ab e01d | | Load 0x0,0x1d
00ac 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
00ad 01d7 | | Execute Vector,Field_Read
00ae e403 | | Load 0x2,0x3
00af 027f | | Execute Discrete,Equal
00b0 6819 |h | Jump_Zero 0xca
00b1 e404 | | Load 0x2,0x4
00b2 e409 | | Load 0x2,0x9
00b3 e01d | | Load 0x0,0x1d
00b4 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
00b5 01d6 | | Execute Vector,Field_Write
00b6 e405 | | Load 0x2,0x5
00b7 680c |h | Jump_Zero 0xc4
00b8 e406 | | Load 0x2,0x6
00b9 00d8 | | Load_Top At_Offset_0
00ba e011 | | Load 0x0,0x11
00bb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00bc 0260 | ` | Execute Discrete,In_Type
00bd 7001 |p | Jump_Nonzero 0xbf
00be 0801 | | Execute_Immediate Raise,0x1
00bf e409 | | Load 0x2,0x9
00c0 e01d | | Load 0x0,0x1d
00c1 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
00c2 01d6 | | Execute Vector,Field_Write
00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c4 4fff |O | Short_Literal -0x1
00c5 e409 | | Load 0x2,0x9
00c6 e01d | | Load 0x0,0x1d
00c7 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
00c8 01d6 | | Execute Vector,Field_Write
00c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ca 00d8 | | Load_Top At_Offset_0
00cb e01d | | Load 0x0,0x1d
00cc 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
00cd 01d7 | | Execute Vector,Field_Read
00ce e403 | | Load 0x2,0x3
00cf 027d | } | Execute Discrete,Greater
00d0 6850 |hP | Jump_Zero 0x121
00d1 e01d | | Load 0x0,0x1d
00d2 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
00d3 0f28 | ( | Execute_Immediate Equal,0x28
00d4 6805 |h | Jump_Zero 0xda
00d5 0092 015d | ]| Action Push_String_Extended,0x15d ; "The tab cannot be set because tab stop table is full"
00d7 e01c | | Load 0x0,0x1c
00d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00da 00cf | | Action Mark_Auxiliary
00db e409 | | Load 0x2,0x9
00dc e01d | | Load 0x0,0x1d
00dd 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
00de 0264 | d | Execute Discrete,Below_Bound
00df 701d |p | Jump_Nonzero 0xfd
00e0 00d8 | | Load_Top At_Offset_0
00e1 e01d | | Load 0x0,0x1d
00e2 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
00e3 01d7 | | Execute Vector,Field_Read
00e4 e40c | | Load 0x2,0xc
00e5 0a01 | | Execute_Immediate Plus,0x1
00e6 e01d | | Load 0x0,0x1d
00e7 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
00e8 01d6 | | Execute Vector,Field_Write
00e9 00d8 | | Load_Top At_Offset_0
00ea e01d | | Load 0x0,0x1d
00eb 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
00ec 01d7 | | Execute Vector,Field_Read
00ed e40c | | Load 0x2,0xc
00ee 0a01 | | Execute_Immediate Plus,0x1
00ef e01d | | Load 0x0,0x1d
00f0 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
00f1 01d6 | | Execute Vector,Field_Write
00f2 00d8 | | Load_Top At_Offset_0
00f3 e01d | | Load 0x0,0x1d
00f4 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
00f5 01d7 | | Execute Vector,Field_Read
00f6 e40c | | Load 0x2,0xc
00f7 0a01 | | Execute_Immediate Plus,0x1
00f8 e01d | | Load 0x0,0x1d
00f9 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
00fa 01d6 | | Execute Vector,Field_Write
00fb 00c8 | | Action Pop_Auxiliary_Range
00fc 37e3 |7 | Loop_Decreasing 0xe0
00fd 00ce | | Action Pop_Auxiliary
00fe e403 | | Load 0x2,0x3
00ff e409 | | Load 0x2,0x9
0100 e01d | | Load 0x0,0x1d
0101 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
0102 01d6 | | Execute Vector,Field_Write
0103 e404 | | Load 0x2,0x4
0104 e409 | | Load 0x2,0x9
0105 e01d | | Load 0x0,0x1d
0106 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
0107 01d6 | | Execute Vector,Field_Write
0108 e405 | | Load 0x2,0x5
0109 680c |h | Jump_Zero 0x116
010a e406 | | Load 0x2,0x6
010b 00d8 | | Load_Top At_Offset_0
010c e011 | | Load 0x0,0x11
010d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
010e 0260 | ` | Execute Discrete,In_Type
010f 7001 |p | Jump_Nonzero 0x111
0110 0801 | | Execute_Immediate Raise,0x1
0111 e409 | | Load 0x2,0x9
0112 e01d | | Load 0x0,0x1d
0113 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
0114 01d6 | | Execute Vector,Field_Write
0115 7805 |x | Jump 0x11b
0116 4fff |O | Short_Literal -0x1
0117 e409 | | Load 0x2,0x9
0118 e01d | | Load 0x0,0x1d
0119 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
011a 01d6 | | Execute Vector,Field_Write
011b e01d | | Load 0x0,0x1d
011c 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
011d 0a01 | | Execute_Immediate Plus,0x1
011e e01d | | Load 0x0,0x1d
011f 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0120 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0121 00c8 | | Action Pop_Auxiliary_Range
0122 3f87 |? | Loop_Increasing 0xaa
0123 00ce | | Action Pop_Auxiliary
0124 e01d | | Load 0x0,0x1d
0125 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
0126 0f28 | ( | Execute_Immediate Equal,0x28
0127 6805 |h | Jump_Zero 0x12d
0128 0092 015d | ]| Action Push_String_Extended,0x15d ; "The tab cannot be set because tab stop table is full"
012a e01c | | Load 0x0,0x1c
012b 180e | | Execute Package,Field_Execute,Field_Number 0xe
012c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012d e01d | | Load 0x0,0x1d
012e 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
012f 0a01 | | Execute_Immediate Plus,0x1
0130 e01d | | Load 0x0,0x1d
0131 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0132 e403 | | Load 0x2,0x3
0133 e01d | | Load 0x0,0x1d
0134 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
0135 e01d | | Load 0x0,0x1d
0136 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
0137 01d6 | | Execute Vector,Field_Write
0138 e404 | | Load 0x2,0x4
0139 e01d | | Load 0x0,0x1d
013a 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
013b e01d | | Load 0x0,0x1d
013c 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
013d 01d6 | | Execute Vector,Field_Write
013e e405 | | Load 0x2,0x5
013f 680d |h | Jump_Zero 0x14d
0140 00d8 | | Load_Top At_Offset_0
0141 00d8 | | Load_Top At_Offset_0
0142 e011 | | Load 0x0,0x11
0143 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0144 0260 | ` | Execute Discrete,In_Type
0145 7001 |p | Jump_Nonzero 0x147
0146 0801 | | Execute_Immediate Raise,0x1
0147 e01d | | Load 0x0,0x1d
0148 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
0149 e01d | | Load 0x0,0x1d
014a 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
014b 01d6 | | Execute Vector,Field_Write
014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014d 4fff |O | Short_Literal -0x1
014e e01d | | Load 0x0,0x1d
014f 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
0150 e01d | | Load 0x0,0x1d
0151 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
0152 01d6 | | Execute Vector,Field_Write
0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0154 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0158 ; --------------------------------------------------------------------------------------
0158 ; STRING TABLE
0158 ; --------------------------------------------------------------------------------------
0158 000e | | .STRTAB 0x000e->0x015f ; "Argument to Set_Tab was unrecognizable"
0159 0032 | 2 | .STRTAB 0x0032->0x0172 ; "Leader_Unit_Size must be between 0 and 511. Default used instead"
015a 0071 | q | .STRTAB 0x0071->0x0192 ; "Set_Tab Kind"
015b 007b | { | .STRTAB 0x007b->0x0198 ; "Set_Tab"
015c 0080 | | .STRTAB 0x0080->0x019c ; "Both a tab kind (kind) and a position (where) must be specified"
015d 00bd | | .STRTAB 0x00bd->0x01bb ; "The tab cannot be set because tab stop table is full"
015e 00ef | | .STREND 0x00ef->0x01d5
015f 4172 6775 |Argu| .STRTAB_STRINGS
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000f | | .DEBUG4 0x0004,0x000f,0x480a,0x0000,0x0001,0x0000
01de 0000 0000 | | .BLANK 0000[0x22]