6502_linux_logo/linuxlogo.s

; 6502 Linux Logo
; Michaelangel007
; https://github.com/Michaelangel007/6502_linux_logo

; Zero Page ROM vars
zCursorX    = $24 ; CH
zCursorY    = $25 ; CH

; NOTE: We *don't* use this, instead we *re-use* zTxtPtr
;zHgrPtr    = $26 ; GBASL = Dst Pixel Addr
zTxtPtr     = $28 ; BASL  = Dst

zDstOffset  = $F9 ; dst
zSrcOffset  = $FA ; src
zMask       = $FB ; adjacent byte to write next pixels
zSrcShift   = $FC ; Input  Bit Position = i mod 8
zDstShift   = $FD ; Output Bit Position = i mod 7
zUnpackBits = $FE ; 16-bit unpack

; ROM
HOME        = $FC58
COUT        = $FDED
IB_HGR      = $D000 ; Integer   BASIC ][ only
AS_HGR      = $F3E2 ; Applesoft BASIC ][+ or newer
BASCALC     = $FBC1 ; A=Row, Calculate BASL,BASH text start-of-line address

;Bank Addr --  Addr Bank Read ---   Write -------
; 2  $C080 == $C088  1   Read RAM   Write protect
; 2  $C081 == $C089  1   Read ROM   Write enabled
; 2  $C082 == $C08A  1   Read ROM   Write protect
; 2  $C083 == $C08B  1   Read RAM   Write enabled
RAMIN       = $C080
ROMIN       = $C081

MACHINEID1  = $FBB3
MACHINEID2  = $FBC0
MACHINEID3  = $FBBF ; //c version

; Config
UnpackAddr  = $3FD0 ; Y=191, Unpacked pixel buffer of $28 bytes
CONFIG_PROBE_CPUINFO = 1
CONFIG_PRINT_CPUINFO = 1

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

        ORG $900
Main
        jsr HOME            ; For asethetics

; ------------------------------------------------------------------------
; Apple II Technical Note #7
; https://mirrors.apple2.org.za/Apple%20II%20Documentation%20Project/Computers/Apple%20II/Apple%20II/Documentation/Misc%20%23007%20Apple%20II%20Family%20ID.pdf
;
; Machine               $FBB3 $FBC0 $FBBE
; Apple ][              $38
; Apple ][+             $EA
; Apple ///             $EA
; Apple //e             $06   $EA
; Apple //e+            $06   $E0
; Apple //e Option Card $06   $E0
; Apple //c             $06   $00   $FF
; Apple //c 3.5         $06   $00   $00
; Apple //c Org Mem XP  $06   $00   $03
; Apple //c Rev Mem XP  $06   $00   $04
; Apple //c+            $06   $00   $05
; Apple IIgs
    DO CONFIG_PROBE_CPUINFO

detect_model
        lda MACHINEID1      ; FBB3: $38 = ][, $EA = ][+, $06 = //e //c IIgs
        cmp #$38            ; '8'
        beq apple_ii

        pha
        jsr AS_HGR          ; HGR on Apple ][+ or newer
        pla
        cmp  #$EA           ; 'j' apple ][+?
        bne apple_iie_iic   ; if so keep going

apple_iiplus
; if we get here we're a ii+ or iii in emulation mode
        lda #"+"
        bne set_apple_ii

apple_ii
        jsr IB_HGR          ; HGR on original ][ only!
        lda #" "            ; "_6502"
set_apple_ii
        ldx #"]"
        ldy #"["
        stx ModType-2
        sty ModType-1
        sta ModType         ; erase last 'e' in 'Apple IIe'

        lda #" "            ; "_6502"
        sta CpuType         ;  ^^^
        ldx #"6"
        ldy #"5"
        stx CpuType+1
        sty CpuType+2

detect_langcard
        sta RAMIN           ; Detect 16K RAM / Language Card
        sta RAMIN           ; Read RAM

        lda $D000
        inc $D000
        cmp $D000
        beq apple_ii_48K
        dec $D000

RAM_64K
        ldx #"6"            ; "64K"
        ldy #"4"
        bne RAM_size
apple_ii_48K
        ldx #"4"
        ldy #"8"
RAM_size
        lda #" "
        sta RamSize         ; erase '1' in '128'
        stx RamSize+1
        sty RamSize+2
        bne done_detecting

; Detect //e //e+ //c //c+
apple_iie_iic
        lda MACHINEID2      ; FBC0: $00 = //c, $EA = //e, E0 = //e+
        beq apple_iic       ; check for apple //c
        cmp #$E0            ; if we're an Apple IIe (original)
        bne RAM_64K         ; then use 64K and finish
        beq apple_iie_enhanced
apple_iic
        lda #"c"
        sta CpuType+1
        lda MACHINEID3
        cmp #$05            ; //c+
        bne done_detecting
apple_iie_enhanced          ; //e+
        lda #"+"            ;    +
        sta ModType+1       ;    ^

done_detecting
        sta ROMIN           ; Turn off Language Card
;       sta ROMIN           ; if it was probed
    FIN

; ------------------------------------------------------------------------
; Unpack 2 bits/color -> $28 bytes/scanline
;
; Unpack one line to buffer at Y=191 HGR line
; Copy to 8 scanlines
; Erase buffer after copying to final 8 scanlines
Unpack

    DO 1-CONFIG_PROBE_CPUINFO
        jsr AS_HGR ; *** DEBUG ***
    FIN

        lda #7              ; will INC, $0428 (Text) + $1C00 => $2028 (HGR)
        sta zCursorY        ; Start Row=8

        ldy #0              ; zSrcOffset
        sty zDstShift
        sty zDstOffset

        lda PackedBits
        sta zUnpackBits+0

NextSrcShift
        lda PackedBits+1,Y
        sta zUnpackBits+1
        ldx #8              ; zSrcShift, have 8 input bits?
UpdateSrcShift
        stx zSrcShift

        jsr Unpack2Bits     ; hhggffee C=? ddccbbaa 
        bcs UnpackDone      ; inlining Unpack2Bits has BNE and BNE > 128 byte offset

        lsr zUnpackBits+1   ; 0hhggffe C=e ddccbbaa
        ror zUnpackBits+0   ; 0hhggffe C=e eddccbba
        lsr zUnpackBits+1   ; 00hhggff C=e eddccbba
        ror zUnpackBits+0   ; 00hhggff c=e eeddccbb 

        ldx zSrcShift
        dex
        dex
        bne UpdateSrcShift
        iny                 ; src++
        bne NextSrcShift    ; always, since packed data length < 256
UnpackDone


; ------------------------------------------------------------------------

    DO CONFIG_PRINT_CPUINFO
        txa                 ; (2) X=$14 from (1) Unpack2Bits
        jsr BASCALC         ; but we can't see it since we are in mixed mode

        ldx #0              ; This means we have an extra "row" of HGR garbage at Y=160
CopyTextLine
        lda TextLine,X
        jsr COUT
        inx
        cpx #106           ; 3 rows of 40-col text but stop at col 27
        bne CopyTextLine
        rts
    FIN

; ========================================================================
; NOTE: Normally there is
;       rts
; but to save a byte we intentionally fall into Unpack2Bits in 2 locations:
;
; A) if we reach
;        apple_iie_enhanced
; B) end of program
;
; This means there is an extremely rare bug of having extra garbage 
; on the HGR screen for (A) under these conditions:
;
;   F9:27 <- zDstOffset = column 39
;   FE:0x <- non-zero value bottom 2 bits are set
;
; To trigger:
;    CALL-151
;    BLOAD LINUXLOGO
;    F9:27
;    FE:02
;    900G
; Or on two lines
;    BLOAD LINUXLOGO
;    F9:27 N FE:2 N 900G
; And a thin blue line will appear in the top right
; ========================================================================

