|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b481
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0280 | | .CONST 0x0280 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 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 0030 | 0 | .CONST 0x0030 ; Address of begin 0019 009f | | .CONST 0x009f ; Address of exception handler 001a 000c | | .CONST 0x000c ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0322 | " | Declare_Variable Record 001d e003 | | Load 0x0,0x3 001e 0322 | " | Declare_Variable Record 001f e004 | | Load 0x0,0x4 0020 0322 | " | Declare_Variable Record 0021 e005 | | Load 0x0,0x5 0022 0322 | " | Declare_Variable Record 0023 e006 | | Load 0x0,0x6 0024 0322 | " | Declare_Variable Record 0025 e007 | | Load 0x0,0x7 0026 0322 | " | Declare_Variable Record 0027 e008 | | Load 0x0,0x8 0028 0007 | | Action Break_Optional 0029 00d8 | | Load_Top At_Offset_0 002a 0007 | | Action Break_Optional 002b e008 | | Load 0x0,0x8 002c 0007 | | Action Break_Optional 002d 00d8 | | Load_Top At_Offset_0 002e 0007 | | Action Break_Optional 002f 00e1 | | Load_Encached Boolean_Cache 0030 BODY_0018: 0030 e402 | | Load 0x2,0x2 0031 8009 | | Call 0x0,0x9 0032 00d1 | | Pop_Control Pop_Count_1 0033 e403 | | Load 0x2,0x3 0034 800a | | Call 0x0,0xa 0035 00d1 | | Pop_Control Pop_Count_1 0036 e404 | | Load 0x2,0x4 0037 800b | | Call 0x0,0xb 0038 00d1 | | Pop_Control Pop_Count_1 0039 e405 | | Load 0x2,0x5 003a 800c | | Call 0x0,0xc 003b 00d1 | | Pop_Control Pop_Count_1 003c e406 | | Load 0x2,0x6 003d 800d | | Call 0x0,0xd 003e 00d1 | | Pop_Control Pop_Count_1 003f e407 | | Load 0x2,0x7 0040 800e | | Call 0x0,0xe 0041 00d1 | | Pop_Control Pop_Count_1 0042 800f | | Call 0x0,0xf 0043 a408 | | Store_Unchecked 0x2,0x8 0044 800f | | Call 0x0,0xf 0045 a409 | | Store_Unchecked 0x2,0x9 0046 800f | | Call 0x0,0xf 0047 003b | ; | Store_Top Access,At_Offset_3 0048 800f | | Call 0x0,0xf 0049 003a | : | Store_Top Access,At_Offset_2 004a 00d8 | | Load_Top At_Offset_0 004b 00da | | Load_Top At_Offset_2 004c e40a | | Load 0x2,0xa 004d e409 | | Load 0x2,0x9 004e e408 | | Load 0x2,0x8 004f e407 | | Load 0x2,0x7 0050 e406 | | Load 0x2,0x6 0051 e405 | | Load 0x2,0x5 0052 e404 | | Load 0x2,0x4 0053 e403 | | Load 0x2,0x3 0054 e402 | | Load 0x2,0x2 0055 8010 | | Call 0x0,0x10 0056 00d6 | | Pop_Control Pop_Count_6 0057 c408 | | Store 0x2,0x8 0058 c409 | | Store 0x2,0x9 0059 c40a | | Store 0x2,0xa 005a 003b | ; | Store_Top Access,At_Offset_3 005b 0059 | Y | Store_Top Discrete,At_Offset_1 005c 8011 | | Call 0x0,0x11 005d 0f00 | | Execute_Immediate Equal,0x0 005e 00d9 | | Load_Top At_Offset_1 005f 0279 | y | Execute Discrete,And 0060 6818 |h | Jump_Zero 0x79 0061 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Source Ok." 0063 e012 | | Load 0x0,0x12 0064 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0065 4801 |H | Short_Literal 0x1 0066 e012 | | Load 0x0,0x12 0067 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0068 00d9 | | Load_Top At_Offset_1 0069 00db | | Load_Top At_Offset_3 006a e409 | | Load 0x2,0x9 006b e408 | | Load 0x2,0x8 006c e407 | | Load 0x2,0x7 006d e406 | | Load 0x2,0x6 006e e405 | | Load 0x2,0x5 006f e404 | | Load 0x2,0x4 0070 e403 | | Load 0x2,0x3 0071 e402 | | Load 0x2,0x2 0072 8013 | | Call 0x0,0x13 0073 00d6 | | Pop_Control Pop_Count_6 0074 c408 | | Store 0x2,0x8 0075 c409 | | Store 0x2,0x9 0076 c40a | | Store 0x2,0xa 0077 003a | : | Store_Top Access,At_Offset_2 0078 7804 |x | Jump 0x7d 0079 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Erreurs de compilation !!!" 007b e012 | | Load 0x0,0x12 007c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 007d 0092 00f8 | | Action Push_String_Extended,0xf8 ; "See you ..." 007f e012 | | Load 0x0,0x12 0080 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0081 e408 | | Load 0x2,0x8 0082 8014 | | Call 0x0,0x14 0083 c408 | | Store 0x2,0x8 0084 00db | | Load_Top At_Offset_3 0085 8014 | | Call 0x0,0x14 0086 c409 | | Store 0x2,0x9 0087 00da | | Load_Top At_Offset_2 0088 8014 | | Call 0x0,0x14 0089 003b | ; | Store_Top Access,At_Offset_3 008a 00d9 | | Load_Top At_Offset_1 008b 8014 | | Call 0x0,0x14 008c 003a | : | Store_Top Access,At_Offset_2 008d e402 | | Load 0x2,0x2 008e 8015 | | Call 0x0,0x15 008f 00d1 | | Pop_Control Pop_Count_1 0090 e403 | | Load 0x2,0x3 0091 8016 | | Call 0x0,0x16 0092 00d1 | | Pop_Control Pop_Count_1 0093 e404 | | Load 0x2,0x4 0094 8017 | | Call 0x0,0x17 0095 00d1 | | Pop_Control Pop_Count_1 0096 e405 | | Load 0x2,0x5 0097 8018 | | Call 0x0,0x18 0098 00d1 | | Pop_Control Pop_Count_1 0099 e406 | | Load 0x2,0x6 009a 8019 | | Call 0x0,0x19 009b 00d1 | | Pop_Control Pop_Count_1 009c e407 | | Load 0x2,0x7 009d 801a | | Call 0x0,0x1a 009e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009f TRAP_0018: 009f e01b | | Load 0x0,0x1b 00a0 010f | | Execute Exception,Equal 00a1 6805 |h | Jump_Zero 0xa7 00a2 0092 00f9 | | Action Push_String_Extended,0xf9 ; "!!! Erreur fatale de syntaxe !!!" 00a4 e012 | | Load 0x0,0x12 00a5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a7 e01c | | Load 0x0,0x1c 00a8 010f | | Execute Exception,Equal 00a9 6805 |h | Jump_Zero 0xaf 00aa 0092 00fa | | Action Push_String_Extended,0xfa ; "!!! Erreur fatale: Probleme dans la table des symboles !!!" 00ac e012 | | Load 0x0,0x12 00ad 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00af e01d | | Load 0x0,0x1d 00b0 010f | | Execute Exception,Equal 00b1 6805 |h | Jump_Zero 0xb7 00b2 0092 00fb | | Action Push_String_Extended,0xfb ; "!!! Erreur fatale: Probleme dans la table des modeles !!!" 00b4 e012 | | Load 0x0,0x12 00b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b7 e01e | | Load 0x0,0x1e 00b8 010f | | Execute Exception,Equal 00b9 6805 |h | Jump_Zero 0xbf 00ba 0092 00fc | | Action Push_String_Extended,0xfc ; "!!! Erreur fatale: Problemes d'execution !!!" 00bc e012 | | Load 0x0,0x12 00bd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00bf e01f | | Load 0x0,0x1f 00c0 010f | | Execute Exception,Equal 00c1 6805 |h | Jump_Zero 0xc7 00c2 0092 00fd | | Action Push_String_Extended,0xfd ; "!!! Erreur fatale: Verbe duplique dans le dictionaire !!!" 00c4 e012 | | Load 0x0,0x12 00c5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c7 e020 | | Load 0x0,0x20 00c8 010f | | Execute Exception,Equal 00c9 6805 |h | Jump_Zero 0xcf 00ca 0092 00fe | | Action Push_String_Extended,0xfe ; "!!! Erreur fatale: Complement duplique dans le dictionaire !!!" 00cc e012 | | Load 0x0,0x12 00cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00cf e021 | ! | Load 0x0,0x21 00d0 010f | | Execute Exception,Equal 00d1 6805 |h | Jump_Zero 0xd7 00d2 0092 00ff | | Action Push_String_Extended,0xff ; "!!! Erreur fatale: Tentative d'evaluer un noeud d'arbre retournant un mauvais type !!!" 00d4 e012 | | Load 0x0,0x12 00d5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d7 00d8 | | Load_Top At_Offset_0 00d8 0107 | | Execute Exception,Get_Name 00d9 4970 |Ip | Short_Literal 0x170 00da 497f |I | Short_Literal 0x17f 00db 0262 | b | Execute Discrete,In_Range 00dc 6808 |h | Jump_Zero 0xe5 00dd 4807 |H | Short_Literal 0x7 00de e012 | | Load 0x0,0x12 00df 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00e0 0092 0100 | | Action Push_String_Extended,0x100 ; "Erreur Fatale:Saisie effectuee hors du champ prevu" 00e2 e012 | | Load 0x0,0x12 00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e5 0092 0101 | | Action Push_String_Extended,0x101 ; "!!! Erreur Fatale non traitee :L'arret de la compilation peut etre due: " 00e7 e012 | | Load 0x0,0x12 00e8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00e9 0092 0102 | | Action Push_String_Extended,0x102 ; " -soit a un caractere NON-ASCII dans le fichier scenario" 00eb e012 | | Load 0x0,0x12 00ec 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ed 0092 0103 | | Action Push_String_Extended,0x103 ; " -soit a un identificateur trop long dans le fichier scenario " 00ef e012 | | Load 0x0,0x12 00f0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f1 0092 0104 | | Action Push_String_Extended,0x104 ; " -soit a une chaine de caractere trop longue dans le fichier scenario" 00f3 e012 | | Load 0x0,0x12 00f4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f6 ; -------------------------------------------------------------------------------------- 00f6 ; STRING TABLE 00f6 ; -------------------------------------------------------------------------------------- 00f6 0020 | | .STRTAB 0x0020->0x0106 ; "Source Ok." 00f7 0028 | ( | .STRTAB 0x0028->0x010b ; "Erreurs de compilation !!!" 00f8 0040 | @ | .STRTAB 0x0040->0x0118 ; "See you ..." 00f9 0049 | I | .STRTAB 0x0049->0x011d ; "!!! Erreur fatale de syntaxe !!!" 00fa 0067 | g | .STRTAB 0x0067->0x012d ; "!!! Erreur fatale: Probleme dans la table des symboles !!!" 00fb 009f | | .STRTAB 0x009f->0x014a ; "!!! Erreur fatale: Probleme dans la table des modeles !!!" 00fc 00d6 | | .STRTAB 0x00d6->0x0167 ; "!!! Erreur fatale: Problemes d'execution !!!" 00fd 0100 | | .STRTAB 0x0100->0x017d ; "!!! Erreur fatale: Verbe duplique dans le dictionaire !!!" 00fe 0137 | 7 | .STRTAB 0x0137->0x0199 ; "!!! Erreur fatale: Complement duplique dans le dictionaire !!!" 00ff 0173 | s | .STRTAB 0x0173->0x01b8 ; "!!! Erreur fatale: Tentative d'evaluer un noeud d'arbre retournant un mauvais type !!!" 0100 01c7 | | .STRTAB 0x01c7->0x01e3 ; "Erreur Fatale:Saisie effectuee hors du champ prevu" 0101 01f7 | | .STRTAB 0x01f7->0x01fc ; "!!! Erreur Fatale non traitee :L'arret de la compilation peut etre due: " 0102 023e | > | .STRTAB 0x023e->0x0221 ; " -soit a un caractere NON-ASCII dans le fichier scenario" 0103 0274 | t | .STRTAB 0x0274->0x023d ; " -soit a un identificateur trop long dans le fichier scenario " 0104 02b0 | | .STRTAB 0x02b0->0x025c ; " -soit a une chaine de caractere trop longue dans le fichier scenario" 0105 02f3 | | .STREND 0x02f3->0x027e 0106 536f 7572 |Sour| .STRTAB_STRINGS 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd48f,0x0000,0x0001,0x0002 0286 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 028a 001b 028e | | .DBG4T 0x001b,0x028e,0x8001,0x0000 028e ; -------------------------------------------------------------------------------------- 028e ; Debug chain 028e ; -------------------------------------------------------------------------------------- 028e 000b 0028 | (| .DBGLEN 0x000b,0x0028 0290 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0030,0x0033,0x0036,0x0039,0x003c,0x003f,0x0042,0x0044,0x0046,0x0048,0x004a,0x005c,0x0061,0x0065,0x0068,0x0079,0x007d,0x0081,0x0084,0x0087,0x008a,0x008d,0x0090,0x0093,0x0096,0x0099,0x009c,0x00a2,0x00aa,0x00b2,0x00ba,0x00c2,0x00ca,0x00d2,0x00dd,0x00e0,0x00e5,0x00e9,0x00ed,0x00f1 02c3 0000 0000 | | .BLANK 0000[0x13d]