Advertisement
Guest User

Untitled

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