|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 02e0 | | .CONST 0x02e0 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b1 | | .CONST 0x00b1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002f | / | .CONST 0x002f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0012 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0014 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0016 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0018 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001a 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
001c 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001e 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0020 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0022 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0024 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0026 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0028 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
002a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
002c e002 | | Load 0x0,0x2
002d 00d8 | | Load_Top At_Offset_0
002e e20d | | Load 0x1,0xd
002f e002 | | Load 0x0,0x2
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4804 |H | Short_Literal 0x4
0032 032e | . | Declare_Type Record,Defined,Visible
0033 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0035 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0037 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0039 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
003b 0093 0000 | | push_full_address 0x0
003d 60a6 |` | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00010000}
003e 0273 | s | Execute Discrete,Plus
003f e003 | | Load 0x0,0x3
0040 0273 | s | Execute Discrete,Plus
0041 e004 | | Load 0x0,0x4
0042 0273 | s | Execute Discrete,Plus
0043 e21c | | Load 0x1,0x1c
0044 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0045 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0046 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0047 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0048 e005 | | Load 0x0,0x5
0049 0386 | | Declare_Variable Package,Visible
004a 00d8 | | Load_Top At_Offset_0
004b 020f | | Execute Module,Activate
004c e006 | | Load 0x0,0x6
004d 00d9 | | Load_Top At_Offset_1
004e 0098 | | Execute Package,Field_Read_Dynamic
004f 0129 | ) | Execute Any,Make_Visible
0050 00bf | | Action Accept_Activation
0051 00e1 | | Load_Encached Boolean_Cache
0052 e002 | | Load 0x0,0x2
0053 00d8 | | Load_Top At_Offset_0
0054 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0056 4803 |H | Short_Literal 0x3
0057 032d | - | Declare_Type Record,Defined
0058 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0059 00c7 | | Action Elaborate_Subprogram
005a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005b 00c7 | | Action Elaborate_Subprogram
005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005d 00c7 | | Action Elaborate_Subprogram
005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005f 00c7 | | Action Elaborate_Subprogram
0060 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0061 00c7 | | Action Elaborate_Subprogram
0062 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0063 00c7 | | Action Elaborate_Subprogram
0064 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0065 00c7 | | Action Elaborate_Subprogram
0066 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0067 00c7 | | Action Elaborate_Subprogram
0068 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
006a 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
006c 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
006e 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
0070 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
0072 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
0074 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0076 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
0078 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
007a 0093 0000 | | push_full_address 0x0
007c 6063 |`c | Indirect_Literal Discrete,0xe0,{0x80000000, 0x00020000}
007d 0273 | s | Execute Discrete,Plus
007e e003 | | Load 0x0,0x3
007f 0273 | s | Execute Discrete,Plus
0080 e007 | | Load 0x0,0x7
0081 0273 | s | Execute Discrete,Plus
0082 e223 | # | Load 0x1,0x23
0083 e008 | | Load 0x0,0x8
0084 e221 | ! | Load 0x1,0x21
0085 0098 | | Execute Package,Field_Read_Dynamic
0086 e009 | | Load 0x0,0x9
0087 e221 | ! | Load 0x1,0x21
0088 0095 | | Execute Package,Field_Reference_Dynamic
0089 e00a | | Load 0x0,0xa
008a e221 | ! | Load 0x1,0x21
008b 0095 | | Execute Package,Field_Reference_Dynamic
008c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
008d 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
008e 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
008f 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0090 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0091 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0092 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0093 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0094 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0095 e00b | | Load 0x0,0xb
0096 0387 | | Declare_Variable Package
0097 00d8 | | Load_Top At_Offset_0
0098 020f | | Execute Module,Activate
0099 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
009b 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
009d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
009e 00c7 | | Action Elaborate_Subprogram
009f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b0 00c7 | | Action Elaborate_Subprogram
00b1 BODY_0008:
00b1 00bc | | Action Signal_Activated
00b2 00bb | | Action Signal_Completion
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4607 |F | Jump_Case 0x8
00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00bd 7807 |x | Jump 0xc5 ; case 0x1
00be 780a |x | Jump 0xc9 ; case 0x2
00bf 780e |x | Jump 0xce ; case 0x3
00c0 7811 |x | Jump 0xd2 ; case 0x4
00c1 7812 |x | Jump 0xd4 ; case 0x5
00c2 7813 |x | Jump 0xd6 ; case 0x6
00c3 7816 |x | Jump 0xda ; case 0x7
00c4 4302 |C | .XXX[0x1]
00c5 00da | | Load_Top At_Offset_2
00c6 0091 02cd | | Action Push_String_Extended_Indexed,0x2cd ; "PIN"
00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c9 00db | | Load_Top At_Offset_3
00ca 00db | | Load_Top At_Offset_3
00cb 00e0 | | Load_Encached Standard_Cache
00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ce 00da | | Load_Top At_Offset_2
00cf 00e0 | | Load_Encached Standard_Cache
00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d2 00db | | Load_Top At_Offset_3
00d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d4 00db | | Load_Top At_Offset_3
00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d6 e20d | | Load 0x1,0xd
00d7 00dc | | Load_Top At_Offset_4
00d8 0267 | g | Execute Discrete,Predecessor
00d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00da e20d | | Load 0x1,0xd
00db 00dc | | Load_Top At_Offset_4
00dc 0268 | h | Execute Discrete,Successor
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00de 0000 0000 | | .XXX[0x2]
00e0 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00e4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec 4800 |H | Short_Literal 0x0
00ed e5ff | | Load 0x2,-0x1
00ee 800c | | Call 0x0,0xc
00ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00db | | Load_Top At_Offset_3
00f4 4801 |H | Short_Literal 0x1
00f5 e5ff | | Load 0x2,-0x1
00f6 800c | | Call 0x0,0xc
00f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc 4802 |H | Short_Literal 0x2
00fd e5ff | | Load 0x2,-0x1
00fe 800c | | Call 0x0,0xc
00ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3
0104 e5fd | | Load 0x2,-0x3
0105 4800 |H | Short_Literal 0x0
0106 e5ff | | Load 0x2,-0x1
0107 800d | | Call 0x0,0xd
0108 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0109 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
0114 e5fd | | Load 0x2,-0x3
0115 4801 |H | Short_Literal 0x1
0116 e5ff | | Load 0x2,-0x1
0117 800d | | Call 0x0,0xd
0118 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0119 0000 0000 | | .BLANK 0000[0x7]
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 00ea | | Load_Encached Null_String_Cache
0124 e5fe | | Load 0x2,-0x2
0125 4802 |H | Short_Literal 0x2
0126 e5ff | | Load 0x2,-0x1
0127 800d | | Call 0x0,0xd
0128 4402 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2
0134 e00e | | Load 0x0,0xe
0135 e221 | ! | Load 0x1,0x21
0136 0096 | | Execute Package,Entry
0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0141 | A | .CONST 0x0141 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b e21c | | Load 0x1,0x1c
013c 0322 | " | Declare_Variable Record
013d e5fb | | Load 0x2,-0x5
013e e00f | | Load 0x0,0xf
013f e221 | ! | Load 0x1,0x21
0140 0096 | | Execute Package,Entry
0141 BODY_0138:
0141 00d8 | | Load_Top At_Offset_0
0142 e5ff | | Load 0x2,-0x1
0143 8010 | | Call 0x0,0x10
0144 00da | | Load_Top At_Offset_2
0145 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0146 e5fe | | Load 0x2,-0x2
0147 01db | | Execute Vector,Length
0148 6805 |h | Jump_Zero 0x14e
0149 00d8 | | Load_Top At_Offset_0
014a e5fe | | Load 0x2,-0x2
014b 8010 | | Call 0x0,0x10
014c 00da | | Load_Top At_Offset_2
014d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014e e5fd | | Load 0x2,-0x3
014f 00da | | Load_Top At_Offset_2
0150 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0151 e5fc | | Load 0x2,-0x4
0152 01db | | Execute Vector,Length
0153 6805 |h | Jump_Zero 0x159
0154 00d8 | | Load_Top At_Offset_0
0155 e5fc | | Load 0x2,-0x4
0156 8010 | | Call 0x0,0x10
0157 00da | | Load_Top At_Offset_2
0158 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0159 e5fb | | Load 0x2,-0x5
015a 00da | | Load_Top At_Offset_2
015b e011 | | Load 0x0,0x11
015c e221 | ! | Load 0x1,0x21
015d 0096 | | Execute Package,Entry
015e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
015f 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3
0164 4800 |H | Short_Literal 0x0
0165 e5ff | | Load 0x2,-0x1
0166 822e | . | Call 0x1,0x2e
0167 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 4801 |H | Short_Literal 0x1
016d e5ff | | Load 0x2,-0x1
016e 822e | . | Call 0x1,0x2e
016f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00db | | Load_Top At_Offset_3
0174 4802 |H | Short_Literal 0x2
0175 e5ff | | Load 0x2,-0x1
0176 822e | . | Call 0x1,0x2e
0177 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e5fd | | Load 0x2,-0x3
017c e5fe | | Load 0x2,-0x2
017d 4800 |H | Short_Literal 0x0
017e e5ff | | Load 0x2,-0x1
017f 822f | / | Call 0x1,0x2f
0180 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e5fd | | Load 0x2,-0x3
018c e5fe | | Load 0x2,-0x2
018d 4801 |H | Short_Literal 0x1
018e e5ff | | Load 0x2,-0x1
018f 822f | / | Call 0x1,0x2f
0190 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00ea | | Load_Encached Null_String_Cache
019c e5fe | | Load 0x2,-0x2
019d 4802 |H | Short_Literal 0x2
019e e5ff | | Load 0x2,-0x1
019f 822f | / | Call 0x1,0x2f
01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad | | .CONST 0x01ad ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab e21c | | Load 0x1,0x1c
01ac 0322 | " | Declare_Variable Record
01ad BODY_01a8:
01ad 00d8 | | Load_Top At_Offset_0
01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e002 | | Load 0x0,0x2
01bc 0007 | | Action Break_Optional
01bd BODY_01b8:
01bd e5fd | | Load 0x2,-0x3
01be 821e | | Call 0x1,0x1e
01bf 00d1 | | Pop_Control Pop_Count_1
01c0 e5fe | | Load 0x2,-0x2
01c1 821d | | Call 0x1,0x1d
01c2 e5fd | | Load 0x2,-0x3
01c3 017d | } | Execute Record,Structure_Write
01c4 e5fd | | Load 0x2,-0x3
01c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c6 e5fe | | Load 0x2,-0x2
01c7 e5ff | | Load 0x2,-0x1
01c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c9 8012 | | Call 0x0,0x12
01ca e5fd | | Load 0x2,-0x3
01cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cc e5fd | | Load 0x2,-0x3
01cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ce e5fe | | Load 0x2,-0x2
01cf e5ff | | Load 0x2,-0x1
01d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d1 8012 | | Call 0x0,0x12
01d2 e5fd | | Load 0x2,-0x3
01d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d4 00db | | Load_Top At_Offset_3
01d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01d6 e5fd | | Load 0x2,-0x3
01d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01d8 00d8 | | Load_Top At_Offset_0
01d9 e5ff | | Load 0x2,-0x1
01da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01db 8013 | | Call 0x0,0x13
01dc 7008 |p | Jump_Nonzero 0x1e5
01dd e5fd | | Load 0x2,-0x3
01de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01df e5fe | | Load 0x2,-0x2
01e0 e5ff | | Load 0x2,-0x1
01e1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01e2 8012 | | Call 0x0,0x12
01e3 e5fd | | Load 0x2,-0x3
01e4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ed e5fe | | Load 0x2,-0x2
01ee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ef 027f | | Execute Discrete,Equal
01f0 6816 |h | Jump_Zero 0x207
01f1 00db | | Load_Top At_Offset_3
01f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f3 00db | | Load_Top At_Offset_3
01f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f5 8013 | | Call 0x0,0x13
01f6 680e |h | Jump_Zero 0x205
01f7 00db | | Load_Top At_Offset_3
01f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f9 00db | | Load_Top At_Offset_3
01fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fb 8013 | | Call 0x0,0x13
01fc 6806 |h | Jump_Zero 0x203
01fd 00db | | Load_Top At_Offset_3
01fe 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01ff 00db | | Load_Top At_Offset_3
0200 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0201 8013 | | Call 0x0,0x13
0202 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0203 4800 |H | Short_Literal 0x0
0204 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0205 4800 |H | Short_Literal 0x0
0206 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0207 4800 |H | Short_Literal 0x0
0208 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4601 |F | Jump_Case 0x2
0214 7801 |x | Jump 0x216 ; case 0x0
0215 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0216 4800 |H | Short_Literal 0x0
0217 00db | | Load_Top At_Offset_3
0218 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e223 | # | Load 0x1,0x23
0224 0322 | " | Declare_Variable Record
0225 4800 |H | Short_Literal 0x0
0226 00d9 | | Load_Top At_Offset_1
0227 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0228 00db | | Load_Top At_Offset_3
0229 e014 | | Load 0x0,0x14
022a e221 | ! | Load 0x1,0x21
022b 0096 | | Execute Package,Entry
022c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022d 00d9 | | Load_Top At_Offset_1
022e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022f 00db | | Load_Top At_Offset_3
0230 e014 | | Load 0x0,0x14
0231 e221 | ! | Load 0x1,0x21
0232 0096 | | Execute Package,Entry
0233 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0234 00d9 | | Load_Top At_Offset_1
0235 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0236 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0237 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
023c e014 | | Load 0x0,0x14
023d e221 | ! | Load 0x1,0x21
023e 0096 | | Execute Package,Entry
023f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0240 8015 | | Call 0x0,0x15
0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c e014 | | Load 0x0,0x14
024d e221 | ! | Load 0x1,0x21
024e 0096 | | Execute Package,Entry
024f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0250 8015 | | Call 0x0,0x15
0251 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e014 | | Load 0x0,0x14
025d e221 | ! | Load 0x1,0x21
025e 0096 | | Execute Package,Entry
025f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0260 4602 |F | Jump_Case 0x3
0261 7805 |x | Jump 0x267 ; case 0x0
0262 7807 |x | Jump 0x26a ; case 0x1
0263 7800 |x | Jump 0x264 ; case 0x2
0264 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "in out"
0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0267 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "in"
0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026a 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "out"
026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 e014 | | Load 0x0,0x14
0275 e221 | ! | Load 0x1,0x21
0276 0096 | | Execute Package,Entry
0277 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0278 8015 | | Call 0x0,0x15
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028d 8015 | | Call 0x0,0x15
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 0000 | | .XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4801 |H | Short_Literal 0x1
0294 00db | | Load_Top At_Offset_3
0295 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0296 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
029d 8015 | | Call 0x0,0x15
029e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7 | | .CONST 0x02a7 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e008 | | Load 0x0,0x8
02a4 e221 | ! | Load 0x1,0x21
02a5 0098 | | Execute Package,Field_Read_Dynamic
02a6 0322 | " | Declare_Variable Record
02a7 BODY_02a0:
02a7 00d8 | | Load_Top At_Offset_0
02a8 e5fd | | Load 0x2,-0x3
02a9 e016 | | Load 0x0,0x16
02aa e221 | ! | Load 0x1,0x21
02ab 0096 | | Execute Package,Entry
02ac 00d1 | | Pop_Control Pop_Count_1
02ad 00d8 | | Load_Top At_Offset_0
02ae e5fe | | Load 0x2,-0x2
02af e5ff | | Load 0x2,-0x1
02b0 e017 | | Load 0x0,0x17
02b1 e22d | - | Load 0x1,0x2d
02b2 0096 | | Execute Package,Entry
02b3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bf | | .CONST 0x02bf ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb e008 | | Load 0x0,0x8
02bc e221 | ! | Load 0x1,0x21
02bd 0098 | | Execute Package,Field_Read_Dynamic
02be 0322 | " | Declare_Variable Record
02bf BODY_02b8:
02bf 00d8 | | Load_Top At_Offset_0
02c0 e5fd | | Load 0x2,-0x3
02c1 e016 | | Load 0x0,0x16
02c2 e221 | ! | Load 0x1,0x21
02c3 0096 | | Execute Package,Entry
02c4 00d1 | | Pop_Control Pop_Count_1
02c5 e5fc | | Load 0x2,-0x4
02c6 00d9 | | Load_Top At_Offset_1
02c7 e5fe | | Load 0x2,-0x2
02c8 e5ff | | Load 0x2,-0x1
02c9 e018 | | Load 0x0,0x18
02ca e22d | - | Load 0x1,0x2d
02cb 0096 | | Execute Package,Entry
02cc 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02cd ; --------------------------------------------------------------------------------------
02cd ; STRING TABLE
02cd ; --------------------------------------------------------------------------------------
02cd 000e | | .STRTAB 0x000e->0x02d4 ; "PIN"
02ce 000f | | .STRTAB 0x000f->0x02d5 ; "POUT"
02cf 0011 | | .STRTAB 0x0011->0x02d7 ; "PINOUT"
02d0 0015 | | .STRTAB 0x0015->0x02da ; "in out"
02d1 0019 | | .STRTAB 0x0019->0x02dd ; "in"
02d2 0019 | | .STRTAB 0x0019->0x02de ; "out"
02d3 001a | | .STREND 0x001a->0x02e0
02d4 5049 4e50 |PINP| .STRTAB_STRINGS
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5dae,0x0000,0x0001,0x0000
02e6 0000 0000 | | .BLANK 0000[0x11a]