mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
153 lines
3.4 KiB
153 lines
3.4 KiB
/* banker.c 6/7/2012 dwg - */
|
|
|
|
#include "stdio.h"
|
|
#include "stdlib.h"
|
|
#include "memory.h"
|
|
|
|
/* #include "cpmbind.h" */
|
|
|
|
#include "std.h"
|
|
#include "infolist.h"
|
|
#include "metadata.h"
|
|
|
|
/* #include "setlunum.h" */
|
|
|
|
#include "applvers.h"
|
|
#include "bdoscall.h"
|
|
#include "cpmbdos.h"
|
|
#include "bioscall.h"
|
|
#include "cpmbios.h"
|
|
#include "diagnose.h"
|
|
#include "cnfgdata.h"
|
|
#include "syscfg.h"
|
|
#include "applvers.h"
|
|
|
|
#define COL1 0
|
|
#define COL2 (80/3)
|
|
#define COL3 (2*COL2)
|
|
#define LINE 2
|
|
|
|
#define BDOS 5 /* memory address of BDOS invocation */
|
|
#define HIGHSEG 0x0C000 /* memory address of system config */
|
|
|
|
#define GETSYSCFG 0x0F000 /* HBIOS function for Get System Configuration */
|
|
|
|
struct SYSCFG * pSYSCFG;
|
|
struct BIOS * pCBIOS;
|
|
|
|
int main(argc,argv)
|
|
int argc;
|
|
char *argv[] ;
|
|
{
|
|
|
|
char * varloc;
|
|
char * tstloc;
|
|
char temp[128];
|
|
|
|
int i;
|
|
int bFirst;
|
|
|
|
bFirst = 0;
|
|
|
|
ireghl = pGETINFO;
|
|
bioscall();
|
|
pINFOLIST = ireghl;
|
|
printf("post GETINFO ireghl is 0x%04x\n",pINFOLIST);
|
|
|
|
pCBIOS = 0x0e600;
|
|
|
|
hregbc = GETSYSCFG; /* function = Get System Config */
|
|
hregde = HIGHSEG; /* addr of dest (must be high) */
|
|
diagnose(); /* invoke the NBIOS function */
|
|
pSYSCFG = HIGHSEG;
|
|
|
|
crtinit(pSYSCFG->cnfgdata.termtype);
|
|
crtclr();
|
|
crtlc(0,0);
|
|
|
|
printf("BANKER.COM %d/%d/%d v%d.%d.%d.%d",
|
|
A_MONTH,A_DAY,A_YEAR,A_RMJ,A_RMN,A_RUP,A_RTP);
|
|
printf(" dwg - Display Memory Bank Characteristics");
|
|
|
|
hregbc = 0x0f000;
|
|
hregde = 0x0c000;
|
|
diagnose();
|
|
pSYSCFG = 0x0C000;
|
|
|
|
crtlc(LINE+0,COL1);
|
|
crtlc(LINE+1,COL1);
|
|
printf("ROM Bank1");
|
|
crtlc(LINE+2,COL1);
|
|
printf("RMJ = %d",pSYSCFG->cnfgdata.rmj);
|
|
crtlc(LINE+3,COL1);
|
|
printf("RMN = %d",pSYSCFG->cnfgdata.rmn);
|
|
crtlc(LINE+4,COL1);
|
|
printf("RUP = %d",pSYSCFG->cnfgdata.rup);
|
|
crtlc(LINE+5,COL1);
|
|
printf("RTP = %d",pSYSCFG->cnfgdata.rtp);
|
|
crtlc(LINE+7,COL1);
|
|
varloc = pSYSCFG->varloc;
|
|
/* dregde = (unsigned int)varloc-0x200+0x0c000; */
|
|
dregde = (unsigned int)varloc+0x0c000;
|
|
|
|
dregbc = 9;
|
|
bdoscall();
|
|
crtlc(LINE+8,COL1);
|
|
/* tstloc = 0x0c000-0x0200+(unsigned int)pSYSCFG->tstloc; */
|
|
tstloc = 0x0c000+(unsigned int)pSYSCFG->tstloc;
|
|
memset(temp,0,sizeof(temp));
|
|
memcpy(temp,tstloc,11);
|
|
printf("%s",temp);
|
|
|
|
crtlc(LINE+1,COL2);
|
|
printf("CBIOS HDR");
|
|
crtlc(LINE+2,COL2);
|
|
printf("RMJ = %d",pCBIOS->rmj);
|
|
crtlc(LINE+3,COL2);
|
|
printf("RMN = %d",pCBIOS->rmn);
|
|
crtlc(LINE+4,COL2);
|
|
printf("RUP = %d",pCBIOS->rup);
|
|
crtlc(LINE+5,COL2);
|
|
printf("RTP = %d",pCBIOS->rtp);
|
|
/* */
|
|
crtlc(LINE+7,COL2);
|
|
varloc = pINFOLIST->varloc;
|
|
memset(temp,0,sizeof(temp));
|
|
memcpy(temp,varloc,sizeof(temp)-1);
|
|
for(i=0;i<sizeof(temp);i++) {
|
|
if('-' == temp[i]) {
|
|
if(0 != bFirst) {
|
|
temp[i] = 0;
|
|
} else {
|
|
bFirst = 1;
|
|
}
|
|
}
|
|
}
|
|
printf("%s",temp);
|
|
|
|
crtlc(LINE+8,COL2);
|
|
tstloc = pINFOLIST->tstloc;
|
|
memset(temp,0,sizeof(temp));
|
|
memcpy(temp,tstloc,11);
|
|
printf("%s",temp);
|
|
|
|
crtlc(LINE+1,COL3);
|
|
printf("BANKER.COM");
|
|
crtlc(LINE+2,COL3);
|
|
printf("RMJ = %d",A_RMJ);
|
|
crtlc(LINE+3,COL3);
|
|
printf("RMN = %d",A_RMN);
|
|
crtlc(LINE+4,COL3);
|
|
printf("RUP = %d",A_RUP);
|
|
crtlc(LINE+5,COL3);
|
|
printf("RTP = %d",A_RTP);
|
|
|
|
crtlc(LINE+8,COL3);
|
|
printf("%02d%02d%02d",A_YR,A_MONTH,A_DAY);
|
|
crtlc(23,0);
|
|
}
|
|
|
|
/*****************/
|
|
/* eof - cview.c */
|
|
/*****************/
|
|
|