initial import, completely untested, does not compile yet

diff --git a/libsrc/Makefile b/libsrc/Makefile
index 6a801695a444f982bb478f03eefe151e3baeb948..051e5cf3affbc9812a8cbba6d344b56f59095642 100644 (file)
--- a/libsrc/Makefile
+++ b/libsrc/Makefile
@@ -24,6 +24,7 @@ TARGETS = apple2    \
           $(GEOS)   \
           lynx      \
           nes       \
+          pcengine  \
           sim6502   \
           sim65c02  \
           supervision

diff --git a/libsrc/pcengine/_heap.s b/libsrc/pcengine/_heap.s
new file mode 100644 (file)
index 0000000..71fa13e
--- /dev/null
+++ b/libsrc/pcengine/_heap.s
@@ -0,0 +1,67 @@
+;
+; Ullrich von Bassewitz, 03.06.1998
+;
+; Heap variables and initialization.
+;
+
+; FIXME: there should be a way to configure heap from linkerscript!
+
+               .constructor    initheap, 24
+
+               .import         __RAM_START__, __RAM_SIZE__, __STACKSIZE__      ; Linker generated
+               .import __BSS_SIZE__
+               .importzp       sp
+
+.data
+
+;; old - remove
+       .export         __horg, __hptr, __hend, __hfirst, __hlast
+__horg:
+               .word   __RAM_START__+__BSS_SIZE__+__DATA_SIZE__        ; Linker calculates this symbol
+__hptr:
+       .word   __RAM_START__+__BSS_SIZE__+__DATA_SIZE__        ; Dito
+__hend:
+               .word   __RAM_START__+__RAM_SIZE__
+__hfirst:
+       .word   0
+__hlast:
+       .word   0
+
+               .export __heaporg
+               .export __heapptr
+               .export __heapend
+               .export __heapfirst
+               .export __heaplast
+
+__heaporg:
+               .word   __RAM_START__+__BSS_SIZE__+__DATA_SIZE__        ; Linker calculates this symbol
+__heapptr:
+               .word   __RAM_START__+__BSS_SIZE__+__DATA_SIZE__        ; Linker calculates this symbol
+__heapend:
+               .word   __RAM_START__+__RAM_SIZE__
+__heapfirst:
+       .word   0
+__heaplast:
+       .word   0
+
+
+; Initialization. Will be called from startup!
+
+.code
+
+initheap:
+       ;sec
+       ;lda    sp
+;      lda     #<(__STACKSIZE__)
+;      lda #<(__RAM_START__+__RAM_SIZE__)
+       lda #<(__RAM_START__+__BSS_SIZE__+__DATA_SIZE__)
+       sta     __heapend
+       sta     __hend ; old
+;      lda     sp+1
+;      lda     #>(__STACKSIZE__)
+;      lda #>(__RAM_START__+__RAM_SIZE__)
+       lda #>(__RAM_START__+__BSS_SIZE__+__DATA_SIZE__)
+       sta     __heapend+1
+       sta     __hend+1 ; old
+       rts
+

diff --git a/libsrc/pcengine/_scrsize.s b/libsrc/pcengine/_scrsize.s
new file mode 100644 (file)
index 0000000..17b23b7
--- /dev/null
+++ b/libsrc/pcengine/_scrsize.s
@@ -0,0 +1,17 @@
+;
+; Screen size variables
+;
+
+
+
+.export _screensize
+_screensize:
+        ldx     xsize
+        ldy     ysize
+        rts
+
+.rodata
+       .export         xsize, ysize
+
+xsize:         .byte 64
+ysize: .byte 28

diff --git a/libsrc/pcengine/call.s b/libsrc/pcengine/call.s
new file mode 100644 (file)
index 0000000..34fbac0
--- /dev/null
+++ b/libsrc/pcengine/call.s
@@ -0,0 +1,19 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; CC65 runtime: call function via pointer in ax
+;
+
+       .export         callax
+
+.code
+
+callax:
+    sta        vec
+       stx     vec+1
+       jmp     (vec)           ; jump there
+
+.bss
+
+vec:
+    .res 2
\ No newline at end of file

diff --git a/libsrc/pcengine/clock.s b/libsrc/pcengine/clock.s
new file mode 100644 (file)
index 0000000..d344814
--- /dev/null
+++ b/libsrc/pcengine/clock.s
@@ -0,0 +1,23 @@
+;
+; Ullrich von Bassewitz, 21.09.1998
+;
+; clock_t clock (void);
+;
+          
+               .include "pcengine.inc"
+
+       .export         _clock
+               .importzp       sreg
+ 
+.proc  _clock
+
+               ldy     #0              ; Byte 3 is always zero
+               sty sreg+1
+               sty sreg
+
+               ldx _tickcount+1
+               lda _tickcount
+               rts
+
+.endproc
+

diff --git a/libsrc/pcengine/clrscr.s b/libsrc/pcengine/clrscr.s
new file mode 100644 (file)
index 0000000..c2c5dcb
--- /dev/null
+++ b/libsrc/pcengine/clrscr.s
@@ -0,0 +1,27 @@
+
+               .include "pcengine.inc"
+
+
+               .export _clrscr
+_clrscr:
+
+                        st0     #VDC_MAWR
+                        st1     #<$0000
+                        st2     #>$0000
+
+                                               st0     #VDC_VWR     
+                        ldy     #$40
+rowloop:                ldx     #$80
+colloop:
+                                               lda #' '
+                                               staio VDC_DATA_LO
+                                               lda #$02
+                                               staio VDC_DATA_HI
+
+                        dex
+                        bne     colloop
+                        dey
+                        bne     rowloop
+
+                               rts
+

diff --git a/libsrc/pcengine/color.s b/libsrc/pcengine/color.s
new file mode 100644 (file)
index 0000000..8d80114
--- /dev/null
+++ b/libsrc/pcengine/color.s
@@ -0,0 +1,59 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; unsigned char __fastcall__ textcolor (unsigned char color);
+; unsigned char __fastcall__ bgcolor (unsigned char color);
+; unsigned char __fastcall__ bordercolor (unsigned char color);
+;
+
+
+       .export         _textcolor, _bgcolor, _bordercolor
+
+       .include        "pcengine.inc"
+
+_textcolor:
+       ldx     CHARCOLOR       ; get old value
+       sta     CHARCOLOR       ; set new value
+       txa
+       rts
+
+_bgcolor:
+       ldx     BGCOLOR       ; get old value
+       sta     BGCOLOR           ; set new value
+    asl a
+       tay
+
+       stz     VCE_ADDR_LO
+    stz     VCE_ADDR_HI
+       lda colors,y
+       sta     VCE_DATA_LO
+       lda colors+1,y
+       sta     VCE_DATA_HI
+
+       txa
+       rts
+
+_bordercolor:
+       lda #0
+       txa
+       rts
+
+               .export colors
+
+colors:       ; G      R      B
+               .word ((0<<6)+(0<<3)+(0))               ; 0 black
+               .word ((7<<6)+(7<<3)+(7))           ; 1 white
+               .word ((0<<6)+(7<<3)+(0))           ; 2 red
+               .word ((7<<6)+(0<<3)+(7))           ; 3 cyan
+               .word ((0<<6)+(5<<3)+(7))           ; 4 violett
+               .word ((7<<6)+(0<<3)+(0))           ; 5 green
+               .word ((0<<6)+(0<<3)+(7))           ; 6 blue
+               .word ((7<<6)+(7<<3)+(0))           ; 7 yellow
+               .word ((5<<6)+(7<<3)+(0))           ; 8 orange
+               .word ((3<<6)+(4<<3)+(3))           ; 9 brown
+               .word ((4<<6)+(7<<3)+(4))           ; a light red
+               .word ((3<<6)+(3<<3)+(3))           ; b dark grey
+               .word ((4<<6)+(4<<3)+(4))           ; c middle grey
+               .word ((7<<6)+(4<<3)+(4))           ; d light green
+               .word ((4<<6)+(4<<3)+(7))           ; e light blue
+               .word ((6<<6)+(6<<3)+(6))           ; f light gray

