Advertisement
Guest User

Untitled

a guest
Nov 16th, 2019
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.                 Lea     ScrollBBase+($b*64)+(27*2),A1
  2.                 Jsr     Word_2GVRAM    
  3.                 Move.w  #AsciiOffset+CHR_Palette0+CHR_HighPri,D5 ; Color is different if in impulse.
  4.  
  5.                 Bra     @DoneSeperators
  6.  
  7. @NotImpulse:
  8.                 Move.w  #AsciiOffset+CHR_Palette3+CHR_HighPri+'.',D0        ; Place decimal points and '/' seperators.
  9.                 Lea     ScrollBBase+($5*64)+(28*2),A1          
  10.                 Jsr     Word_2GVRAM    
  11.                 Lea     ScrollBBase+($7*64)+(27*2),A1
  12.                 Jsr     Word_2GVRAM    
  13.                 Lea     ScrollBBase+($d*64)+(28*2),A1
  14.                 Jsr     Word_2GVRAM    
  15.                 Move.w  #AsciiOffset+CHR_Palette3+CHR_HighPri+'/',D0  
  16.                 Lea     ScrollBBase+($9*64)+(27*2),A1
  17.                 Jsr     Word_2GVRAM    
  18.                 Lea     ScrollBBase+($b*64)+(27*2),A1
  19.                 Jsr     Word_2GVRAM    
  20.                 Move.w  #AsciiOffset+CHR_Palette3+CHR_HighPri,D5 ; Set up character color.
  21.  
  22. @DoneSeperators:
  23.                 Move.w  CurrentDistance,D7                      ; Get whole part of DISTANCE.
  24.                 Moveq   #3,D6                                   ; Three characters.
  25.                 Moveq   #'$',D2                                 ; Lead with a spaces.
  26.                 Lea     ScrollBBase+($5*64)+(25*2),A1           ; Screen destination.
  27.                 Jsr     PrintVal                                ; Print it.
  28.                 Move.w  CurrentDistance+2,D7                    ; Get fractional part of DISTANCE.
  29.                 Moveq   #2,D6                                   ; Two digits.
  30.                 Move.w  #'0'
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement