Merge pull request #1846 from nanochess/master
Removed non-bug of 2006/toledo2 and non-used files
This commit is contained in:
235 files changed
-14141
No files matched your search
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large.
Load diff
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,135 +0,0 @@
|
||||
|
||||
MISSING MISSING MISSING MISSING MISSING
|
||||
Adams, Susan Edmunds, Susie Magee, Sharon
|
||||
Andersen, Carol Elliot, Bonnie Mahan, Marcus
|
||||
Anderson, Betty Jo Ellis, Robert Markussen, Einer
|
||||
Anderson, Bill Evans, James Martin, Judy
|
||||
Arnold, Lois Martin, Larry
|
||||
Avila, Edward Fisher, Charles Martin, Phil
|
||||
Ayers, Deanna Fleming, Billie Martin, Terri
|
||||
Fleming, Bonnie Matthews, Allen
|
||||
Baines, Sharon Flores, Grace McCabe, Ray
|
||||
Bales, Bob Ford, Nancy McClain, Phyllis
|
||||
Barden, Gary Franze, Brent McCusker, Marianne
|
||||
Barnes, Bruce Frendandes, Marlyene McDonald, Jerry
|
||||
Barnett, Lyn McKee, Greg
|
||||
Barstow, Dennis Galman, Jean McKenna, Terry
|
||||
Beck, Michael Garcia, Kathy VonDuring McKennon, Trudy
|
||||
Bishop, Russell Garner, Joan Means, Kathie
|
||||
Blodgett, Eleanor Gilles, Darlene Meyer, Ellen
|
||||
Blount, Mike Giordano, Ben Middleton, Elaine
|
||||
Boirun, Sharon Graham, Bill Miller, Janet
|
||||
Bowyer, Dennis N. Greene, Albert Mills, Tom
|
||||
Brandon, Pamela Greene, James Minich, Marilyn
|
||||
Bretz, Timothy Grover, Doug Mirabal, Robert
|
||||
Brinton, Linda Montavon, Vicky Garvey
|
||||
Brooks, Maureen Haechner, Virginia Moormann, Mary
|
||||
Bryan, Jerald Haley, Ted Mueller, Bob
|
||||
Burdette, Melinda Hall, Larry
|
||||
Burge, Ron Halloran, Lana Newton, Archie
|
||||
Burnette, Suzanne Hankins, James Newtson, Lila
|
||||
Hanson, Craig Nichols, Terry
|
||||
Cable, William Hart, Donald
|
||||
Callum, Susie Hiestand, Mike Oliver, Mike
|
||||
Calvert, Keith Higgens, Jeanne Orlowski, Christine
|
||||
Card, Ronald Hoffman, Dennis
|
||||
Chase, Manetta Holman, Candy Pederson, Kelly
|
||||
Chisholm, Neil Hoskins, Susan Perry, John
|
||||
Christopher, Bob Huff, Roberta Pinkstaff, Bob
|
||||
Cifarelli, Ed Huth, Greg
|
||||
Cleare, Carol Hyman, Nancy Raines, Don
|
||||
Coates, Jim Hynes, Tom Ramsey, Patty
|
||||
Corey, Steve Reagan, John
|
||||
Courson, Judy Johnson, Donna Reynolds, Frances
|
||||
Creamer, Russell Johnson, Judith Robben, Sheila
|
||||
Crook, Ken Johnson, Laura Robinson, Linda
|
||||
Crothers, Brian Johnson, William Ross, John
|
||||
Crowson, Connie Jones, Brenda McCollough Rowe, Ted
|
||||
Cullum, Pat Jones, Cynthia Rowell, Wendy
|
||||
Curran, Alberta Jones, Edith Rowland, Donna
|
||||
Jones, Linda Rutledge, Randy
|
||||
Dalton, Patty
|
||||
Danis, Jeff Keating, Donald Sanders, Jim
|
||||
Darrigan, Patty Kephart, Carol Sanders, Linda
|
||||
Davis, Bob Kingston, Victoria Sanford, Sue
|
||||
DeBaca, Daniel Kuebler, Cheryl Schaffer, Kathy
|
||||
DeMey, Mike Schaub, Pam
|
||||
Dias, Birdie Lang, Jim Schroeder, Bob
|
||||
Dickerson, Norma Lewis, Peggy Doutre Schulte, Ann
|
||||
Dobson, Ziona Locklear, Alan Schultz, Sandy
|
||||
Drafts, Danny Logan, Linda Schumacher, Roxann
|
||||
Duffy, Happy Loomis, Scott Scott, John
|
||||
Duncan, Betty Lorentz, William Seward, Kathleen
|
||||
Dunn, Jim Lowry, Byron Shand, Linda Anderson
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
MISSING MISSING MISSING MISSING MISSING
|
||||
Sheckells, Charles Valdivia, Carmen
|
||||
Silvey, Maxine Vanderliden, John
|
||||
Simon, Bob Vaughan, James
|
||||
Skelton, Susan Vaughn, Connie
|
||||
Slavinski, Joanne Villa, Emma
|
||||
Sloan, Linda
|
||||
Smelser, Steve Wachsman, Camelia
|
||||
Sonsag, Leona Walters, Frances
|
||||
Sowells, Loraine Warman, Chadwick
|
||||
Spears, Joyce Webber, Mike
|
||||
Stevens, Barbara Webster, Dick
|
||||
Stewart, Peggy Westerly, John
|
||||
Stitt, James Whary, Penney
|
||||
Stokes, Stephens Wheeler, Gary
|
||||
Stuart, Jacquelyn Whiddon, Susan
|
||||
Swayze, Ed White, Lawrence
|
||||
Swinson, Sheryl Whiting, Bill
|
||||
Wiener, Bruce
|
||||
Tackwell, Harold Wilkason, Sharon
|
||||
Taylor, Carolyn Williams, Janet
|
||||
Taylor, Pattie Williams, Rae
|
||||
Thomas, Linda Williams, Roy
|
||||
Thomas, Stephanie Wilson, John
|
||||
Thompson, Carol Wilson, Kent
|
||||
Thompson, Sandra Wood, Larry
|
||||
Tomkinson, Linda Woodruff, Craig
|
||||
Topping, Patty Wyant, Gorden
|
||||
Towner, Marilyn Wyman, Judy
|
||||
Trabalka, Michael
|
||||
T'Sas, Joyce Youngblood, Barbara
|
||||
|
||||
Ziarnick, Jacqueline
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,48 +0,0 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ 1,1 SAY 'PROFESSION'
|
||||
@ 1,30 SAY 'EDUCATION'
|
||||
@ 1,85 SAY 'EMPLOYERS'
|
||||
@ 1,140 SAY 'OUTLOOK'
|
||||
DO WHILE .NOT. EOF
|
||||
@ 1,1 SAY NAME
|
||||
@ 2,30 SAY EDUCATION
|
||||
@ 2,85 SAY EMPLOYERS
|
||||
@ 2,130 SAY OUTLOOK
|
||||
*
|
||||
*
|
||||
*
|
||||
ERASE
|
||||
SKIP
|
||||
ENDDO
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
th generally predicted 40hr, expec. otgeneral employer benefits Mechanic
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,215 +0,0 @@
|
||||
; FILE DUMP PROGRAM, READS AN INPUT FILE AND PRINTS IN HEX
|
||||
;
|
||||
; COPYRIGHT (C) 1975, 1976, 1977, 1978
|
||||
; DIGITAL RESEARCH
|
||||
; BOX 579, PACIFIC GROVE
|
||||
; CALIFORNIA, 93950
|
||||
;
|
||||
ORG 100H
|
||||
BDOS EQU 0005H ;DOS ENTRY POINT
|
||||
CONS EQU 1 ;READ CONSOLE
|
||||
TYPEF EQU 2 ;TYPE FUNCTION
|
||||
PRINTF EQU 9 ;BUFFER PRINT ENTRY
|
||||
BRKF EQU 11 ;BREAK KEY FUNCTION (TRUE IF CHAR READY)
|
||||
OPENF EQU 15 ;FILE OPEN
|
||||
READF EQU 20 ;READ FUNCTION
|
||||
;
|
||||
FCB EQU 5CH ;FILE CONTROL BLOCK ADDRESS
|
||||
BUFF EQU 80H ;INPUT DISK BUFFER ADDRESS
|
||||
;
|
||||
; NON GRAPHIC CHARACTERS
|
||||
CR EQU 0DH ;CARRIAGE RETURN
|
||||
LF EQU 0AH ;LINE FEED
|
||||
;
|
||||
; FILE CONTROL BLOCK DEFINITIONS
|
||||
FCBDN EQU FCB+0 ;DISK NAME
|
||||
FCBFN EQU FCB+1 ;FILE NAME
|
||||
FCBFT EQU FCB+9 ;DISK FILE TYPE (3 CHARACTERS)
|
||||
FCBRL EQU FCB+12 ;FILE'S CURRENT REEL NUMBER
|
||||
FCBRC EQU FCB+15 ;FILE'S RECORD COUNT (0 TO 128)
|
||||
FCBCR EQU FCB+32 ;CURRENT (NEXT) RECORD NUMBER (0 TO 127)
|
||||
FCBLN EQU FCB+33 ;FCB LENGTH
|
||||
;
|
||||
; SET UP STACK
|
||||
LXI H,0
|
||||
DAD SP
|
||||
; ENTRY STACK POINTER IN HL FROM THE CCP
|
||||
SHLD OLDSP
|
||||
; SET SP TO LOCAL STACK AREA (RESTORED AT FINIS)
|
||||
LXI SP,STKTOP
|
||||
; READ AND PRINT SUCCESSIVE BUFFERS
|
||||
CALL SETUP ;SET UP INPUT FILE
|
||||
CPI 255 ;255 IF FILE NOT PRESENT
|
||||
JNZ OPENOK ;SKIP IF OPEN IS OK
|
||||
;
|
||||
; FILE NOT THERE, GIVE ERROR MESSAGE AND RETURN
|
||||
LXI D,OPNMSG
|
||||
CALL ERR
|
||||
JMP FINIS ;TO RETURN
|
||||
;
|
||||
OPENOK: ;OPEN OPERATION OK, SET BUFFER INDEX TO END
|
||||
MVI A,80H
|
||||
STA IBP ;SET BUFFER POINTER TO 80H
|
||||
; HL CONTAINS NEXT ADDRESS TO PRINT
|
||||
LXI H,0 ;START WITH 0000
|
||||
;
|
||||
GLOOP:
|
||||
PUSH H ;SAVE LINE POSITION
|
||||
CALL GNB
|
||||
POP H ;RECALL LINE POSITION
|
||||
JC FINIS ;CARRY SET BY GNB IF END FILE
|
||||
MOV B,A
|
||||
; PRINT HEX VALUES
|
||||
; CHECK FOR LINE FOLD
|
||||
MOV A,L
|
||||
ANI 0FH ;CHECK LOW 4 BITS
|
||||
JNZ NONUM
|
||||
; PRINT LINE NUMBER
|
||||
CALL CRLF
|
||||
;
|
||||
; CHECK FOR BREAK KEY
|
||||
CALL BREAK
|
||||
; ACCUM LSB = 1 IF CHARACTER READY
|
||||
RRC ;INTO CARRY
|
||||
JC FINIS ;DON'T PRINT ANY MORE
|
||||
;
|
||||
MOV A,H
|
||||
CALL PHEX
|
||||
MOV A,L
|
||||
CALL PHEX
|
||||
NONUM:
|
||||
INX H ;TO NEXT LINE NUMBER
|
||||
MVI A,' '
|
||||
CALL PCHAR
|
||||
MOV A,B
|
||||
CALL PHEX
|
||||
JMP GLOOP
|
||||
;
|
||||
FINIS:
|
||||
; END OF DUMP, RETURN TO CCP
|
||||
; (NOTE THAT A JMP TO 0000H REBOOTS)
|
||||
CALL CRLF
|
||||
LHLD OLDSP
|
||||
SPHL
|
||||
; STACK POINTER CONTAINS CCP'S STACK LOCATION
|
||||
RET ;TO THE CCP
|
||||
;
|
||||
;
|
||||
; SUBROUTINES
|
||||
;
|
||||
BREAK: ;CHECK BREAK KEY (ACTUALLY ANY KEY WILL DO)
|
||||
PUSH H! PUSH D! PUSH B; ENVIRONMENT SAVED
|
||||
MVI C,BRKF
|
||||
CALL BDOS
|
||||
POP B! POP D! POP H; ENVIRONMENT RESTORED
|
||||
RET
|
||||
;
|
||||
PCHAR: ;PRINT A CHARACTER
|
||||
PUSH H! PUSH D! PUSH B; SAVED
|
||||
MVI C,TYPEF
|
||||
MOV E,A
|
||||
CALL BDOS
|
||||
POP B! POP D! POP H; RESTORED
|
||||
RET
|
||||
;
|
||||
CRLF:
|
||||
MVI A,CR
|
||||
CALL PCHAR
|
||||
MVI A,LF
|
||||
CALL PCHAR
|
||||
RET
|
||||
;
|
||||
;
|
||||
PNIB: ;PRINT NIBBLE IN REG A
|
||||
ANI 0FH ;LOW 4 BITS
|
||||
CPI 10
|
||||
JNC P10
|
||||
; LESS THAN OR EQUAL TO 9
|
||||
ADI '0'
|
||||
JMP PRN
|
||||
;
|
||||
; GREATER OR EQUAL TO 10
|
||||
P10: ADI 'A' - 10
|
||||
PRN: CALL PCHAR
|
||||
RET
|
||||
;
|
||||
PHEX: ;PRINT HEX CHAR IN REG A
|
||||
PUSH PSW
|
||||
RRC
|
||||
RRC
|
||||
RRC
|
||||
RRC
|
||||
CALL PNIB ;PRINT NIBBLE
|
||||
POP PSW
|
||||
CALL PNIB
|
||||
RET
|
||||
;
|
||||
ERR: ;PRINT ERROR MESSAGE
|
||||
; D,E ADDRESSES MESSAGE ENDING WITH "$"
|
||||
MVI C,PRINTF ;PRINT BUFFER FUNCTION
|
||||
CALL BDOS
|
||||
RET
|
||||
;
|
||||
;
|
||||
GNB: ;GET NEXT BYTE
|
||||
LDA IBP
|
||||
CPI 80H
|
||||
JNZ G0
|
||||
; READ ANOTHER BUFFER
|
||||
;
|
||||
;
|
||||
CALL DISKR
|
||||
ORA A ;ZERO VALUE IF READ OK
|
||||
JZ G0 ;FOR ANOTHER BYTE
|
||||
; END OF DATA, RETURN WITH CARRY SET FOR EOF
|
||||
STC
|
||||
RET
|
||||
;
|
||||
G0: ;READ THE BYTE AT BUFF+REG A
|
||||
MOV E,A ;LS BYTE OF BUFFER INDEX
|
||||
MVI D,0 ;DOUBLE PRECISION INDEX TO DE
|
||||
INR A ;INDEX=INDEX+1
|
||||
STA IBP ;BACK TO MEMORY
|
||||
; POINTER IS INCREMENTED
|
||||
; SAVE THE CURRENT FILE ADDRESS
|
||||
LXI H,BUFF
|
||||
DAD D
|
||||
; ABSOLUTE CHARACTER ADDRESS IS IN HL
|
||||
MOV A,M
|
||||
; BYTE IS IN THE ACCUMULATOR
|
||||
ORA A ;RESET CARRY BIT
|
||||
RET
|
||||
;
|
||||
SETUP: ;SET UP FILE
|
||||
; OPEN THE FILE FOR INPUT
|
||||
XRA A ;ZERO TO ACCUM
|
||||
STA FCBCR ;CLEAR CURRENT RECORD
|
||||
;
|
||||
LXI D,FCB
|
||||
MVI C,OPENF
|
||||
CALL BDOS
|
||||
; 255 IN ACCUM IF OPEN ERROR
|
||||
RET
|
||||
;
|
||||
DISKR: ;READ DISK FILE RECORD
|
||||
PUSH H! PUSH D! PUSH B
|
||||
LXI D,FCB
|
||||
MVI C,READF
|
||||
CALL BDOS
|
||||
POP B! POP D! POP H
|
||||
RET
|
||||
;
|
||||
; FIXED MESSAGE AREA
|
||||
SIGNON: DB 'FILE DUMP VERSION 1.4$'
|
||||
OPNMSG: DB CR,LF,'NO INPUT FILE PRESENT ON DISK$'
|
||||
|
||||
; VARIABLE AREA
|
||||
IBP: DS 2 ;INPUT BUFFER POINTER
|
||||
OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP
|
||||
;
|
||||
; STACK AREA
|
||||
DS 64 ;RESERVE 32 LEVEL STACK
|
||||
STKTOP:
|
||||
;
|
||||
END
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,274 +0,0 @@
|
||||
title KAYPRO CBIOS for CP/M 2.2
|
||||
;###############################################################
|
||||
;## KAYPRO CBIOS for CP/M 2.2 ##
|
||||
;## Copyright (C) 1982 By Non-Linear Systems, Inc. ##
|
||||
;## No warranty is made, expressed or implied. ##
|
||||
;###############################################################
|
||||
;## Last Update: july 7,1982 [001] ##
|
||||
;## by jim nickerson
|
||||
;## changes: ##
|
||||
;## -allow redefinition of kpd in cbios ##
|
||||
;## -change to allow test of serial on liststatus##
|
||||
;## -default ul1: to tty on list ##
|
||||
;###############################################################
|
||||
|
||||
.Z80 ; Z80 CPU
|
||||
msize equ 64 ; system memory size in k
|
||||
vers equ 22 ; CP/M version number
|
||||
bias equ (msize-20)*1024 ; bias for systems larger than 20k
|
||||
ccp equ 3400H+bias ; start of CCP
|
||||
bdos equ ccp+806H ; start of BDOS (The resident portion of CP/M)
|
||||
bios equ ccp+1600H ; start of Basic I/O Subsystem (BIOS)
|
||||
cpml equ bios-ccp ; length of CP/M system in bytes (less BIOS)
|
||||
nsects equ cpml/128 ; length of CP/M system in sectors (less BIOS)
|
||||
trksec equ 40 ; sectors/track
|
||||
|
||||
bitport equ 1CH ; status/control bit maped port
|
||||
iobyte equ 3 ; logical to physical map
|
||||
rom equ 00000H ; base of rom
|
||||
ram equ 0FC00H ; scratch ram
|
||||
dmaadr equ ram+14H ; dma address
|
||||
|
||||
jp boot ; arrive here from cold start
|
||||
jp wboot ; arrive here for warm start
|
||||
jp const ; console status return in A FF=ready, 00=not
|
||||
jp conin ; console char in
|
||||
jp conout ; console char out
|
||||
jp list ; listing char out
|
||||
jp punch ; punch char out
|
||||
jp reader ; reader char in
|
||||
jp home ; move to track 0 on selected disk drive
|
||||
jp seldsk ; select disk drive
|
||||
jp settrk ; set track #
|
||||
jp setsec ; set sector #
|
||||
jp setdma ; set DMA address
|
||||
jp read ; read selected sector
|
||||
jp write ; write selected sector
|
||||
jp listst ; list status (Ready to print a char)
|
||||
jp sectran ; sector translate
|
||||
ioconfig: defb 10000001B ; initial value for i/o byte (may be patched)
|
||||
wrtsafe: defb 0 ; write safe flage 0=false
|
||||
vtab: defb 11, 10, 8, 12 ; vector pad xlate table ^k ^j ^h ^l
|
||||
defb '0', '1', '2', '3'
|
||||
defb '4', '5', '6', '7'
|
||||
defb '8', '9', '-', ','
|
||||
defb 0DH, '.'
|
||||
subttl Cold and Warm boot entry points
|
||||
page
|
||||
; Cold boot entry point, set up system pointers and pass control to the CCP
|
||||
boot: call diskint
|
||||
xor a ; clear system disk number
|
||||
ld (4),a
|
||||
ld a,(ioconfig) ; init value for i/o byte
|
||||
ld (iobyte),a
|
||||
call print
|
||||
defb 1AH, 0DH, 0AH
|
||||
defb 'KAYPRO II '
|
||||
defb 0DH, 0AH
|
||||
DEFB msize/10+'0', msize mod 10+'0'
|
||||
defb 'k CP/M v '
|
||||
defb vers/10+'0', '.', vers mod 10+'0'
|
||||
defb 0DH, 0AH, 00H
|
||||
|
||||
goccp: ld a,0C3H ; set up CP/M jumps to bdos and wboot
|
||||
|
||||
ld hl,bios+3 ; wboot entry point
|
||||
ld (0),a
|
||||
ld (1),hl
|
||||
|
||||
ld hl,bdos ; entry point to bdos
|
||||
ld (5),a
|
||||
ld (6),hl
|
||||
|
||||
ld a,(4) ; last logical disk unit used
|
||||
ld c,a ; pass to ccp to select
|
||||
jp ccp ; pass control to ccp
|
||||
|
||||
; Warm boot entry point, re-load the CCP and BDOS
|
||||
wboot: call diskint
|
||||
call print
|
||||
defb 0DH, 0AH, 'Warm Boot', 0DH, 0AH, 00H
|
||||
wb0: ld sp,100H ; re-set stack
|
||||
ld c,0 ; select drive A:
|
||||
call seldsk
|
||||
ld bc,0 ; set track
|
||||
call settrk
|
||||
ld hl,ccp ; first memory location to load
|
||||
ld (dmaadr),hl
|
||||
ld bc,nsects*256+1
|
||||
wb1: push bc ; save sector count and current sector
|
||||
call setsec ; select sector
|
||||
call read
|
||||
pop bc
|
||||
or a
|
||||
jr nz,wb0 ; oops, error on warm boot
|
||||
ld hl,(dmaadr) ; update dma address for next sector
|
||||
ld de,128 ; new dma address
|
||||
add hl,de
|
||||
ld (dmaadr),hl
|
||||
dec b
|
||||
jp z,goccp ; done loading
|
||||
inc c ; bump sector count
|
||||
ld a,trksec ; on to next track?
|
||||
cp c
|
||||
jp nz,wb1
|
||||
ld c,16 ; first sector on next track
|
||||
push bc ; save counters
|
||||
ld c,1
|
||||
call settrk ; set track
|
||||
pop bc
|
||||
jr wb1
|
||||
subttl logical to physical devices CON:, PUN:, RDR:, and LST:
|
||||
page
|
||||
; logical devices are con: rdr: pun: and lst:
|
||||
; physical devices are:
|
||||
; crt: video and kbd
|
||||
; tty: serial
|
||||
; lpt: centronics
|
||||
; ul1: serial with cts as busy
|
||||
; pun: same as ul1
|
||||
;
|
||||
;con: tty, crt
|
||||
;rdr: tty
|
||||
;pun: tty, pun
|
||||
;lst: tty, crt, lpt, ul1
|
||||
|
||||
const: ld a,(iobyte) ; get i/o byte
|
||||
and 03H ; strip to con bits
|
||||
ld hl,rom+33H ; serial status
|
||||
jp z,callrom
|
||||
ld hl,rom+2AH ; assume CRT
|
||||
jp callrom
|
||||
|
||||
conin: in a,(bitport) ; turn disk off
|
||||
bit 6,a
|
||||
ld hl,rom+27H ; disk off routine
|
||||
call z,callrom
|
||||
ld a,(iobyte)
|
||||
and 03H ; check i/o byte
|
||||
ld hl,rom+36H ; serial input
|
||||
jp z,callrom
|
||||
ld hl,rom+2DH ; assume input from kbd
|
||||
call callrom ; go get char
|
||||
or a
|
||||
ret p ; msb not set
|
||||
; and 03H ; form table index to vtab
|
||||
AND 01FH ;FORM TABLE INDEX TO VTAB
|
||||
ld hl,vtab
|
||||
ld c,a
|
||||
ld b,0
|
||||
add hl,bc
|
||||
ld a,(hl) ; pick up xlated character
|
||||
ret
|
||||
|
||||
conout: ld a,(iobyte) ; check i/o byte
|
||||
and 03H
|
||||
ld hl,rom+39H ; serial output
|
||||
jp z,callrom
|
||||
ld hl,rom+45H ; assume video
|
||||
jp callrom
|
||||
|
||||
reader: ld hl, rom+36H ; serial input
|
||||
jp callrom
|
||||
|
||||
;punch: ld a,(iobyte) ; check i/o byte
|
||||
; and 30H
|
||||
; ld hl,rom+39H ; serial punch
|
||||
; jp z,callrom
|
||||
; ld hl, rom+42H ; serial with cts as busy
|
||||
; jp callrom
|
||||
punch:
|
||||
ld hl,rom+39h ;serial punch
|
||||
jp callrom
|
||||
;
|
||||
|
||||
list: ld a,(iobyte)
|
||||
and 0C0H ; check i/o byte
|
||||
ld hl,rom+39H ; serial
|
||||
jp z,callrom
|
||||
ld hl,rom+3FH ; centronics
|
||||
cp 80H
|
||||
jp z,callrom
|
||||
ld hl,rom+45H ; video
|
||||
cp 40H
|
||||
jp z,callrom
|
||||
; ld hl, rom+42H ; assume serial with cts as busy
|
||||
ld hl, rom+39h ;ul1: default to serial
|
||||
jp callrom
|
||||
|
||||
listst: ld a,(iobyte) ; check i/o byte
|
||||
and 0C0H
|
||||
ld hl,rom+42H ; serial
|
||||
jp z,callrom
|
||||
ld hl,rom+3CH ; centronics
|
||||
cp 80H
|
||||
jp z,callrom
|
||||
xor a ; 0=ready
|
||||
ret
|
||||
subttl Disk I/O and ROM dispatch
|
||||
page
|
||||
diskint:ld hl,rom+03H ; re-set disk software sub-system
|
||||
jr callrom
|
||||
|
||||
home: ld hl,rom+0CH ; home disk drive rom routine
|
||||
jr callrom
|
||||
|
||||
seldsk: ld hl,rom+0FH ; select disk drive
|
||||
jr callrom
|
||||
|
||||
settrk: ld hl,rom+12H ; seek track
|
||||
jr callrom
|
||||
|
||||
setsec: ld hl,rom+15H ; set sector number
|
||||
jr callrom
|
||||
|
||||
setdma: ld hl,rom+18H ; set dma address
|
||||
jr callrom
|
||||
|
||||
read: ld hl,rom+1BH ; read a logical sector
|
||||
jr callrom
|
||||
|
||||
write: ld hl,rom+1EH ; write a logical sector
|
||||
ld a,(wrtsafe) ; write safe flag
|
||||
or a ; true or false
|
||||
jr z,callrom ; normal operation
|
||||
ld c,1 ; directory write code (forces write op)
|
||||
jr callrom
|
||||
|
||||
sectran:ld hl,rom+21H ; xlate logical to physical sector
|
||||
jr callrom
|
||||
|
||||
callrom:exx ; save cp/m arguments
|
||||
in a,(bitport) ; turn rom on
|
||||
set 7,a
|
||||
out (bitport),a
|
||||
ld (savsp),sp ; save current stack (may be under rom)
|
||||
ld sp,stack ; set a local stack
|
||||
ld de,biosret ; rom to "RET" here
|
||||
push de
|
||||
exx ; restore cp/m arguments and call loc
|
||||
jp (hl) ; to rom routine specified in hl
|
||||
biosret:ex af,af' ; save reg A
|
||||
ld sp,(savsp) ; restore stack
|
||||
in a,(bitport) ; off the rom
|
||||
res 7,a
|
||||
out (bitport),a
|
||||
ex af,af' ; restore reg A
|
||||
ret ; done with rom routine
|
||||
|
||||
print:
|
||||
ex (sp),hl ; pop return address, points to text to print
|
||||
ld a,(hl) ; get a byte of text, stop on zero byte
|
||||
inc hl
|
||||
ex (sp),hl ; save new return address
|
||||
or a ; is it a zero byte?
|
||||
ret z
|
||||
ld c,a ; no, so print it
|
||||
call conout
|
||||
jr print
|
||||
|
||||
savsp: defs 2 ; current spact pointer during rom call
|
||||
stack equ bios+512 ; a local stack
|
||||
|
||||
end
|
||||
|
||||
@@ -1,122 +0,0 @@
|
||||
|
||||
|
||||
|
||||
FROM: Robert N. Barry 30 May 1986
|
||||
|
||||
SUBJECT: WEEKLY ACTIVITY REPORT (27 - 30 May 1986)
|
||||
|
||||
|
||||
TO: ENMD/Steve Chase
|
||||
|
||||
|
||||
1® TSF-IFDAPS:
|
||||
|
||||
1.± É aí preparinç á datá baså oæ thå TSF-IFDAPÓ documentó tï �
|
||||
control my review of those documents.
|
||||
|
||||
2. IFAST I&M Developement
|
||||
|
||||
2.1 MSIP Adaptation Task:
|
||||
|
||||
2.1.± É havå prepareä mù evaluatioî oæ thå SETÁ performance® É �
|
||||
trieä tï givå theí crediô foò gettinç thå tasë IOÃ donå oî time¬ �
|
||||
buô flaggeä thå areaó theù neeä tï correct® Theù treaô planninç �
|
||||
aó somethinç onlù donå insidå aî individual'ó heaä anä �
|
||||
documentatioî aó somethinç thå AÆ requires® É wilì turî iô intï �
|
||||
ENMÄ oî ² Junå 1986.
|
||||
|
||||
2.1.² (REPEAT© É aí pressinç VERAÃ tï producå thå equipmenô �
|
||||
lisô ASAP.
|
||||
|
||||
2.² Oî CSÃ Tasks:
|
||||
Thå CSÃ plant-in-place-recordó tasë waó extendeä tï finisè thå �
|
||||
missinç drawingó anä tï supporô ENVS(Rallis© untiì theù caî cuô á �
|
||||
task directive.
|
||||
|
||||
2.3 Transition and Turnover:
|
||||
|
||||
2.3.± (REPEAT© Mr® Reaveò haó askeä thå QÁ personnel¬ ENRMQ¬ tï �
|
||||
definå thå remaininç itemó undeò thå Timå Shareä Computeò Compleø �
|
||||
Transitioî anä Turnoveò Plan® Thå remaininç itemó areº O&Í �
|
||||
Procedures¬ PIPRó Datá Communications¬ anä Finaì Revie÷ anä �
|
||||
Inspection.
|
||||
|
||||
2.3.² (REPEAT© É havå requesteä Mr® Reaveò (aó onå oæ hió �
|
||||
remaininç ENMÄ tasks© tï completå thå finaì transitioî anä �
|
||||
turnoveò plaî froí ENMÄ tï ENVÓ - ASAP® VERAÃ ió verù latå iî �
|
||||
providinç thå MSIÐ Adaptatioî Tasë equipmenô lisô requireä foò �
|
||||
thå Finaì T&Ô Plan.
|
||||
|
||||
2.3.³ É aí helpinç Capô Rallió resolvå questionó aó tï thå �
|
||||
configuration rationale and inventory of the ADPE.
|
||||
|
||||
2.´ É aí preparinç á drafô oæ thå performancå evaluatioî foò �
|
||||
Toí Chovaî anä Mikå Reaver® Requireä bù µ Junå 1986.
|
||||
|
||||
2.¶ (REPEAT© É havå tï revie÷ thå ne÷ versioî oæ thå Bµ �
|
||||
specificatioî foò thå Simulatioî Models® Duå withiî 1µ days.
|
||||
␍Š
|
||||
|
||||
1
|
||||
|
||||
|
||||
|
||||
Barry's 30 May 1986 WAR (con.)
|
||||
|
||||
Coming Week and Future Work:
|
||||
|
||||
1. On-going tasks at TSF:
|
||||
|
||||
1.± Revie÷ TSF-IFDAPÓ specificatioî documentó provideä bù Stevå �
|
||||
Chase.
|
||||
1.² Meeô witè Capô Keusseyaî anä establisè á learninç procesó �
|
||||
with him.
|
||||
1.3 Prepare for TDY to Lompoc on 2 June, Status Review.
|
||||
|
||||
2® É wilì attempô tï takå á numbeò oæ traininç classes® �
|
||||
Becauså oæ thå lacë oæ manpoweò iî thå IFASÔ I&Í Development¬ É �
|
||||
haä tï misó traininç opportunitieó oveò thå lasô siø years.
|
||||
|
||||
3® Supportinç IFASÔ oî á aó needeä basis¬ limiteä tï onlù itemó �
|
||||
requireä tï smootè thå transitioî anä turnover® Thió cominç �
|
||||
weeë wilì bå á significanô loaä becauså oæ thå contractoò anä �
|
||||
Reaver'ó anä Chovan'ó evaluationó required® É wilì bå askeä bù �
|
||||
ENVÓ tï helð understanä thå currenô ADPÅ configuration.
|
||||
|
||||
4® Leavå Planneä - A/Ì oæ á littlå oveò ³ weeks¬ 1¶ dayó froí �
|
||||
thå 1¶ Junå 198¶ througè ¸ Julù 1986® É wilì bacë ¹ Julù 1986® �
|
||||
Summeò Vacatioî trið tï thå Canadiaî World'ó Fair® É neeä tï �
|
||||
know who wants me to call in and answer questions.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
2
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,30 +0,0 @@
|
||||
-----------------------------------------
|
||||
| | | | |
|
||||
| UP | DOWN | LEFT | RIGHT |
|
||||
| REPLACE | SECT | APPEND | SPECINS |
|
||||
| | | | |
|
||||
-----------------------------------------
|
||||
|
||||
|
||||
-----------------------------------------
|
||||
| | | | |
|
||||
| PAGE | FNDNXT | DEL W | GOLD |
|
||||
| COMMAND | FIND | UND W | |
|
||||
| | | | |
|
||||
-----------------------------------------
|
||||
| | | | |
|
||||
| ADVANCE | BACKUP | DEL C | DEL L |
|
||||
| BOTTOM | TOP | UND C | UND L |
|
||||
| | | | |
|
||||
-----------------------------------------
|
||||
| | | | |
|
||||
| WORD | EOL | CUT | |
|
||||
| CHNGCASE| DEL EOL | PASTE | |
|
||||
| | | | ENTER |
|
||||
------------------------------- SUBS |
|
||||
| | | |
|
||||
| LINE | SELECT | |
|
||||
| OPEN LINE | RESET | |
|
||||
| | | |
|
||||
-----------------------------------------
|
||||
|
||||
Binary file not shown.
@@ -1,121 +0,0 @@
|
||||
.cw12
|
||||
.hå (Thió texô ió á printouô oæ thå filå nameä PRINT.TST)
|
||||
.fï WordStaò Overvie÷ Pagå #
|
||||
|
||||
Welcome_to_WordStar*
|
||||
|
||||
WordStar‚ ió á powerfuì worä processinç systeí designeä tï meeô �
|
||||
texô preparatioî requirementó foò alì leveló oæ usersº
|
||||
|
||||
* professional writers
|
||||
* programmers
|
||||
* text editors
|
||||
* office administrators
|
||||
* clerical staff
|
||||
* students
|
||||
|
||||
SPECIAL PRINTING CAPABILITIES INCLUDE:
|
||||
|
||||
* Boldface¬ Doublå Strike¬ Underline“
|
||||
|
||||
* Strikeout¬ Overprint (co^te)
|
||||
|
||||
* SUPERScript
|
||||
|
||||
* SUBScript
|
||||
|
||||
* and any combination -- WordStar
|
||||
|
||||
|
||||
On-screen printer-image text formatting commands include
|
||||
Automatic-Centering‚
|
||||
whicè allowó texô tï bå automaticallù centereä oî á linå witè á �
|
||||
two-strokå command®
|
||||
|
||||
Margiî settingó caî bå changed¬ anä �
|
||||
thå reformatteä texô wilì bå �
|
||||
displayeä oî command®
|
||||
|
||||
Selectivå margination‚ permitó �
|
||||
"cutting¢ arounä aî illustration®
|
||||
|
||||
Á widå rangå oæ letteò qualitù anä drafô printeró arå supporteä �
|
||||
(includinç Diablo¬ NEC¬ Qume¬ Epsoî anä Olivetti)® WordStar�
|
||||
fullù utilizeó bidirectionaì printinç capability®
|
||||
|
||||
Somå printeró wilì supporô WordStar„ commandó whicè specifù �
|
||||
variablå linå heighô anä variablå anä alternatå characteò pitch.
|
||||
|
||||
(The examples below will not be demonstrated by all printers.)
|
||||
|
||||
.CW19
|
||||
This is an example of variable pitch. (.CW 19)
|
||||
.CW15
|
||||
This is an example of variable pitch. (.CW 15)
|
||||
.CW12
|
||||
This is an example of variable pitch. (.CW 12)
|
||||
.CW11
|
||||
This is an example of variable pitch. (.CW 11)
|
||||
.CW10
|
||||
This is an example of variable pitch. (.CW 10)
|
||||
|
||||
.cw12
|
||||
* WordStar„ ió á registereä trademarë oæ MicroPrï Internationaì �
|
||||
Corporation.␍Š.LH 20
|
||||
This is an example of variable line height. (.LH 20)
|
||||
.LH 18
|
||||
This is an example of variable line height. (.LH 18)
|
||||
.LH 16
|
||||
This is an example of variable line height. (.LH 16)
|
||||
.LH 14
|
||||
This is an example of variable line height. (.LH 14)
|
||||
.LH 12
|
||||
This is an example of variable line height. (.LH 12)
|
||||
.LH 10
|
||||
This is an example of variable line height. (.LH 10)
|
||||
.LH 8
|
||||
This is an example of variable line height. (.LH 8)
|
||||
.LH 6
|
||||
This is an example of variable line height. (.LH 6)
|
||||
.LH 8
|
||||
|
||||
Daisù wheeì printeró caî alsï bå seô tï "toggle¢ betweeî thå �
|
||||
standard 10-pitch and alternate 12-pitch printing:
|
||||
|
||||
This sentence is printed with the normal 10-pitch setting,
|
||||
then toggled to 12-pitch, then back to normal.
|
||||
|
||||
|
||||
Tï seå thå embeddeä commandó whicè produceä thió text¬ follo÷ �
|
||||
thió procedure:
|
||||
|
||||
- Iî responså tï thå basiã prompô froí youò system¬ enter
|
||||
|
||||
wó <RETURN>
|
||||
|
||||
- Wheî thå Openinç Menõ appearó oî youò screen¬ typå D‚ �
|
||||
(ord© tï ediô á document® Then¬ iî responså tï thå �
|
||||
requesô foò filå name¬ type
|
||||
|
||||
print.tst <RETURN>
|
||||
|
||||
Thå firsô thinç yoõ wilì noticå ió thaô thå texô oî thå screeî �
|
||||
includeó somå characteró whicè dï noô appeaò oî thå printeä copy® �
|
||||
Foò example:
|
||||
|
||||
ï thå headinç linå ió identifieä bù á doô command¬ .hå
|
||||
|
||||
o words in boldface are marked by "^B"
|
||||
|
||||
Tï continuå viewinç PRINT.TSÔ oî youò screen¬ trù eacè oæ thå �
|
||||
followinç commandó tï scrolì througè thå file:
|
||||
|
||||
CTRÌ Ã tï vie÷ thå NEXÔ fulì seô oæ lines
|
||||
|
||||
CTRÌ Ò tï vie÷ thå PRECEDINÇ fulì seô oæ lines
|
||||
|
||||
NOTEº Holä dowî thå CTRÌ keù whilå yoõ presó thå nexô key.
|
||||
|
||||
Wå thinë yoõ wilì finä WordStaò aî easy-to-use¬ essentiaì tooì �
|
||||
foò alì youò texô processinç needs®
|
||||
|
||||
Binary file not shown.
@@ -1,67 +0,0 @@
|
||||
VT52 is a VT52 terminal emulator written for Kaypro II and IV (non-
|
||||
graphic versions). It contains the following features:
|
||||
|
||||
|
||||
1) Interrupt driven
|
||||
2) 256 byte receive buffer
|
||||
3) automatic flow control
|
||||
4) direct to video emulation of VT52
|
||||
5) Supports application keypad
|
||||
6) Baud rate programming
|
||||
7) Break and null generation
|
||||
8) Additional escape sequences to support EMACS
|
||||
|
||||
Because of 1 through 3, VT52 is able to run at high baud rates (I've
|
||||
used 1 it at 4800) without losing characters. This is true even on non-sped
|
||||
up Kaypros.
|
||||
|
||||
Because of 4, VT52 does a much better job of emulating a VT52 than
|
||||
other programs that only translate VT52 escape sequences into Kaypro escape
|
||||
sequences (for example reverse line feed on VT52).
|
||||
|
||||
Keypad application mode is selectable via the normal VT52 escape
|
||||
sequences received from a host computer. The keypad on the Kaypro does not
|
||||
have all the keys necessary to map into the VT52 keypad, so I had to choose
|
||||
which keys to map where (see KAYPRO.KEY). The only key that is lost is PF2
|
||||
(normally the help key) and this can be mapped to a control key when in an
|
||||
editor such as VAX's EDT.
|
||||
|
||||
All features such as baud rate selection, break generation are invoked
|
||||
in terminal mode of VT52 by typing ^\ followed by the appropriate key. For
|
||||
a list of the commands, type ^\ ? in terminal mode.
|
||||
|
||||
The escape sequences that VT52 has in addition to the normal VT52
|
||||
escape sequences were chosen to allow a much faster screen edit using EMACS.
|
||||
The escape sequences are:
|
||||
|
||||
ESC @ 1 - Insert space at cursor (cursor stays)
|
||||
ESC @ 2 - Delete character at cursor
|
||||
ESC @ 3 - Insert line at cursor line
|
||||
ESC @ 4 - Delete line at cursor line
|
||||
|
||||
There are some area's that still could be improved in VT52. Since
|
||||
source is included, I invite anyone to do so. At present, VT52 does not do
|
||||
auto wrap. It acts like a VT52 with auto wrap off (cursor stays in last
|
||||
column). This presents no problem when communicating with VAX/VMS. The VAX
|
||||
can be set to do the wrapping for the terminal. Also, VT52 printer escape
|
||||
sequences are not emulated. That might be a nice feature (but I can't use
|
||||
it so I didn't bother).
|
||||
|
||||
VT52 is written in Z80 code. This was necessary to support the mode 2
|
||||
interrupts used for high speed. Block move instructions are also used in
|
||||
the video code. To assemble, I used Z80MR, a public domain Z80 macro
|
||||
assembler (available for Micro-Cornucopia, P.O. Box 223, Bend, Oregon
|
||||
97709). To re-assemble, type Z80MR VT52.AAA (similar to ASM). The other
|
||||
source files are INCLUDED by VT52.AZM.
|
||||
|
||||
If anyone has problems, suggestions, questions, etc. send them to:
|
||||
|
||||
Ray Rizzuto
|
||||
43 Sandra Road
|
||||
Voorhees, N.J. 08043
|
||||
Compuserve ID 72765,700
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
Loaded 100 of 235 files, more files were not shown because too many files have changed in this diff.
Show more
Reference in new issue
Block a user