New version 1.5.7

Author: GSoftwareDevelopment

MCP.pas

@@ -1,6 +1,6 @@
-{$LIBRARYPATH midfile/}
-{$LIBRARYPATH units/}
-{$LIBRARYPATH includes/}
+{$LIBRARYPATH './midfile/'}
+{$LIBRARYPATH './units/'}
+{$LIBRARYPATH './includes/'}
 {$DEFINE ROMOFF}
 Uses
   MIDFiles,
@@ -9,12 +9,12 @@
   filestr,
   screen,
   list,
-  inputLine;
+  inputline;
 {$I-}
 
-{$i const.inc}
+{$i 'const.inc'}
 
-{$r player.rc}
+{$r 'player.rc'}
 
 var
   _tm:Byte absolute $14;
@@ -51,14 +51,14 @@
   counter:Longint absolute $88;
   cntBCD:Longint absolute $8c;
 
-{$i myNMI.inc}
-{$i status.inc}
-{$i load.inc}
-{$i list.inc}
-{$i getdirectory.inc}
-{$i keyboard.inc}
-{$i autostop_songchange.inc}
-{$i init.inc}
+{$i 'myNMI.inc'}
+{$i 'status.inc'}
+{$i 'load.inc'}
+{$i 'list.inc'}
+{$i 'getdirectory.inc'}
+{$i 'keyboard.inc'}
+{$i 'autostop_songchange.inc'}
+{$i 'init.inc'}
 
 begin
   asm lda PORTB \ pha end;
@@ -83,7 +83,7 @@
     processMIDI;
     AutoStopAndSongChange;
 
-    if _tm-otm>refreshRate then
+    if {_tm-otm<>0} byte(_tm-otm)>refreshRate then
     begin
       otm:=_tm;
       if screenStatus and ss_isRefresh<>0 then

const.inc

@@ -1,7 +1,7 @@
 const
 {$i memory.inc}
 
-  VERSION= 'v1.5.6b'~;
+  VERSION= 'v1.5.7'~;
 // base memory (under 64KB) available
   FREE_MEM = ($8000-$4000)+($ff00-$d800);
 

includes/init.inc

@@ -42,6 +42,8 @@ end;
 
 procedure exit2DOS; keep;
 begin
+  sendClearPushLCD;
+
   unsetNMI;
   doneMIDI;
   Cls(0); Opn(0,12,0,'E:'); // SOUNDR:=1;

midfile/determine_song_length.inc

@@ -1,3 +1,54 @@
+procedure sendPushLCDText; Keep;
+const
+  push_sysex:array[0..7] of byte = (
+    $f0, $47, $7f, $15, $01, $00, $45, $00
+  );
+
+begin
+  asm
+  event = $ff
+
+    sei
+    jsr $2003
+    cli
+
+    ldx #0
+
+  sysex_header_loop:
+    txa
+    pha
+    lda ADR.PUSH_SYSEX,x
+    sta event
+    jsr $2006
+    pla
+    tax
+    inx
+    cpx #8
+    bne sysex_header_loop
+
+  // sysex data loop
+    jmp checkDataLen
+  readLoop:
+    jsr MAIN.MIDFILES.readB
+    jsr $2006
+
+    dec _tmp
+
+  checkDataLen:
+    lda _tmp
+    bne readLoop
+
+    lda #$F7
+    sta event
+    jsr $2006
+
+    sei
+    sec       ; flush buffer & uninitialize driver
+    jsr $200c
+    cli
+  end;
+end;
+
 procedure determineSongLength;
 begin
   _songTicks:=0; curTrackPtr:=@MIDTracks;
@@ -84,6 +135,22 @@ begin
       cmp #$2F      ; end of track
       beq exitUntil
 
+      cmp #$01      ; meta for Text
+      beq pushText
+      cmp #$02      ; meta for Copyright
+      beq pushText
+      cmp #$03      ; meta for Sequence/Track name
+      bne endCase
+
+    pushText:
+      // lda cTrk
+      // cmp #1        ; only for track #1 (0)
+      // bne endCase
+
+      jsr sendPushLCDText
+
+      jmp processTrack
+
     endCase:
 
     ; end of event cases

midfile/loadmid.inc

@@ -1,3 +1,38 @@
+procedure sendClearPushLCD; Keep;
+const
+  push_sysex:array[0..5] of byte = (
+    $f0, $47, $7f, $15, $00, $F7
+  );
+
+begin
+  asm
+  event = $ff
+
+    sei
+    jsr $2003
+    cli
+
+    ldx #0
+
+  sysex_header_loop:
+    txa
+    pha
+    lda ADR.PUSH_SYSEX,x
+    sta event
+    jsr $2006
+    pla
+    tax
+    inx
+    cpx #6
+    bne sysex_header_loop
+
+    sei
+    sec       ; flush buffer & uninitialize driver
+    jsr $200c
+    cli
+  end;
+end;
+
 function LoadMID:shortint;
 const
   LOADBUF_SIZE=16*1024;
@@ -36,6 +71,8 @@ var
   end;
 
 begin
+  sendClearPushLCD;
+
   Opn(CIO_CHN,4,0,fn);
   if IOResult>127 then
   begin

midfile/midfiles.pas

@@ -59,6 +59,7 @@ procedure setTempo;
 procedure ProcessTrack; Assembler;
 procedure ProcessMIDI;
 procedure determineSongLength;
+procedure sendClearPushLCD; Keep;
 
 implementation
 Uses

midfile/processtrack.inc

@@ -2,7 +2,7 @@
 
 }
 
-procedure readB; Inline; Assembler;
+procedure readB; Keep; Assembler;
 asm
 event = $ff;
 

units/inputline.pas

@@ -1,4 +1,4 @@
-unit inputLine;
+unit inputline;
 
 interface