Adds P/M graphics support: PMGRAPHICS (PM.) and PMADR().

Author: dmsc

Makefile

@@ -144,6 +144,7 @@ COMMON_AS_SRC=\
     src/interp/pause.asm\
     src/interp/peek.asm\
     src/interp/plot.asm\
+    src/interp/pmgraphics.asm\
     src/interp/poke.asm\
     src/interp/print_eol.asm\
     src/interp/print_str.asm\

samples/int/pmtest.bas

@@ -1,19 +1,13 @@
 ' P/M test program
-RAMTOP = $6A   : SDMCTL = $22F  : PCOLR0 = $2C0
-HPOSP0 = $D000 : GRACTL = $D01D : PMBASE = $D407
-' Reserve memory at TOP
-MemTop = Peek(RAMTOP) - 4
-P0Mem  = $100 * MemTop + $200
-oldPos = P0Mem
-poke RAMTOP, MemTop
-
-' Activate and configure P/M data
-graphics 0
-mset P0Mem, 128, 0  ' Clears Memory
-poke PCOLR0, $1F
-poke SDMCTL, Peek(SDMCTL) ! 8
-poke PMBASE, MemTop
-poke GRACTL, 2
+HPOSP0 = $D000
+
+graphics 0          ' Setups graphics mode
+pmgraphics 2        ' And P/M mode
+P0Mem = pmadr(0)    ' Get player 0 address
+oldPos = P0Mem      ' and into "old position"
+
+mset P0Mem, 128, 0  ' Clears P/M 0 Memory
+setcolor -4, 1, 15
 
 ' P/M data and blank (to clear P/M)
 DATA PMdata()  byte = $38,$44,$54,$44,$38
@@ -37,10 +31,6 @@ repeat
  exec MovePm  ' Move P/M Graphics
 until Key()
 
-' Restore RAMTOP and SDMCTL
-poke GRACTL, 0
-poke SDMCTL, Peek(SDMCTL) & 247
-poke RAMTOP, MemTop + 4
 graphics 0
 
 END

src/basic.syn

