Microtec Research Inc. ASM68020 V6.4 Page 1 Mon May 15 15:12:46 1995 Cmdline - dirac$dkb0:[hepe_users.trigger.][000000.trg_lib.uti_obj]asm68k.exe;2 /flags=p=68020 no_check_dsp_control Line Address 1 NC_DSP_Control IDNT ; title Rev 15-MAY-1995 2 3 SECTION NC_DSP_Control,4,C ; Declare a noncommon code 4 ; section. Align to Longwords. 5 6 * FOR 133 VERSION UNCOMMENT THE FOLLOWING LINE 7 INCLUDE 133Bug_Equates.Include ; Get the 133Bug "Sytem Calls". 7.1 ************************************************************************* 7.2 * 68020_EQUATES * 7.3 * This file contains the complete list of equates to use system * 7.4 * traps in MVME133ABUG * 7.5 ************************************************************************* 7.6 00000000 .INCHR EQU $0000 input character 7.7 00000001 .INSTAT EQU $0001 input serial port status 7.8 00000002 .INLN EQU $0002 input line (pointer/pointer) 7.9 00000003 .READSTR EQU $0003 input string (pointer/count) 7.10 00000004 .READLN EQU $0004 input line (pointer/count) 7.11 00000005 .CHKBRK EQU $0005 check for break 7.12 00000010 .DSKRD EQU $0010 disk read 7.13 00000011 .DSKWR EQU $0011 disk write 7.14 00000012 .DSKCFIG EQU $0012 disk configure 7.15 00000014 .DSKFMT EQU $0014 disk format 7.16 00000015 .DSKCTRL EQU $0015 disk control 7.17 00000020 .OUTCHR EQU $0020 output character 7.18 00000021 .OUTSTR EQU $0021 output string (pointer/pointer) 7.19 00000022 .OUTLN EQU $0022 output line (pointer/pointer) 7.20 00000023 .WRITE EQU $0023 output string (pointer/count) 7.21 00000024 .WRITELN EQU $0024 output line (pointer/count) 7.22 00000025 .WRITDLN EQU $0025 output line w/data (pointer/count) 7.23 00000026 .PCRLF EQU $0026 output 7.24 00000027 .ERASLN EQU $0027 erase line 7.25 00000028 .WRITD EQU $0028 output string w/data (pointer/count) 7.26 00000029 .SNDBRK EQU $0029 send break 7.27 00000040 .TM_INI EQU $0040 time initialization 7.28 00000041 .DT_INI EQU $0041 data initialization 7.29 00000042 .TM_DISP EQU $0042 display time from RTC 7.30 00000043 .TM_RD EQU $0043 read the RTC registers 7.31 00000060 .REDIR EQU $0060 redirect I/O of a TRAP #15 7.32 00000061 .REDIR_I EQU $0061 redirect input 7.33 00000062 .REDIR_O EQU $0062 redirect output 7.34 00000063 .RETURN EQU $0063 return to 133ABUG 7.35 00000064 .BINDEC EQU $0064 convert binary to BCD 7.36 00000067 .CHANGEV EQU $0067 parse value 7.37 00000068 .STRCMP EQU $0068 compare two strings (pointer/count) 7.38 00000069 .MULU32 EQU $0069 multiply unsigned 32-bit integers 7.39 0000006A .DIVU32 EQU $006A divide unsigned 32-bit integers 7.40 0000006B .CHK_SUM EQU $006B generate checksum 7.41 7.42 SYSCALL MACRO 7.43 TRAP #15 7.44 DC.W \1 7.45 ENDM 7.46 8 Microtec Research Inc. ASM68020 V6.4 Page 2 Mon May 15 15:12:46 1995 Line Address 9 * FOR 135 VERSION UNCOMMENT THE FOLLOWING LINE 10 * INCLUDE 135Bug_Equates.Include ; for 135Bug 11 12 ************************************************************************* 13 * This section defines program-specific macros: * 14 * * 15 * SOFTWAIT: Software delay timer for short waits * 16 * * 17 ************************************************************************* 18 19 20 SoftWait MACRO ; Software timer loop. 21 LOCAL WaitMore ; Define a local symbol. 22 MOVE.L \1,D4 ; Load delay time \1 into D4. 23 WaitMore SUBI.L #1,D4 ; Decrement loop counter. 24 BNE WaitMore ; Test for end of delay. 25 ENDM ; Called with an argument 26 ; of $1000 and with cashe off causes a delay of about 4 27 ; mill seconds, with cashe on the delay is 2.4 mill sec. 28 29 ************************************************************************* 30 * This is the code section * 31 ************************************************************************* 32 33 00000000 7001 Start MOVE.L #1,D0 ; Get the Cashe running 34 00000002 4E7B 0002 MOVEC D0,CACR 35 36 * FOR 135 VERSION UNCOMMENT THE FOLLOWING 3 LINES 37 * MOVE.L #$F92C,D0 ; Enable the VSB Interface 38 * MOVE.L #$FFFA0000,A1 ; (as the Controller) 39 * MOVE.W D0,(A1) 40 41 00000006 487A 01D4 4E71 PEA.L Hello_0_Loc ; push message address on stack. 42 0000000C 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 43 00000012 487A 01FB 4E71 PEA.L Hello_1_Loc ; push message address on stack. 44 00000018 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 45 0000001E 487A 0222 4E71 PEA.L Hello_2_Loc ; push message address on stack. 46 00000024 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 47 0000002A 487A 0249 4E71 PEA.L Hello_3_Loc ; push message address on stack. 48 00000030 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 49 00000036 487A 0270 4E71 PEA.L Hello_4_Loc ; push message address on stack. 50 0000003C 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 51 00000042 487A 0297 4E71 PEA.L Hello_5_Loc ; push message address on stack. 52 00000048 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 53 0000004E 487A 02BE 4E71 PEA.L Hello_Q_Loc ; push message address on stack. 54 00000054 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 55 56 SOFTWAIT #$1000 ; Wait about 3 mill seconds. 56.1 0000005A 283C 0000 1000 MOVE.L #$1000,D4 ; Load delay time \1 into D4. 56.2 00000060 0484 0000 0001 ??0001 SUBI.L #1,D4 ; Decrement loop counter. 56.3 00000066 66F8 BNE ??0001 ; Test for end of delay. 57 58 00000068 487A 0375 4E71 PEA.L CharSpace ; Push space and carage return message 59 0000006E 4EB9 0000 0000 E JSR ChrStrgOut ; on the stack and send it out. 60 Microtec Research Inc. ASM68020 V6.4 Page 3 Mon May 15 15:12:46 1995 Line Address 61 00000074 558F SUBQ.L #2,SP ; Allocate stack space for result 62 SYSCALL .inchr ; Get a character 62.1 00000076 4E4F TRAP #15 62.2 00000078 0000 DC.W .inchr 63 0000007A 101F MOVE.B (SP)+,D0 ; Put the character in D0 64 65 0000007C 487A 02C3 4E71 PEA.L Char_is_Loc ; push message address on stack 66 00000082 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out 67 68 00000088 2F00 MOVE.L D0,-(A7) ; Put keypress on stack 69 0000008A 4EB9 0000 0000 E JSR SendCharP1 ; and send it out 70 71 00000090 487A 034D 4E71 PEA.L CharSpace ; Push space and carage return message 72 00000096 4EB9 0000 0000 E JSR ChrStrgOut ; on the stack and send it out. 73 74 IF.B D0 #'1' THEN.S 74.1 0000009C 0C00 0031 CMP.B #'1',D0 ;>> IF << 74.2 000000A0 6618 BNE.S ??0002 ;>> IF << 75 000000A2 223C 5500 0001 MOVE.L #Perform_Transfer_Word,D1 76 000000A8 243C 5500 0007 MOVE.L #Normal_Wakeup_Word,D2 77 000000AE 263C 5500 0007 MOVE.L #Normal_Wakeup_Word,D3 78 000000B4 4EFA 0098 4E71 JMP Setup 79 ENDI 79.1 ??0002 ;>> ENDI << 80 81 IF.B D0 #'2' THEN.S 81.1 000000BA 0C00 0032 CMP.B #'2',D0 ;>> IF << 81.2 000000BE 6618 BNE.S ??0003 ;>> IF << 82 000000C0 223C 5500 0000 MOVE.L #No_Transfer_Word,D1 83 000000C6 243C 5500 0007 MOVE.L #Normal_Wakeup_Word,D2 84 000000CC 263C 5500 0007 MOVE.L #Normal_Wakeup_Word,D3 85 000000D2 4EFA 007A 4E71 JMP Setup 86 ENDI 86.1 ??0003 ;>> ENDI << 87 88 IF.B D0 #'3' THEN.S 88.1 000000D8 0C00 0033 CMP.B #'3',D0 ;>> IF << 88.2 000000DC 6618 BNE.S ??0004 ;>> IF << 89 000000DE 223C 5500 0001 MOVE.L #Perform_Transfer_Word,D1 90 000000E4 243C 5507 0107 MOVE.L #MFP_Wakeup_Word,D2 91 000000EA 263C 5507 0107 MOVE.L #MFP_Wakeup_Word,D3 92 000000F0 4EFA 005C 4E71 JMP Setup 93 ENDI 93.1 ??0004 ;>> ENDI << 94 95 IF.B D0 #'4' THEN.S 95.1 000000F6 0C00 0034 CMP.B #'4',D0 ;>> IF << 95.2 000000FA 6618 BNE.S ??0005 ;>> IF << 96 000000FC 223C 5500 0000 MOVE.L #No_Transfer_Word,D1 97 00000102 243C 5507 0107 MOVE.L #MFP_Wakeup_Word,D2 98 00000108 263C 5507 0107 MOVE.L #MFP_Wakeup_Word,D3 99 0000010E 4EFA 003E 4E71 JMP Setup 100 ENDI 100.1 ??0005 ;>> ENDI << 101 Microtec Research Inc. ASM68020 V6.4 Page 4 Mon May 15 15:12:46 1995 Line Address 102 IF.B D0 #'5' THEN.S 102.1 00000114 0C00 0035 CMP.B #'5',D0 ;>> IF << 102.2 00000118 6618 BNE.S ??0006 ;>> IF << 103 0000011A 223C 5500 0001 MOVE.L #Perform_Transfer_Word,D1 104 00000120 243C 5507 0107 MOVE.L #MFP_Wakeup_Word,D2 105 00000126 263C 5500 0007 MOVE.L #Normal_Wakeup_Word,D3 106 0000012C 4EFA 0020 4E71 JMP Setup 107 ENDI 107.1 ??0006 ;>> ENDI << 108 109 00000132 487A 0240 4E71 PEA.L BadCharLoc ; push message address on stack. 110 00000138 4EB9 0000 0000 E JSR ChrStrgOut ; and send it out. 111 112 0000013E 487A 029F 4E71 PEA.L CharSpace ; Push space and carage return message 113 00000144 4EB9 0000 0000 E JSR ChrStrgOut ; on the stack and send it out. 114 115 0000014A 4EFA FEB4 JMP Start ; Go back! 116 117 Setup 118 0000014E 7000 MOVE.L #0,D0 ; Set the Loop Counter to 0 119 120 00000150 227C 00B0 7E00 MOVE.L #SEK_to_DSP_B_Stat_Base_Address,A1 121 00000156 247C 00B0 7E08 MOVE.L #SEK_to_DSP_B_Stat_Base_Address+8,A2 122 ; A1 = pointer to WUW for DSP B 123 ; A2 = pointer to TW for DSP B 124 125 0000015C 267C 00B0 7D40 MOVE.L #LDSP_B1_to_68K_Stat_Base_Address,A3 126 00000162 287C 00B0 7DE0 MOVE.L #GDSP_B2_to_68K_Stat_Base_Address,A4 127 00000168 2A7C 00B0 7D00 MOVE.L #LDSP_B3_to_68K_Stat_Base_Address,A5 128 0000016E 2C7C 00B0 7D20 MOVE.L #LDSP_B4_to_68K_Stat_Base_Address,A6 129 130 ; A3 = pointer to LDSP_B1-to-68K 131 ; Status Base Address 132 ; A4 = pointer to GDSP_B2-to-68K 133 ; Status Base Address 134 ; A5 = pointer to LDSP_B3-to-68K 135 ; Status Base Address 136 ; A6 = pointer to LDSP_B4-to-68K 137 ; Status Base Address 138 139 Loop 140 141 Set_TW_Invalid 142 143 00000174 24BC AA00 00FF MOVE.L #Transfer_Word_Invalid,(A2) 144 ; Set Transfer Word Invalid for 145 ; Hydra B (DSP B1, B2, B3, B4) 146 147 Set_WUW_Invalid 148 149 0000017A 22BC AA00 FF00 MOVE.L #Wakeup_Word_Invalid,(A1) 150 ; Set Local WUW Invalid for 151 ; Hydra B (DSP B1, B2, B3, B4) 152 153 00000180 237C AA00 FF00 MOVE.L #Wakeup_Word_Invalid,4(A1) 0004 Microtec Research Inc. ASM68020 V6.4 Page 5 Mon May 15 15:12:46 1995 Line Address 154 ; Set Global WUW Invalid 155 ; for Hydra B 156 Wait_for_DSP_Ready_and_Waiting 157 158 REPEAT 158.1 ??0007 ;>> REPEAT << 159 160 00000188 4E71 NOP ; Dummy Instruction, we are waiting 161 ; for the structured control conditions 162 ; to be satisfied 163 164 UNTIL.W (A3) #Local_Looking_for_Valid_W_U_W AND.W (A4) #Global_Looking_f or_Valid_W_U_W 164.1 0000018A 0C53 0001 ??0008 CMP.W #Local_Looking_for_Valid_W_U_W,(A3) ;>> UNTIL << 164.2 0000018E 66F8 BNE ??0007 ;>> UNTIL << 164.3 00000190 0C54 0001 CMP.W #Global_Looking_for_Valid_W_U_W,(A4) ;>> UNTIL << 164.4 00000194 66F2 BNE ??0007 ;>> UNTIL << 164.5 ??0009 ;>> UNTIL << 165 166 REPEAT 166.1 ??0010 ;>> REPEAT << 167 168 00000196 4E71 NOP ; Dummy Instruction, we are waiting 169 ; for the structured control conditions 170 ; to be satisfied 171 172 UNTIL.W (A5) #Local_Looking_for_Valid_W_U_W AND.W (A6) #Local_Looking_fo r_Valid_W_U_W 172.1 00000198 0C55 0001 ??0011 CMP.W #Local_Looking_for_Valid_W_U_W,(A5) ;>> UNTIL << 172.2 0000019C 66F8 BNE ??0010 ;>> UNTIL << 172.3 0000019E 0C56 0001 CMP.W #Local_Looking_for_Valid_W_U_W,(A6) ;>> UNTIL << 172.4 000001A2 66F2 BNE ??0010 ;>> UNTIL << 172.5 ??0012 ;>> UNTIL << 173 174 Set_WUW_Valid 175 176 000001A4 2282 MOVE.L D2,(A1) 177 000001A6 2342 0004 MOVE.L D2,4(A1) ; Set Wakeup Word Valid (indicating 178 ; Normal or MFP L1.5 CT Cycle) to 179 ; Hydra B (DSP B1, B2, B3, B4) 180 181 000001AA 2A02 MOVE.L D2,D5 ; Pick wakeup word for next cycle. 182 000001AC 2403 MOVE.L D3,D2 183 000001AE 2605 MOVE.L D5,D3 184 185 Wait_for_Global_DSP_Answer 186 187 REPEAT 187.1 ??0013 ;>> REPEAT << 188 189 000001B0 4E71 NOP ; Dummy Instruction, we are waiting 190 ; for the structured control condition 191 ; to be satisfied 192 193 UNTIL.W (A4) #Global_Evaluated_all_Terms 193.1 000001B2 0C54 0008 ??0014 CMP.W #Global_Evaluated_all_Terms,(A4) ;>> UNTIL << 193.2 000001B6 6DF8 BLT ??0013 ;>> UNTIL << Microtec Research Inc. ASM68020 V6.4 Page 6 Mon May 15 15:12:46 1995 Line Address 193.3 ??0015 ;>> UNTIL << 194 195 Set_TW_Valid 196 197 000001B8 2481 MOVE.L D1,(A2) 198 ; Set Transfer Word Valid (indicating 199 ; that the transfer to 214 should be 200 ; performed, or not as chosen 201 ; earlier) to Hydra B 202 203 Wait_for_Synch 204 205 REPEAT 205.1 ??0016 ;>> REPEAT << 206 207 000001BA 4E71 NOP ; Dummy Instruction, we are waiting 208 ; for the structured control conditions 209 ; to be satisfied 210 211 UNTIL.W (A3) #Local_Cleaned_up_Wait_for_Synch AND.W (A4) #Global_Cleane d_up_Wait_for_Synch 211.1 000001BC 0C53 801F ??0017 CMP.W #Local_Cleaned_up_Wait_for_Synch,(A3) ;>> UNTIL << 211.2 000001C0 66F8 BNE ??0016 ;>> UNTIL << 211.3 000001C2 0C54 801F CMP.W #Global_Cleaned_up_Wait_for_Synch,(A4) ;>> UNTIL << 211.4 000001C6 6DF2 BLT ??0016 ;>> UNTIL << 211.5 ??0018 ;>> UNTIL << 212 213 REPEAT 213.1 ??0019 ;>> REPEAT << 214 215 000001C8 4E71 NOP ; Dummy Instruction, we are waiting 216 ; for the structured control conditions 217 ; to be satisfied 218 219 UNTIL.W (A5) #Local_Cleaned_up_Wait_for_Synch AND.W (A6) #Local_Cleaned _up_Wait_for_Synch 219.1 000001CA 0C55 801F ??0020 CMP.W #Local_Cleaned_up_Wait_for_Synch,(A5) ;>> UNTIL << 219.2 000001CE 66F8 BNE ??0019 ;>> UNTIL << 219.3 000001D0 0C56 801F CMP.W #Local_Cleaned_up_Wait_for_Synch,(A6) ;>> UNTIL << 219.4 000001D4 66F2 BNE ??0019 ;>> UNTIL << 219.5 ??0021 ;>> UNTIL << 220 221 000001D6 5280 ADDQ.L #1,D0 ; Increment the Loop Counter 222 223 Go_to_Top_of_Loop 224 225 000001D8 4EFA FF9A JMP Loop ; Go back! 226 227 ************************************************************************* 228 * Constants defined with EQU directives * 229 ************************************************************************* 230 231 0000032A B3_B4_B1_MFP_Data_Length EQU 810 ; Length of the 232 ; MFP Sections of 233 ; interest 234 235 00A07C80 LDSP_A2_to_68K_Stat_Base_Address EQU $00A07c80 ; Base Address of Microtec Research Inc. ASM68020 V6.4 Page 7 Mon May 15 15:12:46 1995 Line Address 236 ; the "Status to 237 00A07CA0 LDSP_A3_to_68K_Stat_Base_Address EQU $00A07ca0 ; 68K Services" block 238 ; for each of the 239 00A07CC0 LDSP_A4_to_68K_Stat_Base_Address EQU $00A07cc0 ; Local DSP and 240 ; the Global DSP 241 00A07CE0 LDSP_A1_to_68K_Stat_Base_Address EQU $00A07ce0 242 243 00B07D00 LDSP_B3_to_68K_Stat_Base_Address EQU $00B07d00 244 245 00B07D20 LDSP_B4_to_68K_Stat_Base_Address EQU $00B07d20 246 247 00B07D40 LDSP_B1_to_68K_Stat_Base_Address EQU $00B07d40 248 249 00C07D60 LDSP_C3_to_68K_Stat_Base_Address EQU $00C07d60 250 251 00C07D80 LDSP_C4_to_68K_Stat_Base_Address EQU $00C07d80 252 253 00C07DA0 LDSP_C1_to_68K_Stat_Base_Address EQU $00C07da0 254 255 00C07DC0 LDSP_C2_to_68K_Stat_Base_Address EQU $00C07dc0 256 257 00B07DE0 GDSP_B2_to_68K_Stat_Base_Address EQU $00B07de0 258 259 260 00A07E00 SEK_to_DSP_A_Stat_Base_Address EQU $00A07e00 ; Base address 261 ; of the "Status 262 00B07E00 SEK_to_DSP_B_Stat_Base_Address EQU $00B07e00 ; from the "68K 263 ; Services" block. 264 00C07E00 SEK_to_DSP_C_Stat_Base_Address EQU $00C07e00 ; Each block 265 ; serves ALL 266 ; DSPs on ONE 267 ; Hydra card. 268 269 270 AA00FF00 Wakeup_Word_Invalid EQU $aa00ff00 ; Transfer and 271 ; Wakeup Words 272 55000007 Normal_Wakeup_Word EQU $55000007 ; generated by 273 ; this program 274 55070107 MFP_Wakeup_Word EQU $55070107 275 276 AA0000FF Transfer_Word_Invalid EQU $aa0000ff 277 278 55000001 Perform_Transfer_Word EQU $55000001 279 280 55000000 No_Transfer_Word EQU $55000000 281 282 00000001 Local_Looking_for_Valid_W_U_W EQU $0001 ; This Local DSP 283 ; is Ready for the 284 ; the next (or first) 285 ; loop and is looking 286 ; for a valid 287 ; Wake Up Word 288 289 00000003 Local_Received_Valid_W_U_W EQU $0003 ; This Local DSP 290 ; has received a Microtec Research Inc. ASM68020 V6.4 Page 8 Mon May 15 15:12:46 1995 Line Address 291 ; Valid Wake Up Word 292 293 00000007 Local_Received_all_ERPB_Data EQU $0007 ; This Local DSP 294 ; has received all 295 ; of its ERPB Data 296 297 0000000F Local_Started_Loc_Glob_Xfr EQU $000f ; This Local DSP 298 ; has started its 299 ; part(s) of the Local 300 ; to Global Xfr 301 302 0000001F Local_Finished_Loc_Glob_Xfr EQU $001f ; This Local DSP 303 ; has finished its 304 ; part(s) of the Local 305 ; to Global Transfer 306 ; (including Mark and 307 ; Force Pass Data 308 ; if applicable) 309 310 0000801F Local_Cleaned_Up_Wait_for_Synch EQU $801f ; This Local DSP 311 ; has cleaned up 312 ; from this Cycle 313 ; and is waiting 314 ; for all DSPs to 315 ; re-synchronize. 316 ; The EC will announce 317 ; this re-synching 318 ; by setting the 319 ; Wake Up Word 320 ; invalid 321 322 323 324 00000001 Global_Looking_for_Valid_W_U_W EQU $0001 ; The Global DSP 325 ; is Ready for the 326 ; the next (or first) 327 ; loop and is looking 328 ; for a valid 329 ; Wake Up Word 330 331 00000003 Global_Received_Valid_W_U_W EQU $0003 ; The Global DSP 332 ; has received a 333 ; Valid Wake Up Word 334 335 00000007 Global_Received_all_Local_Data EQU $0007 ; The Global DSP 336 ; has received all 337 ; of its Data from 338 ; all Local DSPS. 339 ; This includes the 340 ; Mark and Force 341 ; Pass Data if 342 ; applicable 343 344 00000008 Global_Evaluated_all_Terms EQU $0008 ; The Global DSP 345 ; has evaluated all Microtec Research Inc. ASM68020 V6.4 Page 9 Mon May 15 15:12:46 1995 Line Address 346 ; Terms and is now 347 ; providing the 348 ; Term Answer Word 349 ; to the EC 350 351 0000001F Global_Finished_Xfr_to_214 EQU $001f ; The Global DSP 352 ; has finished the 353 ; transfer of the 354 ; DSP-sourced Data 355 ; in the Data Block 356 ; to the MVME214. 357 ; This includes 358 ; Mark and Force 359 ; Pass Data if 360 ; applicable 361 362 0000002F Global_Skipped_Xfr_to_214 EQU $002f ; The Global DSP 363 ; has skipped 364 ; the transfer to 365 ; the 214 366 367 0000801F Global_Cleaned_Up_Wait_for_Synch EQU $801f ; The Global DSP 368 ; has cleaned up 369 ; from this Cycle 370 ; and is waiting 371 ; for all DSPs to 372 ; re-synchronize. 373 ; The EC will announce 374 ; this re-synching 375 ; by setting the 376 ; Wake Up Word 377 ; invalid 378 379 ************************************************************************* 380 * Data defined with DC directives * 381 ************************************************************************* 382 383 000001DC 3220 2048 656C Hello_0_Loc DC.B 50,' Hello from the Baby DSP Control Program ' 6C6F 2066 726F 6D20 7468 6520 2042 6162 7920 4453 5020 436F 6E74 726F 6C20 2050 726F 6772 616D 2020 2020 2020 20 384 0000020F 3220 2020 2031 Hello_1_Loc DC.B 50,' 1: Transfer will be performed on Normal ' 3A20 2020 2020 5472 616E 7366 6572 2077 696C 6C20 6265 2070 6572 666F 726D 6564 206F 6E20 4E6F 726D 616C 2020 20 Microtec Research Inc. ASM68020 V6.4 Page 10 Mon May 15 15:12:46 1995 Line Address 385 00000242 3220 2020 2032 Hello_2_Loc DC.B 50,' 2: NO Transfer will be performed on Normal ' 3A20 204E 4F20 5472 616E 7366 6572 2077 696C 6C20 6265 2070 6572 666F 726D 6564 206F 6E20 4E6F 726D 616C 2020 20 386 00000275 3220 2020 2033 Hello_3_Loc DC.B 50,' 3: Transfer will be performed on MFP ' 3A20 2020 2020 5472 616E 7366 6572 2077 696C 6C20 6265 2070 6572 666F 726D 6564 206F 6E20 204D 4650 2020 2020 20 387 000002A8 3220 2020 2034 Hello_4_Loc DC.B 50,' 4: NO Transfer will be performed on MFP ' 3A20 204E 4F20 5472 616E 7366 6572 2077 696C 6C20 6265 2070 6572 666F 726D 6564 206F 6E20 204D 4650 2020 2020 20 388 000002DB 3220 2020 2035 Hello_5_Loc DC.B 50,' 5: Transfer on alternating normal/MFP ' 3A20 2020 2020 5472 616E 7366 6572 206F 6E20 616C 7465 726E 6174 696E 6720 6E6F 726D 616C 2F4D 4650 2020 2020 20 389 0000030E 3220 2043 686F Hello_Q_Loc DC.B 50,' Choose an option (1 .. 5): ' 6F73 6520 616E 206F 7074 696F 6E20 2831 202E 2E20 3529 3A20 2020 2020 2020 2020 2020 2020 2020 2020 2020 2020 20 390 00000341 3220 2059 6F75 Char_is_Loc DC.B 50,' You have pressed the following key: ' 2068 6176 6520 7072 6573 7365 6420 7468 6520 666F 6C6C 6F77 696E 6720 6B65 793A 2020 2020 2020 2020 2020 2020 20 391 00000374 3220 2020 2049 BadCharLoc DC.B 50,' ILLEGAL KEY, TRY AGAIN PLEASE ' 4C4C 4547 414C Microtec Research Inc. ASM68020 V6.4 Page 11 Mon May 15 15:12:46 1995 Line Address 204B 4559 2C20 5452 5920 4147 4149 4E20 504C 4541 5345 2020 2020 2020 2020 2020 2020 2020 2020 20 392 000003A7 3220 2047 6F6F Goodbye_Loc DC.B 50,' Goodbye from the Baby DSP Control Program ' 6462 7965 2066 726F 6D20 7468 6520 4261 6279 2044 5350 2043 6F6E 7472 6F6C 2050 726F 6772 616D 2020 2020 2020 20 393 000003DA 0431 2020 20 Cyc_Msg_Loc DC.B 4,'1 ' 394 395 000003DF 0420 2020 20 CharSpace DC.B 4,' ' 396 397 000003E4 0000 000F Low4Long DC.L $0000000F ; Low order 4 bits set, Mask for Sync. 398 399 000003E8 Data_Block_Storage_Loc DS.L B3_B4_B1_MFP_Data_Length ; Storage space 400 ; for Data Block 401 402 ************************************************************************* 403 * Cross-References * 404 ************************************************************************* 405 406 XREF ChrStrgOut,ChrWrtOut,BinASCII,SendCharP1 407 XDEF Low4Long 408 XDEF B3_B4_B1_MFP_Data_Length 409 XDEF Data_Block_Storage_Loc 410 411 ************************************************************************* 412 * End of this module * 413 ************************************************************************* 414 415 END Microtec Research Inc. ASM68020 V6.4 Page 12 Mon May 15 15:12:46 1995 Symbol Table Label Value .BINDEC 00000064 .CHANGEV 00000067 .CHKBRK 00000005 .CHK_SUM 0000006B .DIVU32 0000006A .DSKCFIG 00000012 .DSKCTRL 00000015 .DSKFMT 00000014 .DSKRD 00000010 .DSKWR 00000011 .DT_INI 00000041 .ERASLN 00000027 .INCHR 00000000 .INLN 00000002 .INSTAT 00000001 .MULU32 00000069 .OUTCHR 00000020 .OUTLN 00000022 .OUTSTR 00000021 .PCRLF 00000026 .READLN 00000004 .READSTR 00000003 .REDIR 00000060 .REDIR_I 00000061 .REDIR_O 00000062 .RETURN 00000063 .SNDBRK 00000029 .STRCMP 00000068 .TM_DISP 00000042 .TM_INI 00000040 .TM_RD 00000043 .WRITD 00000028 .WRITDLN 00000025 .WRITE 00000023 .WRITELN 00000024 B3_B4_B1_MFP_DATA_LENGTH 0000032A BADCHARLOC NC_DSP_CONTROL:00000374 BINASCII External CHARSPACE NC_DSP_CONTROL:000003DF CHAR_IS_LOC NC_DSP_CONTROL:00000341 CHRSTRGOUT External CHRWRTOUT External CYC_MSG_LOC NC_DSP_CONTROL:000003DA DATA_BLOCK_STORAGE_LOC NC_DSP_CONTROL:000003E8 GDSP_B2_TO_68K_STAT_BASE_ADDRES 00B07DE0 GLOBAL_CLEANED_UP_WAIT_FOR_SYNC 0000801F GLOBAL_EVALUATED_ALL_TERMS 00000008 GLOBAL_FINISHED_XFR_TO_214 0000001F GLOBAL_LOOKING_FOR_VALID_W_U_W 00000001 GLOBAL_RECEIVED_ALL_LOCAL_DATA 00000007 GLOBAL_RECEIVED_VALID_W_U_W 00000003 Microtec Research Inc. ASM68020 V6.4 Page 13 Mon May 15 15:12:46 1995 GLOBAL_SKIPPED_XFR_TO_214 0000002F GOODBYE_LOC NC_DSP_CONTROL:000003A7 GO_TO_TOP_OF_LOOP NC_DSP_CONTROL:000001D8 HELLO_0_LOC NC_DSP_CONTROL:000001DC HELLO_1_LOC NC_DSP_CONTROL:0000020F HELLO_2_LOC NC_DSP_CONTROL:00000242 HELLO_3_LOC NC_DSP_CONTROL:00000275 HELLO_4_LOC NC_DSP_CONTROL:000002A8 HELLO_5_LOC NC_DSP_CONTROL:000002DB HELLO_Q_LOC NC_DSP_CONTROL:0000030E LDSP_A1_TO_68K_STAT_BASE_ADDRES 00A07CE0 LDSP_A2_TO_68K_STAT_BASE_ADDRES 00A07C80 LDSP_A3_TO_68K_STAT_BASE_ADDRES 00A07CA0 LDSP_A4_TO_68K_STAT_BASE_ADDRES 00A07CC0 LDSP_B1_TO_68K_STAT_BASE_ADDRES 00B07D40 LDSP_B3_TO_68K_STAT_BASE_ADDRES 00B07D00 LDSP_B4_TO_68K_STAT_BASE_ADDRES 00B07D20 LDSP_C1_TO_68K_STAT_BASE_ADDRES 00C07DA0 LDSP_C2_TO_68K_STAT_BASE_ADDRES 00C07DC0 LDSP_C3_TO_68K_STAT_BASE_ADDRES 00C07D60 LDSP_C4_TO_68K_STAT_BASE_ADDRES 00C07D80 LOCAL_CLEANED_UP_WAIT_FOR_SYNCH 0000801F LOCAL_FINISHED_LOC_GLOB_XFR 0000001F LOCAL_LOOKING_FOR_VALID_W_U_W 00000001 LOCAL_RECEIVED_ALL_ERPB_DATA 00000007 LOCAL_RECEIVED_VALID_W_U_W 00000003 LOCAL_STARTED_LOC_GLOB_XFR 0000000F LOOP NC_DSP_CONTROL:00000174 LOW4LONG NC_DSP_CONTROL:000003E4 MFP_WAKEUP_WORD 55070107 NORMAL_WAKEUP_WORD 55000007 NO_TRANSFER_WORD 55000000 PERFORM_TRANSFER_WORD 55000001 SEK_TO_DSP_A_STAT_BASE_ADDRESS 00A07E00 SEK_TO_DSP_B_STAT_BASE_ADDRESS 00B07E00 SEK_TO_DSP_C_STAT_BASE_ADDRESS 00C07E00 SENDCHARP1 External SETUP NC_DSP_CONTROL:0000014E SET_TW_INVALID NC_DSP_CONTROL:00000174 SET_TW_VALID NC_DSP_CONTROL:000001B8 SET_WUW_INVALID NC_DSP_CONTROL:0000017A SET_WUW_VALID NC_DSP_CONTROL:000001A4 SOFTWAIT Macro START NC_DSP_CONTROL:00000000 SYSCALL Macro TRANSFER_WORD_INVALID AA0000FF WAIT_FOR_DSP_READY_AND_WAITING NC_DSP_CONTROL:00000188 WAIT_FOR_GLOBAL_DSP_ANSWER NC_DSP_CONTROL:000001B0 WAIT_FOR_SYNCH NC_DSP_CONTROL:000001BA WAKEUP_WORD_INVALID AA00FF00 Errors: 0, Warnings: 0