NeptuneLander/libPrint.asm at master · OldSkoolCoder/NeptuneLander · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
;===============================================================================
; Constants

;===============================================================================
; Variables

;===============================================================================
; Macros

defm    LIBPRINT_PRINTSTRING_A  ; /1 = Text terminated by 0 (Address)

        ldy #0

@GetNextCharacter
        lda /1,y
        beq @End
        jsr krljmp_CHROUT$
        iny
        beq @End
        jmp @GetNextCharacter

@End
        endm

;===============================================================================

; Input Parameters : acc = Lo byte, y = Hi Byte

libPrint_PrintString
    sty @PrintLooper + 2
    sta @PrintLooper + 1

    ldy #0
@PrintLooper
    lda $1111,y
    cmp #0
    beq @EndPrint
    jsr krljmp_CHROUT$
    iny
    bne @PrintLooper
    inc @PrintLooper + 2
    jmp @PrintLooper

@EndPrint
    rts