@@ -46,6 +46,8 @@ TOKENS {
  TOK_VAR_STORE, TOK_SADDR, TOK_INCVAR, TOK_DECVAR
  # Graphic support statements
  TOK_GRAPHICS, TOK_PLOT, TOK_DRAWTO
+ # P/M statements
+ TOK_PMGRAPHICS
  # Print statements
  TOK_PRINT_STR, TOK_PRINT_TAB, TOK_PRINT_EOL
  # I/O
@@ -197,6 +199,7 @@ T_EXPR: integer constant, variable or function
         "PTRIG"  emit TOK_NUM word PTRIG0 emit TOK_PUSH_BYTE emit 7 RD_PORT
         "STICK"  emit TOK_NUM word STICK0 emit TOK_PUSH_BYTE emit 3 RD_PORT
         "STRIG"  emit TOK_NUM word STRIG0 emit TOK_PUSH_BYTE emit 3 RD_PORT
+        "PMADR"  PAR_EXPR emit TOK_PUSH_BYTE emit 4 emit TOK_ADD emit TOK_PUSH_NUM word PMGMODE emit TOK_PEEK emit TOK_USHL emit TOK_MUL emit TOK_PUSH_NUM word PMGBASE emit TOK_PEEK emit TOK_SHL8 emit TOK_ADD
 #@if FASTBASIC_FP
         "INT"    FP_PAR_EXPR emit TOK_FP_INT
 #@endif FASTBASIC_FP
@@ -574,7 +577,7 @@ PARSE_LINE_COMMAND:
         "ELIf" emit TOK_JUMP E_ELIF FORCE_BOOL_EXPR emit TOK_CJUMP emit LT_IF E_PUSH_LT
         "ENDif" E_POP_IF
         "EXit" emit TOK_JUMP E_EXIT_LOOP
-        "Graphics" emit TOK_BYTE emit 6 emit TOK_CLOSE EXPR emit TOK_GRAPHICS
+        "Graphics" emit TOK_0 emit TOK_PMGRAPHICS emit TOK_BYTE emit 6 emit TOK_CLOSE EXPR emit TOK_GRAPHICS
         "Color" emit TOK_BYTE_SADDR emit COLOR EXPR emit TOK_POKE
         "FColor" emit TOK_NUM word FILDAT emit TOK_SADDR EXPR emit TOK_POKE
         "POSition" POSITION
@@ -601,6 +604,7 @@ PARSE_LINE_COMMAND:
         "DEG" emit TOK_BYTE_SADDR emit DEGFLAG emit TOK_1 emit TOK_POKE
         "RAd" emit TOK_BYTE_SADDR emit DEGFLAG emit TOK_0 emit TOK_POKE
 #@endif FASTBASIC_FP
+        "PMGraphics" EXPR emit TOK_PMGRAPHICS
 
 PARSE_LINE_ASSIGN:
         VAR_WORD_SAVE   "=" EXPR emit TOK_VAR_STORE E_POP_VAR

src/clearmem.asm

@@ -27,7 +27,7 @@
 ; Clear Memory
 ; ------------
 
-        .export         clear_data, alloc_array, mem_set
+        .export         clear_data, alloc_array, mem_set, err_nomem
 
         .import         putc, EXE_END
         .importzp       mem_end, var_page, tmp1, tmp2, array_ptr, var_count

src/interp/pmgraphics.asm

@@ -0,0 +1,102 @@
+;
+; FastBasic - Fast basic interpreter for the Atari 8-bit computers
+; Copyright (C) 2017-2019 Daniel Serpell
+;
+; This program is free software; you can redistribute it and/or modify
+; it under the terms of the GNU General Public License as published by
+; the Free Software Foundation, either version 2 of the License, or
+; (at your option) any later version.
+;
+; This program is distributed in the hope that it will be useful,
+; but WITHOUT ANY WARRANTY; without even the implied warranty of
+; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+; GNU General Public License for more details.
+;
+; You should have received a copy of the GNU General Public License along
+; with this program.  If not, see <http://www.gnu.org/licenses/>
+;
+; In addition to the permissions in the GNU General Public License, the
+; authors give you unlimited permission to link the compiled version of
+; this file into combinations with other programs, and to distribute those
+; combinations without any restriction coming from the use of this file.
+; (The General Public License restrictions do apply in other respects; for
+; example, they cover modification of the file, and distribution when not
+; linked into a combine executable.)
+
+
+; PMGRAPHICS: P/M graphic setup
+; -----------------------------
+
+        .export         PMGBASE, PMGMODE
+        .import         err_nomem
+        .importzp       array_ptr, next_instruction
+
+        .include "atari.inc"
+
+        .segment        "RUNTIME"
+
+.proc   EXE_PMGRAPHICS
+        tax             ; Disable if 0
+        beq     disable_pm
+        and     #1      ; only two modes
+        tax
+        ; TODO: copied from AtBasic - optimize
+        ldy     pmgmode_tab,x   ; Get mode
+        lda     mask_tab,x      ; Get address mask
+        and     MEMTOP+1
+        clc                     ; Subtract to get P/M base
+        adc     mask_tab,x
+        cmp     array_ptr+1
+        bcs     mem_ok
+        jmp     err_nomem
+
+disable_pm:
+        txa     ; Set A,X and Y to 0, used to write register values
+        tay
+        clc
+mem_ok:
+        sta     pmgbase
+        sta     PMBASE
+        sty     pmgmode
+
+        lda     SDMCTL
+        and     #$e3
+        bcc     skip_pmenable
+        ora     pmg_dmactl_tab,x
+        ldy     #3
+skip_pmenable:
+        sta     SDMCTL
+        sty     GRACTL
+        tya             ; bit 1 already set
+        ora     GPRIOR
+        and     #$c1
+        sta     GPRIOR
+
+        ; Reset GTIA registers (P/M position, sizes and hit)
+        ldy     #17
+        lda     #0
+:       sta     HPOSP0, y
+        dey
+        bpl     :-
+
+        jmp     next_instruction
+.endproc
+
+pmgbase:
+        .byte 0
+pmgmode:
+        .byte 0
+mask_tab:
+        .byte   $fc,$f8
+pmg_dmactl_tab:
+        .byte   $0c,$1c
+pmgmode_tab:
+        .byte   $40,$80
+
+PMGBASE = pmgbase
+PMGMODE = pmgmode
+
+        .include "../deftok.inc"
+        deftoken "PMGRAPHICS"
+
+; vi:syntax=asm_ca65

src/parse.asm

@@ -40,7 +40,7 @@
         .import         putc
         ; From interpreter.asm
         .importzp       DEGFLAG, DEGFLAG_DEG, DEGFLAG_RAD
-        .import         EXE_END, saved_cpu_stack
+        .import         EXE_END, saved_cpu_stack, PMGMODE, PMGBASE
         ; From errors.asm
         .import         error_msg_list
         .importzp       ERR_PARSE, ERR_NO_ELOOP, ERR_LABEL, ERR_TOO_LONG