; ------------------------------------------------------------------------
; Expand 1 pixel  (2 bits) via
; Output 2 pixels (4 bits)
Unpack2Bits
        sty zSrcOffset
        
        lda zUnpackBits     ; Double the pixel
        asl                 ; A=?????ba0
        asl                 ; A=????ba00
        eor zUnpackBits     ; A=????xxyy
        and #%00001100      ; A=????xx00
        eor zUnpackBits     ; A=????baba
        and #%00001111      ; A=0000baba

        ldx #0
        stx zMask

        ldy zDstShift       ; which 280 px column is next pixel writing to?
MakeShiftMask
        asl                 ; msb of byte0 set?
        rol zMask           ; shift in to lsb of byte1
        dey
        bpl MakeShiftMask

        sec                 ; MSB=1 color=blue/orange
        ror
        ldx zDstOffset
        ora UnpackAddr,X    ; do all bits that fit
        sta UnpackAddr,X

        lda zDstShift       ; x={0,1,2} + 4 < 7
        adc #4              ; C=0 from ASL ROR above
        cmp #7              ; all bits fit into dest byte?
        bcc FitSameByte
                            ; Update partial next byte of dest
                            ; x = x + 4 - 7
        sbc #7              ; C=1 from "BCC else" above
        tay                 ; push zDstShift

        inx
        stx zDstOffset
        lda zMask
        ora UnpackAddr,X
        sta UnpackAddr,X

        tya                 ; pop zDstShift
        cpx #$28            ; C = x < 28
        bcc FitSameByte     ; C = x < 28

