mirror of https://github.com/wwarthen/RomWBW.git
wayne
13 years ago
272 changed files with 48497 additions and 158 deletions
@ -0,0 +1,68 @@ |
|||||
|
/* twodrive.c 7/11/2012 dwg - */ |
||||
|
|
||||
|
/* This program is experimental and is not for release because
|
||||
|
it contains techniques which are not recommended because |
||||
|
there are better API functions to do these operations. */ |
||||
|
|
||||
|
|
||||
|
#include "cpmbios.h" |
||||
|
#include "bioscall.h" |
||||
|
|
||||
|
#include "cpmbdos.h" |
||||
|
#include "bdoscall.h" |
||||
|
|
||||
|
#define u8 unsigned char |
||||
|
#define u16 unsigned int |
||||
|
|
||||
|
struct DPH * pDPH_C; |
||||
|
struct DPB * pDPB_C; |
||||
|
u8 * pDU_C; |
||||
|
u16 * pCUR_C; |
||||
|
u16 * pNUM_C; |
||||
|
|
||||
|
struct DPH * pDPH_D; |
||||
|
struct DPB * pDPB_D; |
||||
|
u8 * pDU_D; |
||||
|
u16 * pCUR_D; |
||||
|
u16 * pNUM_D; |
||||
|
|
||||
|
main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
|
||||
|
ireghl = pSELDSK; |
||||
|
iregbc = DRIVEC; |
||||
|
iregde = 0; |
||||
|
bioscall(); |
||||
|
pDPH_C = ireghl; |
||||
|
pDPB_C = pDPH_C->dpb; |
||||
|
pDU_C = ireghl -1; |
||||
|
*pDU_C = 0X41; |
||||
|
printf("Current C: DevUnit is %02x\n",*pDU_C); |
||||
|
pCUR_C = ireghl + 18; |
||||
|
*pCUR_C = 0; |
||||
|
printf("Current C: Logical Unit is %d\n",* pCUR_C); |
||||
|
pNUM_C = ireghl + 20; |
||||
|
*pNUM_C = 64/9; |
||||
|
printf("Current C: Number of LU's is %d\n",* pNUM_C); |
||||
|
|
||||
|
ireghl = pSELDSK; |
||||
|
iregbc = DRIVED; |
||||
|
iregde = 0; |
||||
|
bioscall(); |
||||
|
pDPH_D = ireghl; |
||||
|
pDPB_D = pDPH_D->dpb; |
||||
|
pDU_D = ireghl -1; |
||||
|
*pDU_D = 0x41; |
||||
|
printf("Current D: DevUnit is %02x\n",*pDU_D); |
||||
|
pCUR_D = ireghl + 18; |
||||
|
*pCUR_D = 1; |
||||
|
printf("Current D: Logical Unit is %d\n",* pCUR_D); |
||||
|
pNUM_D = ireghl + 20; |
||||
|
*pNUM_D = 64/9; |
||||
|
printf("Current D: Number of LU's is %d\n",* pNUM_D); |
||||
|
|
||||
|
|
||||
|
} |
||||
|
|
||||
@ -0,0 +1,322 @@ |
|||||
|
/* map.c 6/7/2012 dwg - */ |
||||
|
|
||||
|
#include "portab.h" |
||||
|
#include "globals.h" |
||||
|
#include "stdio.h" |
||||
|
#include "stdlib.h" |
||||
|
#include "memory.h" |
||||
|
|
||||
|
#include "cpmbind.h" |
||||
|
|
||||
|
#include "infolist.h" |
||||
|
#include "dphdpb.h" |
||||
|
#include "dphmap.h" |
||||
|
#include "metadata.h" |
||||
|
#include "clogical.h" |
||||
|
#include "applvers.h" |
||||
|
|
||||
|
#define MAXDRIVE 8 |
||||
|
|
||||
|
/* Drive List Geometry */ |
||||
|
#define COL1 0 |
||||
|
#define COL2 (80/4) |
||||
|
#define COL3 (80/2) |
||||
|
#define COL4 (COL2+COL3) |
||||
|
#define LINE 3 |
||||
|
|
||||
|
/* Logical Unit List Geometry */ |
||||
|
#define LGUT 5 |
||||
|
#define COL1A 0 |
||||
|
#define COL2A (80/3) |
||||
|
#define COL3A (2*COL2A) |
||||
|
|
||||
|
/* Nomenclature Geometry */ |
||||
|
#define LINE2 8 |
||||
|
|
||||
|
/* Misc Info Geometry */ |
||||
|
#define CDLINE 6 |
||||
|
|
||||
|
/* BDOS Function number */ |
||||
|
#define RETCURR 25 |
||||
|
|
||||
|
/* function defined in bdoscall.asm */ |
||||
|
extern lurst(); |
||||
|
|
||||
|
struct BIOS * pBIOS; |
||||
|
|
||||
|
struct DPH * pDPH; |
||||
|
|
||||
|
int devunit; |
||||
|
int dev; |
||||
|
int unit; |
||||
|
int currlu; |
||||
|
int numlu; |
||||
|
int drivenum; |
||||
|
int drive; |
||||
|
int deflu; |
||||
|
|
||||
|
char szTemp[128]; |
||||
|
|
||||
|
int readsec(drive,track,sector,buffer) |
||||
|
int drive; |
||||
|
int track; |
||||
|
int sector; |
||||
|
unsigned int buffer; |
||||
|
{ |
||||
|
ireghl = pSELDSK; |
||||
|
iregbc = drive; |
||||
|
iregde = 0; |
||||
|
bioscall(); |
||||
|
|
||||
|
ireghl = pSETTRK; |
||||
|
iregbc = track; |
||||
|
bioscall(); |
||||
|
|
||||
|
ireghl = pSETSEC; |
||||
|
iregbc = sector; |
||||
|
bioscall(); |
||||
|
|
||||
|
ireghl = pSETDMA; |
||||
|
iregbc = buffer; |
||||
|
bioscall(); |
||||
|
|
||||
|
ireghl = pREAD; |
||||
|
bioscall(); |
||||
|
return irega; |
||||
|
} |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
int haslu(dr) |
||||
|
int dr; |
||||
|
{ |
||||
|
if(0 < lugnum(dr)) { |
||||
|
return TRUE; |
||||
|
} else { |
||||
|
return FALSE; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
|
||||
|
|
||||
|
void dispdph(l,c,drive,ptr) |
||||
|
int l; |
||||
|
int c; |
||||
|
char drive; |
||||
|
struct DPH *ptr; |
||||
|
{ |
||||
|
|
||||
|
/*
|
||||
|
unsigned int xlt; |
||||
|
unsigned int rv1; |
||||
|
unsigned int rv2; |
||||
|
unsigned int rv3; |
||||
|
unsigned int dbf; |
||||
|
unsigned int dpb; |
||||
|
unsigned int csv; |
||||
|
unsigned int alv; |
||||
|
unsigned char sigl; |
||||
|
unsigned char sigu; |
||||
|
unsigned int current; |
||||
|
unsigned int number; |
||||
|
*/ |
||||
|
crtlc(l,c); |
||||
|
printf("%c: ",drive); |
||||
|
|
||||
|
devunit = lugdu(drive-'A'); |
||||
|
dev = devunit & 0xf0; |
||||
|
unit = devunit & 0x0f; |
||||
|
|
||||
|
currlu = lugcur(drive-'A'); |
||||
|
switch(dev) { |
||||
|
case DEV_MD: |
||||
|
if(0 == unit) printf("ROM"); |
||||
|
if(1 == unit) printf("RAM"); |
||||
|
break; |
||||
|
case DEV_FD: |
||||
|
printf("FD%d",unit); |
||||
|
break; |
||||
|
case DEV_IDE: |
||||
|
printf("IDE%d",unit); |
||||
|
break; |
||||
|
case DEV_ATAPI: |
||||
|
printf("ATAPI%d",unit); |
||||
|
break; |
||||
|
case DEV_PPIDE: |
||||
|
printf("PPIDE%d",unit); |
||||
|
break; |
||||
|
case DEV_SD: |
||||
|
printf("SD%d",unit); |
||||
|
break; |
||||
|
case DEV_PRPSD: |
||||
|
printf("PRPSD%d",unit); |
||||
|
break; |
||||
|
default: |
||||
|
printf("UNK"); |
||||
|
break; |
||||
|
}; |
||||
|
|
||||
|
if('L' == (unsigned char)ptr->sigl) { |
||||
|
if('U' == (unsigned char)ptr->sigu) { |
||||
|
/* printf("-LU%d",(int)ptr->current); */ |
||||
|
printf("-LU%d",currlu); |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
/* printf("dpb=0x%04x, ",(unsigned int)ptr->dpb);
|
||||
|
printf("sigl=0x%02x, ",(unsigned char)ptr->sigl); |
||||
|
printf("sigu=0x%02x, ",(unsigned char)ptr->sigu); |
||||
|
printf("curr=0x%04x, ",(unsigned int)ptr->current); |
||||
|
printf("numb=0x%04x", (unsigned int)ptr->number); |
||||
|
*/ |
||||
|
|
||||
|
} |
||||
|
|
||||
|
int main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
int i; |
||||
|
int mylu; |
||||
|
int drivenum; |
||||
|
int column; |
||||
|
int line; |
||||
|
char szDrive[32]; |
||||
|
char szLuNum[32]; |
||||
|
|
||||
|
if(argc == 3) { |
||||
|
|
||||
|
strcpy(szDrive,argv[1]); |
||||
|
strcpy(szLuNum,argv[2]); |
||||
|
|
||||
|
mylu = atoi(szLuNum); |
||||
|
|
||||
|
if(strlen(szDrive) == 2) { |
||||
|
if(':' == szDrive[1]) { |
||||
|
switch(szDrive[0]) { |
||||
|
case 'a': |
||||
|
case 'A': |
||||
|
luscur(0,mylu); |
||||
|
break; |
||||
|
case 'b': |
||||
|
case 'B': |
||||
|
luscur(1,mylu); |
||||
|
break; |
||||
|
case 'c': |
||||
|
case 'C': |
||||
|
luscur(2,mylu); |
||||
|
break; |
||||
|
case 'd': |
||||
|
case 'D': |
||||
|
luscur(3,mylu); |
||||
|
break; |
||||
|
case 'e': |
||||
|
case 'E': |
||||
|
luscur(4,mylu); |
||||
|
break; |
||||
|
case 'f': |
||||
|
case 'F': |
||||
|
luscur(5,mylu); |
||||
|
break; |
||||
|
case 'g': |
||||
|
case 'G': |
||||
|
luscur(6,mylu); |
||||
|
break; |
||||
|
case 'h': |
||||
|
case 'H': |
||||
|
luscur(7,mylu); |
||||
|
break; |
||||
|
default: |
||||
|
break; |
||||
|
} |
||||
|
|
||||
|
} |
||||
|
} |
||||
|
exit(1); |
||||
|
} |
||||
|
|
||||
|
|
||||
|
pBIOS = BIOSAD; |
||||
|
|
||||
|
crtinit(); |
||||
|
crtclr(); |
||||
|
crtlc(0,0); |
||||
|
|
||||
|
printf("MAP.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 - System Storage Drives and Logical Units"); |
||||
|
|
||||
|
ireghl = pGETINFO; |
||||
|
bioscall(); |
||||
|
pINFOLIST = ireghl; |
||||
|
|
||||
|
crtlc(CDLINE,COL3A+LGUT); |
||||
|
printf("infolist.version %d\n",pINFOLIST->version); |
||||
|
|
||||
|
pDPHMAP = (struct DPHMAPA *)pINFOLIST->dphmap; |
||||
|
|
||||
|
dispdph(LINE, COL1+LGUT-1,'A',(struct DPH *)pDPHMAP->drivea); |
||||
|
dispdph(LINE+1,COL1+LGUT-1,'B',(struct DPH *)pDPHMAP->driveb); |
||||
|
dispdph(LINE, COL2+LGUT-1,'C',(struct DPH *)pDPHMAP->drivec); |
||||
|
dispdph(LINE+1,COL2+LGUT-1,'D',(struct DPH *)pDPHMAP->drived); |
||||
|
dispdph(LINE, COL3+LGUT-1,'E',(struct DPH *)pDPHMAP->drivee); |
||||
|
dispdph(LINE+1,COL3+LGUT-1,'F',(struct DPH *)pDPHMAP->drivef); |
||||
|
dispdph(LINE, COL4+LGUT-1,'G',(struct DPH *)pDPHMAP->driveg); |
||||
|
dispdph(LINE+1,COL4+LGUT-1,'H',(struct DPH *)pDPHMAP->driveh); |
||||
|
|
||||
|
dregbc = RETCURR; |
||||
|
bdoscall(); |
||||
|
drive = drega; |
||||
|
|
||||
|
crtlc(CDLINE,5); |
||||
|
printf("Current drive is %c:",'A'+drive); |
||||
|
|
||||
|
devunit = lugdu(drive); |
||||
|
dev = devunit & 0xf0; |
||||
|
unit = devunit & 0x0f; |
||||
|
currlu = lugcur(drive); |
||||
|
deflu = currlu; |
||||
|
numlu = lugnum(drive); |
||||
|
|
||||
|
crtlc(CDLINE,COL2A+LGUT); |
||||
|
printf("Number of LUs is %d\n",lugnum(drive)); |
||||
|
|
||||
|
if(0<numlu) { |
||||
|
crtlc(LINE2,COL1A+LGUT); |
||||
|
printf("LU -----Label------"); |
||||
|
crtlc(LINE2,COL2A+LGUT); |
||||
|
printf("LU -----Label------"); |
||||
|
crtlc(LINE2,COL3A+LGUT); |
||||
|
printf("LU -----Label------"); |
||||
|
|
||||
|
line = LINE2+1; |
||||
|
column = 0; |
||||
|
for(i=0;i<numlu;i++) { |
||||
|
luscur(drive,i); |
||||
|
readsec(drive,0,11,&metadata); |
||||
|
metadata.term = 0; |
||||
|
switch(column++) { |
||||
|
case 0: |
||||
|
crtlc(line,COL1A+LGUT); |
||||
|
printf("%2d %s",i,metadata.label); |
||||
|
break; |
||||
|
case 1: |
||||
|
crtlc(line,COL2A+LGUT); |
||||
|
printf("%2d %s",i,metadata.label); |
||||
|
break; |
||||
|
case 2: |
||||
|
crtlc(line,COL3A+LGUT); |
||||
|
printf("%2d %s",i,metadata.label); |
||||
|
column = 0; |
||||
|
line++; |
||||
|
break; |
||||
|
} |
||||
|
} |
||||
|
luscur(drive,deflu); |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
/****************/ |
||||
|
/* eof - cmap.c */ |
||||
|
/****************/ |
||||
@ -0,0 +1,106 @@ |
|||||
|
; access.asm 7/19/2012 dwg - for 2.0.0.0 B22 |
||||
|
; access.com 2/17/2012 dwg - review for release 1.5.1.0 |
||||
|
; access.asm 2/11/2012 dwg - make ident compliant |
||||
|
; access.com 2/07/2012 dwg - review for release 1.5 |
||||
|
; access.com 2/05/2012 dwg - adjust for new macros |
||||
|
; access.asm 1/30/2012 dwg - use new do$start and do$end macros |
||||
|
; access.asm 1/28/2012 dwg - assure file exists from within submit file |
||||
|
|
||||
|
; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3. |
||||
|
; |
||||
|
; This file is part of NuBiosDWG and 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 3 of the License, or (at your option) any later version. |
||||
|
; This file 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 it. If not, see <http://www.gnu.org/licenses/>. |
||||
|
|
||||
|
;---------------------------------------------------------------------- |
||||
|
maclib portab |
||||
|
maclib globals |
||||
|
maclib cpmbdos |
||||
|
maclib printers |
||||
|
maclib banner |
||||
|
maclib applvers |
||||
|
maclib z80 |
||||
|
maclib memory |
||||
|
maclib version |
||||
|
maclib cpmappl |
||||
|
maclib banner |
||||
|
;----------------------- |
||||
|
|
||||
|
do$start |
||||
|
|
||||
|
jmp around$bandata |
||||
|
argv dw prog,dat,prod,orig,ser,myname,0 |
||||
|
prog db 'ACCESS.COM $' |
||||
|
date |
||||
|
serial |
||||
|
product |
||||
|
originator |
||||
|
oriname |
||||
|
uuid db '08D4953E-B6F4-4673-990C-7E17A0A299BD$' |
||||
|
around$bandata: |
||||
|
|
||||
|
sbanner argv |
||||
|
|
||||
|
lda 80h ; pick up the command tail length provided by CCP |
||||
|
cpi 0 ; were there any parameters given? |
||||
|
jnz no$usage ; If not, go around |
||||
|
printf 'usage - access <filename>' |
||||
|
jmp do$exit |
||||
|
no$usage: |
||||
|
|
||||
|
memcpy work$fcb,PRIFCB,32 ; Save initial default FCB from CCP |
||||
|
|
||||
|
printf 'Checking: ' |
||||
|
|
||||
|
mvi a,'$' ; place a terminating dollar sign |
||||
|
sta PRIFCB+9 ; at the end of the filname field |
||||
|
print PRIFCB+1 ; and print the filename portion |
||||
|
|
||||
|
conout '.' ; print the seperating dot |
||||
|
|
||||
|
memcpy PRIFCB,work$fcb,16 ; get a fresh copy of the initial FCB |
||||
|
mvi a,'$' ; place a terminating dollar sign |
||||
|
sta PRIFCB+12 ; at the end of the filetype field |
||||
|
print PRIFCB+9 ; and print the filetype |
||||
|
print crlf ; followed by a CR and LF |
||||
|
|
||||
|
memcpy PRIFCB,work$fcb,32 ; restore the initial FCB |
||||
|
|
||||
|
mvi c,FOPEN ; Try to open the given filename |
||||
|
lxi d,PRIFCB ; using the primary default FCB |
||||
|
call BDOS ; with a BDOS call |
||||
|
cpi 255 ; Test for Open Failure (255) |
||||
|
jnz done ; jump if file existed |
||||
|
|
||||
|
mvi c,FDELETE ; Delete the A:$$$.SUB file |
||||
|
lxi d,del$fcb ; using an alternative FCB |
||||
|
call BDOS |
||||
|
|
||||
|
printf 'Submit file terminated due to missing file$' |
||||
|
|
||||
|
jmp do$exit ; Go to the one true exit point |
||||
|
|
||||
|
done: |
||||
|
printf 'File found, Submit may proceed' |
||||
|
do$exit: |
||||
|
do$end |
||||
|
|
||||
|
newfcb del$fcb,1,'$$$ SUB' |
||||
|
|
||||
|
work$fcb ds 36 ; A place to save a copy of the default FCB on entry |
||||
|
|
||||
|
crlf db CR,LF ; a dollar sign terminated CR and LF |
||||
|
term db '$' ; a general purpose terminating character |
||||
|
|
||||
|
end start |
||||
|
|
||||
|
; eof - access.asm |
||||
|
|
||||
|
|
||||
@ -0,0 +1,18 @@ |
|||||
|
rem access.sub 9/5/2012 dwg - build access from sources |
||||
|
|
||||
|
if not exist access.rel erase access.cpm |
||||
|
if not exist access.rel z80mu rmac access |
||||
|
|
||||
|
if not exist printers.rel erase access.cpm |
||||
|
if not exist printers.rel z80mu rmac printers |
||||
|
|
||||
|
if not exist memory.rel erase access.cpm |
||||
|
if not exist memory.rel z80mu rmac memory |
||||
|
|
||||
|
if not exist banner.rel erase access.cpm |
||||
|
if not exist banner.rel z80mu rmac banner |
||||
|
|
||||
|
if not exist access.cpm z80mu link access,memory,banner,printers |
||||
|
if not exist access.cpm rename access.com access.cpm |
||||
|
|
||||
|
dir access.cpm |
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,7 @@ |
|||||
|
e:rem access.sub 9/5/2012 dwg - build access from sources |
||||
|
rasm80 access |
||||
|
rasm80 printers |
||||
|
rasm80 memory |
||||
|
rasm80 banner |
||||
|
link80 access,memory,banner,printers |
||||
|
|
||||
@ -0,0 +1,8 @@ |
|||||
|
0103 HEXREF 0113 IDSIG 0115 IDRMJ 0116 IDRMN |
||||
|
0117 IDRUP 0118 IDRTP 0119 IDMON 011A IDDAY |
||||
|
011B IDYR 0120 PRESTK 0122 BEGIN 09C1 PRDWOR |
||||
|
0999 PRHBYT 09AE PRHWOR 0554 XBANNE 07FF XSBANN |
||||
|
0546 XMEMCP 0547 XMEMSE 0983 PRHNYB 09CD PDEC |
||||
|
09EF PDEC1 09F1 PDEC2 0A0D PDEC3 0A24 PDEC4 |
||||
|
0A25 PDEC5 |
||||
|
|
||||
Binary file not shown.
@ -1,20 +1,20 @@ |
|||||
/****************************/ |
|
||||
/* applvers.h dwg - 2.0.0.0 */ |
|
||||
/****************************/ |
|
||||
|
/************************************/ |
||||
|
/* applvers.h dwg - 2.2.0.3 Beta */ |
||||
|
/************************************/ |
||||
|
|
||||
#define A_RMJ 2 |
#define A_RMJ 2 |
||||
#define A_RMN 0 |
|
||||
|
#define A_RMN 3 |
||||
#define A_RUP 0 |
#define A_RUP 0 |
||||
#define A_RTP 0 |
#define A_RTP 0 |
||||
|
|
||||
#define A_MONTH 6 |
|
||||
#define A_DAY 10 |
|
||||
#define A_YEAR 2012 |
|
||||
#define A_YR 12 |
|
||||
|
#define A_MONTH 1 |
||||
|
#define A_DAY 16 |
||||
|
#define A_YEAR 2013 |
||||
|
#define A_YR 13 |
||||
|
|
||||
/********************/ |
/********************/ |
||||
/* eof - applvers.h */ |
/* eof - applvers.h */ |
||||
/********************/ |
/********************/ |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
@ -0,0 +1,34 @@ |
|||||
|
; applvers.lib 2/29/2012 dwg - For RomWBW 2.1.1 Release |
||||
|
|
||||
|
A$RMJ equ 2 |
||||
|
A$RMN equ 2 |
||||
|
A$RUP equ 0 |
||||
|
A$RTP equ 0 |
||||
|
|
||||
|
A$MONTH equ 2 |
||||
|
A$DAY equ 15 |
||||
|
A$YEAR equ 2013 |
||||
|
|
||||
|
date macro |
||||
|
dat db ' 2/15/2013$' |
||||
|
endm |
||||
|
|
||||
|
serial macro |
||||
|
ser db '654321$' |
||||
|
endm |
||||
|
|
||||
|
product macro |
||||
|
prod db 'CPM80$' |
||||
|
endm |
||||
|
|
||||
|
originator macro |
||||
|
orig db 'DWG$' |
||||
|
endm |
||||
|
|
||||
|
oriname macro |
||||
|
myname db ' Douglas W Goodall $' |
||||
|
endm |
||||
|
|
||||
|
; eof - applvers.lib |
||||
|
|
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,13 @@ |
|||||
|
/* ascii.h 11/25/2012 dwg - */ |
||||
|
|
||||
|
#define ASCII_BS 8 |
||||
|
#define ASCII_TAB 9 |
||||
|
#define ASCII_LF 10 |
||||
|
#define ASCII_VT 11 |
||||
|
#define ASCII_FF 12 |
||||
|
#define ASCII_CR 13 |
||||
|
#define ASCII_ESC 27 |
||||
|
|
||||
|
/* eof - ascii.h */ |
||||
|
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,18 @@ |
|||||
|
; |
||||
|
; This is a sample AUTOEXEC.Z80 file. Tailor it to your own preferences, |
||||
|
; or delete it entirely. |
||||
|
; |
||||
|
set_bdos min |
||||
|
set_cpmecho off |
||||
|
set_cpmlist lpt1 |
||||
|
set_cpmpun com1 |
||||
|
set_cpmrdr com1 |
||||
|
set_cpu z80 |
||||
|
set_fake on |
||||
|
set_illop fault |
||||
|
set_iobase 400 |
||||
|
set_mask on |
||||
|
set_source z80 |
||||
|
set_term h19 |
||||
|
set_vars on |
||||
|
coldboot |
||||
@ -0,0 +1,656 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global pINFOLIS_,2 |
||||
|
global metadata_,128 |
||||
|
global pSYSCFG_,2 |
||||
|
global pCBIOS_,2 |
||||
|
PUBLIC main_ |
||||
|
main_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-132-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,-6596 |
||||
|
SHLD ireghl_ |
||||
|
CALL bioscall_ |
||||
|
LHLD ireghl_ |
||||
|
SHLD pINFOLIS_ |
||||
|
LHLD pINFOLIS_ |
||||
|
PUSH H |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-6656 |
||||
|
SHLD pCBIOS_ |
||||
|
LXI H,-4096 |
||||
|
SHLD hregbc_ |
||||
|
LXI H,-16384 |
||||
|
SHLD hregde_ |
||||
|
CALL diagnose_ |
||||
|
LXI H,-16384 |
||||
|
SHLD pSYSCFG_ |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,68 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
CALL crtinit_ |
||||
|
POP D |
||||
|
CALL crtclr_ |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,2 |
||||
|
PUSH H |
||||
|
LXI H,2012 |
||||
|
PUSH H |
||||
|
LXI H,29 |
||||
|
PUSH H |
||||
|
LXI H,8 |
||||
|
PUSH H |
||||
|
LXI H,.1+31 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,16 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,.1+64 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,-4096 |
||||
|
SHLD hregbc_ |
||||
|
LXI H,-16384 |
||||
|
SHLD hregde_ |
||||
|
CALL diagnose_ |
||||
|
LXI H,-16384 |
||||
|
SHLD pSYSCFG_ |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,2 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,3 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,.1+107 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,4 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,9 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+117 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,5 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,10 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+126 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,6 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,11 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+135 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,7 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,12 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+144 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,9 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,7 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,2-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,2-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,-16384 |
||||
|
DAD D |
||||
|
SHLD dregde_ |
||||
|
LXI H,9 |
||||
|
SHLD dregbc_ |
||||
|
CALL bdoscall_ |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,10 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,5 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,-16384 |
||||
|
DAD D |
||||
|
XCHG |
||||
|
LXI H,0-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,128 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,-124-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL memset_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,11 |
||||
|
PUSH H |
||||
|
LXI H,2-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-124-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL memcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-128-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
LXI H,.1+153 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,3 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,.1+156 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,4 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pCBIOS_ |
||||
|
LXI D,75 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+166 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,5 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pCBIOS_ |
||||
|
LXI D,76 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+175 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,6 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pCBIOS_ |
||||
|
LXI D,77 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+184 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,7 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pCBIOS_ |
||||
|
LXI D,78 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+193 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,9 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pINFOLIS_ |
||||
|
LXI D,4 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,2-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,128 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,-124-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL memset_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,127 |
||||
|
PUSH H |
||||
|
LXI H,4-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-124-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL memcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-130-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .4 |
||||
|
.3: |
||||
|
LXI H,-130-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.4: |
||||
|
LXI H,-130-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,128 |
||||
|
CALL .ul |
||||
|
JZ .5 |
||||
|
LXI H,-130-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,-128-.2 |
||||
|
DAD SP |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,45 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .6 |
||||
|
LXI H,-132-.2 |
||||
|
DAD SP |
||||
|
mov a,m |
||||
|
inx h |
||||
|
ora m |
||||
|
JZ .7 |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,-128-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,-126-.2 |
||||
|
DAD SP |
||||
|
DAD D |
||||
|
POP D |
||||
|
MOV M,E |
||||
|
JMP .8 |
||||
|
.7: |
||||
|
LXI H,1 |
||||
|
XCHG |
||||
|
LXI H,-132-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.8: |
||||
|
.6: |
||||
|
JMP .3 |
||||
|
.5: |
||||
|
LXI H,-128-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
LXI H,.1+202 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,26 |
||||
|
PUSH H |
||||
|
LXI H,10 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD pINFOLIS_ |
||||
|
LXI D,6 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,0-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,128 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,-124-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL memset_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,11 |
||||
|
PUSH H |
||||
|
LXI H,2-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-124-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL memcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-128-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
LXI H,.1+205 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,52 |
||||
|
PUSH H |
||||
|
LXI H,3 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,.1+208 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,52 |
||||
|
PUSH H |
||||
|
LXI H,4 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,2 |
||||
|
PUSH H |
||||
|
LXI H,.1+219 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,52 |
||||
|
PUSH H |
||||
|
LXI H,5 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,.1+228 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,52 |
||||
|
PUSH H |
||||
|
LXI H,6 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,.1+237 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,52 |
||||
|
PUSH H |
||||
|
LXI H,7 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,.1+246 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,52 |
||||
|
PUSH H |
||||
|
LXI H,10 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,29 |
||||
|
PUSH H |
||||
|
LXI H,8 |
||||
|
PUSH H |
||||
|
LXI H,12 |
||||
|
PUSH H |
||||
|
LXI H,.1+255 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,23 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
RET |
||||
|
.2 EQU -136 |
||||
|
.1: |
||||
|
DB 112,111,115,116,32,71,69,84,73,78,70,79,32,105,114 |
||||
|
DB 101,103,104,108,32,105,115,32,48,120,37,48,52,120,10 |
||||
|
DB 0,66,65,78,75,69,82,46,67,79,77,32,37,100,47 |
||||
|
DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100 |
||||
|
DB 46,37,100,0,32,100,119,103,32,45,32,68,105,115,112 |
||||
|
DB 108,97,121,32,77,101,109,111,114,121,32,66,97,110,107 |
||||
|
DB 32,67,104,97,114,97,99,116,101,114,105,115,116,105,99 |
||||
|
DB 115,0,82,79,77,32,66,97,110,107,49,0,82,77,74 |
||||
|
DB 32,61,32,37,100,0,82,77,78,32,61,32,37,100,0 |
||||
|
DB 82,85,80,32,61,32,37,100,0,82,84,80,32,61,32 |
||||
|
DB 37,100,0,37,115,0,67,66,73,79,83,32,72,68,82 |
||||
|
DB 0,82,77,74,32,61,32,37,100,0,82,77,78,32,61 |
||||
|
DB 32,37,100,0,82,85,80,32,61,32,37,100,0,82,84 |
||||
|
DB 80,32,61,32,37,100,0,37,115,0,37,115,0,66,65 |
||||
|
DB 78,75,69,82,46,67,79,77,0,82,77,74,32,61,32 |
||||
|
DB 37,100,0,82,77,78,32,61,32,37,100,0,82,85,80 |
||||
|
DB 32,61,32,37,100,0,82,84,80,32,61,32,37,100,0 |
||||
|
DB 37,48,50,100,37,48,50,100,37,48,50,100,0 |
||||
|
extrn crtlc_ |
||||
|
extrn crtclr_ |
||||
|
extrn crtinit_ |
||||
|
extrn printf_ |
||||
|
extrn diagnose_ |
||||
|
extrn hregde_ |
||||
|
extrn hregbc_ |
||||
|
extrn bioscall_ |
||||
|
extrn ireghl_ |
||||
|
extrn bdoscall_ |
||||
|
extrn dregde_ |
||||
|
extrn dregbc_ |
||||
|
extrn memset_ |
||||
|
extrn memcpy_ |
||||
|
extrn .eq |
||||
|
extrn .ul |
||||
|
END |
||||
|
|
||||
@ -0,0 +1,153 @@ |
|||||
|
/* 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 */ |
||||
|
/*****************/ |
||||
|
|
||||
@ -0,0 +1,156 @@ |
|||||
|
; banner.asm 9/5/2012 dwg - new version semantics - #.#.# (#) |
||||
|
|
||||
|
maclib portab |
||||
|
maclib globals |
||||
|
maclib cpmbios |
||||
|
maclib cpmbdos |
||||
|
maclib bioshdr |
||||
|
maclib printers |
||||
|
maclib cpmappl |
||||
|
maclib applvers |
||||
|
|
||||
|
cseg |
||||
|
|
||||
|
|
||||
|
; entered with argv in hl |
||||
|
public x$banner |
||||
|
x$banner: |
||||
|
shld argv |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprog ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xvers ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprod ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xorig ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xser ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xnam ! xchg |
||||
|
|
||||
|
|
||||
|
printf '----------------------------------------' |
||||
|
print crlf |
||||
|
lhld xprog ! xchg ! mvi c,9 ! call BDOS |
||||
|
printf ' ' |
||||
|
IF A$MONTH LT 10 |
||||
|
conout ' ' |
||||
|
ENDIF |
||||
|
IF A$DAY LT 10 |
||||
|
conout ' ' |
||||
|
ENDIF |
||||
|
lxi h,A$MONTH |
||||
|
call pr$d$word |
||||
|
conout '/' |
||||
|
lxi h,A$DAY |
||||
|
call pr$d$word |
||||
|
conout '/' |
||||
|
lxi h,A$YEAR |
||||
|
call pr$d$word |
||||
|
printf ' ' |
||||
|
printf 'Version ' |
||||
|
lxi h,A$RMJ |
||||
|
call pr$d$word |
||||
|
conout '.' |
||||
|
lxi h,A$RMN |
||||
|
call pr$d$word |
||||
|
conout '.' |
||||
|
lxi h,A$RUP |
||||
|
call pr$d$word |
||||
|
printf ' (' |
||||
|
lxi h,A$RTP |
||||
|
call pr$d$word |
||||
|
conout ')' |
||||
|
print crlf |
||||
|
printf 'S/N ' |
||||
|
|
||||
|
lhld xprod ! xchg ! mvi c,9 ! call BDOS |
||||
|
|
||||
|
conout '-' |
||||
|
|
||||
|
lhld xorig ! xchg ! mvi c,9 ! call BDOS |
||||
|
|
||||
|
conout '-' |
||||
|
|
||||
|
; print xser |
||||
|
lhld xser ! xchg ! mvi c,9 ! call BDOS |
||||
|
|
||||
|
printf ' ' |
||||
|
; printf 'All Rights Reserved' |
||||
|
printf 'Licensed under GPL3' |
||||
|
print crlf |
||||
|
printf 'Copyright (C) 2011-12' |
||||
|
|
||||
|
lhld xnam ! xchg ! mvi c,9 ! call BDOS |
||||
|
|
||||
|
print crlf |
||||
|
printf '----------------------------------------' |
||||
|
print crlf |
||||
|
|
||||
|
ret |
||||
|
|
||||
|
|
||||
|
; entered with argv in hl |
||||
|
public x$sbanner |
||||
|
x$sbanner: |
||||
|
shld argv |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprog ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xvers ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprod ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xorig ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xser ! xchg |
||||
|
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xnam ! xchg |
||||
|
|
||||
|
|
||||
|
; printf '----------------------------------------' |
||||
|
; print crlf |
||||
|
lhld xprog ! xchg ! mvi c,9 ! call BDOS |
||||
|
printf ' ' |
||||
|
IF A$MONTH LT 10 |
||||
|
conout ' ' |
||||
|
ENDIF |
||||
|
IF A$DAY LT 10 |
||||
|
conout ' ' |
||||
|
ENDIF |
||||
|
lxi h,A$MONTH |
||||
|
call pr$d$word |
||||
|
conout '/' |
||||
|
lxi h,A$DAY |
||||
|
call pr$d$word |
||||
|
conout '/' |
||||
|
lxi h,A$YEAR |
||||
|
call pr$d$word |
||||
|
printf ' ' |
||||
|
printf 'Vers. ' |
||||
|
lxi h,A$RMJ |
||||
|
call pr$d$word |
||||
|
conout '.' |
||||
|
lxi h,A$RMN |
||||
|
call pr$d$word |
||||
|
conout '.' |
||||
|
lxi h,A$RUP |
||||
|
call pr$d$word |
||||
|
printf ' ( ' |
||||
|
lxi h,A$RTP |
||||
|
call pr$d$word |
||||
|
printf ') ' |
||||
|
printf 'COPR Douglas Goodall Licensed w/GPLv3' |
||||
|
|
||||
|
|
||||
|
print crlf |
||||
|
|
||||
|
ret |
||||
|
|
||||
|
|
||||
|
;---------------------------------------------------------------- |
||||
|
|
||||
|
argv ds 2 |
||||
|
;---------------- |
||||
|
xprog ds 2 |
||||
|
xvers ds 2 |
||||
|
xprod ds 2 |
||||
|
xorig ds 2 |
||||
|
xser ds 2 |
||||
|
xnam ds 2 |
||||
|
|
||||
|
crlf db CR,LF,'$' |
||||
|
|
||||
|
end |
||||
|
|
||||
|
; eof - banner.asm |
||||
|
|
||||
@ -0,0 +1,18 @@ |
|||||
|
; banner.lib 7/19/2012 dwg - for 2.0.0.0 B22 |
||||
|
; banner.lib 2/17/2012 dwg - review for release 1.5.1.0 |
||||
|
; banner.lib 2/11/2012 dwg - banner library declarations |
||||
|
|
||||
|
extrn x$banner |
||||
|
banner macro argv |
||||
|
lxi h,argv |
||||
|
call x$banner |
||||
|
endm |
||||
|
|
||||
|
extrn x$sbanner |
||||
|
sbanner macro argv |
||||
|
lxi h,argv |
||||
|
call x$sbanner |
||||
|
endm |
||||
|
|
||||
|
; eof - banner.lib |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,29 @@ |
|||||
|
000F ADAY 0009 AL0OFS 000A AL1OFS 000E ALVOFS 0002 AMONTH |
||||
|
041E ARGV 0002 ARMJ 0002 ARMN 0000 ARTP 0000 ARUP |
||||
|
07DD AYEAR 0005 BDOS E600 BIBOOT E609 BICONIN E60C BICONOUT |
||||
|
E606 BICONST 0000 BIDRVA 0001 BIDRVB 0002 BIDRVC 0003 BIDRVD |
||||
|
0004 BIDRVE 0005 BIDRVF 0006 BIDRVG 0007 BIDRVH E618 BIHOME |
||||
|
E60F BILIST E62D BILISTST E612 BIPUNCH E627 BIREAD E615 BIREADER |
||||
|
E630 BISECTRN E61B BISELDSK E624 BISETDMA E621 BISETSEC E61E BISETTRK |
||||
|
E603 BIWBOOT E62A BIWRITE 0003 BLMOFS 0002 BSHOFS 0001 BYTESIZE |
||||
|
000B CKSOFS 003A COLON 000D CR 0001 CREAD 042C CRLF |
||||
|
0020 CROFS 000C CSVOFS 0012 CUROFS 0002 CWRITE 0010 D0OFS |
||||
|
0008 DBFOFS 0080 DEFBUF 000F DPBLEN 000A DPBOFS 0010 DPHLEN |
||||
|
0001 DRIVEB 0007 DRMOFS 0000 DROFS 000D DSKRESET 0005 DSMOFS |
||||
|
0001 ENGLISH 001B ESC 0004 EXMOFS 000C EXOFS 0001 F1OFS |
||||
|
0002 F2OFS 0003 F3OFS 0004 F4OFS 0005 F5OFS 0006 F6OFS |
||||
|
0007 F7OFS 0008 F8OFS 0000 FALSE 0024 FCBLEN 0010 FCLOSE |
||||
|
0023 FCOMPSIZE 0013 FDELETE 0016 FMAKE 000F FOPEN 0017 FRENAME |
||||
|
0020 LENFCB 000A LF 0010 LU1OFS 0011 LU2OFS 0010 MAXLABEL |
||||
|
0000 NEVER 0014 NLUOFS 00E5 OEMID 000D OFFOFS 0000 PRDWORD |
||||
|
0000 PRHBYTE 0000 PRHWORD 005C PRIFCB 0009 PRINTSTR 0021 R0OFS |
||||
|
0022 R1OFS 0023 R2OFS 000F RCOFS 000A READCONBUF 0014 READSEQ |
||||
|
0025 RESETDRIVE 0019 RETCURR 000C RETVERNO E64B RMJ E64C RMN |
||||
|
E64E RTP E64D RUP 0002 RV1OFS 0004 RV2OFS 0006 RV3OFS |
||||
|
000D S1OFS 000E S2OFS 006C SECFCB 000E SELDSK 001A SETDMA |
||||
|
0024 SETRANDREC 0000 SPANISH 0000 SPTOFS 0200 STACKSIZE 0009 T1OFS |
||||
|
000A T2OFS 000B T3OFS 0000 TERMCPM 0001 TRUE 0002 WORDSIZE |
||||
|
0022 WRITERAND 0028 WRITERANDZF 0015 WRITESEQ 0000 XBANNER |
||||
|
0000 XLTOFS 042A XNAM 0426 XORIG 0424 XPROD 0420 XPROG |
||||
|
02AB XSBANNER 0428 XSER 0422 XVERS |
||||
|
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,385 @@ |
|||||
|
; biohdr.lib 2/19/2012 dwg - BIOS header display macros |
||||
|
; copyright (C) 2011 Douglas Goodall. All Rights Reserved. |
||||
|
; Licensed to N8VEM Community for non-commercial use only. |
||||
|
|
||||
|
; 2/19/2012 dwg - review for release 1.5.1.0 |
||||
|
; 2/05/2012 dwg - added DSKM (DM_ROM...) better late than never |
||||
|
; 2/05/2012 dwg - added prpsdenable,prpsdtrace, and prpsdcapacity |
||||
|
; 1/16/2012 dwg - extend LU numbers to 0x1C entries (256MB) |
||||
|
; 1/11/2012 dwg - added new setlu for 1.4 slice technique |
||||
|
; 12/18/2011 dwg - added REVISION (from svn) |
||||
|
; 12/07/2011 dwg - BIOS header enhancement for version 1.3 |
||||
|
|
||||
|
; Common Configuration items, |
||||
|
; Valid in all configurations |
||||
|
RMJ equ 0E64Bh |
||||
|
RMN equ RMJ+1 |
||||
|
RUP equ RMN+1 |
||||
|
RTP equ RUP+1 |
||||
|
|
||||
|
if 0 |
||||
|
BANPTR equ RTP+1 |
||||
|
DKMP equ BANPTR+2 |
||||
|
DBBOOL equ DKMP+2 ; Disk Boot Boolean |
||||
|
DBDRV equ DBBOOL+1 ; Disk Boot Drive Code |
||||
|
FREQ equ DBDRV+1 |
||||
|
PLAT equ FREQ+1 ; Hardware Platform |
||||
|
DIOPLT equ PLAT+1 |
||||
|
VDUPLT equ DIOPLT+1 |
||||
|
ROMSIZ equ VDUPLT+1 |
||||
|
RAMSIZ equ ROMSIZ+2 |
||||
|
CRAM equ RAMSIZ+2 |
||||
|
DSKY equ CRAM+1 ; Is Display/Keyboard Attached? |
||||
|
UART equ DSKY+1 ; Is UART Enabled? |
||||
|
VDUEN equ UART+1 |
||||
|
FDEN equ VDUEN+1 ; Is Floppy Disk Support Enabled |
||||
|
FDTR equ FDEN+1 ; Is Floppy Disk Error Tracing Enabled? |
||||
|
FMED equ FDTR+1 ; Floppy Disk Media Type |
||||
|
FALT equ FMED+1 ; Alternative Floppy Disk Media Type |
||||
|
FAUT equ FALT+1 ; Is Floppy Disk Automatic Sensing Enabled? |
||||
|
IDEN equ FAUT+1 ; Is On-Board IDE Support Enabled |
||||
|
IDTR equ IDEN+1 |
||||
|
IDE8 equ IDTR+1 |
||||
|
IDCP equ IDE8+1 ; 1/13/2012 IDE Capacity |
||||
|
PPEN equ IDCP+2 ; Is PPIDE Support Enablned? |
||||
|
PPTR equ PPEN+1 ; Is PPIDE Tracing Enabled? |
||||
|
PP8B equ PPTR+1 |
||||
|
PPCP equ PP8B+1 ; 1/13/2012 PPIDE Capacity |
||||
|
PSLW equ PPCP+2 ; Use NOPs for recovery-time compensation |
||||
|
BTYP equ PSLW+1 |
||||
|
BTTO equ BTYP+1 |
||||
|
BTDF equ BTTO+1 |
||||
|
BAUD equ BTDF+1 ; What is the Console Baud Rate |
||||
|
|
||||
|
; Only Valid if PLATFORM == PLT_N8 |
||||
|
CLKDIV equ BAUD+2 ; Z180_CLKDIV |
||||
|
MEMWAIT equ CLKDIV+1 ; Z180_MEMWAIT |
||||
|
IOWAIT equ MEMWAIT+1 ; Z180_IOWAIT |
||||
|
CNTLB0 equ IOWAIT+1 ; Z180_CNTLB0 |
||||
|
CNTLB1 equ CNTLB0+1 ; Z180_CNTLB1 |
||||
|
SDENABLE equ CNTLB1+1 |
||||
|
SDTRACE equ SDENABLE+1 |
||||
|
SDCP equ SDTRACE+1 ; 1/13/2012 SD Capacity |
||||
|
VDPTR equ SDCP+2 ; pointer to VDU Data |
||||
|
FDPTR equ VDPTR+2 ; pointer to FD Data |
||||
|
IDEPTR equ FDPTR+2 ; pointer to IDE Data |
||||
|
PPIPTR equ IDEPTR+2 ; pointer to PPIDE_DATA Data |
||||
|
PPIPTR2 equ PPIPTR+2 ; pointer to PPIDE.ASM DATA |
||||
|
|
||||
|
DEFIO equ PPIPTR2+2 ; pointer to DEFIOBYTE |
||||
|
LDRC equ DEFIO+1 ; pointer to LDRCON |
||||
|
DBGC equ LDRC+1 ; pointer to DBGCON |
||||
|
TTYP equ DBGC+1 ; pointer to TERMTYPE |
||||
|
REV equ TTYP+1 ; subversion revision |
||||
|
|
||||
|
TMDT equ REV+2 ; startup date and time |
||||
|
|
||||
|
PSDE equ TMDT+6 ; prpsdenable |
||||
|
PSDT equ PSDE+1 ; prpsdtrace |
||||
|
PSDC equ PSDT+1 ; prpsdcapacity |
||||
|
PRCE equ PSDC+2 |
||||
|
|
||||
|
DSKM equ PRCE+1 ; DM_ROM... |
||||
|
|
||||
|
DTSZ equ DSKM+1 ; DATASIZE |
||||
|
|
||||
|
; LU0 LU1 LU2 LU3 LU4 LU5 LU6 LU7 LU8 LU9 |
||||
|
; 41 82 c3 104 145 186 1c7 208 249 286 |
||||
|
; |
||||
|
; LU10 LU11 LU12 LU13 LU14 LU15 LU16 |
||||
|
; 2c7 308 349 38a 3cb 40c 44d |
||||
|
|
||||
|
LU0 equ 0 ; 041h ; PPIDE1 offset for first slice (default) |
||||
|
LU1 equ 1 ; 082h ; PPIDE1 offset for second slice |
||||
|
LU2 equ 2 ; 0C3h ; PPIDE1 offset for third slice |
||||
|
LU3 equ 3 ; 104h ; PPIDE1 offset for fourth slice |
||||
|
LU4 equ 4 ; 145h ; PPIDE1 offset for fifth slice |
||||
|
LU5 equ 5 ; 186h ; PPIDE1 offset for sixth slice |
||||
|
LU6 equ 6 ; 1c7h ; PPIDE1 offset for seventh slice |
||||
|
LU7 equ 7 ; 208h ; PPIDE1 offset for eighth slice |
||||
|
LU8 equ 8 ; 249h ; PPIDE1 offset for ninth slice |
||||
|
LU9 equ 9 ; 286h ; PPIDE1 offset for tenth slice |
||||
|
LU10 equ 10 |
||||
|
LU11 equ 11 |
||||
|
LU12 equ 12 |
||||
|
LU13 equ 13 |
||||
|
LU14 equ 14 |
||||
|
LU15 equ 15 |
||||
|
LU16 equ 16 |
||||
|
LU17 equ 17 |
||||
|
LU18 equ 18 |
||||
|
LU19 equ 19 |
||||
|
LU20 equ 20 |
||||
|
LU21 equ 21 |
||||
|
LU22 equ 22 |
||||
|
LU23 equ 23 |
||||
|
LU24 equ 24 |
||||
|
LU25 equ 25 |
||||
|
LU26 equ 26 ; 0x1a |
||||
|
LU27 equ 27 ; 0x1b (1Cth entry) |
||||
|
|
||||
|
endif |
||||
|
|
||||
|
DRIVEB equ 1 ; 0=A, 1=B... |
||||
|
|
||||
|
|
||||
|
setlu13 macro offset |
||||
|
lxi h,PPIPTR2 ; set pointer to ppide.asm data |
||||
|
mov e,m ; dereference pointer |
||||
|
inx h |
||||
|
mov d,m ; de -> ppide.asm data |
||||
|
xchg ; hl -> ppide.asm data |
||||
|
lxi d,6 ; offset to offset |
||||
|
dad d ; hl -> offset in ppide.asm data |
||||
|
lxi d,offset ; load caller's parameter in de |
||||
|
mov m,e ; stuff LO offset byte into offset |
||||
|
inx h ; bump ptr |
||||
|
mov m,d ; stuff HO offset byte into offset |
||||
|
mvi c,13 ; BDOS DSKRESET |
||||
|
call 5 ; call BDOS |
||||
|
endm |
||||
|
|
||||
|
getlu13 macro |
||||
|
lxi h,PPIPTR2 ; set pointer to ppide.asm data |
||||
|
mov e,m ; dereference pointer |
||||
|
inx h |
||||
|
mov d,m ; de -> ppide.asm data |
||||
|
xchg ; hl -> ppide.asm data |
||||
|
lxi d,6 ; offset to offset |
||||
|
dad d ; hl -> offset in ppide.asm data |
||||
|
mov e,m ; pick up LO byte of offset |
||||
|
inx h ; bump ptr |
||||
|
mov d,m ; pick up HO byte of offset |
||||
|
xchg ; hl = offset |
||||
|
endm |
||||
|
|
||||
|
setlu14 macro offset |
||||
|
lxi h,PPIPTR2 ; set pointer to ppide.asm data |
||||
|
mov e,m ; dereference pointer |
||||
|
inx h |
||||
|
mov d,m ; de -> ppide.asm data |
||||
|
xchg ; hl -> ppide.asm data |
||||
|
lxi d,6 ; offset to offset |
||||
|
dad d ; hl -> offset in ppide.asm data |
||||
|
lxi d,offset ; load caller's parameter in de |
||||
|
mov m,e ; stuff LO offset byte into offset |
||||
|
inx h ; bump ptr |
||||
|
mov m,d ; stuff HO offset byte into offset |
||||
|
mvi c,13 ; BDOS DSKRESET |
||||
|
call 5 ; call BDOS |
||||
|
endm |
||||
|
|
||||
|
getlu14 macro |
||||
|
lxi h,PPIPTR2 ; set pointer to ppide.asm data |
||||
|
mov e,m ; dereference pointer |
||||
|
inx h |
||||
|
mov d,m ; de -> ppide.asm data |
||||
|
xchg ; hl -> ppide.asm data |
||||
|
lxi d,6 ; offset to offset |
||||
|
dad d ; hl -> offset in ppide.asm data |
||||
|
mov e,m ; pick up LO byte of offset |
||||
|
inx h ; bump ptr |
||||
|
mov d,m ; pick up HO byte of offset |
||||
|
xchg ; hl = offset |
||||
|
endm |
||||
|
|
||||
|
setlu macro drive,slice |
||||
|
local dontboth,msg,msg2 |
||||
|
mvi c,drive |
||||
|
call BISELDSK |
||||
|
lxi d,16 |
||||
|
dad d |
||||
|
mov a,m |
||||
|
cpi 'L' |
||||
|
jnz dontboth |
||||
|
inx h |
||||
|
mov a,m |
||||
|
cpi 'U' |
||||
|
jnz dontboth |
||||
|
inx h |
||||
|
mvi a,slice |
||||
|
mov m,a |
||||
|
print msg |
||||
|
mvi a,drive |
||||
|
adi 'A' |
||||
|
mov e,a |
||||
|
mvi c,2 |
||||
|
call BDOS |
||||
|
print msg2 |
||||
|
lxi h,slice |
||||
|
call pr$d$word |
||||
|
jmp dontboth |
||||
|
msg db CR,LF,'Drive $' |
||||
|
msg2 db ': set to Logical Unit (slice) $' |
||||
|
dontboth: |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
xluset macro |
||||
|
local ldrive,lslice,dontboth,msg,msg2 |
||||
|
; C = DRIVE |
||||
|
; A = SLICE |
||||
|
sta lslice |
||||
|
mov a,c |
||||
|
sta ldrive |
||||
|
|
||||
|
call BISELDSK ; uses c parameter (drive) |
||||
|
lxi d,16 |
||||
|
dad d |
||||
|
mov a,m |
||||
|
cpi 'L' |
||||
|
jnz dontboth |
||||
|
inx h |
||||
|
mov a,m |
||||
|
cpi 'U' |
||||
|
jnz dontboth |
||||
|
inx h |
||||
|
lda lslice |
||||
|
mov m,a ; put slice into CURRENT |
||||
|
|
||||
|
; print msg |
||||
|
; lda ldrive |
||||
|
; adi 'A' |
||||
|
; mov e,a |
||||
|
; mvi c,2 |
||||
|
; call BDOS |
||||
|
; print msg2 |
||||
|
; lda lslice |
||||
|
; mov l,a |
||||
|
; mvi h,0 |
||||
|
; call pr$d$word |
||||
|
|
||||
|
jmp dontboth |
||||
|
msg db CR,LF,'Drive $' |
||||
|
msg2 db ': set to Logical Unit (slice) $' |
||||
|
ldrive db 0 |
||||
|
lslice db 0 |
||||
|
dontboth: |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
hdrlit macro ptr,val,msg |
||||
|
local notval |
||||
|
lxi h,ptr |
||||
|
mvi a,val |
||||
|
cmp m |
||||
|
jnz notval |
||||
|
print msg |
||||
|
notval: |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
hdrbool macro ptr,tmsg,fmsg |
||||
|
local itstrue,itsfalse,imdone |
||||
|
enter |
||||
|
lxi h,ptr |
||||
|
mov a,m |
||||
|
cpi TRUE |
||||
|
jnz itsfalse |
||||
|
lxi d,tmsg |
||||
|
jmp imdone |
||||
|
itsfalse: lxi d,fmsg |
||||
|
imdone: mvi c,PRINTSTR |
||||
|
call BDOS |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
hdrbyte macro ptr,msg |
||||
|
enter |
||||
|
mvi c,PRINTSTR |
||||
|
lxi d,msg |
||||
|
call BDOS |
||||
|
lxi h,ptr |
||||
|
mov a,m |
||||
|
call pr$h$byte |
||||
|
|
||||
|
conout '(' |
||||
|
mov e,m |
||||
|
mov d,0 |
||||
|
xchg |
||||
|
call pr$d$word |
||||
|
conout ')' |
||||
|
|
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
hdrpbyte macro ptr,msg |
||||
|
enter |
||||
|
mvi c,PRINTSTR |
||||
|
lxi d,msg |
||||
|
call BDOS |
||||
|
lxi h,PTR |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
mov a,m |
||||
|
call pr$h$byte |
||||
|
|
||||
|
; conout ' ' |
||||
|
conout '(' |
||||
|
mov e,m |
||||
|
mov d,0 |
||||
|
xchg |
||||
|
call pr$d$word |
||||
|
conout ')' |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
hdrword macro ptr,msg |
||||
|
enter |
||||
|
|
||||
|
mvi c,PRINTSTR |
||||
|
lxi d,msg |
||||
|
call BDOS |
||||
|
|
||||
|
lxi h,ptr |
||||
|
inx h |
||||
|
mov a,m |
||||
|
call pr$h$byte |
||||
|
|
||||
|
lxi h,ptr |
||||
|
mov a,m |
||||
|
call pr$h$byte |
||||
|
|
||||
|
conout '(' |
||||
|
lxi h,ptr |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
call pr$d$word |
||||
|
conout ')' |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
syncerr macro |
||||
|
print syncmsg |
||||
|
exit |
||||
|
endm |
||||
|
|
||||
|
hdrvalid macro |
||||
|
local byte1ok,byte2ok |
||||
|
enter |
||||
|
lxi h,CFDA |
||||
|
mov a,m |
||||
|
cpi 0DAh |
||||
|
jz byte1ok |
||||
|
syncerr |
||||
|
byte1ok: |
||||
|
inx h |
||||
|
mov al,m |
||||
|
cpi 0CFh |
||||
|
jz byte2ok |
||||
|
syncerr |
||||
|
byte2ok: |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
; eof - bioshdr.lib |
||||
|
|
||||
@ -0,0 +1,208 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
DSEG |
||||
|
public lines_ |
||||
|
lines_: |
||||
|
DW .1+0 |
||||
|
CSEG |
||||
|
.1: |
||||
|
DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45 |
||||
|
DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45 |
||||
|
DB 45,45,45,45,45,45,45,45,45,45,0 |
||||
|
DSEG |
||||
|
public line1_ |
||||
|
line1_: |
||||
|
DW .2+0 |
||||
|
CSEG |
||||
|
.2: |
||||
|
DB 49,50,51,52,53,54,55,56,46,49,50,51,32,109,109 |
||||
|
DB 47,100,100,47,121,121,121,121,32,32,86,101,114,115,105 |
||||
|
DB 111,110,32,120,46,120,46,120,46,120,0 |
||||
|
DSEG |
||||
|
public line2_ |
||||
|
line2_: |
||||
|
DW .3+0 |
||||
|
CSEG |
||||
|
.3: |
||||
|
DB 83,47,78,32,67,80,77,56,48,45,68,87,71,45,54 |
||||
|
DB 53,52,51,50,49,32,76,105,99,101,110,115,101,100,32 |
||||
|
DB 117,110,100,101,114,32,71,80,76,51,0 |
||||
|
DSEG |
||||
|
public line3_ |
||||
|
line3_: |
||||
|
DW .4+0 |
||||
|
CSEG |
||||
|
.4: |
||||
|
DB 67,111,112,121,114,105,103,104,116,32,40,67,41,32,50 |
||||
|
DB 48,49,49,45,49,50,32,68,111,117,103,108,97,115,32 |
||||
|
DB 87,46,32,71,111,111,100,97,108,108,0 |
||||
|
PUBLIC sbanner_ |
||||
|
sbanner_: lxi d,.6 |
||||
|
call csave |
||||
|
LXI H,8-.6 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.5+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,2013 |
||||
|
PUSH H |
||||
|
LXI H,16 |
||||
|
PUSH H |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,.5+4 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,3 |
||||
|
PUSH H |
||||
|
LXI H,2 |
||||
|
PUSH H |
||||
|
LXI H,.5+18 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,10 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,.5+39 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
RET |
||||
|
.6 EQU -128 |
||||
|
.5: |
||||
|
DB 37,115,32,0,37,50,100,47,37,50,100,47,37,52,100 |
||||
|
DB 32,32,0,86,101,114,115,105,111,110,32,37,100,46,37 |
||||
|
DB 100,46,37,100,46,37,100,32,0,67,79,80,82,32,68 |
||||
|
DB 111,117,103,108,97,115,32,71,111,111,100,97,108,108,32 |
||||
|
DB 76,105,99,101,110,115,101,100,32,119,47,71,80,76,118 |
||||
|
DB 51,10,0 |
||||
|
PUBLIC banner_ |
||||
|
banner_: lxi d,.8 |
||||
|
call csave |
||||
|
LHLD lines_ |
||||
|
PUSH H |
||||
|
LXI H,.7+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.8 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-122-.8 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL strcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
.9: |
||||
|
LXI H,-124-.8 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL strlen_ |
||||
|
POP D |
||||
|
PUSH H |
||||
|
LXI H,12 |
||||
|
POP D |
||||
|
XCHG |
||||
|
CALL .gt |
||||
|
JZ .10 |
||||
|
LXI H,.7+4 |
||||
|
PUSH H |
||||
|
LXI H,-122-.8 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
CALL strcat_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .9 |
||||
|
.10: |
||||
|
LXI H,-124-.8 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
LXI H,.7+6 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,2013 |
||||
|
PUSH H |
||||
|
LXI H,16 |
||||
|
PUSH H |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,.7+10 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,3 |
||||
|
PUSH H |
||||
|
LXI H,2 |
||||
|
PUSH H |
||||
|
LXI H,.7+24 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,10 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LHLD line2_ |
||||
|
PUSH H |
||||
|
LXI H,.7+45 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD line3_ |
||||
|
PUSH H |
||||
|
LXI H,.7+49 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LHLD lines_ |
||||
|
PUSH H |
||||
|
LXI H,.7+53 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
RET |
||||
|
.8 EQU -128 |
||||
|
.7: |
||||
|
DB 37,115,10,0,32,0,37,115,32,0,37,50,100,47,37 |
||||
|
DB 50,100,47,37,52,100,32,32,0,86,101,114,115,105,111 |
||||
|
DB 110,32,37,100,46,37,100,46,37,100,46,37,100,10,0 |
||||
|
DB 37,115,10,0,37,115,10,0,37,115,10,0 |
||||
|
extrn strcat_ |
||||
|
extrn strlen_ |
||||
|
extrn strcpy_ |
||||
|
extrn printf_ |
||||
|
extrn .gt |
||||
|
END |
||||
|
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,333 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn zsave,zret |
||||
|
global termtype_,1 |
||||
|
DSEG |
||||
|
public wy50row_ |
||||
|
wy50row_: |
||||
|
DB 32 |
||||
|
DB 33 |
||||
|
DB 34 |
||||
|
DB 35 |
||||
|
DB 36 |
||||
|
DB 37 |
||||
|
DB 38 |
||||
|
DB 39 |
||||
|
DB 40 |
||||
|
DB 41 |
||||
|
DB 42 |
||||
|
DB 43 |
||||
|
DB 44 |
||||
|
DB 45 |
||||
|
DB 46 |
||||
|
DB 47 |
||||
|
DB 48 |
||||
|
DB 49 |
||||
|
DB 50 |
||||
|
DB 51 |
||||
|
DB 52 |
||||
|
DB 53 |
||||
|
DB 54 |
||||
|
DB 55 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public wy50col_ |
||||
|
wy50col_: |
||||
|
DB 32 |
||||
|
DB 33 |
||||
|
DB 34 |
||||
|
DB 35 |
||||
|
DB 36 |
||||
|
DB 37 |
||||
|
DB 38 |
||||
|
DB 39 |
||||
|
DB 40 |
||||
|
DB 41 |
||||
|
DB 42 |
||||
|
DB 43 |
||||
|
DB 44 |
||||
|
DB 45 |
||||
|
DB 46 |
||||
|
DB 47 |
||||
|
DB 48 |
||||
|
DB 49 |
||||
|
DB 50 |
||||
|
DB 51 |
||||
|
DB 52 |
||||
|
DB 53 |
||||
|
DB 54 |
||||
|
DB 55 |
||||
|
DB 56 |
||||
|
DB 57 |
||||
|
DB 58 |
||||
|
DB 59 |
||||
|
DB 60 |
||||
|
DB 61 |
||||
|
DB 62 |
||||
|
DB 63 |
||||
|
DB 64 |
||||
|
DB 65 |
||||
|
DB 66 |
||||
|
DB 67 |
||||
|
DB 68 |
||||
|
DB 69 |
||||
|
DB 70 |
||||
|
DB 71 |
||||
|
DB 72 |
||||
|
DB 73 |
||||
|
DB 74 |
||||
|
DB 75 |
||||
|
DB 76 |
||||
|
DB 77 |
||||
|
DB 78 |
||||
|
DB 79 |
||||
|
DB 80 |
||||
|
DB 81 |
||||
|
DB 82 |
||||
|
DB 83 |
||||
|
DB 84 |
||||
|
DB 85 |
||||
|
DB 86 |
||||
|
DB 87 |
||||
|
DB 88 |
||||
|
DB 89 |
||||
|
DB 90 |
||||
|
DB 91 |
||||
|
DB 92 |
||||
|
DB 93 |
||||
|
DB 94 |
||||
|
DB 95 |
||||
|
DB 96 |
||||
|
DB 97 |
||||
|
DB 98 |
||||
|
DB 99 |
||||
|
DB 100 |
||||
|
DB 101 |
||||
|
DB 102 |
||||
|
DB 103 |
||||
|
DB 104 |
||||
|
DB 105 |
||||
|
DB 106 |
||||
|
DB 107 |
||||
|
DB 108 |
||||
|
DB 109 |
||||
|
DB 110 |
||||
|
DB 111 |
||||
|
CSEG |
||||
|
PUBLIC crtinit_ |
||||
|
crtinit_: lxi d,.2 |
||||
|
call zsave |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
XCHG |
||||
|
MOV A,L |
||||
|
STA termtype_ |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
PUBLIC crtclr_ |
||||
|
crtclr_: lxi d,.3 |
||||
|
call zsave |
||||
|
LDA termtype_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,6-.3 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .8 |
||||
|
.7: |
||||
|
LXI H,6-.3 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.8: |
||||
|
LXI H,6-.3 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,43 |
||||
|
CALL .lt |
||||
|
JZ .9 |
||||
|
LXI H,10 |
||||
|
PUSH H |
||||
|
LXI H,13 |
||||
|
PUSH H |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .7 |
||||
|
.9: |
||||
|
JMP .5 |
||||
|
.10: |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+5 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.11: |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+11 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.12: |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+15 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.4: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.6 |
||||
|
DW 1,.10 |
||||
|
DW 2,.11 |
||||
|
DW 3,.12 |
||||
|
DW .5 |
||||
|
.5: |
||||
|
RET |
||||
|
.3 EQU -2 |
||||
|
.1: |
||||
|
DB 37,99,37,99,0,37,99,91,50,74,0,37,99,43,0 |
||||
|
DB 37,99,74,37,99,72,0 |
||||
|
PUBLIC crtlc_ |
||||
|
crtlc_: lxi d,.14 |
||||
|
call zsave |
||||
|
LDA termtype_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
JMP .15 |
||||
|
.17: |
||||
|
JMP .16 |
||||
|
.18: |
||||
|
LXI H,102 |
||||
|
PUSH H |
||||
|
LXI H,16-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,16-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.13+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,10 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
JMP .16 |
||||
|
.19: |
||||
|
LXI H,14-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,wy50col_ |
||||
|
DAD D |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,14-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,wy50row_ |
||||
|
DAD D |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.13+11 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
JMP .16 |
||||
|
.20: |
||||
|
LXI H,14-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,32 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,14-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,32 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.13+19 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
JMP .16 |
||||
|
.15: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.17 |
||||
|
DW 1,.18 |
||||
|
DW 2,.19 |
||||
|
DW 3,.20 |
||||
|
DW .16 |
||||
|
.16: |
||||
|
RET |
||||
|
.14 EQU -2 |
||||
|
.13: |
||||
|
DB 37,99,91,37,100,59,37,100,37,99,0,37,99,61,37 |
||||
|
DB 99,37,99,0,37,99,89,37,99,37,99,0 |
||||
|
extrn printf_ |
||||
|
extrn .lt |
||||
|
END |
||||
@ -0,0 +1,970 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global pDPHMAP_,2 |
||||
|
global pDPHVEC_,24 |
||||
|
DSEG |
||||
|
public pSYSCFG_ |
||||
|
pSYSCFG_: |
||||
|
DW -16384 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public map_ |
||||
|
map_: |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 1 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 1 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attroff_ |
||||
|
attroff_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attrbold_ |
||||
|
attrbold_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 49 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attrlow_ |
||||
|
attrlow_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 50 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attrundr_ |
||||
|
attrundr_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 52 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attrblnk_ |
||||
|
attrblnk_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 53 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attrrevs_ |
||||
|
attrrevs_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 55 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public attrinvs_ |
||||
|
attrinvs_: |
||||
|
DB 27 |
||||
|
DB 91 |
||||
|
DB 56 |
||||
|
DB 109 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public graphon_ |
||||
|
graphon_: |
||||
|
DB 27 |
||||
|
DB 70 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public graphoff_ |
||||
|
graphoff_: |
||||
|
DB 27 |
||||
|
DB 71 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public atreset_ |
||||
|
atreset_: |
||||
|
DB 48 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public atbold_ |
||||
|
atbold_: |
||||
|
DB 49 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public atdim_ |
||||
|
atdim_: |
||||
|
DB 50 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public atundrsc_ |
||||
|
atundrsc_: |
||||
|
DB 52 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public atblink_ |
||||
|
atblink_: |
||||
|
DB 53 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public atrevs_ |
||||
|
atrevs_: |
||||
|
DB 55 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public athidden_ |
||||
|
athidden_: |
||||
|
DB 56 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgblack_ |
||||
|
fgblack_: |
||||
|
DB 51 |
||||
|
DB 48 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgred_ |
||||
|
fgred_: |
||||
|
DB 51 |
||||
|
DB 49 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fggreen_ |
||||
|
fggreen_: |
||||
|
DB 51 |
||||
|
DB 50 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgyellow_ |
||||
|
fgyellow_: |
||||
|
DB 51 |
||||
|
DB 51 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgblue_ |
||||
|
fgblue_: |
||||
|
DB 51 |
||||
|
DB 52 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgmagent_ |
||||
|
fgmagent_: |
||||
|
DB 51 |
||||
|
DB 53 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgcyan_ |
||||
|
fgcyan_: |
||||
|
DB 51 |
||||
|
DB 54 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public fgwhite_ |
||||
|
fgwhite_: |
||||
|
DB 51 |
||||
|
DB 55 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgblack_ |
||||
|
bgblack_: |
||||
|
DB 52 |
||||
|
DB 48 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgred_ |
||||
|
bgred_: |
||||
|
DB 52 |
||||
|
DB 49 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bggreen_ |
||||
|
bggreen_: |
||||
|
DB 52 |
||||
|
DB 50 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgyellow_ |
||||
|
bgyellow_: |
||||
|
DB 52 |
||||
|
DB 51 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgblue_ |
||||
|
bgblue_: |
||||
|
DB 52 |
||||
|
DB 52 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgmagent_ |
||||
|
bgmagent_: |
||||
|
DB 52 |
||||
|
DB 53 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgcyan_ |
||||
|
bgcyan_: |
||||
|
DB 52 |
||||
|
DB 54 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public bgwhite_ |
||||
|
bgwhite_: |
||||
|
DB 52 |
||||
|
DB 55 |
||||
|
DB 0 |
||||
|
CSEG |
||||
|
PUBLIC dispattr_ |
||||
|
dispattr_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,10 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
.1: |
||||
|
DB 37,99,91,37,115,59,37,115,59,37,115,109,0 |
||||
|
PUBLIC main_ |
||||
|
main_: lxi d,.4 |
||||
|
call csave |
||||
|
LXI H,1 |
||||
|
XCHG |
||||
|
LXI H,8-.4 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
CALL .lt |
||||
|
JZ .5 |
||||
|
LXI H,1 |
||||
|
XCHG |
||||
|
LXI H,2-.4 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .7 |
||||
|
.6: |
||||
|
LXI H,2-.4 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.7: |
||||
|
LXI H,2-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,8-.4 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
CALL .lt |
||||
|
JZ .8 |
||||
|
LXI H,2-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
DAD H |
||||
|
XCHG |
||||
|
LXI H,10-.4 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
CALL atoi_ |
||||
|
POP D |
||||
|
PUSH H |
||||
|
LXI H,.3+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .6 |
||||
|
.8: |
||||
|
JMP .9 |
||||
|
.5: |
||||
|
LXI H,-4096 |
||||
|
SHLD hregbc_ |
||||
|
LXI H,-16384 |
||||
|
SHLD hregde_ |
||||
|
CALL diagnose_ |
||||
|
LXI H,-16384 |
||||
|
SHLD pSYSCFG_ |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,68 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
CALL crtinit_ |
||||
|
POP D |
||||
|
CALL crtclr_ |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,bgblack_ |
||||
|
PUSH H |
||||
|
LXI H,fggreen_ |
||||
|
PUSH H |
||||
|
LXI H,atbold_ |
||||
|
PUSH H |
||||
|
CALL dispattr_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,.3+3 |
||||
|
PUSH H |
||||
|
CALL banner_ |
||||
|
POP D |
||||
|
LXI H,attroff_ |
||||
|
PUSH H |
||||
|
LXI H,.3+9 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,bgblack_ |
||||
|
PUSH H |
||||
|
LXI H,fgcyan_ |
||||
|
PUSH H |
||||
|
LXI H,atbold_ |
||||
|
PUSH H |
||||
|
CALL dispattr_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .11 |
||||
|
.10: |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.11: |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,16 |
||||
|
CALL .lt |
||||
|
JZ .12 |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
DAD H |
||||
|
DAD H |
||||
|
LXI D,9 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,6 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.3+12 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .10 |
||||
|
.12: |
||||
|
LXI H,attroff_ |
||||
|
PUSH H |
||||
|
LXI H,.3+17 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .14 |
||||
|
.13: |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.14: |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,16 |
||||
|
CALL .lt |
||||
|
JZ .15 |
||||
|
LXI H,4 |
||||
|
PUSH H |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,7 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,bgblack_ |
||||
|
PUSH H |
||||
|
LXI H,fgcyan_ |
||||
|
PUSH H |
||||
|
LXI H,atbold_ |
||||
|
PUSH H |
||||
|
CALL dispattr_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.3+20 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,attroff_ |
||||
|
PUSH H |
||||
|
LXI H,.3+25 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .17 |
||||
|
.16: |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.17: |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,16 |
||||
|
CALL .lt |
||||
|
JZ .18 |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
DAD H |
||||
|
DAD H |
||||
|
LXI D,10 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,7 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
DAD H |
||||
|
DAD H |
||||
|
DAD H |
||||
|
DAD H |
||||
|
XCHG |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
DAD D |
||||
|
LXI D,map_ |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .19 |
||||
|
LXI H,.3+28 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .20 |
||||
|
.19: |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
DAD H |
||||
|
DAD H |
||||
|
DAD H |
||||
|
DAD H |
||||
|
XCHG |
||||
|
LXI H,-4-.4 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,.3+30 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
.20: |
||||
|
JMP .16 |
||||
|
.18: |
||||
|
LXI H,bgblack_ |
||||
|
PUSH H |
||||
|
LXI H,fgcyan_ |
||||
|
PUSH H |
||||
|
LXI H,atbold_ |
||||
|
PUSH H |
||||
|
CALL dispattr_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,-6-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.3+33 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,attroff_ |
||||
|
PUSH H |
||||
|
LXI H,.3+40 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.15: |
||||
|
.9: |
||||
|
LXI H,0 |
||||
|
RET |
||||
|
.4 EQU -10 |
||||
|
.3: |
||||
|
DB 37,99,0,67,72,65,82,83,0,37,115,0,91,37,120 |
||||
|
DB 93,0,37,115,0,91,37,120,93,0,37,115,0,46,0 |
||||
|
DB 37,99,0,32,32,91,37,120,93,0,37,115,0 |
||||
|
extrn atoi_ |
||||
|
extrn printf_ |
||||
|
extrn banner_ |
||||
|
extrn crtlc_ |
||||
|
extrn crtclr_ |
||||
|
extrn crtinit_ |
||||
|
extrn diagnose_ |
||||
|
extrn hregde_ |
||||
|
extrn hregbc_ |
||||
|
extrn .eq |
||||
|
extrn .lt |
||||
|
END |
||||
|
|
||||
@ -0,0 +1,18 @@ |
|||||
|
e:rem chars.sub 7/22/2012 dwg - build chars from source |
||||
|
cc chars |
||||
|
as chars |
||||
|
as bdoscall |
||||
|
as bioscall |
||||
|
as diagnose |
||||
|
cc cbanner |
||||
|
as cbanner |
||||
|
cc ctermcap |
||||
|
as ctermcap |
||||
|
ln chars.o bdoscall.o bioscall.o cbanner.o diagnose.o ctermcap.o c.lib |
||||
|
era chars.o |
||||
|
era bdoscall.o |
||||
|
era bioscall.o |
||||
|
era diagose.o |
||||
|
era cbanner.o |
||||
|
era ctermcap.o |
||||
|
|
||||
@ -0,0 +1,12 @@ |
|||||
|
e:access access.com |
||||
|
e:access cpmname.com |
||||
|
e:access findfile.com |
||||
|
e:access map.com |
||||
|
e:access meta.com |
||||
|
e:access multifmt.com |
||||
|
e:access rem.com |
||||
|
e:access setlabel.com |
||||
|
e:access sysgen.com |
||||
|
e:access termtype.com |
||||
|
e:access view.com |
||||
|
|
||||
@ -0,0 +1,27 @@ |
|||||
|
era *.bak |
||||
|
era *.prn |
||||
|
era *.rel |
||||
|
era *.sym |
||||
|
era *.lst |
||||
|
era *.o |
||||
|
era sect0*.h |
||||
|
era sect1*.h |
||||
|
era sect2*.h |
||||
|
era sect3*.h |
||||
|
era sect4*.h |
||||
|
era sect5*.h |
||||
|
era sect6*.h |
||||
|
era sect7*.h |
||||
|
era sect8*.h |
||||
|
era sect9*.h |
||||
|
era sect0*.inc |
||||
|
era sect1*.inc |
||||
|
era sect2*.inc |
||||
|
era sect3*.inc |
||||
|
era sect4*.inc |
||||
|
era sect5*.inc |
||||
|
era sect6*.inc |
||||
|
era sect7*.inc |
||||
|
era sect8*.inc |
||||
|
era sect9*.inc |
||||
|
|
||||
@ -0,0 +1,44 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global style_,1 |
||||
|
global vdp_rege_,960 |
||||
|
global pINFOLIS_,2 |
||||
|
global metadata_,128 |
||||
|
global pCNFGDAT_,2 |
||||
|
global pSYSCFG_,2 |
||||
|
PUBLIC main_ |
||||
|
main_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,-4096 |
||||
|
SHLD hregbc_ |
||||
|
LXI H,-16384 |
||||
|
SHLD hregde_ |
||||
|
CALL diagnose_ |
||||
|
LXI H,-16384 |
||||
|
SHLD pSYSCFG_ |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,68 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
CALL crtinit_ |
||||
|
POP D |
||||
|
CALL crtclr_ |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
RET |
||||
|
.2 EQU -1 |
||||
|
extrn diagnose_ |
||||
|
extrn hregde_ |
||||
|
extrn hregbc_ |
||||
|
extrn crtlc_ |
||||
|
extrn crtclr_ |
||||
|
extrn crtinit_ |
||||
|
END |
||||
|
|
||||
@ -0,0 +1,48 @@ |
|||||
|
/* clear.c 11/23/2012 dwg - */ |
||||
|
|
||||
|
#include "portab.h" |
||||
|
#include "globals.h" |
||||
|
|
||||
|
#include "stdio.h" |
||||
|
#include "stdlib.h" |
||||
|
#include "memory.h" |
||||
|
#include "applvers.h" |
||||
|
#include "n8chars.h" |
||||
|
#include "tms9918.h" |
||||
|
#include "std.h" |
||||
|
#include "ctermcap.h" |
||||
|
#include "cpmbdos.h" |
||||
|
#include "bdoscall.h" |
||||
|
#include "hbios.h" |
||||
|
#include "asmiface.h" |
||||
|
#include "diagnose.h" |
||||
|
#include "cnfgdata.h" |
||||
|
#include "syscfg.h" |
||||
|
#include "cpmbind.h" |
||||
|
#include "infolist.h" |
||||
|
#include "metadata.h" |
||||
|
#include "clogical.h" |
||||
|
|
||||
|
#define HIGHSEG 0x0C000 /* memory address of system config */ |
||||
|
|
||||
|
#define GETSYSCFG 0x0F000 /* HBIOS function for Get System Configuration */ |
||||
|
|
||||
|
struct CNFGDATA * pCNFGDATA; |
||||
|
struct SYSCFG * pSYSCFG; |
||||
|
|
||||
|
int main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
char column; |
||||
|
|
||||
|
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); |
||||
|
} |
||||
|
|
||||
|
|
||||
@ -0,0 +1,10 @@ |
|||||
|
e:rem clear.sub 7/22/2012 dwg - build clear from sources |
||||
|
cc clear |
||||
|
as clear |
||||
|
as bdoscall |
||||
|
as bioscall |
||||
|
cc ctermcap |
||||
|
as ctermcap |
||||
|
as diagnose |
||||
|
ln clear.o diagnose.o bioscall.o bdoscall.o ctermcap.o c.lib |
||||
|
|
||||
@ -0,0 +1,159 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
PUBLIC lugcur_ |
||||
|
lugcur_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-6602 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LHLD xregde_ |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
PUBLIC lugnum_ |
||||
|
lugnum_: lxi d,.3 |
||||
|
call csave |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,12-.3 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-6602 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LHLD xreghl_ |
||||
|
RET |
||||
|
.3 EQU 0 |
||||
|
PUBLIC lugdu_ |
||||
|
lugdu_: lxi d,.4 |
||||
|
call csave |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,12-.4 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-6602 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LHLD xregbc_ |
||||
|
LXI D,8 |
||||
|
XCHG |
||||
|
CALL .ur |
||||
|
RET |
||||
|
.4 EQU 0 |
||||
|
PUBLIC luscur_ |
||||
|
luscur_: lxi d,.5 |
||||
|
call csave |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,12-.5 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-6602 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LHLD xreghl_ |
||||
|
PUSH H |
||||
|
LXI H,12-.5 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LHLD xregbc_ |
||||
|
PUSH H |
||||
|
LXI H,-6599 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
RET |
||||
|
.5 EQU 0 |
||||
|
PUBLIC lusnum_ |
||||
|
lusnum_: lxi d,.6 |
||||
|
call csave |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,12-.6 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,-6602 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,10-.6 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LHLD xregde_ |
||||
|
PUSH H |
||||
|
LHLD xregbc_ |
||||
|
PUSH H |
||||
|
LXI H,-6599 |
||||
|
PUSH H |
||||
|
CALL asmif_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
RET |
||||
|
.6 EQU 0 |
||||
|
extrn asmif_ |
||||
|
extrn xreghl_ |
||||
|
extrn xregde_ |
||||
|
extrn xregbc_ |
||||
|
extrn .ur |
||||
|
END |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,127 @@ |
|||||
|
/* cls.c 7/21/2012 dwg - elegant form of clear screen program */ |
||||
|
|
||||
|
/*
|
||||
|
#include "stdio.h" |
||||
|
#include "applvers.h" |
||||
|
*/ |
||||
|
|
||||
|
/* declarations for HBIOS access */ |
||||
|
extern char hrega; |
||||
|
extern unsigned int hregbc; |
||||
|
extern unsigned int hregde; |
||||
|
extern unsigned int hreghl; |
||||
|
extern diagnose(); |
||||
|
|
||||
|
/* declaration dir BIOS and BDOS and low level calls */ |
||||
|
extern char xrega; |
||||
|
extern unsigned int xregbc; |
||||
|
extern unsigned int xregde; |
||||
|
extern unsigned int xreghl; |
||||
|
extern asmif(); /* asmif(0x0E6**,bc,de,hl); */ |
||||
|
|
||||
|
#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 */ |
||||
|
|
||||
|
/* pointer based Configuration Data structure */ |
||||
|
struct CNFGDATA { |
||||
|
unsigned char rmj; |
||||
|
unsigned char rmn; |
||||
|
unsigned char rup; |
||||
|
unsigned char rtp; |
||||
|
unsigned char diskboot; |
||||
|
unsigned char devunit; |
||||
|
unsigned int bootlu; |
||||
|
unsigned char hour; |
||||
|
unsigned char minute; |
||||
|
unsigned char second; |
||||
|
unsigned char month; |
||||
|
unsigned char day; |
||||
|
unsigned char year; |
||||
|
unsigned char freq; |
||||
|
unsigned char platform; |
||||
|
unsigned char dioplat; |
||||
|
unsigned char vdumode; |
||||
|
unsigned int romsize; |
||||
|
unsigned int ramsize; |
||||
|
unsigned char clrramdk; |
||||
|
unsigned char dskyenable; |
||||
|
unsigned char uartenable; |
||||
|
unsigned char vduenable; |
||||
|
unsigned char fdenable; |
||||
|
unsigned char fdtrace; |
||||
|
unsigned char fdmedia; |
||||
|
unsigned char fdmediaalt; |
||||
|
unsigned char fdmauto; |
||||
|
unsigned char ideenable; |
||||
|
unsigned char idetrace; |
||||
|
unsigned char ide8bit; |
||||
|
unsigned int idecapacity; |
||||
|
unsigned char ppideenable; |
||||
|
unsigned char ppidetrace; |
||||
|
unsigned char ppide8bit; |
||||
|
unsigned int ppidecapacity; |
||||
|
unsigned char ppideslow; |
||||
|
unsigned char boottype; |
||||
|
unsigned char boottimeout; |
||||
|
unsigned char bootdefault; |
||||
|
unsigned int baudrate; |
||||
|
unsigned char ckdiv; |
||||
|
unsigned char memwait; |
||||
|
unsigned char iowait; |
||||
|
unsigned char cntlb0; |
||||
|
unsigned char cntlb1; |
||||
|
unsigned char sdenable; |
||||
|
unsigned char sdtrace; |
||||
|
unsigned int sdcapacity; |
||||
|
unsigned char sdcsio; |
||||
|
unsigned char sdcsiofast; |
||||
|
unsigned char defiobyte; |
||||
|
unsigned char termtype; |
||||
|
unsigned int revision; |
||||
|
unsigned char prpsdenable; |
||||
|
unsigned char prpsdtrace; |
||||
|
unsigned int prpsdcapacity; |
||||
|
unsigned char prpconenable; |
||||
|
unsigned int biossize; |
||||
|
unsigned char pppenable; |
||||
|
unsigned char pppsdenable; |
||||
|
unsigned char pppsdtrace; |
||||
|
unsigned int pppsdcapacity; |
||||
|
unsigned char pppconenable; |
||||
|
unsigned char prpenable; |
||||
|
}; |
||||
|
|
||||
|
struct JMP { |
||||
|
unsigned char opcode; /* JMP opcode */ |
||||
|
unsigned int address; /* JMP address */ |
||||
|
}; |
||||
|
|
||||
|
struct SYSCFG { |
||||
|
struct JMP jmp; |
||||
|
void * cnfloc; |
||||
|
void * tstloc; |
||||
|
void * varloc; |
||||
|
struct CNFGDATA cnfgdata; |
||||
|
char filler[256-3-2-2-2-sizeof(struct CNFGDATA)]; |
||||
|
} * pSYSCFG = HIGHSEG; |
||||
|
|
||||
|
|
||||
|
main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
hregbc = GETSYSCFG; /* function = Get System Config */ |
||||
|
hregde = HIGHSEG; /* addr of dest (must be high) */ |
||||
|
diagnose(); /* invoke the HBIOS function */ |
||||
|
|
||||
|
crtinit(pSYSCFG->cnfgdata.termtype); /* pass termtype to init */ |
||||
|
|
||||
|
crtclr(); |
||||
|
|
||||
|
crtlc(0,0); |
||||
|
} |
||||
|
|
||||
|
|
||||
|
|
||||
@ -0,0 +1,283 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
PUBLIC memcmp_ |
||||
|
memcmp_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,2-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,10-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,0-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-2-.2 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .4 |
||||
|
.3: |
||||
|
LXI H,-2-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.4: |
||||
|
LXI H,-2-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
CALL .lt |
||||
|
JZ .5 |
||||
|
LXI H,0-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
XCHG |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,4-.2 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
XCHG |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
POP H |
||||
|
CALL .ne |
||||
|
JZ .6 |
||||
|
LXI H,0 |
||||
|
RET |
||||
|
.6: |
||||
|
JMP .3 |
||||
|
.5: |
||||
|
LXI H,1 |
||||
|
RET |
||||
|
.2 EQU -6 |
||||
|
PUBLIC memcpy_ |
||||
|
memcpy_: lxi d,.7 |
||||
|
call csave |
||||
|
LXI H,10-.7 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,2-.7 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,8-.7 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,0-.7 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-2-.7 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .9 |
||||
|
.8: |
||||
|
LXI H,-2-.7 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.9: |
||||
|
LXI H,-2-.7 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,12-.7 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
CALL .lt |
||||
|
JZ .10 |
||||
|
LXI H,2-.7 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
XCHG |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
PUSH D |
||||
|
LXI H,2-.7 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
XCHG |
||||
|
DCX H |
||||
|
POP D |
||||
|
MOV M,E |
||||
|
JMP .8 |
||||
|
.10: |
||||
|
RET |
||||
|
.7 EQU -6 |
||||
|
PUBLIC memset_ |
||||
|
memset_: lxi d,.11 |
||||
|
call csave |
||||
|
LXI H,8-.11 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,2-.11 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,0-.11 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .13 |
||||
|
.12: |
||||
|
LXI H,0-.11 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.13: |
||||
|
LXI H,0-.11 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,12-.11 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
CALL .ul |
||||
|
JZ .14 |
||||
|
LXI H,10-.11 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
PUSH D |
||||
|
LXI H,4-.11 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
XCHG |
||||
|
DCX H |
||||
|
POP D |
||||
|
MOV M,E |
||||
|
JMP .12 |
||||
|
.14: |
||||
|
RET |
||||
|
.11 EQU -4 |
||||
|
extrn .ne |
||||
|
extrn .lt |
||||
|
extrn .ul |
||||
|
END |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,527 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global cache_,17 |
||||
|
PUBLIC cnamept1_ |
||||
|
cnamept1_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
CALL strcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
INX H |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.1+17 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
INX H |
||||
|
INX H |
||||
|
INX H |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.1+51 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,5 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.1+85 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,7 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.1+119 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,9 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+153 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,10 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+175 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,11 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+197 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,12 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+219 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+241 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,13 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .3 |
||||
|
.5: |
||||
|
LXI H,.1+261 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
LXI H,.1+266 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.3: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.6 |
||||
|
DW 1,.5 |
||||
|
DW .4 |
||||
|
.4: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,14 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+272 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,15 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+298 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,23 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+324 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+349 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,24 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .7 |
||||
|
.9: |
||||
|
LXI H,.1+369 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .8 |
||||
|
.10: |
||||
|
LXI H,.1+375 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .8 |
||||
|
.11: |
||||
|
LXI H,.1+380 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .8 |
||||
|
.7: |
||||
|
CALL .swt |
||||
|
DW 3 |
||||
|
DW 1,.9 |
||||
|
DW 2,.10 |
||||
|
DW 3,.11 |
||||
|
DW .8 |
||||
|
.8: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+383 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,25 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .12 |
||||
|
.14: |
||||
|
LXI H,.1+403 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.15: |
||||
|
LXI H,.1+415 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.16: |
||||
|
LXI H,.1+429 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.17: |
||||
|
LXI H,.1+441 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.18: |
||||
|
LXI H,.1+453 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.19: |
||||
|
LXI H,.1+463 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.20: |
||||
|
LXI H,.1+478 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.12: |
||||
|
CALL .swt |
||||
|
DW 6 |
||||
|
DW 0,.14 |
||||
|
DW 1,.15 |
||||
|
DW 2,.16 |
||||
|
DW 3,.17 |
||||
|
DW 4,.18 |
||||
|
DW 5,.19 |
||||
|
DW .20 |
||||
|
.13: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+486 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,26 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .21 |
||||
|
.23: |
||||
|
LXI H,.1+506 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.24: |
||||
|
LXI H,.1+518 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.25: |
||||
|
LXI H,.1+529 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.26: |
||||
|
LXI H,.1+541 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.27: |
||||
|
LXI H,.1+555 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.28: |
||||
|
LXI H,.1+567 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.21: |
||||
|
CALL .swt |
||||
|
DW 5 |
||||
|
DW 0,.23 |
||||
|
DW 1,.24 |
||||
|
DW 2,.25 |
||||
|
DW 3,.26 |
||||
|
DW 4,.27 |
||||
|
DW .28 |
||||
|
.22: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,27 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+577 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,29 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+599 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
.1: |
||||
|
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116 |
||||
|
DB 97,0,115,121,115,99,102,103,45,62,106,109,112,32,32 |
||||
|
DB 32,32,32,32,32,32,32,32,32,32,106,112,32,32,48 |
||||
|
DB 37,48,52,120,104,0,115,121,115,99,102,103,45,62,99 |
||||
|
DB 110,102,108,111,99,32,32,32,32,32,32,32,32,32,46 |
||||
|
DB 100,119,32,48,37,48,52,120,104,0,115,121,115,99,102 |
||||
|
DB 103,45,62,116,115,116,108,111,99,32,32,32,32,32,32 |
||||
|
DB 32,32,32,46,100,119,32,48,37,48,52,120,104,0,115 |
||||
|
DB 121,115,99,102,103,45,62,118,97,114,108,111,99,32,32 |
||||
|
DB 32,32,32,32,32,32,32,46,100,119,32,48,37,48,52 |
||||
|
DB 120,104,0,37,115,46,114,109,106,32,32,32,32,32,32 |
||||
|
DB 32,32,32,32,32,61,32,37,100,0,37,115,46,114,109 |
||||
|
DB 110,32,32,32,32,32,32,32,32,32,32,32,61,32,37 |
||||
|
DB 100,0,37,115,46,114,117,112,32,32,32,32,32,32,32 |
||||
|
DB 32,32,32,32,61,32,37,100,0,37,115,46,114,116,112 |
||||
|
DB 32,32,32,32,32,32,32,32,32,32,32,61,32,37,100 |
||||
|
DB 0,37,115,46,100,105,115,107,98,111,111,116,32,32,32 |
||||
|
DB 32,32,32,61,32,0,84,82,85,69,0,70,65,76,83 |
||||
|
DB 69,0,37,115,46,100,101,118,117,110,105,116,32,32,32 |
||||
|
DB 32,32,32,32,61,32,48,120,37,48,50,120,0,37,115 |
||||
|
DB 46,98,111,111,116,108,117,32,32,32,32,32,32,32,32 |
||||
|
DB 61,32,48,120,37,48,52,120,0,37,115,46,102,114,101 |
||||
|
DB 113,32,32,32,32,32,32,32,32,32,32,61,32,37,100 |
||||
|
DB 77,72,122,0,37,115,46,112,108,97,116,102,111,114,109 |
||||
|
DB 32,32,32,32,32,32,61,32,0,78,56,86,69,77,0 |
||||
|
DB 90,69,84,65,0,78,56,0,37,115,46,100,105,111,112 |
||||
|
DB 108,97,116,32,32,32,32,32,32,32,61,32,0,68,73 |
||||
|
DB 79,80,76,84,95,78,79,78,69,0,68,73,79,80,76 |
||||
|
DB 84,95,68,73,83,75,73,79,0,68,73,79,80,76,84 |
||||
|
DB 95,90,69,84,65,0,68,73,79,80,76,84,95,68,73 |
||||
|
DB 68,69,0,68,73,79,80,76,84,95,78,56,0,68,73 |
||||
|
DB 79,80,76,84,95,68,73,83,75,73,79,51,0,85,110 |
||||
|
DB 107,110,111,119,110,0,37,115,46,118,100,117,109,111,100 |
||||
|
DB 101,32,32,32,32,32,32,32,61,32,0,86,68,85,80 |
||||
|
DB 76,84,95,78,79,78,69,0,86,68,85,80,76,84,95 |
||||
|
DB 86,68,85,0,86,68,85,80,76,84,95,86,68,85,67 |
||||
|
DB 0,86,68,85,80,76,84,95,80,82,79,80,73,79,0 |
||||
|
DB 86,68,85,80,76,84,95,86,80,78,56,0,85,110,107 |
||||
|
DB 110,111,119,110,33,33,0,37,115,46,114,111,109,115,105 |
||||
|
DB 122,101,32,32,32,32,32,32,32,61,32,37,100,0,37 |
||||
|
DB 115,46,114,97,109,115,105,122,101,32,32,32,32,32,32 |
||||
|
DB 32,61,32,37,100,0 |
||||
|
extrn printf_ |
||||
|
extrn strcpy_ |
||||
|
extrn pager_ |
||||
|
END |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,480 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global cache_,17 |
||||
|
PUBLIC cnamept2_ |
||||
|
cnamept2_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
CALL strcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+17 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,31 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .3 |
||||
|
.5: |
||||
|
LXI H,.1+37 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
LXI H,.1+47 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.7: |
||||
|
LXI H,.1+56 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.3: |
||||
|
CALL .swt |
||||
|
DW 3 |
||||
|
DW 0,.5 |
||||
|
DW 1,.6 |
||||
|
DW 2,.7 |
||||
|
DW .4 |
||||
|
.4: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+68 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,32 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .8 |
||||
|
.10: |
||||
|
LXI H,.1+88 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .9 |
||||
|
.11: |
||||
|
LXI H,.1+93 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .9 |
||||
|
.8: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.11 |
||||
|
DW 1,.10 |
||||
|
DW .9 |
||||
|
.9: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+99 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,33 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .12 |
||||
|
.14: |
||||
|
LXI H,.1+119 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.15: |
||||
|
LXI H,.1+124 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.12: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.15 |
||||
|
DW 1,.14 |
||||
|
DW .13 |
||||
|
.13: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+130 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,34 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .16 |
||||
|
.18: |
||||
|
LXI H,.1+150 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .17 |
||||
|
.19: |
||||
|
LXI H,.1+155 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .17 |
||||
|
.16: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.19 |
||||
|
DW 1,.18 |
||||
|
DW .17 |
||||
|
.17: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+161 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,35 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .20 |
||||
|
.22: |
||||
|
LXI H,.1+181 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .21 |
||||
|
.23: |
||||
|
LXI H,.1+186 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .21 |
||||
|
.20: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.23 |
||||
|
DW 1,.22 |
||||
|
DW .21 |
||||
|
.21: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,35 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .24 |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+192 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,36 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .25 |
||||
|
.27: |
||||
|
LXI H,.1+212 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .26 |
||||
|
.28: |
||||
|
LXI H,.1+219 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .26 |
||||
|
.29: |
||||
|
LXI H,.1+232 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .26 |
||||
|
.30: |
||||
|
LXI H,.1+243 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .26 |
||||
|
.31: |
||||
|
LXI H,.1+254 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .26 |
||||
|
.25: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.27 |
||||
|
DW 1,.28 |
||||
|
DW 2,.29 |
||||
|
DW 3,.30 |
||||
|
DW .31 |
||||
|
.26: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+264 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,37 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .32 |
||||
|
.34: |
||||
|
LXI H,.1+284 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+291 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .33 |
||||
|
.35: |
||||
|
LXI H,.1+329 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+336 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .33 |
||||
|
.36: |
||||
|
LXI H,.1+376 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+383 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .33 |
||||
|
.37: |
||||
|
LXI H,.1+422 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+429 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .33 |
||||
|
.38: |
||||
|
LXI H,.1+468 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .33 |
||||
|
.32: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.34 |
||||
|
DW 1,.35 |
||||
|
DW 2,.36 |
||||
|
DW 3,.37 |
||||
|
DW .38 |
||||
|
.33: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+478 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,38 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .39 |
||||
|
.41: |
||||
|
LXI H,.1+498 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+505 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.42: |
||||
|
LXI H,.1+543 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+550 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.43: |
||||
|
LXI H,.1+590 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+597 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.44: |
||||
|
LXI H,.1+636 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,.1+643 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.39: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.41 |
||||
|
DW 1,.42 |
||||
|
DW 2,.43 |
||||
|
DW 3,.44 |
||||
|
DW .40 |
||||
|
.40: |
||||
|
CALL pager_ |
||||
|
.24: |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
.1: |
||||
|
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116 |
||||
|
DB 97,0,37,115,46,99,108,114,114,97,109,100,107,32,32 |
||||
|
DB 32,32,32,32,61,32,0,67,76,82,95,78,69,86,69 |
||||
|
DB 82,0,67,76,82,95,65,85,84,79,0,67,76,82,95 |
||||
|
DB 65,76,76,87,65,89,83,0,37,115,46,100,115,107,121 |
||||
|
DB 101,110,97,98,108,101,32,32,32,32,61,32,0,84,82 |
||||
|
DB 85,69,0,70,65,76,83,69,0,37,115,46,117,97,114 |
||||
|
DB 116,101,110,97,98,108,101,32,32,32,32,61,32,0,84 |
||||
|
DB 82,85,69,0,70,65,76,83,69,0,37,115,46,118,100 |
||||
|
DB 117,101,110,97,98,108,101,32,32,32,32,32,61,32,0 |
||||
|
DB 84,82,85,69,0,70,65,76,83,69,0,37,115,46,102 |
||||
|
DB 100,101,110,97,98,108,101,32,32,32,32,32,32,61,32 |
||||
|
DB 0,84,82,85,69,0,70,65,76,83,69,0,37,115,46 |
||||
|
DB 102,100,116,114,97,99,101,32,32,32,32,32,32,32,61 |
||||
|
DB 32,0,83,105,108,101,110,116,0,70,97,116,97,108,32 |
||||
|
DB 69,114,114,111,114,115,0,65,108,108,32,69,114,114,111 |
||||
|
DB 114,115,0,69,118,101,114,121,116,104,105,110,103,0,85 |
||||
|
DB 110,107,110,111,119,110,33,33,0,37,115,46,102,100,109 |
||||
|
DB 101,100,105,97,32,32,32,32,32,32,32,61,32,0,70 |
||||
|
DB 68,77,55,50,48,0,32,32,51,46,53,32,55,50,48 |
||||
|
DB 75,66,32,50,45,115,105,100,101,100,32,56,48,32,84 |
||||
|
DB 114,107,115,32,57,32,83,101,99,116,111,114,115,0,70 |
||||
|
DB 68,77,49,52,52,0,32,32,51,46,53,32,49,46,52 |
||||
|
DB 52,77,66,32,50,45,115,105,100,101,100,32,56,48,32 |
||||
|
DB 84,114,107,115,32,49,56,32,83,101,99,116,111,114,115 |
||||
|
DB 0,70,68,77,51,54,48,0,32,32,53,46,50,53,32 |
||||
|
DB 51,54,48,75,66,32,50,45,115,105,100,101,100,32,52 |
||||
|
DB 48,32,84,114,107,115,32,57,32,83,101,99,116,111,114 |
||||
|
DB 115,0,70,68,77,49,50,48,0,32,32,51,46,53,32 |
||||
|
DB 49,46,50,77,66,32,50,45,115,105,100,101,100,32,56 |
||||
|
DB 48,32,84,114,107,115,32,49,53,32,83,101,99,116,111 |
||||
|
DB 114,115,0,85,110,107,110,111,119,110,33,33,0,37,115 |
||||
|
DB 46,102,100,109,101,100,105,97,97,108,116,32,32,32,32 |
||||
|
DB 61,32,0,70,68,77,55,50,48,0,32,32,51,46,53 |
||||
|
DB 32,55,50,48,75,66,32,50,45,115,105,100,101,100,32 |
||||
|
DB 56,48,32,84,114,107,115,32,57,32,83,101,99,116,111 |
||||
|
DB 114,115,0,70,68,77,49,52,52,0,32,32,51,46,53 |
||||
|
DB 32,49,46,52,52,77,66,32,50,45,115,105,100,101,100 |
||||
|
DB 32,56,48,32,84,114,107,115,32,49,56,32,83,101,99 |
||||
|
DB 116,111,114,115,0,70,68,77,51,54,48,0,32,32,53 |
||||
|
DB 46,50,53,32,51,54,48,75,66,32,50,45,115,105,100 |
||||
|
DB 101,100,32,52,48,32,84,114,107,115,32,57,32,83,101 |
||||
|
DB 99,116,111,114,115,0,70,68,77,49,50,48,0,32,32 |
||||
|
DB 51,46,53,32,49,46,50,77,66,32,50,45,115,105,100 |
||||
|
DB 101,100,32,56,48,32,84,114,107,115,32,49,53,32,83 |
||||
|
DB 101,99,116,111,114,115,0 |
||||
|
extrn printf_ |
||||
|
extrn strcpy_ |
||||
|
extrn pager_ |
||||
|
extrn .eq |
||||
|
END |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,794 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global cache_,17 |
||||
|
PUBLIC cnamept3_ |
||||
|
cnamept3_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
CALL strcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+17 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,39 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .3 |
||||
|
.5: |
||||
|
LXI H,.1+37 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
LXI H,.1+42 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.3: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.6 |
||||
|
DW 1,.5 |
||||
|
DW .4 |
||||
|
.4: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+48 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,40 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .7 |
||||
|
.9: |
||||
|
LXI H,.1+68 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .8 |
||||
|
.10: |
||||
|
LXI H,.1+73 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .8 |
||||
|
.7: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.10 |
||||
|
DW 1,.9 |
||||
|
DW .8 |
||||
|
.8: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,40 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .11 |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+79 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,41 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .12 |
||||
|
.14: |
||||
|
LXI H,.1+95 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.15: |
||||
|
LXI H,.1+102 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.16: |
||||
|
LXI H,.1+109 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.17: |
||||
|
LXI H,.1+120 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .13 |
||||
|
.12: |
||||
|
CALL .swt |
||||
|
DW 3 |
||||
|
DW 0,.14 |
||||
|
DW 1,.15 |
||||
|
DW 2,.16 |
||||
|
DW .17 |
||||
|
.13: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+130 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,42 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .18 |
||||
|
.20: |
||||
|
LXI H,.1+149 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .19 |
||||
|
.21: |
||||
|
LXI H,.1+154 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .19 |
||||
|
.22: |
||||
|
LXI H,.1+160 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .19 |
||||
|
.18: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.21 |
||||
|
DW 1,.20 |
||||
|
DW .22 |
||||
|
.19: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,43 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+170 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
.11: |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+194 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,45 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .23 |
||||
|
.25: |
||||
|
LXI H,.1+214 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .24 |
||||
|
.26: |
||||
|
LXI H,.1+219 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .24 |
||||
|
.23: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.26 |
||||
|
DW 1,.25 |
||||
|
DW .24 |
||||
|
.24: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,45 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .27 |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+225 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,46 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .28 |
||||
|
.30: |
||||
|
LXI H,.1+245 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .29 |
||||
|
.31: |
||||
|
LXI H,.1+252 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .29 |
||||
|
.32: |
||||
|
LXI H,.1+259 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .29 |
||||
|
.33: |
||||
|
LXI H,.1+270 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .29 |
||||
|
.28: |
||||
|
CALL .swt |
||||
|
DW 3 |
||||
|
DW 0,.30 |
||||
|
DW 1,.31 |
||||
|
DW 2,.32 |
||||
|
DW .33 |
||||
|
.29: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+280 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,47 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .34 |
||||
|
.36: |
||||
|
LXI H,.1+300 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .35 |
||||
|
.37: |
||||
|
LXI H,.1+305 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .35 |
||||
|
.38: |
||||
|
LXI H,.1+311 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .35 |
||||
|
.34: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.37 |
||||
|
DW 1,.36 |
||||
|
DW .38 |
||||
|
.35: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,48 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+321 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+345 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,50 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .39 |
||||
|
.41: |
||||
|
LXI H,.1+365 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.42: |
||||
|
LXI H,.1+370 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.43: |
||||
|
LXI H,.1+376 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.39: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.42 |
||||
|
DW 1,.41 |
||||
|
DW .43 |
||||
|
.40: |
||||
|
CALL pager_ |
||||
|
.27: |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+386 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,51 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .44 |
||||
|
.46: |
||||
|
LXI H,.1+406 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .45 |
||||
|
.47: |
||||
|
LXI H,.1+414 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .45 |
||||
|
.44: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 1,.46 |
||||
|
DW 2,.47 |
||||
|
DW .45 |
||||
|
.45: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,52 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+422 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,53 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+452 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,54 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,10-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,54 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+475 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,24 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,3 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .48 |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,56 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+511 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,57 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+533 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,58 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+559 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,59 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+585 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,60 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+611 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+637 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,61 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .49 |
||||
|
.51: |
||||
|
LXI H,.1+657 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .50 |
||||
|
.52: |
||||
|
LXI H,.1+662 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .50 |
||||
|
.53: |
||||
|
LXI H,.1+668 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .50 |
||||
|
.49: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.52 |
||||
|
DW 1,.51 |
||||
|
DW .53 |
||||
|
.50: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+678 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,62 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .54 |
||||
|
.56: |
||||
|
LXI H,.1+698 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .55 |
||||
|
.57: |
||||
|
LXI H,.1+703 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .55 |
||||
|
.58: |
||||
|
LXI H,.1+709 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .55 |
||||
|
.54: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.57 |
||||
|
DW 1,.56 |
||||
|
DW .58 |
||||
|
.55: |
||||
|
CALL pager_ |
||||
|
.48: |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
.1: |
||||
|
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116 |
||||
|
DB 97,0,37,115,46,102,100,109,97,117,116,111,32,32,32 |
||||
|
DB 32,32,32,32,61,32,0,84,82,85,69,0,70,65,76 |
||||
|
DB 83,69,0,37,115,46,105,100,101,101,110,97,98,108,101 |
||||
|
DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65 |
||||
|
DB 76,83,69,0,37,115,46,105,100,101,116,114,97,99,101 |
||||
|
DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82 |
||||
|
DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0 |
||||
|
DB 85,110,107,110,111,119,110,33,33,0,37,115,46,100,101 |
||||
|
DB 56,98,105,116,32,32,32,32,32,32,32,61,32,0,84 |
||||
|
DB 82,85,69,0,70,65,76,83,69,0,85,110,107,110,111 |
||||
|
DB 119,110,33,33,0,37,115,46,105,100,101,99,97,112,97 |
||||
|
DB 99,105,116,121,32,32,32,61,32,37,100,77,66,0,37 |
||||
|
DB 115,46,112,112,105,100,101,101,110,97,98,108,101,32,32 |
||||
|
DB 32,61,32,0,84,82,85,69,0,70,65,76,83,69,0 |
||||
|
DB 37,115,46,112,112,105,100,101,116,114,97,99,101,32,32 |
||||
|
DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82 |
||||
|
DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0 |
||||
|
DB 85,110,107,110,111,119,110,33,33,0,37,115,46,112,112 |
||||
|
DB 105,100,101,56,98,105,116,32,32,32,32,32,61,32,0 |
||||
|
DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110 |
||||
|
DB 111,119,110,33,33,0,37,115,46,112,112,105,100,101,99 |
||||
|
DB 97,112,97,99,105,116,121,32,61,32,37,100,75,66,0 |
||||
|
DB 37,115,46,112,112,105,100,101,115,108,111,119,32,32,32 |
||||
|
DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69 |
||||
|
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,98 |
||||
|
DB 111,111,116,116,121,112,101,32,32,32,32,32,32,61,32 |
||||
|
DB 0,66,84,95,77,69,78,85,0,66,84,95,65,85,84 |
||||
|
DB 79,0,37,115,46,98,111,111,116,116,105,109,101,111,117 |
||||
|
DB 116,32,32,32,61,32,37,100,32,115,101,99,111,110,100 |
||||
|
DB 115,0,37,115,46,98,111,111,116,100,101,102,97,117,108 |
||||
|
DB 116,32,32,32,61,32,37,99,58,0,37,115,46,98,97 |
||||
|
DB 117,100,114,97,116,101,32,32,32,32,32,32,61,32,37 |
||||
|
DB 117,32,40,48,120,37,48,52,120,41,32,66,97,117,100 |
||||
|
DB 0,37,115,46,99,107,100,105,118,32,32,32,32,32,32 |
||||
|
DB 32,32,32,61,32,37,100,0,37,115,46,109,101,109,119 |
||||
|
DB 97,105,116,32,32,32,32,32,32,32,61,32,48,120,37 |
||||
|
DB 48,50,120,0,37,115,46,105,111,119,97,105,116,32,32 |
||||
|
DB 32,32,32,32,32,32,61,32,48,120,37,48,50,120,0 |
||||
|
DB 37,115,46,99,110,116,108,98,48,32,32,32,32,32,32 |
||||
|
DB 32,32,61,32,48,120,37,48,50,120,0,37,115,46,99 |
||||
|
DB 110,116,108,98,49,32,32,32,32,32,32,32,32,61,32 |
||||
|
DB 48,120,37,48,50,120,0,37,115,46,115,100,101,110,97 |
||||
|
DB 98,108,101,32,32,32,32,32,32,61,32,0,84,82,85 |
||||
|
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110 |
||||
|
DB 33,33,0,37,115,46,115,100,116,114,97,99,101,32,32 |
||||
|
DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65 |
||||
|
DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0 |
||||
|
extrn printf_ |
||||
|
extrn strcpy_ |
||||
|
extrn pager_ |
||||
|
extrn .eq |
||||
|
END |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,742 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global cache_,17 |
||||
|
PUBLIC cnamept4_ |
||||
|
cnamept4_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
CALL strcpy_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,24 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,3 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .3 |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,63 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+17 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+41 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,65 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
LXI H,.1+61 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.7: |
||||
|
LXI H,.1+66 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.8: |
||||
|
LXI H,.1+72 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.4: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.7 |
||||
|
DW 1,.6 |
||||
|
DW .8 |
||||
|
.5: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+82 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,66 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .9 |
||||
|
.11: |
||||
|
LXI H,.1+102 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .10 |
||||
|
.12: |
||||
|
LXI H,.1+107 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .10 |
||||
|
.13: |
||||
|
LXI H,.1+113 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .10 |
||||
|
.9: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.12 |
||||
|
DW 1,.11 |
||||
|
DW .13 |
||||
|
.10: |
||||
|
CALL pager_ |
||||
|
.3: |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,67 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+123 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+149 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,68 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .14 |
||||
|
.16: |
||||
|
LXI H,.1+169 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .15 |
||||
|
.17: |
||||
|
LXI H,.1+178 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .15 |
||||
|
.18: |
||||
|
LXI H,.1+188 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .15 |
||||
|
.19: |
||||
|
LXI H,.1+198 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .15 |
||||
|
.20: |
||||
|
LXI H,.1+208 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .15 |
||||
|
.14: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.16 |
||||
|
DW 1,.17 |
||||
|
DW 2,.18 |
||||
|
DW 3,.19 |
||||
|
DW .20 |
||||
|
.15: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,69 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+218 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+240 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,84 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .21 |
||||
|
.23: |
||||
|
LXI H,.1+260 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.24: |
||||
|
LXI H,.1+265 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.25: |
||||
|
LXI H,.1+271 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .22 |
||||
|
.21: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.24 |
||||
|
DW 1,.23 |
||||
|
DW .25 |
||||
|
.22: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,84 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .26 |
||||
|
LXI H,.1+281 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,71 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .27 |
||||
|
.29: |
||||
|
LXI H,.1+301 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .28 |
||||
|
.30: |
||||
|
LXI H,.1+306 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .28 |
||||
|
.31: |
||||
|
LXI H,.1+312 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .28 |
||||
|
.27: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.30 |
||||
|
DW 1,.29 |
||||
|
DW .31 |
||||
|
.28: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,71 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .32 |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+322 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,72 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .33 |
||||
|
.35: |
||||
|
LXI H,.1+342 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .34 |
||||
|
.36: |
||||
|
LXI H,.1+349 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .34 |
||||
|
.37: |
||||
|
LXI H,.1+356 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .34 |
||||
|
.38: |
||||
|
LXI H,.1+367 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .34 |
||||
|
.33: |
||||
|
CALL .swt |
||||
|
DW 3 |
||||
|
DW 0,.35 |
||||
|
DW 1,.36 |
||||
|
DW 2,.37 |
||||
|
DW .38 |
||||
|
.34: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+377 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+397 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,75 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .39 |
||||
|
.41: |
||||
|
LXI H,.1+417 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.42: |
||||
|
LXI H,.1+422 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.43: |
||||
|
LXI H,.1+428 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .40 |
||||
|
.39: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.42 |
||||
|
DW 1,.41 |
||||
|
DW .43 |
||||
|
.40: |
||||
|
CALL pager_ |
||||
|
.32: |
||||
|
.26: |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,76 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+438 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+460 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,78 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .44 |
||||
|
.46: |
||||
|
LXI H,.1+480 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .45 |
||||
|
.47: |
||||
|
LXI H,.1+485 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .45 |
||||
|
.48: |
||||
|
LXI H,.1+491 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .45 |
||||
|
.44: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.47 |
||||
|
DW 1,.46 |
||||
|
DW .48 |
||||
|
.45: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,78 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,1 |
||||
|
POP D |
||||
|
CALL .eq |
||||
|
JZ .49 |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+501 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,79 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .50 |
||||
|
.52: |
||||
|
LXI H,.1+520 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .51 |
||||
|
.53: |
||||
|
LXI H,.1+525 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .51 |
||||
|
.54: |
||||
|
LXI H,.1+531 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .51 |
||||
|
.50: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.53 |
||||
|
DW 1,.52 |
||||
|
DW .54 |
||||
|
.51: |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+541 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,80 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .55 |
||||
|
.57: |
||||
|
LXI H,.1+561 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .56 |
||||
|
.58: |
||||
|
LXI H,.1+568 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .56 |
||||
|
.59: |
||||
|
LXI H,.1+575 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .56 |
||||
|
.60: |
||||
|
LXI H,.1+586 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .56 |
||||
|
.55: |
||||
|
CALL .swt |
||||
|
DW 3 |
||||
|
DW 0,.57 |
||||
|
DW 1,.58 |
||||
|
DW 2,.59 |
||||
|
DW .60 |
||||
|
.56: |
||||
|
CALL pager_ |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,73 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+596 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
LXI H,cache_ |
||||
|
PUSH H |
||||
|
LXI H,.1+618 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,83 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
XCHG |
||||
|
JMP .61 |
||||
|
.63: |
||||
|
LXI H,.1+638 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .62 |
||||
|
.64: |
||||
|
LXI H,.1+643 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .62 |
||||
|
.65: |
||||
|
LXI H,.1+649 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .62 |
||||
|
.61: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 0,.64 |
||||
|
DW 1,.63 |
||||
|
DW .65 |
||||
|
.62: |
||||
|
CALL pager_ |
||||
|
.49: |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
.1: |
||||
|
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116 |
||||
|
DB 97,0,37,115,46,115,100,99,97,112,97,99,105,116,121 |
||||
|
DB 32,32,32,32,61,32,37,117,75,66,0,37,115,46,115 |
||||
|
DB 100,99,115,105,111,32,32,32,32,32,32,32,32,61,32 |
||||
|
DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107 |
||||
|
DB 110,111,119,110,33,33,0,37,115,46,115,100,99,115,105 |
||||
|
DB 111,102,97,115,116,32,32,32,32,61,32,0,84,82,85 |
||||
|
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110 |
||||
|
DB 33,33,0,37,115,46,100,101,102,105,111,98,121,116,101 |
||||
|
DB 32,32,32,32,32,61,32,48,120,37,48,50,120,0,37 |
||||
|
DB 115,46,116,101,114,109,116,121,112,101,32,32,32,32,32 |
||||
|
DB 32,61,32,0,84,69,82,77,95,84,84,89,0,84,69 |
||||
|
DB 82,77,95,65,78,83,73,0,84,69,82,77,95,87,89 |
||||
|
DB 83,69,0,84,69,82,77,95,86,84,53,50,0,85,110 |
||||
|
DB 107,110,111,119,110,33,33,0,37,115,46,114,101,118,105 |
||||
|
DB 115,105,111,110,32,32,32,32,32,32,61,32,37,100,0 |
||||
|
DB 37,115,46,112,114,112,101,110,97,98,108,101,32,32,32 |
||||
|
DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69 |
||||
|
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112 |
||||
|
DB 114,112,115,100,101,110,97,98,108,101,32,32,32,61,32 |
||||
|
DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107 |
||||
|
DB 110,111,119,110,33,33,0,37,115,46,112,114,112,115,100 |
||||
|
DB 116,114,97,99,101,32,32,32,32,61,32,0,83,73,76 |
||||
|
DB 69,78,84,0,69,82,82,79,82,83,0,69,86,69,82 |
||||
|
DB 89,84,72,73,78,71,0,85,110,107,110,111,119,110,33 |
||||
|
DB 33,0,37,115,46,112,114,112,115,100,99,97,112,97,99 |
||||
|
DB 105,116,121,32,61,32,0,37,115,46,112,114,112,99,111 |
||||
|
DB 110,101,110,97,98,108,101,32,32,61,32,0,84,82,85 |
||||
|
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110 |
||||
|
DB 33,33,0,37,115,46,98,105,111,115,115,105,122,101,32 |
||||
|
DB 32,32,32,32,32,61,32,37,100,0,37,115,46,112,112 |
||||
|
DB 112,101,110,97,98,108,101,32,32,32,32,32,61,32,0 |
||||
|
DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110 |
||||
|
DB 111,119,110,33,33,0,37,115,46,112,112,112,115,100,101 |
||||
|
DB 110,97,98,108,101,32,32,61,32,0,84,82,85,69,0 |
||||
|
DB 70,65,76,83,69,0,85,110,107,110,111,119,110,33,33 |
||||
|
DB 0,37,115,46,112,112,112,115,100,116,114,97,99,101,32 |
||||
|
DB 32,32,32,61,32,0,83,73,76,69,78,84,0,69,82 |
||||
|
DB 82,79,82,83,0,69,86,69,82,89,84,72,73,78,71 |
||||
|
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112 |
||||
|
DB 112,112,99,97,112,97,99,105,116,121,32,32,32,61,32 |
||||
|
DB 37,100,0,37,115,46,112,112,112,99,111,110,101,110,97 |
||||
|
DB 98,108,101,32,32,61,32,0,84,82,85,69,0,70,65 |
||||
|
DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0 |
||||
|
extrn printf_ |
||||
|
extrn strcpy_ |
||||
|
extrn pager_ |
||||
|
extrn .eq |
||||
|
END |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,210 @@ |
|||||
|
; cnfgdata.lib 7/19/2012 dwg - |
||||
|
|
||||
|
byte equ 1 |
||||
|
word equ 2 |
||||
|
|
||||
|
;; /* cnfgdata.h 6/04/2012 dwg - */ |
||||
|
;; |
||||
|
;; struct CNFGDATA { |
||||
|
;; unsigned char rmj; |
||||
|
cfgrmj equ 08009h |
||||
|
;; |
||||
|
;; unsigned char rmn; |
||||
|
cfgrmn equ cfgrmj + byte |
||||
|
;; |
||||
|
;; unsigned char rup; |
||||
|
cfgrup equ cfgrmn + byte |
||||
|
;; |
||||
|
;; unsigned char rtp; |
||||
|
cfgrtp equ cfgrup + byte |
||||
|
;; |
||||
|
;; unsigned char diskboot; |
||||
|
diskboot equ cfgrtp + byte |
||||
|
;; |
||||
|
;; unsigned char devunit; |
||||
|
devunit equ diskboot + byte |
||||
|
;; |
||||
|
;; unsigned int bootlu; |
||||
|
bootlu equ devunit + byte |
||||
|
;; |
||||
|
;; unsigned char hour; |
||||
|
hour equ bootlu + word |
||||
|
;; |
||||
|
;; unsigned char minute; |
||||
|
minute equ hour + byte |
||||
|
;; |
||||
|
;; unsigned char second; |
||||
|
second equ minute + byte |
||||
|
;; |
||||
|
;; unsigned char month; |
||||
|
month equ second + byte |
||||
|
;; |
||||
|
;; unsigned char day; |
||||
|
day equ month + byte |
||||
|
;; |
||||
|
;; unsigned char year; |
||||
|
year equ day + byte |
||||
|
;; |
||||
|
;; unsigned char freq; |
||||
|
freq equ year + byte |
||||
|
;; |
||||
|
;; unsigned char platform; |
||||
|
platform equ freq+ byte |
||||
|
;; |
||||
|
;; unsigned char dioplat; |
||||
|
dioplat equ platform + byte |
||||
|
;; |
||||
|
;; unsigned char vdumode; |
||||
|
vdumode equ dioplat + byte |
||||
|
;; |
||||
|
;; unsigned int romsize; |
||||
|
romsize equ vdumode + byte |
||||
|
;; |
||||
|
;; unsigned int ramsize; |
||||
|
ramsize equ romsize + word |
||||
|
;; |
||||
|
;; unsigned char clrramdk; |
||||
|
clrramdk equ ramsize + word |
||||
|
;; |
||||
|
;; unsigned char dskyenable; |
||||
|
dskyenable equ clrramdk + byte |
||||
|
;; |
||||
|
;; unsigned char uartenable; |
||||
|
uartenable equ dskyenable + byte |
||||
|
;; |
||||
|
;; unsigned char vduenable; |
||||
|
vduenable equ uartenable + byte |
||||
|
;; |
||||
|
;; unsigned char fdenable; |
||||
|
fdenable equ vduenable + byte |
||||
|
;; |
||||
|
;; unsigned char fdtrace; |
||||
|
fdtrace equ fdenable + byte |
||||
|
;; |
||||
|
;; unsigned char fdmedia; |
||||
|
fdmedia equ fdtrace + byte |
||||
|
;; |
||||
|
;; unsigned char fdmediaalt; |
||||
|
fdmediaalt equ fdmedia + byte |
||||
|
;; |
||||
|
;; unsigned char fdmauto; |
||||
|
fdmauto equ fdmediaalt + byte |
||||
|
;; |
||||
|
;; unsigned char ideenable; |
||||
|
ideenable equ fdmauto + byte |
||||
|
;; |
||||
|
;; unsigned char idetrace; |
||||
|
idetrace equ ideenable + byte |
||||
|
;; |
||||
|
;; unsigned char ide8bit; |
||||
|
ide8bit equ idetrace + byte |
||||
|
;; |
||||
|
;; unsigned int idecapacity; |
||||
|
idecapacity equ ide8bit + byte |
||||
|
;; |
||||
|
;; unsigned char ppideenable; |
||||
|
ppideenable equ idecapacity + word |
||||
|
;; |
||||
|
;; unsigned char ppidetrace; |
||||
|
ppidetrace equ ppideenable + byte |
||||
|
;; |
||||
|
;; unsigned char ppide8bit; |
||||
|
ppide8bit equ ppidetrace + byte |
||||
|
;; |
||||
|
;; unsigned int ppidecapacity; |
||||
|
ppidecapacity equ ppide8bit + byte |
||||
|
;; |
||||
|
;; unsigned char ppideslow; |
||||
|
ppideslow equ ppidecapacity + word |
||||
|
;; |
||||
|
;; unsigned char boottype; |
||||
|
boottype equ ppideslow + byte |
||||
|
;; |
||||
|
;; unsigned char boottimeout; |
||||
|
boottimeout equ boottype + byte |
||||
|
;; |
||||
|
;; unsigned char bootdefault; |
||||
|
bootdefault equ boottimeout + byte |
||||
|
;; |
||||
|
;; unsigned int baudrate; |
||||
|
baudrate equ bootdefault + byte |
||||
|
;; |
||||
|
;; unsigned char ckdiv; |
||||
|
ckdiv equ baudrate + word |
||||
|
;; |
||||
|
;; unsigned char memwait; |
||||
|
memwait equ ckdiv + byte |
||||
|
;; |
||||
|
;; unsigned char iowait; |
||||
|
iowait equ memwait + byte |
||||
|
;; |
||||
|
;; unsigned char cntlb0; |
||||
|
cntlb0 equ iowait + byte |
||||
|
;; |
||||
|
;; unsigned char cntlb1; |
||||
|
cntlb1 equ cntlb0 + byte |
||||
|
;; |
||||
|
;; unsigned char sdenable; |
||||
|
sdenable equ cntlb1 + byte |
||||
|
;; |
||||
|
;; unsigned char sdtrace; |
||||
|
sdtrace equ sdenable + byte |
||||
|
;; |
||||
|
;; unsigned int sdcapacity; |
||||
|
sdcapacity equ sdtrace + byte |
||||
|
;; |
||||
|
;; unsigned char sdcsio; |
||||
|
sdcsio equ sdcapacity + word |
||||
|
;; |
||||
|
;; unsigned char sdcsiofast; |
||||
|
sdcsiofast equ sdcsio + byte |
||||
|
;; |
||||
|
;; unsigned char defiobyte; |
||||
|
defiobyte equ sdcsiofast + byte |
||||
|
;; |
||||
|
;; unsigned char termtype; |
||||
|
termtype equ defiobyte + byte |
||||
|
;; |
||||
|
;; unsigned int revision; |
||||
|
revision equ termtype + byte |
||||
|
;; |
||||
|
;; unsigned char prpsdenable; |
||||
|
prpsdenable equ revision + word |
||||
|
;; |
||||
|
;; unsigned char prpsdtrace; |
||||
|
prpsdtrace equ prpsdenable + byte |
||||
|
;; |
||||
|
;; unsigned int prpsdcapacity; |
||||
|
prpsdcapacity equ prpsdtrace + byte |
||||
|
;; |
||||
|
;; unsigned char prpconenable; |
||||
|
prpconenable equ prpsdcapacity + word |
||||
|
;; |
||||
|
;; unsigned int biossize; |
||||
|
biossize equ prpconenable + byte |
||||
|
;; |
||||
|
;; unsigned char pppenable; |
||||
|
pppenable equ biossize + word |
||||
|
;; |
||||
|
;; unsigned char pppsdenable; |
||||
|
pppsdenable equ pppenable + byte |
||||
|
;; |
||||
|
;; unsigned char pppsdtrace; |
||||
|
pppsdtrace equ pppsdenable + byte |
||||
|
;; |
||||
|
;; unsigned int pppsdcapacity; |
||||
|
pppsdcapacity equ pppsdtrace + byte |
||||
|
;; |
||||
|
;; unsigned char pppconenable; |
||||
|
pppconenable equ pppsdcapacity + word |
||||
|
;; |
||||
|
;; unsigned char prpenable; |
||||
|
prpenable equ pppconenable + byte |
||||
|
;; |
||||
|
;; }; |
||||
|
;; |
||||
|
;; /********************/ |
||||
|
;; /* eof - cnfgdata.h */ |
||||
|
;; /********************/ |
||||
|
|
||||
|
|
||||
@ -0,0 +1,80 @@ |
|||||
|
/* convert.c 7/11/2012 dwg -
|
||||
|
|
||||
|
The purpose of this program is similar to the CP/M dump program |
||||
|
except that in addition to the normal hexadecimal bytes, a field |
||||
|
of ascii bytes to the right are displayed as well. |
||||
|
|
||||
|
*/ |
||||
|
|
||||
|
#include "stdio.h" |
||||
|
|
||||
|
|
||||
|
char visible[256] = { |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 00 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 10 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 20 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 30 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 40 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 50 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 60 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0, /* 70 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 80 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 90 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* A0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* B0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* C0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* D0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* E0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /* F0 */ |
||||
|
}; |
||||
|
|
||||
|
#include "cvt2h.h" |
||||
|
|
||||
|
unsigned char sector[32767]; |
||||
|
|
||||
|
main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
int i,j; |
||||
|
int offset; |
||||
|
int result; |
||||
|
unsigned char byte; |
||||
|
char name[32]; |
||||
|
|
||||
|
|
||||
|
FILE * fd; |
||||
|
|
||||
|
for(i=0;i<sizeof(sector);i++) sector[i] = 0; |
||||
|
|
||||
|
banner("DUMP.COM"); |
||||
|
|
||||
|
/* cvt2h(0x0100,12*1024,"dumpcomh.h"); */ |
||||
|
|
||||
|
|
||||
|
if(1 == argc) { |
||||
|
printf("Sorry, no input file specified"); |
||||
|
exit(1); |
||||
|
} |
||||
|
|
||||
|
fd = fopen(argv[1],"r"); |
||||
|
if(NULL == fd) { |
||||
|
printf("Sorry, cannot open input file"); |
||||
|
exit(1); |
||||
|
} |
||||
|
|
||||
|
printf("Converting %s\n\n",argv[1]); |
||||
|
|
||||
|
result = fread(sector,32767,1,fd); |
||||
|
|
||||
|
for(i=32767;i>0;i--) { |
||||
|
if(sector[i] != 0) break; |
||||
|
} |
||||
|
|
||||
|
sprintf(name,"sect%04x.h",0); |
||||
|
cvt2h(sector,i,name); |
||||
|
fclose(fd); |
||||
|
|
||||
|
exit(0); |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,28 @@ |
|||||
|
rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files |
||||
|
|
||||
|
if not exist access.cpm call access.bat |
||||
|
|
||||
|
if not exist cpmname.cpm call cpmname.bat |
||||
|
|
||||
|
if not exist findfile.cpm call findfile.bat |
||||
|
if not exist findfile.cpm pause |
||||
|
|
||||
|
if not exist map.cpm call map.bat |
||||
|
|
||||
|
if not exist meta.cpm call meta.bat |
||||
|
|
||||
|
if not exist multifmt.cpm call multifmt.bat |
||||
|
|
||||
|
if not exist rem.cpm call makerem.bat |
||||
|
|
||||
|
if not exist setlabel.cpm call setlabel.bat |
||||
|
|
||||
|
if not exist sysgen.cpm call sysgen.bat |
||||
|
|
||||
|
if not exist termtype.cpm call termtype.bat |
||||
|
|
||||
|
if not exist view.cpm call view.bat |
||||
|
|
||||
|
rem All Core Apps Built |
||||
|
dir *.cpm /w |
||||
|
|
||||
@ -0,0 +1,38 @@ |
|||||
|
rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files |
||||
|
|
||||
|
if not exist access.cpm call access.bat |
||||
|
if not exist access.cpm pause |
||||
|
|
||||
|
if not exist cpmname.cpm call cpmname.bat |
||||
|
if not exist cpmname.cpm pause |
||||
|
|
||||
|
if not exist findfile.cpm call findfile.bat |
||||
|
if not exist findfile.cpm pause |
||||
|
|
||||
|
if not exist map.cpm call map.bat |
||||
|
if not exist map.cpm pause |
||||
|
|
||||
|
if not exist meta.cpm call meta.bat |
||||
|
if not exist meta.cpm pause |
||||
|
|
||||
|
if not exist multifmt.cpm call multifmt.bat |
||||
|
if not exist multifmt.cpm pause |
||||
|
|
||||
|
if not exist rem.cpm call makerem.bat |
||||
|
if not exist rem.cpm pause |
||||
|
|
||||
|
if not exist setlabel.cpm call setlabel.bat |
||||
|
if not exist setlabel.cpm pause |
||||
|
|
||||
|
if not exist sysgen.cpm call sysgen.bat |
||||
|
if not exist sysgen.cpm pause |
||||
|
|
||||
|
if not exist termtype.cpm call termtype.bat |
||||
|
if not exist termtype.cpm pause |
||||
|
|
||||
|
if not exist view.cpm call view.bat |
||||
|
if not exist view.cpm pause |
||||
|
|
||||
|
rem All Core Apps Built |
||||
|
dir *.cpm /w |
||||
|
|
||||
@ -0,0 +1,71 @@ |
|||||
|
e:rmac access |
||||
|
e:rmac banner |
||||
|
e:rmac findfile |
||||
|
e:rmac hbios |
||||
|
e:rmac identity |
||||
|
e:rmac labelib |
||||
|
e:rmac memory |
||||
|
e:rmac metadata |
||||
|
e:rmac printers |
||||
|
e:rmac rem |
||||
|
e:rmac setlabel |
||||
|
e:rmac terminal |
||||
|
as asmiface |
||||
|
as bdoscall |
||||
|
as bioscall |
||||
|
cc cbanner |
||||
|
as cbanner |
||||
|
cc clogical |
||||
|
as clogical |
||||
|
cc cmemory |
||||
|
as cmemory |
||||
|
cc cnamept1 |
||||
|
as cnamept1 |
||||
|
cc cnamept2 |
||||
|
as cnamept2 |
||||
|
cc cnamept3 |
||||
|
as cnamept3 |
||||
|
cc cnamept4 |
||||
|
as cnamept4 |
||||
|
cc cpmname |
||||
|
as cpmname |
||||
|
cc ctermcap |
||||
|
as ctermcap |
||||
|
as diagnose |
||||
|
cc map |
||||
|
as map |
||||
|
cc meta |
||||
|
as meta |
||||
|
cc multifmt |
||||
|
as multifmt |
||||
|
cc sectorio |
||||
|
as sectorio |
||||
|
cc sysgen |
||||
|
as sysgen |
||||
|
cc termtype |
||||
|
as termtype |
||||
|
cc view |
||||
|
as view |
||||
|
e:link access,memory,banner,printers |
||||
|
ln cpmname.o ctermcap.o cnamept1.o cnamept2.o cnamept3.o cnamept4.o cmemory.o diagnose.o bioscall.o bdoscall.o c.lib |
||||
|
e:link findfile,hbios,identity,banner,memory,printers,terminal |
||||
|
ln map.o asmiface.o bioscall.o bdoscall.o clogical.o diagnose.o ctermcap.o c.lib |
||||
|
ln meta.o asmiface.o bioscall.o bdoscall.o cbanner.o clogical.o diagnose.o ctermcap.o sectorio.o c.lib |
||||
|
ln multifmt.o asmiface.o bioscall.o bdoscall.o clogical.o cmemory.o sectorio.o diagnose.o ctermcap.o c.lib |
||||
|
e:link rem |
||||
|
e:link setlabel,labelib,identity,printers,banner,metadata,memory |
||||
|
ln sysgen.o sectorio.o ctermcap.o diagnose.o bdoscall.o bioscall.o c.lib |
||||
|
ln termtype.o asmiface.o ctermcap.o diagnose.o c.lib |
||||
|
ln view.o ctermcap.o diagnose.o bdoscall.o bioscall.o c.lib |
||||
|
e:access access.com |
||||
|
e:access cpmname.com |
||||
|
e:access findfile.com |
||||
|
e:access map.com |
||||
|
e:access meta.com |
||||
|
e:access multifmt.com |
||||
|
e:access rem.com |
||||
|
e:access setlabel.com |
||||
|
e:access sysgen.com |
||||
|
e:access termtype.com |
||||
|
e:access view.com |
||||
|
|
||||
@ -0,0 +1,82 @@ |
|||||
|
; cpmappl.lib 2/10/2012 dwg - begin 1.6 development |
||||
|
; cpmappl.lib 2/04/2012 dwg - fix typo mov becomes mvi |
||||
|
; cpmappl.lib 2/ 2/2012 dwg - initial version |
||||
|
|
||||
|
; |
||||
|
; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3. |
||||
|
; |
||||
|
; This file is part of NuBiosDWG and 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 3 of the License, or (at your option) any later version. |
||||
|
; This file 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 it. If not, see <http://www.gnu.org/licenses/>. |
||||
|
; |
||||
|
|
||||
|
do$start macro |
||||
|
|
||||
|
start: jmp begin |
||||
|
|
||||
|
public hexref |
||||
|
hexref db '0123456789ABCDEF' |
||||
|
|
||||
|
public id$sig,id$rmj,id$rmn,id$rup,id$rtp,id$mon,id$day,id$yr |
||||
|
id$sig db 'ID' |
||||
|
id$rmj db A$RMJ |
||||
|
id$rmn db A$RMN |
||||
|
id$rup db A$RUP |
||||
|
id$rtp db A$RTP |
||||
|
id$mon db A$MONTH |
||||
|
id$day db A$DAY |
||||
|
id$yr dw A$YEAR |
||||
|
id$argv dw argv |
||||
|
db 0e5h |
||||
|
|
||||
|
|
||||
|
public pre$stk |
||||
|
pre$stk ds 2 |
||||
|
|
||||
|
public begin |
||||
|
begin: lxi h,0 |
||||
|
dad sp |
||||
|
shld pre$stk |
||||
|
lxi sp,stack$top |
||||
|
nop |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
;--------------------------------- |
||||
|
|
||||
|
|
||||
|
do$end macro |
||||
|
lhld pre$stk |
||||
|
sphl |
||||
|
|
||||
|
mvi c,13 |
||||
|
call BDOS |
||||
|
|
||||
|
ret |
||||
|
ds stack$size |
||||
|
stack$top: |
||||
|
|
||||
|
endm |
||||
|
|
||||
|
movfcb macro destn,source |
||||
|
lxi d,destn |
||||
|
lxi h,source |
||||
|
lxi b,LENFCB |
||||
|
ldir |
||||
|
endm |
||||
|
|
||||
|
copyfcb macro fcbname,source |
||||
|
local around |
||||
|
jmp around |
||||
|
fcbname ds 32 |
||||
|
around: |
||||
|
endm |
||||
|
|
||||
|
|
||||
@ -0,0 +1,174 @@ |
|||||
|
; cpmbdos.lib 1/19/2012 dwg - add READ$CON$BUF (10) |
||||
|
; cpmbdos.lib 1/15/2012 dwg - add more functions |
||||
|
|
||||
|
; |
||||
|
; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3. |
||||
|
; |
||||
|
; This file is part of NuBiosDWG and 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 3 of the License, or (at your option) any later version. |
||||
|
; This file 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 it. If not, see <http://www.gnu.org/licenses/>. |
||||
|
; |
||||
|
|
||||
|
; BDOS function codes |
||||
|
|
||||
|
TERMCPM equ 0 ; return to command line |
||||
|
CREAD equ 1 ; read a character |
||||
|
CWRITE equ 2 ; write a character |
||||
|
PRINTSTR equ 9 ; print string |
||||
|
READ$CON$BUF equ 10 ; read console buffer |
||||
|
RETVERNO equ 12 ; return version number |
||||
|
DSKRESET equ 13 ; disk reset |
||||
|
SELDSK equ 14 ; select disk |
||||
|
FOPEN equ 15 ; open file |
||||
|
FCLOSE equ 16 ; close file |
||||
|
FDELETE equ 19 ; delete file |
||||
|
READSEQ equ 20 ; read sequential |
||||
|
WRITESEQ equ 21 ; write sequential |
||||
|
FMAKE equ 22 ; make file |
||||
|
FRENAME equ 23 ; rename file |
||||
|
RETCURR equ 25 ; return current disk, 0=a |
||||
|
SETDMA equ 26 ; set dma address |
||||
|
WRITERAND equ 34 ; write random record |
||||
|
FCOMPSIZE equ 35 ; compute file size |
||||
|
SETRANDREC equ 36 ; set random record |
||||
|
RESETDRIVE equ 37 ; reset drive |
||||
|
WRITERANDZF equ 40 ; write random with zero fill |
||||
|
|
||||
|
OEMID equ 0E5h |
||||
|
|
||||
|
; File Control Block |
||||
|
DR$OFS equ 0 |
||||
|
F1$OFS equ DR$OFS+BYTESIZE |
||||
|
F2$OFS equ F1$OFS+BYTESIZE |
||||
|
F3$OFS equ F2$OFS+BYTESIZE |
||||
|
F4$OFS equ F3$OFS+BYTESIZE |
||||
|
F5$OFS equ F4$OFS+BYTESIZE |
||||
|
F6$OFS equ F5$OFS+BYTESIZE |
||||
|
F7$OFS equ F6$OFS+BYTESIZE |
||||
|
F8$OFS equ F7$OFS+BYTESIZE |
||||
|
T1$OFS equ F8$OFS+BYTESIZE |
||||
|
T2$OFS equ T1$OFS+BYTESIZE |
||||
|
T3$OFS equ T2$OFS+BYTESIZE |
||||
|
EX$OFS equ T3$OFS+BYTESIZE |
||||
|
S1$OFS equ EX$OFS+BYTESIZE |
||||
|
S2$OFS equ S1$OFS+BYTESIZE |
||||
|
RC$OFS equ S2$OFS+BYTESIZE |
||||
|
D0$OFS equ RC$OFS+BYTESIZE |
||||
|
CR$OFS equ DR$OFS+32 |
||||
|
R0$OFS equ CR$OFS+BYTESIZE |
||||
|
R1$OFS equ R0$OFS+BYTESIZE |
||||
|
R2$OFS equ R1$OFS+BYTESIZE |
||||
|
FCB$LEN equ R2$OFS+BYTESIZE |
||||
|
|
||||
|
; Memory Locations |
||||
|
|
||||
|
BDOS equ 5 ; entry point fo BDOS function calls |
||||
|
PRIFCB equ 5Ch ; primary file control block address |
||||
|
SECFCB equ 6Ch ; secondary file control block address |
||||
|
LENFCB equ 32 ; length of file control block |
||||
|
DEFBUF equ 80h ; address of default buffer |
||||
|
|
||||
|
|
||||
|
EXIT macro |
||||
|
mvi c,TERMCPM |
||||
|
call BDOS |
||||
|
endm |
||||
|
|
||||
|
conin macro |
||||
|
push b ; save context B&C |
||||
|
push d ; save context D&E |
||||
|
push h ; save context H&L |
||||
|
mvi c,CREAD ; set up for console input BDOS call |
||||
|
call BDOS ; call BDOS function entry point |
||||
|
pop h ; restore context H&L |
||||
|
pop d ; restore context D&E |
||||
|
pop b ; restore context B&C |
||||
|
endm |
||||
|
|
||||
|
conout macro char |
||||
|
enter ; save all context regs |
||||
|
mvi c,CWRITE ; set for console output BDOS call |
||||
|
mvi e,char ; place output character in E as required |
||||
|
call bdos ; call BDOS function entry point |
||||
|
leave ; restore all context regs |
||||
|
endm |
||||
|
|
||||
|
conouta macro |
||||
|
enter |
||||
|
mvi c,CWRITE |
||||
|
mov e,a |
||||
|
call bdos |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
PRINT macro addr |
||||
|
enter |
||||
|
mvi c,PRINTSTR |
||||
|
lxi d,addr |
||||
|
call BDOS |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
PTRPRT macro addr |
||||
|
enter ; save all context registers |
||||
|
lxi h,addr ; load the address parameter into H&L |
||||
|
mov e,m ; pick up LO byte of new pointer |
||||
|
inx h ; bump index register |
||||
|
mov d,m ; pick up HO byte of new pointer |
||||
|
mvi c,PRINTSTR ; assembled pointer used for printstring call |
||||
|
call BDOS |
||||
|
leave ; restore all context registers |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
movfcb macro destn,source |
||||
|
lxi d,destn |
||||
|
lxi h,source |
||||
|
lxi b,LENFCB |
||||
|
ldir |
||||
|
endm |
||||
|
|
||||
|
copyfcb macro fcbname,source |
||||
|
local around |
||||
|
jmp around |
||||
|
fcbname ds 32 |
||||
|
around: |
||||
|
endm |
||||
|
|
||||
|
printf macro parmdata |
||||
|
local around |
||||
|
local string |
||||
|
print string |
||||
|
jmp around |
||||
|
string db parmdata |
||||
|
db '$' |
||||
|
around: |
||||
|
endm |
||||
|
|
||||
|
printmsg macro parmdata |
||||
|
enter |
||||
|
local around |
||||
|
local string |
||||
|
print string |
||||
|
jmp around |
||||
|
string db parmdata |
||||
|
db '$' |
||||
|
around: |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
newfcb macro fcbname,drive,filename |
||||
|
fcbname db drive,filename |
||||
|
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
; eof - cpmbdos.lib |
||||
|
|
||||
@ -0,0 +1,137 @@ |
|||||
|
; cpmbios.lib 2/20/2012 dwg - get$off, get$drm, and get$spt need c=drvnum |
||||
|
; cpmbios.lib 12/26/2011 dwg - |
||||
|
|
||||
|
; Copyright (C) 2011-2012 Douglas Goodall All Rights Reserved. |
||||
|
; For non-commercial use by N8VEM community |
||||
|
|
||||
|
XLT$OFS equ 0 ; Translate Table |
||||
|
RV1$OFS equ XLT$OFS+WORDSIZE ; Reserved Field 1 |
||||
|
RV2$OFS equ RV1$OFS+WORDSIZE ; Reserved Field 2 |
||||
|
RV3$OFS equ RV2$OFS+WORDSIZE ; Reserved Field 3 |
||||
|
DBF$OFS equ RV3$OFS+WORDSIZE ; Directory Buffer |
||||
|
DPB$OFS equ DBF$OFS+WORDSIZE ; Diskk Parameter Block Pointer |
||||
|
CSV$OFS equ DPB$OFS+WORDSIZE ; Checksum Vector |
||||
|
ALV$OFS equ CSV$OFS+WORDSIZE ; Allocation Vector |
||||
|
DPH$LEN equ ALV$OFS+WORDSIZE ; size of normal DPH |
||||
|
LU1$OFS equ ALV$OFS+WORDSIZE ; Logical Unit Signature Byte 1 'L' |
||||
|
LU2$OFS equ LU1$OFS+BYTESIZE ; Logical Unit Signature Byte 2 'U' |
||||
|
CUR$OFS equ LU2$OFS+BYTESIZE ; Current Logical Unit (default) |
||||
|
NLU$OFS equ CUR$OFS+WORDSIZE ; Number of LU's (capacity/9) |
||||
|
|
||||
|
|
||||
|
SPT$OFS equ 0 ; Sectors Per Track |
||||
|
BSH$OFS equ SPT$OFS+WORDSIZE ; Block Shift Factor |
||||
|
BLM$OFS equ BSH$OFS+BYTESIZE ; Data Allocation Block Mask |
||||
|
EXM$OFS equ BLM$OFS+BYTESIZE ; Extend Mask |
||||
|
DSM$OFS equ EXM$OFS+BYTESIZE ; Disk Size Max |
||||
|
DRM$OFS equ DSM$OFS+WORDSIZE ; Number of Directory Entries |
||||
|
AL0$OFS equ DRM$OFS+WORDSIZE ; Allocation bitmask for directories |
||||
|
AL1$OFS equ AL0$OFS+BYTESIZE ; Allocation bitmask for directories |
||||
|
CKS$OFS equ AL1$OFS+BYTESIZE ; Size of Directory Check Vector |
||||
|
OFF$OFS equ CKS$OFS+WORDSIZE ; Number of Reserved Tracks |
||||
|
DPB$LEN equ OFF$OFS+WORDSIZE ; Disk Parameter Block Length |
||||
|
|
||||
|
; BIOS Memory Locations |
||||
|
BIBOOT equ 0E600h |
||||
|
BIWBOOT equ 0E603h |
||||
|
BICONST equ 0E606h |
||||
|
BICONIN equ 0E609h |
||||
|
BICONOUT equ 0E60Ch |
||||
|
BILIST equ 0E60Fh |
||||
|
BIPUNCH equ 0E612h |
||||
|
BIREADER equ 0E615h |
||||
|
BIHOME equ 0E618h |
||||
|
BISELDSK equ 0E61Bh |
||||
|
BISETTRK equ 0E61Eh |
||||
|
BISETSEC equ 0E621h |
||||
|
BISETDMA equ 0E624h |
||||
|
BIREAD equ 0E627h |
||||
|
BIWRITE equ 0E62Ah |
||||
|
BILISTST equ 0E62Dh |
||||
|
BISECTRN equ 0E630h |
||||
|
|
||||
|
; These are rel zero drive number for talking to the BIOS |
||||
|
; BDOS typically uses rel one drive codes |
||||
|
|
||||
|
BIDRVA equ 0 |
||||
|
BIDRVB equ 1 |
||||
|
BIDRVC equ 2 |
||||
|
BIDRVD equ 3 |
||||
|
BIDRVE equ 4 |
||||
|
BIDRVF equ 5 |
||||
|
BIDRVG equ 6 |
||||
|
BIDRVH equ 7 |
||||
|
|
||||
|
; On entry: c=drive number |
||||
|
get$spt macro |
||||
|
push psw |
||||
|
push b |
||||
|
push d |
||||
|
call BISELDSK |
||||
|
lxi d,DPB$OFS |
||||
|
dad d |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
lxi d,SPT$OFS |
||||
|
dad d |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
pop d |
||||
|
pop b |
||||
|
pop psw |
||||
|
endm |
||||
|
|
||||
|
; On entry: c=drive number |
||||
|
get$drm macro |
||||
|
push psw |
||||
|
push b |
||||
|
push d |
||||
|
call BISELDSK |
||||
|
lxi d,DPB$OFS |
||||
|
dad d |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
lxi d,DRM$OFS |
||||
|
dad d |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
pop d |
||||
|
pop b |
||||
|
pop psw |
||||
|
endm |
||||
|
|
||||
|
; On entry, c=drive number |
||||
|
get$off macro |
||||
|
push psw |
||||
|
push b |
||||
|
push d |
||||
|
call BISELDSK |
||||
|
lxi d,DPB$OFS |
||||
|
dad d |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
lxi d,OFF$OFS |
||||
|
dad d |
||||
|
mov e,m |
||||
|
inx h |
||||
|
mov d,m |
||||
|
xchg |
||||
|
pop d |
||||
|
pop b |
||||
|
pop psw |
||||
|
endm |
||||
|
|
||||
|
|
||||
|
|
||||
|
; eof - cpmbios.lib |
||||
|
|
||||
@ -0,0 +1,164 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global pINFOLIS_,2 |
||||
|
global pSYSCFG_,2 |
||||
|
global line_,2 |
||||
|
PUBLIC main_ |
||||
|
main_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,5 |
||||
|
SHLD line_ |
||||
|
LXI H,-4096 |
||||
|
SHLD hregbc_ |
||||
|
LXI H,-16384 |
||||
|
SHLD hregde_ |
||||
|
CALL diagnose_ |
||||
|
LXI H,-16384 |
||||
|
SHLD pSYSCFG_ |
||||
|
LHLD pSYSCFG_ |
||||
|
LXI D,68 |
||||
|
DAD D |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
CALL crtinit_ |
||||
|
POP D |
||||
|
CALL crtclr_ |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
CALL crtlc_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,3 |
||||
|
PUSH H |
||||
|
LXI H,2 |
||||
|
PUSH H |
||||
|
LXI H,2013 |
||||
|
PUSH H |
||||
|
LXI H,16 |
||||
|
PUSH H |
||||
|
LXI H,1 |
||||
|
PUSH H |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,16 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
LXI H,.1+36 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
CALL pager_ |
||||
|
CALL pager_ |
||||
|
LXI H,-6596 |
||||
|
SHLD ireghl_ |
||||
|
CALL bioscall_ |
||||
|
LHLD ireghl_ |
||||
|
SHLD pINFOLIS_ |
||||
|
LXI H,.1+72 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LHLD pINFOLIS_ |
||||
|
INX H |
||||
|
INX H |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
SHLD dregde_ |
||||
|
LXI H,9 |
||||
|
SHLD dregbc_ |
||||
|
CALL bdoscall_ |
||||
|
CALL pager_ |
||||
|
LXI H,-4096 |
||||
|
SHLD hregbc_ |
||||
|
LXI H,-16384 |
||||
|
SHLD hregde_ |
||||
|
CALL diagnose_ |
||||
|
LXI H,-16384 |
||||
|
SHLD pSYSCFG_ |
||||
|
LHLD pSYSCFG_ |
||||
|
PUSH H |
||||
|
CALL cnamept1_ |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
PUSH H |
||||
|
CALL cnamept2_ |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
PUSH H |
||||
|
CALL cnamept3_ |
||||
|
POP D |
||||
|
LHLD pSYSCFG_ |
||||
|
PUSH H |
||||
|
CALL cnamept4_ |
||||
|
POP D |
||||
|
RET |
||||
|
.2 EQU -7 |
||||
|
.1: |
||||
|
DB 67,80,77,78,65,77,69,46,67,79,77,32,37,100,47 |
||||
|
DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100 |
||||
|
DB 32,40,37,100,41,0,32,100,119,103,32,45,32,68,105 |
||||
|
DB 115,112,108,97,121,32,83,121,115,116,101,109,32,67,111 |
||||
|
DB 110,102,105,103,117,114,97,116,105,111,110,0,112,73,78 |
||||
|
DB 70,79,76,73,83,84,45,62,98,97,110,112,116,114,32 |
||||
|
DB 61,61,62,32,0 |
||||
|
PUBLIC pager_ |
||||
|
pager_: lxi d,.4 |
||||
|
call csave |
||||
|
LHLD line_ |
||||
|
INX H |
||||
|
SHLD line_ |
||||
|
LXI H,.3+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,24 |
||||
|
XCHG |
||||
|
LHLD line_ |
||||
|
CALL .eq |
||||
|
JZ .5 |
||||
|
LXI H,.3+2 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
LXI H,1 |
||||
|
SHLD dregbc_ |
||||
|
CALL bdoscall_ |
||||
|
LXI H,1 |
||||
|
SHLD line_ |
||||
|
.5: |
||||
|
RET |
||||
|
.4 EQU 0 |
||||
|
.3: |
||||
|
DB 10,0,32,32,32,32,32,112,114,101,115,115,32,97,110 |
||||
|
DB 121,32,107,101,121,32,116,111,32,99,111,110,116,105,110 |
||||
|
DB 117,101,0 |
||||
|
extrn printf_ |
||||
|
extrn crtlc_ |
||||
|
extrn crtclr_ |
||||
|
extrn crtinit_ |
||||
|
extrn cnamept4_ |
||||
|
extrn cnamept3_ |
||||
|
extrn cnamept2_ |
||||
|
extrn cnamept1_ |
||||
|
extrn diagnose_ |
||||
|
extrn hregde_ |
||||
|
extrn hregbc_ |
||||
|
extrn bdoscall_ |
||||
|
extrn dregde_ |
||||
|
extrn dregbc_ |
||||
|
extrn bioscall_ |
||||
|
extrn ireghl_ |
||||
|
extrn .eq |
||||
|
END |
||||
|
|
||||
@ -0,0 +1,57 @@ |
|||||
|
rem cpmname.sub 9/5/2012 dwg - build cpmname from sources |
||||
|
|
||||
|
if not exist cpmname.asm erase cpmname.cpm |
||||
|
if not exist cpmname.asm erase cpmname.o |
||||
|
if not exist cpmname.asm z80mu cc cpmname |
||||
|
if not exist cpmname.o erase cpmname.cpm |
||||
|
if not exist cpmname.o z80mu as cpmname |
||||
|
|
||||
|
if not exist cnamept1.asm erase cpmname.cpm |
||||
|
if not exist cnamept1.asm erase cnamept1.o |
||||
|
if not exist cnamept1.asm z80mu cc cnamept1 |
||||
|
if not exist cnamept1.o erase cpmname.cpm |
||||
|
if not exist cnamept1.o z80mu as cnamept1 |
||||
|
|
||||
|
if not exist cnamept2.asm erase cpmname.cpm |
||||
|
if not exist cnamept2.asm erase cnamept2.o |
||||
|
if not exist cnamept2.asm z80mu cc cnamept2 |
||||
|
if not exist cnamept2.o erase cpmname.cpm |
||||
|
if not exist cnamept2.o z80mu as cnamept2 |
||||
|
|
||||
|
if not exist cnamept3.asm erase cpmname.cpm |
||||
|
if not exist cnamept3.asm erase cnamept3.o |
||||
|
if not exist cnamept3.asm z80mu cc cnamept3 |
||||
|
if not exist cnamept3.o erase cpmname.cpm |
||||
|
if not exist cnamept3.o z80mu as cnamept3 |
||||
|
|
||||
|
if not exist cnamept4.asm erase cpmname.cpm |
||||
|
if not exist cnamept4.asm erase cnamept4.o |
||||
|
if not exist cnamept4.asm z80mu cc cnamept4 |
||||
|
if not exist cnamept4.o erase cpmname.cpm |
||||
|
if not exist cnamept4.o z80mu as cnamept4 |
||||
|
|
||||
|
if not exist bdoscall.o erase cpmname.cpm |
||||
|
if not exist bdoscall.o z80mu as bdoscall |
||||
|
|
||||
|
if not exist bioscall.o erase cpmname.cpm |
||||
|
if not exist bioscall.o z80mu as bioscall |
||||
|
|
||||
|
if not exist cmemory.asm erase cpmname.cpm |
||||
|
if not exist cmemory.asm erase cmemory.o |
||||
|
if not exist cmemory.asm z80mu cc cmemory |
||||
|
if not exist cmemory.o erase cpmname.cpm |
||||
|
if not exist cmemory.o z80mu as cmemory |
||||
|
|
||||
|
if not exist ctermcap.asm erase cpmname.cpm |
||||
|
if not exist ctermcap.asm erase ctermcap.o |
||||
|
if not exist ctermcap.asm z80mu cc ctermcap |
||||
|
if not exist ctermcap.o erase cpmname.cpm |
||||
|
if not exist ctermcap.o z80mu as ctermcap |
||||
|
|
||||
|
if not exist diagnose.o erase cpmname.cpm |
||||
|
if not exist diagnose.o z80mu as diagnose |
||||
|
|
||||
|
if not exist cpmname.cpm z80mu ln cpmname.o ctermcap.o cnamept1.o cnamept2.o cnamept3.o cnamept4.o cmemory.o diagnose.o bioscall.o bdoscall.o c.lib |
||||
|
if not exist cpmanme.cpm rename cpmname.com cpmname.cpm |
||||
|
|
||||
|
dir cpmname.cpm |
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,20 @@ |
|||||
|
e:rem cpmname.sub 9/5/2012 dwg - build cpmname from sources |
||||
|
cc cpmname |
||||
|
as cpmname |
||||
|
cc cnamept1 |
||||
|
as cnamept1 |
||||
|
cc cnamept2 |
||||
|
as cnamept2 |
||||
|
cc cnamept3 |
||||
|
as cnamept3 |
||||
|
cc cnamept4 |
||||
|
as cnamept4 |
||||
|
as bdoscall |
||||
|
as bioscall |
||||
|
cc cmemory |
||||
|
as cmemory |
||||
|
cc ctermcap |
||||
|
as ctermcap |
||||
|
as diagnose |
||||
|
ln cpmname.o ctermcap.o cnamept1.o cnamept2.o cnamept3.o cnamept4.o cmemory.o diagnose.o bioscall.o bdoscall.o c.lib |
||||
|
|
||||
@ -0,0 +1,334 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
global termtype_,1 |
||||
|
DSEG |
||||
|
public wy50row_ |
||||
|
wy50row_: |
||||
|
DB 32 |
||||
|
DB 33 |
||||
|
DB 34 |
||||
|
DB 35 |
||||
|
DB 36 |
||||
|
DB 37 |
||||
|
DB 38 |
||||
|
DB 39 |
||||
|
DB 40 |
||||
|
DB 41 |
||||
|
DB 42 |
||||
|
DB 43 |
||||
|
DB 44 |
||||
|
DB 45 |
||||
|
DB 46 |
||||
|
DB 47 |
||||
|
DB 48 |
||||
|
DB 49 |
||||
|
DB 50 |
||||
|
DB 51 |
||||
|
DB 52 |
||||
|
DB 53 |
||||
|
DB 54 |
||||
|
DB 55 |
||||
|
CSEG |
||||
|
DSEG |
||||
|
public wy50col_ |
||||
|
wy50col_: |
||||
|
DB 32 |
||||
|
DB 33 |
||||
|
DB 34 |
||||
|
DB 35 |
||||
|
DB 36 |
||||
|
DB 37 |
||||
|
DB 38 |
||||
|
DB 39 |
||||
|
DB 40 |
||||
|
DB 41 |
||||
|
DB 42 |
||||
|
DB 43 |
||||
|
DB 44 |
||||
|
DB 45 |
||||
|
DB 46 |
||||
|
DB 47 |
||||
|
DB 48 |
||||
|
DB 49 |
||||
|
DB 50 |
||||
|
DB 51 |
||||
|
DB 52 |
||||
|
DB 53 |
||||
|
DB 54 |
||||
|
DB 55 |
||||
|
DB 56 |
||||
|
DB 57 |
||||
|
DB 58 |
||||
|
DB 59 |
||||
|
DB 60 |
||||
|
DB 61 |
||||
|
DB 62 |
||||
|
DB 63 |
||||
|
DB 64 |
||||
|
DB 65 |
||||
|
DB 66 |
||||
|
DB 67 |
||||
|
DB 68 |
||||
|
DB 69 |
||||
|
DB 70 |
||||
|
DB 71 |
||||
|
DB 72 |
||||
|
DB 73 |
||||
|
DB 74 |
||||
|
DB 75 |
||||
|
DB 76 |
||||
|
DB 77 |
||||
|
DB 78 |
||||
|
DB 79 |
||||
|
DB 80 |
||||
|
DB 81 |
||||
|
DB 82 |
||||
|
DB 83 |
||||
|
DB 84 |
||||
|
DB 85 |
||||
|
DB 86 |
||||
|
DB 87 |
||||
|
DB 88 |
||||
|
DB 89 |
||||
|
DB 90 |
||||
|
DB 91 |
||||
|
DB 92 |
||||
|
DB 93 |
||||
|
DB 94 |
||||
|
DB 95 |
||||
|
DB 96 |
||||
|
DB 97 |
||||
|
DB 98 |
||||
|
DB 99 |
||||
|
DB 100 |
||||
|
DB 101 |
||||
|
DB 102 |
||||
|
DB 103 |
||||
|
DB 104 |
||||
|
DB 105 |
||||
|
DB 106 |
||||
|
DB 107 |
||||
|
DB 108 |
||||
|
DB 109 |
||||
|
DB 110 |
||||
|
DB 111 |
||||
|
CSEG |
||||
|
PUBLIC crtinit_ |
||||
|
crtinit_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
XCHG |
||||
|
MOV A,L |
||||
|
STA termtype_ |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
PUBLIC crtclr_ |
||||
|
crtclr_: lxi d,.3 |
||||
|
call csave |
||||
|
LDA termtype_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,2-.3 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .8 |
||||
|
.7: |
||||
|
LXI H,2-.3 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.8: |
||||
|
LXI H,2-.3 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,43 |
||||
|
CALL .lt |
||||
|
JZ .9 |
||||
|
LXI H,10 |
||||
|
PUSH H |
||||
|
LXI H,13 |
||||
|
PUSH H |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .7 |
||||
|
.9: |
||||
|
JMP .5 |
||||
|
.10: |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+5 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.11: |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+11 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.12: |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.1+15 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .5 |
||||
|
.4: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.6 |
||||
|
DW 1,.10 |
||||
|
DW 2,.11 |
||||
|
DW 3,.12 |
||||
|
DW .5 |
||||
|
.5: |
||||
|
RET |
||||
|
.3 EQU -2 |
||||
|
.1: |
||||
|
DB 37,99,37,99,0,37,99,91,50,74,0,37,99,43,0 |
||||
|
DB 37,99,74,37,99,72,0 |
||||
|
PUBLIC crtlc_ |
||||
|
crtlc_: lxi d,.14 |
||||
|
call csave |
||||
|
LDA termtype_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
JMP .15 |
||||
|
.17: |
||||
|
JMP .16 |
||||
|
.18: |
||||
|
LXI H,102 |
||||
|
PUSH H |
||||
|
LXI H,12-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,12-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.13+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,10 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
JMP .16 |
||||
|
.19: |
||||
|
LXI H,10-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,wy50col_ |
||||
|
DAD D |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,10-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,wy50row_ |
||||
|
DAD D |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.13+11 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
JMP .16 |
||||
|
.20: |
||||
|
LXI H,10-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,32 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,10-.14 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,32 |
||||
|
DAD D |
||||
|
PUSH H |
||||
|
LXI H,27 |
||||
|
PUSH H |
||||
|
LXI H,.13+19 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
XCHG |
||||
|
LXI H,8 |
||||
|
DAD SP |
||||
|
SPHL |
||||
|
JMP .16 |
||||
|
.15: |
||||
|
CALL .swt |
||||
|
DW 4 |
||||
|
DW 0,.17 |
||||
|
DW 1,.18 |
||||
|
DW 2,.19 |
||||
|
DW 3,.20 |
||||
|
DW .16 |
||||
|
.16: |
||||
|
RET |
||||
|
.14 EQU -2 |
||||
|
.13: |
||||
|
DB 37,99,91,37,100,59,37,100,37,99,0,37,99,61,37 |
||||
|
DB 99,37,99,0,37,99,89,37,99,37,99,0 |
||||
|
extrn printf_ |
||||
|
extrn .lt |
||||
|
END |
||||
|
|
||||
@ -1,6 +1,6 @@ |
|||||
/* ctermcap.h 3/11/2012 dwg - declarations for termal capability */ |
/* ctermcap.h 3/11/2012 dwg - declarations for termal capability */ |
||||
|
|
||||
extern crtinit(); |
|
||||
extern crtclr(); |
|
||||
extern crtlc(); |
|
||||
|
|
||||
|
extern crtinit(); /* void crtinit(char termtype); */ |
||||
|
extern crtclr(); /* void crtclr(void); */ |
||||
|
extern crtlc(); /* void crtlc(char line,char column); */ |
||||
|
|
||||
Binary file not shown.
@ -0,0 +1,42 @@ |
|||||
|
/* cvt2h.h 7/11/2012 dwg - Copyright (C) 2012 Douglas Goodall */ |
||||
|
|
||||
|
#include "stdio.h" |
||||
|
#include "visible.h" |
||||
|
|
||||
|
cvt2h(buffer,length,name) |
||||
|
unsigned char * buffer; |
||||
|
int length; |
||||
|
char * name; |
||||
|
{ |
||||
|
FILE * fd; |
||||
|
int i,j,k,l; |
||||
|
char szTemp[32]; |
||||
|
fd = fopen(name,"w"); |
||||
|
fprintf(fd, |
||||
|
"/* %s produced automatically by cvt2h.h */\n",name); |
||||
|
strcpy(szTemp,name); |
||||
|
szTemp[8] = 0; |
||||
|
fprintf(fd, |
||||
|
"unsigned char %s[%d] = {\n\t", |
||||
|
szTemp,length); |
||||
|
for(i=0;i<length;i++) { |
||||
|
fprintf(fd,"0x%02x, ",buffer[i]); |
||||
|
if(7 == (i&0x07)) { |
||||
|
fprintf(fd," /* "); |
||||
|
j = i && 0x07; |
||||
|
k = j + 8; |
||||
|
for(l=j;l<k;l++) { |
||||
|
if(1 == visible[buffer[l]]) { |
||||
|
fprintf(fd,"%02x ",buffer[l]); |
||||
|
} else { |
||||
|
fprintf(fd,"."); |
||||
|
} |
||||
|
} |
||||
|
fprintf(fd,"*/"); |
||||
|
fprintf(fd,"\n\t"); |
||||
|
} |
||||
|
} |
||||
|
fprintf(fd,"};\n/* eof - %s */\n",name); |
||||
|
fclose(fd); |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,41 @@ |
|||||
|
/* cvt2h.h 7/11/2012 dwg - Copyright (C) 2012 Douglas Goodall */ |
||||
|
|
||||
|
cvt2h(buffer,length,name) |
||||
|
unsigned char * buffer; |
||||
|
int length; |
||||
|
char * name; |
||||
|
{ |
||||
|
FILE * fd; |
||||
|
int i,j,k,l; |
||||
|
char szTemp[32]; |
||||
|
fd = fopen(name,"w"); |
||||
|
fprintf(fd, |
||||
|
"/* %s produced automatically by cvt2h.h */\n",name); |
||||
|
strcpy(szTemp,name); |
||||
|
szTemp[8] = 0; |
||||
|
fprintf(fd, |
||||
|
"unsigned char %s[%d] = {\n\t", |
||||
|
szTemp,length); |
||||
|
for(i=0;i<length;i++) { |
||||
|
fprintf(fd,"0x%02x,",buffer[i]); |
||||
|
if(7 == (i&0x07)) { |
||||
|
fprintf(fd," /* "); |
||||
|
j = i & 0xfff8; |
||||
|
k = j + 8; |
||||
|
fprintf(fd," %04x: ",j); |
||||
|
|
||||
|
for(l=j;l<k;l++) { |
||||
|
if(1 == visible[buffer[l]]) { |
||||
|
fprintf(fd,"%c ",buffer[l]); |
||||
|
} else { |
||||
|
fprintf(fd,". "); |
||||
|
} |
||||
|
} |
||||
|
fprintf(fd,"*/"); |
||||
|
fprintf(fd,"\n\t"); |
||||
|
} |
||||
|
} |
||||
|
fprintf(fd,"};\n/* eof - %s */\n",name); |
||||
|
fclose(fd); |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,45 @@ |
|||||
|
/* cvt2inc.h 7/23/2012 dwg - make tasm include file from binary buffer */ |
||||
|
|
||||
|
cvt2inc(buffer,length,name) |
||||
|
unsigned char * buffer; |
||||
|
int length; |
||||
|
char * name; |
||||
|
{ |
||||
|
FILE * fd; |
||||
|
int i,j,k,l; |
||||
|
char szTemp[32]; |
||||
|
fd = fopen(name,"w"); |
||||
|
fprintf(fd, |
||||
|
"; %s produced automatically by cvt2inc.h \n",name); |
||||
|
strcpy(szTemp,name); |
||||
|
szTemp[8] = 0; |
||||
|
fprintf(fd,"%s:\n",szTemp); |
||||
|
fprintf(fd," .DB "); |
||||
|
i = 0; |
||||
|
|
||||
|
for(i=0;i<length;i++) { |
||||
|
fprintf(fd,"%03xh",buffer[i]); |
||||
|
if(7 == (i&0x07)) { |
||||
|
fprintf(fd," ; "); |
||||
|
j = i & 0xfff8; |
||||
|
k = j + 8; |
||||
|
fprintf(fd," %04x: ",j); |
||||
|
|
||||
|
for(l=j;l<k;l++) { |
||||
|
if(1 == visible[buffer[l]]) { |
||||
|
fprintf(fd,"%c ",buffer[l]); |
||||
|
} else { |
||||
|
fprintf(fd,". "); |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
if(i != length-1) fprintf(fd,"\n .DB "); |
||||
|
|
||||
|
} else { |
||||
|
fprintf(fd,","); |
||||
|
} |
||||
|
} |
||||
|
fprintf(fd,"\n"); |
||||
|
fclose(fd); |
||||
|
} |
||||
|
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,229 @@ |
|||||
|
/* view.c 6/7/2012 dwg - */ |
||||
|
|
||||
|
#include "std.h" |
||||
|
/* #include "hbios.h" */ |
||||
|
#include "stdio.h" |
||||
|
#include "stdlib.h" |
||||
|
#include "memory.h" |
||||
|
#include "portab.h" |
||||
|
#define MAXDRIVE 8 |
||||
|
#include "cpm80.h" |
||||
|
#include "cpmappl.h" |
||||
|
#include "applvers.h" |
||||
|
|
||||
|
#include "trackio.h" |
||||
|
|
||||
|
#define DSM144 0x02C6 |
||||
|
#define DSM720 0x015E |
||||
|
#define DSM360 0x00AA |
||||
|
#define DSM120 0x024F |
||||
|
#define DSM111 0x0222 |
||||
|
|
||||
|
struct DPH * pDPH; |
||||
|
struct DPB * pDPB; |
||||
|
|
||||
|
unsigned char buffer[72*128]; |
||||
|
char gbFD[MAXDRIVE]; |
||||
|
char gFDNums[MAXDRIVE]; |
||||
|
char gNumFD; /* this value is set by the fdcount function */ |
||||
|
|
||||
|
/* the purpose of this function is to set the global variable
|
||||
|
gNumFD to the number of floppy drives detected, and to set |
||||
|
a boolean in the vector gbFD indicating the drive is present |
||||
|
the drive number of each one in the vector |
||||
|
*/ |
||||
|
|
||||
|
diomed(devunit) |
||||
|
unsigned char devunit; |
||||
|
{ |
||||
|
hregbc = 0x1300 + devunit; |
||||
|
diagnose(); |
||||
|
return hrega; |
||||
|
} |
||||
|
|
||||
|
sensefd() |
||||
|
{ |
||||
|
char device; |
||||
|
char unit; |
||||
|
char devunit; |
||||
|
|
||||
|
/* init local variables */ |
||||
|
char drive; |
||||
|
char result; |
||||
|
drive = 0; |
||||
|
result = 0; |
||||
|
|
||||
|
/* init global variables */ |
||||
|
gNumFD = 0; |
||||
|
memset(&gbFD,FALSE,MAXDRIVE); |
||||
|
memset(&gFDNums,0,MAXDRIVE); |
||||
|
/* for all valid drive numbers */ |
||||
|
while(0 == result) { |
||||
|
ireghl = pGETLU; |
||||
|
iregbc = drive; |
||||
|
bioscall(); |
||||
|
result = irega; |
||||
|
/* return from GETLU goes to 1 if drive # invalid */ |
||||
|
|
||||
|
devunit = iregbc >> 8; |
||||
|
device = devunit & 0xf0; |
||||
|
unit = devunit & 0x0f; |
||||
|
if(DEV_FD == device) { |
||||
|
gFDNums[gNumFD] = drive; |
||||
|
gbFD[gNumFD++] = iregbc & 0xff; |
||||
|
} |
||||
|
drive++; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
|
||||
|
int main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[] ; |
||||
|
{ |
||||
|
char drive; |
||||
|
int fd0,fd1; |
||||
|
int i; |
||||
|
int spt; |
||||
|
int track; |
||||
|
int tracks; |
||||
|
int bValid; |
||||
|
|
||||
|
sensefd(); |
||||
|
|
||||
|
if(2 != gNumFD) { |
||||
|
printf("Sorry, this version of diskcopy only supports dual drives"); |
||||
|
exit(FAILURE); |
||||
|
} |
||||
|
printf("The copy will be from drive %c: to drive %c:\n", |
||||
|
gFDNums[0]+'A',gFDNums[1]+'A'); |
||||
|
|
||||
|
printf("The media in FD0 is "); |
||||
|
fd0 = diomed(DEV_FD); |
||||
|
switch(fd0) { |
||||
|
case MID_NONE: |
||||
|
printf("Drive is empty"); |
||||
|
break; |
||||
|
case MID_MDROM: |
||||
|
printf("a memory ROM drive"); |
||||
|
break; |
||||
|
case MID_MDRAM: |
||||
|
printf("a memory RAM drive"); |
||||
|
break; |
||||
|
case MID_HD: |
||||
|
printf("an HD drive"); |
||||
|
break; |
||||
|
case MID_FD720: |
||||
|
printf("a 720KB floppy disk"); |
||||
|
tracks = 80 * 2; |
||||
|
break; |
||||
|
case MID_FD144: |
||||
|
printf("a 1.44MB floppy disk"); |
||||
|
tracks = 80 * 2; |
||||
|
break; |
||||
|
case MID_FD360: |
||||
|
printf("a 360KB floppy disk"); |
||||
|
tracks = 40 * 2; |
||||
|
break; |
||||
|
case MID_FD120: |
||||
|
printf("a 120KB floppy disk"); |
||||
|
tracks = 80 * 2; |
||||
|
break; |
||||
|
case MID_FD111: |
||||
|
printf("a 111KB floppy disk"); |
||||
|
tracks = 74 * 2; |
||||
|
break; |
||||
|
default: |
||||
|
printf("an unknown media type"); |
||||
|
break; |
||||
|
} |
||||
|
printf("\n"); |
||||
|
|
||||
|
|
||||
|
|
||||
|
printf("The media in FD1 is "); |
||||
|
fd1 = diomed(DEV_FD+1); |
||||
|
switch(fd1) { |
||||
|
case MID_NONE: |
||||
|
printf("Drive is empty"); |
||||
|
break; |
||||
|
case MID_MDROM: |
||||
|
printf("a memory ROM drive"); |
||||
|
break; |
||||
|
case MID_MDRAM: |
||||
|
printf("a memory RAM drive"); |
||||
|
break; |
||||
|
case MID_HD: |
||||
|
printf("an HD drive"); |
||||
|
break; |
||||
|
case MID_FD720: |
||||
|
printf("a 720KB floppy disk"); |
||||
|
break; |
||||
|
case MID_FD144: |
||||
|
printf("a 1.44MB floppy disk"); |
||||
|
break; |
||||
|
case MID_FD360: |
||||
|
printf("a 360KB floppy disk"); |
||||
|
break; |
||||
|
case MID_FD120: |
||||
|
printf("a 120KB floppy disk"); |
||||
|
break; |
||||
|
case MID_FD111: |
||||
|
printf("a 111KB floppy disk"); |
||||
|
break; |
||||
|
default: |
||||
|
printf("an unknown media type"); |
||||
|
break; |
||||
|
} |
||||
|
printf("\n"); |
||||
|
|
||||
|
if(fd0 != fd1) { |
||||
|
printf("Sorry, media types don't match, as required for diskcopy"); |
||||
|
exit(1); |
||||
|
} |
||||
|
|
||||
|
for(track=0;track<tracks;track++) { |
||||
|
|
||||
|
ireghl = pSELDSK; |
||||
|
iregbc = gFDNums[0]; /* G: */ |
||||
|
iregde = 0; |
||||
|
bioscall(); |
||||
|
pDPH = ireghl; |
||||
|
pDPB = pDPH->dpb; |
||||
|
spt = pDPB->spt; |
||||
|
ireghl = pSETTRK; |
||||
|
iregbc = track; |
||||
|
bioscall(); |
||||
|
printf("%3d ",track); |
||||
|
rdtrack(0,spt,buffer); |
||||
|
printf("%c",0x0d); |
||||
|
|
||||
|
bValid = FALSE; |
||||
|
for(i=0;i<spt*128;i++) { |
||||
|
if(0xe5 != buffer[i]) { |
||||
|
bValid = TRUE; |
||||
|
break; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
if(TRUE == bValid) { |
||||
|
|
||||
|
ireghl = pSELDSK; |
||||
|
iregbc = gFDNums[1]; /* G: */ |
||||
|
iregde = 0; |
||||
|
bioscall(); |
||||
|
pDPH = ireghl; |
||||
|
pDPB = pDPH->dpb; |
||||
|
spt = pDPB->spt; |
||||
|
ireghl = pSETTRK; |
||||
|
iregbc = track; /* Track 0 */ |
||||
|
bioscall(); |
||||
|
printf("%3d ",track); |
||||
|
wrtrack(0,spt,buffer); |
||||
|
printf("%c",0x0d); |
||||
|
|
||||
|
} |
||||
|
|
||||
|
} |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,12 @@ |
|||||
|
#include "stdio.h" |
||||
|
|
||||
|
main() |
||||
|
{ |
||||
|
FILE * fd; |
||||
|
fd = fopen("$$$.SUB","w"); |
||||
|
fprintf(fd,"%ca:getcfg\n",9); |
||||
|
fprintf(fd,"%ca:dump syscfg.bin\n",18); |
||||
|
fprintf(fd,"%ctype a:sect0000.h\n",17); |
||||
|
fclose(fd); |
||||
|
} |
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,101 @@ |
|||||
|
/* dump.c 7/11/2012 dwg -
|
||||
|
|
||||
|
The purpose of this program is similar to the CP/M dump program |
||||
|
except that in addition to the normal hexadecimal bytes, a field |
||||
|
of ascii bytes to the right are displayed as well. |
||||
|
|
||||
|
*/ |
||||
|
|
||||
|
#include "stdio.h" |
||||
|
|
||||
|
|
||||
|
char visible[256] = { |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 00 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 10 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 20 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 30 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 40 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 50 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 60 */ |
||||
|
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0, /* 70 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 80 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 90 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* A0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* B0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* C0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* D0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* E0 */ |
||||
|
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /* F0 */ |
||||
|
}; |
||||
|
|
||||
|
#include "cvt2h.h" |
||||
|
#include "cvt2inc.h" |
||||
|
|
||||
|
main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
int i,j; |
||||
|
int offset; |
||||
|
int result; |
||||
|
unsigned char byte; |
||||
|
unsigned char sector[128]; |
||||
|
char name[32]; |
||||
|
|
||||
|
|
||||
|
FILE * fd; |
||||
|
|
||||
|
banner("DUMP.COM"); |
||||
|
|
||||
|
/* cvt2h(0x0100,12*1024,"dumpcomh.h"); */ |
||||
|
|
||||
|
|
||||
|
if(1 == argc) { |
||||
|
printf("Sorry, no input file specified"); |
||||
|
exit(1); |
||||
|
} |
||||
|
|
||||
|
fd = fopen(argv[1],"r"); |
||||
|
if(NULL == fd) { |
||||
|
printf("Sorry, cannot open input file"); |
||||
|
exit(1); |
||||
|
} |
||||
|
|
||||
|
printf("Dumping %s\n\n",argv[1]); |
||||
|
|
||||
|
offset = 0; |
||||
|
result = fread(sector,sizeof(sector),1,fd); |
||||
|
while(0 < result) { |
||||
|
|
||||
|
sprintf(name,"sect%04x.h",offset); |
||||
|
cvt2h(sector,sizeof(sector),name); |
||||
|
sprintf(name,"sect%04x.inc",offset); |
||||
|
cvt2inc(sector,sizeof(sector),name); |
||||
|
|
||||
|
for(i=0;i<8;i++) { |
||||
|
printf("%04x: ",offset); |
||||
|
|
||||
|
|
||||
|
offset += 16; |
||||
|
for(j=0;j<16;j++) { |
||||
|
printf("%02x ",sector[(i*8)+j]); |
||||
|
} |
||||
|
printf(" "); |
||||
|
for(j=0;j<16;j++) { |
||||
|
byte = sector[(i*8)+j]; |
||||
|
if(1 == visible[byte]) { |
||||
|
printf("%c",byte); |
||||
|
} else { |
||||
|
printf("."); |
||||
|
} |
||||
|
} |
||||
|
printf("\n"); |
||||
|
} |
||||
|
printf("\n"); |
||||
|
result = fread(sector,sizeof(sector),1,fd); |
||||
|
} |
||||
|
fclose(fd); |
||||
|
|
||||
|
exit(0); |
||||
|
} |
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,108 @@ |
|||||
|
; dumpmac.asm 2/1/2012 dwg - dump macro, declaration and implementation |
||||
|
|
||||
|
maclib portab |
||||
|
maclib globals |
||||
|
maclib hardware |
||||
|
maclib z80 |
||||
|
maclib cpmbdos |
||||
|
maclib printers |
||||
|
|
||||
|
cseg |
||||
|
|
||||
|
; e=char on entry |
||||
|
public x$pr$vis |
||||
|
x$pr$vis: |
||||
|
enter |
||||
|
lxi h,x$visibool |
||||
|
mvi d,0 |
||||
|
dad d |
||||
|
mov a,m |
||||
|
cpi 0 |
||||
|
jz do$dot |
||||
|
mvi c,2 |
||||
|
call BDOS |
||||
|
jmp x$pr$fini |
||||
|
do$dot: |
||||
|
conout '.' |
||||
|
x$pr$fini: |
||||
|
leave |
||||
|
ret |
||||
|
|
||||
|
public x$dump |
||||
|
x$dump: shld x$dump$tmp |
||||
|
call pr$h$word |
||||
|
conout ':' |
||||
|
conout ' ' |
||||
|
mvi b,16 |
||||
|
x$d$lp1: |
||||
|
mov a,m |
||||
|
inx h |
||||
|
xchg |
||||
|
mov l,a |
||||
|
call pr$h$byte |
||||
|
conout ' ' |
||||
|
xchg |
||||
|
dcr b |
||||
|
jnz x$d$lp1 |
||||
|
conout ' ' |
||||
|
conout ' ' |
||||
|
mvi b,16 |
||||
|
lhld x$dump$tmp |
||||
|
x$d$lp2: |
||||
|
mov a,m |
||||
|
inx h |
||||
|
mov e,a |
||||
|
call x$pr$vis |
||||
|
dcr b |
||||
|
jnz x$d$lp2 |
||||
|
conout CR |
||||
|
conout LF |
||||
|
lhld x$dump$tmp |
||||
|
ret |
||||
|
|
||||
|
|
||||
|
; display a number of lines of sixteen bytes in hex with leading address |
||||
|
; and ascii |
||||
|
public x$dump$multi |
||||
|
x$dump$multi: |
||||
|
push h ; save display address in case x$dump changes it |
||||
|
call x$dump ; call actual dump routine for 16 bytes |
||||
|
pop h ; restore display address |
||||
|
lxi d,16 ; get ready to increment it by 16 bytes |
||||
|
dad d ; here we go, HL = new load address |
||||
|
dcr c ; decrement line counter |
||||
|
jnz x$dump$multi ; do more as necessary |
||||
|
ret |
||||
|
|
||||
|
|
||||
|
dseg |
||||
|
|
||||
|
x$dump$tmp ds 2 |
||||
|
|
||||
|
public x$visibool |
||||
|
x$visibool: |
||||
|
; 0 1 2 3 4 5 6 7 8 9 A B C D E F |
||||
|
; - - - - - - - - - - - - - - - - |
||||
|
vb$00 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$10 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$20 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ; "#$%&'()*+,-./ |
||||
|
vb$30 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ;0123456789:;<=>? |
||||
|
vb$40 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ;@ABCDEFGHIJKLMNO |
||||
|
vb$50 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ;PQRSTUVWXYZ[\]^_ |
||||
|
vb$60 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ;`abcdefghijklmno |
||||
|
vb$70 db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 ;pqrstuvwxyz{|}~ |
||||
|
vb$80 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$90 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$a0 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$b0 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$c0 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$d0 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$e0 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
vb$f0 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |
||||
|
|
||||
|
; eof - dumpmac.asm |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
@ -0,0 +1,367 @@ |
|||||
|
extrn .begin,.chl,.swt |
||||
|
extrn csave,cret,.move |
||||
|
PUBLIC vdaini_ |
||||
|
vdaini_: lxi d,.2 |
||||
|
call csave |
||||
|
LXI H,8-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,16384 |
||||
|
CALL .or |
||||
|
SHLD hregbc_ |
||||
|
LXI H,10-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
SHLD hregde_ |
||||
|
LXI H,12-.2 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
SHLD hreghl_ |
||||
|
CALL diagnose_ |
||||
|
LDA hrega_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
RET |
||||
|
.2 EQU 0 |
||||
|
PUBLIC bitlook_ |
||||
|
bitlook_: lxi d,.3 |
||||
|
call csave |
||||
|
LXI H,-32768 |
||||
|
XCHG |
||||
|
LXI H,2-.3 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,0-.3 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .5 |
||||
|
.4: |
||||
|
LXI H,0-.3 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.5: |
||||
|
LXI H,0-.3 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,256 |
||||
|
CALL .lt |
||||
|
JZ .6 |
||||
|
LXI H,0-.3 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
PUSH D |
||||
|
LXI H,.1+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-2-.3 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .8 |
||||
|
.7: |
||||
|
LXI H,-2-.3 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.8: |
||||
|
LXI H,-2-.3 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,8 |
||||
|
CALL .lt |
||||
|
JZ .9 |
||||
|
LXI H,2-.3 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
XCHG |
||||
|
DCX H |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
PUSH D |
||||
|
LXI H,.1+16 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .7 |
||||
|
.9: |
||||
|
LXI H,.1+24 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
JMP .4 |
||||
|
.6: |
||||
|
RET |
||||
|
.3 EQU -6 |
||||
|
.1: |
||||
|
DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32 |
||||
|
DB 0,48,120,37,48,50,120,32,0,10,0 |
||||
|
PUBLIC vdaqry_ |
||||
|
vdaqry_: lxi d,.11 |
||||
|
call csave |
||||
|
LXI H,8-.11 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,16640 |
||||
|
CALL .or |
||||
|
SHLD hregbc_ |
||||
|
LXI H,10-.11 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
SHLD hreghl_ |
||||
|
CALL diagnose_ |
||||
|
LDA hrega_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
RET |
||||
|
.11 EQU 0 |
||||
|
PUBLIC flip_ |
||||
|
flip_: lxi d,.12 |
||||
|
call csave |
||||
|
LXI H,-32768 |
||||
|
PUSH H |
||||
|
LXI H,64 |
||||
|
PUSH H |
||||
|
CALL vdaqry_ |
||||
|
POP D |
||||
|
POP D |
||||
|
XCHG |
||||
|
LXI H,-3-.12 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,-32768 |
||||
|
XCHG |
||||
|
LXI H,2-.12 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,-1-.12 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .14 |
||||
|
.13: |
||||
|
LXI H,-1-.12 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.14: |
||||
|
LXI H,-1-.12 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
LXI H,2048 |
||||
|
CALL .lt |
||||
|
JZ .15 |
||||
|
LXI H,2-.12 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
MOV E,M |
||||
|
LXI H,1-.12 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
LXI H,1-.12 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
MVI D,0 |
||||
|
LXI H,255 |
||||
|
CALL .xr |
||||
|
XCHG |
||||
|
LXI H,1-.12 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
LXI H,1-.12 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
PUSH D |
||||
|
LXI H,4-.12 |
||||
|
DAD SP |
||||
|
MOV E,M |
||||
|
INX H |
||||
|
MOV D,M |
||||
|
XCHG |
||||
|
POP D |
||||
|
MOV M,E |
||||
|
LXI H,2-.12 |
||||
|
DAD SP |
||||
|
PUSH H |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
INX H |
||||
|
XCHG |
||||
|
POP H |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .13 |
||||
|
.15: |
||||
|
LXI H,-32768 |
||||
|
PUSH H |
||||
|
LXI H,0 |
||||
|
PUSH H |
||||
|
LXI H,64 |
||||
|
PUSH H |
||||
|
CALL vdaini_ |
||||
|
POP D |
||||
|
POP D |
||||
|
POP D |
||||
|
RET |
||||
|
.12 EQU -7 |
||||
|
PUBLIC main_ |
||||
|
main_: lxi d,.16 |
||||
|
call csave |
||||
|
LXI H,1 |
||||
|
XCHG |
||||
|
LXI H,2-.16 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
.17: |
||||
|
LXI H,1 |
||||
|
XCHG |
||||
|
LXI H,2-.16 |
||||
|
DAD SP |
||||
|
MOV A,M |
||||
|
INX H |
||||
|
MOV H,M |
||||
|
MOV L,A |
||||
|
CALL .eq |
||||
|
JZ .18 |
||||
|
LXI H,1 |
||||
|
SHLD dregbc_ |
||||
|
CALL bdoscall_ |
||||
|
LDA drega_ |
||||
|
MOV L,A |
||||
|
MVI H,0 |
||||
|
JMP .19 |
||||
|
.21: |
||||
|
CALL flip_ |
||||
|
JMP .20 |
||||
|
.22: |
||||
|
LXI H,0 |
||||
|
XCHG |
||||
|
LXI H,2-.16 |
||||
|
DAD SP |
||||
|
MOV M,E |
||||
|
INX H |
||||
|
MOV M,D |
||||
|
JMP .20 |
||||
|
.23: |
||||
|
LXI H,7 |
||||
|
PUSH H |
||||
|
LXI H,.10+0 |
||||
|
PUSH H |
||||
|
CALL printf_ |
||||
|
POP D |
||||
|
POP D |
||||
|
JMP .20 |
||||
|
.19: |
||||
|
CALL .swt |
||||
|
DW 2 |
||||
|
DW 3,.22 |
||||
|
DW 102,.21 |
||||
|
DW .23 |
||||
|
.20: |
||||
|
JMP .17 |
||||
|
.18: |
||||
|
CALL flip_ |
||||
|
RET |
||||
|
.16 EQU -2 |
||||
|
.10: |
||||
|
DB 37,99,0 |
||||
|
extrn printf_ |
||||
|
extrn bdoscall_ |
||||
|
extrn dregbc_ |
||||
|
extrn drega_ |
||||
|
extrn diagnose_ |
||||
|
extrn hreghl_ |
||||
|
extrn hregde_ |
||||
|
extrn hregbc_ |
||||
|
extrn hrega_ |
||||
|
extrn .or |
||||
|
extrn .xr |
||||
|
extrn .eq |
||||
|
extrn .lt |
||||
|
END |
||||
|
|
||||
@ -0,0 +1,103 @@ |
|||||
|
/* editor.c 11/18/2012 dwg - */ |
||||
|
|
||||
|
|
||||
|
#include "std.h" |
||||
|
#include "applvers.h" |
||||
|
#include "diagnose.h" |
||||
|
#include "cpmbdos.h" |
||||
|
#include "cpmbios.h" |
||||
|
#include "bdoscall.h" |
||||
|
|
||||
|
|
||||
|
#define VDA_N8 4 |
||||
|
#define VDAINI 0x40 |
||||
|
#define VDAQRY 0x41 |
||||
|
#define VDARES 0x42 |
||||
|
#define VDASCS 0x43 |
||||
|
|
||||
|
|
||||
|
int vdaini(devunit,vidmode,bitmapp) |
||||
|
unsigned int devunit; |
||||
|
unsigned int vidmode; |
||||
|
unsigned int bitmapp; |
||||
|
{ |
||||
|
hregbc = (VDAINI << 8) | devunit; |
||||
|
hregde = vidmode; |
||||
|
hreghl = bitmapp; |
||||
|
diagnose(); |
||||
|
return hrega; |
||||
|
} |
||||
|
|
||||
|
|
||||
|
bitlook() |
||||
|
{ |
||||
|
unsigned char *p; |
||||
|
int ascii,row; |
||||
|
|
||||
|
p = 0x8000; |
||||
|
for(ascii=0;ascii<256;ascii++) { |
||||
|
printf("ascii = 0x%02x ",ascii); |
||||
|
for(row=0l;row<8;row++) { |
||||
|
printf("0x%02x ",*p++); |
||||
|
} |
||||
|
printf("\n"); |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
|
||||
|
int vdaqry(devunit,bitmapp) |
||||
|
unsigned int devunit; |
||||
|
unsigned int bitmapp; |
||||
|
{ |
||||
|
hregbc = (VDAQRY << 8) | devunit; |
||||
|
hreghl = bitmapp; |
||||
|
diagnose(); |
||||
|
return hrega; |
||||
|
} |
||||
|
|
||||
|
|
||||
|
flip() |
||||
|
{ |
||||
|
unsigned char * p; |
||||
|
unsigned char byte; |
||||
|
int offs; |
||||
|
int retcode; |
||||
|
|
||||
|
retcode = vdaqry(VDA_N8 << 4,0x8000); |
||||
|
|
||||
|
p = 0x8000; |
||||
|
for(offs=0;offs<256*8;offs++) { |
||||
|
byte = *p; |
||||
|
byte = byte ^ 255; |
||||
|
*p = byte; |
||||
|
p++; |
||||
|
} |
||||
|
|
||||
|
/* bitlook(); */ |
||||
|
|
||||
|
vdaini(VDA_N8 << 4, 0, 0x8000); |
||||
|
} |
||||
|
|
||||
|
|
||||
|
int main(argc,argv) |
||||
|
int argc; |
||||
|
char *argv[]; |
||||
|
{ |
||||
|
int bRunning; |
||||
|
|
||||
|
bRunning = 1; |
||||
|
while(1 == bRunning) { |
||||
|
|
||||
|
crtlc ( |
||||
|
dregbc = 1; |
||||
|
bdoscall(); |
||||
|
switch(drega) { |
||||
|
case 'f': flip(); break; |
||||
|
case 3: bRunning = 0; break; |
||||
|
default: printf("%c",7); break; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
flip(); |
||||
|
} |
||||
|
|
||||
@ -0,0 +1,6 @@ |
|||||
|
cc editor |
||||
|
as editor |
||||
|
as bdoscall |
||||
|
as diagnose |
||||
|
ln editor.o bdoscall.o diagnose.o -lc |
||||
|
|
||||
@ -0,0 +1 @@ |
|||||
|
nulu submits.lbr -e $1.sub -x |
||||
@ -0,0 +1,4 @@ |
|||||
|
cc remote |
||||
|
as remote |
||||
|
ln remote.o bdoscall.o ctermcap.o n8chars.o tms9918.o diagnose.o -lc |
||||
|
|
||||
@ -0,0 +1,8 @@ |
|||||
|
#define O_RDONLY 0 |
||||
|
#define O_WRONLY 1 |
||||
|
#define O_RDWR 2 |
||||
|
#define O_CREAT 0x0100 |
||||
|
#define O_TRUNC 0x0200 |
||||
|
#define O_EXCL 0x0400 |
||||
|
#define O_APPEND 0x0800 |
||||
|
|
||||
@ -0,0 +1,12 @@ |
|||||
|
; ffsetlu.lib 1/24/2012 dwg - |
||||
|
ffgetlu macro |
||||
|
mvi c,RETCURR |
||||
|
call BDOS |
||||
|
mov c,a |
||||
|
call BISELDSK |
||||
|
lxi d,16+2 |
||||
|
dad d |
||||
|
mov a,m |
||||
|
endm |
||||
|
; eof - ffsetlu |
||||
|
|
||||
@ -0,0 +1,25 @@ |
|||||
|
; ffhaslu.lib 1/22/2012 dwg - macro to detect drive with logical unit support |
||||
|
|
||||
|
ffhaslu macro |
||||
|
local ret$false,fini |
||||
|
mvi c,RETCURR |
||||
|
call BDOS |
||||
|
mov c,a |
||||
|
call BISELDSK |
||||
|
lxi d,16 ; offset to end of DPH |
||||
|
dad d ; calc offset of 1st signature byte |
||||
|
mov a,m ; pick up first sig byte which s/b 'L' |
||||
|
cpi 'L' |
||||
|
jnz ret$false ; if it wasn't, indicate to caller no LU |
||||
|
inx h ; bump ptr to 2nd signature byte |
||||
|
mov a,m ; pick up second sig byte which s/b 'U' |
||||
|
cpi 'U' |
||||
|
jnz ret$false ; if it wasn't, indicate to caller no LU |
||||
|
mvi a,TRUE ; otherwise indicate presence of LU support |
||||
|
jmp fini ; finish up macro |
||||
|
ret$false: |
||||
|
mvi a,FALSE ; prepare negative response for caller |
||||
|
fini: |
||||
|
endm |
||||
|
|
||||
|
|
||||
@ -0,0 +1,13 @@ |
|||||
|
; ffnumlu.lib 1/22/2012 dwg - macro to get number of logical units |
||||
|
|
||||
|
ffnumlu macro |
||||
|
mvi c,RETCURR |
||||
|
call BDOS |
||||
|
mov c,a |
||||
|
call BISELDSK |
||||
|
lxi d,16+2+2 ; offset to end of DPH |
||||
|
dad d ; calc offset of 1st signature byte |
||||
|
mov a,m |
||||
|
endm |
||||
|
|
||||
|
; eof - ffnumlu.lib |
||||
@ -0,0 +1,22 @@ |
|||||
|
; ffsetlu.lib 2/12/2012 dwg - review for use in superfmt |
||||
|
; ffsetlu.lib 1/24/2012 dwg - |
||||
|
|
||||
|
; enter with desired LU in A reg |
||||
|
ffsetlu macro |
||||
|
enter |
||||
|
push psw |
||||
|
mvi c,RETCURR |
||||
|
call BDOS |
||||
|
mov c,a |
||||
|
call BISELDSK ; uses c parameter (drive) |
||||
|
lxi d,16+2 |
||||
|
dad d |
||||
|
pop psw |
||||
|
mov m,a ; put slice into CURRENT |
||||
|
mvi c,13 |
||||
|
call BDOS |
||||
|
leave |
||||
|
endm |
||||
|
|
||||
|
; eof - ffsetlu |
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,12 @@ |
|||||
|
rem findfile.sub 9/5/2012 dwg - make findfile.com from sources |
||||
|
if not exist findfile.rel z80mu rmac findfile |
||||
|
if not exist printers.rel z80mu rmac printers |
||||
|
if not exist terminal.rel z80mu rmac terminal |
||||
|
if not exist memory.rel z80mu rmac memory |
||||
|
if not exist banner.rel z80mu rmac banner |
||||
|
if not exist identity.rel z80mu rmac identity |
||||
|
if not exist hbios.rel z80mu rmac hbios |
||||
|
if not exist findfile.cpm z80mu link findfile,hbios,identity,banner,memory,printers,terminal |
||||
|
if not exist findfile.cpm copy findfile.com findfile.cpm |
||||
|
dir findfile.cpm |
||||
|
|
||||
Some files were not shown because too many files changed in this diff
Loading…
Reference in new issue