From 4a2db30d213bcea4831282856f7fdb89610280ab Mon Sep 17 00:00:00 2001
From: "JASON-6700K\\jandersen" <JGAndersen@gmail.com>
Date: Tue, 21 Jul 2020 12:42:54 -0400
Subject: [PATCH] Player Actually Plays a sample Animation

---
 asm/link.s  |   2 +-
 asm/play.s  |  94 +++++++++++++++---------
 asm/shell.s | 203 ++++++++++++++++++++++++++++++++++++++++------------
 3 files changed, 218 insertions(+), 81 deletions(-)

diff --git a/asm/link.s b/asm/link.s
index 52080ab..a3adb07 100644
--- a/asm/link.s
+++ b/asm/link.s
@@ -15,7 +15,7 @@
 	sna start	; segment name
 *----------------------------------------------	
 	asm play.s
-    ds 0		; padding
+        ds 0		; padding
 	knd #$1100  ; kind
 	ali None    ; alignment
 	lna play    ; load name
diff --git a/asm/play.s b/asm/play.s
index aac1864..f03b1f4 100644
--- a/asm/play.s
+++ b/asm/play.s
@@ -44,55 +44,79 @@
 ;        rel
         dsk play.l
 
+;
+; Defines, for the list of allocated memory banks
+;
+banks_count equ $80
+banks_data  equ $82
+
+
 player  ent
         org $0
         mx %00
         phb
-        sep #$30
-        sta srcbank+2           ; self modify the code for mvn
-        sta read_opcode+3       ; data stream reader
-        sta dictionary_offset+3 ; opcode stream reader
+        sep #$20                 ; preserve X
+        sta <srcbank+2           ; self modify the code for mvn
+        sta <read_opcode+3       ; data stream reader
+        sta <dictionary_offset+3 ; opcode stream reader
         rep #$31
         ldy #$2000               ; it's a new frame, cursor starts at beginning of SHR
 
+        stz <banks_index
+*        stz <frames
+
         bra     read_opcode
+*frames dw 0
 
 extended_command
-
+        beq :source_skip_next_bank
         lsr
-        bcs :not_end_of_frame
+        lsr
+        bcs :end_of_file
 
+*        ; end of frame
         ldy #$2000
-        ; check elapsed ticks (need at least 1)
-        ; For now just inline vsync (preferable to check the number of
-        ; if jiffy that have elapsed, because if the animation uses more than
-        ; roughly 10% of the screen we don't want to sync here
-
-
+*        ; check elapsed ticks (need at least 1)
+*        ; For now just inline vsync (preferable to check the number of
+*        ; if jiffy that have elapsed, because if the animation uses more than
+*        ; roughly 10% of the screen we don't want to sync here
+*        lda <frames
+*        inc
+*        sta <frames
+*        cmp #2
+*        bge :end_of_file
+*
         bra read_opcode
 
 :end_of_file
         plb    ; restore bank
         rtl
 
-:not_end_of_frame
-        beq :end_of_file
+:source_skip_next_bank
+*
+* If data is sequential in memory
+*
+*
+*        ; source data, new bank
+*        inc <read_opcode+3        ; 6
+*        inc <dictionary_offset+3  ; 6
+*        inc <srcbank+2            ; 6
+*
 
-        cmp #1
-        bne :not_new_bank
-
-        ;sep #$30           ; 3
-        ;lda <read_opcode+3 ; 3
-        ;inc                ; 2
-        ;sta <read_opcode+3 ; 3
-        ;sta <dictionary_offset+3 ; 3
-        ;sta <srcbank+2     ; 3
-        ;rep #$31           ; 3
-
-        ; source data, new bank
-        inc <read_opcode+3        ; 6
-        inc <dictionary_offset+3  ; 6
-        inc <srcbank+2            ; 6
+*
+* Our Banks of Data are in the order
+* they were allocated, so this is a little
+* more complicated
+*
+        sep #$20        ; preserve Y, by leaving X long
+        ldx <banks_index
+        inx
+        stx <banks_index
+        lda <banks_data,x
+        sta <srcbank+2           ; self modify the code for mvn
+        sta <read_opcode+3       ; data stream reader
+        sta <dictionary_offset+3 ; opcode stream reader
+        rep #$31
 
         ; start of new bank
         ldx #0
@@ -119,14 +143,14 @@ dictionary_copy
         lsr
         bcs cursor_skip
 
-        sta temp
+        sta <temp
 
-        stx dictionary_offset+1
+        stx <dictionary_offset+1
 dictionary_offset
         ldal $000000
         tax
 
-        lda temp
+        lda <temp
         ; dictionary copy
         mvn $01,$01
 
@@ -137,10 +161,12 @@ dictionary_offset
         bra read_opcode
 
 cursor_skip
-        sty temp
-        adc temp
+        sty <skip_amount+1
+skip_amount
+        adc #$0000
         tay
         bra read_opcode
 
+banks_index dw 0
 temp    dw 0
 
diff --git a/asm/shell.s b/asm/shell.s
index e2d4d53..631d558 100644
--- a/asm/shell.s
+++ b/asm/shell.s
@@ -17,6 +17,14 @@
          ext   player
 
 
+;
+; Defines, for the list of allocated memory banks
+;
+banks_count equ $80
+banks_data  equ $82
+
+
+
 vidmode  =     $8080      ;Video mode for QD II (320) ($8000)
                           ;640 mode  ($8080)
 
@@ -49,6 +57,14 @@ SetRes   sep   $30        ; 8-bit mode
          pla              ;retrieve our program ID
          sta   ProgID
 
+;-------------------------------------------------------------------------------
+;
+; Initialize List of memory Banks
+;
+         stz <banks_count
+
+
+
          PushLong #0      ;result space
          lda   ProgID     ;user ID
          pha
@@ -131,6 +147,9 @@ DoMenu
          sta   p:rbuf+2
          sta   iobuff+2
 
+         ; A contains bank address to add
+         jsr   AddBank
+
 
 * PushLong #0
 * PushPtr ExampleM
@@ -467,8 +486,9 @@ DoOpen
          bcc   :lup
 
          _Open p:open
-         bcs   :trouble
-
+         bcc   :read_filesize
+         brl   :trouble
+:read_filesize
          lda   p:open
          sta   p:read
          sta   p:get_eof
@@ -476,6 +496,7 @@ DoOpen
          _GET_EOF p:get_eof
          bcc   :eof_seems_good
 :err_close
+        jsr FreeBanks
          _Close p:close
          bra    :trouble
 
@@ -497,30 +518,73 @@ DoOpen
 ; perhaps loop through, and store a list of allocated banks
 ; starting at $80 in the DP, so DP,x addressing can get at
 ; them in the player		 
-		 
-		 
-         lda p:eof
-         ldx p:eof+2
-         jsr getmem
-         bcs :err_close
+	 
+        ; while banks_count < required_banks
+    
+        lda p:eof+2
+        inc
+        sta :required_banks
+                    
+]loop
+        lda <banks_count
+        cmp :required_banks
+        bcs :we_have_memory
 
-;         jsl dereference
-;         sta p:rbuf
-;         stx p:rbuf+2
+        ; Ask for 64K
+        lda #$0000
+        ldx #$0001
+        jsr getmem
+        bcs :mem_failed
 
-;         lda p:eof
-;         ldx p:eof+2
-;         sta p:rsize
-;         stx p:rsize+2
+        jsl dereference
 
-;         _Read p:read
-;         bcs   :err_close
+        txa
+        jsr AddBank
 
+        bra ]loop
+
+
+:mem_failed
+        jsr FreeBanks
+
+        ; Pop up an Alert
+
+        bra :err_close
+
+:we_have_memory
+              
+        ; Read in the File
+
+        ; Size 64k at a time
+        stz p:rsize
+        lda #$0001
+        sta p:rsize+2
+
+        ldx #0
+        stx p:rbuf+0
+]read_loop
+        lda <banks_data,x
+        and #$00FF
+        sta p:rbuf+2
+
+        phx
+        _Read p:read
+        plx
+       
+        bcs   :err_close
+
+        inx
+        cpx :required_banks
+        bcc ]read_loop
+
+:close_exit
          _Close p:close
          bcs   :trouble
          brl   PlayAnimation
 
