]> git.sur5r.net Git - cc65/blobdiff - libsrc/apple2/textframe.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / apple2 / textframe.s
index e57337e9247b104feff329f6d1fd395b5fe95ae2..d5e9b80d75e9da7ed409505ea729f04ed65f3fbc 100644 (file)
@@ -9,12 +9,12 @@
 ;
         .ifdef  __APPLE2ENH__
 
-        .export        _textframexy, _textframe
-        .import        popa, pusha, _gotoxy
-        .import                chlinedirect, cvlinedirect
+        .export         _textframexy, _textframe
+        .import         popa, pusha, _gotoxy
+        .import         chlinedirect, cvlinedirect
 
-        .include       "zeropage.inc"
-        .include       "apple2.inc"
+        .include        "zeropage.inc"
+        .include        "apple2.inc"
 
 WIDTH   = tmp2
 HEIGHT  = tmp3
@@ -23,60 +23,60 @@ YORIGIN = ptr1
 
 _textframexy:
         sec
-        bra    :+
+        bra     :+
 
 _textframe:
         clc
-:       ldx    INVFLG
-        phx                    ; Save character display mode
-        ldx    #$FF
-        stx    INVFLG          ; Set normal character display mode
-        pha                    ; Save index
-        jsr    popa            ; Get height
-        sta    HEIGHT
-        jsr    popa            ; Get width
-        sta    WIDTH
-        lda    CH
-        ldx    CV
-        bcc    noxy
-        jsr    popa            ; Get y
+:       ldx     INVFLG
+        phx                     ; Save character display mode
+        ldx     #$FF
+        stx     INVFLG          ; Set normal character display mode
+        pha                     ; Save index
+        jsr     popa            ; Get height
+        sta     HEIGHT
+        jsr     popa            ; Get width
+        sta     WIDTH
+        lda     CH
+        ldx     CV
+        bcc     noxy
+        jsr     popa            ; Get y
         tax
-        jsr    popa            ; Get x
-noxy:   sta    XORIGIN
-        stx    YORIGIN
-        plx                    ; Restore index
-loop:   lda    XOFFS,x
+        jsr     popa            ; Get x
+noxy:   sta     XORIGIN
+        stx     YORIGIN
+        plx                     ; Restore index
+loop:   lda     XOFFS,x
         clc
-        bpl    :+              ; Relative to left edge?
-        adc    WIDTH
-:       adc    XORIGIN
-        jsr    pusha
-        lda    YOFFS,x
+        bpl     :+              ; Relative to left edge?
+        adc     WIDTH
+:       adc     XORIGIN
+        jsr     pusha
+        lda     YOFFS,x
         clc
-        bpl    :+              ; Relative to top?
-        adc    HEIGHT
-:       adc    YORIGIN
-        jsr    _gotoxy         ; Call this one, will pop params
+        bpl     :+              ; Relative to top?
+        adc     HEIGHT
+:       adc     YORIGIN
+        jsr     _gotoxy         ; Call this one, will pop params
         txa
         tay
-        lsr                    ; Get bit 0 (vline) into carry
-        lda    LENGTH,x
-        phx                    ; Save index
-        ldx    CHAR,y
-        bcc    hline
+        lsr                     ; Get bit 0 (vline) into carry
+        lda     LENGTH,x
+        phx                     ; Save index
+        ldx     CHAR,y
+        bcc     hline
         clc
-        adc    HEIGHT
-        jsr    cvlinedirect
-        bra    next
-hline:  adc    WIDTH
-        jsr    chlinedirect
-next:   plx                    ; Restore index
+        adc     HEIGHT
+        jsr     cvlinedirect
+        bra     next
+hline:  adc     WIDTH
+        jsr     chlinedirect
+next:   plx                     ; Restore index
         inx
         txa
-        and    #$03            ; Mask style
-        bne    loop
+        and     #$03            ; Mask style
+        bne     loop
         pla
-        sta    INVFLG          ; Restore character display mode
+        sta     INVFLG          ; Restore character display mode
         rts
 
         .rodata
@@ -88,21 +88,21 @@ next:   plx                 ; Restore index
 ; x offset for the line starting point
 ; - a positive value means relative to the frame left edge
 ; - a negative value menas relative to the frame right edge
-XOFFS:  .byte          0, 0, 0, <-2, 1, 0, 1, <-2
+XOFFS:  .byte   0, 0, 0, <-2, 1, 0, 1, <-2
 
 ; y offset for the line starting point
 ; - a positive value means relative to the frame top
 ; - a negative value menas relative to the frame bottom
-YOFFS:  .byte  0, 1, <-2, 1, 0, 0, <-2, 0
+YOFFS:  .byte   0, 1, <-2, 1, 0, 0, <-2, 0
 
 ; length of the line relative to the frame size
 ; - a negative value for hlines means shorter than the width
 ; - a negative value for vlines menas shorter than the height
-LENGTH: .byte  0, <-2, 0, <-2, <-2, 0, <-2, 0
+LENGTH: .byte   0, <-2, 0, <-2, <-2, 0, <-2, 0
 
 ; character to use for drawing the line
 ; - hibit set means normal printable character
 ; - hibit clear means MouseText character
-CHAR:   .byte  '_'|$80, '_', 'L', 'Z', 'L', 'Z', '_'|$80, '_'
+CHAR:   .byte   '_'|$80, '_', 'L', 'Z', 'L', 'Z', '_'|$80, '_'
 
         .endif                  ; __APPLE2ENH__