Mercurial > public > hwos_code

comparison src/convert.asm @ 628:cd58f7fc86db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
3.05 stable work
author heinrichsweikamp
date Thu, 19 Sep 2019 12:01:29 +0200
parents c40025d8e750
children 4050675965ea
comparison
equal deleted inserted replaced
627:bf5fee575701 628:cd58f7fc86db
1 ;============================================================================= 1 ;=============================================================================
2 ; 2 ;
3 ; File convert.asm combined next generation V3.0.1 3 ; File convert.asm combined next generation V3.04.2
4 ; 4 ;
5 ; Converts register values to string 5 ; Converts register values to string
6 ; 6 ;
7 ; Copyright (c) 2011, Matthias Heinrichs, HeinrichsWeikamp, all right reserved. 7 ; Copyright (c) 2011, Matthias Heinrichs, HeinrichsWeikamp, all right reserved.
8 ;============================================================================= 8 ;=============================================================================
14 #include "hwos.inc" ; Mandatory header 14 #include "hwos.inc" ; Mandatory header
15 15
16 convert CODE 16 convert CODE
17 17
18 ;============================================================================= 18 ;=============================================================================
19
20 global output99DD_call
21 output99DD_call:
22 tstfsz lo ; value = 0 ?
23 bra output99_call ; NO - do normal output
24 movlw " " ; YES - print a space
25 movwf POSTINC2 ; - ...
26 bra output99dd_cont ; - continue with the double dots
27
28
29 global output99dd_call
30 output99dd_call:
31 tstfsz lo ; value = 0 ?
32 bra output99_call ; NO - do normal output
33 output99dd_cont:
34 movlw "." ; YES - print double dots
35 movwf POSTINC2 ; - ...
36 movwf POSTINC2 ; - ...
37 return ; - done
38
19 39
20 global output99_call 40 global output99_call
21 output99_call: 41 output99_call:
22 clrf ignore_digits 42 clrf ignore_digits
23 incf ignore_digits,F 43 incf ignore_digits,F