78 lines
1.3 KiB
ArmAsm
78 lines
1.3 KiB
ArmAsm
; Main printing routine that checksums and
|
|
; prints to output device
|
|
|
|
; Character that does equivalent of print_newline
|
|
.define newline 10
|
|
|
|
; Prints char without updating checksum
|
|
; Preserved: BC, DE, HL
|
|
;print_char_nocrc (defined by user)
|
|
|
|
|
|
; Prints character and updates checksum UNLESS
|
|
; it's a newline.
|
|
; Preserved: AF, BC, DE, HL
|
|
print_char:
|
|
push af
|
|
cp newline
|
|
call nz,update_crc
|
|
call print_char_nocrc
|
|
pop af
|
|
ret
|
|
|
|
|
|
; Prints space. Does NOT update checksum.
|
|
; Preserved: AF, BC, DE, HL
|
|
print_space:
|
|
push af
|
|
ld a,' '
|
|
call print_char_nocrc
|
|
pop af
|
|
ret
|
|
|
|
|
|
; Advances to next line. Does NOT update checksum.
|
|
; Preserved: AF, BC, DE, HL
|
|
print_newline:
|
|
push af
|
|
ld a,newline
|
|
call print_char_nocrc
|
|
pop af
|
|
ret
|
|
|
|
|
|
; Prints immediate string
|
|
; Preserved: AF, BC, DE, HL
|
|
.macro print_str ; string,string2
|
|
push hl
|
|
call print_str_
|
|
.byte \1
|
|
.if NARGS > 1
|
|
.byte \2
|
|
.endif
|
|
.if NARGS > 2
|
|
.byte \3
|
|
.endif
|
|
.byte 0
|
|
pop hl
|
|
.endm
|
|
|
|
print_str_:
|
|
pop hl
|
|
call print_str_hl
|
|
jp hl
|
|
|
|
|
|
; Prints zero-terminated string pointed to by HL.
|
|
; On return, HL points to byte AFTER zero terminator.
|
|
; Preserved: AF, BC, DE
|
|
print_str_hl:
|
|
push af
|
|
jr +
|
|
- call print_char
|
|
+ ldi a,(hl)
|
|
or a
|
|
jr nz,-
|
|
pop af
|
|
ret
|