EASy68K  
It is currently Sun Apr 05, 2020 11:34 am

All times are UTC




Post new topic Reply to topic  [ 2 posts ] 
Author Message
 Post subject: Urgent! Please help
PostPosted: Fri Nov 15, 2013 1:02 pm 
Offline

Joined: Fri Nov 15, 2013 12:55 pm
Posts: 1
Why my programming output will became this?I really no idea!

Code:
PROGRAM1:
    BSR CLEAR           ; Branch to Subroutine "CLEAR"
    LEA  Building1,A1     ; Loads Effective address (Building1) into A1
    MOVE.B  #14,D0      ; Display the NULL terminated string at (A1) without $0D,$0A
    TRAP    #15         ; Execute I/O
   
    BSR DELAY1           ; Branch to Subroutine "DELAY1"
    BSR DELAY2           ; Branch to Subroutine "DELAY2"

    BSR CHK_KEYBOARD
    JMP PROGRAM2        ; Branch to PROGRAM2
   
PROGRAM2:
    BSR CLEAR           ; Branch to Subroutine "CLEAR"
    LEA  Building2,A1     ; Loads Effective address (Building2) into A1
    MOVE.B  #14,D0      ; Display the NULL terminated string at (A1) without $0D,$0A
    TRAP    #15         ; Execute I/O
   
    BSR DELAY1           ; Branch to Subroutine "DELAY1" 
    BSR DELAY3            ; Branch to Subroutine "DELAY3"
    BSR CHK_KEYBOARD
    BRA PROGRAM1        ; Branch to PROGRAM1

DELAY1:                  ; Subroutine of DELAY
    MOVE.L  #100,D1      ; Delay 5 second
    MOVE.B  #23,D0      ; TASK 23
    TRAP    #15         ; Execute I/O
    RTS                 ; Return To previous Routine
   
DELAY2:
     MOVE.B  #21,D0          Set Task 21 = font setting
     MOVE.L  #$00FFFF00,D1   Font color = Aqua
     MOVE.L  #$02080001,D2   Set Font name = Courier , size = 8 and style = Bold
     TRAP    #15             
     RTS                 ; Return To previous Routine
         
DELAY3:       
     MOVE.B  #21,D0         Set Task 21 = font setting
     MOVE.L  #$0000FFFF,D1   Font color = Yellow
     MOVE.L  #$02080001,D2   Set Font name = Courier , size = 8 and style = Bold
     TRAP    #15           
     RTS                 ; Return To previous Routine

code tags added by admin


Attachments:
Pic2.png
Pic2.png [ 175.04 KiB | Viewed 6138 times ]
Top
 Profile  
 
 Post subject: Re: Urgent! Please help
PostPosted: Fri Nov 15, 2013 10:09 pm 
Offline

Joined: Mon Jul 26, 2010 11:43 pm
Posts: 198
Location: Aurora, IL
http://www.catb.org/esr/faqs/smart-ques ... tml#urgent

Please take a deep breath, and try to post your source code in a CODE block so it is readable, and that it is COMPLETE.

What's the image supposed to look like?


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 2 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 5 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group