-:temp    dw    0
+:required_banks
+:temp
+         dw    0
 
 :trouble
          pha
@@ -529,7 +593,6 @@ DoOpen
          jsl   $e10000
          rtl
 
-
 :message str   'Open GS Lzb Anim:'
 
 :filter  dw    0          ; (count 0/no filter), set to 1 for only show s16 files
@@ -557,52 +620,56 @@ p:where  adrl  $1c000     ;about 108k into file
 
 
 
-PlayAnimation
-		rts
+PlayAnimation mx %00
 		
 		; ha, this has to parse the headers
 		; before it can play the animation
 
 		; copy player to the Direct Page
 		
-	    lda #127  ; player is really only about 96 bytes
-		ldx #player
-		phd
-		ply
-		sty :play+1
-		sty :init+1
+	lda #127  ; player is less than 128 bytes
+	ldx #player
+	phd
+	ply
+	sty :play+1
+	sty :init+1
 		
-		mvn ^player,$00	
+	mvn ^player,$00	
 
-		phk
-		plb
+	phk
+	plb
 		
-		; Pointer to the INITial Frame Data
-		lda #28    ; Header of file + Header of INIT Frame
-		ldx p:rbuf+2
+	; Pointer to the INITial Frame Data
+        lda <banks_data
+        and #$00FF
+        sta $FE
+
+	ldx #28    ; Header of file + Header of INIT Frame
+
+        ; X = Low
+        ; A = High
 		
 :init	jsl $000000 ; for the first frame
-		
+
 		; load up a pointer to data
 :loop
-	    lda  p:rbuf
-		sta  $F0
-		lda  p:rbuf+2
-		sta  $F2
+	stz  $FC
 		
-	    ldy  #24
-		lda [$F0],y
-		clc
-		adc #20
+	ldy  #24
+	lda [$FC],y
+	clc
+	adc #28  ; 20 byte header + 8 bytes skip into the ANIM Block
+        tax
 		 
-        ;lda p:rbuf
-        ldx p:rbuf+2
+        lda $FE
 
-		; play the animation
+	; play the animation
+        ; X = Low
+        ; A = High
 			
 :play   jsl $000000
 
-		bra :loop
+	bra :loop
 
         rts
 
@@ -618,3 +685,47 @@ DoClose
 text
          str   "Written By:  Jason Andersen and Steven Chiang"
 
+********************************************************************************
+*
+* Append a Bank to the list
+*
+AddBank mx %00
+        ldx <banks_count
+        sta <banks_data,x
+        inx
+        stx <banks_count
+        rts
+
+********************************************************************************
+*
+* Free Memory, and Clear Bank List
+*
+FreeBanks mx %00
+
+]loop
+        ldx <banks_count
+        dex
+        bmi :done
+        stx <banks_count
+
+        ldy #0
+        phy     ; space for result
+        phy
+
+        lda <banks_data,x
+        and #$00FF
+        phy     ; memory address high
+        phy     ; memory address low
+
+        ldx #$1A02 ; FindHandle
+        jsl tool
+
+        ldx #$1002 ; DisposeHandle
+        jsl tool
+
+        bra ]loop
+
+:done
+        rts
+
+        rts