diff --git a/libsrc/pcengine/condes.s b/libsrc/pcengine/condes.s
new file mode 100644 (file)
index 0000000..dd7bd30
--- /dev/null
+++ b/libsrc/pcengine/condes.s
@@ -0,0 +1,102 @@
+;
+; Ullrich von Bassewitz, 20.11.2000
+;
+; CC65 runtime: Support for calling module constructors/destructors
+;
+; The condes routine must be called with the table address in a/x and the
+; size of the table in y. The current implementation limits the table size
+; to 254 bytes (127 vectors) but this shouldn't be problem for now and may
+; be changed later.
+;
+; libinit and libdone call condes with the predefined module constructor and
+; destructor tables, they must be called from the platform specific startup
+; code.
+
+
+               .export initlib, donelib, condes
+
+        .import callax
+               .import __CONSTRUCTOR_TABLE__, __CONSTRUCTOR_COUNT__
+       .import __DESTRUCTOR_TABLE__, __DESTRUCTOR_COUNT__
+
+
+
+.code
+
+; --------------------------------------------------------------------------
+; Initialize library modules
+
+.proc  initlib
+
+       lda     #<__CONSTRUCTOR_TABLE__
+       ldx     #>__CONSTRUCTOR_TABLE__
+       ldy     #<(__CONSTRUCTOR_COUNT__*2)
+       bne     condes
+       rts
+
+.endproc
+
+
+; --------------------------------------------------------------------------
+; Cleanup library modules
+
+.proc  donelib
+
+       lda     #<__DESTRUCTOR_TABLE__
+       ldx     #>__DESTRUCTOR_TABLE__
+       ldy     #<(__DESTRUCTOR_COUNT__*2)
+       bne     condes
+       rts
+
+.endproc
+
+
+; --------------------------------------------------------------------------
+; Generic table call handler
+
+.proc  condes
+
+       sta getbyt+1
+       stx     getbyt+2
+       sty     index
+
+loop:  ldy     index
+       beq     done
+       dey
+       jsr     getbyt
+        tax
+       dey
+       jsr     getbyt
+       sty     index
+       jsr     callax
+.ifpc02
+       bra     loop
+.else
+       jmp     loop
+.endif
+
+done:  rts
+
+.endproc
+
+
+; --------------------------------------------------------------------------
+; Data. The getbyte routine is placed in the data segment cause it's patched
+; at runtime.
+
+.bss
+
+index: .byte   0
+
+.data
+
+getbyt:
+;;getbyt_:
+       lda     $FFFF,y
+       rts
+
+;; callax doesnt work? why?!
+;_callax:
+;    sta @l+1
+;    stx @l+2
+;@l: jmp $dead

diff --git a/libsrc/pcengine/conio.s b/libsrc/pcengine/conio.s
new file mode 100644 (file)
index 0000000..3c4919e
--- /dev/null
+++ b/libsrc/pcengine/conio.s
@@ -0,0 +1,122 @@
+                                               .include "pcengine.inc"
+            .import vce_init
+            .import psg_init
+            .import vdc_init
+
+                       .export initconio
+                   .export _conio_init
+
+                       .constructor initconio, 24
+
+            .macpack longbranch
+initconio:
+                     ;;   jsr     vdc_init
+                        jsr     vce_init
+                        jsr     psg_init
+                        jsr     conio_init
+                        jsr     set_palette
+
+                        st0     #VDC_RCR
+                        st1     #<$0088
+                        st2     #>$0088
+                                               rts
+
+                                               .import colors
+set_palette:
+
+                        ; Make palette (use VGA palette?)
+                     ;   stz     VCE_ADDR_LO
+                     ;   stz     VCE_ADDR_HI
+                     ;   clx
+                     ;   cly
+        vce_loop:    ;; stx     VCE_DATA_LO
+                     ;; sty     VCE_DATA_HI
+                     ;   inx
+                     ;   cpx     #$00
+                     ;   bne     vce_loop
+                     ;   iny
+                     ;   cpy     #$02
+                     ;   bne     vce_loop
+
+
+                        stz     VCE_ADDR_LO
+                        stz     VCE_ADDR_HI
+                                               
+                                               ldx #0
+@lp:
+                                               .repeat 16
+                        lda colors,x
+                        sta     VCE_DATA_LO
+                        lda colors+1,x
+                        sta     VCE_DATA_HI
+                                               .endrepeat
+
+                                               inx
+                                               inx
+                                               cpx #16*2;*5
+                                               jne @lp
+
+                        stz     VCE_ADDR_LO
+                        stz     VCE_ADDR_HI
+                        stz     VCE_DATA_LO
+                        stz     VCE_DATA_HI
+
+; so it will get linked in
+_conio_init:
+                        rts
+
+;----------------------------------------------------------------------------
+;
+;----------------------------------------------------------------------------
+
+                                               .importzp ptr1
+
+conio_init:
+
+                        ; Load font
+                                       st0     #VDC_MAWR
+                        st1     #<$2000
+                        st2     #>$2000
+
+                        ; ptr to font data
+                                               lda     #<font
+                                               sta             ptr1
+                                               lda     #>font
+                                               sta             ptr1+1
+
+                        st0     #VDC_VWR            ; VWR
+                        ldy     #$80            ; 128 chars
+        charloop:       ldx     #$08            ; 8 bytes/char
+        lineloop:
+                                               ;;lda     [$00]           ; read font byte
+                                               ldaind  ptr1
+                        staio  VDC_DATA_LO       ; bitplane 0
+                        stzio  VDC_DATA_HI       ; bitplane 1
+
+                        clc                     ; increment font pointer
+                        lda     ptr1
+                        adc     #$01
+                        sta     ptr1
+                        lda     ptr1+1
+                        adc     #$00
+                        sta     ptr1+1
+                        dex
+                        bne     lineloop        ; next bitplane 0 byte
+                        ldx     #$08            ; fill bitplane 2/3 with 0
+        fillloop:       st1     #$00
+                        st2     #$00
+                        dex
+                        bne     fillloop        ; next byte
+                        dey
+                        bne     charloop        ; next character
+
+                                               ldx #0
+                                               stx     BGCOLOR  
+                                               inx     
+                                               stx     CHARCOLOR       
+
+
+                        rts
+
+       .rodata
+font:                   .include "vga.inc"

diff --git a/libsrc/pcengine/cputc.s b/libsrc/pcengine/cputc.s
new file mode 100644 (file)
index 0000000..8a02a34
--- /dev/null
+++ b/libsrc/pcengine/cputc.s
@@ -0,0 +1,117 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; void cputcxy (unsigned char x, unsigned char y, char c);
+; void cputc (char c);
+;
+
+       .export         _cputcxy, _cputc, cputdirect, putchar
+       .export         newline, plot
+       .import         popa, _gotoxy
+        .import         PLOT
+
+               .importzp tmp3,tmp4
+
+       .include        "pcengine.inc"
+
+
+_cputcxy:
+       pha                     ; Save C
+       jsr     popa            ; Get Y
+       jsr     _gotoxy         ; Set cursor, drop x
+       pla                     ; Restore C
+
+; Plot a character - also used as internal function
+
+_cputc: cmp #$0d               ; CR?
+       bne     L1
+       lda     #0
+       sta     CURS_X
+               beq     plot            ; Recalculate pointers
+
+L1:    cmp     #$0a            ; LF?
+               beq     newline         ; Recalculate pointers
+
+; Printable char of some sort
+
+cputdirect:
+       jsr     putchar         ; Write the character to the screen
+
+; Advance cursor position
+
+advance:
+       ldy     CURS_X
+       iny
+       cpy     #xsize
+       bne     L3
+       jsr     newline         ; new line
+       ldy     #0              ; + cr
+L3:    sty     CURS_X
+       jmp plot
+       ;rts
+
+newline:
+;      lda     #xsize
+;      clc
+;      adc     SCREEN_PTR
+;      sta     SCREEN_PTR
+;      bcc     L4
+;      inc     SCREEN_PTR+1
+;;     clc
+;L4:;  lda #xsize
+ ;     adc     CRAM_PTR
+ ;     sta     CRAM_PTR
+ ;     bcc     L5
+  ;    inc     CRAM_PTR+1
+;L5:
+       
+       inc     CURS_Y
+
+;    jmp plot
+;      rts
+
+; Set cursor position, calculate RAM pointers
+
+plot:  ldy     CURS_X
+               ldx     CURS_Y
+               clc
+               jmp     PLOT            ; Set the new cursor
+
+
+
+; Write one character to the screen without doing anything else, return X
+; position in Y
+
+putchar:
+
+       ora     RVS             ; Set revers bit
+
+               tax
+
+        st0     #VDC_MAWR    ; Memory Adress Write
+
+               lda SCREEN_PTR
+               staio VDC_DATA_LO
+
+               lda SCREEN_PTR+1
+               staio VDC_DATA_HI
+
+               st0     #VDC_VWR    ; VWR
+
+               txa
+               staio VDC_DATA_LO   ; character
+
+               ;;st2     #$32      ; attrib ?!
+               lda   CHARCOLOR
+               
+               ;;lda #2
+               asl a
+               asl a
+               asl a
+               asl a
+
+               and #$f0
+        ora   #$02
+               staio VDC_DATA_HI
+
+        rts

