Microtec Research Inc. ASM68020 V6.4 Page 1 Tue May 16 13:56:36 1995 Cmdline - dirac$dkb0:[hepe_users.trigger.][000000.trg_lib.uti_obj]asm68k.exe;2 /flags=p=68020 only_locals_dsp_control Line Address 1 OL_DSP_Control IDNT ; title Rev 16-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 Tue May 16 13:56:36 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 01B2 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 01D9 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 0200 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 0227 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 024E 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 0275 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 029C 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 0353 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 Tue May 16 13:56:36 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 02A1 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 032B 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 Tue May 16 13:56:36 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 021E 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 027D 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_C_Stat_Base_Address,A1 121 ; A1 = pointer to WUW for DSP C 122 123 00000156 267C 00B0 7DA0 MOVE.L #LDSP_C1_to_68K_Stat_Base_Address,A3 124 0000015C 287C 00B0 7DC0 MOVE.L #LDSP_C2_to_68K_Stat_Base_Address,A4 125 00000162 2A7C 00B0 7D60 MOVE.L #LDSP_C3_to_68K_Stat_Base_Address,A5 126 00000168 2C7C 00B0 7D80 MOVE.L #LDSP_C4_to_68K_Stat_Base_Address,A6 127 128 ; A3 = pointer to LDSP_C1-to-68K 129 ; Status Base Address 130 ; A4 = pointer to LDSP_C2-to-68K 131 ; Status Base Address 132 ; A5 = pointer to LDSP_C3-to-68K 133 ; Status Base Address 134 ; A6 = pointer to LDSP_C4-to-68K 135 ; Status Base Address 136 137 Loop 138 139 140 Set_WUW_Invalid 141 142 0000016E 22BC AA00 FF00 MOVE.L #Wakeup_Word_Invalid,(A1) 143 ; Set Local WUW Invalid for 144 ; Hydra C (DSP C1, C2, C3, C4) 145 146 Wait_for_DSP_Ready_and_Waiting 147 148 REPEAT 148.1 ??0007 ;>> REPEAT << 149 150 00000174 4E71 NOP ; Dummy Instruction, we are waiting 151 ; for the structured control conditions 152 ; to be satisfied Microtec Research Inc. ASM68020 V6.4 Page 5 Tue May 16 13:56:36 1995 Line Address 153 154 UNTIL.W (A3) #Local_Looking_for_Valid_W_U_W AND.W (A4) #Local_Looking_fo r_Valid_W_U_W 154.1 00000176 0C53 0001 ??0008 CMP.W #Local_Looking_for_Valid_W_U_W,(A3) ;>> UNTIL << 154.2 0000017A 66F8 BNE ??0007 ;>> UNTIL << 154.3 0000017C 0C54 0001 CMP.W #Local_Looking_for_Valid_W_U_W,(A4) ;>> UNTIL << 154.4 00000180 66F2 BNE ??0007 ;>> UNTIL << 154.5 ??0009 ;>> UNTIL << 155 156 REPEAT 156.1 ??0010 ;>> REPEAT << 157 158 00000182 4E71 NOP ; Dummy Instruction, we are waiting 159 ; for the structured control conditions 160 ; to be satisfied 161 162 UNTIL.W (A5) #Local_Looking_for_Valid_W_U_W AND.W (A6) #Local_Looking_fo r_Valid_W_U_W 162.1 00000184 0C55 0001 ??0011 CMP.W #Local_Looking_for_Valid_W_U_W,(A5) ;>> UNTIL << 162.2 00000188 66F8 BNE ??0010 ;>> UNTIL << 162.3 0000018A 0C56 0001 CMP.W #Local_Looking_for_Valid_W_U_W,(A6) ;>> UNTIL << 162.4 0000018E 66F2 BNE ??0010 ;>> UNTIL << 162.5 ??0012 ;>> UNTIL << 163 164 Set_WUW_Valid 165 166 00000190 2282 MOVE.L D2,(A1) 167 ; Set Wakeup Word Valid (indicating 168 ; Normal or MFP L1.5 CT Cycle) to 169 ; Hydra C (DSP C1, C2, C3, C4) 170 171 00000192 2A02 MOVE.L D2,D5 ; Pick wakeup word for next cycle. 172 00000194 2403 MOVE.L D3,D2 173 00000196 2605 MOVE.L D5,D3 174 175 Wait_for_Global_DSP_Answer 176 177 * REPEAT 178 * 179 * NOP ; Dummy Instruction, we are waiting 180 * ; for the structured control condition 181 * ; to be satisfied 182 * 183 * UNTIL.W (A4) #Global_Evaluated_all_Terms 184 185 Set_TW_Valid 186 187 * MOVE.L D1,(A2) 188 * ; Set Transfer Word Valid (indicating 189 * ; that the transfer to 214 should be 190 * ; performed, or not as chosen 191 * ; earlier) to Hydra B 192 193 Wait_for_Synch 194 195 REPEAT 195.1 ??0013 ;>> REPEAT << Microtec Research Inc. ASM68020 V6.4 Page 6 Tue May 16 13:56:36 1995 Line Address 196 197 00000198 4E71 NOP ; Dummy Instruction, we are waiting 198 ; for the structured control conditions 199 ; to be satisfied 200 201 UNTIL.W (A3) #Local_Cleaned_up_Wait_for_Synch AND.W (A4) #Local_Cleaned _up_Wait_for_Synch 201.1 0000019A 0C53 801F ??0014 CMP.W #Local_Cleaned_up_Wait_for_Synch,(A3) ;>> UNTIL << 201.2 0000019E 66F8 BNE ??0013 ;>> UNTIL << 201.3 000001A0 0C54 801F CMP.W #Local_Cleaned_up_Wait_for_Synch,(A4) ;>> UNTIL << 201.4 000001A4 66F2 BNE ??0013 ;>> UNTIL << 201.5 ??0015 ;>> UNTIL << 202 203 REPEAT 203.1 ??0016 ;>> REPEAT << 204 205 000001A6 4E71 NOP ; Dummy Instruction, we are waiting 206 ; for the structured control conditions 207 ; to be satisfied 208 209 UNTIL.W (A5) #Local_Cleaned_up_Wait_for_Synch AND.W (A6) #Local_Cleaned _up_Wait_for_Synch 209.1 000001A8 0C55 801F ??0017 CMP.W #Local_Cleaned_up_Wait_for_Synch,(A5) ;>> UNTIL << 209.2 000001AC 66F8 BNE ??0016 ;>> UNTIL << 209.3 000001AE 0C56 801F CMP.W #Local_Cleaned_up_Wait_for_Synch,(A6) ;>> UNTIL << 209.4 000001B2 66F2 BNE ??0016 ;>> UNTIL << 209.5 ??0018 ;>> UNTIL << 210 211 000001B4 5280 ADDQ.L #1,D0 ; Increment the Loop Counter 212 213 Go_to_Top_of_Loop 214 215 000001B6 4EFA FFB6 JMP Loop ; Go back! 216 217 ************************************************************************* 218 * Constants defined with EQU directives * 219 ************************************************************************* 220 221 0000032A B3_B4_B1_MFP_Data_Length EQU 810 ; Length of the 222 ; MFP Sections of 223 ; interest 224 225 00B07C80 LDSP_A2_to_68K_Stat_Base_Address EQU $00B07c80 ; Base Address of 226 ; the "Status to 227 00B07CA0 LDSP_A3_to_68K_Stat_Base_Address EQU $00B07ca0 ; 68K Services" block 228 ; for each of the 229 00B07CC0 LDSP_A4_to_68K_Stat_Base_Address EQU $00B07cc0 ; Local DSP and 230 ; the Global DSP 231 00B07CE0 LDSP_A1_to_68K_Stat_Base_Address EQU $00B07ce0 232 233 00B07D00 LDSP_B3_to_68K_Stat_Base_Address EQU $00B07d00 234 235 00B07D20 LDSP_B4_to_68K_Stat_Base_Address EQU $00B07d20 236 237 00B07D40 LDSP_B1_to_68K_Stat_Base_Address EQU $00B07d40 238 239 00B07D60 LDSP_C3_to_68K_Stat_Base_Address EQU $00B07d60 Microtec Research Inc. ASM68020 V6.4 Page 7 Tue May 16 13:56:36 1995 Line Address 240 241 00B07D80 LDSP_C4_to_68K_Stat_Base_Address EQU $00B07d80 242 243 00B07DA0 LDSP_C1_to_68K_Stat_Base_Address EQU $00B07da0 244 245 00B07DC0 LDSP_C2_to_68K_Stat_Base_Address EQU $00B07dc0 246 247 00B07DE0 GDSP_B2_to_68K_Stat_Base_Address EQU $00B07de0 248 249 250 00B07E00 SEK_to_DSP_A_Stat_Base_Address EQU $00B07e00 ; Base address 251 ; of the "Status 252 00B07E00 SEK_to_DSP_B_Stat_Base_Address EQU $00B07e00 ; from the "68K 253 ; Services" block. 254 00B07E00 SEK_to_DSP_C_Stat_Base_Address EQU $00B07e00 ; Each block 255 ; serves ALL 256 ; DSPs on ONE 257 ; Hydra card. 258 259 260 AA00FF00 Wakeup_Word_Invalid EQU $aa00ff00 ; Transfer and 261 ; Wakeup Words 262 55000007 Normal_Wakeup_Word EQU $55000007 ; generated by 263 ; this program 264 55070107 MFP_Wakeup_Word EQU $55070107 265 266 AA0000FF Transfer_Word_Invalid EQU $aa0000ff 267 268 55000001 Perform_Transfer_Word EQU $55000001 269 270 55000000 No_Transfer_Word EQU $55000000 271 272 00000001 Local_Looking_for_Valid_W_U_W EQU $0001 ; This Local DSP 273 ; is Ready for the 274 ; the next (or first) 275 ; loop and is looking 276 ; for a valid 277 ; Wake Up Word 278 279 00000003 Local_Received_Valid_W_U_W EQU $0003 ; This Local DSP 280 ; has received a 281 ; Valid Wake Up Word 282 283 00000007 Local_Received_all_ERPB_Data EQU $0007 ; This Local DSP 284 ; has received all 285 ; of its ERPB Data 286 287 0000000F Local_Started_Loc_Glob_Xfr EQU $000f ; This Local DSP 288 ; has started its 289 ; part(s) of the Local 290 ; to Global Xfr 291 292 0000001F Local_Finished_Loc_Glob_Xfr EQU $001f ; This Local DSP 293 ; has finished its 294 ; part(s) of the Local Microtec Research Inc. ASM68020 V6.4 Page 8 Tue May 16 13:56:36 1995 Line Address 295 ; to Global Transfer 296 ; (including Mark and 297 ; Force Pass Data 298 ; if applicable) 299 300 0000801F Local_Cleaned_Up_Wait_for_Synch EQU $801f ; This Local DSP 301 ; has cleaned up 302 ; from this Cycle 303 ; and is waiting 304 ; for all DSPs to 305 ; re-synchronize. 306 ; The EC will announce 307 ; this re-synching 308 ; by setting the 309 ; Wake Up Word 310 ; invalid 311 312 313 314 00000001 Global_Looking_for_Valid_W_U_W EQU $0001 ; The Global DSP 315 ; is Ready for the 316 ; the next (or first) 317 ; loop and is looking 318 ; for a valid 319 ; Wake Up Word 320 321 00000003 Global_Received_Valid_W_U_W EQU $0003 ; The Global DSP 322 ; has received a 323 ; Valid Wake Up Word 324 325 00000007 Global_Received_all_Local_Data EQU $0007 ; The Global DSP 326 ; has received all 327 ; of its Data from 328 ; all Local DSPS. 329 ; This includes the 330 ; Mark and Force 331 ; Pass Data if 332 ; applicable 333 334 00000008 Global_Evaluated_all_Terms EQU $0008 ; The Global DSP 335 ; has evaluated all 336 ; Terms and is now 337 ; providing the 338 ; Term Answer Word 339 ; to the EC 340 341 0000001F Global_Finished_Xfr_to_214 EQU $001f ; The Global DSP 342 ; has finished the 343 ; transfer of the 344 ; DSP-sourced Data 345 ; in the Data Block 346 ; to the MVME214. 347 ; This includes 348 ; Mark and Force 349 ; Pass Data if Microtec Research Inc. ASM68020 V6.4 Page 9 Tue May 16 13:56:36 1995 Line Address 350 ; applicable 351 352 0000002F Global_Skipped_Xfr_to_214 EQU $002f ; The Global DSP 353 ; has skipped 354 ; the transfer to 355 ; the 214 356 357 0000801F Global_Cleaned_Up_Wait_for_Synch EQU $801f ; The Global DSP 358 ; has cleaned up 359 ; from this Cycle 360 ; and is waiting 361 ; for all DSPs to 362 ; re-synchronize. 363 ; The EC will announce 364 ; this re-synching 365 ; by setting the 366 ; Wake Up Word 367 ; invalid 368 369 ************************************************************************* 370 * Data defined with DC directives * 371 ************************************************************************* 372 373 000001BA 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 374 000001ED 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 375 00000220 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 376 00000253 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 Microtec Research Inc. ASM68020 V6.4 Page 10 Tue May 16 13:56:36 1995 Line Address 6564 206F 6E20 204D 4650 2020 2020 20 377 00000286 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 378 000002B9 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 379 000002EC 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 380 0000031F 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 381 00000352 3220 2020 2049 BadCharLoc DC.B 50,' ILLEGAL KEY, TRY AGAIN PLEASE ' 4C4C 4547 414C 204B 4559 2C20 5452 5920 4147 4149 4E20 504C 4541 5345 2020 2020 2020 2020 2020 2020 2020 2020 20 382 00000385 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 Microtec Research Inc. ASM68020 V6.4 Page 11 Tue May 16 13:56:36 1995 Line Address 2020 20 383 000003B8 0431 2020 20 Cyc_Msg_Loc DC.B 4,'1 ' 384 385 000003BD 0420 2020 20 CharSpace DC.B 4,' ' 386 387 000003C2 0000 000F Low4Long DC.L $0000000F ; Low order 4 bits set, Mask for Sync. 388 389 000003C6 Data_Block_Storage_Loc DS.L B3_B4_B1_MFP_Data_Length ; Storage space 390 ; for Data Block 391 392 ************************************************************************* 393 * Cross-References * 394 ************************************************************************* 395 396 XREF ChrStrgOut,ChrWrtOut,BinASCII,SendCharP1 397 XDEF Low4Long 398 XDEF B3_B4_B1_MFP_Data_Length 399 XDEF Data_Block_Storage_Loc 400 401 ************************************************************************* 402 * End of this module * 403 ************************************************************************* 404 405 END Microtec Research Inc. ASM68020 V6.4 Page 12 Tue May 16 13:56:36 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:00000352 BINASCII External CHARSPACE NC_DSP_CONTROL:000003BD CHAR_IS_LOC NC_DSP_CONTROL:0000031F CHRSTRGOUT External CHRWRTOUT External CYC_MSG_LOC NC_DSP_CONTROL:000003B8 DATA_BLOCK_STORAGE_LOC NC_DSP_CONTROL:000003C6 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 Tue May 16 13:56:36 1995 GLOBAL_SKIPPED_XFR_TO_214 0000002F GOODBYE_LOC NC_DSP_CONTROL:00000385 GO_TO_TOP_OF_LOOP NC_DSP_CONTROL:000001B6 HELLO_0_LOC NC_DSP_CONTROL:000001BA HELLO_1_LOC NC_DSP_CONTROL:000001ED HELLO_2_LOC NC_DSP_CONTROL:00000220 HELLO_3_LOC NC_DSP_CONTROL:00000253 HELLO_4_LOC NC_DSP_CONTROL:00000286 HELLO_5_LOC NC_DSP_CONTROL:000002B9 HELLO_Q_LOC NC_DSP_CONTROL:000002EC LDSP_A1_TO_68K_STAT_BASE_ADDRES 00B07CE0 LDSP_A2_TO_68K_STAT_BASE_ADDRES 00B07C80 LDSP_A3_TO_68K_STAT_BASE_ADDRES 00B07CA0 LDSP_A4_TO_68K_STAT_BASE_ADDRES 00B07CC0 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 00B07DA0 LDSP_C2_TO_68K_STAT_BASE_ADDRES 00B07DC0 LDSP_C3_TO_68K_STAT_BASE_ADDRES 00B07D60 LDSP_C4_TO_68K_STAT_BASE_ADDRES 00B07D80 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:0000016E LOW4LONG NC_DSP_CONTROL:000003C2 MFP_WAKEUP_WORD 55070107 NORMAL_WAKEUP_WORD 55000007 NO_TRANSFER_WORD 55000000 PERFORM_TRANSFER_WORD 55000001 SEK_TO_DSP_A_STAT_BASE_ADDRESS 00B07E00 SEK_TO_DSP_B_STAT_BASE_ADDRESS 00B07E00 SEK_TO_DSP_C_STAT_BASE_ADDRESS 00B07E00 SENDCHARP1 External SETUP NC_DSP_CONTROL:0000014E SET_TW_VALID NC_DSP_CONTROL:00000198 SET_WUW_INVALID NC_DSP_CONTROL:0000016E SET_WUW_VALID NC_DSP_CONTROL:00000190 SOFTWAIT Macro START NC_DSP_CONTROL:00000000 SYSCALL Macro TRANSFER_WORD_INVALID AA0000FF WAIT_FOR_DSP_READY_AND_WAITING NC_DSP_CONTROL:00000174 WAIT_FOR_GLOBAL_DSP_ANSWER NC_DSP_CONTROL:00000198 WAIT_FOR_SYNCH NC_DSP_CONTROL:00000198 WAKEUP_WORD_INVALID AA00FF00 Errors: 0, Warnings: 0