forums.nabu.ca

Code: Select all

#define BIN_TYPE BIN_CPM

// Disable the NABULIB keyboard and use the CPM keyboard
#define DISABLE_KEYBOARD_INT

// Disable the HCCA if you're not using filesystem or control ia
#define DISABLE_HCCA_RX_INT

// Disable the VDP if you're making a CPM console app. Console apps can use vt_XXX commands for moving cursor in emulation mode
#define DISABLE_VDP

#include <stdlib.h>
#include <stdbool.h>
#include <stdio.h>
#include "../NABULIB/NABU-LIB.h"

void main() {

  puts("");

  if (isCloudCPM())
    puts("You are running Cloud CPM!");
  else
    puts("Cloud CPM is not detected");

  puts("");
}

Code: Select all

/* Fetch the high score from disk*/
uint16_t getHighScore() {
    int hs = 0;
    #if BIN_TYPE == BIN_CPM
    
        if (isCloudCPM()) {  // We want to save the high score data back to the host PC as a discreet file in the STORE folder.
        
            uint8_t rnfp = rn_fileOpen(9, "snake.dat", OPEN_FILE_FLAG_READONLY, 0xFF);
            uint16_t bytesRead = rn_fileHandleRead(rnfp, &hs, 0, 0, sizeof(hs));
            rn_fileHandleClose(rnfp);
            
        } else { // We want to use regular old CP/M to store the file into the local file store.
        
            FILE * fp = fopen("snake.dat", "r");
            if (fp) {
                fscanf(fp, "%d", &hs);
            } else {
                hs = 0;
            }
            fclose(fp);
        }
    #else  // We are not building for CPM / probably NABU Native build - so return hs with it's initial value = 0 for the saved high score.
    #endif
    return hs;
}

/* Write the high score to disk*/
void setHighScore(uint16_t hs) {
    #if BIN_TYPE == BIN_CPM
    
        if (isCloudCPM()) {  //We want to fetch the high score data from a file stored on the host PC.
        
            uint8_t rnfp = rn_fileOpen(9, "snake.dat", OPEN_FILE_FLAG_READWRITE, 0xFF);
            rn_fileHandleEmptyFile(rnfp);
            rn_fileHandleInsert(rnfp, 0, 0, sizeof(hs), &hs);
            rn_fileHandleClose(rnfp);
            
        } else {  //We want to fetch the data from the local file store managed by CPM.
        
            FILE * fp = fopen("snake.dat", "w");
            fprintf(fp, "%d", hs);
            fclose(fp);
        }
    #else
        (void)hs;  // We are not building for CPM / probably NABU Native build - so do nothing at all.
    #endif
}

Code: Select all

hexdump /mnt/c/dev/nabu/Nabu\ Internet\ Adapter/Store/snake.dat -C
00000000  11 00                                             |..|
00000002