diff --git a/libsrc/pcengine/crt0.s b/libsrc/pcengine/crt0.s
new file mode 100644 (file)
index 0000000..d9c5a2c
--- /dev/null
+++ b/libsrc/pcengine/crt0.s
@@ -0,0 +1,233 @@
+;
+; Startup code for cc65 (PCEngine version)
+;
+; by Groepaz/Hitmen <groepaz@gmx.net>
+; based on code by Ullrich von Bassewitz <uz@cc65.org>
+;
+; This must be the *first* file on the linker command line
+;
+
+       .export         _exit
+       .import         initlib, donelib
+       .import     push0, _main, zerobss
+       .import     initheap
+       .import         tmp1,tmp2,tmp3
+
+       .import         __RAM_START__, __RAM_SIZE__     ; Linker generated
+;;     .import         __SRAM_START__, __SRAM_SIZE__   ; Linker generated
+       .import         __ROM0_START__, __ROM0_SIZE__   ; Linker generated
+       .import         __ROM_START__, __ROM_SIZE__     ; Linker generated
+       .import         __STARTUP_LOAD__,__STARTUP_RUN__, __STARTUP_SIZE__      ; Linker generated
+       .import         __CODE_LOAD__,__CODE_RUN__, __CODE_SIZE__       ; Linker generated
+       .import         __RODATA_LOAD__,__RODATA_RUN__, __RODATA_SIZE__ ; Linker generated
+       .import         __DATA_LOAD__,__DATA_RUN__, __DATA_SIZE__       ; Linker generated
+       .import __BSS_SIZE__
+
+       .include "pcengine.inc"
+
+    .importzp       sp
+       .importzp       ptr1,ptr2
+
+; ------------------------------------------------------------------------
+; Create an empty LOWCODE segment to avoid linker warnings
+
+.segment        "LOWCODE"
+
+; ------------------------------------------------------------------------
+; Place the startup code in a special segment.
+
+.segment               "STARTUP"
+
+start:
+
+; setup the CPU and System-IRQ
+
+                        ; Initialize CPU
+
+                        sei
+                        nop
+                        csh
+                        nop
+                        cld
+                        nop
+
+                        ; Setup stack and memory mapping
+                        ldx     #$FF    ; Stack top ($21FF)
+                        txs
+                        txa
+                        tam     #0      ; 0000-1FFF = Hardware page
+
+                        lda     #$F8
+                        tam     #1      ; 2000-3FFF = Work RAM
+
+                        lda     #$F7
+                        tam     #2      ; 4000-5FFF = Save RAM
+
+                                               lda     #1
+                        tam     #3      ; 6000-7FFF  Page 2
+                                               lda     #2
+                        tam     #4      ; 8000-9FFF  Page 3
+                                               lda     #3
+                        tam     #5      ; A000-BFFF  Page 4
+                                               lda     #4
+                        tam     #6      ; C000-DFFF  Page 5
+
+                        ; Initialize hardware
+                        stz     TIMER_COUNT   ; Timer off
+                        lda     #$07
+                        sta     IRQ_MASK     ; Interrupts off
+                        stz     IRQ_STATUS   ; Acknowledge timer
+
+                        ; Clear work RAM
+                        stz     <$00
+                        tii     $2000, $2001, $1FFF
+
+                                               ;; i dont know why the heck this one doesnt
+                                               ;; work when called from a constructor :/
+                                               .import vdc_init
+                                               jsr     vdc_init
+;;                        jsr     joy_init
+
+                        ; Turn on background and VD interrupt/IRQ1
+                        lda     #$05
+                        sta     IRQ_MASK           ; IRQ1=on
+                        cli
+
+; Clear the BSS data
+
+               jsr     zerobss
+
+; Copy the .data segment to RAM
+
+               lda #<(__DATA_LOAD__)
+               ;;lda #<(__ROM0_START__ + __STARTUP_SIZE__+ __CODE_SIZE__+ __RODATA_SIZE__)
+               ;;lda #<(__ROM_START__ + __CODE_SIZE__+ __RODATA_SIZE__)
+               sta ptr1
+               lda #>(__DATA_LOAD__)
+               ;;lda #>(__ROM_START__ + __CODE_SIZE__+ __RODATA_SIZE__)
+               sta ptr1+1
+               lda #<(__DATA_RUN__)
+               ;;lda #<(__SRAM_START__)
+               sta ptr2
+               lda #>(__DATA_RUN__)
+               ;;lda #>(__SRAM_START__)
+               sta ptr2+1
+
+               ldx #>(__DATA_SIZE__)
+
+@l2:
+               beq @s1 ; no more full pages
+
+               ; copy one page
+               ldy #0
+@l1:
+               lda (ptr1),y
+               sta (ptr2),y
+               iny
+               bne @l1
+
+               inc ptr1+1
+               inc ptr2+1
+
+               dex
+               bne @l2
+
+               ; copy remaining bytes
+@s1:
+
+               ; copy one page
+               ldy #0
+@l3:
+               lda (ptr1),y
+               sta (ptr2),y
+               iny
+               cpy #<(__DATA_SIZE__)
+               bne @l3
+
+; setup the stack
+
+;              lda #<(__RAM_START__ + __DATA_SIZE__ + __BSS_SIZE__)
+       lda #<(__RAM_START__+__RAM_SIZE__)
+               sta     sp
+;              lda     #>(__RAM_START__ + __DATA_SIZE__ + __BSS_SIZE__)
+       lda #>(__RAM_START__+__RAM_SIZE__)
+               sta     sp+1            ; Set argument stack ptr
+
+; Init the Heap
+               jsr initheap
+
+;jmp *
+
+; Call module constructors
+
+               jsr     initlib
+;              .import initconio
+;              jsr initconio
+; Pass an empty command line
+
+
+;jmp *
+
+               jsr push0               ; argc
+               jsr     push0           ; argv
+go:
+               ldy     #4              ; Argument size
+               jsr     _main   ; call the users code
+
+; Call module destructors. This is also the _exit entry.
+
+_exit:
+               jsr     donelib         ; Run module destructors
+
+; reset the PCEngine
+
+               jmp start
+
+; ------------------------------------------------------------------------
+; System V-Blank Interupt
+; ------------------------------------------------------------------------
+
+_irq1:
+                        pha
+                        phx
+                        phy
+
+
+               inc _tickcount
+               bne @s
+               inc _tickcount+1
+@s:
+
+                        ; Acknowlege interrupt
+                                               ldaio VDC_CTRL
+
+                                               ply
+                        plx
+                        pla
+                        rti
+_irq2:
+                        rti
+_nmi:
+                        rti
+_timer:
+                        stz     IRQ_STATUS
+                        rti
+
+       .export initmainargs
+initmainargs:
+       rts
+
+; ------------------------------------------------------------------------
+; hardware vectors
+; ------------------------------------------------------------------------
+    .segment "VECTORS"
+    ;;.org    $fff6
+
+    .word   _irq2        ; $fff6 IRQ2 (External IRQ, BRK)
+    .word   _irq1        ; $fff8 IRQ1 (VDC)
+    .word   _timer       ; $fffa Timer
+    .word   _nmi         ; $fffc NMI
+    .word   start               ; $fffe reset
+
+
+