; ------------------------------------------------------------------------
; Udpate the Text Address
; Update the HGR scanline Address
        inc zCursorY
        lda zCursorY
        jsr BASCALC

; ------------------------------------------------------------------------
; Copy unpacked buffer to 8 HGR scanlines

Draw8Rows
        ldy #39             ; 280/7 = 40 bytes/scanline

; Yes, this is evil ...
; Instead of copying zTxtPtr over to zHgrPtr
; We re-use it by forcing it to be a HGR address!
; This *is* safe BECAUSE we call JSR BASCALC _before_ we do any text printing.
        lda zTxtPtr+1       ; Translate text page row address to 
        eor #$24            ;   every eighth HGR row address 
        tax 

Copy7x8
        lda UnpackAddr,Y
        stx zTxtPtr+1       
        sta (zTxtPtr),Y
        inx                 ; y = y+1
        inx                 ; HGR addr_y+1 = addr_y + $0400
        inx      
        inx
        cpx #$40            ; hit HGR page 2 ? i.e. 8 scan lines done?
        bcc Copy7x8         ; Loop until 7x8 pixel block is complete 

        txa 
        sbc #$20            ; Reset pointer for top of next 7x8 block 
        tax 
        lda #0 
        sta UnpackAddr,Y    ; Clear source on last scanline copy 
        sta zDstOffset      ; reset to start of unpack buffer
        dey 
        bpl Copy7x8         ; Loop until all 280x8 pixels are copied 

        ldx zCursorY        ; (1) X=14, see (2) 
        cpx #$14            ; Y=$40 .. $A0, Rows $8..$13 (inclusive) 

FitSameByte 
        sta zDstShift 
        ldy zSrcOffset      ; NOTE: C=0 from CMPs above 
        rts 


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

CpuType = * + 13 + 40
RamSize = * + 30 + 40
ModType = * + 24 + 40*2

; Uppercase in case of Apple ][ without lowercase support
            ;          1         2         3
TextLine    ;0123456789012345678901234567890123456789
        ASC "  LINUX VERSION 2.6.22.6, COMPILED 2007 " ; Row $14 +40 =  40
        ASC " ONE 1.02MHZ 65C02 PROCESSOR, 128KB RAM " ; Row $15 +40 =  80
        ASC "                APPLE //e "               ; Row $16 +26 = 106 chars
;                         ^          ^     ^
;                         CPUTYPE    MOD   RAM

; ------------------------------------------------------------------------

;"__________________________________________________________@@@@@_______"
;"_________________________________________________________@@@@@@@______"
;"______________A__________________________________________@@_@_@@______"
;"@@@@@@_______AA@_________________________________________@BBBBB@______"
;"__@@__________@________________________________________@@__BBB__@@____"
;"__@@_______AAA__@@@_@@@@___@@@____@@@__@@@@@_@@@@@____@__________@@___"
;"__@@______A__A@__@@@____@@__@@_____@@____@@___@@_____@____________@@__"
;"__@@_____A___A@__@@_____@@__@@_____@@_____@@_@@______@____________@@@_"
;"__@@________AA@__@@_____@@__@@_____@@______@@@______BB@___________@@B_"
;"__@@_____@_AA@___@@_____@@__@@_____@@_____@@_@@____BBBBB@_______@BBBBB"
;"__@@____@@_AA@_@_@@_____@@__@@@___@@@____@@___@@___BBBBBB@_____@BBBBBB"
;"@@@@@@@@@@__@@@_@@@@___@@@@___@@@@_@@@_@@@@@_@@@@@__BBBBB@@@@@@@BBBBB_"
; Char &3 Color
;  @   00 Black
;  A   01 Blue
;  B   10 Orange
;  _   11 White

; NOTE: Generated by ascii2hgr2bit
; ASCII: 70*12 = 840 chars
; Packed 2bits/2pixel: 70 chars * 2 bits/char / 8 bits/byte = 140 bits / 8 = 17.5 bytes/scanline
; 840 chars * 2 bits/color / 8 bits/byte = 210 bytes

    PUT packedlogo.s