diff --git a/libsrc/pcengine/huc6280.inc b/libsrc/pcengine/huc6280.inc
new file mode 100644 (file)
index 0000000..ab634a8
--- /dev/null
+++ b/libsrc/pcengine/huc6280.inc
@@ -0,0 +1,238 @@
+
+;
+; HuC6280 additional opcodes (use with --cpu 65C02)
+;
+; WARNING: THIS IS __NOT__ COMPLETE !!!
+;
+
+;; lda abs
+.macro ldaio arg1
+       .byte $ad
+       .word arg1
+.endmacro
+;; sta abs
+.macro staio arg1
+       .byte $8d
+       .word arg1
+.endmacro
+.macro stzio arg1
+       .byte $9c
+       .word arg1
+.endmacro
+
+.macro cla
+       .byte $62
+.endmacro
+.macro clx
+       .byte $82
+.endmacro
+
+;; lda (zp)
+.macro ldaind arg1
+       .byte $b2
+       .byte arg1
+.endmacro
+
+.macro cly
+       .byte $c2
+.endmacro
+
+.macro st0 arg1
+       .if (.match (.left (1, arg1), #))
+        ; called with immidiate operand
+               .byte $03
+               .byte (.right (.tcount (arg1)-1, arg1))
+    .else
+               .error "illegal address mode"
+    .endif
+.endmacro
+.macro st1 arg1
+       .if (.match (.left (1, arg1), #))
+        ; called with immidiate operand
+               .byte $13
+               .byte (.right (.tcount (arg1)-1, arg1))
+    .else
+               .error "illegal address mode"
+    .endif
+.endmacro
+.macro st2 arg1
+       .if (.match (.left (1, arg1), #))
+        ; called with immidiate operand
+               .byte $23
+               .byte (.right (.tcount (arg1)-1, arg1))
+    .else
+               .error "illegal address mode"
+    .endif
+.endmacro
+
+; tam #$xx
+.macro tam arg1
+       .if (.match (.left (1, arg1), #))
+        ; called with immidiate operand
+               .byte $53
+               .byte 1<<(.right (.tcount (arg1)-1, arg1))
+    .else
+               .error "illegal address mode"
+    .endif
+.endmacro
+
+; tii x,y,z
+.macro tii arg1,arg2,arg3
+       .byte $73
+       .word arg1,arg2,arg3
+.endmacro
+
+.macro csh
+       .byte $d4
+.endmacro
+.macro set
+       .byte $f4
+.endmacro
+.macro _rmb0 arg1
+       .byte $07
+       .byte arg1
+.endmacro
+.macro _rmb1 arg1
+       .byte $17
+       .byte arg1
+.endmacro
+.macro _rmb2 arg1
+       .byte $27
+       .byte arg1
+.endmacro
+.macro _rmb3 arg1
+       .byte $37
+       .byte arg1
+.endmacro
+.macro _rmb4 arg1
+       .byte $47
+       .byte arg1
+.endmacro
+.macro _rmb5 arg1
+       .byte $57
+       .byte arg1
+.endmacro
+.macro _rmb6 arg1
+       .byte $67
+       .byte arg1
+.endmacro
+.macro _rmb7 arg1
+       .byte $77
+       .byte arg1
+.endmacro
+
+.macro _smb0 arg1
+       .byte $87
+       .byte arg1
+.endmacro
+.macro _smb1 arg1
+       .byte $97
+       .byte arg1
+.endmacro
+.macro _smb2 arg1
+       .byte $a7
+       .byte arg1
+.endmacro
+.macro _smb3 arg1
+       .byte $b7
+       .byte arg1
+.endmacro
+.macro _smb4 arg1
+       .byte $c7
+       .byte arg1
+.endmacro
+.macro _smb5 arg1
+       .byte $d7
+       .byte arg1
+.endmacro
+.macro _smb6 arg1
+       .byte $e7
+       .byte arg1
+.endmacro
+.macro _smb7 arg1
+       .byte $f7
+       .byte arg1
+.endmacro
+
+.macro _bbr0 arg1,arg2
+       .byte $0f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs0 arg1,arg2
+       .byte $8f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr1 arg1,arg2
+       .byte $1f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs1 arg1,arg2
+       .byte $9f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr2 arg1,arg2
+       .byte $2f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs2 arg1,arg2
+       .byte $af ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr3 arg1,arg2
+       .byte $3f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs3 arg1,arg2
+       .byte $bf ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr4 arg1,arg2
+       .byte $4f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs4 arg1,arg2
+       .byte $cf ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr5 arg1,arg2
+       .byte $5f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs5 arg1,arg2
+       .byte $df ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr6 arg1,arg2
+       .byte $6f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs6 arg1,arg2
+       .byte $ef ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbr7 arg1,arg2
+       .byte $7f ;;,arg1
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+.macro _bbs7 arg1,arg2
+       .byte $ff
+       .byte arg1
+       .byte <((arg2)-(*+1))
+.endmacro
+
+

diff --git a/libsrc/pcengine/joytokbd.s b/libsrc/pcengine/joytokbd.s
new file mode 100644 (file)
index 0000000..1e8258e
--- /dev/null
+++ b/libsrc/pcengine/joytokbd.s
@@ -0,0 +1,275 @@
+;
+; File generated by cc65 v 2.9.5
+;
+       .fopt           compiler,"cc65 v 2.9.5"
+       .autoimport     on
+       .case           on
+       .debuginfo      off
+       .importzp       sp, sreg, regsave, regbank, tmp1, ptr1, ptr2
+       .macpack        longbranch
+       .import         _joy_masks
+       .import         _joy_read
+       .import         _clock
+       .export         _kbhit
+       .export         _cgetc
+
+.segment       "DATA"
+
+__lastkey:
+       .byte   $00
+__chardelay:
+       .dword  $00000000
+_rptkey:
+       .byte   $00
+
+; ---------------------------------------------------------------
+; void _getkey (void)
+; ---------------------------------------------------------------
+
+.segment       "CODE"
+
+.proc  __getkey
+
+.segment       "CODE"
+
+       jsr     decsp2
+       ldx     #$00
+       lda     __lastkey
+       cmp     #$00
+       jsr     booleq
+       jeq     L003F
+       lda     #$00
+       jsr     _joy_read
+       ldy     #$01
+       sta     (sp),y
+       ldx     #$00
+       lda     #$00
+       ldy     #$00
+       sta     (sp),y
+       ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+4
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L0010
+       ldx     #$00
+       lda     #$0A
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L0010: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L0016
+       ldx     #$00
+       lda     #$01
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L0016: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+2
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L001C
+       ldx     #$00
+       lda     #$03
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L001C: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+3
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L0022
+       ldx     #$00
+       lda     #$04
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L0022: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+1
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L0028
+       ldx     #$00
+       lda     #$02
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L0028: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+7
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L002E
+       ldx     #$00
+       lda     #$14
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L002E: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+5
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L0034
+       ldx     #$00
+       lda     #$15
+       ldy     #$00
+       sta     (sp),y
+       jmp     L003A
+L0034: ldy     #$01
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _joy_masks+6
+       jsr     tosandax
+       stx     tmp1
+       ora     tmp1
+       jeq     L003A
+       ldx     #$00
+       lda     #$16
+       ldy     #$00
+       sta     (sp),y
+L003A: ldy     #$00
+       ldx     #$00
+       lda     (sp),y
+       cmp     #$00
+       jsr     boolne
+       jeq     L003F
+       ldy     #$00
+       ldx     #$00
+       lda     (sp),y
+       jsr     pushax
+       ldx     #$00
+       lda     _rptkey
+       jsr     toseqax
+       jeq     L0043
+       lda     __chardelay+3
+       sta     sreg+1
+       lda     __chardelay+2
+       sta     sreg
+       ldx     __chardelay+1
+       lda     __chardelay
+       jsr     pusheax
+       jsr     _clock
+       jsr     tosugteax
+       jeq     L0043
+       jmp     L003F
+L0043: ldy     #$00
+       ldx     #$00
+       lda     (sp),y
+       sta     _rptkey
+       jsr     _clock
+       ldy     #$06
+       jsr     inceaxy
+       sta     __chardelay
+       stx     __chardelay+1
+       ldy     sreg
+       sty     __chardelay+2
+       ldy     sreg+1
+       sty     __chardelay+3
+       ldy     #$00
+       ldx     #$00
+       lda     (sp),y
+       sta     __lastkey
+L003F: jsr     incsp2
+       rts
+
+.endproc
+
+; ---------------------------------------------------------------
+; unsigned char __fastcall__ kbhit (void)
+; ---------------------------------------------------------------
+
+.segment       "CODE"
+
+.proc  _kbhit
+
+.segment       "CODE"
+
+       jsr     __getkey
+       ldx     #$00
+       lda     __lastkey
+       cmp     #$00
+       jsr     booleq
+       jeq     L004E
+       ldx     #$00
+       lda     #$00
+       jmp     L0052
+       jmp     L0052
+L004E: ldx     #$00
+       lda     #$01
+       jmp     L0052
+L0052: rts
+
+.endproc
+
+; ---------------------------------------------------------------
+; unsigned char __fastcall__ cgetc (void)
+; ---------------------------------------------------------------
+
+.segment       "CODE"
+
+.proc  _cgetc
+
+.segment       "CODE"
+
+       jsr     decsp1
+L0056: ldx     #$00
+       lda     __lastkey
+       cmp     #$00
+       jsr     booleq
+       jeq     L0057
+       jsr     __getkey
+       jmp     L0056
+L0057: ldx     #$00
+       lda     __lastkey
+       ldy     #$00
+       sta     (sp),y
+       ldx     #$00
+       lda     #$00
+       sta     __lastkey
+       ldy     #$00
+       ldx     #$00
+       lda     (sp),y
+       jmp     L0055
+L0055: jsr     incsp1
+       rts
+
+.endproc
+

diff --git a/libsrc/pcengine/kplot.s b/libsrc/pcengine/kplot.s
new file mode 100644 (file)
index 0000000..f050d78
--- /dev/null
+++ b/libsrc/pcengine/kplot.s
@@ -0,0 +1,41 @@
+
+       .export PLOT
+
+       .include        "pcengine.inc"
+
+PLOT:
+
+       bcs @getpos
+
+       tya
+       clc
+       adc _plotlo,x
+       sta     SCREEN_PTR
+
+       lda _plothi,x
+       adc #0
+       sta     SCREEN_PTR+1
+
+       ;clc
+       ;adc _colplot,x
+       ;sta CRAM_PTR
+
+       ;lda #$23
+       ;sta CRAM_PTR+1
+
+@getpos:
+       ldx CURS_Y
+       ldy CURS_X
+       rts
+
+_plotlo:
+       .repeat screenrows,line
+       .byte <($0000+(line*$80))
+       .endrepeat
+
+_plothi:
+       .repeat screenrows,line
+       .byte >($0000+(line*$80))
+       .endrepeat
+
+

diff --git a/libsrc/pcengine/pce-stdjoy.s b/libsrc/pcengine/pce-stdjoy.s
new file mode 100644 (file)
index 0000000..60c77db
--- /dev/null
+++ b/libsrc/pcengine/pce-stdjoy.s
@@ -0,0 +1,191 @@
+
+;
+; Standard joystick driver for the PCEngine
+;
+; Ullrich von Bassewitz, 2002-12-20
+;
+
+               ;;.include      "zeropage.inc"
+
+       ;;.include      "joy-kernel.inc"
+        
+               ;;.include    "joy-error.inc"
+               JOY_ERR_OK=0;
+        .include    "pcengine.inc"
+
+        .macpack        generic
+
+; ------------------------------------------------------------------------
+; Header. Includes jump table
+
+.segment        "CODE"
+
+; Driver signature
+
+;;        .byte   $6A, $6F, $79                ; "joy"
+;;        .byte   $00                     ; Driver API version number
+
+; Button state masks (8 values)
+
+;extern const unsigned char joy_masks[8];
+
+               .export _joy_masks
+
+_joy_masks:
+        .byte   $10                     ; JOY_UP
+        .byte   $40                     ; JOY_DOWN
+        .byte   $80                     ; JOY_LEFT
+        .byte   $20                     ; JOY_RIGHT
+        .byte   $04                     ; ? JOY_FIRE
+        .byte   $02                     ; ? Future expansion
+        .byte   $01                     ; ? Future expansion
+        .byte   $08                     ; ? Future expansion
+
+; Jump table.
+
+;;        .word   INSTALL
+;;        .word   DEINSTALL
+;;        .word   COUNT
+;;        .word   READ
+
+; ------------------------------------------------------------------------
+; Constants
+
+JOY_COUNT       = 4             ; Number of joysticks we support
+
+
+; ------------------------------------------------------------------------
+; Data.
+
+
+.code
+
+
+;extern const char joy_stddrv[];
+
+               .export _joy_stddrv
+_joy_stddrv:
+               .byte 0
+
+
+               .export _joy_load_driver
+               .export _joy_unload
+
+;unsigned char __fastcall__ joy_unload (void);
+;unsigned char __fastcall__ joy_load_driver (const char* driver);
+_joy_load_driver:
+_joy_unload:
+
+; ------------------------------------------------------------------------
+; INSTALL routine. Is called after the driver is loaded into memory. If
+; possible, check if the hardware is present and determine the amount of
+; memory available.
+; Must return an JOY_ERR_xx code in a/x.
+;
+
+INSTALL:
+        lda     #<JOY_ERR_OK
+        ldx     #>JOY_ERR_OK
+
+;      rts                     ; Run into DEINSTALL instead
+
+; ------------------------------------------------------------------------
+; DEINSTALL routine. Is called before the driver is removed from memory.
+; Can do cleanup or whatever. Must not return anything.
+;
+
+DEINSTALL:
+        rts
+
+
+; ------------------------------------------------------------------------
+; COUNT: Return the total number of available joysticks in a/x.
+;
+;unsigned char __fastcall__ joy_count (void);
+
+               .export _joy_count
+
+_joy_count:
+COUNT:
+        lda     #<JOY_COUNT
+        ldx     #>JOY_COUNT
+        rts
+
+; ------------------------------------------------------------------------
+; READ: Read a particular joystick passed in A.
+;
+;unsigned char __fastcall__ joy_read (unsigned char joystick);
+
+               .export _joy_read
+
+_joy_read:
+READ:
+               pha
+        jsr read_joy
+        pla
+               tax             ; Joystick number into X
+
+        ; return value from buffer
+
+joy1:
+        lda padbuffer,x
+               ldx #0
+       rts
+
+.code
+
+read_joy:
+        ; reset multitap counter
+        lda     #$01
+        sta     $1000
+        pha
+        pla
+        nop
+        nop
+
+        lda     #$03
+        sta     $1000
+        pha
+        pla
+        nop
+        nop
+
+        cly
+nextpad:
+        lda     #$01
+        sta     $1000   ; sel = 1
+        pha
+        pla
+        nop
+        nop
+
+        lda     $1000
+        asl     a
+        asl     a
+        asl     a
+        asl     a
+        sta     padbuffer, y     ; store new value
+
+        stz     $1000
+        pha
+        pla
+        nop
+        nop
+
+        lda     $1000
+        and     #$0F
+        ora     padbuffer, y     ; second half of new value
+
+        eor     #$FF
+        sta     padbuffer, y     ; store new value
+
+        iny
+        cpy     #$05
+        bcc     nextpad
+        rts
+
+.bss
+
+padbuffer:
+        .res 4
+

diff --git a/libsrc/pcengine/pcengine.h b/libsrc/pcengine/pcengine.h
new file mode 100644 (file)
index 0000000..8135679
--- /dev/null
+++ b/libsrc/pcengine/pcengine.h
@@ -0,0 +1,74 @@
+#define CH_CROSS       0x10
+
+#define CH_RTEE     0x17
+#define CH_LTEE     0x0f
+
+#define CH_ULCORNER    0x10
+#define CH_URCORNER    0x10
+#define CH_LLCORNER    0x10
+#define CH_LRCORNER    0x10
+
+
+#define TV_NTSC        0
+#define TV_PAL         1
+#define get_tv()       0
+
+#define CLOCKS_PER_SEC         50              // ???
+#define CLK_TCK                                50              // ?!?
+
+//#ifndef CH_ENTER
+#define CH_ENTER       '\n'
+//#endif
+
+#define CH_STOP        0x08
+
+#define CH_F1          0x14
+#define CH_F3          0x15
+#define CH_F5          0x16
+#define CH_F7          0x17
+
+#define CH_CURS_UP             0x01
+#define CH_CURS_DOWN   0x02
+
+#ifndef CH_CURS_LEFT
+#define CH_CURS_LEFT   0x03
+#endif
+
+#ifndef CH_CURS_RIGHT
+#define CH_CURS_RIGHT  0x04
+#endif
+
+#define CH_ESC         8
+
+#define CH_DEL         20
+
+/* Color defines */
+#define COLOR_BLACK            0x00
+#define COLOR_WHITE            0x01
+#define COLOR_RED              0x02
+#define COLOR_CYAN                     0x03
+#define COLOR_VIOLET           0x04
+#define COLOR_GREEN            0x05
+#define COLOR_BLUE             0x06
+#define COLOR_YELLOW           0x07
+#define COLOR_ORANGE           0x08
+#define COLOR_BROWN            0x09
+#define COLOR_LIGHTRED         0x0A
+#define COLOR_GRAY1            0x0B
+#define COLOR_GRAY2            0x0C
+#define COLOR_LIGHTGREEN       0x0D
+#define COLOR_LIGHTBLUE        0x0E
+#define COLOR_GRAY3            0x0F
+
+#define JOY_FIRE_B  5
+#define JOY_START   6
+#define JOY_SELECT  7
+
+/*
+void __fastcall__ waitvblank(void);
+
+unsigned char __fastcall__ cpeekcharxy(unsigned char x,unsigned char y);
+unsigned char __fastcall__ cpeekchar(void);
+unsigned char __fastcall__ cpeekcolxy(unsigned char x,unsigned char y);
+unsigned char __fastcall__ cpeekcol(void);
+*/

diff --git a/libsrc/pcengine/pcengine.inc b/libsrc/pcengine/pcengine.inc
new file mode 100644 (file)
index 0000000..ec61d91
--- /dev/null
+++ b/libsrc/pcengine/pcengine.inc
@@ -0,0 +1,75 @@
+
+                       .include "huc6280.inc"
+
+; Write VDC register
+                  .macro VREG arg1,arg2
+                        st0     #arg1
+                        st1     #<(arg2)
+                        st2     #>(arg2)
+                  .endmacro
+
+_tickcount= $20
+
+screenrows = (224/8)
+charsperline = (512/8)
+xsize = charsperline
+
+CH_HLINE = 7
+CH_VLINE = 7
+
+CURS_X = $30
+CURS_Y = $31
+SCREEN_PTR = $32
+CRAM_PTR = $34
+CHARCOLOR = $36
+RVS = $37   
+BGCOLOR=$38
+
+; huc6270 - Video Display Controller (vdc)
+
+VDC_MAWR = 0 ; Memory Address Write Register
+VDC_MARR = 1 ; Memory Address Read Register
+VDC_VWR  = 2 ; VRAM Write Register
+VDC_VRR  = 3 ; VRAM Read Register
+VDC_CR   = 4 ; Control Register
+VDC_RCR  = 5 ; Raster Counter Register
+VDC_BXR  = 6 ; Background X-Scroll Register
+VDC_BYR  = 7 ; Background Y-Scroll Register
+VDC_MWR  = 8 ; Memory-access Width Register
+VDC_HSR  = 9 ; Horizontal Sync Register (?)
+VDC_HDR  =10 ; Horizontal Display Register (?)
+VDC_VPR  =11 ; (unknown)
+VDC_VDW  =12 ; (unknown use)
+VDC_VCR  =13 ; (unknown use)
+VDC_DCR  =14 ; (DMA) Control Register
+VDC_SOUR =15 ; (DMA) Source Register
+VDC_DESR =16 ; (DMA) Destination Register
+VDC_LENR =17 ; (DMA) Length Register
+VDC_SATB =18 ; Sprite Attribute Table
+
+VDC_CTRL       = $0000
+VDC_DATA_LO = $0002
+VDC_DATA_HI = $0003
+
+; huc6260 - Video Color Encoder (vce)
+
+; The DAC has a palette of 512 colours.
+; bitmap of the palette data is this: 0000000gggrrrbbb.
+; You can read and write the DAC-registers.
+
+VCE_CTRL = $0400    ; write$00 to reset
+VCE_ADDR_LO = $0402 ; LSB of byte offset into palette
+VCE_ADDR_HI = $0403 ; MSB of byte offset into palette
+VCE_DATA_LO = $0404 ; LSB of 16-bit palette data
+VCE_DATA_HI = $0405 ; MSB of 16-bit palette data
+
+TIMER_COUNT = $0c00
+TIMER_CTRL     = $0c01
+
+JOY_CTRL       = $1000
+
+IRQ_MASK       = $1402
+IRQ_STATUS     = $1403
+
+CDR_MEM_DISABLE = $1803
+CDR_MEM_ENABLE  = $1807
\ No newline at end of file

diff --git a/libsrc/pcengine/pcengine.x b/libsrc/pcengine/pcengine.x
new file mode 100644 (file)
index 0000000..276f3b3
--- /dev/null
+++ b/libsrc/pcengine/pcengine.x
@@ -0,0 +1,68 @@
+MEMORY {
+
+       ZP:  start = $00, size = $1A, type = rw, define = yes;
+
+       # INES Cartridge Header
+       #HEADER: start = $0, size = $10, file = %O ,fill = yes;
+
+       # 2 16K ROM Banks
+       # - startup
+       # - code
+       # - rodata
+       # - data (load)
+       # 1 8k CHR Bank
+       ROM0: start = $e000, size = $1ff6, file = %O ,fill = yes, define = yes;
+    # Hardware Vectors at End of 2nd 8K ROM
+       ROMV: start = $fff6, size = $a, file = %O,fill = yes;
+
+       ROM: start = $6000, size = $8000, file = %O, fill = yes,define=yes;
+
+
+       # standard 2k SRAM (-zeropage)
+       # $0100-$0200 cpu stack
+       # $0200-$0500 3 pages for ppu memory write buffer
+       # $0500-$0800 3 pages for cc65 parameter stack
+       #SRAM: start = $0500, size = $0300, define = yes;
+
+       # additional 8K SRAM Bank
+       # - data (run)
+       # - bss
+       # - heap
+#      RAM: start = $2200, size = $1000, define = yes;
+#      RAM2: start = $3200, size = $0e00, define = yes;
+       RAM: start = $2200, size = $1e00, define = yes;
+
+}
+SEGMENTS {
+    #HEADER: load = HEADER, type = wprot;
+
+    #aSTARTUP: load = ROM0, type = wprot, define = yes;
+    STARTUP: load = ROM0, type = wprot, define = yes;
+
+       CODE: load = ROM, type = wprot, define = yes;
+    RODATA: load = ROM, type = wprot, define = yes;
+
+       DATA: load = ROM0, run= RAM, type = rw, define = yes;
+#      BSS: load = RAM2, type = bss, define = yes;
+       BSS: load = RAM, type = bss, define = yes;
+
+       VECTORS: load = ROMV, type = rw, define = yes;
+    #CHARS: load = ROM2, type = rw;
+
+
+    ZEROPAGE: load = ZP, type = zp, define = yes;
+
+}
+FEATURES {
+    CONDES: segment = STARTUP,
+           type=constructor,
+           label=__CONSTRUCTOR_TABLE__,
+           count=__CONSTRUCTOR_COUNT__;
+    CONDES: segment = STARTUP,
+           type=destructor,
+           label=__DESTRUCTOR_TABLE__,
+           count=__DESTRUCTOR_COUNT__;
+}
+SYMBOLS {
+    __STACKSIZE__ = $0300;     # 3 pages stack
+}

diff --git a/libsrc/pcengine/psg.s b/libsrc/pcengine/psg.s
new file mode 100644 (file)
index 0000000..ebf35d9
--- /dev/null
+++ b/libsrc/pcengine/psg.s
@@ -0,0 +1,29 @@
+                         
+                                               .include "pcengine.inc"
+
+            .export psg_init
+
+psg_init:
+                        clx
+                        stx     $0800   ; Select channel
+psg_clear_loop:
+                        stz     $0801   ; Clear global balance
+                        stz     $0802   ; Clear frequency LSB
+                        stz     $0803   ; Clear frequency MSB
+                        stz     $0804   ; Clear volume
+                        stz     $0805   ; Clear balance
+                        stz     $0807   ; Clear noise control
+                        stz     $0808   ; Clear LFO frequency
+                        stz     $0809   ; Clear LFO control
+
+                        cly
+psg_clear_waveform:     stz     $0806   ; Clear waveform byte
+                        iny
+                        cpy     #$20
+                        bne     psg_clear_waveform
+
+                        inx
+                        cpx     #$06
+                        bne     psg_clear_loop
+                        rts
+                          

diff --git a/libsrc/pcengine/revers.s b/libsrc/pcengine/revers.s
new file mode 100644 (file)
index 0000000..d1358a5
--- /dev/null
+++ b/libsrc/pcengine/revers.s
@@ -0,0 +1,5 @@
+
+    .export _revers
+_revers:
+    lda #0
+    rts     

diff --git a/libsrc/pcengine/vce.s b/libsrc/pcengine/vce.s
new file mode 100644 (file)
index 0000000..a5c9199
--- /dev/null
+++ b/libsrc/pcengine/vce.s
@@ -0,0 +1,16 @@
+
+                                               .include "pcengine.inc"
+            .export vce_init
+
+vce_init:
+                        stz     VCE_ADDR_LO   ;
+                        stz     VCE_ADDR_HI   ; Set CTA to zero
+                        ldy     #$01
+vce_clear_bank:         ldx     #$00
+vce_clear_color:        stz     VCE_DATA_LO   ; Clear color (LSB)
+                        stz     VCE_DATA_HI   ; Clear color (MSB)
+                        dex
+                        bne     vce_clear_color
+                        dey
+                        bne     vce_clear_bank
+                        rts

diff --git a/libsrc/pcengine/vdc.s b/libsrc/pcengine/vdc.s
new file mode 100644 (file)
index 0000000..a203cb0
--- /dev/null
+++ b/libsrc/pcengine/vdc.s
@@ -0,0 +1,46 @@
+
+                               .include "pcengine.inc"
+
+HIRES = 1
+
+            .export vdc_init
+
+vdc_init:
+                        ;;lda     $0000
+                                               ;;.byte $ad,0,0
+
+                                               ldaio   VDC_CTRL
+
+                        VREG    $00, $0000 ; MAWR
+                        VREG    $01, $0000 ; MARR
+                        VREG    $05, $0000 ; CR
+                        VREG    $06, $0000 ; RCR
+                        VREG    $07, $0000 ; BXR
+                        VREG    $08, $0000 ; BYR
+                        VREG    $09, $0070 ; MAWR
+                        VREG    $0C, $1702 ; CRTC - VSR
+                        VREG    $0D, $00DF ; CRTC - VDS
+                        VREG    $0E, $000C ; CRTC - VDE
+                        VREG    $0F, $0000 ; DCR
+
+                        .if      HIRES
+
+                        VREG    $0A, $0C02 ; CRTC - HSR
+                        VREG    $0B, $043C ; CRTC - HDS
+                        lda     #$06
+                        sta     VCE_CTRL
+
+                        .else
+
+                        VREG    $0A, $0202 ; CRTC - HSR
+                        VREG    $0B, $041F ; CRTC - HDS
+                        lda     #$04
+                        sta     VCE_CTRL
+
+                        .endif
+
+                        ;;lda     $0000
+                                               ;;.byte $ad,0,0
+
+                                               ldaio VDC_CTRL
+                        rts

diff --git a/libsrc/pcengine/vga.inc b/libsrc/pcengine/vga.inc
new file mode 100644 (file)
index 0000000..6cbdd01
--- /dev/null
+++ b/libsrc/pcengine/vga.inc
@@ -0,0 +1,129 @@
+
+        .byte     $00, $00, $00, $00, $00, $00, $00, $00 
+        .byte     $7E, $81, $A5, $81, $BD, $99, $81, $7E 
+        .byte     $7E, $FF, $DB, $FF, $C3, $E7, $FF, $7E 
+        .byte     $6C, $FE, $FE, $FE, $7C, $38, $10, $00 
+        .byte     $10, $38, $7C, $FE, $7C, $38, $10, $00 
+        .byte     $38, $7C, $38, $FE, $FE, $7C, $38, $7C 
+        .byte     $10, $10, $38, $7C, $FE, $7C, $38, $7C 
+        .byte     $00, $00, $18, $3C, $3C, $18, $00, $00 
+        .byte     $FF, $FF, $E7, $C3, $C3, $E7, $FF, $FF 
+        .byte     $00, $3C, $66, $42, $42, $66, $3C, $00 
+        .byte     $FF, $C3, $99, $BD, $BD, $99, $C3, $FF 
+        .byte     $0F, $07, $0F, $7D, $CC, $CC, $CC, $78 
+        .byte     $3C, $66, $66, $66, $3C, $18, $7E, $18 
+        .byte     $3F, $33, $3F, $30, $30, $70, $F0, $E0 
+        .byte     $7F, $63, $7F, $63, $63, $67, $E6, $C0 
+        .byte     $99, $5A, $3C, $E7, $E7, $3C, $5A, $99 
+        .byte     $80, $E0, $F8, $FE, $F8, $E0, $80, $00 
+        .byte     $02, $0E, $3E, $FE, $3E, $0E, $02, $00 
+        .byte     $18, $3C, $7E, $18, $18, $7E, $3C, $18 
+        .byte     $66, $66, $66, $66, $66, $00, $66, $00 
+        .byte     $7F, $DB, $DB, $7B, $1B, $1B, $1B, $00 
+        .byte     $3E, $63, $38, $6C, $6C, $38, $CC, $78 
+        .byte     $00, $00, $00, $00, $7E, $7E, $7E, $00 
+        .byte     $18, $3C, $7E, $18, $7E, $3C, $18, $FF 
+        .byte     $18, $3C, $7E, $18, $18, $18, $18, $00 
+        .byte     $18, $18, $18, $18, $7E, $3C, $18, $00 
+        .byte     $00, $18, $0C, $FE, $0C, $18, $00, $00 
+        .byte     $00, $30, $60, $FE, $60, $30, $00, $00 
+        .byte     $00, $00, $C0, $C0, $C0, $FE, $00, $00 
+        .byte     $00, $24, $66, $FF, $66, $24, $00, $00 
+        .byte     $00, $18, $3C, $7E, $FF, $FF, $00, $00 
+        .byte     $00, $FF, $FF, $7E, $3C, $18, $00, $00 
+        .byte     $00, $00, $00, $00, $00, $00, $00, $00 
+        .byte     $30, $78, $78, $78, $30, $00, $30, $00 
+        .byte     $6C, $6C, $6C, $00, $00, $00, $00, $00 
+        .byte     $6C, $6C, $FE, $6C, $FE, $6C, $6C, $00 
+        .byte     $30, $7C, $C0, $78, $0C, $F8, $30, $00 
+        .byte     $00, $C6, $CC, $18, $30, $66, $C6, $00 
+        .byte     $38, $6C, $38, $76, $DC, $CC, $76, $00 
+        .byte     $60, $60, $C0, $00, $00, $00, $00, $00 
+        .byte     $18, $30, $60, $60, $60, $30, $18, $00 
+        .byte     $60, $30, $18, $18, $18, $30, $60, $00 
+        .byte     $00, $66, $3C, $FF, $3C, $66, $00, $00 
+        .byte     $00, $30, $30, $FC, $30, $30, $00, $00 
+        .byte     $00, $00, $00, $00, $00, $30, $30, $60 
+        .byte     $00, $00, $00, $FC, $00, $00, $00, $00 
+        .byte     $00, $00, $00, $00, $00, $30, $30, $00 
+        .byte     $06, $0C, $18, $30, $60, $C0, $80, $00 
+        .byte     $7C, $C6, $CE, $DE, $F6, $E6, $7C, $00 
+        .byte     $30, $70, $30, $30, $30, $30, $FC, $00 
+        .byte     $78, $CC, $0C, $38, $60, $CC, $FC, $00 
+        .byte     $78, $CC, $0C, $38, $0C, $CC, $78, $00 
+        .byte     $1C, $3C, $6C, $CC, $FE, $0C, $1E, $00 
+        .byte     $FC, $C0, $F8, $0C, $0C, $CC, $78, $00 
+        .byte     $38, $60, $C0, $F8, $CC, $CC, $78, $00 
+        .byte     $FC, $CC, $0C, $18, $30, $30, $30, $00 
+        .byte     $78, $CC, $CC, $78, $CC, $CC, $78, $00 
+        .byte     $78, $CC, $CC, $7C, $0C, $18, $70, $00 
+        .byte     $00, $30, $30, $00, $00, $30, $30, $00 
+        .byte     $00, $30, $30, $00, $00, $30, $30, $60 
+        .byte     $18, $30, $60, $C0, $60, $30, $18, $00 
+        .byte     $00, $00, $FC, $00, $00, $FC, $00, $00 
+        .byte     $60, $30, $18, $0C, $18, $30, $60, $00 
+        .byte     $78, $CC, $0C, $18, $30, $00, $30, $00
+        .byte     $7C, $C6, $DE, $DE, $DE, $C0, $78, $00
+        .byte     $30, $78, $CC, $CC, $FC, $CC, $CC, $00 
+        .byte     $FC, $66, $66, $7C, $66, $66, $FC, $00 
+        .byte     $3C, $66, $C0, $C0, $C0, $66, $3C, $00 
+        .byte     $F8, $6C, $66, $66, $66, $6C, $F8, $00 
+        .byte     $7E, $60, $60, $78, $60, $60, $7E, $00 
+        .byte     $7E, $60, $60, $78, $60, $60, $60, $00 
+        .byte     $3C, $66, $C0, $C0, $CE, $66, $3E, $00 
+        .byte     $CC, $CC, $CC, $FC, $CC, $CC, $CC, $00 
+        .byte     $78, $30, $30, $30, $30, $30, $78, $00 
+        .byte     $1E, $0C, $0C, $0C, $CC, $CC, $78, $00 
+        .byte     $E6, $66, $6C, $78, $6C, $66, $E6, $00 
+        .byte     $60, $60, $60, $60, $60, $60, $7E, $00 
+        .byte     $C6, $EE, $FE, $FE, $D6, $C6, $C6, $00 
+        .byte     $C6, $E6, $F6, $DE, $CE, $C6, $C6, $00 
+        .byte     $38, $6C, $C6, $C6, $C6, $6C, $38, $00 
+        .byte     $FC, $66, $66, $7C, $60, $60, $F0, $00 
+        .byte     $78, $CC, $CC, $CC, $DC, $78, $1C, $00 
+        .byte     $FC, $66, $66, $7C, $6C, $66, $E6, $00 
+        .byte     $78, $CC, $E0, $70, $1C, $CC, $78, $00 
+        .byte     $FC, $30, $30, $30, $30, $30, $30, $00 
+        .byte     $CC, $CC, $CC, $CC, $CC, $CC, $FC, $00 
+        .byte     $CC, $CC, $CC, $CC, $CC, $78, $30, $00 
+        .byte     $C6, $C6, $C6, $D6, $FE, $EE, $C6, $00 
+        .byte     $C6, $C6, $6C, $38, $38, $6C, $C6, $00 
+        .byte     $CC, $CC, $CC, $78, $30, $30, $78, $00 
+        .byte     $FE, $06, $0C, $18, $30, $60, $FE, $00 
+        .byte     $78, $60, $60, $60, $60, $60, $78, $00 
+        .byte     $C0, $60, $30, $18, $0C, $06, $02, $00 
+        .byte     $78, $18, $18, $18, $18, $18, $78, $00 
+        .byte     $10, $38, $6C, $C6, $00, $00, $00, $00 
+        .byte     $00, $00, $00, $00, $00, $00, $00, $FF 
+        .byte     $30, $30, $18, $00, $00, $00, $00, $00 
+        .byte     $00, $00, $78, $0C, $7C, $CC, $76, $00 
+        .byte     $E0, $60, $60, $7C, $66, $66, $DC, $00 
+        .byte     $00, $00, $78, $CC, $C0, $CC, $78, $00 
+        .byte     $1C, $0C, $0C, $7C, $CC, $CC, $76, $00 
+        .byte     $00, $00, $78, $CC, $FC, $C0, $78, $00 
+        .byte     $38, $6C, $60, $F0, $60, $60, $F0, $00 
+        .byte     $00, $00, $76, $CC, $CC, $7C, $0C, $F8 
+        .byte     $E0, $60, $6C, $76, $66, $66, $E6, $00 
+        .byte     $30, $00, $70, $30, $30, $30, $78, $00 
+        .byte     $0C, $00, $0C, $0C, $0C, $CC, $CC, $78 
+        .byte     $E0, $60, $66, $6C, $78, $6C, $E6, $00 
+        .byte     $70, $30, $30, $30, $30, $30, $78, $00 
+        .byte     $00, $00, $CC, $FE, $FE, $D6, $C6, $00 
+        .byte     $00, $00, $F8, $CC, $CC, $CC, $CC, $00 
+        .byte     $00, $00, $78, $CC, $CC, $CC, $78, $00 
+        .byte     $00, $00, $DC, $66, $66, $7C, $60, $F0 
+        .byte     $00, $00, $76, $CC, $CC, $7C, $0C, $1E 
+        .byte     $00, $00, $DC, $76, $66, $60, $F0, $00 
+        .byte     $00, $00, $7C, $C0, $78, $0C, $F8, $00 
+        .byte     $10, $30, $7C, $30, $30, $34, $18, $00 
+        .byte     $00, $00, $CC, $CC, $CC, $CC, $76, $00 
+        .byte     $00, $00, $CC, $CC, $CC, $78, $30, $00 
+        .byte     $00, $00, $C6, $D6, $FE, $FE, $6C, $00 
+        .byte     $00, $00, $C6, $6C, $38, $6C, $C6, $00 
+        .byte     $00, $00, $CC, $CC, $CC, $7C, $0C, $F8 
+        .byte     $00, $00, $FC, $98, $30, $64, $FC, $00 
+        .byte     $1C, $30, $30, $E0, $30, $30, $1C, $00 
+        .byte     $18, $18, $18, $00, $18, $18, $18, $00 
+        .byte     $E0, $30, $30, $1C, $30, $30, $E0, $00 
+        .byte     $76, $DC, $00, $00, $00, $00, $00, $00 
+        .byte     $00, $10, $38, $6C, $C6, $C6, $FE, $00