diff --git a/2006/toledo2/ADVENTUR/ADV.COM b/2006/toledo2/ADVENTUR/ADV.COM deleted file mode 100644 index 5e9eebe81..000000000 Binary files a/2006/toledo2/ADVENTUR/ADV.COM and /dev/null differ diff --git a/2006/toledo2/ADVENTUR/ADVI.DAT b/2006/toledo2/ADVENTUR/ADVI.DAT deleted file mode 100644 index 1eea9f19d..000000000 Binary files a/2006/toledo2/ADVENTUR/ADVI.DAT and /dev/null differ diff --git a/2006/toledo2/ADVENTUR/ADVI.PTR b/2006/toledo2/ADVENTUR/ADVI.PTR deleted file mode 100644 index 2887a38e2..000000000 Binary files a/2006/toledo2/ADVENTUR/ADVI.PTR and /dev/null differ diff --git a/2006/toledo2/ADVENTUR/ADVT.DAT b/2006/toledo2/ADVENTUR/ADVT.DAT deleted file mode 100644 index 0dd847bed..000000000 Binary files a/2006/toledo2/ADVENTUR/ADVT.DAT and /dev/null differ diff --git a/2006/toledo2/ADVENTUR/ADVT.PTR b/2006/toledo2/ADVENTUR/ADVT.PTR deleted file mode 100644 index edb1deaad..000000000 Binary files a/2006/toledo2/ADVENTUR/ADVT.PTR and /dev/null differ diff --git a/2006/toledo2/ADVENTUR/DECODE.DAT b/2006/toledo2/ADVENTUR/DECODE.DAT deleted file mode 100644 index a6838345c..000000000 Binary files a/2006/toledo2/ADVENTUR/DECODE.DAT and /dev/null differ diff --git a/2006/toledo2/ASM.COM b/2006/toledo2/ASM.COM deleted file mode 100644 index a6a54da56..000000000 Binary files a/2006/toledo2/ASM.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/ALIENS.COM b/2006/toledo2/BASICS/ALIENS.COM deleted file mode 100644 index 8db719d42..000000000 Binary files a/2006/toledo2/BASICS/ALIENS.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/BLKJK.BAS b/2006/toledo2/BASICS/BLKJK.BAS deleted file mode 100644 index 148d421a0..000000000 Binary files a/2006/toledo2/BASICS/BLKJK.BAS and /dev/null differ diff --git a/2006/toledo2/BASICS/CATCHUM.COM b/2006/toledo2/BASICS/CATCHUM.COM deleted file mode 100644 index b12828641..000000000 Binary files a/2006/toledo2/BASICS/CATCHUM.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/CATCHUM.DAT b/2006/toledo2/BASICS/CATCHUM.DAT deleted file mode 100644 index f8f4ba899..000000000 Binary files a/2006/toledo2/BASICS/CATCHUM.DAT and /dev/null differ diff --git a/2006/toledo2/BASICS/CHASE.BAS b/2006/toledo2/BASICS/CHASE.BAS deleted file mode 100644 index b2e65e8ee..000000000 Binary files a/2006/toledo2/BASICS/CHASE.BAS and /dev/null differ diff --git a/2006/toledo2/BASICS/HORSE.BAS b/2006/toledo2/BASICS/HORSE.BAS deleted file mode 100644 index bd1da5555..000000000 Binary files a/2006/toledo2/BASICS/HORSE.BAS and /dev/null differ diff --git a/2006/toledo2/BASICS/LADDER.COM b/2006/toledo2/BASICS/LADDER.COM deleted file mode 100644 index 9d052fe4c..000000000 Binary files a/2006/toledo2/BASICS/LADDER.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/LADDER.DAT b/2006/toledo2/BASICS/LADDER.DAT deleted file mode 100644 index 6ddacf12d..000000000 Binary files a/2006/toledo2/BASICS/LADDER.DAT and /dev/null differ diff --git a/2006/toledo2/BASICS/MBASIC.COM b/2006/toledo2/BASICS/MBASIC.COM deleted file mode 100644 index c9ec3cd39..000000000 Binary files a/2006/toledo2/BASICS/MBASIC.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/OBASIC.COM b/2006/toledo2/BASICS/OBASIC.COM deleted file mode 100644 index 4b3838e10..000000000 Binary files a/2006/toledo2/BASICS/OBASIC.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/PIP.COM b/2006/toledo2/BASICS/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/BASICS/PIP.COM and /dev/null differ diff --git a/2006/toledo2/BASICS/ROCKET.BAS b/2006/toledo2/BASICS/ROCKET.BAS deleted file mode 100644 index 90ece7172..000000000 Binary files a/2006/toledo2/BASICS/ROCKET.BAS and /dev/null differ diff --git a/2006/toledo2/BASICS/STRTRK.BAS b/2006/toledo2/BASICS/STRTRK.BAS deleted file mode 100644 index 265e98bda..000000000 Binary files a/2006/toledo2/BASICS/STRTRK.BAS and /dev/null differ diff --git a/2006/toledo2/BASICS/TRADE.BAS b/2006/toledo2/BASICS/TRADE.BAS deleted file mode 100644 index dbde74575..000000000 Binary files a/2006/toledo2/BASICS/TRADE.BAS and /dev/null differ diff --git a/2006/toledo2/BASICS/WUMP.BAS b/2006/toledo2/BASICS/WUMP.BAS deleted file mode 100644 index 62c301bce..000000000 Binary files a/2006/toledo2/BASICS/WUMP.BAS and /dev/null differ diff --git a/2006/toledo2/BAUD.COM b/2006/toledo2/BAUD.COM deleted file mode 100644 index f7fd7bb5a..000000000 Binary files a/2006/toledo2/BAUD.COM and /dev/null differ diff --git a/2006/toledo2/CONFIG.ASM b/2006/toledo2/CONFIG.ASM deleted file mode 100644 index 4f9eef1db..000000000 --- a/2006/toledo2/CONFIG.ASM +++ /dev/null @@ -1,1256 +0,0 @@ -false equ 0 -true equ not false -debug equ false - .list ;begin listing -title KAYPRO CONFIG (custom configuration utility program) 2.0 Copyright (C) 1982 NLS, Inc. -page -;############################################################### -;## KAYPRO II CONFIG PROGRAM ## -;## containing within it the new cbios image so that ## -;## if this is run against a disk with the old cbios ## -;## it is updated at the same time. ## -;## 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 11,1982 ## -;## by jim nickerson ## -;## -allow redefinition of cursor keys ## -;## -allow redifinition of keypad keys ## -;## -allow redefinition of default i/o byte ## -;## -allow changing of the baud rate ## -;## -write these changes to disk ## -;############################################################### - - .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 - -; -; begining of the config program -; - jp config ;begining of program -; -mprint: - ld a,(de) ;get char - cp 0FFH ;end - ret z ;finished - push de - ld c,2 - ld e,a - call 5 - pop de - inc de - jr mprint -; -sprint macro arg - ld de,arg ;pointer to print line - call mprint - endm -; -; -printone macro - push af ;save char - ld c,2 ;console output - ld e,a ;char - call 5 - pop af ;recover char - endm -; -; -inone macro - local loop -loop: - ld c,6 ;direct console input - ld e,0FFH - call 5 - cp 0 ;0=nochar - jr z,loop ;wait for char - endm -; -; -jmpif macro arg, adr - cp arg - jp z, adr - endm -; -;print a message using bdos call -cr equ 0DH -lf equ 0AH -uprint macro x - ld c,9 - ld de,x ;message pointer - call 5 ;pass it to bdos - endm -; -;get a char from the console, up case -input macro - ld c,1 ;console input - call 5 ;pass it to bdos - endm -; -;*************************************************************** -;*************************************************************** -; -config: ;begining of the config program with main menu -; -;**************************************************************** -;**************************************************************** -; - ld a,1 - ld (disk),a ;force drive B - ld a,0FFH - ld (change),a ;changes flag 0=yes some changes -; -first: - uprint menuheader - uprint menu0 - input ;get an answer - push af ;save char - uprint crlf - pop af - jmpif '1',setio ;menu1 - jmpif '2',setwr ;menu2 - jmpif '3',setcur ;menu3 - jmpif '4',setnum ;menu4 - jmpif '5',setbaud ;menu5 - jmpif 01BH,go$out - jp first -; -setbaud: - uprint menuheader - uprint menu5 - input - push af - uprint crlf - pop af - jmpif '1',hbaud - jmpif 01BH,first - jmpif '2',dobaud - jp setbaud -; -dobaud: - uprint baudinst -dob1: - ld a,0 - ld (curline),a ;which choice - uprint firstchoice -dob2: - inone ;get a key - cp 01BH - jr z,setbaud - cp lf - jp z,db1 - cp cr - jr nz,dob2 - ;was a cr so we have a choice - ld a,(curline) - cp 16 ;wants to exit - jp nc,dob2 - out (0),a ;set baud rate - jp setbaud -; -db1: - ld a,(curline) ;where are we - inc a ;bump pointer - ld (curline),a ;save for future use - cp 17 ;end of choices - jr z,dob1 - uprint nextline ;advance one line - jr dob2 ;next line -curline: defb 0 -baudinst: - defb 1AH - defb ' 50',cr,lf - defb ' 75',cr,lf - defb ' 110 Move the cursor to the baud rate which',cr,lf - defb ' 134.5',cr,lf - defb ' 150 you want to use by typing the [LINE FEED] key.',cr,lf - defb ' 300',cr,lf - defb ' 600',cr,lf - defb ' 1200 When the cursor is at the rate you want',cr,lf - defb ' 1800',cr,lf - defb ' 2000 type the RETURN key and it will be set.',cr,lf - defb ' 2400',cr,lf - defb ' 3600 The new baud rate will be effective now.',cr,lf - defb ' 4800',cr,lf - defb ' 7200',cr,lf - defb ' 9600',cr,lf - defb '19200',cr,lf - defb 'Type [ESC] key to return to the previous menu (no changes)',cr,lf - defb cr,lf,lf - defb '(* NOTE: The baud rate will always default to 300 baud *)',cr,lf - defb '(* after the power is first turned on and when *)',cr,lf - defb '(* the RESET button is pressed. *)',cr,lf - defb '$' -firstchoice: - 01EH,0CH,0CH,0CH,0CH,0CH,'$' -nextline: - 0AH,'$' -; -hbaud: ;tell him about baud rates - uprint baudmsg - uprint crtocont - input - jp setbaud -; -setnum: - uprint menuheader - uprint menu4 - input - push af - uprint crlf - pop af - jmpif '1',hnum - jmpif '2',donum - jmpif 01BH,first - jp setnum -; -getone: - ld a,(curline) - inc a - ld (curline),a ;bumped pointer - call hex2in ;get 2 hex chars in c - jr nz,gadj -;wants to exit maybe - cp lf ;move cursor - ret z - ;must be esc then - pop hl ;clean stack - ld hl,(gohere) - jp (hl) ;oblidge him - ret z -;adjust changes flag -gadj: - ld a,0 - ld (change),a ;yes some changes -; -;record changes in mem image of cbios - ld de,0 - ld a,(curline) ;put here -1 - dec a - ld e,a - ld hl,(puthere) ;where to put changes - add hl,de ;hl points to char - ld a,c ;get char - ld (hl),a ;put him in mem - ret -; -; get two hex chars -hex2in: - inone ;get one key - cp 0AH ;move to next position - ret z - cp 01BH - ret z ;exit on esc - cp 030H ;0 the lowest one allowed - jr c,hex2in - cp 03AH ;tween 0 and 9 - jr c,setone - res 5,a ;make upper case if lower - cp 047H ;F the highest allowed - jr nc,hex2in - cp 041H ;must not be less than A - jr c,hex2in - printone - sub 7 ;remove bias - jr seta -setone: - printone -seta: - sub 030H ;take off bias - rlc a ;slowly - rlc a ;shift the - rlc a ;low nible - rlc a ;to the high nible - and 0F0H ;mask off the low nible - push af ;save it -settwo: ;force him to enter second char in hex - inone ;get one key - cp 0AH - jr z,s2 - cp 01BH - jr nz,s3 -s2: - pop hl ;clean stack - ret ;with z set to exit -s3: - cp 030H - jr c,settwo ;not acceptable - cp 03AH ;tween 0-9 - jr c,set3 - res 5,a ;make upper case if lower - cp 047H - jr nc,settwo ;not acceptable - cp 041H - jr c,settwo ;nogood - printone - sub 7 ;remove bias - jr set4 -set3: ;got second char in hex - printone -set4: - sub 030H - and 0FH ;ONLY WANT LOW NIBLE - ld c,a ;save it - pop af ;recover high nible - or c ;assembled char - ld c,a ;save char in a - ret nz - inc a ;must ret not zero - ret -; -; -donum: - ld hl,setnum - ld (gohere),hl ;where to exit to on esc - ld hl,cbios+039H - ld (puthere),hl - uprint numchoices -donum1: - ld a,0 ;first choice - ld (curline),a - sprint key0 - call getone - sprint key1 - call getone - sprint key2 - call getone - sprint key3 - call getone - sprint key4 - call getone - sprint key5 - call getone - sprint key6 - call getone - sprint key7 - call getone - sprint key8 - call getone - sprint key9 - call getone - sprint key10 ;- - call getone - sprint key11 ;, - call getone - sprint key12 ;enter - call getone - sprint key13 ;. - call getone - sprint key14 ;return -numpat: - inone - cp 01BH ;ESC - jp z,setnum - cp lf - jr nz,numpat - jp donum1 -; -numchoices: - defb 01AH - defb '----------------------------- Move the cursor to the key you wish',cr,lf - defb ': : : : :',cr,lf - defb ': 7 : 8 : 9 : - : to change. Use the [LINE FEED] key.',cr,lf - defb ': : : : :',cr,lf - defb ': 37 : 38 : 39 : 2D : The default HEXADECIMAL code will be',cr,lf - defb ';------;------;------;------:',cr,lf - defb ': : : : : the number which is flashing.',cr,lf - defb ': 4 : 5 : 6 : , :',cr,lf - defb ': : : : :',cr,lf - defb ': 34 : 35 : 36 : 2C : When you reach the key you wish to change.',cr,lf - defb ':------:------:------:------:',cr,lf - defb ': : : : : Type in the new HEXADECIMAL code.',cr,lf - defb ': 1 : 2 : 3 : :',cr,lf - defb ': : : : :',cr,lf - defb ': 31 : 32 : 33 : ENTER: (* NOTE: you must enter both digits *)',cr,lf - defb ':------:------:------: :',cr,lf - defb ': : : 0D : (* to change the code. *)',cr,lf - defb ': 0 : . : :',cr,lf - defb ': : : :',cr,lf - defb ': 30 : 2E : : Type the [ESC] key to return to the previous menu',cr,lf - defb '-----------------------------',cr,lf - defb '$' -; -key0: defb 01BH,'=',19+20H,6+20H,0FFH -key1: defb 01BH,'=',14+20H,3+20H,0FFH -key2: defb 01BH,'=',14+20H,10+20H,0FFH -key3: defb 01BH,'=',14+20H,17+20H,0FFH -key4: defb 01BH,'=',9+20H,3+20H,0FFH -key5: defb 01BH,'=',9+20H,10+20H,0FFH -key6: defb 01BH,'=',9+20H,17+20H,0FFH -key7: defb 01BH,'=',4+20H,3+20H,0FFH -key8: defb 01BH,'=',4+20H,10+20H,0FFH -key9: defb 01BH,'=',4+20H,17+20H,0FFH -key10: defb 01BH,'=',4+20H,24+20H,0FFH -key11: defb 01BH,'=',9+20H,24+20H,0FFH -key12: defb 01BH,'=',16+20H,24+20H,0FFH -key13: defb 01BH,'=',19+20H,17+20H,0FFH -key14: defb 01BH,'=',19+20H,41+20H,0FFH -hnum: - uprint nummsg - uprint crtocont - input - jp setnum -; -setcur: - uprint menuheader - uprint menu3 - input - push af - uprint crlf - pop af - jmpif '1',hcur - jmpif 01BH,first - jmpif '2',docur - jr setcur -; -; -docur: - ld hl,cbios+035H ;WHERE TO PUT CHANGES - ld (puthere),hl - ld hl,setcur - ld (gohere),hl ;ret here on esc - uprint curinst -doc1: - ld a,0 - ld (curline),a ;item to change - sprint cur0 ;left cursor key - call getone ;input etc - sprint cur1 - call getone - sprint cur2 - call getone - sprint cur3 - call getone - sprint cur4 ;type esc to exit -doc4: - inone ;get one key - cp 0AH - jp z,doc1 - cp 01BH - jr nz,doc4 - jp setcur -; - jp doc1 ;again -hcur: - uprint vecmsg - uprint crtocont - input - jp setcur -; -; -curinst: - defb 01AH - defb cr,lf - defb cr,lf - defb ' ---------------------------------',cr,lf - defb ' : : : : :',cr,lf - defb ' : ^ : : : <- : -> :',cr,lf - defb ' : : : v : : :',cr,lf - defb ' : : : : :',cr,lf - defb ' : 0B : 0A : 08 : 0C :',cr,lf - defb ' ---------------------------------',cr,lf - defb cr,lf - defb cr,lf - defb ' Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf - defb ' Move the cursor to the key which you wish to change by pressing',cr,lf - defb ' the [LINE FEED] key. The default HEXADECIMAL code will be the flashing number.',cr,lf - defb ' Type the new HEXADECIMAL number you wish to assign to the key.',cr,lf - defb cr,lf - defb ' You must type both digits to effect the change.',cr,lf - defb cr,lf - defb '$' -; -cur0: defb 01BH,'=',7+20H,15+20H,0FFH -cur1: defb 01BH,'=',7+20H,23+20H,0FFH -cur2: defb 01BH,'=',7+20H,31+20H,0FFH -cur3: defb 01BH,'=',7+20H,39+20H,0FFH -cur4: defb 01BH,'=',11+20H,18+20H,0FFH -setwr: - uprint menuheader - uprint menu2 - input - push af - uprint crlf - pop af - jmpif '1',hwr - jmpif '2',dowr - jmpif 01BH,first - jp setwr -; -dowr: - uprint wrinst -dow0: - sprint wr0 - inone - cp 0AH - jr z,dow1 - cp 01BH - jp z,setwr - cp 0DH - jr nz,dow0 -;got cr so do it set yes - ld a,0FFH ;set it on - ld (cbios+034H),a - ld a,0 - ld (change),a - jp setwr -dow1: - sprint wr1 - inone - cp lf - jr z,dow2 - cp 01BH - jr z,setwr - cp cr - jr nz,dow1 -;have choice set = 0 - ld a,0 - ld (cbios+034H),a - ld (change),a - jp setwr -dow2: - sprint wr2 - inone - cp 01BH - jp z,setwr - cp lf - jp nz,dow2 - jp dow0 -; -; -hwr: - uprint safmsg - uprint crtocont - input - jp setwr -; -wrinst: - defb 01AH,cr,lf - defb cr,lf,cr,lf - defb 'Yes I want Write Safe enabeled.',cr,lf - defb cr,lf - defb 'No do not enable Write Safe. This is the default mode on your KAYPRO II .',cr,lf - defb cr,lf - defb 'Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf,cr,lf - defb 'Use the [LINE FEED] key to move the cursor to the mode',cr,lf - defb 'which you wish to use and then type the [RETURN] key to',cr,lf - defb 'enter your choice.',cr,lf - defb cr,lf - defb '**** PLEASE read the help file before you enable Write Safe. ****',cr,lf - defb '**** If you do not understand it ASK your dealer. ****',cr,lf - defb '$' -; -wr0: defb 01BH,'=',3+20H,20H,0FFH -wr1: defb 01BH,'=',5+20H,20H,0FFH -wr2: defb 01BH,'=',7+20H,11+20H,0FFH -; -setio: - uprint menuheader - uprint menu1 - input ;get response - push af - uprint crlf - pop af - jmpif '1',hio - jmpif '2',doio - jmpif 01BH,first - jp setio -; -doio: - uprint ioinst - ld hl,cbios+033H - ld (puthere),hl - ld hl,setio - ld (gohere),hl -doio0: - ld a,0 - ld (curline),a - sprint io0 - call inio - sprint io1 - call inio -doioc: sprint io2 - call inio - sprint io3 - call inio -doioe: sprint io4 -doio1: - inone - cp 01BH - jp z,setio - cp 0AH - jr nz,doio1 - jp doio0 -; -inio: - inone ;get a char - cp 01BH - jr nz,inio1 - pop hl - ld hl,(gohere) - jp (hl) -inio1: - cp 0AH - jr nz,inio2 -;have line feed so bump cur line before returning - ld a,(curline) - inc a - ld (curline),a - ret -inio2: - cp 0DH - jr nz,inio -; must have a cr now process it - ld a,0 - ld (change),a ;yes some changes - ld a,(curline) - add a,a - ld de,0 - ld e,a - ld hl,ivtab - add hl,de ;hl now points to 1 of 4 - ld e,(hl) - inc hl - ld d,(hl) - ex de,hl - ld de,(puthere) ;where it goes - jp (hl) -ivtab: defw sio0 - defw sio1 - defw sio2 - defw sio3 -sio0: - ld a,(de) - res 1,a - set 0,a - ld (de),a - ld hl,doioc - ld a,2 - ld (curline),a - pop de - jp (hl) -sio1: - ld a,(de) - res 0,a - res 1,a - ld (de),a - ld a,(curline) - inc a - ld (curline),a - ret -sio2: - ld a,(de) - res 6,a - set 7,a - ld (de),a - ld hl,doioe - jp (hl) -sio3: - ld a,(de) - res 7,a - res 6,a - ld (de),a - ret -; -; -hio: - uprint iomsg - uprint crtocont - input - jp setio -; -; -ioinst: - defb 01AH - defb cr,lf,cr,lf - defb ' Default settings Posibile changes',cr,lf - defb ' ---------------- ----------------',cr,lf - defb cr,lf - defb ' CON:=CRT: CON:=TTY: Type the [LINE FEED] key to ',cr,lf - defb ' LST:=LPT: LST:=TTY: move the cursor to the mode ',cr,lf - defb ' PUN:=TTY: - none - you wish to select.',cr,lf - defb ' RDR:=TTY: - none - Then the RETURN key to enter',cr,lf - defb ' your selection.' - defb cr,lf - defb ' Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf - defb '* CON: If you chose CON:=TTY: then all input and output will be through the',cr,lf - defb ' serial connector on the back of your KAYPRO II instead of through the',cr,lf - defb ' keyboard and the CRT.',cr,lf - defb cr,lf - defb cr,lf - defb '* LST: This setting will decide wether the output directed at a printer',cr,lf - defb ' will go through the LPT: (parallel connector) or to the',cr,lf - defb ' TTY: (serial connector).',cr,lf - defb '$' -; -io0: defb 01BH,'=',5+20H,12+20H,0FFH -io1: defb 01BH,'=',5+20H,36+20H,0FFH -io2: defb 01BH,'=',6+20H,12+20H,0FFH -io3: defb 01BH,'=',6+20H,36+20H,0FFH -io4: defb 01BH,'=',10+20H,19+20H,0FFH -; -go$out: ;here to exit check if any changes so as to - ;know wether to write to disk or not - ld a,(change) - cp 0FFH ;0FFH=nochanges - jp nz,askout -bye: - ld a,0 - ld (0FA34H),a ;reset write safe off - jp z,0 ;exit with no changes -; -; -askout: - uprint ask - input ;get response - res 5,a ;make upper case - cp 'N' - jp z,bye ;exit - cp 'Y' - jr nz,askout -; -; now to write the changes to the disk -procede: ;get on with it -;reset the disk system for drive B - ld a,0FFH - ld (0FA34H),a ;set the write safe flag - ld c,14 ;select disk - ld a,(disk) ;find out which disk to use - ld e,a - call 5 ;tell bdos -; -;set up initial paramaters - ld hl,cbios - ld (from),hl ;where to start writing from -; - ld bc,0001H - ld (track),bc ;track we will be using -; - ld bc,21 - ld (sector),bc ;first sector to write to -; - ld a,4 - ld (count),a ;how many sectors to write -; - ld hl,080H - ld (secsize),hl ;sector size -; -;now to do the writing on the disk -nextsec: - ld bc,(track) - call 0FA1EH ;set the track required -; - ld bc,(from) - call 0FA24H ;set the dma address -; - ld bc,(sector) - call 0FA21H ;set the sector to write -; - ld c,0 - call 0FA2AH ;write the sector -; check for error's on return - cp 0 ;a=0=no errors - jr z,go$on - uprint erms ;error message - uprint crtocont - input ;pause for any key to continue - ld a,0 - ld (0FA34H),a ;reset write safe flag - jp config ;exit -; -go$on: - ld hl,(from) ;dma address - ld de,(secsize) - add hl,de ;bump dma address - ld (from),hl ;save it for reuse - ld a,(sector) - inc a ;bump sector number - ld (sector),a ;save for next write - ld a,(count) ;are we - dec a ;done yet - ld (count),a ;save in case we are not done - cp 0 - jp nz,nextsec ;not yet finished -; - uprint alldone - ld a,0 - ld (0FA34H),a ;reset write safe flag - jp config ;exit -; -change: defb 0 -disk: defb 0 -from: defw 0 -puthere: - defw 0 -track: defw 0 -sector: defw 0 -count: defb 0 -gohere: defw 0 -secsize: - defw 0 -crlf: defb cr,lf,'$' -alldone: - defb cr,lf,'DONE WITH CONFIGURATION',cr,lf,'$' -crtocont: - defb cr,lf,'Please type any key to continue','$' -erms: - defb cr,lf,'*** I can''t write to your disk ***',cr,lf,'$' -menuheader: - defb 01AH,cr,lf,cr,lf - defb 'KAYPRO II CONFIGURATION PROGRAM 11 July 1982' -; -choices: - defb cr,lf - defb '-----------------------------------------------' - defb cr,lf,cr,lf - defb 'CHOICES' - defb cr,lf - defb '-------' - defb cr,lf,cr,lf - defb '$' -menu0: ;first level menu - defb '1 --------> I/O Byte cold boot defaults' - defb cr,lf - defb '2 --------> Write Safe flag' - defb cr,lf - defb '3 --------> Cursor Keys definitions' - defb cr,lf - defb '4 --------> Numerical keypad definitions' - defb cr,lf - defb '5 --------> Baud rate' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> EXIT this program and return to CP/M' - defb cr,lf - defb cr,lf - defb '(* NOTE: Anything not changed will contain its default value. *)' - defb cr,lf - defb cr,lf - defb 'Any changes that this program can make will only affect the disk in drive B.' - defb cr,lf - defb 'These changes will not be seen until you move the disk to drive A and' - defb cr,lf - defb 'push the RESET switch (Cold Boot) or turn the power off and on,' - defb cr,lf - defb 'EXCEPT selection ''5'' (Baud rate) which will have an immediate effect.' - defb cr,lf - defb 'Upon exiting this program you will be asked whether you want to apply' - defb cr,lf - defb 'the changes to the disk in drive B.' - defb cr,lf - defb 'Please enter ''1'' or ''2'' or ''3'' or ''4'' or ''5'' or [ESC] key ====>','$' -menu1: ;I/O BYTE menu - defb '1 --------> Help (I/O Byte definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the I/O Byte' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -; -menu2: ;write safe flag - defb '1 --------> Help (Write safe flag definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the write safe flag' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf - defb cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -; -menu3: ;cursor key - defb '1 --------> Help (Cursor key definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the Cursor key settings' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -menu4: ;numerical key-pad - defb '1 --------> Help (Numerical keypad definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the Numerical keypad settings' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -menu5: ;baud rate - defb '1 --------> Help (Baud rate definitions)' - defb cr,lf,cr,lf - defb '2 --------> Change the Baud rate' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -ask: - defb cr,lf - defb 'Y----------> procede to update the disk in drive B' - defb cr,lf - defb 'N----------> not ready, EXIT TO CP/M' - defb cr,lf - defb cr,lf - defb 'Please type (Y) or (N) ====>' - defb '$' -; -nummsg: - defb 1ah,cr,lf - defb 'On the right hand side of your KAYPRO II keyboard there is a group of',cr,lf - defb 'fourteen keys, labeled: 7 8 9 -',cr,lf - defb ' 4 5 6 ,',cr,lf - defb ' 1 2 3 enter',cr,lf - defb ' 0 .',cr,lf - defb cr,lf - defb 'These fourteen keys each produce a unique code when typed.',cr,lf - defb 'In some situations it may be useful to have one or more keys ',cr,lf - defb 'provide a special function, such as in an application',cr,lf - defb 'program requiring choices from a menu.',cr,lf - defb ' This portion of the CONFIGURATION program allows you to set the',cr,lf - defb 'codes which will be produced by these fourteen keys.',cr,lf - defb cr,lf,lf,lf,lf - defb '$' -baudmsg: - defb 1ah,cr,lf - defb 'Your KAYPRO II computer has a serial port with which you may communicate',cr,lf - defb 'with the outside world. This serial port is most often referred to as',cr,lf - defb 'RS-232. In using RS-232 both the computer and the external device',cr,lf - defb 'must be set at the same baud rate (the speed at which data travels)',cr,lf - defb cr,lf - defb ' Your KAYPRO II is capable of the following baud rates:',cr,lf - defb ' 50 -not used very often',cr,lf - defb ' 75 -not used very often',cr,lf - defb ' 110 -used with slower printers',cr,lf - defb ' 134.5 -used with some IBM printers',cr,lf - defb ' 150 -not used very often',cr,lf - defb ' 300 -very common (default on your KAYPRO II on reset)',cr,lf - defb ' 600 -not used very often',cr,lf - defb ' 1200 -used with many printers',cr,lf - defb ' 1800 -not used very often',cr,lf - defb ' 2000 -not used very often',cr,lf - defb ' 2400 -not used very often',cr,lf - defb ' 3600 -not used very often',cr,lf - defb ' 4800 -higher rate for faster printers',cr,lf - defb ' 7200 -not used very often',cr,lf - defb ' 9600 -highest rate normally used',cr,lf - defb '19200 -very high rate (for special purposes)',cr,lf - defb '(* NOTE: the PRESENT baud rate remains in effect until the next RESET *)' - defb '$' -iomsg: defb 1ah,cr,lf - defb 'In order to understand this command you should read the CP/M manual',cr,lf - defb '"AN INTRODUCTION TO CP/M FEATURES AND FACILITIES", the STAT command',cr,lf - defb 'logical and physical devices. The logical CP/M devices are: CON: LST:',cr,lf - defb 'RDR: and PUN:. The physical devices for the KAYPRO computer are:',cr,lf,lf - defb ' CRT: Video and Keyboard',cr,lf - defb ' TTY: Serial port (note the connector must be wired as in the manual)',cr,lf - defb ' LPT: Centronics port',cr,lf - defb ' UL1: This is the same as TTY: above',cr,lf - defb ' PTP: This is the same as TTY: above',cr,lf,lf - defb 'Possible logical to physical assignments are:',cr,lf,lf - defb ' CON: = TTY: or CRT:',cr,lf - defb ' RDR: = TTY:',cr,lf - defb ' PUN: = TTY: or CRT: or LPT: or UL1:',cr,lf,lf - defb 'BEFORE using this option try it with the STAT command in CP/M.',cr,lf - defb cr,lf,'$' -safmsg: defb 1ah, cr, lf - defb 'Your KAYPRO computer comes with a special "Write Safe" option that corrects',cr,lf - defb 'a problem with CP/M when running with SOME application programs. It is not',cr,lf - defb 'possible to make the following description nontechnical. If you do not under-',cr,lf - defb 'stand it, ask your dealer. The wrong setting of the "Write Safe" flag may cause',cr,lf - defb 'the IRREVOCABLE LOSS OF DATA AND OR PROGRAM(S).',cr,lf,lf - defb 'The KAYPRO computer uses deblocking. When a disk write operation is',cr,lf - defb 'immediately followed by a warm boot, the deblocking buffer may not be',cr,lf - defb 'written to the disk. This is not a likely sequence of events. Most programs',cr,lf - defb 'when finished writing to a file, will close it. ALL directory operations force',cr,lf - defb 'the deblock buffer to disk on write. The "Write Safe" flag tells the BIOS',cr,lf - defb 'that ALL disk operations are directory type. This forces the buffer to the',cr,lf - defb 'disk. The price is performance, as "Write Safe" will slow the computer down',cr,lf - defb 'from 2 to 4 times when writing to the disk. "Write Safe" is not a panacea',cr,lf - defb 'for system or program problems. The chance you will need it is rare.',cr,lf,lf - defb cr,lf,'$' -vecmsg: defb 1ah,cr,lf - defb 'It is not possible to make the following discription nontechnical.', cr, lf - defb 'If you do not understand it please ask your dealer.',cr,lf,lf - defb 'Your KAYPRO II computer comes with four arrow keys, they are at the upper right',cr,lf - defb 'of the main keyboard. They are usually referred to as CURSOR keys. They are ',cr,lf - defb 'used in programs such as SELECT to move the cursor. These keys produce codes',cr,lf - defb 'that are recognized by applications programs. The codes that they produce may',cr,lf - defb 'or may not be the codes that an application you supply wants. The codes sent',cr,lf - defb 'by the keyboard are unique, MSB set. The BIOS translates the keyboard codes',cr,lf - defb 'using a table in the BIOS. This option of the configure program allows you',cr,lf - defb 'to change the values in this table and record it on the disk. The memory',cr,lf - defb 'image is not changed until you cold boot (reset).',cr,lf,lf - defb cr,lf,'$' -;here begins the updated cbios which must eventually -;reside and operate at 0FA00H which is 01F80H in the sysgen image -;and is track 1 sectors 21-22-23-24 on the disk -; -cbios: ;label to allow update to find him -;*************************************** - .phase bios ;absolute location of code following - 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 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 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+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 config - \ No newline at end of file diff --git a/2006/toledo2/CONFIG.COM b/2006/toledo2/CONFIG.COM deleted file mode 100644 index 6645816a8..000000000 Binary files a/2006/toledo2/CONFIG.COM and /dev/null differ diff --git a/2006/toledo2/COPY.COM b/2006/toledo2/COPY.COM deleted file mode 100644 index 4aa4063a2..000000000 Binary files a/2006/toledo2/COPY.COM and /dev/null differ diff --git a/2006/toledo2/CPM64.COM b/2006/toledo2/CPM64.COM deleted file mode 100644 index a5766f288..000000000 Binary files a/2006/toledo2/CPM64.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/APPEND.OVR b/2006/toledo2/DBASEII/APPEND.OVR deleted file mode 100644 index 457fe05a0..000000000 Binary files a/2006/toledo2/DBASEII/APPEND.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASE.COM b/2006/toledo2/DBASEII/DBASE.COM deleted file mode 100644 index b19a7d48c..000000000 Binary files a/2006/toledo2/DBASEII/DBASE.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEAPP.OVR b/2006/toledo2/DBASEII/DBASEAPP.OVR deleted file mode 100644 index 3eae192c8..000000000 Binary files a/2006/toledo2/DBASEII/DBASEAPP.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEBRO.OVR b/2006/toledo2/DBASEII/DBASEBRO.OVR deleted file mode 100644 index 5601fe289..000000000 Binary files a/2006/toledo2/DBASEII/DBASEBRO.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEJOI.OVR b/2006/toledo2/DBASEII/DBASEJOI.OVR deleted file mode 100644 index a45fc0ee9..000000000 Binary files a/2006/toledo2/DBASEII/DBASEJOI.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEMAI.OVR b/2006/toledo2/DBASEII/DBASEMAI.OVR deleted file mode 100644 index a6019b196..000000000 Binary files a/2006/toledo2/DBASEII/DBASEMAI.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEMOD.OVR b/2006/toledo2/DBASEII/DBASEMOD.OVR deleted file mode 100644 index baa9bcf5b..000000000 Binary files a/2006/toledo2/DBASEII/DBASEMOD.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEMSC.OVR b/2006/toledo2/DBASEII/DBASEMSC.OVR deleted file mode 100644 index 0f1759ffd..000000000 Binary files a/2006/toledo2/DBASEII/DBASEMSC.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEMSG.COM b/2006/toledo2/DBASEII/DBASEMSG.COM deleted file mode 100644 index f56db9eb1..000000000 Binary files a/2006/toledo2/DBASEII/DBASEMSG.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASERPG.OVR b/2006/toledo2/DBASEII/DBASERPG.OVR deleted file mode 100644 index 2b7b2371a..000000000 Binary files a/2006/toledo2/DBASEII/DBASERPG.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASESRT.OVR b/2006/toledo2/DBASEII/DBASESRT.OVR deleted file mode 100644 index c7c8ede54..000000000 Binary files a/2006/toledo2/DBASEII/DBASESRT.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASETTL.OVR b/2006/toledo2/DBASEII/DBASETTL.OVR deleted file mode 100644 index 599424f4c..000000000 Binary files a/2006/toledo2/DBASEII/DBASETTL.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/DBASEUPD.OVR b/2006/toledo2/DBASEII/DBASEUPD.OVR deleted file mode 100644 index 4c82f312b..000000000 Binary files a/2006/toledo2/DBASEII/DBASEUPD.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/EQUAL85.DBF b/2006/toledo2/DBASEII/EQUAL85.DBF deleted file mode 100644 index 9056c3579..000000000 Binary files a/2006/toledo2/DBASEII/EQUAL85.DBF and /dev/null differ diff --git a/2006/toledo2/DBASEII/FORMAT.COM b/2006/toledo2/DBASEII/FORMAT.COM deleted file mode 100644 index 1ca2f4b16..000000000 Binary files a/2006/toledo2/DBASEII/FORMAT.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/INDX.NDX b/2006/toledo2/DBASEII/INDX.NDX deleted file mode 100644 index 1d48e242d..000000000 Binary files a/2006/toledo2/DBASEII/INDX.NDX and /dev/null differ diff --git a/2006/toledo2/DBASEII/JOIN.OVR b/2006/toledo2/DBASEII/JOIN.OVR deleted file mode 100644 index 4ae1e019b..000000000 Binary files a/2006/toledo2/DBASEII/JOIN.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/LEAST85.DBF b/2006/toledo2/DBASEII/LEAST85.DBF deleted file mode 100644 index 1471abde7..000000000 Binary files a/2006/toledo2/DBASEII/LEAST85.DBF and /dev/null differ diff --git a/2006/toledo2/DBASEII/MAIN.OVR b/2006/toledo2/DBASEII/MAIN.OVR deleted file mode 100644 index 9e4288ac9..000000000 Binary files a/2006/toledo2/DBASEII/MAIN.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/MISC.OVR b/2006/toledo2/DBASEII/MISC.OVR deleted file mode 100644 index ca8f0036f..000000000 Binary files a/2006/toledo2/DBASEII/MISC.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/MISSING.TXT b/2006/toledo2/DBASEII/MISSING.TXT deleted file mode 100644 index be32cfbe3..000000000 --- a/2006/toledo2/DBASEII/MISSING.TXT +++ /dev/null @@ -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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/2006/toledo2/DBASEII/MODIFY.OVR b/2006/toledo2/DBASEII/MODIFY.OVR deleted file mode 100644 index 624045780..000000000 Binary files a/2006/toledo2/DBASEII/MODIFY.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/PIP.COM b/2006/toledo2/DBASEII/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/DBASEII/PIP.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/PRINTE.CMD b/2006/toledo2/DBASEII/PRINTE.CMD deleted file mode 100644 index f7b1a810c..000000000 --- a/2006/toledo2/DBASEII/PRINTE.CMD +++ /dev/null @@ -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 \ No newline at end of file diff --git a/2006/toledo2/DBASEII/RPG.OVR b/2006/toledo2/DBASEII/RPG.OVR deleted file mode 100644 index 543fa964c..000000000 Binary files a/2006/toledo2/DBASEII/RPG.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/SORT.OVR b/2006/toledo2/DBASEII/SORT.OVR deleted file mode 100644 index 2e5904812..000000000 Binary files a/2006/toledo2/DBASEII/SORT.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/STAT.COM b/2006/toledo2/DBASEII/STAT.COM deleted file mode 100644 index 1de359f27..000000000 Binary files a/2006/toledo2/DBASEII/STAT.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/SYSGEN.COM b/2006/toledo2/DBASEII/SYSGEN.COM deleted file mode 100644 index 0098e2c13..000000000 Binary files a/2006/toledo2/DBASEII/SYSGEN.COM and /dev/null differ diff --git a/2006/toledo2/DBASEII/TOTAL.OVR b/2006/toledo2/DBASEII/TOTAL.OVR deleted file mode 100644 index 54168b07f..000000000 Binary files a/2006/toledo2/DBASEII/TOTAL.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/UPDATE.OVR b/2006/toledo2/DBASEII/UPDATE.OVR deleted file mode 100644 index 6bf89a6f5..000000000 Binary files a/2006/toledo2/DBASEII/UPDATE.OVR and /dev/null differ diff --git a/2006/toledo2/DBASEII/XDIR.COM b/2006/toledo2/DBASEII/XDIR.COM deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/DBASEII/XDIR.COM and /dev/null differ diff --git a/2006/toledo2/DDT.COM b/2006/toledo2/DDT.COM deleted file mode 100644 index 83f8603f9..000000000 Binary files a/2006/toledo2/DDT.COM and /dev/null differ diff --git a/2006/toledo2/DUMP.COM b/2006/toledo2/DUMP.COM deleted file mode 100644 index 03a77c3ca..000000000 Binary files a/2006/toledo2/DUMP.COM and /dev/null differ diff --git a/2006/toledo2/ED.COM b/2006/toledo2/ED.COM deleted file mode 100644 index a0f0f5410..000000000 Binary files a/2006/toledo2/ED.COM and /dev/null differ diff --git a/2006/toledo2/FORMAT.COM b/2006/toledo2/FORMAT.COM deleted file mode 100644 index 1ca2f4b16..000000000 Binary files a/2006/toledo2/FORMAT.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/ALIENS.COM b/2006/toledo2/GAMES/ALIENS.COM deleted file mode 100644 index 8db719d42..000000000 Binary files a/2006/toledo2/GAMES/ALIENS.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/ASM.COM b/2006/toledo2/GAMES/ASM.COM deleted file mode 100644 index a6a54da56..000000000 Binary files a/2006/toledo2/GAMES/ASM.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/BAUD.COM b/2006/toledo2/GAMES/BAUD.COM deleted file mode 100644 index f7fd7bb5a..000000000 Binary files a/2006/toledo2/GAMES/BAUD.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/CATCHUM.COM b/2006/toledo2/GAMES/CATCHUM.COM deleted file mode 100644 index b12828641..000000000 Binary files a/2006/toledo2/GAMES/CATCHUM.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/CATCHUM.DAT b/2006/toledo2/GAMES/CATCHUM.DAT deleted file mode 100644 index 73a659e34..000000000 Binary files a/2006/toledo2/GAMES/CATCHUM.DAT and /dev/null differ diff --git a/2006/toledo2/GAMES/CONFIG.COM b/2006/toledo2/GAMES/CONFIG.COM deleted file mode 100644 index ed135598c..000000000 Binary files a/2006/toledo2/GAMES/CONFIG.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/COPY.COM b/2006/toledo2/GAMES/COPY.COM deleted file mode 100644 index 181c17850..000000000 Binary files a/2006/toledo2/GAMES/COPY.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/D.COM b/2006/toledo2/GAMES/D.COM deleted file mode 100644 index 4653df331..000000000 Binary files a/2006/toledo2/GAMES/D.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/DDT.COM b/2006/toledo2/GAMES/DDT.COM deleted file mode 100644 index 83f8603f9..000000000 Binary files a/2006/toledo2/GAMES/DDT.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/DUMP.ASM b/2006/toledo2/GAMES/DUMP.ASM deleted file mode 100644 index 1b713f34f..000000000 --- a/2006/toledo2/GAMES/DUMP.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/2006/toledo2/GAMES/DUMP.COM b/2006/toledo2/GAMES/DUMP.COM deleted file mode 100644 index 03a77c3ca..000000000 Binary files a/2006/toledo2/GAMES/DUMP.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/ED.COM b/2006/toledo2/GAMES/ED.COM deleted file mode 100644 index a0f0f5410..000000000 Binary files a/2006/toledo2/GAMES/ED.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/INITDISK.COM b/2006/toledo2/GAMES/INITDISK.COM deleted file mode 100644 index 5989587a8..000000000 Binary files a/2006/toledo2/GAMES/INITDISK.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/LADDER.COM b/2006/toledo2/GAMES/LADDER.COM deleted file mode 100644 index 9d052fe4c..000000000 Binary files a/2006/toledo2/GAMES/LADDER.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/LADDER.DAT b/2006/toledo2/GAMES/LADDER.DAT deleted file mode 100644 index 8843761b4..000000000 Binary files a/2006/toledo2/GAMES/LADDER.DAT and /dev/null differ diff --git a/2006/toledo2/GAMES/LOAD.COM b/2006/toledo2/GAMES/LOAD.COM deleted file mode 100644 index b9601e002..000000000 Binary files a/2006/toledo2/GAMES/LOAD.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/MOVCPM.COM b/2006/toledo2/GAMES/MOVCPM.COM deleted file mode 100644 index 835f1fb6b..000000000 Binary files a/2006/toledo2/GAMES/MOVCPM.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/PIP.COM b/2006/toledo2/GAMES/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/GAMES/PIP.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/SETDISK.COM b/2006/toledo2/GAMES/SETDISK.COM deleted file mode 100644 index 78694963e..000000000 Binary files a/2006/toledo2/GAMES/SETDISK.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/STAT.COM b/2006/toledo2/GAMES/STAT.COM deleted file mode 100644 index 1de359f27..000000000 Binary files a/2006/toledo2/GAMES/STAT.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/SUBMIT.COM b/2006/toledo2/GAMES/SUBMIT.COM deleted file mode 100644 index 400ce2f7f..000000000 Binary files a/2006/toledo2/GAMES/SUBMIT.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/SYSGEN.COM b/2006/toledo2/GAMES/SYSGEN.COM deleted file mode 100644 index 0098e2c13..000000000 Binary files a/2006/toledo2/GAMES/SYSGEN.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/TERM.COM b/2006/toledo2/GAMES/TERM.COM deleted file mode 100644 index 2b8e6408a..000000000 Binary files a/2006/toledo2/GAMES/TERM.COM and /dev/null differ diff --git a/2006/toledo2/GAMES/XSUB.COM b/2006/toledo2/GAMES/XSUB.COM deleted file mode 100644 index 15e86abfc..000000000 Binary files a/2006/toledo2/GAMES/XSUB.COM and /dev/null differ diff --git a/2006/toledo2/INITDISK.COM b/2006/toledo2/INITDISK.COM deleted file mode 100644 index fbeba1123..000000000 Binary files a/2006/toledo2/INITDISK.COM and /dev/null differ diff --git a/2006/toledo2/KBIOS.ASM b/2006/toledo2/KBIOS.ASM deleted file mode 100644 index 541f5301a..000000000 --- a/2006/toledo2/KBIOS.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/2006/toledo2/KERMIT/ATEST.DOC b/2006/toledo2/KERMIT/ATEST.DOC deleted file mode 100644 index b95ccbb2c..000000000 --- a/2006/toledo2/KERMIT/ATEST.DOC +++ /dev/null @@ -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 -  \ No newline at end of file diff --git a/2006/toledo2/KERMIT/B b/2006/toledo2/KERMIT/B deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/KERMIT/B and /dev/null differ diff --git a/2006/toledo2/KERMIT/BAUD.COM b/2006/toledo2/KERMIT/BAUD.COM deleted file mode 100644 index f7fd7bb5a..000000000 Binary files a/2006/toledo2/KERMIT/BAUD.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/CONFIG.COM b/2006/toledo2/KERMIT/CONFIG.COM deleted file mode 100644 index 6645816a8..000000000 Binary files a/2006/toledo2/KERMIT/CONFIG.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/FORMAT.COM b/2006/toledo2/KERMIT/FORMAT.COM deleted file mode 100644 index 1ca2f4b16..000000000 Binary files a/2006/toledo2/KERMIT/FORMAT.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/KAYKER.COM b/2006/toledo2/KERMIT/KAYKER.COM deleted file mode 100644 index 8c57db6c3..000000000 Binary files a/2006/toledo2/KERMIT/KAYKER.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/KAYVT52.KEY b/2006/toledo2/KERMIT/KAYVT52.KEY deleted file mode 100644 index 8de2367f7..000000000 --- a/2006/toledo2/KERMIT/KAYVT52.KEY +++ /dev/null @@ -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 | | -| | | | ------------------------------------------ - \ No newline at end of file diff --git a/2006/toledo2/KERMIT/PIP.COM b/2006/toledo2/KERMIT/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/KERMIT/PIP.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/PRINT.TST b/2006/toledo2/KERMIT/PRINT.TST deleted file mode 100644 index 202e46170..000000000 --- a/2006/toledo2/KERMIT/PRINT.TST +++ /dev/null @@ -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ó  - - - 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  - -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® - \ No newline at end of file diff --git a/2006/toledo2/KERMIT/VT52.COM b/2006/toledo2/KERMIT/VT52.COM deleted file mode 100644 index 92f853501..000000000 Binary files a/2006/toledo2/KERMIT/VT52.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/VT52.DOC b/2006/toledo2/KERMIT/VT52.DOC deleted file mode 100644 index fc9ea1460..000000000 --- a/2006/toledo2/KERMIT/VT52.DOC +++ /dev/null @@ -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 - - - - - \ No newline at end of file diff --git a/2006/toledo2/KERMIT/WINSTALL.COM b/2006/toledo2/KERMIT/WINSTALL.COM deleted file mode 100644 index 4734c1031..000000000 Binary files a/2006/toledo2/KERMIT/WINSTALL.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/WS.INS b/2006/toledo2/KERMIT/WS.INS deleted file mode 100644 index e69de29bb..000000000 diff --git a/2006/toledo2/KERMIT/WSMSGS.OVR b/2006/toledo2/KERMIT/WSMSGS.OVR deleted file mode 100644 index b4fb5b598..000000000 Binary files a/2006/toledo2/KERMIT/WSMSGS.OVR and /dev/null differ diff --git a/2006/toledo2/KERMIT/WSOVLY1.OVR b/2006/toledo2/KERMIT/WSOVLY1.OVR deleted file mode 100644 index 962fb5390..000000000 Binary files a/2006/toledo2/KERMIT/WSOVLY1.OVR and /dev/null differ diff --git a/2006/toledo2/KERMIT/WSU.COM b/2006/toledo2/KERMIT/WSU.COM deleted file mode 100644 index 5f7ac25b1..000000000 Binary files a/2006/toledo2/KERMIT/WSU.COM and /dev/null differ diff --git a/2006/toledo2/KERMIT/XDIR.COM b/2006/toledo2/KERMIT/XDIR.COM deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/KERMIT/XDIR.COM and /dev/null differ diff --git a/2006/toledo2/KPRS2.ASM b/2006/toledo2/KPRS2.ASM deleted file mode 100644 index d7a60f9f0..000000000 --- a/2006/toledo2/KPRS2.ASM +++ /dev/null @@ -1,1675 +0,0 @@ -title KAYPRO RESIDENT SOFTWARE PACKAGE 2.0 , Copyright (C) 1982 NLS, Inc. -subttl Cold start and configure - aseg - ORG 0 -.comment % -######################################################## -## ## -## Cold start routine, reset and configure ## -## system for power up condition. ## -## ## -## Copyright (C) 1982 By Non-Linear Systems, Inc ## -## No warranty is made, expressed or implied. ## -## ## -######################################################## -## Last update: july 13/1982 [001] ## -## by JIM NICKERSON ## -## change list out with busy jump to ## -## to check status of serial port ## -######################################################## -% - .xlist -; extrn stack, diskinit, vidinit, devinit, print, dmaadr, dpha -; extrn home, seldsk, settrk, setsec, setdma, read, write -; extrn sectran, kbdstat, kbdin, kbdout, ttystat, ttyin, ttyout, TTYOSTAT -; extrn liststat, list, vidout, diskoff, diskon, thnsd - .list - .z80 - -; ROM master jump table - -jp start ; start up computer -jp diskinit ; disk initialize -jp vidinit ; video initialize -jp devinit ; device initialize - -jp home ; home selected disk drive -jp seldsk ; select a disk drive -jp settrk ; seek a track -jp setsec ; set sector number to read -jp setdma ; set dma address -jp read ; read logical sector -jp write ; write logical sector -jp sectran ; xlate sector number -jp diskon ; turn on disk -jp diskoff ; turn off disk - -jp kbdstat ; KeyBoarD character ready -jp kbdin ; input from keyboard -jp kbdout ; output to keyboard (used to ring bell) -jp ttystat ; status of serial input port -jp ttyin ; serial input -jp ttyout ; serial output -jp liststat ; list output status (Centronics) -jp list ; list output -JP TTYOSTAT ;TESTSTATUS OF SERIAL OUTPUT -jp vidout ; video output -jp thnsd ; short delay - -start: di ; stop interupts while setup - ld sp,stack ; rom stack point - ld b,10 ; a delay to let the hardware stabilize - call thnsd - call devinit ; init device sub-system - call vidinit ; init video sub-system - call diskinit ; init disk sub-system - jr bootsys ; boot system - org 66H ; nmi vector - ret ; return from "halt", NMI sequence when in rom -page -; boot system, the first sector (1) of the first track (0) -; hold system boot information. It does NOT hold a short boot routine! -; the image is: -; self: jr self ; hang if booted and run -; defw loadpt ; where to load the opsys image -; defw bios ; where to go after booting system -; defw length ; length of image in 128 byte sectors -; (* the rest of the sector is not used *) -; -; This sector image is loaded and inspected at 0FA00H during the boot process - -crlf equ 0D0AH ; new line codes -esc equ 1BH ; ascii esc -bell equ 07H ; kbd bell - -bootsys:call print - defb esc,'=',20H+10,20H+31 - DEFB '* KAYPRO II *' - defb esc,'=',20H+13,20H+20 - defb 'Please insert your diskette into Drive A',8,0 - ld c,0 - call seldsk ; select disk, set density, do home after diskinit - ld bc,0 ; set track - call settrk - ld c,0 ; read the first sector - call setsec - ld bc,0FA00H ; header sector to go here - call setdma - call read ; read sector to FA00 - di ; read does EI upon exit - or a ; trouble reading? - jr nz,booterr ; tell crt - ld bc,(0FA02H) ; where to load system image - ld (dmaadr),bc - ld bc,(0FA04H) ; where to go after loading system - push bc ; save for latter use - ld bc,(0FA06H) ; length of system in 128 byte sectors - ld b,c ; reg B holds # of sectors to load - ld c,1 ; initial sector (0 was header sector) -cb1: push bc ; save sector count and current sector - call setsec ; select sector - call read - di ; read does EI upon exit - pop bc - or a - jr nz,booterr ; bad read of sector - ld hl,(dmaadr) ; update dma address for next sector - ld de,128 ; new dma address - add hl,de - ld (dmaadr),hl - dec b - ret z ; done booting goto system - inc c ; bump sector count - ld a,40 ; over sectors/track? - cp c - jr nz,cb1 ; fetch another sector - ld c,16 ; first sector to read on next track - push bc ; save counts - ld bc,1 ; set for next track - call settrk - pop bc - jr cb1 - -booterr:call print - defw crlf, crlf - defb bell,'I cannot read your diskette.',0 - call diskoff ; turn off disk drive -self: jr self ; hang till user pushes reset - -page -subttl Disk Equate and Parameters -.comment % -############################################################### -## ## -## Disk support routines (Deblocking) ## -## ## -############################################################### -## Last Update:06/08/82 [001] ## -############################################################### -% -.z80 - .xlist -; extrn sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec -; extrn sekhst, hstact, hstwrt, unacnt, unadsk, unatrk -; extrn unasec, erflag, rsflag, readop, wrtype, dmaadr -; extrn hstbuf, dsk, denflag, tracka, trackb, dirbuf -; extrn csva, alva, csvb, alvb, dpha, dphb, dpbs, dpbd, tbl1 -; extrn move, rd128, rd512, wrt128, wrt512 -; -; public home, seldsk, settrk, setsec, setdma, read, write, sectran -; public diskinit, diskon, diskoff, thnsd - .list - -bitport equ 01CH ; bit port (m80 does not support extrn bytes) -drvmask equ 0FCH ; drive select mask -denmask equ 0DFH ; density bit mask -ddbit equ 00H ; double density bit -sdbit equ 20H ; single density bit -control equ 10H ; I/O port of disk controller -status equ control+0 ; status register -cmnd equ control+0 ; command register -track equ control+1 ; track register -sector equ control+2 ; sector register -data equ control+3 ; data register -ficmd equ 11010000B ; force interrupt (Abort current command) -rdcmd equ 10000000B ; read command -wrtcmd equ 10100000B ; write command -seekcmd equ 00010000B ; seek command -rstcmd equ 00000000B ; home (restore) command -adrcmd equ 11000000B ; read track address -rdmask equ 10011100B ; read status mask -wrtmask equ 11111100B ; write status mask -tries1 equ 4 ; re-home on bad sector # of tries+1 -tries2 equ 15 ; re-read/write # of retries+1 -retcod equ 0C9H ; return op code -nmivec equ 0066H ; non-maskable interupt vector (used in rd/wt loop) -page -; This section defines the disk parameters (dph's are images moved to RAM) -dph0: defw 0,0,0,0 ; dph for unit A: - defw dirbuf,dpbd ; directory buffer, Disk Parameter Block - defw csva, alva ; check sum pointer, allocation map pointer - defb ddbit ; density flag for this drive - - defw 0,0,0,0 ; dph for unit B: - defw dirbuf,dpbd ; directory buffer, Disk Parameter Block - defw csvb, alvb ; check sum pointer, allocation map pointer - defb ddbit ; density flag for this drive - -;dpbs: ;( single density ); - defw 18 ; (spt) sectors per track - defb 3 ; (bsh) block shift factor - defb 7 ; (blm) block mask - defb 0 ; (exm) extent mask - defw 82 ; (dsm) max logical block # - defw 31 ; (drm) max directory # - defb 80H ; (al0) directory allocation map - defb 00H ; (al1) - defw 8 ; (cks) size of directory check vector - defw 3 ; (off) reserved tracks -;dpbd: ;( double density ); - defw 40 ; (spt) sectors per track - defb 3 ; (bsh) block shift factor - defb 7 ; (blm) block mask - defb 0 ; (exm) extent mask - defw 194 ; (dsm) max logical block # - defw 63 ; (drm) max directory # - defb 0F0H ; (al0) directory allocation map & BIOS space - defb 00H ; (al1) - defw 16 ; (cks) size of directory check vector - defw 1 ; (off) reserved tracks - -; sector interleave table ( single density ) -;tbl1: - defb 1,6,11,16 - defb 3,8,13,18 - defb 5,10,15,2 - defb 7,12,17,4 - defb 9,14 -enddph: -subttl Logical BIOS entry points & Deblocking -page -.8080 -;***************************************************** -;* Logical BIOS entry points * -;* Sector Deblocking Algorithms * -;***************************************************** -blksiz equ 1024 ;CP/M allocation size -hstsiz equ 512 ;host disk sector size -hstspt equ 10 ;host disk sectors/trk -hstblk equ hstsiz/128 ;CP/M sects/host buff -cpmspt equ hstblk * hstspt ;CP/M sectors/track -secmsk equ hstblk-1 ;sector mask -secshf equ 2 ;log2(hstblk) sector mask -wrall equ 0 ;write to allocated -wrdir equ 1 ;write to directory -wrual equ 2 ;write to unallocated - -single macro lbl - lda denflag - ora a - jnz lbl - endm - -diskinit: ;enter here on system boot to initialize -.z80 - ld hl,ioimage ;move rd/wrt routines into RAM - ld de,move - ld bc,imaglen - ldir - ld hl,dph0 ; set dph's - ld de,dpha - ld bc,enddph-dph0 - ldir -.8080 - xra a ;0 to accumulator - sta hstact ;host buffer inactive - sta unacnt ;clear unalloc count - mvi a,ddbit ;set double density flag - sta denflag - mvi a,255 ;set track numbers to 255 - sta dsk ;clear disk number - sta tracka - sta trackb - ret - -seldsk: ;select disk - mov a,c ;selected disk number - sta sekdsk ;seek disk number - jmp dsksel ;physical disk select (If needed to check den) - -setsec: ;set sector given by register c - mov a,c - sta seksec ;sector to seek - single secset - ret - -.z80 -setdma: ld (dmaadr),bc ;set dma address given by BC - ret - -settrk: ld (sektrk),bc ;set track given by registers BC -.8080 - single trkset - ret - -home: single dohome ; if single goto dohome - lda hstwrt ; patch by DRI - ora a - jnz homed - sta hstact -homed: jmp dohome ; go do home disk drive - -read: ;read the selected CP/M sector - single rd128 ;128 byte sector? - xra a ; a patch by DRI - sta unacnt - mvi a,1 - sta readop ;read operation - sta rsflag ;must read data - mvi a,wrual - sta wrtype ;treat as unalloc - jmp rwoper ;to perform the read - -write: ;write the selected CP/M sector - single wrt128 ;128 byte sector? - xra a ;0 to accumulator - sta readop ;not a read operation - mov a,c ;write type in c - sta wrtype - cpi wrual ;write unallocated? - jnz chkuna ;check for unalloc - -; write to unallocated, set parameters - mvi a,blksiz/128 ;next unalloc recs - sta unacnt - lda sekdsk ;disk to seek - sta unadsk ;unadsk = sekdsk - lhld sektrk - shld unatrk ;unatrk = sectrk - lda seksec - sta unasec ;unasec = seksec - -chkuna: - ;check for write to unallocated sector - lda unacnt ;any unalloc remain? - ora a - jz alloc ;skip if not - -; more unallocated records remain - dcr a ;unacnt = unacnt-1 - sta unacnt - lda sekdsk ;same disk? - lxi h,unadsk - cmp m ;sekdsk = unadsk? - jnz alloc ;skip if not - -; disks are the same - lxi h,unatrk - call sektrkcmp ;sektrk = unatrk? - jnz alloc ;skip if not - -; tracks are the same - lda seksec ;same sector? - lxi h,unasec - cmp m ;seksec = unasec? - jnz alloc ;skip if not - -; match, move to next sector for future ref - inr m ;unasec = unasec+1 - mov a,m ;end of track? - cpi cpmspt ;count CP/M sectors - jc noovf ;skip if no overflow - -; overflow to next track - mvi m,0 ;unasec = 0 - lhld unatrk - inx h - shld unatrk ;unatrk = unatrk+1 - -noovf: - ;match found, mark as unnecessary read - xra a ;0 to accumulator - sta rsflag ;rsflag = 0 - jmp rwoper ;to perform the write - -alloc: - ;not an unallocated record, requires pre-read - xra a ;0 to accum - sta unacnt ;unacnt = 0 - inr a ;1 to accum - sta rsflag ;rsflag = 1 - -;* Common code for READ and WRITE follows *; - -rwoper: - ;enter here to perform the read/write - xra a ;zero to accum - sta erflag ;no errors (yet) - lda seksec ;compute host sector - ora a ;carry = 0 - rar ;shift right - ora a ;carry = 0 - rar ;shift right - sta sekhst ;host sector to seek - -; active host sector? - lxi h,hstact ;host active flag - mov a,m - mvi m,1 ;always becomes 1 - ora a ;was it already? - jz filhst ;fill host if not - -; host buffer active, same as seek buffer? - lda sekdsk - lxi h,hstdsk ;same disk? - cmp m ;sekdsk = hstdsk? - jnz nomatch - -; same disk, same track? - lxi h,hsttrk - call sektrkcmp ;sektrk = hsttrk? - jnz nomatch - -; same disk, same track, same buffer? - lda sekhst - lxi h,hstsec ;sekhst = hstsec? - cmp m - jz match ;skip if match - -nomatch: - ;proper disk, but not correct sector - lda hstwrt ;host written? - ora a - cnz writehst ;clear host buff - -filhst: - ;may have to fill the host buffer - lda sekdsk - sta hstdsk - lhld sektrk - shld hsttrk - lda sekhst - sta hstsec - lda rsflag ;need to read? - ora a - cnz readhst ;yes, if 1 - xra a ;0 to accum - sta hstwrt ;no pending write - -match: - ;copy data to or from buffer - lda seksec ;mask buffer number - ani secmsk ;least signif bits - mov l,a ;ready to shift - mvi h,0 ;double count - dad h ;shift left 7 - dad h - dad h - dad h - dad h - dad h - dad h -; hl has relative host buffer address -.z80 - ld de,hstbuf - add hl,de ;hl = host address - ld de,(dmaadr) ;de = dma address - ld bc,128 ;length - ld a,(readop) ;which way? - or a - jr nz,rwmove ;skip if read - -; write operation, mark and switch direction - ld a,1 - ld (hstwrt),a ;hstwrt = 1 - ex de,hl ;source/dest swap - -rwmove: call move ;move a logical sector to/from buffer - -.8080 -; data has been moved to/from host buffer - lda wrtype ;write type - cpi wrdir ;to directory? - lda erflag ;in case of errors - rnz ;no further processing - -; clear host buffer for directory write - ora a ;errors? - rnz ;skip if so - xra a ;0 to accum - sta hstwrt ;buffer written - call writehst - lda erflag - ret - -;* Utility subroutine for 16-bit compare *; - -sektrkcmp: ;HL = .unatrk or .hsttrk, compare with sektrk -; .z80 -; ld bc,(sektrk) -; or a ; clear carry -; sbc hl,bc ; hl=hl-bc -; ret ; return status - xchg - lxi h,sektrk - ldax d ;low byte compare - cmp m ;same? - rnz ;return if not -; low bytes equal, test high 1s - inx d - inx h - ldax d - cmp m ;sets flags - ret -subttl Physical disk routines -page -.z80 -; select disk drive, C=drive number 0=A:, 1=B: -; return HL=dph for selected drive, or HL=0 for non-existent drive -dsksel: ld hl,0 ; hl = 0 for non-existent drive - ld a,c - cp 2 - ret nc ; drive number >B: - or a ; zero flag set => A: drive else B: drive - ld hl,dpha ; select proper dph for drive - jr z,sel0 - ld hl,dphb -sel0: ld a,(dsk) ; selecting disk already selected? - cp c - ret z ; yes, no further action needed - ld a,c ; save new disk number - ld (dsk),a - or a ; set zero flag if A: drive - push hl ; hl=dph of disk to be selected - ld de,16 ; to density bit in dph - add hl,de - ld a,(hl) ; move into A then store into denflag - ld (denflag),a - ld hl,trackb ;now find proper track(x) - jr z,sel1 - dec hl -sel1: ld a,(hl) ; have we been on the disk we are "leaving" - cp 255 ; if not do not update trackx - jr z,selnot - in a,(track) - ld (hl),a ; save track of disk we are leaving -selnot: ld a,c ; set zero flag if A: drive - or a - ld hl,tracka - jr z,sel2 - inc hl -sel2: ld a,(hl) - out (track),a ; track of disk we are selecting - ex de,hl - pop hl ; address of dph for disk we are selecting -density:cp 255 ; first time for this drive? - ret nz ; need to check density? - call ready ; physical disk select - call home ; seek track 0 - in a,(bitport) ; test double density first - and denmask ; or in density flag - or ddbit ; set density flag - out (bitport),a - call dcheck ; see if we can read address - jr z,dend ; density is double? - in a,(bitport) ; set density flag to single - and denmask - or sdbit - out (bitport),a - call dcheck ; see if we can read address - ret nz ; can't read single or double so don't change - jr dens -dend: push hl ; (* double density *) hl^ to dph - push de - ld de,0 ; no xlate table (done by FORMAT program) - ld (hl),e ; store table^ into dph - inc hl - ld (hl),d - ld de,9 ; move foward in dph to dpb pointer - add hl,de - ld de,dpbd ; double density dpb - ld (hl),e - inc hl - ld (hl),d - ld de,5 ; to desity flag in dph - add hl,de - ld a,ddbit ; double density bit flag - ld (hl),a - ld (denflag),a - jr den1 ; exit -dens: push hl ; (* single density *) hl^ to dph - push de - ld de,tbl1 ; single density sector xlate table - ld (hl),e ; store table^ into dph - inc hl - ld (hl),d - ld de,9 ; move foward in dph to dpb pointer - add hl,de - ld de,dpbs ; single density dpb - ld (hl),e - inc hl - ld (hl),d - ld de,5 ; to desity flag in dph - add hl,de - ld a,sdbit ; single density bit flag - ld (hl),a - ld (denflag),a -den1: pop de ; restore pointer to dph - pop hl ; pointer to track(x) bios register - in a,(sector) ; update track register - out (track),a - ld (de),a - ret -dcheck: ld a,adrcmd ; get address command - out (cmnd),a ; issue command to controller - call busy ; wait for command done - bit 4,a ; record not found flag - ret ; return status - -; home disk head -dohome: call ready ; make sure drive is on and ready - ld a,rstcmd; restore command - out (cmnd),a; issue command - jr busy ; test and wait for not busy - -; seek track #, BC=Track # -trkset: call ready ; make sure drive is on and ready - ld a,c ; move track number to A - out (data),a ; track # to seek to - ld a,seekcmd ; seek command - out (cmnd),a ; issue command - jr busy ; test and wait for not busy - -; select sector #, BC=Sector # -secset: ld a,c ; move sector number to A - out (sector),a ; to controller register - ret - -; perform logical to physical sector translation. -; logical sector number in BC, table address in DE -; return physical sector number in HL -sectran:ld a,d ; table address 0? - or e - ld h,b ; if so no xlate - ld l,c - ret z - ex de,hl ; table address in hl - add hl,bc ; index by logical sector number - ld l,(hl) - ld h,0 - ret - -; ready disk drive, perform physical disk select, set density bit -ready: push hl ; save hl - push de ; and de - push bc - ld a,ficmd ; abort any controller action - out (cmnd),a - call diskon ; turn drive motor on - ld a,(dsk) ; A=drive # - ld e,a ; save drive # in E - in a,(bitport) ; A=bit port - and 0FCH ; strip current drive bits - or e ; or in requested drive - inc a ; bump, 01=A: 10=B: - and denmask ; set density bit - ld hl,denflag ; hl^ to density bit for this drive - or (hl) - out (bitport),a ; to bit port - pop bc - pop de - pop hl - ret - -; turn disk motor on, delay for drive speed -diskon: in a,(bitport) ; get current drive motor status - bit 6,a ; is motor on? - ret z ; motor on, do nothing - res 6,a ; motor on bit - out (bitport),a ; turn motor on - ld b,50 ; delay - call thnsd - ret - -; turn disk motor off -diskoff:in a,(bitport) - set 6,a ; motor off bit - out (bitport),a - ret -; delay for B th's @ 4Mhz -thnsd: ld de,1670 -tlp: dec de - ld a,d - or e - jp nz,tlp - djnz thnsd - ret - -; check status of controller, wait for command to finish executing -busy: halt ; wait for command done -bsy: in a,(status) ; now wait for not busy - bit 0,a - jr nz,bsy - ret -subttl Writehst and Readhst logical to Physical routines -page -;* WRITEHST performs the physical write to *; -;* the host disk, READHST reads the physical *; -;* disk. *; - -writehst:;hstdsk = host disk #, hsttrk = host track #, - ;hstsec = host sect #. write "hstsiz" bytes - ;from hstbuf and return error flag in erflag. - ;return erflag non-zero if error - ld de,tries1*256+tries2 ; retry error counts -wrthst: push de ; save error counts - call hstcom ; set track and sector - call wrt512 ; read sector - ld (erflag),a ; error return flag - pop de ; restore error flags - ret z ; good op - dec e ; retry count - jr nz,wrthst ; try again - dec d ; home and reseek count - ret z ; can't recover - call dohome ; re seek - ld e,tries2 ; reset retry count - jr wrthst - -readhst:;hstdsk = host disk #, hsttrk = host track #, - ;hstsec = host sect #. read "hstsiz" bytes - ;into hstbuf and return error flag in erflag. - ld de,tries1*256+tries2 ; retry error counts -rdhst: push de ; save error counts - call hstcom ; set track and sector - call rd512 ; read sector - ld (erflag),a ; error return flag - pop de ; restore error flags - ret z ; good op - dec e ; retry count - jr nz,rdhst ; try again - dec d ; home and reseek count - ret z ; can't recover - call dohome ; re seek - ld e,tries2 ; reset retry count - jr rdhst - -hstcom: ld a,(hstdsk) ; select disk - ld c,a - call dsksel - ld bc,(hsttrk) ; set track to hsttrk - call trkset ; physical seek - ld a,(hstsec) ; set physical sector - ld c,a ; c=sector - call secset - ret -subttl Physical disk I/O, RAM image -page -ioimage: -;move: ; block memory move, turn rom on/off - in a,(bitport) ; turn rom off - res 7,a - out (bitport),a - ldir ; move logical sector from hstbuf - in a,(bitport) ; turn rom back on - set 7,a - out (bitport),a - ret ; back to rom - -;rd128: - ld hl,(dmaadr) ; address of operation - ld b,1 ; read a 128 byte sector - jr rd -;rd512: - ld hl,hstbuf - ld b,4 ; read a 512 byte sector -; read a sector, return A=0 for no errors, A=1 for non-recoverable error -; if b=1 128, b=2 256, b=3 384, b=4 512 bytes/sector -rd: ld de,rdmask*256+rdcmd ; d=read status mask, e=read command - jr action - -;wrt128: - ld hl,(dmaadr) - ld b,1 ; write a 128 byte sector - jr wrt -;wrt512: - ld hl,hstbuf - ld b,4 ; write a 512 byte sector -; write a sector, return as per read -wrt: ld de,wrtmask*256+wrtcmd ; d=status mask, e=write command - ;fall through to action - -action: call ready ; make sure drive is on and ready - di ; no interrupts during disk I/O operations - in a,(bitport) ; turn rom off - res 7,a - out (bitport),a - push hl ; save address of disk buffer - ld hl,nmivec ; set up nmi vector - ld a,(hl) ; save current contents - ex af,af' - ld (hl),retcod ; this is a return after HALT in loop - pop hl ; hl = dma address - ld a,b ; sector multiple - ld bc,128*256+data ; b=sector length, c=data port - bit 0,a ; if 0 then 256 or 512 bytes/sector - jr nz,actn ; b set for 128 or 384 bytes/sector - ld b,0 ; b set for 256 or 512 bytes/sector -actn: cp 1 ; compute entry point 1st or 2nd loop - push psw ; save as Z flag - ld a,e ; i/o command - cp wrtcmd ; a write? - jr z,wstart ; start write command - - out (cmnd),a ; fall through to read loop - pop psw - jr z,rl2 -rl1: halt ; wait for controller - ini - jr nz,rl1 -rl2: halt - ini - jr nz,rl2 - jr done ; read loop done, exit - -wstart: out (cmnd),a ; write loop - pop psw - jr z,wl2 -wl1: halt - outi - jr nz,wl1 -wl2: halt - outi - jr nz,wl2 - -done: ex af,af' ; byte at nmi vector address - ld (nmivec),a ; restore it - in a,(bitport) ; turn rom back on - set 7,a - out (bitport),a - ei ; turn interrupts on - call busy ; get status when contoller not busy - and d ; status mask - ret z ; no bit set, return operation ok - ld a,1 ; cp/m error return - ret - -imaglen equ $-ioimage ; length of this image -page -subttl SIO, PIO, and CTC equates -.comment % -############################################################### -## ## -## System device I/O routines for KBD, TTY and LST ## -## ## -############################################################### -## LAST UPDATE: JULY 7,1982 [001] ## -## BY JIM NICKERSON ## -## CHANGED SIOA REGISTER 3 INIT TO AUTO ENABLE ## -## ADDED LIST STATUS FOR THE SERIAL PORT ## -## TTYOUT NOW THE SAME AS OUT WITH STATUS CHK ## -## CHANGE VECTOR PAD MAPING ## -############################################################### -% -.z80 -.xlist -; public kbdstat, kbdin, kbdout, ttystat, ttyin, ttyout, TTYOSTAT -; public liststat, list, devinit - .list - -;*************** -;* sio equates * -;*************** - -sio equ 04H ; base address of sio -sioa0 equ sio+2 ; channel a command/status -sioa1 equ sio+0 ; channel a data -siob0 equ sio+3 ; channel b command/status -siob1 equ sio+1 ; channel b data - -; write registers 0-7 and control bits -; init registers in the following order 0,2,4,3,5,1 - -WR0 equ 0 ; command register, crc reset, reg pointer -; bits 0-2 are register pointers to WRx and RRx -; bits 3-5 and commands as given bellow -null equ 0 ; null command -extrset equ 10H ; reset ext/status interrupts -reset equ 18H ; channel reset -ienrc equ 20H ; Enable Int on Next Rx Character -rtip equ 21H ; reset transmitter interrupt pending -errset equ 30H ; error reset -retint equ 31H ; return from interrupt - -WR1 equ 1H ; interrupt enable and Wait/Ready modes -esie equ 1H ; external/status interrupt enable -tie equ 2H ; transmitter interrupt enable -tid equ 0 ; transmitter interrupt disable -statav equ 4H ; Status affects vector (z80 mode 2) (see WR2) -; bits 3-4 affect receive interrupt mode -rid equ 0 ; receive interrupts disabled -rifc equ 8H ; receive interrupt on first char only -riep equ 10H ; recv interrupts enabled, parity err Special Recv Cond -rie equ 18H ; same as riep but parity error not Special Recv Cond - -WR2 equ 2 ; interrupt vector address/pointer (chan b only) -; interrupt address (z80 reg I+WR2=interrupt address) -; returned as is if not statav above in wr1 -; if statav then bits 1-3 are modified as bellow: -; 000 ch b transmit buffer empty -; 001 ch b external/status change -; 010 ch b receive char available -; 011 ch b special receive condition (parity error, Rx overrun, -; framing error, end of frame(sdlc) ) -; 1xx ch a (* same vectors as for channel b above *) - -WR3 equ 3 ; receiver logic control and parameters -re equ 1 ; receiver enable -autoe equ 20H ; auto enable (use dcd and cts to enable recv and xmt -; bits 6-7 are receiver bits/character -rbits5 equ 0 ; 5 bits/character -rbits7 equ 40H ; 7 bits/character -rbits6 equ 80H ; 6 bits/character -rbits8 equ 0C0H ; 8 bits/character - -WR4 equ 4 ; control bits that affect both xmt and recv -pon equ 1 ; enable parity (parity on) -pstate equ 2 ; parity even not pstate = parity odd -; bits 2-3 are number of stop bits -syncmd equ 0 ; sync mode is to be selected -sbits1 equ 4 ; 1 stop bit -sbits5 equ 8H ; 1.5 stop bits -sbits2 equ 0CH ; 2 stop bits -; bits 6-7 control clock rate -cr1 equ 0 ; data rate x1=clock rate -cr16 equ 40H ; x16 -cr32 equ 80H ; x32 -cr64 equ 0CH ; x64 - -WR5 equ 5 ; control bits that affect xmt -te equ 8H ; transmit enable -break equ 10H ; send break -; bits 5-6 are number of bits/character to transmit -tbits5 equ 0 ; 5 or less bits/character -tbits7 equ 20H ; 7 bits/character -tbits6 equ 40H ; 6 bits/character -tbits8 equ 60H ; 8 bits/character -rts equ 2 ; RTS output -dtr equ 80H ; DTR output - -WR6 equ 6 ; sdlc transmit sync character -WR7 equ 7 ; sdlc receive sync character - -; read registers 0-2 and status bits -rr0 equ 0 ; general recv and xmt status -rca equ 1 ; receive character available -intped equ 2 ; interrupt pending (ch a only) -tbe equ 4 ; transmit buffer empty -synhnt equ 10H ; sync/hunt -dcd equ 8H ; DCD input -cts equ 20H ; CTS input -xmtundr equ 40H ; transmit underrun/ EOM -brk equ 80H ; break/abort status - -rr1 equ 1 ; Special Receive conditions and Residue codes -; bits 4-7 are special receive conditions -rpe equ 10H ; parity error -rovr equ 20H ; Rx overrun error -framerr equ 40H ; framing error - -rr2 equ 2 ; interrupt vector address/pointer - -;*************** -;* pio equates * -;*************** - -pio equ 08H ; base address of pio -pioac equ pio+1 ; pio a control -pioad equ pio+0 ; pio a data -piobc equ pio+3 ; pio b control -piobd equ pio+2 ; pio b data - -spio equ 01CH ; base address of pio (system status bits port) -spioac equ spio+1 ; pio a control -spioad equ spio+0 ; pio a data -spiobc equ spio+3 ; pio b control -spiobd equ spio+2 ; pio b data - -bitport equ spioad ; system bit port for status and control -;0 drive sel A: -;1 drive sel B: -;2 n/c -;3 centronics i/o ready line -;4 centronics i/o data strobe -;5 single density (not 5 is double density) -;6 drive motor off (not 6 is motor on) -;7 rom enable (not 7 is rom off) - -; control register -setiv equ 0 ; set interrupt vector, bits 1-7 are vector address - -som equ 0FH ; set operating mode. bits 6-7 specify mode -mode0 equ 0 ; output -mode1 equ 40H ; input -mode2 equ 80H ; bidirectional -mode3 equ 0C0H ; control (bit by bit i/o, mode3 command is followed by - ; byte where bit pattern specifies i/o bits - ; 1=input, 0=output - -sicw equ 7H ; set interrupt control word, bits 4-7 are parameters -imask equ 10H ; bit mask follows ) -hghlow equ 20H ; high/low ) mode 3 only -andor equ 40H ; and/or of bits to gen interrupt ) -intena equ 80H ; enable interrupt (bit low disable interrupts) - -intcmd equ 03H ; set interrupt enable/disable without changing status as sicw - -;*************** -;* ctc equates * -;*************** - -ctc equ 18H ; ctc base address -ctc0 equ ctc+0 ; ctc channel 0 -ctc1 equ ctc+1 ; ctc channel 1 -ctc2 equ ctc+2 ; ctc channel 2 -ctc3 equ ctc+3 ; ctc channel 3 - -; channel control register bits -ctccmd equ 01H ; ctc command byte -ctcint equ 80H ; interrupt enable -ctcm1 equ 40H ; set ctc mode is counter -ctcm0 equ 00H ; set ctc mode is timer -range equ 20H ; timer prescaler factor is 256 (not range is 16) -slope equ 10H ; edge triger positive (not slope is negative edge) -trigger equ 8H ; ext trigger -ltc equ 4H ; load time constant (followed by time constant) -rsetctc equ 2H ; reset channel - -ctcivec equ 0 ; set ctc interrupt vector, bits 3-7 are vector addr -ctcvmsk equ 0F8H ; interrupt vector mask to strip bits 0-2 - -;*************** -;* baud rate * -;*************** - -bauda equ 00H ; baud rate generator for serial chan a -baudb equ 0CH ; baud rate generator for serial chan b - -; baud rate factors, output to baudx to select baud rate -baud10 equ 02H ; 110 baud rate -baud30 equ 05H ; 300 baud rate -baud12 equ 07H ; 1200 baud rate -baud24 equ 0AH ; 2400 baud rate -baud48 equ 0CH ; 4800 baud rate -baud96 equ 0EH ; 9600 baud rate -baud19k equ 0FH ; 19.2k baud rate -subttl I/O configuration tables -page -iotabint: ; i/o device initialization table - ; first byte is port # - ; second byte is byte to send to port - defb (iotblend-iotabint)/2 ; table length in arguments - -; init sio channel b -defb siob0, reset ; reset sio channel -defb baudb, baud30 ; 300 baud -defb siob0, wr4 -defb siob0, sbits1 or cr16 ; one stop bit, 16x clock -defb siob0, wr3 -defb siob0, re or rbits8 ; recv enable, 8 bits/char -defb siob0, wr5 -defb siob0, te or tbits8 or dtr ; xmt enable, 8bits/char, assert dtr -defb siob0, wr1 -defb siob0, tid or rid ; xmt & recv interrupts disabled - -; init sio channel a -defb sioa0, reset ; reset sio channel -defb bauda, baud30 ; 300 baud -defb sioa0, wr4 -defb sioa0, sbits1 or cr16 ; one stop bit, 16x clock -defb sioa0, wr3 -defb sioa0, re or rbits8 or autoe ; recv enable, 8 bits/char, auto enable -defb sioa0, wr5 -defb sioa0, te or tbits8 or dtr ; xmt enable, 8bits/char, assert dtr -defb sioa0, wr1 -defb sioa0, tid or rid ; xmt & recv interrupts disabled - -; init pio used form system control bits -defb spioac, intcmd ; disable interrupts -defb spioad, 10000001B ; set system status bits (before setting mode!) -defb spioac, som or mode3 ; set mode to #3 -defb spioac, 00001100B ; bit pattern for mode 3 - -; init pio used to drive printer -defb pioac, intcmd ; disable interrupts -defb pioac, som or mode0 ; set mode to #0 (output) -defb piobc, intcmd ; disable interrupts -defb piobc, som or mode1 ; set mode to #1 (input) -iotblend: ; end of table - -devinit:ld hl,iotabint ; initialize i/o devices - ld b,(hl) ; number of bytes to send to i/o devices -iolp: inc hl - ld c,(hl) ; port to send - inc hl - ld a,(hl) ; byte to send - out (c),a - djnz iolp - ret ; done -subttl Device I/O handlers -page -kbdstat:in a,(siob0) ; kbd char avail? - and rca - ret z ; 0=no char - ld a,0FFH ; FF=char avail - ret - -kbdin: call kbdstat ; loop till char avail - jr z,kbdin - in a,(siob1) ; get char - call kbdmap ; map out funny chars of vector pad and #'s - ret - -kbdout: in a,(siob0) ; xmit buffer empty? - and tbe - jr z,kbdout - ld a,c ; out character - out (siob1),a - ret - -kbdmap: ld hl,mapin ; input map table - ld bc,mapout-mapin ; table length - cpir ; search table - ret nz ; not found - ld de,mapin ; make hl=table index - or a ; hl-mapin=index - sbc hl,de - ld de,mapout-1 ; index - add hl,de - ld a,(hl) ; get char from mapout - ret - -mapin: defb 0F1H, 0F2H, 0F3H, 0F4H ; up, down, left, right arrows - defb 0B1H, 0C0H, 0C1H, 0C2H ; 0,1,2,3 - defb 0D0H, 0D1H, 0D2H, 0E1H ; 4,5,6,7 - defb 0E2H, 0E3H, 0E4H, 0D3H ; 8,9, '-', ',' - defb 0C3H, 0B2H ; return, '.' - defb 0FFH ; end of mapin table -mapout: defb 80H, 81H, 82H, 83H ; vector pad, xlate in bios - defb 84H, 85H, 86H, 87H - defb 88H, 89H, 8AH, 8BH - defb 8CH, 8DH, 8EH, 8FH - defb 90H, 91H - -ttystat:in a,(sioa0) ; serial port status input - and rca - JR COMOUT - -ttyin: call ttystat ; is a char ready? - jr z,ttyin - in a,(sioa1) - ret - -ttyout: in a,(sioa0) ; output a char to serial port - and tbe - jr z,ttyout ; xmit buffer full? - ld a,c - out (sioa1),a ; xmit character - ret - -; -TTYOSTAT: ;TEST STATUS OF SERIAL OUTPUT - IN A,(SIOA0) - AND TBE ;TX BUF FULL ? - JR COMOUT -; -; list port centronics equates -pready equ 3 ; bit in bit port -pstrob equ 4 ; bit in bit port - -liststat:in a,(bitport) ; centronics printer port status - bit pready,a -COMOUT: ret z ; 0=busy - ld a,0FFH ; FF=ready - ret - -list: call liststat ; is printer busy? - jr z,list - ld a,c - out (pioad),a ; output char to printer - in a,(bitport) ; strb. printer - set pstrob,a - out (bitport),a - res pstrob,a - out (bitport),a - ret - -page -subttl Memory maped video output driver -.comment % -################################################################## -## ## -## Memory maped video output driver ## -## ## -################################################################## -## Last Update : july 13 1982 ## -## by jim nickerson ## -################################################################## -% -; -.xlist -; extrn leadflg, row, cursor, chrmsk, kbdout -; public vidout, vidinit, print -.list - -.z80 -jmpif macro j,k ;SHORT JUMP - cp j - JR z,k - endm -; -LJMPIF macro j,k ;LONG JUMP - cp j - jp z,k - endm - - -colcp macro x - ld a,l - and not colum-1 - cp x - endm - -SPACE equ 20H ; space char -cr equ 0DH ; move cursor to beginning of line -bs equ 08H ; move cursor left (control h) -fs equ 0CH ; move cursor right (control l) -lf equ 0AH ; move cursor down (control j) -rlf equ 0BH ; move cursor up (control k) -eol equ 18H ; clear to end of line (control x) -eos equ 17H ; clear to end of screen (control w) -clr equ 1AH ; clear screen char (control z) -homec equ 1EH ; home cursor -esc equ 1BH ; escape, lead-in character -bell equ 07H ; ascii bell -curchr equ '_' or 80H ; character for cursor -ascii equ 7FH ; ascii mask -greek equ 1FH ; greek character set mask - -base equ 03000H ;start of video ram -linlen equ 80 ;logical line length -colum equ 128 ;physical line length -lines equ 24 ;lines per display -line1 equ base ;start of first line -line2 equ base+colum ;start of second line -last1 equ base+(lines-1)*colum ;start of last line -last equ (base+lines*colum)-1 ;last char of display -bitport equ 1CH ;system bit port - -vidinit:ld a,space ; clear row # - ld (row),a - call clear ; clear screen and home cursor - ld (cursor),hl - xor a - ld (leadflg),a ; no leadin sequence - ld a,17H ; re-set scroll register - out (14H),a - ld a,ascii ; set ascii mask - ld (chrmsk),a - ret - -vidout: - ld a,(leadflg) ; processing a lead-in sequence? - or a - jp nz,leadin - ld a,bell ; ring bell, no display? - cp c - JR nz,nobell - ld c,04H ; kbd bell code - jp kbdout ; ring bell - -nobell: call clrcur ; clear (remove) cursor - ld de,finsh ; set up return to finish - push de - ld a,c ; char to print - jmpif lf,lfcd ; line feed (down arrow) - LJMPIF cr,return ; return - jmpif bs,back ; back space (left arrow) - jmpif fs,fowrd ; right arrow - jmpif rlf,up ; up arrow - LJMPIF esc,doesc ; lead-in - LJMPIF eol,cleol ; clear to eol - jmpif eos,cleos ; clear to eos - jmpif clr,clear ; clear screen, home currsor - jmpif homec,hmcsr ; home cursor - cp 60H ; lower case? - jr c,vout - ld a,(chrmsk) ; if lower do we print greek chr set? - and c -vout: ld (hl),a ; display character - inc hl ; inc cursor position - ld a,l ; off end of line? - and not colum - cp linlen ; logical line length - ret c ; not past colum-1 - call return - jr lfcd - -vovr: ld de,last ; off display memory? - ld a,d - cp h - jr c,scroll - ret nz - ld a,e - cp l - ret nc -scroll: ld b,lines-1 ; number of lines to scroll - ld hl,line2 - ld de,line1 -scr1: push bc ; save line count - ld bc,linlen ; logical line length - ldir ; scroll one line - ld bc,colum-linlen ; to beginning of next line - add hl,bc - ex de,hl - add hl,bc - ex de,hl - pop bc ; line count - djnz scr1 ; do another line - ld hl,last1 ; to last line of display - JR cleol ; clear it - -; -; process a line feed (cursor down) -; -lfcd: ld de,colum ; to next line, same column - add hl,de - JR vovr -; -; back space the cursor -; -back: ld a,l ; is column # 0? - and not colum - ret z ; at beginning of line - dec hl ; back space - ret -; -; move cursor foward -; -fowrd: ld a,l ; right most column? - and 07FH ;INSTEAD OF not colum-1 - cp 79 - ret nc - inc hl ; bump cursor address - ret -; -; move cursor up one line -; -up: push hl ; save current position - ld de,-colum ; move up one line - add hl,de - push hl ; save new cursor position - or a ; clear carry - ld de,line1 ; first char of display - sbc hl,de ; if carry set we are off display - pop hl ; hl = new pos - pop de ; de = old pos - ret nc - ex de,hl - ret -; -; clear screen -; -clear: ld hl,line1 ; clear screen - ld de,line1+1 - ld bc,last-base - ld (hl),space - ldir - ld hl,line1 ; home cursor - ret -; -; home cursor -; -hmcsr: ld hl,line1 ; line one of display - ret -; -; clear to end of screen -; -cleos: -; patch by jim - push hl ;save current position - call cleol - ld de,colum - ld a,l - and 080H - ld l,a - add hl,de ;begining of next line - ld a,03CH ;after last line now ? - cp h ;h holds page (3B) is last line - jr z,cleos1 ;yes so no more to blank get out -; - ld e,l ; copy hl to de - ld d,h - or a ; clear carry - ld hl,last ; last pos of screen - sbc hl,de ; last-current position - ld c,l ; move count to bc - ld b,h - ld h,d ; move current position into hl - ld l,e - inc de - ld (hl),space - ldir -; -;patch by jim -cleos1: -; - pop hl ; restore cursor position - ret -; -; clear to end of line -; -cleol: -; -;patch by jim -; - ld a,l - and 07FH - cp linlen-1 - jr c,cleol1 - ld (hl),space - ret -cleol1: -; -; - push hl ; save current position - push hl - ld a,l ; find beginning of line - and not colum-1 - ld l,a -; -;patch by jim - ld de,linlen-1 -; - add hl,de ; hl points to end of line - pop de ; current position in de - push de - or a ; clear carry - sbc hl,de ; hl=# of bytes to clear - ld c,l ; move count into bc - ld b,h - pop hl ; current position - ld e,l ; copy to de - ld d,h - inc de - ld (hl),space - ldir - pop hl ; restore cursor address - ret - -clrcur: ld hl,(cursor) ; get cursor location - ld a,(hl) ; undo cursor - cp curchr ; is it a cursor on a blank field? - ld a,space - jr nz,clr1 - ld (hl),a -clr1: res 7,(hl) ; undo cursor - ret -; -; process a return -; -return: ld a,l - and not colum-1 - ld l,a - ret -; -; escape lead-in sequence start up -; -doesc: ld a,1 ; leadflg is a counter of chars processed - ld (leadflg),a - ret -; -; process second, third and fourth characters of lead-in sequence -; -leadin: ld hl,exit ; fake ret to exit - push hl - ld hl,leadflg - ld (hl),0 ; clear lead-in counter in case error - cp 1 ; second char? (leadflg=1 processed first char) - jr nz,l1 - ld a,c ; what type of esc sequence? - res 7,a - cp 'G' ; greek character set? - jr z,dogreek - cp 'A' ; ascii character set? - jr z,doascii - cp 'R' ; delete line? - jr z,dodel - cp 'E' ; insert line? - jr z,doinst - cp '=' ; esc = sequence (cursor positioning) - ret nz ; error, exit - ld (hl),2 ; have processed second character of sequence - ret -l1: cp 2 ; third character? - jr nz,l2 - ld a,c ; row number+space - ld (row),a ; save for later use - ld (hl),3 ; have processed third character - ret -l2: cp 3 ; fourth character? - ret nz ; error, leadflg trashed by someone - - call clrcur ; remove cursor then move it - pop hl ; ret to exit not needed - ld hl,line1 ; process col # - ld a,c - sub ' ' ; remove ascii space bias -;patch by jim -; -l3: sub linlen -; - jr nc,l3 - add a,linlen - ld l,a - ld a,(row) - sub ' ' ; remove ascii space bias -l4: sub lines ; range 0 - lines - jr nc,l4 - add a,lines - ld de,colum ; add column to cursor pos till -l5: jp z,finsh ; # lines = 0 - add hl,de - dec a - jr l5 -; -FINSH: LD A,(HL) ; MAKE A CURSOR - CP SPACE ; SPACE - JR NZ,FIN1 ; IF SO THEN SPECIAL CURSOR CHAR - LD A,CURCHR -FIN1: SET 7,a - ld (hl),a - ld (cursor),hl ; save location -exit: ret ; all done - -; -; switch from ascii to greek -; -dogreek:ld a,greek ; greek char mask - ld (chrmsk),a - ret -; -; switch from greek to ascii -; -doascii:ld a,ascii ; ascii mask - ld (chrmsk),a - ret -; -; delete line, scroll up to current line, blank 24'th line -; -dodel: pop hl ; ret to exit not needed - call setup ; setup cpu regs for ldir - push de ; current line - jr z,delscr ; if setup set Z flag no scroll - ldir -delscr: ld hl,last1 ; blank last line - call cleol - pop hl ; current line - JR finsh -; -; insert a blank line at current row address, 24'th line lost -; -doinst: pop hl ; ret to exit not needed - call setup - push de ; current line - jr z,inscr ; no scroll - ld de,last1+127 - ld hl,last1-1 - lddr -inscr: pop hl ; current line - push hl - call cleol ; clear it - pop hl ; current row, colum=0 - JR finsh - -setup: call clrcur ; get current cursor position - call return ; to beginning of line - push hl ; save it - ex de,hl ; compute amount to move - ld hl,last1 ; last line of display - or a - sbc hl,de - ld b,h ; bc=length - ld c,l - pop hl ; current pos - push hl - ld de,128 ; set a pointer to beginning of next line - add hl,de ; hl=current+128 (next line) - pop de ; de=current - ld a,b ; is bc zero - or c - ret - -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 vidout - jr print - defb 0FFH ; because L80 tends to drop the last byte - -page -subttl RAM storage -.comment % -############################################################### -## ## -## System scratch RAM used by ROM software ## -## ## -############################################################### -## Last Update:05/31/82 [001] ## -############################################################### -% -.z80 -.xlist -; public sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec -; public sekhst, hstact, hstwrt, unacnt, unadsk, unatrk -; public unasec, erflag, rsflag, readop, wrtype, dmaadr -; public hstbuf, dsk, denflag, tracka, trackb, dirbuf, move -; public csva, alva, csvb, alvb, dpha, dphb, rd128, rd512 -; public leadflg, row, cursor, chrmsk, wrt128, wrt512, stack -; public dpbs, dpbd, tbl1, tbl2 -.list - -ramscratch equ 0FC00H ; scratch ram - -sekdsk equ ramscratch ;seek disk number -sektrk equ sekdsk+1 ;seek track number -seksec equ sektrk+2 ;seek sector number -hstdsk equ seksec+1 ;host disk number -hsttrk equ hstdsk+1 ;host track number -hstsec equ hsttrk+2 ;host sector number -sekhst equ hstsec+1 ;seek shr secshf -hstact equ sekhst+1 ;host active flag -hstwrt equ hstact+1 ;host written flag -unacnt equ hstwrt+1 ;unalloc rec cnt -unadsk equ unacnt+1 ;last unalloc disk -unatrk equ unadsk+1 ;last unalloc track -unasec equ unatrk+2 ;last unalloc sector -erflag equ unasec+1 ;error reporting -rsflag equ erflag+1 ;read sector flag -readop equ rsflag+1 ;1 if read operation -wrtype equ readop+1 ;write operation type -dmaadr equ wrtype+1 ;last dma address -hstbuf equ dmaadr+2 ;host buffer -dsk equ hstbuf+512 ; current disk drive -denflag equ dsk+1 ; density flag for current drive -tracka equ denflag+1 ; track of disk A (255=density unknown) -trackb equ tracka+1 ; track of disk B -csva equ trackb+1 ; directory check -alva equ csva+16 ; allocation map -csvb equ alva+25 -alvb equ csvb+16 -leadflg equ alvb+25 ; video leadin sequence count -row equ leadflg+1 ; temp store of rom number -cursor equ row+1 ; cursor address -chrmsk equ cursor+2 ; ascii/greek character set switch -dpha equ chrmsk+1 ; DPH for A -dphb equ dpha+17 ; DPH for B -dpbs equ dphb+17 ; single density dpb -dpbd equ dpbs+15 ; double density dpb -tbl1 equ dpbd+15 ; single density skew table -tbl2 equ tbl1+18 ; 512 byte sector skew table -move equ tbl2+10 ; move logical sector from hstbuf -rd128 equ move+15 ; routine to read 128 byte sector -rd512 equ rd128+7 ; routine to read 512 byte sector -wrt128 equ rd512+10 ; routine to write 128 byte sector -wrt512 equ wrt128+7 ; routine to wrtie 512 byte sector -rdwrtend equ rd128+150 ; end of read and write routines -dirbuf equ rdwrtend+1 ; bdos directory buffer - -stack equ 0FFFFH ; boot up stack space - end - \ No newline at end of file diff --git a/2006/toledo2/LOAD.COM b/2006/toledo2/LOAD.COM deleted file mode 100644 index b9601e002..000000000 Binary files a/2006/toledo2/LOAD.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/CPMADR.COM b/2006/toledo2/MASTER/CPMADR.COM deleted file mode 100644 index 5a4804cba..000000000 Binary files a/2006/toledo2/MASTER/CPMADR.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/CPMKAYPR.COM b/2006/toledo2/MASTER/CPMKAYPR.COM deleted file mode 100644 index dd7ea00b8..000000000 Binary files a/2006/toledo2/MASTER/CPMKAYPR.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/DU2.COM b/2006/toledo2/MASTER/DU2.COM deleted file mode 100644 index 907e02fbf..000000000 Binary files a/2006/toledo2/MASTER/DU2.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/FILTER.COM b/2006/toledo2/MASTER/FILTER.COM deleted file mode 100644 index 5640613d5..000000000 Binary files a/2006/toledo2/MASTER/FILTER.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/FILTER.DOC b/2006/toledo2/MASTER/FILTER.DOC deleted file mode 100644 index 120fdacbb..000000000 --- a/2006/toledo2/MASTER/FILTER.DOC +++ /dev/null @@ -1,18 +0,0 @@ - FILTER.DOC ver 1.1 - by Keith Petersen, W8SDZ - (revised 1/27/81) - -This program copies any ASCII file and filters out (ignores) -all control characters except CR, LF, and TAB. It also sets -the high order bit of all characters to zero so that files -created with WordStar or other text processing programs can -be read by MBASIC. The filtered copy of the of the file is -created as 'FILTER.FIL' on the default drive. The source -file is left intact. If the original file's EOF (1AH) is -not at the physical end of the last sector, this program -will pad the last sector with EOF's. This is useful for -'cleaning up' a file which was originally created by MBASIC -or text editors which do not pad the last sector with EOF's. - -Command: FILTER [drive:] - \ No newline at end of file diff --git a/2006/toledo2/MASTER/FILTER.FIL b/2006/toledo2/MASTER/FILTER.FIL deleted file mode 100644 index 4e015d391..000000000 --- a/2006/toledo2/MASTER/FILTER.FIL +++ /dev/null @@ -1,57 +0,0 @@ -REQUIREMENT: This facility is required to increase the -capability to test, evaluate, and improve avinics systems and -reduce flight testing costs. Rapid advances in avionics have -caused an increasing need for sophisticated avionics ground test -and evaluation facilities to support aircraft avionic systems -flight test programs. - -CURRENT SITUATION: The existing facility has the capability to -support four independent avionics intensive flight test programs. -This facility is already being utilized to its maximum capacity. -Additional programs scheduled for flight test at Edwards which -have extensive avionics will include the F-15 Radar, the HH-60D, -and the EX program. - The existing facility was planned with sufficient space in -the time shared computer complex to house additional shared -computer capability. Thus the new facility would only require -space for test bays. - -IMPACT IF NOT PROVIDED: Future avionics flight test programs -would not be adequately supported, resulting in costly program -delays, inefficient use of expensive flying time, and the need -for Air Force funding of contractor off-base facilities which are -tailored to contractor development rather than combined airforce- -contractor flight test objectives. - -ADDITIONAL: The test mode required in the absence of an avionics -test facility includes development and integration at contractor -facilities, limited flight test support atthe test sites,remote -flight test support from contractor facilities, and airborne -trouble shooting (fly-fix-fly) which provides a fragmented and -inadequate Air Force evaluation of the avionics. - -The increasing complexity of the avionics in our current and -future aerospace vehicles has outdated the traditional test sup -port techniques. Avionic capabilities continue to expand and -take on new roles. Digital integration of fire and flight con -trol systems is under development. Voice operated fire and -flight control is being evaluated. Modern aircraft contain large -numbers of independent computers, sensors, displays, and controls -linked into a mutually dependent system. The quantity, complex -ity, and pervasiveness of avionics is increasing at an exponen -tial rate. Test and evaluation of the complex performance char -acteristics of the avionics requires the collection of quantities -of data involving numerous parameters too extensive for practical -manual analysis and too diverse to be economically solved with -"fly-fix-fly". In addition, limited time in service and high -failure rate of development hardware contribute to the need for -increased ground and airborne testing. In view of these added -requirements, cost and schedule constraints dictate the need for -additional ground T&E and simulation to insure effective use of -expensive flight testing. This facility and project will support -future programs such as the new F-15 Radar, the HH-60D Heli -copter, the JVX tilt wing program, the Advanced Technology -Bomber, the Advanced Technology Fighter, the New Fighter Air -craft, the EX (EC-135 replacement), and the Integrated Inertial -Reference Assembly. - \ No newline at end of file diff --git a/2006/toledo2/MASTER/FORMAT.COM b/2006/toledo2/MASTER/FORMAT.COM deleted file mode 100644 index 1ca2f4b16..000000000 Binary files a/2006/toledo2/MASTER/FORMAT.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/IMAGE b/2006/toledo2/MASTER/IMAGE deleted file mode 100644 index fbd2d635c..000000000 Binary files a/2006/toledo2/MASTER/IMAGE and /dev/null differ diff --git a/2006/toledo2/MASTER/INITDISK.COM b/2006/toledo2/MASTER/INITDISK.COM deleted file mode 100644 index 3de50e7b2..000000000 Binary files a/2006/toledo2/MASTER/INITDISK.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/MAGE.COM b/2006/toledo2/MASTER/MAGE.COM deleted file mode 100644 index c8cb6a381..000000000 Binary files a/2006/toledo2/MASTER/MAGE.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/MAGE.DOC b/2006/toledo2/MASTER/MAGE.DOC deleted file mode 100644 index d2506c591..000000000 --- a/2006/toledo2/MASTER/MAGE.DOC +++ /dev/null @@ -1,47 +0,0 @@ - - - MAGE.COM is an 8080 assembly language program -which retrieves files accidentally lost while using -WORDSTAR. The program captures an image of your -file from computer memory and saves it on a floppy -disk. - - MAGE can help with problems such as accidental -resets, resets caused by static discharge, power -fluctuations, bad sectors on floppy disks, write- -protected disks, full disks, BDOS errors on disks -and various WORDSTAR glitches. The program will -not recover a file after a complete power outage -nor under circumstances where you cannot reset the -computer. It can recover only that portion of a -file which is in computer memory at the time of the -accident. - - The first step in running this program is to -hit the reset button on the front panel. Contrary -to the Osborne 01 User's Reference Guide, this does -not initialize computer memory. The file from -WORDSTAR will remain intact in memory. - - Next, insert the floppy containing MAGE.COM -into one of the disk drives. Boot the system. - - Running the program is as simple as typing -"MAGE filenam", where "filenam" is the name you -want your file to be saved under. If you do not -specify a name, your file will be saved under the -default name " . ". - - When you execute MAGE your file will begin -listing to the screen almost immediately. The -program will stop automatically shortly after the -last of the recoverable textual material has been -reached. A small amount of empty memory will also -be copied at the bottom of your file. Use WORDSTAR -to remove these "nulls". - - As an alternative, MAGE constantly checks for -keyboard input. By depressing any key you may halt -program execution. Only the portion of memory al- -ready listed to the screen will be saved to disk. - \ No newline at end of file diff --git a/2006/toledo2/MASTER/MBASIC.COM b/2006/toledo2/MASTER/MBASIC.COM deleted file mode 100644 index 0d981bc01..000000000 Binary files a/2006/toledo2/MASTER/MBASIC.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/MDM712.COM b/2006/toledo2/MASTER/MDM712.COM deleted file mode 100644 index 2252f9e2f..000000000 Binary files a/2006/toledo2/MASTER/MDM712.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/MDM712.DOC b/2006/toledo2/MASTER/MDM712.DOC deleted file mode 100644 index 43e18209a..000000000 --- a/2006/toledo2/MASTER/MDM712.DOC +++ /dev/null @@ -1,836 +0,0 @@ - - MDM712 - - (NOTES ON HOW TO USE) - - Copyright 1983 - - by - - Irvin M. Hoff W6FFC - - 27 July 1983 - - -NOTE: MDM712 SUPPORTS AUTO-DIALING AND AUTOMATIC CONTINUOUS REDIALING - FOR THE FOLLOWING MODEMS: - - PMMI 103 S-100 PLUG-IN MODEM - HAYES SMARTMODEM 300 OR 1200 MODEMS - U. S. ROBOTICS 300/1200 MODEM - - (IT CAN STILL BE EASILY USED WITH OTHER EXTERNAL MODEMS - WITH MANUAL DIALING SUCH AS THE BELL 212A, RACAL-VADIC, ETC.) - IT SUPPORTS UP TO TWO LONG-DISTANCE DIALING SYSTEMS (SUCH AS - 'MCI', 'SPRINT', 'TYMNET', ETC. FOR TOUCH-TONE DIALING SYSTEMS. - -INTRODUCTION: ------------- - - MDM712 enables a computer to communicate with another computer. -This is normally done by using standard telephone lines but with special -audio tones sending serial data. Two common speeds are used, depending -on the facilities available -- 300 Baud or 1200 Baud. A "modem" is used -which provides these audio tones. This is an acronym for "modulator and -demodulator". The one section (modulator) provides the audio tones for -sending over the telephone line and the other section (demodulator) then -converts those audio tones back to digital pulses the computer uses to -receive the incoming data. - - The modem itself is a hardware utility, usually costing around $100 -to $250 for a typical 300 Baud device and from $400 to $800 for a system -offering 1200 Baud as well as 300 Baud. Some of these (such as the PMMI -S-100 modem board) plug directly into the computer itself, while others -are totally independent of the computer and use an interconnect cable -(usually a RS-232 type) to control the external modem. A Bell 212A is -an excellent example of this type modem. Other examples would include -the Racal-Vadic, Hayes Smartmodem, U. S. Robotics, Prentis, etc. - - The program discussed in this guide allows each computer involved -to directly control its own modem, converting DC pulses into audio tones -which are sent to (or received from) the telephone line. (The standard -1200 baud transmissions use "DFSK" (phase shift keying) instead of "AFSK" -(audio frequency shift keying). - - For short distances, no modems are required as the computer can -provide the necessary digital voltages. This discussion is centered -around systems intended for use over distances ranging from several -miles to literally around the world. - - - -FEATURES: --------- - - A program to communicate with another computer can range from very -simple to very complex. MDM71 is one of the more complex such programs -available today. It started in 1977 as a relatively simple program. It -was called MODEM2 at that time. It was intended to be used primarily as -a means of exchanging programs with other people in other cities. Since -that time a number of other (very useful) features have been added, in -addition to improved methods of program transfer. A list of some of the -features offered by this particular program include: - - 1) Ability to talk with another computer via keyboard at each end. - (Called the "terminal mode".) - 2) Ability to operate a remote mainframe computer such as TYM-SHAR, - or special data bank systems now commonplace. This includes - "bulletin board" systems for receiving, sending or just read- - ing messges or other types of information. - 3) Ability to upload (send) or download (receive) programs from other - computers whether TYM-SHAR, data banks, remote hobby systems - or just another individual in another location. - 4) Ability to copy incoming information on a printer. If the print- - er is too slow to copy the data directly, the extra characters - back into a large storage buffer until they can be printed. - 5) Ability to copy incoming data into memory for automatic transfer - to a disk file. - 6) Accomodates any computer clock speed up to 25.5 MHz. in 0.1 Mhz. - increments for uniform results. (The clock speed is actually - of modest interest, it is only used for setting timing loops.) - 7) Advanced type of error detection (CRC or Cyclic Redundancy Check) - using automatically generated high-speed lookup tables. - 8) Automatic disconnect from the telephone line when using "BYE", "X" - or CTL-D. Two other disconnect commands with the PMMI modem. - 9) This particular program has additional features of special inter- - est to those using the PMMI 103 S-100 plug-in modem, the U. S. - Robotics 300/1200, or the Hayes Smartmodem 300 or 1200. Those - features basically include automatic dialing and redialing (if - requested) until the other computer finally answers. - - a) Automatic selection of a particular phone number from - a library of names and numbers. - b) Automatic dialing for alternate long-distance systems - (where auto-dialing touch-tone modems are used). - c) Entry of a hand-typed number. Although it might be as - simple to manually dial the number as hand-type it, it - can then be automatically redialed indefinitely. - - -USING THE PROGRAM THE FIRST TIME: --------------------------------- - - For now, we shall assume the program is ready to use on your equip- -ment. (Normally the user must make some modest changes to the program -before it can be used. This includes changing the port numbers and some -other personal options. These will be covered later in the section that -describes how to adapt it to your equipment.) - - When the program is brought up is shows this display (if using the -PMMI modem): - - - MDM712 - (type M for Menu) - Version for PMMI S-100 modem starting at port: C0H - - B>>COMMAND: x - - - The cursor stops at point "x:" waiting for some sort of command. -Typing a "M" followed immediately by a RETURN, shows the first page of -a 4-page help guide. If you do not have a PMMI modem, you would have -seen this (or a customized heading for your particular equipment): - - MDM712 - (type M for Menu) - Version for Non-Pmmi modem - - B>> COMMAND: - - - In this case only a 3-page help guide is used, since the 4th page -is used to assist those with the PMMI modem. It tells them a little -about changing from originate to answer mode, how to change Baud rates, -how to disconnect, etc. - - Several commands are similar to those already used for CP/M, such -as 'ERA', 'DIR' and the ability to change disk drives and user areas. -This adds tremendous flexibility while remaining in the modem command -mode. To change disk drives, just say: - - B>>COMMAND: A: - - and you are in the same user area on the A: drive. You can also -say: - A>>COMMAND: A: 12 - - to change user areas. When finished (using this example), say: - - A12>>COMMAND: CPM - - and you will go back to CP/M with the original driver and user area. - -OPTIONS: -------- - - There are 6 primary options and 13 secondary options that may be -typed on the command line. In additon there are over 35 commands ranging -from single character to three characters that can be used (such as DIR, -ERA, LOG, etc.) Those are listed on the menu. (The exact number varies -depending on whether you have the PMMI modem, etc.) - - - Primary Options: E, L, M, R, S, T - E = Echo mode (special type of full duplex) - L = Local modem (no remote echo, half duplex) - M = Menu display showing features that are available - R = Receive a file from remote facility - S = Send a file to a remote facility - T = Terminal mode (full duplex, echo provived remotely) - - Secondary Options: A, B, D, L, O, Q, R, S, T, V, X, 0, 1 - A = Answer mode (used only by PMMI modems) - B = Batch mode -- allows automatic multiple file transfer - (This is normally only used from modem-to-modem as - no RCP/M system supports batch mode file transfers.) - D = Disconnect when done, stay in MDM712 - L = Local mode when finished with a file transfer - O = Originate mode (used only by PMMI modems) - Q = Quiet mode, special purpose feature rarely used except if - operating through a "BYE" program. - R = Receive data shown on CRT during file transfer - S = Send data shown on CRT during file transfer - T = Terminal mode when finished with a file transfer - V = Visual inspection of an ASCII file being transferred. Not - often used as most ASCII files are now "squeezed" for - minimum transfer time and disk space. - X = Exit to CP/M when finished, disconnect from phone line - 0 = Odd parity (PMMI modem) - 1 = Even parity (PMMI modem) - - - Although you can get the following information from the help guide -in MDM712, showing it here will allow us to discuss the various features -in somewhat better detail. - - -NOTE: THIS PROGRAM HAS SUPPORTED THE PMMI 103 S-100 PLUG-IN MODEM SINCE - ITS INCEPTION. IT NOW SUPPORTS THE HAYES SMARTMODEM 300 AND 1200 - AND THE US ROBOTICS 300/1200 MODEM AS WELL. IN THE FOLLOWING - COMMENTS AN ASTERISK (*) BEHIND THE WORD PMMI MEANS ALL THE COM- - MENT IS PERTINENT TO ALL THESE MODEMS. OTHERWISE IT WOULD BE A - LITTLE AWKWARD TO ATTEMPT TO MENTION THEM ALL EACH TIME. - - (*) THUS INDICATES PMMI, HAYES SMARTMODEM OR US ROBOTICS ALL APPLY. - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, PAGE 1: ----------------------- - - Single Letter Commands - -? - Display current settings -M - Display the menu -E - Terminal mode with echo -L - Terminal mode with local echo -T - Terminal mode - For copying text to disk use T (or E or L) FILENAME.TYP - Start or Stop toggles described on subsequent screen. -R - Receive CP/M file using Christensen Protocol -S - Send CP/M file using Christensen Protocol - COMMAND: R (or S) FILENAME.TYP - R and S can use the following subcommands: - B - Bulk transfer using wildcards (e.g., *.*) - D - Disconnect when done - Q - Quiet mode (no messages to console) - T - Return to terminal mode after transfer - V - View bytes transferred on console - X - When done, disconnect, go to CP/M - - The single letter commands may also be used on the - command line when the program is initially executed. - -Hit any KEY to CONTINUE - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE PAGE 1: -------------------------------- - - There are basically three types of commands that may be used with -this program: - 1) Single-letter commands shown on page one. - 2) Three-letter commands shown on page 2, and - 3) Control- commands shown on page 3. - - Going down the list: - - ? - shows current parameters. As these are closely tied in with some - of the other options, we shall show a typical example later - in this discussion. - M - shows the menu a page at a time. You may abort after any page is - shown with a control-C. - E - terminal mode with echo. When talking with another terminal also - also using MDM712 (or a comparable program), one of you must - send an "echo-back" so you can both see what the other person - is typing. This is needed for full-duplex operation. Usually - the person originating the call will type "E" instead of "T". - However either may do this. If "both" use the echo mode, the - program usually starts typing a string of feedback characters - since both computers are re-sending the same character over - and over. You can stop this by just returning to command mode - (type control-E) and then retyping "T" rather than "E". - L - terminal mode with local echo. Shows what you are typing but does - not send an echo of the other person's typing back to him. - Can be used at both ends, in place of one person using "E". - Both "E" and "L" are useful at times for some types of modems - that do not use full-duplex, or for some main frame units that - run half-duplex. The combination of "T", "E" and "L" gives an - excellent choice to use on various systems. Normally the "T" - mode is sufficient except when talking with another person and - then the "E" mode at one end or "L" mode at both ends will - provide normal results. - T - if typed as the first (primary) option, puts the program directly - into "terminal mode", allowing it to send from the keyboard to - the other computer, and to copy anything coming from the other - computer with the exception of file transfers (use "R" to re- - ceive those). - R - used only for receiving files from the other computer. These are - usually sent in binary form with either checksum verification - or more commonly, CRC (Cyclic Redundancy Checking). If ready - to receive another file, you have several choices, depending - on the program used by the other computer. After notifying - him you are ready (or will be very shortly), you can tr 4 €windows which scroll together.#This command is used to hold column#€titles or row headings in place$while cells are scrolled. Parameters$€are:€%1. Number of rows to become a window%„across the top of the screen.!2. Number of columns to become a!!„window at the left of the screen.!€'The remaining display space becomes the'!€active window which is linked for!#nal window for&€synchronized scrolling€in the vertical direction.€€WINDOW SPLIT TITLES€ Splits active window into 2 o automatically - places you in a "ready to go again" situation when the trans- - fer is finished. - - Another "R" option would be: - - B>>COMMAND: RB - - This is called the "Batch mode" and is an extremely useful way - to receive programs automatically, from another computer using - a similar program. He will use the batch mode for sending the - programs and that automatically provides the file names at the - receiving end. In this manner, large numbers of programs can - be transferred completely automatically, including full disks. - (Assuming you care to pay the toll calls for the time it will - take!) - - NOTE: The ideal way to receive batch mode would be: - - B>>COMMAND: RBT - - since you may not know in advance how many programs he - will be sending. When the transfer is complete, you - are automatically in the "T" mode and he can start - typing to you, immediately, with any comments relative - to the progress of the transfer, etc. (He would use - the "E" mode.) - - S - Send programs. Similar to "R" but sends instead of receives. If - the other system is ready to receive, you can type: - - B>>COMMAND: S HELLO.DOC - - It will tell you how many records are involved and how many - minutes and seconds it will take to send the program. If the - other system is ready to receive, it starts the transfer, - showing how many records have been sent. If any errors occur - during transmission, it shows what they are and counts them. - It will resend any records not correctly received at the other - computer. If too many consecutive errors occur (normally set - at 10), the transfer is terminated. The batch mode may also - be used for sending: - - B>>COMMAND: SB HELLO.* - - will send all files starting with HELLO, or can send just one - file, or can send several non-related files in this manner: - - B>>COMMAND: SB HELLO.DOC XDIR.COM TERM.* - - etc. Be sure to put a space between the various files. You - can include the 'X' option: - - B>>COMMAND: SBX HELLO.* MDM712.LBR MDM712.AQM - - When the file transfer is completed it disconnects from the - phone line and reverts to CP/M. This allows you to be absent - when the file is finished, offering an advantage when sending - lengthy files. - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, PAGE 2: ----------------------- - - Three Letter Commands - -CPM - Exit from this program to CP/M -DIR - List directory and space free (may specify drive) -ERA - Erase file (may specify drive) -LOG - Change default drive/user no. (specify drive/user) - and reset disks. e.g. LOG A0: or LOG B: (user # unchanged) -SPD - Set speed of file output in terminal mode -TIM - Select Baud rate for "time-to-send" message -TCC - Toggle CRC/Checksum mode on receive -TBR - Toggle backspace to rubout conversion -TLC - Toggle 1) local command immediate - 2) local command after CTL-^ -TLF - Toggle LF after CR when sending disk file in "T" mode -TXO - Toggle XOFF testing in terminal mode file output -NUM - List remote systems -SET - Set modem baud rate -BYE - Disconnect, then return to CP/M -CAL - Dial number -DSC - Disconnect from the phone line - - The following are terminal text buffer commands: - -DEL - Delete memory buffer and file -WRT - Write memory buffer to disk file - -Hit any KEY to CONTINUE - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE, PAGE 2: --------------------------------- - - CPM - This returns to normal CP/M use, abandoning MDM712. - CAUTION: It does not disconnect the modem from the phone line. - DIR - Enables the user to see the library of any disk without needing - to return to CP/M first. Can be adjusted when installing the - program to show 3, 4, or 5 groups depending on the width of - your CRT display. Normally set to 5 for 80-column displays. - Shows the amount of disk spacing remaining on the logged-in - default drive. (You must log in any drive you wish to write - on, or to see the correct free disk space remaining.) See the - LOG feature below. - ERA - Enables the user to erase any files from any disk without the - need to return to CP/M first. Wild cards (* and ?) accepted. - LOG - When a new disk is inserted, you can see the directory and read - files from it but cannot write to it without getting a "BDOS - ERR". This command allows you to log in a new disk so you can - immediately write on it without first returning to CP/M for a - warm boot. You can select drive and user number. (This also - enables DIR to show the correct free disk space remaining.) - You can say: - LOG for same drive, user area, new disk - LOG A - LOG A: - LOG A14 (user areas are 0-15) - LOG A11: - - SPD - Sets the delay between characters and/or delay between lines in - the "T" mode when using control-T to upload a pre-typed file. - Since most bulletin boards and TYM-SHAR systems normally use - line editors that require a delay after they have received a - line, you can add delay between characters (in increments of - 10 ms.) and/or enter delay between lines (in increments of 100 - ms.). This is preset for most systems at 50 and 500 ms. They - can be changed at any time. Current values can be checked by - using the " ? " command. - TIM - This option lets you set the file transfer time from 110 Baud to - 9600 Baud. You can preset it (when installing the program) to - the value normally used, but at times it is nice to be able to - conveniently change the time shown to a different rate. Some - initialization routines (discussed in the install section) can - make this change automatically. This command does not show if - using the PMMI* board as the speed is automatically changed to - agree with the current Baud rate selection. It also does not - show if the custom overlay uses the SET command to choose var- - ious Baud rates as the transfer time is changed automatically. - TCC - Most modem programs originally used simple checksum verification - of received sectors. Most now use Cyclic Redundancy Checking - which finds certain transmission errors the simple checksum - system might overlook. This toggle allows the user to select - checksum for those systems known to not offer CRC. When set - normally to CRC, the program automatically switches to check- - sum after trying several times to use CRC. - TBR - Some systems use the "rubout" key for backspace. This toggle - allows you to readily adapt to those systems. Rarely used. - TLC - Nearly all computers use "control-characters" to do various - tasks such as move the cursor around, clear the screen, reboot - the system, etc. You might want to send a control-E character - to the local computer and not have it go to the remote system - at the same time. Say a moment later you would like to send a - control-E only to the remote computer. You would do this: - - control-E (goes to local computer only) - control-^ control-E (goes to the remote computer only) - - You can reverse the TLC toggle causing this response: - - control-E (goes to remote computer only) - control-^ control-E (goes to the local computer only) - - All other control-chars. would operate in a similar manner. - This gives extra flexibility in using this program for special - systems like TYM-SHAR, etc. - - NOTE: If using control-^ is awkward, you can pick a different - character when installing the program initially. - - TLF - If sending a file while in terminal mode (via CTL-T option) most - mainframe computers will not want you to send a line feed. As - all editors include the LF after CR, you have the option with - this toggle of sending or not sending a line feed. If typing - manually in the "T" mode, you can get a line feed with CTL-J. - It is automatically included after CR with "L" or "E" modes. - TXO - Used when uploading pre-typed text files to other systems such - as TYM-SHAR or bulletin boards, etc. Most of those have line - editors that take a moment to move the line you just finished - from their edit buffer into memory. The XOFF character halts - your system from sending until it is ready for a new line. - Used only in the terminal mode. - NUM - Not shown if using PMMI*. This shows the non-PMMI* people the - phone library numbers which can be used for manual dialing. - SET - Not shown if using PMMI, or if SETUPR is set to "NO" (indicating - no user routine in the overlay for choosing different speeds.) - BYE - Disconnects the modem from the phone line, closes any file that - may be open and returns to CP/M. - CAL - PMMI* command, shows the phone library for auto-dialing. If not - using a PMMI*, this will not be shown, instead NUM is shown. - It displays the telephone library. (Non-PMMI users will find - the NUM display beneficial as it can display useful phone num- - bers for manual dialing.) - - NOTE: Use the phone number overlay to easily change the numbers - that are stored. This overlay also accesses up to two - alternate long distance dialing systems for the touch- - tone auto-dialing modems. - - DSC - Disconnects the modem from the phone line whenever selected. - DEL - If copying incoming information into memory, and you decide you - do not want to bother saving it to disk after all, this closes - (and then deletes) the disk file you had opened. - WRT - saves what you have been copying to the disk file already opened - for that purpose. When returning from the "T" mode to command - mode, a warning is shown that you may lose what has been saved - unless you use WRT (write to disk). - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, PAGE 3: ----------------------- - - Local Commands while in Terminal Mode - - CTL-@ - Send a break tone for 300 ms. - CTL-B - Change Baud rate - CTL-E - Exit to command mode - CTL-L - Send log-on message - CTL-N - Disconnect from the phone line - CTL-P - Toggle printer - CTL-Y - Start copy into buffer - CTL-R - Stop copy into buffer - - Start & Stop may be toggled as often as desired. - A ":" at start of line indicates buffer is copying. - XOFF automatically used to stop input when writing - full buffer to disk, XON sent to resume. - - CTL-T - Transfer ASCII file to remote - - CTL-^ - Send local control character to remote - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE, PAGE 3: --------------------------------- - - CTL-@ - Sends a break character to the other computer. Used in some - TYM-SHAR systems, etc. (Used only in PMMI mode) - CTL-B - PMMI command, changes the Baud rate from 110-710, in addition - changes the file transfer time accordingly. - CTL-E - Returns to command modem from "T", "L", "E" modes. - CTL-L - Will send the log-on message if TRANLOGON is set YES and a - message has been included in the LOGON area. Can use this - feature to sign on various bulletin board systems, although - that would require an identical password on each. - CTL-N - Disconnect the modem from the phone line. (CTL-D had been - used for this command, but it was too easy to accidently - type CTL-D when expecting to hit CTL-S or CTL-E or CTL-X. - You can easily change this to whatever you like in the - overlay you use for your equipment.) - CTL-P - Toggles the printer on-off. Very useful feature. Similar to - normal control-P but in this case if the modem is running - faster than normal printer speed, the characters just back - into a special buffer while the printer tries to catch up. - Most dot matrix printers are considerably faster than most - telephone modems, however. Can be toggled at any time you - are in the "T", "L" or "E" modes. Often used to copy items - from bulletin boards, etc. that are not worth permanently - saving on disk. - CTL-Y - Used only in terminal mode. If a file was opened prior to - going to "T" (terminal) mode, nothing will be saved until - control-Y is typed. This places a ";" (semicolon) at the - start of each new line, indicating the memory is "hot" and - is now copying for saving to a file. You can toggle this - off by using control-R. - - NOTE: To open a file use: COMMAND: T FILENAME.EXT and - then CTL-Y and CTL-R will control what is copied to - be placed in that file. - - CTL-R - Stops the copy into memory, shuts off the ";" at start of - each line. These two commands (CTL-Y to start, and CTL-R - to stop) control what is being saved. When returning to - command (via CTL-E), you will then be warned to save the - information to disk via the WRT command or it will likely - be lost. (You may never use CTL-R although CTL-Y is re- - quired to commence saving to memory for the disk file you - previously opened.) - - (These commands -- CTL-P, CTL-Y and CTL-R give - MDM712 tremendous versatility. You can copy - incoming data either to disk or to printer (or - both). My own printer is a 300 Baud Teletype - Corporation Model 43, yet it works great when I - am using the Bell 212A at 1200 Baud. The printer - falls behind, but misses nothing as it eventually - catches up with the contents of the large buffer.) - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, SPECIAL PMMI PAGE: ---------------------------------- - - Additional Subcommands for PMMI Modems - -Modem control: - A - Answer tone for send or receive - O - Originate tone for send or receive - -Parity options: - 1 - Set and check for odd parity - 0 - Set and check for even parity - Both ends must be capable of these options - which are available only in R and S modes. - The parity checking will be part of the - file transfer protocol. - -Speed Options: - After entering your primary and secondary options, - you can set the modem speed by placing a "." after - the options followed by the speed e.g., 300, 1200. - - EXAMPLE: SBOT.600 will set the modem for 600 baud - - -Hit any KEY to CONTINUE - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE, SPECIAL PMMI PAGE: -------------------------------------------- - - When using MDM712 with the PMMI board, you will either dial out or -(far less likely) answer some incoming call. Since the unit will be in -"originate mode" about 98% of the time, it is set to automatically come -up in the originate mode at default speed (300 Baud) whenever a call has -been completed. If you want to use answer mode, you need to use the "A" -command. If a speed is not included, it will stay at the default speed. - - Until a connection has been made, there are no tones applied to the -line. Originate tones at 300 Baud are automatically added at that time. - - In addition to telling the PMMI modem if it should use originate or -answer tones, you can tell it what Baud rate to use. A typical command -(once connection is made to another modem) would be: - - B>>COMMAND: TO.600 - - This puts the tones on the phone line for originate and at the -same time sets the PMMI board for 600 Baud. Another typical response -might be: - - B>>COMMAND: RABT.450 - - This places the answer tones on the phone line, sets the program -for receiving batch mode at 450 Baud and returns to terminal mode when -the transfer is completed. - - Other optional PMMI commands seem self-explanatory, such as dis- -connect, etc. - -- - - - - - - - - - - - - - - - - - - - -PMMI, HAYES AND ROBOTICS AUTO-DIALING AND AUTO-REDIALING: --------------------------------------------------------- - - There are several very useful and versatile features offered for -the PMMI, Hayes Smartmodem and Robotics users. These include alternate -long distance dialing systems. - - There are several ways to auto-dial. - - 1) from the command line - 2) from the phone number library line - - In addition you can auto-redial from either of these lines. Once -the number has auto-dialed and there is no answer, it will ask you if -you want it to continuously auto-redial until it does receive an answer -(or you decide to abort). - - To get the phone library, type CAL on the command line. You -then normally just type the alphabetic character at the start of the ap- -propriate line. It will show the number being dialed. You can also do -this from the main command line if you know in advance what alphabetic -character is associated with that particular number: - - B>>COMMAND: CAL P - - This calls up the "P" line in the library and dials that number, -then if busy asks if you want it to continue redialing. You can use: - - B>>COMMAND: CAL 313-749-6569 - - and it will dial the number specified. You can then do either of -these on the library command line, as well. This gives a tremendous -versatility. - -NOTE: To access the alternate long distance dialing systems (up to two - are offered), use the phone number overlay and fill in the infor- - mation regarding your access number, billing number, etc. It - will then show how to enter a special character ahead of each - phone number where alternate long distance system is desired. - This only works where touch-tone systems are in use. - -- - - - - - - - - - - - - - - - - - - - -CASCADING COMMANDS: ------------------- - - Several commands may be used on the same line. Ones normally used -are: A, B, D, E, L, O, Q, R, S, T, V, X (and Baud rate if PMMI). - - A typical PMMI selection might be: RABQ.300 - - The commands have been listed previously but will be listed here -again: - - A) answer tones for PMMI S-100 modem, puts tones online. - B) batch mode (must be used at both ends if used at all) - (usually only available modem-to-modem with operators - present at each end.) - E) echo mode for conversing with a system not offering echo. - L) local echo shows what you are sending if no remote echo. - O) originate tones for PMMI S-100 modem, puts tones online. - Q) quiet mode, suppresses messages on local console. - R) receive file transfers with CRC or checksum protocol. - S) send file transfers, also shows transfer time. - T) terminal mode - operates computer at other end like a remote - terminal. Also stands for "text mode". When in "T" mode - you can copy incoming to printer or to disk, and send pre- - typed ASCII text files via CTL-T. - V) visual -- lets you see incoming ASCII files while being sent - to the disk system. - - NOTE: The Baud rate is only used for the PMMI S-100 modem. - Many of the custom overlays allow use of the SET - command to change Baud rate with non-PMMI modems. - -- - - - - - - - - - - - - - - - - - - - -TYPICAL PARAMETERS SHOWN BY THE "?" COMMAND: -------------------------------------------- - - B> COMMAND (H for Help): ? - -Mode: CRC -Printer is OFF -Backspace is backspace -Modem speed is 300 baud -Termianl mode file buffer is inactive -Unused portion of buffer is 16384 bytes -Use CTL-^ to send local command to remote -Linefeed NOT sent after CR for disk file in T-mode -XOFF testing NOT used in terminal mode file output -XON NOT automatically tested after CR in terminal mode file output - -Char. delay (terminal file mode) is: 50 ms. per character -Line delay (terminal file mode) is: 500 ms. per character - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF TYPICAL PARMETERS SHOWN BY THE "?" COMMAND: --------------------------------------------------------- - - By this time, most of these parameters are self-explanatory. They -primarily show how the options and toggles have been set. The user can -check on any of the major parameters at any time by: - - 1) Typing control-E to return to command mode and - 2) Typing ? to see the list of current parameters. - -- - - - - - - - - - - - - - - - - - - - -INSTALLING THE PROGRAM: ----------------------- - - Although this is obviously the very first thing that needs to be -done, it was saved until last for several reasons. The most important -of these was the need to first explain what some of the options will do -when selected. - - By this time the user should have a fairly good idea what options -would work best for him. When looking at the beginning of the program -where the these are selected, it should now be rather easy to pick the -ones that are most useful. - - There are various ways to change the program to suit a specific -user. These are discussed to a modest extent in the information file -called MDM712.INF. You are offered several methods. The "easy way" is -to get MDM712.COM plus the appropriate overlay for your computer. You -then edit the overlay (if needed) to suit your local needs, assemble it -to get a .HEX file then use the simple instruction and DDT.COM to com- -bine the standard MDM712.COM file with your overlay. The front end of -each overlay contains all the information in the front of the MDM712 -source code itself. - - Generally no changes need to be made in specific overlays unless -you have some particular requirement different from others using the -same equipment. (Such as the log-on message, for example.) - - The "hard way" would be to get the MDM712.ASM source code (which -is around 112k and would take well over an hour to download at 300 Baud) -and then edit it to suit. This is likely to be quite unsatisfactory for -most users as it will not contain the information peculiar to your com- -puter (which is in the individual overlay you select otherwise.) - - Thus various methods are available, one of which should provide the -easiest method for your system. - -NOTE: Although designed with special emphasis on the auto-dialing and - redialing capability of the PMMI, Hayes Smartmodem or Robotics, - it works quite well on non-PMMI modems. In the author's system - a stock Bell 212A Dataphone is used together with a normal ser- - ial I/O that can be programmed to easily switch from 300 to 1200 - Baud. The system includes a Teletype Corp. Model 43 dot matrix - 300 Baud printer. A great variety of other computers and modems - can use this same program quite easily. This is likely the most - versatile phone modem program currently available for CP/M users. - -OUR THANKS TO: -------------- - - A great number of people have contributed to the growth of this -program since 1977. Two people have been particularly helpful to me in -developing the MDM700 series modem programs: Keith Petersen (W8SDZ) -and Frank Gaude' (ex-K6IBE). Their help and interest have been greatly -appreciated. - - We hope this verstile program will give you hours of enjoyment and -fulfill your modem needs. It has long been a goal of mine to provide -the same program for the people using the Hayes Smartmodem (or Robotics) -as for those using the PMMI 103 modem. - - - - Irv Hoff W6FFC - \ No newline at end of file diff --git a/2006/toledo2/MASTER/MDM712KP.COM b/2006/toledo2/MASTER/MDM712KP.COM deleted file mode 100644 index b19f5f733..000000000 Binary files a/2006/toledo2/MASTER/MDM712KP.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/PIP.COM b/2006/toledo2/MASTER/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/MASTER/PIP.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/SETDISK.COM b/2006/toledo2/MASTER/SETDISK.COM deleted file mode 100644 index ad8d4db21..000000000 Binary files a/2006/toledo2/MASTER/SETDISK.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/SYSGEN.COM b/2006/toledo2/MASTER/SYSGEN.COM deleted file mode 100644 index 0098e2c13..000000000 Binary files a/2006/toledo2/MASTER/SYSGEN.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/WASH.COM b/2006/toledo2/MASTER/WASH.COM deleted file mode 100644 index fa6ee3176..000000000 Binary files a/2006/toledo2/MASTER/WASH.COM and /dev/null differ diff --git a/2006/toledo2/MASTER/XDIR.COM b/2006/toledo2/MASTER/XDIR.COM deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/MASTER/XDIR.COM and /dev/null differ diff --git a/2006/toledo2/MFDISK/MFDISK.INF b/2006/toledo2/MFDISK/MFDISK.INF deleted file mode 100644 index ef6242213..000000000 --- a/2006/toledo2/MFDISK/MFDISK.INF +++ /dev/null @@ -1,35 +0,0 @@ -MFDISK.INF - - Multi-Disk Formatter for Kaypro's - ================================= -................................................................. - MFDISK2.COM MFDISK4.COM MFDISK10.COM -................................................................. - -Msg 01774 is 17 line(s) on 01/20/84 from STEVE RASMUSSEN -to ALL KAYPRO OWNERS re: FREE MULTI-FORMAT PROGRAM - -Hello !! I'm Steve Rasmussen, and I work at Kaypro Corporation. -The week of January 23rd I'll be releasing to production the -master disks for a new program called MFDISK. There are versions -that run on the Kaypro 2, Kaypro 4, and Kaypro 10. This program -allows your mighty Kaypro to read, write and format disks in -seventeen other computer formats. (thirteen formats for the -Kaypro 2, because double sided formats don't work real well in -that machine) These programs will ONLY run on Kaypro hardware. -Anyway, Kaypro Corp. has decided that rather than charge existing -Kaypro customers for these programs, they should be offered at no -charge, provided someone like KUG will handle the distribution -headaches. I'm happy to either modem them (xmodem or lync -protocol) or send them to whoever in KUG would like to take care -of this. (P.S. If there are any formats not included that you -would like to see, communicate them either in a letter to me on -this B.B.S., or tell your dealer.) - Steve Rasmussen - ------------------------------------------------------------------- -Any formats you would like to see added to these fine programs, -leave me a message and I will pass it on to Steve at Kaypro-NLS. - -Steve Sanders (Sysop) Tampa Bay Bandit Board RCP/M (813) 937-3608 - \ No newline at end of file diff --git a/2006/toledo2/MFDISK/MFDISK10.COM b/2006/toledo2/MFDISK/MFDISK10.COM deleted file mode 100644 index 6eb90946b..000000000 Binary files a/2006/toledo2/MFDISK/MFDISK10.COM and /dev/null differ diff --git a/2006/toledo2/MFDISK/MFDISK2.COM b/2006/toledo2/MFDISK/MFDISK2.COM deleted file mode 100644 index e80bd5581..000000000 Binary files a/2006/toledo2/MFDISK/MFDISK2.COM and /dev/null differ diff --git a/2006/toledo2/MFDISK/MFDISK4.COM b/2006/toledo2/MFDISK/MFDISK4.COM deleted file mode 100644 index a3bba003e..000000000 Binary files a/2006/toledo2/MFDISK/MFDISK4.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/CPMADR.COM b/2006/toledo2/MODEM7/CPMADR.COM deleted file mode 100644 index 5a4804cba..000000000 Binary files a/2006/toledo2/MODEM7/CPMADR.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/DU2.COM b/2006/toledo2/MODEM7/DU2.COM deleted file mode 100644 index 907e02fbf..000000000 Binary files a/2006/toledo2/MODEM7/DU2.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/FORMAT.COM b/2006/toledo2/MODEM7/FORMAT.COM deleted file mode 100644 index 1ca2f4b16..000000000 Binary files a/2006/toledo2/MODEM7/FORMAT.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/INITDISK.COM b/2006/toledo2/MODEM7/INITDISK.COM deleted file mode 100644 index 3de50e7b2..000000000 Binary files a/2006/toledo2/MODEM7/INITDISK.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/MBASIC.COM b/2006/toledo2/MODEM7/MBASIC.COM deleted file mode 100644 index 0d981bc01..000000000 Binary files a/2006/toledo2/MODEM7/MBASIC.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/MDM712.COM b/2006/toledo2/MODEM7/MDM712.COM deleted file mode 100644 index 2252f9e2f..000000000 Binary files a/2006/toledo2/MODEM7/MDM712.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/MDM712.DOC b/2006/toledo2/MODEM7/MDM712.DOC deleted file mode 100644 index 43e18209a..000000000 --- a/2006/toledo2/MODEM7/MDM712.DOC +++ /dev/null @@ -1,836 +0,0 @@ - - MDM712 - - (NOTES ON HOW TO USE) - - Copyright 1983 - - by - - Irvin M. Hoff W6FFC - - 27 July 1983 - - -NOTE: MDM712 SUPPORTS AUTO-DIALING AND AUTOMATIC CONTINUOUS REDIALING - FOR THE FOLLOWING MODEMS: - - PMMI 103 S-100 PLUG-IN MODEM - HAYES SMARTMODEM 300 OR 1200 MODEMS - U. S. ROBOTICS 300/1200 MODEM - - (IT CAN STILL BE EASILY USED WITH OTHER EXTERNAL MODEMS - WITH MANUAL DIALING SUCH AS THE BELL 212A, RACAL-VADIC, ETC.) - IT SUPPORTS UP TO TWO LONG-DISTANCE DIALING SYSTEMS (SUCH AS - 'MCI', 'SPRINT', 'TYMNET', ETC. FOR TOUCH-TONE DIALING SYSTEMS. - -INTRODUCTION: ------------- - - MDM712 enables a computer to communicate with another computer. -This is normally done by using standard telephone lines but with special -audio tones sending serial data. Two common speeds are used, depending -on the facilities available -- 300 Baud or 1200 Baud. A "modem" is used -which provides these audio tones. This is an acronym for "modulator and -demodulator". The one section (modulator) provides the audio tones for -sending over the telephone line and the other section (demodulator) then -converts those audio tones back to digital pulses the computer uses to -receive the incoming data. - - The modem itself is a hardware utility, usually costing around $100 -to $250 for a typical 300 Baud device and from $400 to $800 for a system -offering 1200 Baud as well as 300 Baud. Some of these (such as the PMMI -S-100 modem board) plug directly into the computer itself, while others -are totally independent of the computer and use an interconnect cable -(usually a RS-232 type) to control the external modem. A Bell 212A is -an excellent example of this type modem. Other examples would include -the Racal-Vadic, Hayes Smartmodem, U. S. Robotics, Prentis, etc. - - The program discussed in this guide allows each computer involved -to directly control its own modem, converting DC pulses into audio tones -which are sent to (or received from) the telephone line. (The standard -1200 baud transmissions use "DFSK" (phase shift keying) instead of "AFSK" -(audio frequency shift keying). - - For short distances, no modems are required as the computer can -provide the necessary digital voltages. This discussion is centered -around systems intended for use over distances ranging from several -miles to literally around the world. - - - -FEATURES: --------- - - A program to communicate with another computer can range from very -simple to very complex. MDM71 is one of the more complex such programs -available today. It started in 1977 as a relatively simple program. It -was called MODEM2 at that time. It was intended to be used primarily as -a means of exchanging programs with other people in other cities. Since -that time a number of other (very useful) features have been added, in -addition to improved methods of program transfer. A list of some of the -features offered by this particular program include: - - 1) Ability to talk with another computer via keyboard at each end. - (Called the "terminal mode".) - 2) Ability to operate a remote mainframe computer such as TYM-SHAR, - or special data bank systems now commonplace. This includes - "bulletin board" systems for receiving, sending or just read- - ing messges or other types of information. - 3) Ability to upload (send) or download (receive) programs from other - computers whether TYM-SHAR, data banks, remote hobby systems - or just another individual in another location. - 4) Ability to copy incoming information on a printer. If the print- - er is too slow to copy the data directly, the extra characters - back into a large storage buffer until they can be printed. - 5) Ability to copy incoming data into memory for automatic transfer - to a disk file. - 6) Accomodates any computer clock speed up to 25.5 MHz. in 0.1 Mhz. - increments for uniform results. (The clock speed is actually - of modest interest, it is only used for setting timing loops.) - 7) Advanced type of error detection (CRC or Cyclic Redundancy Check) - using automatically generated high-speed lookup tables. - 8) Automatic disconnect from the telephone line when using "BYE", "X" - or CTL-D. Two other disconnect commands with the PMMI modem. - 9) This particular program has additional features of special inter- - est to those using the PMMI 103 S-100 plug-in modem, the U. S. - Robotics 300/1200, or the Hayes Smartmodem 300 or 1200. Those - features basically include automatic dialing and redialing (if - requested) until the other computer finally answers. - - a) Automatic selection of a particular phone number from - a library of names and numbers. - b) Automatic dialing for alternate long-distance systems - (where auto-dialing touch-tone modems are used). - c) Entry of a hand-typed number. Although it might be as - simple to manually dial the number as hand-type it, it - can then be automatically redialed indefinitely. - - -USING THE PROGRAM THE FIRST TIME: --------------------------------- - - For now, we shall assume the program is ready to use on your equip- -ment. (Normally the user must make some modest changes to the program -before it can be used. This includes changing the port numbers and some -other personal options. These will be covered later in the section that -describes how to adapt it to your equipment.) - - When the program is brought up is shows this display (if using the -PMMI modem): - - - MDM712 - (type M for Menu) - Version for PMMI S-100 modem starting at port: C0H - - B>>COMMAND: x - - - The cursor stops at point "x:" waiting for some sort of command. -Typing a "M" followed immediately by a RETURN, shows the first page of -a 4-page help guide. If you do not have a PMMI modem, you would have -seen this (or a customized heading for your particular equipment): - - MDM712 - (type M for Menu) - Version for Non-Pmmi modem - - B>> COMMAND: - - - In this case only a 3-page help guide is used, since the 4th page -is used to assist those with the PMMI modem. It tells them a little -about changing from originate to answer mode, how to change Baud rates, -how to disconnect, etc. - - Several commands are similar to those already used for CP/M, such -as 'ERA', 'DIR' and the ability to change disk drives and user areas. -This adds tremendous flexibility while remaining in the modem command -mode. To change disk drives, just say: - - B>>COMMAND: A: - - and you are in the same user area on the A: drive. You can also -say: - A>>COMMAND: A: 12 - - to change user areas. When finished (using this example), say: - - A12>>COMMAND: CPM - - and you will go back to CP/M with the original driver and user area. - -OPTIONS: -------- - - There are 6 primary options and 13 secondary options that may be -typed on the command line. In additon there are over 35 commands ranging -from single character to three characters that can be used (such as DIR, -ERA, LOG, etc.) Those are listed on the menu. (The exact number varies -depending on whether you have the PMMI modem, etc.) - - - Primary Options: E, L, M, R, S, T - E = Echo mode (special type of full duplex) - L = Local modem (no remote echo, half duplex) - M = Menu display showing features that are available - R = Receive a file from remote facility - S = Send a file to a remote facility - T = Terminal mode (full duplex, echo provived remotely) - - Secondary Options: A, B, D, L, O, Q, R, S, T, V, X, 0, 1 - A = Answer mode (used only by PMMI modems) - B = Batch mode -- allows automatic multiple file transfer - (This is normally only used from modem-to-modem as - no RCP/M system supports batch mode file transfers.) - D = Disconnect when done, stay in MDM712 - L = Local mode when finished with a file transfer - O = Originate mode (used only by PMMI modems) - Q = Quiet mode, special purpose feature rarely used except if - operating through a "BYE" program. - R = Receive data shown on CRT during file transfer - S = Send data shown on CRT during file transfer - T = Terminal mode when finished with a file transfer - V = Visual inspection of an ASCII file being transferred. Not - often used as most ASCII files are now "squeezed" for - minimum transfer time and disk space. - X = Exit to CP/M when finished, disconnect from phone line - 0 = Odd parity (PMMI modem) - 1 = Even parity (PMMI modem) - - - Although you can get the following information from the help guide -in MDM712, showing it here will allow us to discuss the various features -in somewhat better detail. - - -NOTE: THIS PROGRAM HAS SUPPORTED THE PMMI 103 S-100 PLUG-IN MODEM SINCE - ITS INCEPTION. IT NOW SUPPORTS THE HAYES SMARTMODEM 300 AND 1200 - AND THE US ROBOTICS 300/1200 MODEM AS WELL. IN THE FOLLOWING - COMMENTS AN ASTERISK (*) BEHIND THE WORD PMMI MEANS ALL THE COM- - MENT IS PERTINENT TO ALL THESE MODEMS. OTHERWISE IT WOULD BE A - LITTLE AWKWARD TO ATTEMPT TO MENTION THEM ALL EACH TIME. - - (*) THUS INDICATES PMMI, HAYES SMARTMODEM OR US ROBOTICS ALL APPLY. - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, PAGE 1: ----------------------- - - Single Letter Commands - -? - Display current settings -M - Display the menu -E - Terminal mode with echo -L - Terminal mode with local echo -T - Terminal mode - For copying text to disk use T (or E or L) FILENAME.TYP - Start or Stop toggles described on subsequent screen. -R - Receive CP/M file using Christensen Protocol -S - Send CP/M file using Christensen Protocol - COMMAND: R (or S) FILENAME.TYP - R and S can use the following subcommands: - B - Bulk transfer using wildcards (e.g., *.*) - D - Disconnect when done - Q - Quiet mode (no messages to console) - T - Return to terminal mode after transfer - V - View bytes transferred on console - X - When done, disconnect, go to CP/M - - The single letter commands may also be used on the - command line when the program is initially executed. - -Hit any KEY to CONTINUE - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE PAGE 1: -------------------------------- - - There are basically three types of commands that may be used with -this program: - 1) Single-letter commands shown on page one. - 2) Three-letter commands shown on page 2, and - 3) Control- commands shown on page 3. - - Going down the list: - - ? - shows current parameters. As these are closely tied in with some - of the other options, we shall show a typical example later - in this discussion. - M - shows the menu a page at a time. You may abort after any page is - shown with a control-C. - E - terminal mode with echo. When talking with another terminal also - also using MDM712 (or a comparable program), one of you must - send an "echo-back" so you can both see what the other person - is typing. This is needed for full-duplex operation. Usually - the person originating the call will type "E" instead of "T". - However either may do this. If "both" use the echo mode, the - program usually starts typing a string of feedback characters - since both computers are re-sending the same character over - and over. You can stop this by just returning to command mode - (type control-E) and then retyping "T" rather than "E". - L - terminal mode with local echo. Shows what you are typing but does - not send an echo of the other person's typing back to him. - Can be used at both ends, in place of one person using "E". - Both "E" and "L" are useful at times for some types of modems - that do not use full-duplex, or for some main frame units that - run half-duplex. The combination of "T", "E" and "L" gives an - excellent choice to use on various systems. Normally the "T" - mode is sufficient except when talking with another person and - then the "E" mode at one end or "L" mode at both ends will - provide normal results. - T - if typed as the first (primary) option, puts the program directly - into "terminal mode", allowing it to send from the keyboard to - the other computer, and to copy anything coming from the other - computer with the exception of file transfers (use "R" to re- - ceive those). - R - used only for receiving files from the other computer. These are - usually sent in binary form with either checksum verification - or more commonly, CRC (Cyclic Redundancy Checking). If ready - to receive another file, you have several choices, depending - on the program used by the other computer. After notifying - him you are ready (or will be very shortly), you can tr 4 €windows which scroll together.#This command is used to hold column#€titles or row headings in place$while cells are scrolled. Parameters$€are:€%1. Number of rows to become a window%„across the top of the screen.!2. Number of columns to become a!!„window at the left of the screen.!€'The remaining display space becomes the'!€active window which is linked for!#nal window for&€synchronized scrolling€in the vertical direction.€€WINDOW SPLIT TITLES€ Splits active window into 2 o automatically - places you in a "ready to go again" situation when the trans- - fer is finished. - - Another "R" option would be: - - B>>COMMAND: RB - - This is called the "Batch mode" and is an extremely useful way - to receive programs automatically, from another computer using - a similar program. He will use the batch mode for sending the - programs and that automatically provides the file names at the - receiving end. In this manner, large numbers of programs can - be transferred completely automatically, including full disks. - (Assuming you care to pay the toll calls for the time it will - take!) - - NOTE: The ideal way to receive batch mode would be: - - B>>COMMAND: RBT - - since you may not know in advance how many programs he - will be sending. When the transfer is complete, you - are automatically in the "T" mode and he can start - typing to you, immediately, with any comments relative - to the progress of the transfer, etc. (He would use - the "E" mode.) - - S - Send programs. Similar to "R" but sends instead of receives. If - the other system is ready to receive, you can type: - - B>>COMMAND: S HELLO.DOC - - It will tell you how many records are involved and how many - minutes and seconds it will take to send the program. If the - other system is ready to receive, it starts the transfer, - showing how many records have been sent. If any errors occur - during transmission, it shows what they are and counts them. - It will resend any records not correctly received at the other - computer. If too many consecutive errors occur (normally set - at 10), the transfer is terminated. The batch mode may also - be used for sending: - - B>>COMMAND: SB HELLO.* - - will send all files starting with HELLO, or can send just one - file, or can send several non-related files in this manner: - - B>>COMMAND: SB HELLO.DOC XDIR.COM TERM.* - - etc. Be sure to put a space between the various files. You - can include the 'X' option: - - B>>COMMAND: SBX HELLO.* MDM712.LBR MDM712.AQM - - When the file transfer is completed it disconnects from the - phone line and reverts to CP/M. This allows you to be absent - when the file is finished, offering an advantage when sending - lengthy files. - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, PAGE 2: ----------------------- - - Three Letter Commands - -CPM - Exit from this program to CP/M -DIR - List directory and space free (may specify drive) -ERA - Erase file (may specify drive) -LOG - Change default drive/user no. (specify drive/user) - and reset disks. e.g. LOG A0: or LOG B: (user # unchanged) -SPD - Set speed of file output in terminal mode -TIM - Select Baud rate for "time-to-send" message -TCC - Toggle CRC/Checksum mode on receive -TBR - Toggle backspace to rubout conversion -TLC - Toggle 1) local command immediate - 2) local command after CTL-^ -TLF - Toggle LF after CR when sending disk file in "T" mode -TXO - Toggle XOFF testing in terminal mode file output -NUM - List remote systems -SET - Set modem baud rate -BYE - Disconnect, then return to CP/M -CAL - Dial number -DSC - Disconnect from the phone line - - The following are terminal text buffer commands: - -DEL - Delete memory buffer and file -WRT - Write memory buffer to disk file - -Hit any KEY to CONTINUE - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE, PAGE 2: --------------------------------- - - CPM - This returns to normal CP/M use, abandoning MDM712. - CAUTION: It does not disconnect the modem from the phone line. - DIR - Enables the user to see the library of any disk without needing - to return to CP/M first. Can be adjusted when installing the - program to show 3, 4, or 5 groups depending on the width of - your CRT display. Normally set to 5 for 80-column displays. - Shows the amount of disk spacing remaining on the logged-in - default drive. (You must log in any drive you wish to write - on, or to see the correct free disk space remaining.) See the - LOG feature below. - ERA - Enables the user to erase any files from any disk without the - need to return to CP/M first. Wild cards (* and ?) accepted. - LOG - When a new disk is inserted, you can see the directory and read - files from it but cannot write to it without getting a "BDOS - ERR". This command allows you to log in a new disk so you can - immediately write on it without first returning to CP/M for a - warm boot. You can select drive and user number. (This also - enables DIR to show the correct free disk space remaining.) - You can say: - LOG for same drive, user area, new disk - LOG A - LOG A: - LOG A14 (user areas are 0-15) - LOG A11: - - SPD - Sets the delay between characters and/or delay between lines in - the "T" mode when using control-T to upload a pre-typed file. - Since most bulletin boards and TYM-SHAR systems normally use - line editors that require a delay after they have received a - line, you can add delay between characters (in increments of - 10 ms.) and/or enter delay between lines (in increments of 100 - ms.). This is preset for most systems at 50 and 500 ms. They - can be changed at any time. Current values can be checked by - using the " ? " command. - TIM - This option lets you set the file transfer time from 110 Baud to - 9600 Baud. You can preset it (when installing the program) to - the value normally used, but at times it is nice to be able to - conveniently change the time shown to a different rate. Some - initialization routines (discussed in the install section) can - make this change automatically. This command does not show if - using the PMMI* board as the speed is automatically changed to - agree with the current Baud rate selection. It also does not - show if the custom overlay uses the SET command to choose var- - ious Baud rates as the transfer time is changed automatically. - TCC - Most modem programs originally used simple checksum verification - of received sectors. Most now use Cyclic Redundancy Checking - which finds certain transmission errors the simple checksum - system might overlook. This toggle allows the user to select - checksum for those systems known to not offer CRC. When set - normally to CRC, the program automatically switches to check- - sum after trying several times to use CRC. - TBR - Some systems use the "rubout" key for backspace. This toggle - allows you to readily adapt to those systems. Rarely used. - TLC - Nearly all computers use "control-characters" to do various - tasks such as move the cursor around, clear the screen, reboot - the system, etc. You might want to send a control-E character - to the local computer and not have it go to the remote system - at the same time. Say a moment later you would like to send a - control-E only to the remote computer. You would do this: - - control-E (goes to local computer only) - control-^ control-E (goes to the remote computer only) - - You can reverse the TLC toggle causing this response: - - control-E (goes to remote computer only) - control-^ control-E (goes to the local computer only) - - All other control-chars. would operate in a similar manner. - This gives extra flexibility in using this program for special - systems like TYM-SHAR, etc. - - NOTE: If using control-^ is awkward, you can pick a different - character when installing the program initially. - - TLF - If sending a file while in terminal mode (via CTL-T option) most - mainframe computers will not want you to send a line feed. As - all editors include the LF after CR, you have the option with - this toggle of sending or not sending a line feed. If typing - manually in the "T" mode, you can get a line feed with CTL-J. - It is automatically included after CR with "L" or "E" modes. - TXO - Used when uploading pre-typed text files to other systems such - as TYM-SHAR or bulletin boards, etc. Most of those have line - editors that take a moment to move the line you just finished - from their edit buffer into memory. The XOFF character halts - your system from sending until it is ready for a new line. - Used only in the terminal mode. - NUM - Not shown if using PMMI*. This shows the non-PMMI* people the - phone library numbers which can be used for manual dialing. - SET - Not shown if using PMMI, or if SETUPR is set to "NO" (indicating - no user routine in the overlay for choosing different speeds.) - BYE - Disconnects the modem from the phone line, closes any file that - may be open and returns to CP/M. - CAL - PMMI* command, shows the phone library for auto-dialing. If not - using a PMMI*, this will not be shown, instead NUM is shown. - It displays the telephone library. (Non-PMMI users will find - the NUM display beneficial as it can display useful phone num- - bers for manual dialing.) - - NOTE: Use the phone number overlay to easily change the numbers - that are stored. This overlay also accesses up to two - alternate long distance dialing systems for the touch- - tone auto-dialing modems. - - DSC - Disconnects the modem from the phone line whenever selected. - DEL - If copying incoming information into memory, and you decide you - do not want to bother saving it to disk after all, this closes - (and then deletes) the disk file you had opened. - WRT - saves what you have been copying to the disk file already opened - for that purpose. When returning from the "T" mode to command - mode, a warning is shown that you may lose what has been saved - unless you use WRT (write to disk). - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, PAGE 3: ----------------------- - - Local Commands while in Terminal Mode - - CTL-@ - Send a break tone for 300 ms. - CTL-B - Change Baud rate - CTL-E - Exit to command mode - CTL-L - Send log-on message - CTL-N - Disconnect from the phone line - CTL-P - Toggle printer - CTL-Y - Start copy into buffer - CTL-R - Stop copy into buffer - - Start & Stop may be toggled as often as desired. - A ":" at start of line indicates buffer is copying. - XOFF automatically used to stop input when writing - full buffer to disk, XON sent to resume. - - CTL-T - Transfer ASCII file to remote - - CTL-^ - Send local control character to remote - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE, PAGE 3: --------------------------------- - - CTL-@ - Sends a break character to the other computer. Used in some - TYM-SHAR systems, etc. (Used only in PMMI mode) - CTL-B - PMMI command, changes the Baud rate from 110-710, in addition - changes the file transfer time accordingly. - CTL-E - Returns to command modem from "T", "L", "E" modes. - CTL-L - Will send the log-on message if TRANLOGON is set YES and a - message has been included in the LOGON area. Can use this - feature to sign on various bulletin board systems, although - that would require an identical password on each. - CTL-N - Disconnect the modem from the phone line. (CTL-D had been - used for this command, but it was too easy to accidently - type CTL-D when expecting to hit CTL-S or CTL-E or CTL-X. - You can easily change this to whatever you like in the - overlay you use for your equipment.) - CTL-P - Toggles the printer on-off. Very useful feature. Similar to - normal control-P but in this case if the modem is running - faster than normal printer speed, the characters just back - into a special buffer while the printer tries to catch up. - Most dot matrix printers are considerably faster than most - telephone modems, however. Can be toggled at any time you - are in the "T", "L" or "E" modes. Often used to copy items - from bulletin boards, etc. that are not worth permanently - saving on disk. - CTL-Y - Used only in terminal mode. If a file was opened prior to - going to "T" (terminal) mode, nothing will be saved until - control-Y is typed. This places a ";" (semicolon) at the - start of each new line, indicating the memory is "hot" and - is now copying for saving to a file. You can toggle this - off by using control-R. - - NOTE: To open a file use: COMMAND: T FILENAME.EXT and - then CTL-Y and CTL-R will control what is copied to - be placed in that file. - - CTL-R - Stops the copy into memory, shuts off the ";" at start of - each line. These two commands (CTL-Y to start, and CTL-R - to stop) control what is being saved. When returning to - command (via CTL-E), you will then be warned to save the - information to disk via the WRT command or it will likely - be lost. (You may never use CTL-R although CTL-Y is re- - quired to commence saving to memory for the disk file you - previously opened.) - - (These commands -- CTL-P, CTL-Y and CTL-R give - MDM712 tremendous versatility. You can copy - incoming data either to disk or to printer (or - both). My own printer is a 300 Baud Teletype - Corporation Model 43, yet it works great when I - am using the Bell 212A at 1200 Baud. The printer - falls behind, but misses nothing as it eventually - catches up with the contents of the large buffer.) - -- - - - - - - - - - - - - - - - - - - - -THE HELP GUIDE, SPECIAL PMMI PAGE: ---------------------------------- - - Additional Subcommands for PMMI Modems - -Modem control: - A - Answer tone for send or receive - O - Originate tone for send or receive - -Parity options: - 1 - Set and check for odd parity - 0 - Set and check for even parity - Both ends must be capable of these options - which are available only in R and S modes. - The parity checking will be part of the - file transfer protocol. - -Speed Options: - After entering your primary and secondary options, - you can set the modem speed by placing a "." after - the options followed by the speed e.g., 300, 1200. - - EXAMPLE: SBOT.600 will set the modem for 600 baud - - -Hit any KEY to CONTINUE - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF HELP GUIDE, SPECIAL PMMI PAGE: -------------------------------------------- - - When using MDM712 with the PMMI board, you will either dial out or -(far less likely) answer some incoming call. Since the unit will be in -"originate mode" about 98% of the time, it is set to automatically come -up in the originate mode at default speed (300 Baud) whenever a call has -been completed. If you want to use answer mode, you need to use the "A" -command. If a speed is not included, it will stay at the default speed. - - Until a connection has been made, there are no tones applied to the -line. Originate tones at 300 Baud are automatically added at that time. - - In addition to telling the PMMI modem if it should use originate or -answer tones, you can tell it what Baud rate to use. A typical command -(once connection is made to another modem) would be: - - B>>COMMAND: TO.600 - - This puts the tones on the phone line for originate and at the -same time sets the PMMI board for 600 Baud. Another typical response -might be: - - B>>COMMAND: RABT.450 - - This places the answer tones on the phone line, sets the program -for receiving batch mode at 450 Baud and returns to terminal mode when -the transfer is completed. - - Other optional PMMI commands seem self-explanatory, such as dis- -connect, etc. - -- - - - - - - - - - - - - - - - - - - - -PMMI, HAYES AND ROBOTICS AUTO-DIALING AND AUTO-REDIALING: --------------------------------------------------------- - - There are several very useful and versatile features offered for -the PMMI, Hayes Smartmodem and Robotics users. These include alternate -long distance dialing systems. - - There are several ways to auto-dial. - - 1) from the command line - 2) from the phone number library line - - In addition you can auto-redial from either of these lines. Once -the number has auto-dialed and there is no answer, it will ask you if -you want it to continuously auto-redial until it does receive an answer -(or you decide to abort). - - To get the phone library, type CAL on the command line. You -then normally just type the alphabetic character at the start of the ap- -propriate line. It will show the number being dialed. You can also do -this from the main command line if you know in advance what alphabetic -character is associated with that particular number: - - B>>COMMAND: CAL P - - This calls up the "P" line in the library and dials that number, -then if busy asks if you want it to continue redialing. You can use: - - B>>COMMAND: CAL 313-749-6569 - - and it will dial the number specified. You can then do either of -these on the library command line, as well. This gives a tremendous -versatility. - -NOTE: To access the alternate long distance dialing systems (up to two - are offered), use the phone number overlay and fill in the infor- - mation regarding your access number, billing number, etc. It - will then show how to enter a special character ahead of each - phone number where alternate long distance system is desired. - This only works where touch-tone systems are in use. - -- - - - - - - - - - - - - - - - - - - - -CASCADING COMMANDS: ------------------- - - Several commands may be used on the same line. Ones normally used -are: A, B, D, E, L, O, Q, R, S, T, V, X (and Baud rate if PMMI). - - A typical PMMI selection might be: RABQ.300 - - The commands have been listed previously but will be listed here -again: - - A) answer tones for PMMI S-100 modem, puts tones online. - B) batch mode (must be used at both ends if used at all) - (usually only available modem-to-modem with operators - present at each end.) - E) echo mode for conversing with a system not offering echo. - L) local echo shows what you are sending if no remote echo. - O) originate tones for PMMI S-100 modem, puts tones online. - Q) quiet mode, suppresses messages on local console. - R) receive file transfers with CRC or checksum protocol. - S) send file transfers, also shows transfer time. - T) terminal mode - operates computer at other end like a remote - terminal. Also stands for "text mode". When in "T" mode - you can copy incoming to printer or to disk, and send pre- - typed ASCII text files via CTL-T. - V) visual -- lets you see incoming ASCII files while being sent - to the disk system. - - NOTE: The Baud rate is only used for the PMMI S-100 modem. - Many of the custom overlays allow use of the SET - command to change Baud rate with non-PMMI modems. - -- - - - - - - - - - - - - - - - - - - - -TYPICAL PARAMETERS SHOWN BY THE "?" COMMAND: -------------------------------------------- - - B> COMMAND (H for Help): ? - -Mode: CRC -Printer is OFF -Backspace is backspace -Modem speed is 300 baud -Termianl mode file buffer is inactive -Unused portion of buffer is 16384 bytes -Use CTL-^ to send local command to remote -Linefeed NOT sent after CR for disk file in T-mode -XOFF testing NOT used in terminal mode file output -XON NOT automatically tested after CR in terminal mode file output - -Char. delay (terminal file mode) is: 50 ms. per character -Line delay (terminal file mode) is: 500 ms. per character - -- - - - - - - - - - - - - - - - - - - - -DISCUSSION OF TYPICAL PARMETERS SHOWN BY THE "?" COMMAND: --------------------------------------------------------- - - By this time, most of these parameters are self-explanatory. They -primarily show how the options and toggles have been set. The user can -check on any of the major parameters at any time by: - - 1) Typing control-E to return to command mode and - 2) Typing ? to see the list of current parameters. - -- - - - - - - - - - - - - - - - - - - - -INSTALLING THE PROGRAM: ----------------------- - - Although this is obviously the very first thing that needs to be -done, it was saved until last for several reasons. The most important -of these was the need to first explain what some of the options will do -when selected. - - By this time the user should have a fairly good idea what options -would work best for him. When looking at the beginning of the program -where the these are selected, it should now be rather easy to pick the -ones that are most useful. - - There are various ways to change the program to suit a specific -user. These are discussed to a modest extent in the information file -called MDM712.INF. You are offered several methods. The "easy way" is -to get MDM712.COM plus the appropriate overlay for your computer. You -then edit the overlay (if needed) to suit your local needs, assemble it -to get a .HEX file then use the simple instruction and DDT.COM to com- -bine the standard MDM712.COM file with your overlay. The front end of -each overlay contains all the information in the front of the MDM712 -source code itself. - - Generally no changes need to be made in specific overlays unless -you have some particular requirement different from others using the -same equipment. (Such as the log-on message, for example.) - - The "hard way" would be to get the MDM712.ASM source code (which -is around 112k and would take well over an hour to download at 300 Baud) -and then edit it to suit. This is likely to be quite unsatisfactory for -most users as it will not contain the information peculiar to your com- -puter (which is in the individual overlay you select otherwise.) - - Thus various methods are available, one of which should provide the -easiest method for your system. - -NOTE: Although designed with special emphasis on the auto-dialing and - redialing capability of the PMMI, Hayes Smartmodem or Robotics, - it works quite well on non-PMMI modems. In the author's system - a stock Bell 212A Dataphone is used together with a normal ser- - ial I/O that can be programmed to easily switch from 300 to 1200 - Baud. The system includes a Teletype Corp. Model 43 dot matrix - 300 Baud printer. A great variety of other computers and modems - can use this same program quite easily. This is likely the most - versatile phone modem program currently available for CP/M users. - -OUR THANKS TO: -------------- - - A great number of people have contributed to the growth of this -program since 1977. Two people have been particularly helpful to me in -developing the MDM700 series modem programs: Keith Petersen (W8SDZ) -and Frank Gaude' (ex-K6IBE). Their help and interest have been greatly -appreciated. - - We hope this verstile program will give you hours of enjoyment and -fulfill your modem needs. It has long been a goal of mine to provide -the same program for the people using the Hayes Smartmodem (or Robotics) -as for those using the PMMI 103 modem. - - - - Irv Hoff W6FFC - \ No newline at end of file diff --git a/2006/toledo2/MODEM7/MDM712KP.COM b/2006/toledo2/MODEM7/MDM712KP.COM deleted file mode 100644 index 750a622e8..000000000 Binary files a/2006/toledo2/MODEM7/MDM712KP.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/PIP.COM b/2006/toledo2/MODEM7/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/MODEM7/PIP.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/SETDISK.COM b/2006/toledo2/MODEM7/SETDISK.COM deleted file mode 100644 index ad8d4db21..000000000 Binary files a/2006/toledo2/MODEM7/SETDISK.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/SYSGEN.COM b/2006/toledo2/MODEM7/SYSGEN.COM deleted file mode 100644 index 0098e2c13..000000000 Binary files a/2006/toledo2/MODEM7/SYSGEN.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/WASH.COM b/2006/toledo2/MODEM7/WASH.COM deleted file mode 100644 index fa6ee3176..000000000 Binary files a/2006/toledo2/MODEM7/WASH.COM and /dev/null differ diff --git a/2006/toledo2/MODEM7/XDIR.COM b/2006/toledo2/MODEM7/XDIR.COM deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/MODEM7/XDIR.COM and /dev/null differ diff --git a/2006/toledo2/MOVCPM.COM b/2006/toledo2/MOVCPM.COM deleted file mode 100644 index 8790cdb56..000000000 Binary files a/2006/toledo2/MOVCPM.COM and /dev/null differ diff --git a/2006/toledo2/PIP.COM b/2006/toledo2/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/PIP.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/8DISKTST.COM b/2006/toledo2/PRO8/8DISKTST.COM deleted file mode 100644 index d04026b0b..000000000 Binary files a/2006/toledo2/PRO8/8DISKTST.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/AUTOLOAD.COM b/2006/toledo2/PRO8/AUTOLOAD.COM deleted file mode 100644 index cdd1fd540..000000000 Binary files a/2006/toledo2/PRO8/AUTOLOAD.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/AUTOLOAD.Z80 b/2006/toledo2/PRO8/AUTOLOAD.Z80 deleted file mode 100644 index e48dc8412..000000000 --- a/2006/toledo2/PRO8/AUTOLOAD.Z80 +++ /dev/null @@ -1,168 +0,0 @@ -version equ 0 - .z80 - .radix 16 - -bdos equ 5 -fcb equ 5c -fcb2 equ 6c - -cr equ 0d -lf equ 0a - -boot equ 0 -conin equ 1 -conout equ 2 -lstout equ 5 -dconio equ 6 -linout equ 9 -linin equ 0a -const equ 0b -reset equ 0d -seldsk equ 0e -openf equ 0f -closef equ 10 -searf equ 11 -searn equ 12 -deletf equ 13 -redseq equ 14 -wrtseq equ 15 -creatf equ 16 -renamf equ 17 -setdma equ 1a -redran equ 21 -wrtran equ 22 -filsiz equ 23 - -; - jp start -; - -cpm macro function,info - - if not nul function - ld c,function - endif - - if not nul info - ld de,info - endif - - call bdos - -endm - -; - -print macro string - - call type - dc string - -endm - -; -; - -type:: ex (sp),hl -type1:: ld e,(hl) - push hl - cpm conout - pop hl - ld a,(hl) - inc hl - and a - jp p,type1 - ex (sp),hl - ret - -; - -crlf macro - cpm conout,cr - cpm conout,lf -endm - - -; * * -;**************** main entrance ******************* -; * * - -settrk:: - ld hl,(1) - ld de,1Bh - add hl,de - jp (hl) -setsec:: - ld hl,(1) - ld de,1Eh - add hl,de - jp (hl) -rd_sector:: - ld hl,(1) - ld de,24h - add hl,de - jp (hl) -writesec:: - ld hl,(1) - ld de,27h - add hl,de - ld c,1 - jp (hl) - -start:: - print 'Autoload version 1.' - cpm conout,version+'0' - print ' by Bruce Berryhill' - crlf -which: crlf - print 'Which drive do you want to write the autoload system on? ' - cpm conin - res 5,a - cp 'A' - jp c,which - cp 'Q' - jp nc,which - sub 'A' - ld e,a - cpm seldsk - crlf - crlf - print 'Enter the command to run on cold boot: ' - cpm linin,keybuf - ld hl,keybuf+1 - ld b,(hl) - inc hl -up_loop:: - ld a,(hl) - cp 'a' - jp c,next - cp 'z'+1 - jp nc,next - res 5,(hl) -next:: inc hl - djnz up_loop - ld (hl),0 - ld bc,0 - call settrk - ld bc,1 - call setsec - cpm setdma,80 - call rd_sector - ld de,87 - ld hl,keybuf+1 - ld a,(hl) - ld c,a - inc c - inc c - ld b,0 - ldir - call writesec - crlf - print 'Done' - crlf - jp 0 - -keybuf:: db 50 - - end start - \ No newline at end of file diff --git a/2006/toledo2/PRO8/CONFIG83.COM b/2006/toledo2/PRO8/CONFIG83.COM deleted file mode 100644 index 1e581c33c..000000000 Binary files a/2006/toledo2/PRO8/CONFIG83.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/CPY.COM b/2006/toledo2/PRO8/CPY.COM deleted file mode 100644 index 079ff0460..000000000 Binary files a/2006/toledo2/PRO8/CPY.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/CRC.COM b/2006/toledo2/PRO8/CRC.COM deleted file mode 100644 index 0f0396e39..000000000 Binary files a/2006/toledo2/PRO8/CRC.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/CRC.DOC b/2006/toledo2/PRO8/CRC.DOC deleted file mode 100644 index 1f84dd427..000000000 --- a/2006/toledo2/PRO8/CRC.DOC +++ /dev/null @@ -1,21 +0,0 @@ - - - - Using CRC - - - - - Type CRC to verify all the files on this disk. - - Type CRC *.* F to generate CRC's for an entire disk and create - a CRC file (CRCKLIST.CRC) for checking the CRC's of a - copy of the disk etc. - - Omitting the F will suppress creation of a CRCKLIST.CRC file. - - *.* can be replaced with an unambiguous file name for checking - just one file. - - - \ No newline at end of file diff --git a/2006/toledo2/PRO8/CRCKLIST.CRC b/2006/toledo2/PRO8/CRCKLIST.CRC deleted file mode 100644 index 3ba70ab96..000000000 --- a/2006/toledo2/PRO8/CRCKLIST.CRC +++ /dev/null @@ -1,15 +0,0 @@ - ---> FILE: RDISK .DOC CRC = E9 4F ---> FILE: AUTOLOAD.COM CRC = 1F FA ---> FILE: CONFIG83.COM CRC = 6A 57 ---> FILE: AUTOLOAD.Z80 CRC = F1 97 ---> FILE: CPY .COM CRC = 57 EC ---> FILE: D .COM CRC = 66 48 ---> FILE: -READ .ME CRC = 98 E7 ---> FILE: RCONFIG .COM CRC = 96 13 ---> FILE: SYS .COM CRC = 34 BC ---> FILE: RF .COM CRC = E0 A4 ---> FILE: CRC .COM CRC = B2 07 ---> FILE: CRC .DOC CRC = E5 81 ---> FILE: DISKTEST.DOC CRC = 46 B3 ---> FILE: 8DISKTST.COM CRC = 4D 5A \ No newline at end of file diff --git a/2006/toledo2/PRO8/D.COM b/2006/toledo2/PRO8/D.COM deleted file mode 100644 index e1ae870d8..000000000 Binary files a/2006/toledo2/PRO8/D.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/DISKTEST.DOC b/2006/toledo2/PRO8/DISKTEST.DOC deleted file mode 100644 index a7a4282d5..000000000 --- a/2006/toledo2/PRO8/DISKTEST.DOC +++ /dev/null @@ -1,220 +0,0 @@ -Z-80 Floppy Disk Test - -Original Version: Copyright (c) 1980 by Laboratory Microsystems - 4147 Beethoven Street - Los Angeles, California 90066 - - - -1.0 General description - -The Z-80 Floppy Disk Test is a general purpose utility for testing or -initializing a diskette. It requires a Z-80 microprocessor, at least -16 kbytes of random access memory, two flexible disk drives, and the -Digital Research CP/M 2.x operating system. Program mode and area of -diskette to be tested are controlled from the keyboard. Errors may be -audited on the console or the line printer. - -The proram is available on this diskette in 4 versions. - -2DISKTST.COM Is assembled for the Kaypro 2 (191 K / disk) -4DISKTST.COM Is assembled for the Kaypro 4 (390 K / disk) -8DISKTST.COM Is assembled for Kaypro's with 96 TPI dbl. sided - disk drives ( Like the Pro 8 System from Micro - Cornucopia ). -10DSKTST.COM Is assembled for the Kaypro 10 and will only test - the floppy drive on that system. DO NOT use the - disk diagnostic on the HARD DISK !!!!!!!!!!!!!!!! - -The program does not exhaustively check out the disk drive, and any -errors detected by the program must be interpreted with care. -Intermittent errors occurring throughout a broad range of disk -addresses probably indicate a problem with the disk drive unit. -Errors indicated at consistent addresses within adjacent tracks may -result from a worn or damaged flexible disk. Error free execution of -the test certainly indicates an intact and usable diskette, and also -is fairly good evidence of proper operation of your disk drive. Note -that the program is rather insensitive to drive problems related to -head movement, since the diskette is addressed in a smooth sequential -manner. - - -2.0 Installation - -Mount your system disk in drive A, and the distribution disk in drive -B. Use the PIP utility to transfer the test program onto the system -disk: - - A>pip a:=b:dtst.com [v] - -Now remove the distribution disk from drive B and store it as the -backup copy. - - -3.0 Using the Test Program - -Put your system disk in drive A, boot up the CP/M operating system, and -type: - - A>dtst - -The test program will load into memory and print the identifying -message: - - Laboratory Microsystems Disk Test version 1.0 - -If there is inadequate memory in the transient program area, or if the -operating system is not CP/M version 2.0 or greater, the program will -immediately print a warning message and exit. Otherwise, the test -proceeds to the initialization dialogue. The test mode is set via a -series of questions presented on the system console. Answers calling -for an alphabetic character may be upper or lower case; a carriage -return is not required. Answers calling for a number must be two -digits, or one digit followed by a carriage return. - -query responses explanation ------ --------- ----------- - -Itemize errors? Y or N If answered y, each error - detected is audited on the - selected device. If answered - N, only the total error count - is printed at the end of each - pass. - -Console or Printer? C or P If itemizing errors, select - the device on which the - itemized error listing will be - printed. - -Lock on read or write? N, R, or W N = no locks. R = lock on - read mode (no data is written - to the disk --- useful for - detecting any damaged areas on - the media). W = lock on write - (all data on the disk is - destroyed --- this may be used - to erase a diskette by also - locking on pattern) - -Restore original data? Y or N Y = restore existing data on - diskette after testing each - sector. N = do not restore - existing data. Test runs much - faster when restore mode is - not used. - -Lock on data pattern? Y or N Y = user wishes to specify - specific data to be used as - the test pattern. N = random - data pattern is generated by - the test program. - -Enter data pattern hex 00-FF If you answered Y to Lock On - Pattern, enter the eight bit - data pattern to be used during - disk testing. If you answered - N, this question is bypassed. - -Drive to be tested Specify disk drive to be used - for diskette testing. - -Test all tracks? Y or N Y = test all tracks (00-76) in - sequence. N = user wishes to - specify range of tracks (may - be used to test only part of a - diskette, or if disk drive is - other than Kaypro Format. - -First track to test decimal 00-999 If you answered N to Test All - Tracks, specify here the - number of the first track to - test. - -Last track to test decimal 00-999 If you answered N to Test All - Tracks, specify here the - number of the last track to - test. Must be the same or - greater than the number of the - first track to test. - -Test all sectors? Y or N Y = test all sectors (0-39) in - sequence. N = user wishes to - specify range of sectors (may - be used to test only part of - each track, or if disk drive - is other than Kaypro format. - -First sector to test decimal 0-39 If you answered N to Test All - Sectors, specify here the - number of the first sector to - test on each track. - -Last sector to test decimal 0-39 If you answered N to Test All - Sectors, specify here the - number of the last sector to - test on each track. Must be - the same or greater than the - number of the first sector to - test. - -How many test passes? decimal 01-99 Enter the number of test - passes to be made on the - diskette. At least one pass - is always made even if you - enter zero. - -After entry of the number of test passes, the program immediately -begins executing. The program may be interrupted by pushing any key, -however response may be delayed for several seconds depending on the -speed of the processor and disk drive. Do not stop the test by -resetting the computer system if you are using restore mode, or -unpredictable amounts of data may be lost. - - -4.0 Error Listing - -Errors detected by the program may be itemized on the system console -or the line printer. The pass, drive name, track, and sector where -the error occurred are listed. All numbers are in decimal. The error -type is designated at the right. In the explanations below, "hardware -error" signifies an error status code returned from the low level disk -driver, and usually means a CRC fault or seek incomplete. - - -error type explanation ----------- ----------- - -read error - original data If running in restore mode, hardware - read error noted as the original data - was being loaded into memory. - -write error - test data Hardware error noted as the test data - pattern was being written on the - diskette. - -read error - test data Hardware error noted as the test data - pattern was being read back from the - diskette. - -compare error - test data Difference was found between the data - pattern that was written to the - diskette and the data that was read - back. - -write error - restore phase Hardware error noted as the original - data was being written back to the - diskette. - -read error - restore phase Hardware error noted as the restored - original data was being read back for - verification. - -data cannot be restored Compare error found between the - original data rewritten to the - diskette and the same sectors read - back for verification. - - - - \ No newline at end of file diff --git a/2006/toledo2/PRO8/PRO8.ROM b/2006/toledo2/PRO8/PRO8.ROM deleted file mode 100644 index e69de29bb..000000000 diff --git a/2006/toledo2/PRO8/RCONFIG.COM b/2006/toledo2/PRO8/RCONFIG.COM deleted file mode 100644 index 21478adaf..000000000 Binary files a/2006/toledo2/PRO8/RCONFIG.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/RDISK.DOC b/2006/toledo2/PRO8/RDISK.DOC deleted file mode 100644 index 61d1c5354..000000000 --- a/2006/toledo2/PRO8/RDISK.DOC +++ /dev/null @@ -1,42 +0,0 @@ - -Using Micro Sphere's Ram Disk with the PRO8 version 3 - - -The ROM contains code to treat the Ram Disk as any other disk drive. -It allows you to use the screen dump with or without the the ram disk -attatched. Before accessing the ram disk you must have a 63K system. -Run RCONFIG.COM. When asked if you want to install a new bios answer -yes. The bios contains the necessary code to allow the Ram Disk and -drive A: to be swapped. RCONFIG allows you to choose any letter for -the ram disk and the swap drive letter. - -Also select the correct ram disk size for your particular ram disk. -Exit the program and press the reset button. Your warm boot sign on -will now reflect the status of the ram disk. It will always say 'Off' -until you access the ram disk. If the ram disk is not connected or -not working, you will get a BDOS error SELECT. If it is alive you will -log on to the ram disk. The ram disk is the drive you chose in the -configuration program unless you swap it with drive A: by entering the -letter you chose for the swap code. At this point your ram disk becomes -drive A: and floppy drive A: can be accessed by using the letter you -assigned the ram disk. Entering the swap code a second time reverses -this procedure. - -If you don't want the new bios (because you are running Plu Perfect or -some other enhanced bios) you can still use the Ram Disk code in ROM. -First run RCONFIG but do not install the new bios. Just set the ram disk -size and write it to disk. To access the Ram Disk after a reset, you must -first enter an ESC H to wake it up. It will then be available as drive -E: only. - -The printer buffer on the ram disk won't work until you access the ram -disk first. - -RAM DISK COMMANDS: - -ESC P pause the ram disk printer buffer (stop printing until another ESC P) -ESC H halt the ram disk printer buffer (stop printing and clear buffer) - -RF.COM formats and/or sysgens the Ram Disk. - - \ No newline at end of file diff --git a/2006/toledo2/PRO8/READ.ME b/2006/toledo2/PRO8/READ.ME deleted file mode 100644 index 46c0f53ea..000000000 --- a/2006/toledo2/PRO8/READ.ME +++ /dev/null @@ -1,149 +0,0 @@ --READ.ME - - -You will not be able to boot this diskette. Boot your PRO8 system from -your usual system disk. IMPORTANT: Make a copy of this disk and put it -away in a safe place. - -If you've done a speed-up modification to your Kaypro you may need to -switch your machine back to 2.5MHz before using the COPY programs. -You may try it at 5MHz but go to the slower speed if you have any -problems. - -When transferring files between different floppy formats and -different drive types, it is more efficient to use PIP.COM. - -This disk contains all the files you will need to use and modify your -PRO8 system. - -Other New Files and their uses..................................... - - - -CONFIG83.COM This is your new replacement for the CONFIG program - that you got with your Kaypro. It is modified to work - with 63k CP/M systems. Use it as you would your old - CONFIG. This program also allows you to set - configuration data for the PRO8 system. - -RCONFIG.COM The PRO8 rom Version 3 can support the Micro Sphere -RF.COM ram disk. If you have their ram disk see RDISK.DOC -RDISK.DOC for information on these files. - - -************** NOTES ON THE PRO 8 AND 4+ MODIFICATIONS **************** - -** CAUTION **** CAUTION **** CAUTION **** CAUTION **** CAUTION ** -When working on the drive cables (NEAR THE SWITCHING POWER SUPPLY), -please disconnect the power cord from the power jack located at the -rear of the cabinet. Switching power supplies are touchy creatures. - -Drive Idiosyncrasies: - -Jumper options for most drives are located directly behind or near the -drive data cable edge connector. Terminator resistor packs are located -near the jumper options and are usually socketed. - -************ -TEAC DRIVES: -************ - -Teac drive ribbon connectors are mounted upside down from other drive -manufacturers. If you mix Teac drives with Tandon drives the drive data -cable may be too short. - -To jumper the Teacs change the HS option to the HM option. The drive select -options are set by DS0-DS1. Drive A: corresponds to DS0; drive B: -corresponds to DS1, etc., also remove the IU jumper. - -******************** -TANDON 101-4 DRIVES: -******************** - -To set up the jumpers do the following: -1. W9 open -2. W19 closed -3. Jumper on W13 - sets up for 6ms step rate -4. W10 open -5. W11 open -6. W12 open -7. W14 open - -To jumper drive select do the following: -1. W1 ==> drive A: -2. W2 ==> drive B: -3. W3 ==> drive C: -4. W4 ==> drive D: - -The onboard processor only checks the jumper options upon power-up so make -sure you power down after the jumpers have been set. - -*********** -CDC DRIVES: -*********** - -Make sure the "M" option is jumpered and drive selection is done by -jumpering drive number 1 for drive A:; 2 for drive B: and so on. - -************************ -MITSUBISHI M4853 DRIVES: -************************ - -Move the HS jumper option to the HM option. Drive select options are -DS0-DS3, these correspond to drive A: - drive D: respectively. The -terminators are soldered in but there are 7 jumpers located behind the -terminator. Removing these jumpers isolates the terminator from the board. - -4+ Notes: - -Teac 55 series are half power drives, therefore four drives can operate -off of the KAYPRO power supply with our 4+ decoder board. Tandon or CDC -drives (if you add drive C and D) will require their own power source. - -Make sure you only have one terminator (resistor pack) located on the last -physical drive of your system. Exceptions to this statement follow: - -If you are using 4 Teac 55 drives then the terminator needs only to be on -drive D:. If you are using drives (for C and D) that require their own -power supply then a terminator is required on drive B: as well as on -drive D:. A 600 OHM terminating resistor pack should do the trick. -This way when you need to take your KAYPRO and use it independent of your -C: and D: drives, drive A: and B: will be protected by the terminator on -B:. - -Decoder Board Installation: - -Remove the (drive) I/O cable from the mother board at J6. The decoder -board plugs onto the exposed male header at J6. The orientation of the -decoder board is male right angle pins toward the drives. The micro-clip -has to be attached to +5 volts; J5 pin 6 will do. - -PRO 8 Notes: - -Kaypro II to 4 conversion: -When picking up A11 from U59 DO NOT bend out pin 2, just tack on to the -exposed part of the pin. Don't forget to change U73 to the 74S04, this -faster part is critical for the select pulse from U72. - -** CAUTION ** -It is recommended that a 3 wire soldering iron be used on all modifications. -This will eliminate the probability of damage to any static sensitive chips -you may be soldering on. - -**** If you are having problems and have an old Kaypro check U82 -(the floppy disk controller). If it is a 1793 disregard the rest of this -note. If it is a 1791 you must do the side select circuit a little -differently. Bend out pin 6 of U73 and solder from this bent out pin to -pin 32 of J6. (Before you had jumpered from U73 pad 6 to J6 pin 32. Remove -that jumper). Now bend out pin 13 of U72 (the PIO). Jumper from this bent -out pin to the bent out pin 5 of U73. (Originally we jumpered to E40, -remove that jumper). The reason for this is that the original design of -the Kaypro used this line to strobe or test for busy on the unused side of -the system port. This arrangement was never used for anything but it tied -up that bit on the PIO. We are just avoiding that traffic by direct -jumpering. - - - - - \ No newline at end of file diff --git a/2006/toledo2/PRO8/RF.COM b/2006/toledo2/PRO8/RF.COM deleted file mode 100644 index d5febff36..000000000 Binary files a/2006/toledo2/PRO8/RF.COM and /dev/null differ diff --git a/2006/toledo2/PRO8/SYS.COM b/2006/toledo2/PRO8/SYS.COM deleted file mode 100644 index 11f11be85..000000000 Binary files a/2006/toledo2/PRO8/SYS.COM and /dev/null differ diff --git a/2006/toledo2/SETDISK.COM b/2006/toledo2/SETDISK.COM deleted file mode 100644 index 8ea207799..000000000 Binary files a/2006/toledo2/SETDISK.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/ASM.COM b/2006/toledo2/SOURCE/ASM.COM deleted file mode 100644 index a6a54da56..000000000 Binary files a/2006/toledo2/SOURCE/ASM.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/BAUD.COM b/2006/toledo2/SOURCE/BAUD.COM deleted file mode 100644 index f7fd7bb5a..000000000 Binary files a/2006/toledo2/SOURCE/BAUD.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/CONFIG.ASM b/2006/toledo2/SOURCE/CONFIG.ASM deleted file mode 100644 index 4f9eef1db..000000000 --- a/2006/toledo2/SOURCE/CONFIG.ASM +++ /dev/null @@ -1,1256 +0,0 @@ -false equ 0 -true equ not false -debug equ false - .list ;begin listing -title KAYPRO CONFIG (custom configuration utility program) 2.0 Copyright (C) 1982 NLS, Inc. -page -;############################################################### -;## KAYPRO II CONFIG PROGRAM ## -;## containing within it the new cbios image so that ## -;## if this is run against a disk with the old cbios ## -;## it is updated at the same time. ## -;## 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 11,1982 ## -;## by jim nickerson ## -;## -allow redefinition of cursor keys ## -;## -allow redifinition of keypad keys ## -;## -allow redefinition of default i/o byte ## -;## -allow changing of the baud rate ## -;## -write these changes to disk ## -;############################################################### - - .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 - -; -; begining of the config program -; - jp config ;begining of program -; -mprint: - ld a,(de) ;get char - cp 0FFH ;end - ret z ;finished - push de - ld c,2 - ld e,a - call 5 - pop de - inc de - jr mprint -; -sprint macro arg - ld de,arg ;pointer to print line - call mprint - endm -; -; -printone macro - push af ;save char - ld c,2 ;console output - ld e,a ;char - call 5 - pop af ;recover char - endm -; -; -inone macro - local loop -loop: - ld c,6 ;direct console input - ld e,0FFH - call 5 - cp 0 ;0=nochar - jr z,loop ;wait for char - endm -; -; -jmpif macro arg, adr - cp arg - jp z, adr - endm -; -;print a message using bdos call -cr equ 0DH -lf equ 0AH -uprint macro x - ld c,9 - ld de,x ;message pointer - call 5 ;pass it to bdos - endm -; -;get a char from the console, up case -input macro - ld c,1 ;console input - call 5 ;pass it to bdos - endm -; -;*************************************************************** -;*************************************************************** -; -config: ;begining of the config program with main menu -; -;**************************************************************** -;**************************************************************** -; - ld a,1 - ld (disk),a ;force drive B - ld a,0FFH - ld (change),a ;changes flag 0=yes some changes -; -first: - uprint menuheader - uprint menu0 - input ;get an answer - push af ;save char - uprint crlf - pop af - jmpif '1',setio ;menu1 - jmpif '2',setwr ;menu2 - jmpif '3',setcur ;menu3 - jmpif '4',setnum ;menu4 - jmpif '5',setbaud ;menu5 - jmpif 01BH,go$out - jp first -; -setbaud: - uprint menuheader - uprint menu5 - input - push af - uprint crlf - pop af - jmpif '1',hbaud - jmpif 01BH,first - jmpif '2',dobaud - jp setbaud -; -dobaud: - uprint baudinst -dob1: - ld a,0 - ld (curline),a ;which choice - uprint firstchoice -dob2: - inone ;get a key - cp 01BH - jr z,setbaud - cp lf - jp z,db1 - cp cr - jr nz,dob2 - ;was a cr so we have a choice - ld a,(curline) - cp 16 ;wants to exit - jp nc,dob2 - out (0),a ;set baud rate - jp setbaud -; -db1: - ld a,(curline) ;where are we - inc a ;bump pointer - ld (curline),a ;save for future use - cp 17 ;end of choices - jr z,dob1 - uprint nextline ;advance one line - jr dob2 ;next line -curline: defb 0 -baudinst: - defb 1AH - defb ' 50',cr,lf - defb ' 75',cr,lf - defb ' 110 Move the cursor to the baud rate which',cr,lf - defb ' 134.5',cr,lf - defb ' 150 you want to use by typing the [LINE FEED] key.',cr,lf - defb ' 300',cr,lf - defb ' 600',cr,lf - defb ' 1200 When the cursor is at the rate you want',cr,lf - defb ' 1800',cr,lf - defb ' 2000 type the RETURN key and it will be set.',cr,lf - defb ' 2400',cr,lf - defb ' 3600 The new baud rate will be effective now.',cr,lf - defb ' 4800',cr,lf - defb ' 7200',cr,lf - defb ' 9600',cr,lf - defb '19200',cr,lf - defb 'Type [ESC] key to return to the previous menu (no changes)',cr,lf - defb cr,lf,lf - defb '(* NOTE: The baud rate will always default to 300 baud *)',cr,lf - defb '(* after the power is first turned on and when *)',cr,lf - defb '(* the RESET button is pressed. *)',cr,lf - defb '$' -firstchoice: - 01EH,0CH,0CH,0CH,0CH,0CH,'$' -nextline: - 0AH,'$' -; -hbaud: ;tell him about baud rates - uprint baudmsg - uprint crtocont - input - jp setbaud -; -setnum: - uprint menuheader - uprint menu4 - input - push af - uprint crlf - pop af - jmpif '1',hnum - jmpif '2',donum - jmpif 01BH,first - jp setnum -; -getone: - ld a,(curline) - inc a - ld (curline),a ;bumped pointer - call hex2in ;get 2 hex chars in c - jr nz,gadj -;wants to exit maybe - cp lf ;move cursor - ret z - ;must be esc then - pop hl ;clean stack - ld hl,(gohere) - jp (hl) ;oblidge him - ret z -;adjust changes flag -gadj: - ld a,0 - ld (change),a ;yes some changes -; -;record changes in mem image of cbios - ld de,0 - ld a,(curline) ;put here -1 - dec a - ld e,a - ld hl,(puthere) ;where to put changes - add hl,de ;hl points to char - ld a,c ;get char - ld (hl),a ;put him in mem - ret -; -; get two hex chars -hex2in: - inone ;get one key - cp 0AH ;move to next position - ret z - cp 01BH - ret z ;exit on esc - cp 030H ;0 the lowest one allowed - jr c,hex2in - cp 03AH ;tween 0 and 9 - jr c,setone - res 5,a ;make upper case if lower - cp 047H ;F the highest allowed - jr nc,hex2in - cp 041H ;must not be less than A - jr c,hex2in - printone - sub 7 ;remove bias - jr seta -setone: - printone -seta: - sub 030H ;take off bias - rlc a ;slowly - rlc a ;shift the - rlc a ;low nible - rlc a ;to the high nible - and 0F0H ;mask off the low nible - push af ;save it -settwo: ;force him to enter second char in hex - inone ;get one key - cp 0AH - jr z,s2 - cp 01BH - jr nz,s3 -s2: - pop hl ;clean stack - ret ;with z set to exit -s3: - cp 030H - jr c,settwo ;not acceptable - cp 03AH ;tween 0-9 - jr c,set3 - res 5,a ;make upper case if lower - cp 047H - jr nc,settwo ;not acceptable - cp 041H - jr c,settwo ;nogood - printone - sub 7 ;remove bias - jr set4 -set3: ;got second char in hex - printone -set4: - sub 030H - and 0FH ;ONLY WANT LOW NIBLE - ld c,a ;save it - pop af ;recover high nible - or c ;assembled char - ld c,a ;save char in a - ret nz - inc a ;must ret not zero - ret -; -; -donum: - ld hl,setnum - ld (gohere),hl ;where to exit to on esc - ld hl,cbios+039H - ld (puthere),hl - uprint numchoices -donum1: - ld a,0 ;first choice - ld (curline),a - sprint key0 - call getone - sprint key1 - call getone - sprint key2 - call getone - sprint key3 - call getone - sprint key4 - call getone - sprint key5 - call getone - sprint key6 - call getone - sprint key7 - call getone - sprint key8 - call getone - sprint key9 - call getone - sprint key10 ;- - call getone - sprint key11 ;, - call getone - sprint key12 ;enter - call getone - sprint key13 ;. - call getone - sprint key14 ;return -numpat: - inone - cp 01BH ;ESC - jp z,setnum - cp lf - jr nz,numpat - jp donum1 -; -numchoices: - defb 01AH - defb '----------------------------- Move the cursor to the key you wish',cr,lf - defb ': : : : :',cr,lf - defb ': 7 : 8 : 9 : - : to change. Use the [LINE FEED] key.',cr,lf - defb ': : : : :',cr,lf - defb ': 37 : 38 : 39 : 2D : The default HEXADECIMAL code will be',cr,lf - defb ';------;------;------;------:',cr,lf - defb ': : : : : the number which is flashing.',cr,lf - defb ': 4 : 5 : 6 : , :',cr,lf - defb ': : : : :',cr,lf - defb ': 34 : 35 : 36 : 2C : When you reach the key you wish to change.',cr,lf - defb ':------:------:------:------:',cr,lf - defb ': : : : : Type in the new HEXADECIMAL code.',cr,lf - defb ': 1 : 2 : 3 : :',cr,lf - defb ': : : : :',cr,lf - defb ': 31 : 32 : 33 : ENTER: (* NOTE: you must enter both digits *)',cr,lf - defb ':------:------:------: :',cr,lf - defb ': : : 0D : (* to change the code. *)',cr,lf - defb ': 0 : . : :',cr,lf - defb ': : : :',cr,lf - defb ': 30 : 2E : : Type the [ESC] key to return to the previous menu',cr,lf - defb '-----------------------------',cr,lf - defb '$' -; -key0: defb 01BH,'=',19+20H,6+20H,0FFH -key1: defb 01BH,'=',14+20H,3+20H,0FFH -key2: defb 01BH,'=',14+20H,10+20H,0FFH -key3: defb 01BH,'=',14+20H,17+20H,0FFH -key4: defb 01BH,'=',9+20H,3+20H,0FFH -key5: defb 01BH,'=',9+20H,10+20H,0FFH -key6: defb 01BH,'=',9+20H,17+20H,0FFH -key7: defb 01BH,'=',4+20H,3+20H,0FFH -key8: defb 01BH,'=',4+20H,10+20H,0FFH -key9: defb 01BH,'=',4+20H,17+20H,0FFH -key10: defb 01BH,'=',4+20H,24+20H,0FFH -key11: defb 01BH,'=',9+20H,24+20H,0FFH -key12: defb 01BH,'=',16+20H,24+20H,0FFH -key13: defb 01BH,'=',19+20H,17+20H,0FFH -key14: defb 01BH,'=',19+20H,41+20H,0FFH -hnum: - uprint nummsg - uprint crtocont - input - jp setnum -; -setcur: - uprint menuheader - uprint menu3 - input - push af - uprint crlf - pop af - jmpif '1',hcur - jmpif 01BH,first - jmpif '2',docur - jr setcur -; -; -docur: - ld hl,cbios+035H ;WHERE TO PUT CHANGES - ld (puthere),hl - ld hl,setcur - ld (gohere),hl ;ret here on esc - uprint curinst -doc1: - ld a,0 - ld (curline),a ;item to change - sprint cur0 ;left cursor key - call getone ;input etc - sprint cur1 - call getone - sprint cur2 - call getone - sprint cur3 - call getone - sprint cur4 ;type esc to exit -doc4: - inone ;get one key - cp 0AH - jp z,doc1 - cp 01BH - jr nz,doc4 - jp setcur -; - jp doc1 ;again -hcur: - uprint vecmsg - uprint crtocont - input - jp setcur -; -; -curinst: - defb 01AH - defb cr,lf - defb cr,lf - defb ' ---------------------------------',cr,lf - defb ' : : : : :',cr,lf - defb ' : ^ : : : <- : -> :',cr,lf - defb ' : : : v : : :',cr,lf - defb ' : : : : :',cr,lf - defb ' : 0B : 0A : 08 : 0C :',cr,lf - defb ' ---------------------------------',cr,lf - defb cr,lf - defb cr,lf - defb ' Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf - defb ' Move the cursor to the key which you wish to change by pressing',cr,lf - defb ' the [LINE FEED] key. The default HEXADECIMAL code will be the flashing number.',cr,lf - defb ' Type the new HEXADECIMAL number you wish to assign to the key.',cr,lf - defb cr,lf - defb ' You must type both digits to effect the change.',cr,lf - defb cr,lf - defb '$' -; -cur0: defb 01BH,'=',7+20H,15+20H,0FFH -cur1: defb 01BH,'=',7+20H,23+20H,0FFH -cur2: defb 01BH,'=',7+20H,31+20H,0FFH -cur3: defb 01BH,'=',7+20H,39+20H,0FFH -cur4: defb 01BH,'=',11+20H,18+20H,0FFH -setwr: - uprint menuheader - uprint menu2 - input - push af - uprint crlf - pop af - jmpif '1',hwr - jmpif '2',dowr - jmpif 01BH,first - jp setwr -; -dowr: - uprint wrinst -dow0: - sprint wr0 - inone - cp 0AH - jr z,dow1 - cp 01BH - jp z,setwr - cp 0DH - jr nz,dow0 -;got cr so do it set yes - ld a,0FFH ;set it on - ld (cbios+034H),a - ld a,0 - ld (change),a - jp setwr -dow1: - sprint wr1 - inone - cp lf - jr z,dow2 - cp 01BH - jr z,setwr - cp cr - jr nz,dow1 -;have choice set = 0 - ld a,0 - ld (cbios+034H),a - ld (change),a - jp setwr -dow2: - sprint wr2 - inone - cp 01BH - jp z,setwr - cp lf - jp nz,dow2 - jp dow0 -; -; -hwr: - uprint safmsg - uprint crtocont - input - jp setwr -; -wrinst: - defb 01AH,cr,lf - defb cr,lf,cr,lf - defb 'Yes I want Write Safe enabeled.',cr,lf - defb cr,lf - defb 'No do not enable Write Safe. This is the default mode on your KAYPRO II .',cr,lf - defb cr,lf - defb 'Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf,cr,lf - defb 'Use the [LINE FEED] key to move the cursor to the mode',cr,lf - defb 'which you wish to use and then type the [RETURN] key to',cr,lf - defb 'enter your choice.',cr,lf - defb cr,lf - defb '**** PLEASE read the help file before you enable Write Safe. ****',cr,lf - defb '**** If you do not understand it ASK your dealer. ****',cr,lf - defb '$' -; -wr0: defb 01BH,'=',3+20H,20H,0FFH -wr1: defb 01BH,'=',5+20H,20H,0FFH -wr2: defb 01BH,'=',7+20H,11+20H,0FFH -; -setio: - uprint menuheader - uprint menu1 - input ;get response - push af - uprint crlf - pop af - jmpif '1',hio - jmpif '2',doio - jmpif 01BH,first - jp setio -; -doio: - uprint ioinst - ld hl,cbios+033H - ld (puthere),hl - ld hl,setio - ld (gohere),hl -doio0: - ld a,0 - ld (curline),a - sprint io0 - call inio - sprint io1 - call inio -doioc: sprint io2 - call inio - sprint io3 - call inio -doioe: sprint io4 -doio1: - inone - cp 01BH - jp z,setio - cp 0AH - jr nz,doio1 - jp doio0 -; -inio: - inone ;get a char - cp 01BH - jr nz,inio1 - pop hl - ld hl,(gohere) - jp (hl) -inio1: - cp 0AH - jr nz,inio2 -;have line feed so bump cur line before returning - ld a,(curline) - inc a - ld (curline),a - ret -inio2: - cp 0DH - jr nz,inio -; must have a cr now process it - ld a,0 - ld (change),a ;yes some changes - ld a,(curline) - add a,a - ld de,0 - ld e,a - ld hl,ivtab - add hl,de ;hl now points to 1 of 4 - ld e,(hl) - inc hl - ld d,(hl) - ex de,hl - ld de,(puthere) ;where it goes - jp (hl) -ivtab: defw sio0 - defw sio1 - defw sio2 - defw sio3 -sio0: - ld a,(de) - res 1,a - set 0,a - ld (de),a - ld hl,doioc - ld a,2 - ld (curline),a - pop de - jp (hl) -sio1: - ld a,(de) - res 0,a - res 1,a - ld (de),a - ld a,(curline) - inc a - ld (curline),a - ret -sio2: - ld a,(de) - res 6,a - set 7,a - ld (de),a - ld hl,doioe - jp (hl) -sio3: - ld a,(de) - res 7,a - res 6,a - ld (de),a - ret -; -; -hio: - uprint iomsg - uprint crtocont - input - jp setio -; -; -ioinst: - defb 01AH - defb cr,lf,cr,lf - defb ' Default settings Posibile changes',cr,lf - defb ' ---------------- ----------------',cr,lf - defb cr,lf - defb ' CON:=CRT: CON:=TTY: Type the [LINE FEED] key to ',cr,lf - defb ' LST:=LPT: LST:=TTY: move the cursor to the mode ',cr,lf - defb ' PUN:=TTY: - none - you wish to select.',cr,lf - defb ' RDR:=TTY: - none - Then the RETURN key to enter',cr,lf - defb ' your selection.' - defb cr,lf - defb ' Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf - defb '* CON: If you chose CON:=TTY: then all input and output will be through the',cr,lf - defb ' serial connector on the back of your KAYPRO II instead of through the',cr,lf - defb ' keyboard and the CRT.',cr,lf - defb cr,lf - defb cr,lf - defb '* LST: This setting will decide wether the output directed at a printer',cr,lf - defb ' will go through the LPT: (parallel connector) or to the',cr,lf - defb ' TTY: (serial connector).',cr,lf - defb '$' -; -io0: defb 01BH,'=',5+20H,12+20H,0FFH -io1: defb 01BH,'=',5+20H,36+20H,0FFH -io2: defb 01BH,'=',6+20H,12+20H,0FFH -io3: defb 01BH,'=',6+20H,36+20H,0FFH -io4: defb 01BH,'=',10+20H,19+20H,0FFH -; -go$out: ;here to exit check if any changes so as to - ;know wether to write to disk or not - ld a,(change) - cp 0FFH ;0FFH=nochanges - jp nz,askout -bye: - ld a,0 - ld (0FA34H),a ;reset write safe off - jp z,0 ;exit with no changes -; -; -askout: - uprint ask - input ;get response - res 5,a ;make upper case - cp 'N' - jp z,bye ;exit - cp 'Y' - jr nz,askout -; -; now to write the changes to the disk -procede: ;get on with it -;reset the disk system for drive B - ld a,0FFH - ld (0FA34H),a ;set the write safe flag - ld c,14 ;select disk - ld a,(disk) ;find out which disk to use - ld e,a - call 5 ;tell bdos -; -;set up initial paramaters - ld hl,cbios - ld (from),hl ;where to start writing from -; - ld bc,0001H - ld (track),bc ;track we will be using -; - ld bc,21 - ld (sector),bc ;first sector to write to -; - ld a,4 - ld (count),a ;how many sectors to write -; - ld hl,080H - ld (secsize),hl ;sector size -; -;now to do the writing on the disk -nextsec: - ld bc,(track) - call 0FA1EH ;set the track required -; - ld bc,(from) - call 0FA24H ;set the dma address -; - ld bc,(sector) - call 0FA21H ;set the sector to write -; - ld c,0 - call 0FA2AH ;write the sector -; check for error's on return - cp 0 ;a=0=no errors - jr z,go$on - uprint erms ;error message - uprint crtocont - input ;pause for any key to continue - ld a,0 - ld (0FA34H),a ;reset write safe flag - jp config ;exit -; -go$on: - ld hl,(from) ;dma address - ld de,(secsize) - add hl,de ;bump dma address - ld (from),hl ;save it for reuse - ld a,(sector) - inc a ;bump sector number - ld (sector),a ;save for next write - ld a,(count) ;are we - dec a ;done yet - ld (count),a ;save in case we are not done - cp 0 - jp nz,nextsec ;not yet finished -; - uprint alldone - ld a,0 - ld (0FA34H),a ;reset write safe flag - jp config ;exit -; -change: defb 0 -disk: defb 0 -from: defw 0 -puthere: - defw 0 -track: defw 0 -sector: defw 0 -count: defb 0 -gohere: defw 0 -secsize: - defw 0 -crlf: defb cr,lf,'$' -alldone: - defb cr,lf,'DONE WITH CONFIGURATION',cr,lf,'$' -crtocont: - defb cr,lf,'Please type any key to continue','$' -erms: - defb cr,lf,'*** I can''t write to your disk ***',cr,lf,'$' -menuheader: - defb 01AH,cr,lf,cr,lf - defb 'KAYPRO II CONFIGURATION PROGRAM 11 July 1982' -; -choices: - defb cr,lf - defb '-----------------------------------------------' - defb cr,lf,cr,lf - defb 'CHOICES' - defb cr,lf - defb '-------' - defb cr,lf,cr,lf - defb '$' -menu0: ;first level menu - defb '1 --------> I/O Byte cold boot defaults' - defb cr,lf - defb '2 --------> Write Safe flag' - defb cr,lf - defb '3 --------> Cursor Keys definitions' - defb cr,lf - defb '4 --------> Numerical keypad definitions' - defb cr,lf - defb '5 --------> Baud rate' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> EXIT this program and return to CP/M' - defb cr,lf - defb cr,lf - defb '(* NOTE: Anything not changed will contain its default value. *)' - defb cr,lf - defb cr,lf - defb 'Any changes that this program can make will only affect the disk in drive B.' - defb cr,lf - defb 'These changes will not be seen until you move the disk to drive A and' - defb cr,lf - defb 'push the RESET switch (Cold Boot) or turn the power off and on,' - defb cr,lf - defb 'EXCEPT selection ''5'' (Baud rate) which will have an immediate effect.' - defb cr,lf - defb 'Upon exiting this program you will be asked whether you want to apply' - defb cr,lf - defb 'the changes to the disk in drive B.' - defb cr,lf - defb 'Please enter ''1'' or ''2'' or ''3'' or ''4'' or ''5'' or [ESC] key ====>','$' -menu1: ;I/O BYTE menu - defb '1 --------> Help (I/O Byte definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the I/O Byte' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -; -menu2: ;write safe flag - defb '1 --------> Help (Write safe flag definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the write safe flag' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf - defb cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -; -menu3: ;cursor key - defb '1 --------> Help (Cursor key definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the Cursor key settings' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -menu4: ;numerical key-pad - defb '1 --------> Help (Numerical keypad definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the Numerical keypad settings' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -menu5: ;baud rate - defb '1 --------> Help (Baud rate definitions)' - defb cr,lf,cr,lf - defb '2 --------> Change the Baud rate' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -ask: - defb cr,lf - defb 'Y----------> procede to update the disk in drive B' - defb cr,lf - defb 'N----------> not ready, EXIT TO CP/M' - defb cr,lf - defb cr,lf - defb 'Please type (Y) or (N) ====>' - defb '$' -; -nummsg: - defb 1ah,cr,lf - defb 'On the right hand side of your KAYPRO II keyboard there is a group of',cr,lf - defb 'fourteen keys, labeled: 7 8 9 -',cr,lf - defb ' 4 5 6 ,',cr,lf - defb ' 1 2 3 enter',cr,lf - defb ' 0 .',cr,lf - defb cr,lf - defb 'These fourteen keys each produce a unique code when typed.',cr,lf - defb 'In some situations it may be useful to have one or more keys ',cr,lf - defb 'provide a special function, such as in an application',cr,lf - defb 'program requiring choices from a menu.',cr,lf - defb ' This portion of the CONFIGURATION program allows you to set the',cr,lf - defb 'codes which will be produced by these fourteen keys.',cr,lf - defb cr,lf,lf,lf,lf - defb '$' -baudmsg: - defb 1ah,cr,lf - defb 'Your KAYPRO II computer has a serial port with which you may communicate',cr,lf - defb 'with the outside world. This serial port is most often referred to as',cr,lf - defb 'RS-232. In using RS-232 both the computer and the external device',cr,lf - defb 'must be set at the same baud rate (the speed at which data travels)',cr,lf - defb cr,lf - defb ' Your KAYPRO II is capable of the following baud rates:',cr,lf - defb ' 50 -not used very often',cr,lf - defb ' 75 -not used very often',cr,lf - defb ' 110 -used with slower printers',cr,lf - defb ' 134.5 -used with some IBM printers',cr,lf - defb ' 150 -not used very often',cr,lf - defb ' 300 -very common (default on your KAYPRO II on reset)',cr,lf - defb ' 600 -not used very often',cr,lf - defb ' 1200 -used with many printers',cr,lf - defb ' 1800 -not used very often',cr,lf - defb ' 2000 -not used very often',cr,lf - defb ' 2400 -not used very often',cr,lf - defb ' 3600 -not used very often',cr,lf - defb ' 4800 -higher rate for faster printers',cr,lf - defb ' 7200 -not used very often',cr,lf - defb ' 9600 -highest rate normally used',cr,lf - defb '19200 -very high rate (for special purposes)',cr,lf - defb '(* NOTE: the PRESENT baud rate remains in effect until the next RESET *)' - defb '$' -iomsg: defb 1ah,cr,lf - defb 'In order to understand this command you should read the CP/M manual',cr,lf - defb '"AN INTRODUCTION TO CP/M FEATURES AND FACILITIES", the STAT command',cr,lf - defb 'logical and physical devices. The logical CP/M devices are: CON: LST:',cr,lf - defb 'RDR: and PUN:. The physical devices for the KAYPRO computer are:',cr,lf,lf - defb ' CRT: Video and Keyboard',cr,lf - defb ' TTY: Serial port (note the connector must be wired as in the manual)',cr,lf - defb ' LPT: Centronics port',cr,lf - defb ' UL1: This is the same as TTY: above',cr,lf - defb ' PTP: This is the same as TTY: above',cr,lf,lf - defb 'Possible logical to physical assignments are:',cr,lf,lf - defb ' CON: = TTY: or CRT:',cr,lf - defb ' RDR: = TTY:',cr,lf - defb ' PUN: = TTY: or CRT: or LPT: or UL1:',cr,lf,lf - defb 'BEFORE using this option try it with the STAT command in CP/M.',cr,lf - defb cr,lf,'$' -safmsg: defb 1ah, cr, lf - defb 'Your KAYPRO computer comes with a special "Write Safe" option that corrects',cr,lf - defb 'a problem with CP/M when running with SOME application programs. It is not',cr,lf - defb 'possible to make the following description nontechnical. If you do not under-',cr,lf - defb 'stand it, ask your dealer. The wrong setting of the "Write Safe" flag may cause',cr,lf - defb 'the IRREVOCABLE LOSS OF DATA AND OR PROGRAM(S).',cr,lf,lf - defb 'The KAYPRO computer uses deblocking. When a disk write operation is',cr,lf - defb 'immediately followed by a warm boot, the deblocking buffer may not be',cr,lf - defb 'written to the disk. This is not a likely sequence of events. Most programs',cr,lf - defb 'when finished writing to a file, will close it. ALL directory operations force',cr,lf - defb 'the deblock buffer to disk on write. The "Write Safe" flag tells the BIOS',cr,lf - defb 'that ALL disk operations are directory type. This forces the buffer to the',cr,lf - defb 'disk. The price is performance, as "Write Safe" will slow the computer down',cr,lf - defb 'from 2 to 4 times when writing to the disk. "Write Safe" is not a panacea',cr,lf - defb 'for system or program problems. The chance you will need it is rare.',cr,lf,lf - defb cr,lf,'$' -vecmsg: defb 1ah,cr,lf - defb 'It is not possible to make the following discription nontechnical.', cr, lf - defb 'If you do not understand it please ask your dealer.',cr,lf,lf - defb 'Your KAYPRO II computer comes with four arrow keys, they are at the upper right',cr,lf - defb 'of the main keyboard. They are usually referred to as CURSOR keys. They are ',cr,lf - defb 'used in programs such as SELECT to move the cursor. These keys produce codes',cr,lf - defb 'that are recognized by applications programs. The codes that they produce may',cr,lf - defb 'or may not be the codes that an application you supply wants. The codes sent',cr,lf - defb 'by the keyboard are unique, MSB set. The BIOS translates the keyboard codes',cr,lf - defb 'using a table in the BIOS. This option of the configure program allows you',cr,lf - defb 'to change the values in this table and record it on the disk. The memory',cr,lf - defb 'image is not changed until you cold boot (reset).',cr,lf,lf - defb cr,lf,'$' -;here begins the updated cbios which must eventually -;reside and operate at 0FA00H which is 01F80H in the sysgen image -;and is track 1 sectors 21-22-23-24 on the disk -; -cbios: ;label to allow update to find him -;*************************************** - .phase bios ;absolute location of code following - 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 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 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+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 config - \ No newline at end of file diff --git a/2006/toledo2/SOURCE/CONFIG.COM b/2006/toledo2/SOURCE/CONFIG.COM deleted file mode 100644 index 6645816a8..000000000 Binary files a/2006/toledo2/SOURCE/CONFIG.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/COPY.COM b/2006/toledo2/SOURCE/COPY.COM deleted file mode 100644 index 4aa4063a2..000000000 Binary files a/2006/toledo2/SOURCE/COPY.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/CPM64.COM b/2006/toledo2/SOURCE/CPM64.COM deleted file mode 100644 index a5766f288..000000000 Binary files a/2006/toledo2/SOURCE/CPM64.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/CPMWORK.009 b/2006/toledo2/SOURCE/CPMWORK.009 deleted file mode 100644 index e69de29bb..000000000 diff --git a/2006/toledo2/SOURCE/DDT.COM b/2006/toledo2/SOURCE/DDT.COM deleted file mode 100644 index 83f8603f9..000000000 Binary files a/2006/toledo2/SOURCE/DDT.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/DUMP.COM b/2006/toledo2/SOURCE/DUMP.COM deleted file mode 100644 index 03a77c3ca..000000000 Binary files a/2006/toledo2/SOURCE/DUMP.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/ED.COM b/2006/toledo2/SOURCE/ED.COM deleted file mode 100644 index a0f0f5410..000000000 Binary files a/2006/toledo2/SOURCE/ED.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/FORMAT.COM b/2006/toledo2/SOURCE/FORMAT.COM deleted file mode 100644 index 1ca2f4b16..000000000 Binary files a/2006/toledo2/SOURCE/FORMAT.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/INITDISK.COM b/2006/toledo2/SOURCE/INITDISK.COM deleted file mode 100644 index fbeba1123..000000000 Binary files a/2006/toledo2/SOURCE/INITDISK.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/KBIOS.ASM b/2006/toledo2/SOURCE/KBIOS.ASM deleted file mode 100644 index 541f5301a..000000000 --- a/2006/toledo2/SOURCE/KBIOS.ASM +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/2006/toledo2/SOURCE/KPRS2.ASM b/2006/toledo2/SOURCE/KPRS2.ASM deleted file mode 100644 index d7a60f9f0..000000000 --- a/2006/toledo2/SOURCE/KPRS2.ASM +++ /dev/null @@ -1,1675 +0,0 @@ -title KAYPRO RESIDENT SOFTWARE PACKAGE 2.0 , Copyright (C) 1982 NLS, Inc. -subttl Cold start and configure - aseg - ORG 0 -.comment % -######################################################## -## ## -## Cold start routine, reset and configure ## -## system for power up condition. ## -## ## -## Copyright (C) 1982 By Non-Linear Systems, Inc ## -## No warranty is made, expressed or implied. ## -## ## -######################################################## -## Last update: july 13/1982 [001] ## -## by JIM NICKERSON ## -## change list out with busy jump to ## -## to check status of serial port ## -######################################################## -% - .xlist -; extrn stack, diskinit, vidinit, devinit, print, dmaadr, dpha -; extrn home, seldsk, settrk, setsec, setdma, read, write -; extrn sectran, kbdstat, kbdin, kbdout, ttystat, ttyin, ttyout, TTYOSTAT -; extrn liststat, list, vidout, diskoff, diskon, thnsd - .list - .z80 - -; ROM master jump table - -jp start ; start up computer -jp diskinit ; disk initialize -jp vidinit ; video initialize -jp devinit ; device initialize - -jp home ; home selected disk drive -jp seldsk ; select a disk drive -jp settrk ; seek a track -jp setsec ; set sector number to read -jp setdma ; set dma address -jp read ; read logical sector -jp write ; write logical sector -jp sectran ; xlate sector number -jp diskon ; turn on disk -jp diskoff ; turn off disk - -jp kbdstat ; KeyBoarD character ready -jp kbdin ; input from keyboard -jp kbdout ; output to keyboard (used to ring bell) -jp ttystat ; status of serial input port -jp ttyin ; serial input -jp ttyout ; serial output -jp liststat ; list output status (Centronics) -jp list ; list output -JP TTYOSTAT ;TESTSTATUS OF SERIAL OUTPUT -jp vidout ; video output -jp thnsd ; short delay - -start: di ; stop interupts while setup - ld sp,stack ; rom stack point - ld b,10 ; a delay to let the hardware stabilize - call thnsd - call devinit ; init device sub-system - call vidinit ; init video sub-system - call diskinit ; init disk sub-system - jr bootsys ; boot system - org 66H ; nmi vector - ret ; return from "halt", NMI sequence when in rom -page -; boot system, the first sector (1) of the first track (0) -; hold system boot information. It does NOT hold a short boot routine! -; the image is: -; self: jr self ; hang if booted and run -; defw loadpt ; where to load the opsys image -; defw bios ; where to go after booting system -; defw length ; length of image in 128 byte sectors -; (* the rest of the sector is not used *) -; -; This sector image is loaded and inspected at 0FA00H during the boot process - -crlf equ 0D0AH ; new line codes -esc equ 1BH ; ascii esc -bell equ 07H ; kbd bell - -bootsys:call print - defb esc,'=',20H+10,20H+31 - DEFB '* KAYPRO II *' - defb esc,'=',20H+13,20H+20 - defb 'Please insert your diskette into Drive A',8,0 - ld c,0 - call seldsk ; select disk, set density, do home after diskinit - ld bc,0 ; set track - call settrk - ld c,0 ; read the first sector - call setsec - ld bc,0FA00H ; header sector to go here - call setdma - call read ; read sector to FA00 - di ; read does EI upon exit - or a ; trouble reading? - jr nz,booterr ; tell crt - ld bc,(0FA02H) ; where to load system image - ld (dmaadr),bc - ld bc,(0FA04H) ; where to go after loading system - push bc ; save for latter use - ld bc,(0FA06H) ; length of system in 128 byte sectors - ld b,c ; reg B holds # of sectors to load - ld c,1 ; initial sector (0 was header sector) -cb1: push bc ; save sector count and current sector - call setsec ; select sector - call read - di ; read does EI upon exit - pop bc - or a - jr nz,booterr ; bad read of sector - ld hl,(dmaadr) ; update dma address for next sector - ld de,128 ; new dma address - add hl,de - ld (dmaadr),hl - dec b - ret z ; done booting goto system - inc c ; bump sector count - ld a,40 ; over sectors/track? - cp c - jr nz,cb1 ; fetch another sector - ld c,16 ; first sector to read on next track - push bc ; save counts - ld bc,1 ; set for next track - call settrk - pop bc - jr cb1 - -booterr:call print - defw crlf, crlf - defb bell,'I cannot read your diskette.',0 - call diskoff ; turn off disk drive -self: jr self ; hang till user pushes reset - -page -subttl Disk Equate and Parameters -.comment % -############################################################### -## ## -## Disk support routines (Deblocking) ## -## ## -############################################################### -## Last Update:06/08/82 [001] ## -############################################################### -% -.z80 - .xlist -; extrn sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec -; extrn sekhst, hstact, hstwrt, unacnt, unadsk, unatrk -; extrn unasec, erflag, rsflag, readop, wrtype, dmaadr -; extrn hstbuf, dsk, denflag, tracka, trackb, dirbuf -; extrn csva, alva, csvb, alvb, dpha, dphb, dpbs, dpbd, tbl1 -; extrn move, rd128, rd512, wrt128, wrt512 -; -; public home, seldsk, settrk, setsec, setdma, read, write, sectran -; public diskinit, diskon, diskoff, thnsd - .list - -bitport equ 01CH ; bit port (m80 does not support extrn bytes) -drvmask equ 0FCH ; drive select mask -denmask equ 0DFH ; density bit mask -ddbit equ 00H ; double density bit -sdbit equ 20H ; single density bit -control equ 10H ; I/O port of disk controller -status equ control+0 ; status register -cmnd equ control+0 ; command register -track equ control+1 ; track register -sector equ control+2 ; sector register -data equ control+3 ; data register -ficmd equ 11010000B ; force interrupt (Abort current command) -rdcmd equ 10000000B ; read command -wrtcmd equ 10100000B ; write command -seekcmd equ 00010000B ; seek command -rstcmd equ 00000000B ; home (restore) command -adrcmd equ 11000000B ; read track address -rdmask equ 10011100B ; read status mask -wrtmask equ 11111100B ; write status mask -tries1 equ 4 ; re-home on bad sector # of tries+1 -tries2 equ 15 ; re-read/write # of retries+1 -retcod equ 0C9H ; return op code -nmivec equ 0066H ; non-maskable interupt vector (used in rd/wt loop) -page -; This section defines the disk parameters (dph's are images moved to RAM) -dph0: defw 0,0,0,0 ; dph for unit A: - defw dirbuf,dpbd ; directory buffer, Disk Parameter Block - defw csva, alva ; check sum pointer, allocation map pointer - defb ddbit ; density flag for this drive - - defw 0,0,0,0 ; dph for unit B: - defw dirbuf,dpbd ; directory buffer, Disk Parameter Block - defw csvb, alvb ; check sum pointer, allocation map pointer - defb ddbit ; density flag for this drive - -;dpbs: ;( single density ); - defw 18 ; (spt) sectors per track - defb 3 ; (bsh) block shift factor - defb 7 ; (blm) block mask - defb 0 ; (exm) extent mask - defw 82 ; (dsm) max logical block # - defw 31 ; (drm) max directory # - defb 80H ; (al0) directory allocation map - defb 00H ; (al1) - defw 8 ; (cks) size of directory check vector - defw 3 ; (off) reserved tracks -;dpbd: ;( double density ); - defw 40 ; (spt) sectors per track - defb 3 ; (bsh) block shift factor - defb 7 ; (blm) block mask - defb 0 ; (exm) extent mask - defw 194 ; (dsm) max logical block # - defw 63 ; (drm) max directory # - defb 0F0H ; (al0) directory allocation map & BIOS space - defb 00H ; (al1) - defw 16 ; (cks) size of directory check vector - defw 1 ; (off) reserved tracks - -; sector interleave table ( single density ) -;tbl1: - defb 1,6,11,16 - defb 3,8,13,18 - defb 5,10,15,2 - defb 7,12,17,4 - defb 9,14 -enddph: -subttl Logical BIOS entry points & Deblocking -page -.8080 -;***************************************************** -;* Logical BIOS entry points * -;* Sector Deblocking Algorithms * -;***************************************************** -blksiz equ 1024 ;CP/M allocation size -hstsiz equ 512 ;host disk sector size -hstspt equ 10 ;host disk sectors/trk -hstblk equ hstsiz/128 ;CP/M sects/host buff -cpmspt equ hstblk * hstspt ;CP/M sectors/track -secmsk equ hstblk-1 ;sector mask -secshf equ 2 ;log2(hstblk) sector mask -wrall equ 0 ;write to allocated -wrdir equ 1 ;write to directory -wrual equ 2 ;write to unallocated - -single macro lbl - lda denflag - ora a - jnz lbl - endm - -diskinit: ;enter here on system boot to initialize -.z80 - ld hl,ioimage ;move rd/wrt routines into RAM - ld de,move - ld bc,imaglen - ldir - ld hl,dph0 ; set dph's - ld de,dpha - ld bc,enddph-dph0 - ldir -.8080 - xra a ;0 to accumulator - sta hstact ;host buffer inactive - sta unacnt ;clear unalloc count - mvi a,ddbit ;set double density flag - sta denflag - mvi a,255 ;set track numbers to 255 - sta dsk ;clear disk number - sta tracka - sta trackb - ret - -seldsk: ;select disk - mov a,c ;selected disk number - sta sekdsk ;seek disk number - jmp dsksel ;physical disk select (If needed to check den) - -setsec: ;set sector given by register c - mov a,c - sta seksec ;sector to seek - single secset - ret - -.z80 -setdma: ld (dmaadr),bc ;set dma address given by BC - ret - -settrk: ld (sektrk),bc ;set track given by registers BC -.8080 - single trkset - ret - -home: single dohome ; if single goto dohome - lda hstwrt ; patch by DRI - ora a - jnz homed - sta hstact -homed: jmp dohome ; go do home disk drive - -read: ;read the selected CP/M sector - single rd128 ;128 byte sector? - xra a ; a patch by DRI - sta unacnt - mvi a,1 - sta readop ;read operation - sta rsflag ;must read data - mvi a,wrual - sta wrtype ;treat as unalloc - jmp rwoper ;to perform the read - -write: ;write the selected CP/M sector - single wrt128 ;128 byte sector? - xra a ;0 to accumulator - sta readop ;not a read operation - mov a,c ;write type in c - sta wrtype - cpi wrual ;write unallocated? - jnz chkuna ;check for unalloc - -; write to unallocated, set parameters - mvi a,blksiz/128 ;next unalloc recs - sta unacnt - lda sekdsk ;disk to seek - sta unadsk ;unadsk = sekdsk - lhld sektrk - shld unatrk ;unatrk = sectrk - lda seksec - sta unasec ;unasec = seksec - -chkuna: - ;check for write to unallocated sector - lda unacnt ;any unalloc remain? - ora a - jz alloc ;skip if not - -; more unallocated records remain - dcr a ;unacnt = unacnt-1 - sta unacnt - lda sekdsk ;same disk? - lxi h,unadsk - cmp m ;sekdsk = unadsk? - jnz alloc ;skip if not - -; disks are the same - lxi h,unatrk - call sektrkcmp ;sektrk = unatrk? - jnz alloc ;skip if not - -; tracks are the same - lda seksec ;same sector? - lxi h,unasec - cmp m ;seksec = unasec? - jnz alloc ;skip if not - -; match, move to next sector for future ref - inr m ;unasec = unasec+1 - mov a,m ;end of track? - cpi cpmspt ;count CP/M sectors - jc noovf ;skip if no overflow - -; overflow to next track - mvi m,0 ;unasec = 0 - lhld unatrk - inx h - shld unatrk ;unatrk = unatrk+1 - -noovf: - ;match found, mark as unnecessary read - xra a ;0 to accumulator - sta rsflag ;rsflag = 0 - jmp rwoper ;to perform the write - -alloc: - ;not an unallocated record, requires pre-read - xra a ;0 to accum - sta unacnt ;unacnt = 0 - inr a ;1 to accum - sta rsflag ;rsflag = 1 - -;* Common code for READ and WRITE follows *; - -rwoper: - ;enter here to perform the read/write - xra a ;zero to accum - sta erflag ;no errors (yet) - lda seksec ;compute host sector - ora a ;carry = 0 - rar ;shift right - ora a ;carry = 0 - rar ;shift right - sta sekhst ;host sector to seek - -; active host sector? - lxi h,hstact ;host active flag - mov a,m - mvi m,1 ;always becomes 1 - ora a ;was it already? - jz filhst ;fill host if not - -; host buffer active, same as seek buffer? - lda sekdsk - lxi h,hstdsk ;same disk? - cmp m ;sekdsk = hstdsk? - jnz nomatch - -; same disk, same track? - lxi h,hsttrk - call sektrkcmp ;sektrk = hsttrk? - jnz nomatch - -; same disk, same track, same buffer? - lda sekhst - lxi h,hstsec ;sekhst = hstsec? - cmp m - jz match ;skip if match - -nomatch: - ;proper disk, but not correct sector - lda hstwrt ;host written? - ora a - cnz writehst ;clear host buff - -filhst: - ;may have to fill the host buffer - lda sekdsk - sta hstdsk - lhld sektrk - shld hsttrk - lda sekhst - sta hstsec - lda rsflag ;need to read? - ora a - cnz readhst ;yes, if 1 - xra a ;0 to accum - sta hstwrt ;no pending write - -match: - ;copy data to or from buffer - lda seksec ;mask buffer number - ani secmsk ;least signif bits - mov l,a ;ready to shift - mvi h,0 ;double count - dad h ;shift left 7 - dad h - dad h - dad h - dad h - dad h - dad h -; hl has relative host buffer address -.z80 - ld de,hstbuf - add hl,de ;hl = host address - ld de,(dmaadr) ;de = dma address - ld bc,128 ;length - ld a,(readop) ;which way? - or a - jr nz,rwmove ;skip if read - -; write operation, mark and switch direction - ld a,1 - ld (hstwrt),a ;hstwrt = 1 - ex de,hl ;source/dest swap - -rwmove: call move ;move a logical sector to/from buffer - -.8080 -; data has been moved to/from host buffer - lda wrtype ;write type - cpi wrdir ;to directory? - lda erflag ;in case of errors - rnz ;no further processing - -; clear host buffer for directory write - ora a ;errors? - rnz ;skip if so - xra a ;0 to accum - sta hstwrt ;buffer written - call writehst - lda erflag - ret - -;* Utility subroutine for 16-bit compare *; - -sektrkcmp: ;HL = .unatrk or .hsttrk, compare with sektrk -; .z80 -; ld bc,(sektrk) -; or a ; clear carry -; sbc hl,bc ; hl=hl-bc -; ret ; return status - xchg - lxi h,sektrk - ldax d ;low byte compare - cmp m ;same? - rnz ;return if not -; low bytes equal, test high 1s - inx d - inx h - ldax d - cmp m ;sets flags - ret -subttl Physical disk routines -page -.z80 -; select disk drive, C=drive number 0=A:, 1=B: -; return HL=dph for selected drive, or HL=0 for non-existent drive -dsksel: ld hl,0 ; hl = 0 for non-existent drive - ld a,c - cp 2 - ret nc ; drive number >B: - or a ; zero flag set => A: drive else B: drive - ld hl,dpha ; select proper dph for drive - jr z,sel0 - ld hl,dphb -sel0: ld a,(dsk) ; selecting disk already selected? - cp c - ret z ; yes, no further action needed - ld a,c ; save new disk number - ld (dsk),a - or a ; set zero flag if A: drive - push hl ; hl=dph of disk to be selected - ld de,16 ; to density bit in dph - add hl,de - ld a,(hl) ; move into A then store into denflag - ld (denflag),a - ld hl,trackb ;now find proper track(x) - jr z,sel1 - dec hl -sel1: ld a,(hl) ; have we been on the disk we are "leaving" - cp 255 ; if not do not update trackx - jr z,selnot - in a,(track) - ld (hl),a ; save track of disk we are leaving -selnot: ld a,c ; set zero flag if A: drive - or a - ld hl,tracka - jr z,sel2 - inc hl -sel2: ld a,(hl) - out (track),a ; track of disk we are selecting - ex de,hl - pop hl ; address of dph for disk we are selecting -density:cp 255 ; first time for this drive? - ret nz ; need to check density? - call ready ; physical disk select - call home ; seek track 0 - in a,(bitport) ; test double density first - and denmask ; or in density flag - or ddbit ; set density flag - out (bitport),a - call dcheck ; see if we can read address - jr z,dend ; density is double? - in a,(bitport) ; set density flag to single - and denmask - or sdbit - out (bitport),a - call dcheck ; see if we can read address - ret nz ; can't read single or double so don't change - jr dens -dend: push hl ; (* double density *) hl^ to dph - push de - ld de,0 ; no xlate table (done by FORMAT program) - ld (hl),e ; store table^ into dph - inc hl - ld (hl),d - ld de,9 ; move foward in dph to dpb pointer - add hl,de - ld de,dpbd ; double density dpb - ld (hl),e - inc hl - ld (hl),d - ld de,5 ; to desity flag in dph - add hl,de - ld a,ddbit ; double density bit flag - ld (hl),a - ld (denflag),a - jr den1 ; exit -dens: push hl ; (* single density *) hl^ to dph - push de - ld de,tbl1 ; single density sector xlate table - ld (hl),e ; store table^ into dph - inc hl - ld (hl),d - ld de,9 ; move foward in dph to dpb pointer - add hl,de - ld de,dpbs ; single density dpb - ld (hl),e - inc hl - ld (hl),d - ld de,5 ; to desity flag in dph - add hl,de - ld a,sdbit ; single density bit flag - ld (hl),a - ld (denflag),a -den1: pop de ; restore pointer to dph - pop hl ; pointer to track(x) bios register - in a,(sector) ; update track register - out (track),a - ld (de),a - ret -dcheck: ld a,adrcmd ; get address command - out (cmnd),a ; issue command to controller - call busy ; wait for command done - bit 4,a ; record not found flag - ret ; return status - -; home disk head -dohome: call ready ; make sure drive is on and ready - ld a,rstcmd; restore command - out (cmnd),a; issue command - jr busy ; test and wait for not busy - -; seek track #, BC=Track # -trkset: call ready ; make sure drive is on and ready - ld a,c ; move track number to A - out (data),a ; track # to seek to - ld a,seekcmd ; seek command - out (cmnd),a ; issue command - jr busy ; test and wait for not busy - -; select sector #, BC=Sector # -secset: ld a,c ; move sector number to A - out (sector),a ; to controller register - ret - -; perform logical to physical sector translation. -; logical sector number in BC, table address in DE -; return physical sector number in HL -sectran:ld a,d ; table address 0? - or e - ld h,b ; if so no xlate - ld l,c - ret z - ex de,hl ; table address in hl - add hl,bc ; index by logical sector number - ld l,(hl) - ld h,0 - ret - -; ready disk drive, perform physical disk select, set density bit -ready: push hl ; save hl - push de ; and de - push bc - ld a,ficmd ; abort any controller action - out (cmnd),a - call diskon ; turn drive motor on - ld a,(dsk) ; A=drive # - ld e,a ; save drive # in E - in a,(bitport) ; A=bit port - and 0FCH ; strip current drive bits - or e ; or in requested drive - inc a ; bump, 01=A: 10=B: - and denmask ; set density bit - ld hl,denflag ; hl^ to density bit for this drive - or (hl) - out (bitport),a ; to bit port - pop bc - pop de - pop hl - ret - -; turn disk motor on, delay for drive speed -diskon: in a,(bitport) ; get current drive motor status - bit 6,a ; is motor on? - ret z ; motor on, do nothing - res 6,a ; motor on bit - out (bitport),a ; turn motor on - ld b,50 ; delay - call thnsd - ret - -; turn disk motor off -diskoff:in a,(bitport) - set 6,a ; motor off bit - out (bitport),a - ret -; delay for B th's @ 4Mhz -thnsd: ld de,1670 -tlp: dec de - ld a,d - or e - jp nz,tlp - djnz thnsd - ret - -; check status of controller, wait for command to finish executing -busy: halt ; wait for command done -bsy: in a,(status) ; now wait for not busy - bit 0,a - jr nz,bsy - ret -subttl Writehst and Readhst logical to Physical routines -page -;* WRITEHST performs the physical write to *; -;* the host disk, READHST reads the physical *; -;* disk. *; - -writehst:;hstdsk = host disk #, hsttrk = host track #, - ;hstsec = host sect #. write "hstsiz" bytes - ;from hstbuf and return error flag in erflag. - ;return erflag non-zero if error - ld de,tries1*256+tries2 ; retry error counts -wrthst: push de ; save error counts - call hstcom ; set track and sector - call wrt512 ; read sector - ld (erflag),a ; error return flag - pop de ; restore error flags - ret z ; good op - dec e ; retry count - jr nz,wrthst ; try again - dec d ; home and reseek count - ret z ; can't recover - call dohome ; re seek - ld e,tries2 ; reset retry count - jr wrthst - -readhst:;hstdsk = host disk #, hsttrk = host track #, - ;hstsec = host sect #. read "hstsiz" bytes - ;into hstbuf and return error flag in erflag. - ld de,tries1*256+tries2 ; retry error counts -rdhst: push de ; save error counts - call hstcom ; set track and sector - call rd512 ; read sector - ld (erflag),a ; error return flag - pop de ; restore error flags - ret z ; good op - dec e ; retry count - jr nz,rdhst ; try again - dec d ; home and reseek count - ret z ; can't recover - call dohome ; re seek - ld e,tries2 ; reset retry count - jr rdhst - -hstcom: ld a,(hstdsk) ; select disk - ld c,a - call dsksel - ld bc,(hsttrk) ; set track to hsttrk - call trkset ; physical seek - ld a,(hstsec) ; set physical sector - ld c,a ; c=sector - call secset - ret -subttl Physical disk I/O, RAM image -page -ioimage: -;move: ; block memory move, turn rom on/off - in a,(bitport) ; turn rom off - res 7,a - out (bitport),a - ldir ; move logical sector from hstbuf - in a,(bitport) ; turn rom back on - set 7,a - out (bitport),a - ret ; back to rom - -;rd128: - ld hl,(dmaadr) ; address of operation - ld b,1 ; read a 128 byte sector - jr rd -;rd512: - ld hl,hstbuf - ld b,4 ; read a 512 byte sector -; read a sector, return A=0 for no errors, A=1 for non-recoverable error -; if b=1 128, b=2 256, b=3 384, b=4 512 bytes/sector -rd: ld de,rdmask*256+rdcmd ; d=read status mask, e=read command - jr action - -;wrt128: - ld hl,(dmaadr) - ld b,1 ; write a 128 byte sector - jr wrt -;wrt512: - ld hl,hstbuf - ld b,4 ; write a 512 byte sector -; write a sector, return as per read -wrt: ld de,wrtmask*256+wrtcmd ; d=status mask, e=write command - ;fall through to action - -action: call ready ; make sure drive is on and ready - di ; no interrupts during disk I/O operations - in a,(bitport) ; turn rom off - res 7,a - out (bitport),a - push hl ; save address of disk buffer - ld hl,nmivec ; set up nmi vector - ld a,(hl) ; save current contents - ex af,af' - ld (hl),retcod ; this is a return after HALT in loop - pop hl ; hl = dma address - ld a,b ; sector multiple - ld bc,128*256+data ; b=sector length, c=data port - bit 0,a ; if 0 then 256 or 512 bytes/sector - jr nz,actn ; b set for 128 or 384 bytes/sector - ld b,0 ; b set for 256 or 512 bytes/sector -actn: cp 1 ; compute entry point 1st or 2nd loop - push psw ; save as Z flag - ld a,e ; i/o command - cp wrtcmd ; a write? - jr z,wstart ; start write command - - out (cmnd),a ; fall through to read loop - pop psw - jr z,rl2 -rl1: halt ; wait for controller - ini - jr nz,rl1 -rl2: halt - ini - jr nz,rl2 - jr done ; read loop done, exit - -wstart: out (cmnd),a ; write loop - pop psw - jr z,wl2 -wl1: halt - outi - jr nz,wl1 -wl2: halt - outi - jr nz,wl2 - -done: ex af,af' ; byte at nmi vector address - ld (nmivec),a ; restore it - in a,(bitport) ; turn rom back on - set 7,a - out (bitport),a - ei ; turn interrupts on - call busy ; get status when contoller not busy - and d ; status mask - ret z ; no bit set, return operation ok - ld a,1 ; cp/m error return - ret - -imaglen equ $-ioimage ; length of this image -page -subttl SIO, PIO, and CTC equates -.comment % -############################################################### -## ## -## System device I/O routines for KBD, TTY and LST ## -## ## -############################################################### -## LAST UPDATE: JULY 7,1982 [001] ## -## BY JIM NICKERSON ## -## CHANGED SIOA REGISTER 3 INIT TO AUTO ENABLE ## -## ADDED LIST STATUS FOR THE SERIAL PORT ## -## TTYOUT NOW THE SAME AS OUT WITH STATUS CHK ## -## CHANGE VECTOR PAD MAPING ## -############################################################### -% -.z80 -.xlist -; public kbdstat, kbdin, kbdout, ttystat, ttyin, ttyout, TTYOSTAT -; public liststat, list, devinit - .list - -;*************** -;* sio equates * -;*************** - -sio equ 04H ; base address of sio -sioa0 equ sio+2 ; channel a command/status -sioa1 equ sio+0 ; channel a data -siob0 equ sio+3 ; channel b command/status -siob1 equ sio+1 ; channel b data - -; write registers 0-7 and control bits -; init registers in the following order 0,2,4,3,5,1 - -WR0 equ 0 ; command register, crc reset, reg pointer -; bits 0-2 are register pointers to WRx and RRx -; bits 3-5 and commands as given bellow -null equ 0 ; null command -extrset equ 10H ; reset ext/status interrupts -reset equ 18H ; channel reset -ienrc equ 20H ; Enable Int on Next Rx Character -rtip equ 21H ; reset transmitter interrupt pending -errset equ 30H ; error reset -retint equ 31H ; return from interrupt - -WR1 equ 1H ; interrupt enable and Wait/Ready modes -esie equ 1H ; external/status interrupt enable -tie equ 2H ; transmitter interrupt enable -tid equ 0 ; transmitter interrupt disable -statav equ 4H ; Status affects vector (z80 mode 2) (see WR2) -; bits 3-4 affect receive interrupt mode -rid equ 0 ; receive interrupts disabled -rifc equ 8H ; receive interrupt on first char only -riep equ 10H ; recv interrupts enabled, parity err Special Recv Cond -rie equ 18H ; same as riep but parity error not Special Recv Cond - -WR2 equ 2 ; interrupt vector address/pointer (chan b only) -; interrupt address (z80 reg I+WR2=interrupt address) -; returned as is if not statav above in wr1 -; if statav then bits 1-3 are modified as bellow: -; 000 ch b transmit buffer empty -; 001 ch b external/status change -; 010 ch b receive char available -; 011 ch b special receive condition (parity error, Rx overrun, -; framing error, end of frame(sdlc) ) -; 1xx ch a (* same vectors as for channel b above *) - -WR3 equ 3 ; receiver logic control and parameters -re equ 1 ; receiver enable -autoe equ 20H ; auto enable (use dcd and cts to enable recv and xmt -; bits 6-7 are receiver bits/character -rbits5 equ 0 ; 5 bits/character -rbits7 equ 40H ; 7 bits/character -rbits6 equ 80H ; 6 bits/character -rbits8 equ 0C0H ; 8 bits/character - -WR4 equ 4 ; control bits that affect both xmt and recv -pon equ 1 ; enable parity (parity on) -pstate equ 2 ; parity even not pstate = parity odd -; bits 2-3 are number of stop bits -syncmd equ 0 ; sync mode is to be selected -sbits1 equ 4 ; 1 stop bit -sbits5 equ 8H ; 1.5 stop bits -sbits2 equ 0CH ; 2 stop bits -; bits 6-7 control clock rate -cr1 equ 0 ; data rate x1=clock rate -cr16 equ 40H ; x16 -cr32 equ 80H ; x32 -cr64 equ 0CH ; x64 - -WR5 equ 5 ; control bits that affect xmt -te equ 8H ; transmit enable -break equ 10H ; send break -; bits 5-6 are number of bits/character to transmit -tbits5 equ 0 ; 5 or less bits/character -tbits7 equ 20H ; 7 bits/character -tbits6 equ 40H ; 6 bits/character -tbits8 equ 60H ; 8 bits/character -rts equ 2 ; RTS output -dtr equ 80H ; DTR output - -WR6 equ 6 ; sdlc transmit sync character -WR7 equ 7 ; sdlc receive sync character - -; read registers 0-2 and status bits -rr0 equ 0 ; general recv and xmt status -rca equ 1 ; receive character available -intped equ 2 ; interrupt pending (ch a only) -tbe equ 4 ; transmit buffer empty -synhnt equ 10H ; sync/hunt -dcd equ 8H ; DCD input -cts equ 20H ; CTS input -xmtundr equ 40H ; transmit underrun/ EOM -brk equ 80H ; break/abort status - -rr1 equ 1 ; Special Receive conditions and Residue codes -; bits 4-7 are special receive conditions -rpe equ 10H ; parity error -rovr equ 20H ; Rx overrun error -framerr equ 40H ; framing error - -rr2 equ 2 ; interrupt vector address/pointer - -;*************** -;* pio equates * -;*************** - -pio equ 08H ; base address of pio -pioac equ pio+1 ; pio a control -pioad equ pio+0 ; pio a data -piobc equ pio+3 ; pio b control -piobd equ pio+2 ; pio b data - -spio equ 01CH ; base address of pio (system status bits port) -spioac equ spio+1 ; pio a control -spioad equ spio+0 ; pio a data -spiobc equ spio+3 ; pio b control -spiobd equ spio+2 ; pio b data - -bitport equ spioad ; system bit port for status and control -;0 drive sel A: -;1 drive sel B: -;2 n/c -;3 centronics i/o ready line -;4 centronics i/o data strobe -;5 single density (not 5 is double density) -;6 drive motor off (not 6 is motor on) -;7 rom enable (not 7 is rom off) - -; control register -setiv equ 0 ; set interrupt vector, bits 1-7 are vector address - -som equ 0FH ; set operating mode. bits 6-7 specify mode -mode0 equ 0 ; output -mode1 equ 40H ; input -mode2 equ 80H ; bidirectional -mode3 equ 0C0H ; control (bit by bit i/o, mode3 command is followed by - ; byte where bit pattern specifies i/o bits - ; 1=input, 0=output - -sicw equ 7H ; set interrupt control word, bits 4-7 are parameters -imask equ 10H ; bit mask follows ) -hghlow equ 20H ; high/low ) mode 3 only -andor equ 40H ; and/or of bits to gen interrupt ) -intena equ 80H ; enable interrupt (bit low disable interrupts) - -intcmd equ 03H ; set interrupt enable/disable without changing status as sicw - -;*************** -;* ctc equates * -;*************** - -ctc equ 18H ; ctc base address -ctc0 equ ctc+0 ; ctc channel 0 -ctc1 equ ctc+1 ; ctc channel 1 -ctc2 equ ctc+2 ; ctc channel 2 -ctc3 equ ctc+3 ; ctc channel 3 - -; channel control register bits -ctccmd equ 01H ; ctc command byte -ctcint equ 80H ; interrupt enable -ctcm1 equ 40H ; set ctc mode is counter -ctcm0 equ 00H ; set ctc mode is timer -range equ 20H ; timer prescaler factor is 256 (not range is 16) -slope equ 10H ; edge triger positive (not slope is negative edge) -trigger equ 8H ; ext trigger -ltc equ 4H ; load time constant (followed by time constant) -rsetctc equ 2H ; reset channel - -ctcivec equ 0 ; set ctc interrupt vector, bits 3-7 are vector addr -ctcvmsk equ 0F8H ; interrupt vector mask to strip bits 0-2 - -;*************** -;* baud rate * -;*************** - -bauda equ 00H ; baud rate generator for serial chan a -baudb equ 0CH ; baud rate generator for serial chan b - -; baud rate factors, output to baudx to select baud rate -baud10 equ 02H ; 110 baud rate -baud30 equ 05H ; 300 baud rate -baud12 equ 07H ; 1200 baud rate -baud24 equ 0AH ; 2400 baud rate -baud48 equ 0CH ; 4800 baud rate -baud96 equ 0EH ; 9600 baud rate -baud19k equ 0FH ; 19.2k baud rate -subttl I/O configuration tables -page -iotabint: ; i/o device initialization table - ; first byte is port # - ; second byte is byte to send to port - defb (iotblend-iotabint)/2 ; table length in arguments - -; init sio channel b -defb siob0, reset ; reset sio channel -defb baudb, baud30 ; 300 baud -defb siob0, wr4 -defb siob0, sbits1 or cr16 ; one stop bit, 16x clock -defb siob0, wr3 -defb siob0, re or rbits8 ; recv enable, 8 bits/char -defb siob0, wr5 -defb siob0, te or tbits8 or dtr ; xmt enable, 8bits/char, assert dtr -defb siob0, wr1 -defb siob0, tid or rid ; xmt & recv interrupts disabled - -; init sio channel a -defb sioa0, reset ; reset sio channel -defb bauda, baud30 ; 300 baud -defb sioa0, wr4 -defb sioa0, sbits1 or cr16 ; one stop bit, 16x clock -defb sioa0, wr3 -defb sioa0, re or rbits8 or autoe ; recv enable, 8 bits/char, auto enable -defb sioa0, wr5 -defb sioa0, te or tbits8 or dtr ; xmt enable, 8bits/char, assert dtr -defb sioa0, wr1 -defb sioa0, tid or rid ; xmt & recv interrupts disabled - -; init pio used form system control bits -defb spioac, intcmd ; disable interrupts -defb spioad, 10000001B ; set system status bits (before setting mode!) -defb spioac, som or mode3 ; set mode to #3 -defb spioac, 00001100B ; bit pattern for mode 3 - -; init pio used to drive printer -defb pioac, intcmd ; disable interrupts -defb pioac, som or mode0 ; set mode to #0 (output) -defb piobc, intcmd ; disable interrupts -defb piobc, som or mode1 ; set mode to #1 (input) -iotblend: ; end of table - -devinit:ld hl,iotabint ; initialize i/o devices - ld b,(hl) ; number of bytes to send to i/o devices -iolp: inc hl - ld c,(hl) ; port to send - inc hl - ld a,(hl) ; byte to send - out (c),a - djnz iolp - ret ; done -subttl Device I/O handlers -page -kbdstat:in a,(siob0) ; kbd char avail? - and rca - ret z ; 0=no char - ld a,0FFH ; FF=char avail - ret - -kbdin: call kbdstat ; loop till char avail - jr z,kbdin - in a,(siob1) ; get char - call kbdmap ; map out funny chars of vector pad and #'s - ret - -kbdout: in a,(siob0) ; xmit buffer empty? - and tbe - jr z,kbdout - ld a,c ; out character - out (siob1),a - ret - -kbdmap: ld hl,mapin ; input map table - ld bc,mapout-mapin ; table length - cpir ; search table - ret nz ; not found - ld de,mapin ; make hl=table index - or a ; hl-mapin=index - sbc hl,de - ld de,mapout-1 ; index - add hl,de - ld a,(hl) ; get char from mapout - ret - -mapin: defb 0F1H, 0F2H, 0F3H, 0F4H ; up, down, left, right arrows - defb 0B1H, 0C0H, 0C1H, 0C2H ; 0,1,2,3 - defb 0D0H, 0D1H, 0D2H, 0E1H ; 4,5,6,7 - defb 0E2H, 0E3H, 0E4H, 0D3H ; 8,9, '-', ',' - defb 0C3H, 0B2H ; return, '.' - defb 0FFH ; end of mapin table -mapout: defb 80H, 81H, 82H, 83H ; vector pad, xlate in bios - defb 84H, 85H, 86H, 87H - defb 88H, 89H, 8AH, 8BH - defb 8CH, 8DH, 8EH, 8FH - defb 90H, 91H - -ttystat:in a,(sioa0) ; serial port status input - and rca - JR COMOUT - -ttyin: call ttystat ; is a char ready? - jr z,ttyin - in a,(sioa1) - ret - -ttyout: in a,(sioa0) ; output a char to serial port - and tbe - jr z,ttyout ; xmit buffer full? - ld a,c - out (sioa1),a ; xmit character - ret - -; -TTYOSTAT: ;TEST STATUS OF SERIAL OUTPUT - IN A,(SIOA0) - AND TBE ;TX BUF FULL ? - JR COMOUT -; -; list port centronics equates -pready equ 3 ; bit in bit port -pstrob equ 4 ; bit in bit port - -liststat:in a,(bitport) ; centronics printer port status - bit pready,a -COMOUT: ret z ; 0=busy - ld a,0FFH ; FF=ready - ret - -list: call liststat ; is printer busy? - jr z,list - ld a,c - out (pioad),a ; output char to printer - in a,(bitport) ; strb. printer - set pstrob,a - out (bitport),a - res pstrob,a - out (bitport),a - ret - -page -subttl Memory maped video output driver -.comment % -################################################################## -## ## -## Memory maped video output driver ## -## ## -################################################################## -## Last Update : july 13 1982 ## -## by jim nickerson ## -################################################################## -% -; -.xlist -; extrn leadflg, row, cursor, chrmsk, kbdout -; public vidout, vidinit, print -.list - -.z80 -jmpif macro j,k ;SHORT JUMP - cp j - JR z,k - endm -; -LJMPIF macro j,k ;LONG JUMP - cp j - jp z,k - endm - - -colcp macro x - ld a,l - and not colum-1 - cp x - endm - -SPACE equ 20H ; space char -cr equ 0DH ; move cursor to beginning of line -bs equ 08H ; move cursor left (control h) -fs equ 0CH ; move cursor right (control l) -lf equ 0AH ; move cursor down (control j) -rlf equ 0BH ; move cursor up (control k) -eol equ 18H ; clear to end of line (control x) -eos equ 17H ; clear to end of screen (control w) -clr equ 1AH ; clear screen char (control z) -homec equ 1EH ; home cursor -esc equ 1BH ; escape, lead-in character -bell equ 07H ; ascii bell -curchr equ '_' or 80H ; character for cursor -ascii equ 7FH ; ascii mask -greek equ 1FH ; greek character set mask - -base equ 03000H ;start of video ram -linlen equ 80 ;logical line length -colum equ 128 ;physical line length -lines equ 24 ;lines per display -line1 equ base ;start of first line -line2 equ base+colum ;start of second line -last1 equ base+(lines-1)*colum ;start of last line -last equ (base+lines*colum)-1 ;last char of display -bitport equ 1CH ;system bit port - -vidinit:ld a,space ; clear row # - ld (row),a - call clear ; clear screen and home cursor - ld (cursor),hl - xor a - ld (leadflg),a ; no leadin sequence - ld a,17H ; re-set scroll register - out (14H),a - ld a,ascii ; set ascii mask - ld (chrmsk),a - ret - -vidout: - ld a,(leadflg) ; processing a lead-in sequence? - or a - jp nz,leadin - ld a,bell ; ring bell, no display? - cp c - JR nz,nobell - ld c,04H ; kbd bell code - jp kbdout ; ring bell - -nobell: call clrcur ; clear (remove) cursor - ld de,finsh ; set up return to finish - push de - ld a,c ; char to print - jmpif lf,lfcd ; line feed (down arrow) - LJMPIF cr,return ; return - jmpif bs,back ; back space (left arrow) - jmpif fs,fowrd ; right arrow - jmpif rlf,up ; up arrow - LJMPIF esc,doesc ; lead-in - LJMPIF eol,cleol ; clear to eol - jmpif eos,cleos ; clear to eos - jmpif clr,clear ; clear screen, home currsor - jmpif homec,hmcsr ; home cursor - cp 60H ; lower case? - jr c,vout - ld a,(chrmsk) ; if lower do we print greek chr set? - and c -vout: ld (hl),a ; display character - inc hl ; inc cursor position - ld a,l ; off end of line? - and not colum - cp linlen ; logical line length - ret c ; not past colum-1 - call return - jr lfcd - -vovr: ld de,last ; off display memory? - ld a,d - cp h - jr c,scroll - ret nz - ld a,e - cp l - ret nc -scroll: ld b,lines-1 ; number of lines to scroll - ld hl,line2 - ld de,line1 -scr1: push bc ; save line count - ld bc,linlen ; logical line length - ldir ; scroll one line - ld bc,colum-linlen ; to beginning of next line - add hl,bc - ex de,hl - add hl,bc - ex de,hl - pop bc ; line count - djnz scr1 ; do another line - ld hl,last1 ; to last line of display - JR cleol ; clear it - -; -; process a line feed (cursor down) -; -lfcd: ld de,colum ; to next line, same column - add hl,de - JR vovr -; -; back space the cursor -; -back: ld a,l ; is column # 0? - and not colum - ret z ; at beginning of line - dec hl ; back space - ret -; -; move cursor foward -; -fowrd: ld a,l ; right most column? - and 07FH ;INSTEAD OF not colum-1 - cp 79 - ret nc - inc hl ; bump cursor address - ret -; -; move cursor up one line -; -up: push hl ; save current position - ld de,-colum ; move up one line - add hl,de - push hl ; save new cursor position - or a ; clear carry - ld de,line1 ; first char of display - sbc hl,de ; if carry set we are off display - pop hl ; hl = new pos - pop de ; de = old pos - ret nc - ex de,hl - ret -; -; clear screen -; -clear: ld hl,line1 ; clear screen - ld de,line1+1 - ld bc,last-base - ld (hl),space - ldir - ld hl,line1 ; home cursor - ret -; -; home cursor -; -hmcsr: ld hl,line1 ; line one of display - ret -; -; clear to end of screen -; -cleos: -; patch by jim - push hl ;save current position - call cleol - ld de,colum - ld a,l - and 080H - ld l,a - add hl,de ;begining of next line - ld a,03CH ;after last line now ? - cp h ;h holds page (3B) is last line - jr z,cleos1 ;yes so no more to blank get out -; - ld e,l ; copy hl to de - ld d,h - or a ; clear carry - ld hl,last ; last pos of screen - sbc hl,de ; last-current position - ld c,l ; move count to bc - ld b,h - ld h,d ; move current position into hl - ld l,e - inc de - ld (hl),space - ldir -; -;patch by jim -cleos1: -; - pop hl ; restore cursor position - ret -; -; clear to end of line -; -cleol: -; -;patch by jim -; - ld a,l - and 07FH - cp linlen-1 - jr c,cleol1 - ld (hl),space - ret -cleol1: -; -; - push hl ; save current position - push hl - ld a,l ; find beginning of line - and not colum-1 - ld l,a -; -;patch by jim - ld de,linlen-1 -; - add hl,de ; hl points to end of line - pop de ; current position in de - push de - or a ; clear carry - sbc hl,de ; hl=# of bytes to clear - ld c,l ; move count into bc - ld b,h - pop hl ; current position - ld e,l ; copy to de - ld d,h - inc de - ld (hl),space - ldir - pop hl ; restore cursor address - ret - -clrcur: ld hl,(cursor) ; get cursor location - ld a,(hl) ; undo cursor - cp curchr ; is it a cursor on a blank field? - ld a,space - jr nz,clr1 - ld (hl),a -clr1: res 7,(hl) ; undo cursor - ret -; -; process a return -; -return: ld a,l - and not colum-1 - ld l,a - ret -; -; escape lead-in sequence start up -; -doesc: ld a,1 ; leadflg is a counter of chars processed - ld (leadflg),a - ret -; -; process second, third and fourth characters of lead-in sequence -; -leadin: ld hl,exit ; fake ret to exit - push hl - ld hl,leadflg - ld (hl),0 ; clear lead-in counter in case error - cp 1 ; second char? (leadflg=1 processed first char) - jr nz,l1 - ld a,c ; what type of esc sequence? - res 7,a - cp 'G' ; greek character set? - jr z,dogreek - cp 'A' ; ascii character set? - jr z,doascii - cp 'R' ; delete line? - jr z,dodel - cp 'E' ; insert line? - jr z,doinst - cp '=' ; esc = sequence (cursor positioning) - ret nz ; error, exit - ld (hl),2 ; have processed second character of sequence - ret -l1: cp 2 ; third character? - jr nz,l2 - ld a,c ; row number+space - ld (row),a ; save for later use - ld (hl),3 ; have processed third character - ret -l2: cp 3 ; fourth character? - ret nz ; error, leadflg trashed by someone - - call clrcur ; remove cursor then move it - pop hl ; ret to exit not needed - ld hl,line1 ; process col # - ld a,c - sub ' ' ; remove ascii space bias -;patch by jim -; -l3: sub linlen -; - jr nc,l3 - add a,linlen - ld l,a - ld a,(row) - sub ' ' ; remove ascii space bias -l4: sub lines ; range 0 - lines - jr nc,l4 - add a,lines - ld de,colum ; add column to cursor pos till -l5: jp z,finsh ; # lines = 0 - add hl,de - dec a - jr l5 -; -FINSH: LD A,(HL) ; MAKE A CURSOR - CP SPACE ; SPACE - JR NZ,FIN1 ; IF SO THEN SPECIAL CURSOR CHAR - LD A,CURCHR -FIN1: SET 7,a - ld (hl),a - ld (cursor),hl ; save location -exit: ret ; all done - -; -; switch from ascii to greek -; -dogreek:ld a,greek ; greek char mask - ld (chrmsk),a - ret -; -; switch from greek to ascii -; -doascii:ld a,ascii ; ascii mask - ld (chrmsk),a - ret -; -; delete line, scroll up to current line, blank 24'th line -; -dodel: pop hl ; ret to exit not needed - call setup ; setup cpu regs for ldir - push de ; current line - jr z,delscr ; if setup set Z flag no scroll - ldir -delscr: ld hl,last1 ; blank last line - call cleol - pop hl ; current line - JR finsh -; -; insert a blank line at current row address, 24'th line lost -; -doinst: pop hl ; ret to exit not needed - call setup - push de ; current line - jr z,inscr ; no scroll - ld de,last1+127 - ld hl,last1-1 - lddr -inscr: pop hl ; current line - push hl - call cleol ; clear it - pop hl ; current row, colum=0 - JR finsh - -setup: call clrcur ; get current cursor position - call return ; to beginning of line - push hl ; save it - ex de,hl ; compute amount to move - ld hl,last1 ; last line of display - or a - sbc hl,de - ld b,h ; bc=length - ld c,l - pop hl ; current pos - push hl - ld de,128 ; set a pointer to beginning of next line - add hl,de ; hl=current+128 (next line) - pop de ; de=current - ld a,b ; is bc zero - or c - ret - -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 vidout - jr print - defb 0FFH ; because L80 tends to drop the last byte - -page -subttl RAM storage -.comment % -############################################################### -## ## -## System scratch RAM used by ROM software ## -## ## -############################################################### -## Last Update:05/31/82 [001] ## -############################################################### -% -.z80 -.xlist -; public sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec -; public sekhst, hstact, hstwrt, unacnt, unadsk, unatrk -; public unasec, erflag, rsflag, readop, wrtype, dmaadr -; public hstbuf, dsk, denflag, tracka, trackb, dirbuf, move -; public csva, alva, csvb, alvb, dpha, dphb, rd128, rd512 -; public leadflg, row, cursor, chrmsk, wrt128, wrt512, stack -; public dpbs, dpbd, tbl1, tbl2 -.list - -ramscratch equ 0FC00H ; scratch ram - -sekdsk equ ramscratch ;seek disk number -sektrk equ sekdsk+1 ;seek track number -seksec equ sektrk+2 ;seek sector number -hstdsk equ seksec+1 ;host disk number -hsttrk equ hstdsk+1 ;host track number -hstsec equ hsttrk+2 ;host sector number -sekhst equ hstsec+1 ;seek shr secshf -hstact equ sekhst+1 ;host active flag -hstwrt equ hstact+1 ;host written flag -unacnt equ hstwrt+1 ;unalloc rec cnt -unadsk equ unacnt+1 ;last unalloc disk -unatrk equ unadsk+1 ;last unalloc track -unasec equ unatrk+2 ;last unalloc sector -erflag equ unasec+1 ;error reporting -rsflag equ erflag+1 ;read sector flag -readop equ rsflag+1 ;1 if read operation -wrtype equ readop+1 ;write operation type -dmaadr equ wrtype+1 ;last dma address -hstbuf equ dmaadr+2 ;host buffer -dsk equ hstbuf+512 ; current disk drive -denflag equ dsk+1 ; density flag for current drive -tracka equ denflag+1 ; track of disk A (255=density unknown) -trackb equ tracka+1 ; track of disk B -csva equ trackb+1 ; directory check -alva equ csva+16 ; allocation map -csvb equ alva+25 -alvb equ csvb+16 -leadflg equ alvb+25 ; video leadin sequence count -row equ leadflg+1 ; temp store of rom number -cursor equ row+1 ; cursor address -chrmsk equ cursor+2 ; ascii/greek character set switch -dpha equ chrmsk+1 ; DPH for A -dphb equ dpha+17 ; DPH for B -dpbs equ dphb+17 ; single density dpb -dpbd equ dpbs+15 ; double density dpb -tbl1 equ dpbd+15 ; single density skew table -tbl2 equ tbl1+18 ; 512 byte sector skew table -move equ tbl2+10 ; move logical sector from hstbuf -rd128 equ move+15 ; routine to read 128 byte sector -rd512 equ rd128+7 ; routine to read 512 byte sector -wrt128 equ rd512+10 ; routine to write 128 byte sector -wrt512 equ wrt128+7 ; routine to wrtie 512 byte sector -rdwrtend equ rd128+150 ; end of read and write routines -dirbuf equ rdwrtend+1 ; bdos directory buffer - -stack equ 0FFFFH ; boot up stack space - end - \ No newline at end of file diff --git a/2006/toledo2/SOURCE/LOAD.COM b/2006/toledo2/SOURCE/LOAD.COM deleted file mode 100644 index b9601e002..000000000 Binary files a/2006/toledo2/SOURCE/LOAD.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/MOVCPM.COM b/2006/toledo2/SOURCE/MOVCPM.COM deleted file mode 100644 index 8790cdb56..000000000 Binary files a/2006/toledo2/SOURCE/MOVCPM.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/PIP.COM b/2006/toledo2/SOURCE/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/SOURCE/PIP.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/SETDISK.COM b/2006/toledo2/SOURCE/SETDISK.COM deleted file mode 100644 index 8ea207799..000000000 Binary files a/2006/toledo2/SOURCE/SETDISK.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/STAT.COM b/2006/toledo2/SOURCE/STAT.COM deleted file mode 100644 index 1de359f27..000000000 Binary files a/2006/toledo2/SOURCE/STAT.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/SUBMIT.COM b/2006/toledo2/SOURCE/SUBMIT.COM deleted file mode 100644 index 400ce2f7f..000000000 Binary files a/2006/toledo2/SOURCE/SUBMIT.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/SYSGEN.COM b/2006/toledo2/SOURCE/SYSGEN.COM deleted file mode 100644 index 0098e2c13..000000000 Binary files a/2006/toledo2/SOURCE/SYSGEN.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/WASH.COM b/2006/toledo2/SOURCE/WASH.COM deleted file mode 100644 index fa6ee3176..000000000 Binary files a/2006/toledo2/SOURCE/WASH.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/XDIR.COM b/2006/toledo2/SOURCE/XDIR.COM deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/SOURCE/XDIR.COM and /dev/null differ diff --git a/2006/toledo2/SOURCE/XSUB.COM b/2006/toledo2/SOURCE/XSUB.COM deleted file mode 100644 index 15e86abfc..000000000 Binary files a/2006/toledo2/SOURCE/XSUB.COM and /dev/null differ diff --git a/2006/toledo2/STAT.COM b/2006/toledo2/STAT.COM deleted file mode 100644 index 1de359f27..000000000 Binary files a/2006/toledo2/STAT.COM and /dev/null differ diff --git a/2006/toledo2/SUBMIT.COM b/2006/toledo2/SUBMIT.COM deleted file mode 100644 index 400ce2f7f..000000000 Binary files a/2006/toledo2/SUBMIT.COM and /dev/null differ diff --git a/2006/toledo2/SYSGEN.COM b/2006/toledo2/SYSGEN.COM deleted file mode 100644 index 0098e2c13..000000000 Binary files a/2006/toledo2/SYSGEN.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/DICTSORT.COM b/2006/toledo2/THE-WORD/DICTSORT.COM deleted file mode 100644 index 7a72032e2..000000000 Binary files a/2006/toledo2/THE-WORD/DICTSORT.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/FIND.COM b/2006/toledo2/THE-WORD/FIND.COM deleted file mode 100644 index 7a0a7f683..000000000 Binary files a/2006/toledo2/THE-WORD/FIND.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/HOMONYMS.TXT b/2006/toledo2/THE-WORD/HOMONYMS.TXT deleted file mode 100644 index 3771cf3cf..000000000 Binary files a/2006/toledo2/THE-WORD/HOMONYMS.TXT and /dev/null differ diff --git a/2006/toledo2/THE-WORD/LOOKUP.COM b/2006/toledo2/THE-WORD/LOOKUP.COM deleted file mode 100644 index 7e194c22f..000000000 Binary files a/2006/toledo2/THE-WORD/LOOKUP.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/MAINDICT.CMP b/2006/toledo2/THE-WORD/MAINDICT.CMP deleted file mode 100644 index add4b16f1..000000000 Binary files a/2006/toledo2/THE-WORD/MAINDICT.CMP and /dev/null differ diff --git a/2006/toledo2/THE-WORD/MARK.COM b/2006/toledo2/THE-WORD/MARK.COM deleted file mode 100644 index c38ce2690..000000000 Binary files a/2006/toledo2/THE-WORD/MARK.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/REVIEW.COM b/2006/toledo2/THE-WORD/REVIEW.COM deleted file mode 100644 index d3bff1b07..000000000 Binary files a/2006/toledo2/THE-WORD/REVIEW.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/SPELL.COM b/2006/toledo2/THE-WORD/SPELL.COM deleted file mode 100644 index bd23fb476..000000000 Binary files a/2006/toledo2/THE-WORD/SPELL.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/WC.COM b/2006/toledo2/THE-WORD/WC.COM deleted file mode 100644 index 46c46aea4..000000000 Binary files a/2006/toledo2/THE-WORD/WC.COM and /dev/null differ diff --git a/2006/toledo2/THE-WORD/WORDFREQ.COM b/2006/toledo2/THE-WORD/WORDFREQ.COM deleted file mode 100644 index ebb0174ee..000000000 Binary files a/2006/toledo2/THE-WORD/WORDFREQ.COM and /dev/null differ diff --git a/2006/toledo2/TINKER/CONFIG.MAC b/2006/toledo2/TINKER/CONFIG.MAC deleted file mode 100644 index 4f9eef1db..000000000 --- a/2006/toledo2/TINKER/CONFIG.MAC +++ /dev/null @@ -1,1256 +0,0 @@ -false equ 0 -true equ not false -debug equ false - .list ;begin listing -title KAYPRO CONFIG (custom configuration utility program) 2.0 Copyright (C) 1982 NLS, Inc. -page -;############################################################### -;## KAYPRO II CONFIG PROGRAM ## -;## containing within it the new cbios image so that ## -;## if this is run against a disk with the old cbios ## -;## it is updated at the same time. ## -;## 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 11,1982 ## -;## by jim nickerson ## -;## -allow redefinition of cursor keys ## -;## -allow redifinition of keypad keys ## -;## -allow redefinition of default i/o byte ## -;## -allow changing of the baud rate ## -;## -write these changes to disk ## -;############################################################### - - .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 - -; -; begining of the config program -; - jp config ;begining of program -; -mprint: - ld a,(de) ;get char - cp 0FFH ;end - ret z ;finished - push de - ld c,2 - ld e,a - call 5 - pop de - inc de - jr mprint -; -sprint macro arg - ld de,arg ;pointer to print line - call mprint - endm -; -; -printone macro - push af ;save char - ld c,2 ;console output - ld e,a ;char - call 5 - pop af ;recover char - endm -; -; -inone macro - local loop -loop: - ld c,6 ;direct console input - ld e,0FFH - call 5 - cp 0 ;0=nochar - jr z,loop ;wait for char - endm -; -; -jmpif macro arg, adr - cp arg - jp z, adr - endm -; -;print a message using bdos call -cr equ 0DH -lf equ 0AH -uprint macro x - ld c,9 - ld de,x ;message pointer - call 5 ;pass it to bdos - endm -; -;get a char from the console, up case -input macro - ld c,1 ;console input - call 5 ;pass it to bdos - endm -; -;*************************************************************** -;*************************************************************** -; -config: ;begining of the config program with main menu -; -;**************************************************************** -;**************************************************************** -; - ld a,1 - ld (disk),a ;force drive B - ld a,0FFH - ld (change),a ;changes flag 0=yes some changes -; -first: - uprint menuheader - uprint menu0 - input ;get an answer - push af ;save char - uprint crlf - pop af - jmpif '1',setio ;menu1 - jmpif '2',setwr ;menu2 - jmpif '3',setcur ;menu3 - jmpif '4',setnum ;menu4 - jmpif '5',setbaud ;menu5 - jmpif 01BH,go$out - jp first -; -setbaud: - uprint menuheader - uprint menu5 - input - push af - uprint crlf - pop af - jmpif '1',hbaud - jmpif 01BH,first - jmpif '2',dobaud - jp setbaud -; -dobaud: - uprint baudinst -dob1: - ld a,0 - ld (curline),a ;which choice - uprint firstchoice -dob2: - inone ;get a key - cp 01BH - jr z,setbaud - cp lf - jp z,db1 - cp cr - jr nz,dob2 - ;was a cr so we have a choice - ld a,(curline) - cp 16 ;wants to exit - jp nc,dob2 - out (0),a ;set baud rate - jp setbaud -; -db1: - ld a,(curline) ;where are we - inc a ;bump pointer - ld (curline),a ;save for future use - cp 17 ;end of choices - jr z,dob1 - uprint nextline ;advance one line - jr dob2 ;next line -curline: defb 0 -baudinst: - defb 1AH - defb ' 50',cr,lf - defb ' 75',cr,lf - defb ' 110 Move the cursor to the baud rate which',cr,lf - defb ' 134.5',cr,lf - defb ' 150 you want to use by typing the [LINE FEED] key.',cr,lf - defb ' 300',cr,lf - defb ' 600',cr,lf - defb ' 1200 When the cursor is at the rate you want',cr,lf - defb ' 1800',cr,lf - defb ' 2000 type the RETURN key and it will be set.',cr,lf - defb ' 2400',cr,lf - defb ' 3600 The new baud rate will be effective now.',cr,lf - defb ' 4800',cr,lf - defb ' 7200',cr,lf - defb ' 9600',cr,lf - defb '19200',cr,lf - defb 'Type [ESC] key to return to the previous menu (no changes)',cr,lf - defb cr,lf,lf - defb '(* NOTE: The baud rate will always default to 300 baud *)',cr,lf - defb '(* after the power is first turned on and when *)',cr,lf - defb '(* the RESET button is pressed. *)',cr,lf - defb '$' -firstchoice: - 01EH,0CH,0CH,0CH,0CH,0CH,'$' -nextline: - 0AH,'$' -; -hbaud: ;tell him about baud rates - uprint baudmsg - uprint crtocont - input - jp setbaud -; -setnum: - uprint menuheader - uprint menu4 - input - push af - uprint crlf - pop af - jmpif '1',hnum - jmpif '2',donum - jmpif 01BH,first - jp setnum -; -getone: - ld a,(curline) - inc a - ld (curline),a ;bumped pointer - call hex2in ;get 2 hex chars in c - jr nz,gadj -;wants to exit maybe - cp lf ;move cursor - ret z - ;must be esc then - pop hl ;clean stack - ld hl,(gohere) - jp (hl) ;oblidge him - ret z -;adjust changes flag -gadj: - ld a,0 - ld (change),a ;yes some changes -; -;record changes in mem image of cbios - ld de,0 - ld a,(curline) ;put here -1 - dec a - ld e,a - ld hl,(puthere) ;where to put changes - add hl,de ;hl points to char - ld a,c ;get char - ld (hl),a ;put him in mem - ret -; -; get two hex chars -hex2in: - inone ;get one key - cp 0AH ;move to next position - ret z - cp 01BH - ret z ;exit on esc - cp 030H ;0 the lowest one allowed - jr c,hex2in - cp 03AH ;tween 0 and 9 - jr c,setone - res 5,a ;make upper case if lower - cp 047H ;F the highest allowed - jr nc,hex2in - cp 041H ;must not be less than A - jr c,hex2in - printone - sub 7 ;remove bias - jr seta -setone: - printone -seta: - sub 030H ;take off bias - rlc a ;slowly - rlc a ;shift the - rlc a ;low nible - rlc a ;to the high nible - and 0F0H ;mask off the low nible - push af ;save it -settwo: ;force him to enter second char in hex - inone ;get one key - cp 0AH - jr z,s2 - cp 01BH - jr nz,s3 -s2: - pop hl ;clean stack - ret ;with z set to exit -s3: - cp 030H - jr c,settwo ;not acceptable - cp 03AH ;tween 0-9 - jr c,set3 - res 5,a ;make upper case if lower - cp 047H - jr nc,settwo ;not acceptable - cp 041H - jr c,settwo ;nogood - printone - sub 7 ;remove bias - jr set4 -set3: ;got second char in hex - printone -set4: - sub 030H - and 0FH ;ONLY WANT LOW NIBLE - ld c,a ;save it - pop af ;recover high nible - or c ;assembled char - ld c,a ;save char in a - ret nz - inc a ;must ret not zero - ret -; -; -donum: - ld hl,setnum - ld (gohere),hl ;where to exit to on esc - ld hl,cbios+039H - ld (puthere),hl - uprint numchoices -donum1: - ld a,0 ;first choice - ld (curline),a - sprint key0 - call getone - sprint key1 - call getone - sprint key2 - call getone - sprint key3 - call getone - sprint key4 - call getone - sprint key5 - call getone - sprint key6 - call getone - sprint key7 - call getone - sprint key8 - call getone - sprint key9 - call getone - sprint key10 ;- - call getone - sprint key11 ;, - call getone - sprint key12 ;enter - call getone - sprint key13 ;. - call getone - sprint key14 ;return -numpat: - inone - cp 01BH ;ESC - jp z,setnum - cp lf - jr nz,numpat - jp donum1 -; -numchoices: - defb 01AH - defb '----------------------------- Move the cursor to the key you wish',cr,lf - defb ': : : : :',cr,lf - defb ': 7 : 8 : 9 : - : to change. Use the [LINE FEED] key.',cr,lf - defb ': : : : :',cr,lf - defb ': 37 : 38 : 39 : 2D : The default HEXADECIMAL code will be',cr,lf - defb ';------;------;------;------:',cr,lf - defb ': : : : : the number which is flashing.',cr,lf - defb ': 4 : 5 : 6 : , :',cr,lf - defb ': : : : :',cr,lf - defb ': 34 : 35 : 36 : 2C : When you reach the key you wish to change.',cr,lf - defb ':------:------:------:------:',cr,lf - defb ': : : : : Type in the new HEXADECIMAL code.',cr,lf - defb ': 1 : 2 : 3 : :',cr,lf - defb ': : : : :',cr,lf - defb ': 31 : 32 : 33 : ENTER: (* NOTE: you must enter both digits *)',cr,lf - defb ':------:------:------: :',cr,lf - defb ': : : 0D : (* to change the code. *)',cr,lf - defb ': 0 : . : :',cr,lf - defb ': : : :',cr,lf - defb ': 30 : 2E : : Type the [ESC] key to return to the previous menu',cr,lf - defb '-----------------------------',cr,lf - defb '$' -; -key0: defb 01BH,'=',19+20H,6+20H,0FFH -key1: defb 01BH,'=',14+20H,3+20H,0FFH -key2: defb 01BH,'=',14+20H,10+20H,0FFH -key3: defb 01BH,'=',14+20H,17+20H,0FFH -key4: defb 01BH,'=',9+20H,3+20H,0FFH -key5: defb 01BH,'=',9+20H,10+20H,0FFH -key6: defb 01BH,'=',9+20H,17+20H,0FFH -key7: defb 01BH,'=',4+20H,3+20H,0FFH -key8: defb 01BH,'=',4+20H,10+20H,0FFH -key9: defb 01BH,'=',4+20H,17+20H,0FFH -key10: defb 01BH,'=',4+20H,24+20H,0FFH -key11: defb 01BH,'=',9+20H,24+20H,0FFH -key12: defb 01BH,'=',16+20H,24+20H,0FFH -key13: defb 01BH,'=',19+20H,17+20H,0FFH -key14: defb 01BH,'=',19+20H,41+20H,0FFH -hnum: - uprint nummsg - uprint crtocont - input - jp setnum -; -setcur: - uprint menuheader - uprint menu3 - input - push af - uprint crlf - pop af - jmpif '1',hcur - jmpif 01BH,first - jmpif '2',docur - jr setcur -; -; -docur: - ld hl,cbios+035H ;WHERE TO PUT CHANGES - ld (puthere),hl - ld hl,setcur - ld (gohere),hl ;ret here on esc - uprint curinst -doc1: - ld a,0 - ld (curline),a ;item to change - sprint cur0 ;left cursor key - call getone ;input etc - sprint cur1 - call getone - sprint cur2 - call getone - sprint cur3 - call getone - sprint cur4 ;type esc to exit -doc4: - inone ;get one key - cp 0AH - jp z,doc1 - cp 01BH - jr nz,doc4 - jp setcur -; - jp doc1 ;again -hcur: - uprint vecmsg - uprint crtocont - input - jp setcur -; -; -curinst: - defb 01AH - defb cr,lf - defb cr,lf - defb ' ---------------------------------',cr,lf - defb ' : : : : :',cr,lf - defb ' : ^ : : : <- : -> :',cr,lf - defb ' : : : v : : :',cr,lf - defb ' : : : : :',cr,lf - defb ' : 0B : 0A : 08 : 0C :',cr,lf - defb ' ---------------------------------',cr,lf - defb cr,lf - defb cr,lf - defb ' Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf - defb ' Move the cursor to the key which you wish to change by pressing',cr,lf - defb ' the [LINE FEED] key. The default HEXADECIMAL code will be the flashing number.',cr,lf - defb ' Type the new HEXADECIMAL number you wish to assign to the key.',cr,lf - defb cr,lf - defb ' You must type both digits to effect the change.',cr,lf - defb cr,lf - defb '$' -; -cur0: defb 01BH,'=',7+20H,15+20H,0FFH -cur1: defb 01BH,'=',7+20H,23+20H,0FFH -cur2: defb 01BH,'=',7+20H,31+20H,0FFH -cur3: defb 01BH,'=',7+20H,39+20H,0FFH -cur4: defb 01BH,'=',11+20H,18+20H,0FFH -setwr: - uprint menuheader - uprint menu2 - input - push af - uprint crlf - pop af - jmpif '1',hwr - jmpif '2',dowr - jmpif 01BH,first - jp setwr -; -dowr: - uprint wrinst -dow0: - sprint wr0 - inone - cp 0AH - jr z,dow1 - cp 01BH - jp z,setwr - cp 0DH - jr nz,dow0 -;got cr so do it set yes - ld a,0FFH ;set it on - ld (cbios+034H),a - ld a,0 - ld (change),a - jp setwr -dow1: - sprint wr1 - inone - cp lf - jr z,dow2 - cp 01BH - jr z,setwr - cp cr - jr nz,dow1 -;have choice set = 0 - ld a,0 - ld (cbios+034H),a - ld (change),a - jp setwr -dow2: - sprint wr2 - inone - cp 01BH - jp z,setwr - cp lf - jp nz,dow2 - jp dow0 -; -; -hwr: - uprint safmsg - uprint crtocont - input - jp setwr -; -wrinst: - defb 01AH,cr,lf - defb cr,lf,cr,lf - defb 'Yes I want Write Safe enabeled.',cr,lf - defb cr,lf - defb 'No do not enable Write Safe. This is the default mode on your KAYPRO II .',cr,lf - defb cr,lf - defb 'Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf,cr,lf - defb 'Use the [LINE FEED] key to move the cursor to the mode',cr,lf - defb 'which you wish to use and then type the [RETURN] key to',cr,lf - defb 'enter your choice.',cr,lf - defb cr,lf - defb '**** PLEASE read the help file before you enable Write Safe. ****',cr,lf - defb '**** If you do not understand it ASK your dealer. ****',cr,lf - defb '$' -; -wr0: defb 01BH,'=',3+20H,20H,0FFH -wr1: defb 01BH,'=',5+20H,20H,0FFH -wr2: defb 01BH,'=',7+20H,11+20H,0FFH -; -setio: - uprint menuheader - uprint menu1 - input ;get response - push af - uprint crlf - pop af - jmpif '1',hio - jmpif '2',doio - jmpif 01BH,first - jp setio -; -doio: - uprint ioinst - ld hl,cbios+033H - ld (puthere),hl - ld hl,setio - ld (gohere),hl -doio0: - ld a,0 - ld (curline),a - sprint io0 - call inio - sprint io1 - call inio -doioc: sprint io2 - call inio - sprint io3 - call inio -doioe: sprint io4 -doio1: - inone - cp 01BH - jp z,setio - cp 0AH - jr nz,doio1 - jp doio0 -; -inio: - inone ;get a char - cp 01BH - jr nz,inio1 - pop hl - ld hl,(gohere) - jp (hl) -inio1: - cp 0AH - jr nz,inio2 -;have line feed so bump cur line before returning - ld a,(curline) - inc a - ld (curline),a - ret -inio2: - cp 0DH - jr nz,inio -; must have a cr now process it - ld a,0 - ld (change),a ;yes some changes - ld a,(curline) - add a,a - ld de,0 - ld e,a - ld hl,ivtab - add hl,de ;hl now points to 1 of 4 - ld e,(hl) - inc hl - ld d,(hl) - ex de,hl - ld de,(puthere) ;where it goes - jp (hl) -ivtab: defw sio0 - defw sio1 - defw sio2 - defw sio3 -sio0: - ld a,(de) - res 1,a - set 0,a - ld (de),a - ld hl,doioc - ld a,2 - ld (curline),a - pop de - jp (hl) -sio1: - ld a,(de) - res 0,a - res 1,a - ld (de),a - ld a,(curline) - inc a - ld (curline),a - ret -sio2: - ld a,(de) - res 6,a - set 7,a - ld (de),a - ld hl,doioe - jp (hl) -sio3: - ld a,(de) - res 7,a - res 6,a - ld (de),a - ret -; -; -hio: - uprint iomsg - uprint crtocont - input - jp setio -; -; -ioinst: - defb 01AH - defb cr,lf,cr,lf - defb ' Default settings Posibile changes',cr,lf - defb ' ---------------- ----------------',cr,lf - defb cr,lf - defb ' CON:=CRT: CON:=TTY: Type the [LINE FEED] key to ',cr,lf - defb ' LST:=LPT: LST:=TTY: move the cursor to the mode ',cr,lf - defb ' PUN:=TTY: - none - you wish to select.',cr,lf - defb ' RDR:=TTY: - none - Then the RETURN key to enter',cr,lf - defb ' your selection.' - defb cr,lf - defb ' Type the [ESC] key to return to the previous menu.',cr,lf - defb cr,lf - defb '* CON: If you chose CON:=TTY: then all input and output will be through the',cr,lf - defb ' serial connector on the back of your KAYPRO II instead of through the',cr,lf - defb ' keyboard and the CRT.',cr,lf - defb cr,lf - defb cr,lf - defb '* LST: This setting will decide wether the output directed at a printer',cr,lf - defb ' will go through the LPT: (parallel connector) or to the',cr,lf - defb ' TTY: (serial connector).',cr,lf - defb '$' -; -io0: defb 01BH,'=',5+20H,12+20H,0FFH -io1: defb 01BH,'=',5+20H,36+20H,0FFH -io2: defb 01BH,'=',6+20H,12+20H,0FFH -io3: defb 01BH,'=',6+20H,36+20H,0FFH -io4: defb 01BH,'=',10+20H,19+20H,0FFH -; -go$out: ;here to exit check if any changes so as to - ;know wether to write to disk or not - ld a,(change) - cp 0FFH ;0FFH=nochanges - jp nz,askout -bye: - ld a,0 - ld (0FA34H),a ;reset write safe off - jp z,0 ;exit with no changes -; -; -askout: - uprint ask - input ;get response - res 5,a ;make upper case - cp 'N' - jp z,bye ;exit - cp 'Y' - jr nz,askout -; -; now to write the changes to the disk -procede: ;get on with it -;reset the disk system for drive B - ld a,0FFH - ld (0FA34H),a ;set the write safe flag - ld c,14 ;select disk - ld a,(disk) ;find out which disk to use - ld e,a - call 5 ;tell bdos -; -;set up initial paramaters - ld hl,cbios - ld (from),hl ;where to start writing from -; - ld bc,0001H - ld (track),bc ;track we will be using -; - ld bc,21 - ld (sector),bc ;first sector to write to -; - ld a,4 - ld (count),a ;how many sectors to write -; - ld hl,080H - ld (secsize),hl ;sector size -; -;now to do the writing on the disk -nextsec: - ld bc,(track) - call 0FA1EH ;set the track required -; - ld bc,(from) - call 0FA24H ;set the dma address -; - ld bc,(sector) - call 0FA21H ;set the sector to write -; - ld c,0 - call 0FA2AH ;write the sector -; check for error's on return - cp 0 ;a=0=no errors - jr z,go$on - uprint erms ;error message - uprint crtocont - input ;pause for any key to continue - ld a,0 - ld (0FA34H),a ;reset write safe flag - jp config ;exit -; -go$on: - ld hl,(from) ;dma address - ld de,(secsize) - add hl,de ;bump dma address - ld (from),hl ;save it for reuse - ld a,(sector) - inc a ;bump sector number - ld (sector),a ;save for next write - ld a,(count) ;are we - dec a ;done yet - ld (count),a ;save in case we are not done - cp 0 - jp nz,nextsec ;not yet finished -; - uprint alldone - ld a,0 - ld (0FA34H),a ;reset write safe flag - jp config ;exit -; -change: defb 0 -disk: defb 0 -from: defw 0 -puthere: - defw 0 -track: defw 0 -sector: defw 0 -count: defb 0 -gohere: defw 0 -secsize: - defw 0 -crlf: defb cr,lf,'$' -alldone: - defb cr,lf,'DONE WITH CONFIGURATION',cr,lf,'$' -crtocont: - defb cr,lf,'Please type any key to continue','$' -erms: - defb cr,lf,'*** I can''t write to your disk ***',cr,lf,'$' -menuheader: - defb 01AH,cr,lf,cr,lf - defb 'KAYPRO II CONFIGURATION PROGRAM 11 July 1982' -; -choices: - defb cr,lf - defb '-----------------------------------------------' - defb cr,lf,cr,lf - defb 'CHOICES' - defb cr,lf - defb '-------' - defb cr,lf,cr,lf - defb '$' -menu0: ;first level menu - defb '1 --------> I/O Byte cold boot defaults' - defb cr,lf - defb '2 --------> Write Safe flag' - defb cr,lf - defb '3 --------> Cursor Keys definitions' - defb cr,lf - defb '4 --------> Numerical keypad definitions' - defb cr,lf - defb '5 --------> Baud rate' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> EXIT this program and return to CP/M' - defb cr,lf - defb cr,lf - defb '(* NOTE: Anything not changed will contain its default value. *)' - defb cr,lf - defb cr,lf - defb 'Any changes that this program can make will only affect the disk in drive B.' - defb cr,lf - defb 'These changes will not be seen until you move the disk to drive A and' - defb cr,lf - defb 'push the RESET switch (Cold Boot) or turn the power off and on,' - defb cr,lf - defb 'EXCEPT selection ''5'' (Baud rate) which will have an immediate effect.' - defb cr,lf - defb 'Upon exiting this program you will be asked whether you want to apply' - defb cr,lf - defb 'the changes to the disk in drive B.' - defb cr,lf - defb 'Please enter ''1'' or ''2'' or ''3'' or ''4'' or ''5'' or [ESC] key ====>','$' -menu1: ;I/O BYTE menu - defb '1 --------> Help (I/O Byte definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the I/O Byte' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -; -menu2: ;write safe flag - defb '1 --------> Help (Write safe flag definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the write safe flag' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf - defb cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -; -menu3: ;cursor key - defb '1 --------> Help (Cursor key definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the Cursor key settings' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -menu4: ;numerical key-pad - defb '1 --------> Help (Numerical keypad definitions)' - defb cr,lf - defb cr,lf - defb '2 --------> Change the Numerical keypad settings' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -menu5: ;baud rate - defb '1 --------> Help (Baud rate definitions)' - defb cr,lf,cr,lf - defb '2 --------> Change the Baud rate' - defb cr,lf - defb cr,lf - defb '[ESC] key ----> Return to main menu' - defb cr,lf,cr,lf - defb 'Please enter ''1'' or ''2'' or [ESC] key ==========>' - defb '$' -ask: - defb cr,lf - defb 'Y----------> procede to update the disk in drive B' - defb cr,lf - defb 'N----------> not ready, EXIT TO CP/M' - defb cr,lf - defb cr,lf - defb 'Please type (Y) or (N) ====>' - defb '$' -; -nummsg: - defb 1ah,cr,lf - defb 'On the right hand side of your KAYPRO II keyboard there is a group of',cr,lf - defb 'fourteen keys, labeled: 7 8 9 -',cr,lf - defb ' 4 5 6 ,',cr,lf - defb ' 1 2 3 enter',cr,lf - defb ' 0 .',cr,lf - defb cr,lf - defb 'These fourteen keys each produce a unique code when typed.',cr,lf - defb 'In some situations it may be useful to have one or more keys ',cr,lf - defb 'provide a special function, such as in an application',cr,lf - defb 'program requiring choices from a menu.',cr,lf - defb ' This portion of the CONFIGURATION program allows you to set the',cr,lf - defb 'codes which will be produced by these fourteen keys.',cr,lf - defb cr,lf,lf,lf,lf - defb '$' -baudmsg: - defb 1ah,cr,lf - defb 'Your KAYPRO II computer has a serial port with which you may communicate',cr,lf - defb 'with the outside world. This serial port is most often referred to as',cr,lf - defb 'RS-232. In using RS-232 both the computer and the external device',cr,lf - defb 'must be set at the same baud rate (the speed at which data travels)',cr,lf - defb cr,lf - defb ' Your KAYPRO II is capable of the following baud rates:',cr,lf - defb ' 50 -not used very often',cr,lf - defb ' 75 -not used very often',cr,lf - defb ' 110 -used with slower printers',cr,lf - defb ' 134.5 -used with some IBM printers',cr,lf - defb ' 150 -not used very often',cr,lf - defb ' 300 -very common (default on your KAYPRO II on reset)',cr,lf - defb ' 600 -not used very often',cr,lf - defb ' 1200 -used with many printers',cr,lf - defb ' 1800 -not used very often',cr,lf - defb ' 2000 -not used very often',cr,lf - defb ' 2400 -not used very often',cr,lf - defb ' 3600 -not used very often',cr,lf - defb ' 4800 -higher rate for faster printers',cr,lf - defb ' 7200 -not used very often',cr,lf - defb ' 9600 -highest rate normally used',cr,lf - defb '19200 -very high rate (for special purposes)',cr,lf - defb '(* NOTE: the PRESENT baud rate remains in effect until the next RESET *)' - defb '$' -iomsg: defb 1ah,cr,lf - defb 'In order to understand this command you should read the CP/M manual',cr,lf - defb '"AN INTRODUCTION TO CP/M FEATURES AND FACILITIES", the STAT command',cr,lf - defb 'logical and physical devices. The logical CP/M devices are: CON: LST:',cr,lf - defb 'RDR: and PUN:. The physical devices for the KAYPRO computer are:',cr,lf,lf - defb ' CRT: Video and Keyboard',cr,lf - defb ' TTY: Serial port (note the connector must be wired as in the manual)',cr,lf - defb ' LPT: Centronics port',cr,lf - defb ' UL1: This is the same as TTY: above',cr,lf - defb ' PTP: This is the same as TTY: above',cr,lf,lf - defb 'Possible logical to physical assignments are:',cr,lf,lf - defb ' CON: = TTY: or CRT:',cr,lf - defb ' RDR: = TTY:',cr,lf - defb ' PUN: = TTY: or CRT: or LPT: or UL1:',cr,lf,lf - defb 'BEFORE using this option try it with the STAT command in CP/M.',cr,lf - defb cr,lf,'$' -safmsg: defb 1ah, cr, lf - defb 'Your KAYPRO computer comes with a special "Write Safe" option that corrects',cr,lf - defb 'a problem with CP/M when running with SOME application programs. It is not',cr,lf - defb 'possible to make the following description nontechnical. If you do not under-',cr,lf - defb 'stand it, ask your dealer. The wrong setting of the "Write Safe" flag may cause',cr,lf - defb 'the IRREVOCABLE LOSS OF DATA AND OR PROGRAM(S).',cr,lf,lf - defb 'The KAYPRO computer uses deblocking. When a disk write operation is',cr,lf - defb 'immediately followed by a warm boot, the deblocking buffer may not be',cr,lf - defb 'written to the disk. This is not a likely sequence of events. Most programs',cr,lf - defb 'when finished writing to a file, will close it. ALL directory operations force',cr,lf - defb 'the deblock buffer to disk on write. The "Write Safe" flag tells the BIOS',cr,lf - defb 'that ALL disk operations are directory type. This forces the buffer to the',cr,lf - defb 'disk. The price is performance, as "Write Safe" will slow the computer down',cr,lf - defb 'from 2 to 4 times when writing to the disk. "Write Safe" is not a panacea',cr,lf - defb 'for system or program problems. The chance you will need it is rare.',cr,lf,lf - defb cr,lf,'$' -vecmsg: defb 1ah,cr,lf - defb 'It is not possible to make the following discription nontechnical.', cr, lf - defb 'If you do not understand it please ask your dealer.',cr,lf,lf - defb 'Your KAYPRO II computer comes with four arrow keys, they are at the upper right',cr,lf - defb 'of the main keyboard. They are usually referred to as CURSOR keys. They are ',cr,lf - defb 'used in programs such as SELECT to move the cursor. These keys produce codes',cr,lf - defb 'that are recognized by applications programs. The codes that they produce may',cr,lf - defb 'or may not be the codes that an application you supply wants. The codes sent',cr,lf - defb 'by the keyboard are unique, MSB set. The BIOS translates the keyboard codes',cr,lf - defb 'using a table in the BIOS. This option of the configure program allows you',cr,lf - defb 'to change the values in this table and record it on the disk. The memory',cr,lf - defb 'image is not changed until you cold boot (reset).',cr,lf,lf - defb cr,lf,'$' -;here begins the updated cbios which must eventually -;reside and operate at 0FA00H which is 01F80H in the sysgen image -;and is track 1 sectors 21-22-23-24 on the disk -; -cbios: ;label to allow update to find him -;*************************************** - .phase bios ;absolute location of code following - 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 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 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+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 config - \ No newline at end of file diff --git a/2006/toledo2/TINKER/COPY.MAC b/2006/toledo2/TINKER/COPY.MAC deleted file mode 100644 index fdfb4da4b..000000000 --- a/2006/toledo2/TINKER/COPY.MAC +++ /dev/null @@ -1,513 +0,0 @@ -title KAYPRO COPY (diskette copying utility) 2.0 Copyright (C) 1982 NLS, Inc. - -;############################################################### -;## High speed diskette copy program ## -;## Copyright (C) 1982 by Non-Linear Systems, Inc. ## -;## No warranty is made, expressed, or implied. ## -;## ## -;############################################################### -;## Last update: july 13,1982 [001] ## -;## by jim nickerson ## -;## fix spelling of verifing=verifying ## -;############################################################### - .z80 -maxsec equ 10 ; sectors/track -maxtrk equ 40 ; tracks/disk -cmnd equ 10H ; command port -data equ 13H ; data port -secp equ 12H ; sector port -trkp equ 11H ; track port -status equ 10H ; status port -rdcmd equ 80H ; read sector command -rdmask equ 9CH ; read status mask -wrtcmd equ 0A0H ; write sector command -wrtmask equ 0FCH ; write status mask -ficmd equ 0D0H ; force int command -seekcmd equ 10H ; seek command -rstcmd equ 00 ; home command -bitport equ 1CH ; system bit port -cr equ 0DH ; ascii return -lf equ 0AH ; ascii line feed -bdos equ 5 ; bdos entry point - -; print a message -print macro x - ld c,9 - ld de,x - call 5 - endm - -; get a char from console, up case -input macro - ld c,1 - call 5 - res 5,a - endm -; -; -;******************************************************** -; -; - call disdoff - -ask: - call endoff - ld a,0FFH - ld (some),a ;reset error flag=no errors - print menu - input ; get a character - call disdoff - cp 'C' ; copy? - jp z,copy1 - cp 'F' ;fast copy? - jp z,fcopy1 - cp 'V' ;verify? - jp z,veri1 - cp 'E' ; Exit? - jr nz,ask - call endoff - jp 0 -; -; -;fix so disk won't turn off when any key hit -; -disdoff: - push hl - push de - ld hl,(0FA0AH) ;orig conin jmp in cbios - ld (oldconin),hl ;save it - ld de,0AH - add hl,de - ld (0FA0AH),hl - pop de - pop hl - ret -; -endoff: - push hl - ld hl,(oldconin) ;get original - ld (0FA0AH),hl ;restore it - pop hl - ret -; -oldconin: - defw 0 -; -; - -copy1: - call copy ; copy disk -veri1: - call verify ; verify disk - jr wifer -fcopy1: - call copy ; copy disk only - jr ask -wifer: ;wait for char if error has occured - call endoff - ld a,(some) ;error flag - cp 0 ;0=some errors - jr nz,getout - print pause - input - jp ask -; -getout: - print adone - jp ask -; - -copy: ld a,(66H) ; get and save byte at nmi - ex af,af' - ld a,0C9H ; RET op code - ld (66H),a - print crlf - print crlf - call diskon ; turn on disk drives - call home ; home both disk drives - xor a ; zero track number -dotrk: ld (track),a ; set track number - call seeka ; seek track drive a - print back - call tellt ; tell crt track number - ld hl,buff ; starting track image - ld (dmaadr),hl - xor a ; zero sector number -doa: ld (sector),a ; store sector number - call read ; read a physical sector to dmaadr - call nz,tella ; error, tell track and sector - ld a,(sector) ; next sector - inc a - cp maxsec ; end of track? - jr c,doa ; another sector yet to do - call seekb ; now write track to b, seek track - ld hl,buff ; back to beginning of buffer - ld (dmaadr),hl - xor a ; reset sector -dob: ld (sector),a ; current sector - call write ; write sector to disk - call nz,tellb ; error, tell track and sector - ld a,(sector) ; move to next sector - inc a - cp maxsec ; end of track? - jr c,dob ; more sectors - ld a,(track) ; next track - inc a - cp maxtrk ; end of disk? - jp c,dotrk - ex af,af' - ld (66H),a ; restore byte at nmi vector - print adone - ret ; go back to main p/g - - - -verify: ld a,(66H) ; ‰get and save byte at nmi vector - ex af,af' - ld a,0C9H ; RET op code - ld (66H),a - print crlf - print crlf - print vermsg ; tell crt that verify p/g is beginning - print crlf - print crlf - call diskon ; turn disk drives on - call home ; home both disk drives - xor a ; zero track number -vrtrk: ld (track),a ; set track number - call seeka - print back - call tellt ; tell the track number - ld hl,buff ; set up dma adrs - ld (dmaadr),hl - xor a ; zero sector number - -vera: ld (sector),a ; store current sector number - call read ; read a physical sector to dmaadr - call nz,tella ; error, tell track and sector - ld a,(sector) ; read all of track - inc a - cp maxsec - jr c,vera - call seekb ; seek track drive B - ld hl,buffb ; set up dma adrs for disk B - ld (dmaadr),hl - xor a -verb: ld (sector),a ; set up sector - call read ; read sector from B - call nz,tellb ; tell any errors from read - ld a,(sector) ; next sector - inc a - cp maxsec ; end of track? - jr c,verb ; another sector yet to do - call vrdata ; go verify data on tracks -vert: ld a,(track) ; next track - inc a - cp maxtrk ; end of disk? - jp c,vrtrk - ex af,af' - ld (66H),a ; restore byte at nmi vector - ret -; - -vrdata: ld bc,0 ; reset error count - ld (bytcnt),bc - ld de,buff ; starting adrs of disk A buffer - ld (adrsa),de ; store it - ld hl,buffb ; starting adrs of disk B buffer - ld (adrsb),hl ; store it -vrdat: ld a,(hl) ; get disk B data byte - ld b,a ; save it - ld a,(de) ; get disk A data - cp b ; is the data the same - jp nz,vrerr ; no -- go tell about error - ld bc,(bytcnt) ; add one to loop counter - inc bc - ld (bytcnt),bc - ld a,14H - cp b ; have 5120 bytes been verrified - ret z ; yes -- go read next track - ld hl,(adrsb) - inc hl ; inc drive B adrs - ld (adrsb),hl - ld de,(adrsa) - inc de ; inc drive A adrs - ld (adrsa),de - jr vrdat ; loop till done - -vrerr: print crlf - push af - ld a,0 - ld (some),a ;set error flag - pop af - print datadrs ; tell which byte number is in error - ld bc,(bytcnt) ; get the count and display it - ld c,b - call outhex - ld bc,(bytcnt) - call outhex - print datis ; drive B data is - ld hl,(adrsb) - ld a,(hl) ; get data from drive B - ld c,a ; set up bad data from B - call outhex - print datsb - ld de,(adrsa) - ld a,(de) ; get data from drive A - ld c,a ; data should be - call outhex - print crlf - jp vert ; go get next track after one error - -read: ld de,rdmask*256+rdcmd - jr action -write: ld de,wrtmask*256+wrtcmd - ; -action: call xlate ; to physical sector number - out (secp),a ; set sector number - ld l,6 ; 5 re-tries on bad sector - push hl - ld hl,(dmaadr) ; address of disk i/o -alp: ld bc,data ; b=0, c=port # - ld a,e - cp wrtcmd ; write op? - jr z,wrt - ; - out (cmnd),a ; read loop -rl1: halt ; read in first 256 bytes - ini - jp nz,rl1 -rl2: halt ; read in second 256 bytes (256+256)=512 - ini - jp nz,rl2 - jr done - ; -wrt: out (cmnd),a ; write loop -wrt1: halt ; write first 256 bytes - outi - jp nz,wrt1 -wrt2: halt ; write second 256 bytes - outi - jp nz,wrt2 - ; -done: ld (dmaadr),hl ; save new dma address (auto inc on rd/wrt) - call busy ; wait for crc - and d ; status mask - pop hl ; error re-try count - ret z ; no error - dec l ; down error count - jr z,error ; max error count if Z - push hl - ld hl,(dmaadr) ; correct dma address - ld bc,512 - or a - sbc hl,bc - jr alp -error: - ld a,0 - ld (some),a - ld a,0FFH - or a - ret ; ret non-zero (error) - -xlate: ld hl,tran ; un-skew track (formatted skewed) - ld c,a ; copy disk logical sector number - ld b,0 - add hl,bc ; as index into skew table - ld a,(hl) ; got it - ret - -tran: - defb 0, 8, 3, 6 - defb 1, 9, 4, 7 - defb 2,5 -; new translate table - -seeka: ld b,01H ; select disk mask - jr seekx - ; -seekbv: ld b,02h ;select diak mask - jr seekx - -seekb: ld b,02H - in a,(trkp) ; drive b is always one behind - or a ; except on track 00 - jr z,seekx - dec a ; back one - out (trkp),a - ; -seekx: ld a,ficmd ; force int - out (cmnd),a - in a,(bitport) ; select disk - and 0FCH - or b - out (bitport),a ; done - ld a,(track) ; now seek desired track - out (data),a - ld a,seekcmd - out (cmnd),a ; issue command - -busy: halt ; wait for command done -bsy: in a,(status) ; busy? (may be drq not int) - bit 0,a - jr nz,bsy - ret ; done - -home: in a,(bitport) ; select drive B - and 0FCH - push af ; save - set 1,a - out (bitport),a - ld a,rstcmd ; home drive B - out (cmnd),a - call busy ; wait for done - pop af - set 0,a ; select drive A - out (bitport),a - ld a,rstcmd ; home drive A - out (cmnd),a - call busy ; wait for done - ret - -diskon: in a,(bitport) ; turn on disk drive - res 6,a - out (bitport),a - ld b,50 ; delay for motor up to speed -don1: ld de,1670 -don2: dec de - ld a,d - or e - jp nz,don2 - djnz don1 - ret - -outdec: push bc ; save number in c - ld a,c ; decimal print the number in c - ld e,'0' ; e hold decimal digit -hund: sub 100 ; any hundreds digits? - jr c,tens - inc e ; bump hundreds digit - jr hund -tens: add a,100 ; put back 100 - push af ; save number - ld a,e ; leading zero digit? - cp '0' - jr z,ten1 - ld c,2 - call bdos ; write digit -ten1: pop af ; recover digit - ld e,'0' ; tens digit -ten2: sub 10 - jr c,ones - inc e ; bump tens digit - jr ten2 -ones: add a,10+'0' - push af ; save number, print digit - ld c,2 - call bdos ; tens digit - pop af - ld e,a - ld c,2 - call bdos ; ones digit - pop bc ; restore number to c - ret ; done - -outhex: push de ; save incomming regs - push bc - ld a,c ; get data to be output - and 0fh ; mask it for lsb nibble - ld b,a ; save it - push bc - rrc c ; adjust msb nibble - rrc c - rrc c - rrc c - ld a,c - and 0fh ; mask it - call outcrt ; output msb to crt - pop bc - ld a,b - call outcrt ; output lsb to crt - pop bc ; restore registers - pop de - ret -outcrt: cp 0ah ; is it more than 9 - jp c,outc ; no - add a,37h ; yes add in alpha displacement -outcr: ld e,a ; set up for output to crt - ld c,2 - call bdos - ret -outc: add a,30h ; add in numerial displacement - jr outcr - -tellt: print trkmsg ; tell track number - ld bc,(track) - call outdec ; print track number - ret - -tella: print back ; bad sector on drive a - print drva ; "DRIVE A " -telerr: - ld a,0 - ld (some),a - call tellt ; "TRACK XX" - print secmsg ; " SECTOR " - ld a,(sector) ; find physical sector number - call xlate - ld c,a - call outdec ; "XX" - print badmsg - print crlf - call tellt ; still on this track - ret - -tellb: print back ; bad sector on drive b - print drvb - jr telerr ; common code - -menu: -signon: defb 1AH,cr,lf,lf,lf - defb 'KAYPRO II Double density diskette copy/verify program 13 July 1982',cr,lf - defb cr,lf - defb '-------------------------------------------------------------------' - defb cr,lf,lf - defb 'This program copies/verifies the diskette in drive A to a diskette in drive B' - defb cr,lf,cr,lf - defb 'OPTIONS' - defb cr,lf - defb '-------' - defb cr,lf,cr,lf - defb 'Copy/verify----> Diskette in drive B must have been formatted',cr,lf,cr,lf - defb 'Fast copy------> Does not verify after copy',cr,lf,cr,lf - defb 'Verify---------> Verify disk B is the same as disk A',cr,lf,cr,lf - defb 'Exit-----------> Exit to CP/M (before typing place system disk in A)',cr,lf,cr,lf - defb '(C)opy/verify (F)ast-copy (V)erify (E)xit',cr,lf - defb 'Please enter ''C'' or ''F'' or ''V'' or ''E'' ==>','$' -crlf: defb cr,lf,'$' -trkmsg: defb 'Track ','$' -secmsg: defb ' Sector ','$' -drva: defb 'Drive A ','$' -drvb: defb 'Drive B ','$' -badmsg: defb ' {BAD}','$' -back: defb cr,'$' -adone: defb cr,'DONE ',cr,lf,'$' -pause: defb cr,'Please type any key to continue.','$' -vermsg: defb 'Verifying disk B to disk A',cr,lf,lf - defb ' *** NOTE: only one error per track is displayed (there may be more) ***','$' -datadrs: defb 'Drive B byte ','$' -datis: defb ' data is ','$' -datsb: defb ' should be ','$' -dmaadr: defw buff ; dma pointer - defb 0 -some: defs 1 - defb 0 -track: defb 0 ; current track -sector: defb 0 ; current sector -bytcnt: defs 2 ; sector verify loop count -adrsa: defs 2 ; storage area for disk A buffer -adrsb: defs 2 ; storage area for disk B buffer -buff equ $ ; track buffer -buffb equ $+5120 ; read buffer - end - \ No newline at end of file diff --git a/2006/toledo2/TINKER/FORMAT.MAC b/2006/toledo2/TINKER/FORMAT.MAC deleted file mode 100644 index bac2a199f..000000000 --- a/2006/toledo2/TINKER/FORMAT.MAC +++ /dev/null @@ -1,404 +0,0 @@ -title KAYPRO FORMAT (double density diskette format program) 2.0, Copyright (C) 1982 NLS, Inc. -;####################################################### -;## ## -;## Double density diskette format program ## -;## ## -;## Copyright (C) 1982 By Non-Linear Systems, Inc.## -;## ## -;####################################################### -;## Last Update: july 13,1982 [001] ## -;## by jim nickerson ## -;## -added verify it's formatted ## -;####################################################### - .z80 -wboot equ 0 ; restart system entry point (Warm boot) -bdos equ 5 ; bdos entry -crlf equ 0D0AH ; new line codes -cr equ 0DH -lf equ 0AH -return equ 0DH ; ascii return code -esc equ 1BH ; ascii esc -frsttrk equ 0 ; first track # -lsttrk equ 39 ; last track # -nsects equ 10 ; last sector # -data equ 013H ; controller data port -cmnd equ 010H ; controller command port -status equ 010H ; status port for controller -wrtcmd equ 0F4H ; write track command -rdcmd equ 0E4H ; read track command -rstcmd equ 000H ; restore command -seekcmd equ 010H ; seek command -dskcode equ 012H ; select unit B: double density -bitport equ 01CH ; drive select port -maxsec equ 010 ; maximum number of tracks -secp equ 012H ; sector port - -; print a message -print macro x - ld c,9 - ld de,x - call bdos - endm - -; get a char from console, up case -input macro - ld c,1 - call bdos - res 5,a - endm - -; write cnt number of val bytes into memory (hl) -bytes macro val, cnt - local loop - ld de,cnt -loop: ld (hl),val - inc hl - dec de - ld a,d - or e - jr nz,loop - endm - -; call bios routine, x=bios jump table #, 0=wboot, 1=const, 2=conin,... -bios macro x - local retadr - ld hl,(1) - ld de,x*3 - add hl,de - ld de,retadr - push de - jp (hl) -retadr: - endm - -start: - call disdoff -ask: - call endoff - print prompt ; ask for action command - input ; get char from console - cp 'F' - jp z,format - cp 'S' - jp z,single - cp 'E' ; abort? - jp z,newexit ; exit - CP 'V' ;VERIFY DISK B READABLE - JP NZ,ASK - call disdoff - CALL ENT1## ;USE CPYVR ROUTINES - - jr ask ; invalid input, ask again -; -; fix so that disk won't turn off if key pressed during format -; -disdoff: - push hl ;preserve him - push de - ld hl,(0FA0AH) ;ORIGINAL CONIN ROUTINE - ld (oldconin),hl ;save forreplacement - ld de,0AH - add hl,de - ld (0FA0AH),hl - pop de - pop hl - ret -; -endoff: - push hl - ld hl,(oldconin) - ld (0FA0AH),hl - pop hl - ret -; -newexit: - ld hl,(oldconin) - ld (0FA0AH),hl ;set him back to original - jp wboot -; -oldconin: - defw 0 -; -; - -format: - call disdoff - print diskb - input - cp return ; did user push key? - jr nz,ask ; back to prompt line - print newline - call seldsk ; select disk B: - call home ; home disk drive - ld c,frsttrk ; first track # -form1: push bc ; save track number while printing it - print smsg4 ; "Track number:" - pop bc - call outdec ; display track number - call settrk ; move to track given by c - call maktrk ; make track image, track # in c - call wrttrk ; format track - inc c ; up track count - ld a,c ; max track+1 reached? - cp lsttrk+1 - jr nz, form1 ; do another track - print done -; - .8080 - CALL ENT1## - .Z80 -; - jp ask ; done, more formatting to do? - -single: - print smsg1 ; ask for track number - call indec ; get integer into reg c - cp esc ; want out? - jp z,ask - push bc - print smsg2 ; tell track number to verify with user - pop bc - push bc - call outdec ; print number in reg c - print smsg3 ; ask if to continue - input - pop bc ; recover sector number - cp return - jp nz,ask ; user wants out - call seldsk ; select disk - call home ; home disk drive - call settrk ; move to track given by c - call maktrk ; make track image, track # in c - call wrttrk ; format track - jp ask ; go back to menu - - - -maktrk: ld hl,tran ; sector skew table - push hl ; store on stack for use - ld hl,track ; hl^ to track image in memory - ld b,nsects ; number of sectors to gen - - bytes 04EH, 80 ; post index gap - bytes 0, 12 - bytes 0F6H, 3 ; Writes C2 - bytes 0FCH, 1 ; index AM - bytes 04EH, 16 ; pre ID gap - -trksec: bytes 0, 8 - bytes 0F5H, 3 ; Writes A1 - bytes 0FEH, 1 ; ID AM - ld (hl),c ; track number - inc hl - bytes 0, 1 ; side number = 00 - ex (sp),hl ; pointer to tran table - ld a,(hl) ; pick up sector number - inc hl ; next table entry - ex (sp),hl ; back on stack - ld (hl),a ; sector number - inc hl - bytes 2, 1 ; sector length = 512 - bytes 0F7H, 1 ; CRC - bytes 04EH, 22 ; post ID gap - bytes 0, 12 - bytes 0F5H, 3 ; writes A1 - bytes 0FBH, 1 ; data AM - bytes 0E5H, 512 ; data field - bytes 0F7H, 1 ; CRC - bytes 04EH, 26 ; post data gap / pre ID gap - - dec b ; down sector count - jp nz,trksec ; another sector to do in image? - - bytes 04EH, 30 ; pre index gap - or a ; clear carry - ld de, track ; compute length of track - sbc hl,de - ld (trklen),hl - ex (sp),hl ; tran tbl adr not needed - pop hl - ret ; exit with hl=len of track - -tran: ;new translate table - defb 0, 8, 3, 6 - defb 1, 9, 4, 7 - defb 2, 5 -; - -xlate: push bc - push hl - ld hl,tran - ld c,a ;copy disk logical sector number - ld b,0 - add hl,bc - ld a,(hl) ; translated sector number - pop hl - pop bc - ret - -indec: ld c,0 ; enter a decimal number into c -inlp: push bc ; save deciamal number in c - ld c,1 ; get a console character - call bdos - pop bc - cp '0' - ret c ; ascii value less than '0' - cp '9'+1 - ret nc ; ascii value gtr than '9' - sub '0' - ld b,a ; save decimal digit in b - ld a,c - add a,a ; times 2 - add a,a ; times 4 - add a,c ; times 5 - add a,a ; times 10 ( a=c*10 ) - add a,b ; a=(c*10)+b - ld c,a - jr inlp ; go get another digit - -outdec: push bc ; save number in c - ld a,c ; decimal print the number in c - ld e,'0' ; e hold decimal digit -hund: sub 100 ; any hundreds digits? - jr c,tens - inc e ; bump hundreds digit - jr hund -tens: add a,100 ; put back 100 - push af ; save number - ld a,e ; leading zero digit? - cp '0' - jr z,ten1 - ld c,2 - call bdos ; write digit -ten1: pop af ; recover digit - ld e,'0' ; tens digit -ten2: sub 10 - jr c,ones - inc e ; bump tens digit - jr ten2 -ones: add a,10+'0' - push af ; save number, print digit - ld c,2 - call bdos ; tens digit - pop af - ld e,a - ld c,2 - call bdos ; ones digit - pop bc ; restore number to c - ret ; done - -seldsk: ld a,dskcode ; select format disk - out (bitport),a - ret - -home: ld a,rstcmd ; re-zero disk drive - out (cmnd),a - jr busy ; wait for command done - -settrk: push bc ; seek track - ld a,c ; track # - out (data),a - ld a,seekcmd ; command - out (cmnd),a - pop bc - jr busy - -busy: call delay ; delay for controller to set busy bit -bsy: in a,(status) ; wait for not busy - bit 0,a - jr nz,bsy - ret -delay: call dly -dly: ex (sp),hl - ex (sp),hl - ret - -wrttrk: push bc - ld hl,(trklen) ; length of track in byte - ex de,hl - ld c,data - ld hl,track ; hl^ to track image, de is length - ld a,(66H) ; save byte at nmi - push af - ld a,0C9H ; store return inst at nmi - ld (66H),a - ld a,wrtcmd ; track write command - out (cmnd),a ; issue command -wrtlp: halt ; wait for controller - outi ; issue data byte pointed to by hl - dec de ; count=count-1 - ld a,d ; count zero? - or e - jp nz,wrtlp ; more bytes - pop af ; recover byte at nmi - ld (66H),a - pop bc - ret - -prompt: -signon: - defb 01AH - defw crlf,crlf - defb 'KAYPRO II Double density diskette format program 13 July 1982' - defw crlf - defb '------------------------------------------------------------------' - defw crlf, crlf - defb 'All activity will take place on drive B' - defw crlf, crlf - defb 'OPTIONS' - defw crlf - defb '-------' - defw crlf - defw crlf - defb 'Exit--------> exit this program and return to CP/M' - defw crlf,crlf - defb 'Format------> format the diskette in drive B' - defw crlf - defb ' (it will erase all information on it !)' - defw crlf,crlf - defb 'Single------> format 1 track on the diskette in drive B' - defw crlf,crlf - defb 'Verify------> verify the diskette in drive B is readable' - defw crlf - defb ' (this is a non destructive test)' - -rompt: defw crlf,crlf - defb '(E)xit (F)ormat (S)ingle (V)erify' - DEFW CRLF - defb 'Please enter ''E'' or ''F'' or ''S'' or ''V'' ==>','$' - -diskb: defw crlf, crlf - defb 'Insert diskette to format into drive B.' - defw crlf - defb 'Enter key to format, any other key to abort $' - -smsg1: defw crlf, crlf - defb 'Format a single track of the diskette' - defw crlf - defb 'Enter track number ( key to abort) xx', 8,8,'$' - -done: defb cr,'DONE ',cr,lf,'$' -smsg2: defw crlf -smsg4: defb return, 'Formatting track:$' - -smsg3: defb ' Enter to format, any other key to abort $' - -secmsg: defb ' Sector ','$' - - -newline:defw crlf - defb '$' - -trklen: defw 0 ; length of track - -sector: defs 2 ; sector number -adrsa: defs 2 ; format data pointer -adrsb: defs 2 ; read buffer pointer -bytcnt: defs 2 ; byte count -dmaadr: defw track ; dma adrs storage area - - dseg -track: ; this is a diskette track image to be formed by the program - - end - \ No newline at end of file diff --git a/2006/toledo2/TINKER/FORVR.MAC b/2006/toledo2/TINKER/FORVR.MAC deleted file mode 100644 index f8f3c4fa3..000000000 --- a/2006/toledo2/TINKER/FORVR.MAC +++ /dev/null @@ -1,282 +0,0 @@ -title KAYPRO FORMAT (double density diskette format program) 2.0, Copyright (c) 1982 NLS, Inc. -subttl Verify portion of format program -;############################################################### -;## High speed diskette verify program ## -;## Copyright (C) 1982 by Non-Linear Systems, Inc. ## -;## No warranty is made, expressed, or implied. ## -;## ## -;############################################################### -;## Last update : july 13,1982 [001] ## -;## by jim nickerson ## -;## will verify b: to be readable ## -;## fix spelling of verifing=verifying ## -;############################################################### - .z80 -maxsec equ 10 ; sectors/track -maxtrk equ 40 ; tracks/disk -cmnd equ 10H ; command port -data equ 13H ; data port -secp equ 12H ; sector port -trkp equ 11H ; track port -status equ 10H ; status port -rdcmd equ 80H ; read sector command -rdmask equ 9CH ; read status mask -wrtcmd equ 0A0H ; write sector command -wrtmask equ 0FCH ; write status mask -ficmd equ 0D0H ; force int command -seekcmd equ 10H ; seek command -rstcmd equ 00 ; home command -bitport equ 1CH ; system bit port -cr equ 0DH ; ascii return -lf equ 0AH ; ascii line feed -bdos equ 5 ; bdos entry point - -; print a message -print macro x - ld c,9 - ld de,x - call 5 - endm - -; get a char from console, up case -input macro - ld c,1 - call 5 - res 5,a - endm - - .8080 -ENT1:: ;EXTERNAL ENTRY FOR FORMAT VERIFY - .Z80 -; - ld a,0FFH ;RESET ERROR RECORD - ld (some),a ;save it - -verify: ld a,(66H) ; ‰get and save byte at nmi vector - ex af,af' - ld a,0C9H ; RET op code - ld (66H),a - print crlf - print crlf - print vermsg ; tell crt that verify p/g is beginning - print crlf - print crlf - call diskon ; turn disk drives on - call home ; home both disk drives - xor a ; zero track number -vrtrk: ld (track),a ; set track number - print back - call tellt ; tell the track number - call seekb ; seek track drive B - ld hl,buffb ; set up dma adrs for disk B - ld (dmaadr),hl - xor a -verb: ld (sector),a ; set up sector - call read ; read sector from B - call nz,tellb ; tell any errors from read - ld a,(sector) ; next sector - inc a - cp maxsec ; end of track? - jr c,verb ; another sector yet to do -vert: ld a,(track) ; next track - inc a - cp maxtrk ; end of disk? - jp c,vrtrk - ex af,af' - ld (66H),a ; restore byte at nmi vector - ld a,(some) - cp 0 ;0=error has been recorded - jr nz,getout -;tell him about it (pause for cr - print pause - input - ret -; -getout: - print ok - ret ; go back to main p/g - - -read: ld de,rdmask*256+rdcmd - ; -action: call xlate ; to physical sector number - out (secp),a ; set sector number -TRYS:: ld l,1 ;better be good first time - push hl - ld hl,(dmaadr) ; address of disk i/o -alp: ld bc,data ; b=0, c=port # - ld a,e - ; - out (cmnd),a ; read loop -rl1: halt ; read in first 256 bytes - ini - jp nz,rl1 -rl2: halt ; read in second 256 bytes (256+256)=512 - ini - jp nz,rl2 -; ; -done: ld (dmaadr),hl ; save new dma address (auto inc on rd/wrt) - call busy ; wait for crc - and d ; status mask - pop hl ; error re-try count - ret z ; no error - dec l ; down error count - jr z,error ; max error count if Z - push hl - ld hl,(dmaadr) ; correct dma address - ld bc,512 - or a - sbc hl,bc - jr alp -error: ld a,0FFH - or a - ret ; ret non-zero (error) - -xlate: ld hl,tran ; un-skew track (formatted skewed) - ld c,a ; copy disk logical sector number - ld b,0 - add hl,bc ; as index into skew table - ld a,(hl) ; got it - ret - -; new un skew table -tran: - defb 0, 8, 3, 6 - defb 1, 9, 4, 7 - defb 2, 5 -; - - ; -seekbv: ld b,02h ;select diak mask - jr seekx - -seekb: ld b,02H - jr seekx ;want actual track - in a,(trkp) ; drive b is always one behind - or a ; except on track 00 - jr z,seekx - dec a ; back one - out (trkp),a - ; -seekx: ld a,ficmd ; force int - out (cmnd),a - in a,(bitport) ; select disk - and 0FCH - or b - out (bitport),a ; done - ld a,(track) ; now seek desired track - out (data),a - ld a,seekcmd - out (cmnd),a ; issue command - -busy: halt ; wait for command done -bsy: in a,(status) ; busy? (may be drq not int) - bit 0,a - jr nz,bsy - ret ; done - -home: in a,(bitport) ; select drive B - and 0FCH - push af ; save - set 1,a - out (bitport),a - ld a,rstcmd ; home drive B - out (cmnd),a - call busy ; wait for done - pop af - ret ;only want to verify read on b for now - set 0,a ; select drive A - out (bitport),a - ld a,rstcmd ; home drive A - out (cmnd),a - call busy ; wait for done - ret - -diskon: in a,(bitport) ; turn on disk drive - res 6,a - out (bitport),a - ld b,50 ; delay for motor up to speed -don1: ld de,1670 -don2: dec de - ld a,d - or e - jp nz,don2 - djnz don1 - ret - -outdec: push bc ; save number in c - ld a,c ; decimal print the number in c - ld e,'0' ; e hold decimal digit -hund: sub 100 ; any hundreds digits? - jr c,tens - inc e ; bump hundreds digit - jr hund -tens: add a,100 ; put back 100 - push af ; save number - ld a,e ; leading zero digit? - cp '0' - jr z,ten1 - ld c,2 - call bdos ; write digit -ten1: pop af ; recover digit - ld e,'0' ; tens digit -ten2: sub 10 - jr c,ones - inc e ; bump tens digit - jr ten2 -ones: add a,10+'0' - push af ; save number, print digit - ld c,2 - call bdos ; tens digit - pop af - ld e,a - ld c,2 - call bdos ; ones digit - pop bc ; restore number to c - ret ; done - -; -tellt: print trkmsg ; tell track number - ld bc,(track) - call outdec ; print track number - ret - -tellb: - ld a,0 ;record an error - ld (some),a - print back ; bad sector on drive b - print drvb -telerr: call tellt ; "TRACK XX" - print secmsg ; " SECTOR " - ld a,(sector) ; find physical sector number - call xlate - ld c,a - call outdec ; "XX" - print badmsg - print crlf - call tellt ; still on this track - ret - -crlf: defb cr,lf,'$' -trkmsg: defb 'Track ','$' -secmsg: defb ' Sector ','$' -drva: defb 'Drive A ','$' -drvb: defb 'Drive B ','$' -badmsg: defb ' {BAD}','$' -back: defb cr,'$' -ok: defb cr,'Format OK',cr,lf,'$' -pause: defb cr,'Please type any key to continue.','$' -vermsg: defb 'Verifying disk B to be readable',cr,lf,lf - defb ' *** NOTE: only one error per track is displayed (there may be more) ***','$' -some: defb 0 ;error has occured -dmaadr: defw buff ; dma pointer -track: defb 0 ; current track -sector: defb 0 ; current sector -bytcnt: defs 2 ; sector verify loop count -adrsa: defs 2 ; storage area for disk A buffer -adrsb: defs 2 ; storage area for disk B buffer - DSEG -buff equ $ ; track buffer -buffb equ $+5120 ; read buffer - end - \ No newline at end of file diff --git a/2006/toledo2/TINKER/KBIOS.HEX b/2006/toledo2/TINKER/KBIOS.HEX deleted file mode 100644 index e69de29bb..000000000 diff --git a/2006/toledo2/TINKER/KBIOS.MAC b/2006/toledo2/TINKER/KBIOS.MAC deleted file mode 100644 index 541f5301a..000000000 --- a/2006/toledo2/TINKER/KBIOS.MAC +++ /dev/null @@ -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 - \ No newline at end of file diff --git a/2006/toledo2/TINKER/KBIOS.PRN b/2006/toledo2/TINKER/KBIOS.PRN deleted file mode 100644 index e69de29bb..000000000 diff --git a/2006/toledo2/TINKER/KPRS2.MAC b/2006/toledo2/TINKER/KPRS2.MAC deleted file mode 100644 index d7a60f9f0..000000000 --- a/2006/toledo2/TINKER/KPRS2.MAC +++ /dev/null @@ -1,1675 +0,0 @@ -title KAYPRO RESIDENT SOFTWARE PACKAGE 2.0 , Copyright (C) 1982 NLS, Inc. -subttl Cold start and configure - aseg - ORG 0 -.comment % -######################################################## -## ## -## Cold start routine, reset and configure ## -## system for power up condition. ## -## ## -## Copyright (C) 1982 By Non-Linear Systems, Inc ## -## No warranty is made, expressed or implied. ## -## ## -######################################################## -## Last update: july 13/1982 [001] ## -## by JIM NICKERSON ## -## change list out with busy jump to ## -## to check status of serial port ## -######################################################## -% - .xlist -; extrn stack, diskinit, vidinit, devinit, print, dmaadr, dpha -; extrn home, seldsk, settrk, setsec, setdma, read, write -; extrn sectran, kbdstat, kbdin, kbdout, ttystat, ttyin, ttyout, TTYOSTAT -; extrn liststat, list, vidout, diskoff, diskon, thnsd - .list - .z80 - -; ROM master jump table - -jp start ; start up computer -jp diskinit ; disk initialize -jp vidinit ; video initialize -jp devinit ; device initialize - -jp home ; home selected disk drive -jp seldsk ; select a disk drive -jp settrk ; seek a track -jp setsec ; set sector number to read -jp setdma ; set dma address -jp read ; read logical sector -jp write ; write logical sector -jp sectran ; xlate sector number -jp diskon ; turn on disk -jp diskoff ; turn off disk - -jp kbdstat ; KeyBoarD character ready -jp kbdin ; input from keyboard -jp kbdout ; output to keyboard (used to ring bell) -jp ttystat ; status of serial input port -jp ttyin ; serial input -jp ttyout ; serial output -jp liststat ; list output status (Centronics) -jp list ; list output -JP TTYOSTAT ;TESTSTATUS OF SERIAL OUTPUT -jp vidout ; video output -jp thnsd ; short delay - -start: di ; stop interupts while setup - ld sp,stack ; rom stack point - ld b,10 ; a delay to let the hardware stabilize - call thnsd - call devinit ; init device sub-system - call vidinit ; init video sub-system - call diskinit ; init disk sub-system - jr bootsys ; boot system - org 66H ; nmi vector - ret ; return from "halt", NMI sequence when in rom -page -; boot system, the first sector (1) of the first track (0) -; hold system boot information. It does NOT hold a short boot routine! -; the image is: -; self: jr self ; hang if booted and run -; defw loadpt ; where to load the opsys image -; defw bios ; where to go after booting system -; defw length ; length of image in 128 byte sectors -; (* the rest of the sector is not used *) -; -; This sector image is loaded and inspected at 0FA00H during the boot process - -crlf equ 0D0AH ; new line codes -esc equ 1BH ; ascii esc -bell equ 07H ; kbd bell - -bootsys:call print - defb esc,'=',20H+10,20H+31 - DEFB '* KAYPRO II *' - defb esc,'=',20H+13,20H+20 - defb 'Please insert your diskette into Drive A',8,0 - ld c,0 - call seldsk ; select disk, set density, do home after diskinit - ld bc,0 ; set track - call settrk - ld c,0 ; read the first sector - call setsec - ld bc,0FA00H ; header sector to go here - call setdma - call read ; read sector to FA00 - di ; read does EI upon exit - or a ; trouble reading? - jr nz,booterr ; tell crt - ld bc,(0FA02H) ; where to load system image - ld (dmaadr),bc - ld bc,(0FA04H) ; where to go after loading system - push bc ; save for latter use - ld bc,(0FA06H) ; length of system in 128 byte sectors - ld b,c ; reg B holds # of sectors to load - ld c,1 ; initial sector (0 was header sector) -cb1: push bc ; save sector count and current sector - call setsec ; select sector - call read - di ; read does EI upon exit - pop bc - or a - jr nz,booterr ; bad read of sector - ld hl,(dmaadr) ; update dma address for next sector - ld de,128 ; new dma address - add hl,de - ld (dmaadr),hl - dec b - ret z ; done booting goto system - inc c ; bump sector count - ld a,40 ; over sectors/track? - cp c - jr nz,cb1 ; fetch another sector - ld c,16 ; first sector to read on next track - push bc ; save counts - ld bc,1 ; set for next track - call settrk - pop bc - jr cb1 - -booterr:call print - defw crlf, crlf - defb bell,'I cannot read your diskette.',0 - call diskoff ; turn off disk drive -self: jr self ; hang till user pushes reset - -page -subttl Disk Equate and Parameters -.comment % -############################################################### -## ## -## Disk support routines (Deblocking) ## -## ## -############################################################### -## Last Update:06/08/82 [001] ## -############################################################### -% -.z80 - .xlist -; extrn sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec -; extrn sekhst, hstact, hstwrt, unacnt, unadsk, unatrk -; extrn unasec, erflag, rsflag, readop, wrtype, dmaadr -; extrn hstbuf, dsk, denflag, tracka, trackb, dirbuf -; extrn csva, alva, csvb, alvb, dpha, dphb, dpbs, dpbd, tbl1 -; extrn move, rd128, rd512, wrt128, wrt512 -; -; public home, seldsk, settrk, setsec, setdma, read, write, sectran -; public diskinit, diskon, diskoff, thnsd - .list - -bitport equ 01CH ; bit port (m80 does not support extrn bytes) -drvmask equ 0FCH ; drive select mask -denmask equ 0DFH ; density bit mask -ddbit equ 00H ; double density bit -sdbit equ 20H ; single density bit -control equ 10H ; I/O port of disk controller -status equ control+0 ; status register -cmnd equ control+0 ; command register -track equ control+1 ; track register -sector equ control+2 ; sector register -data equ control+3 ; data register -ficmd equ 11010000B ; force interrupt (Abort current command) -rdcmd equ 10000000B ; read command -wrtcmd equ 10100000B ; write command -seekcmd equ 00010000B ; seek command -rstcmd equ 00000000B ; home (restore) command -adrcmd equ 11000000B ; read track address -rdmask equ 10011100B ; read status mask -wrtmask equ 11111100B ; write status mask -tries1 equ 4 ; re-home on bad sector # of tries+1 -tries2 equ 15 ; re-read/write # of retries+1 -retcod equ 0C9H ; return op code -nmivec equ 0066H ; non-maskable interupt vector (used in rd/wt loop) -page -; This section defines the disk parameters (dph's are images moved to RAM) -dph0: defw 0,0,0,0 ; dph for unit A: - defw dirbuf,dpbd ; directory buffer, Disk Parameter Block - defw csva, alva ; check sum pointer, allocation map pointer - defb ddbit ; density flag for this drive - - defw 0,0,0,0 ; dph for unit B: - defw dirbuf,dpbd ; directory buffer, Disk Parameter Block - defw csvb, alvb ; check sum pointer, allocation map pointer - defb ddbit ; density flag for this drive - -;dpbs: ;( single density ); - defw 18 ; (spt) sectors per track - defb 3 ; (bsh) block shift factor - defb 7 ; (blm) block mask - defb 0 ; (exm) extent mask - defw 82 ; (dsm) max logical block # - defw 31 ; (drm) max directory # - defb 80H ; (al0) directory allocation map - defb 00H ; (al1) - defw 8 ; (cks) size of directory check vector - defw 3 ; (off) reserved tracks -;dpbd: ;( double density ); - defw 40 ; (spt) sectors per track - defb 3 ; (bsh) block shift factor - defb 7 ; (blm) block mask - defb 0 ; (exm) extent mask - defw 194 ; (dsm) max logical block # - defw 63 ; (drm) max directory # - defb 0F0H ; (al0) directory allocation map & BIOS space - defb 00H ; (al1) - defw 16 ; (cks) size of directory check vector - defw 1 ; (off) reserved tracks - -; sector interleave table ( single density ) -;tbl1: - defb 1,6,11,16 - defb 3,8,13,18 - defb 5,10,15,2 - defb 7,12,17,4 - defb 9,14 -enddph: -subttl Logical BIOS entry points & Deblocking -page -.8080 -;***************************************************** -;* Logical BIOS entry points * -;* Sector Deblocking Algorithms * -;***************************************************** -blksiz equ 1024 ;CP/M allocation size -hstsiz equ 512 ;host disk sector size -hstspt equ 10 ;host disk sectors/trk -hstblk equ hstsiz/128 ;CP/M sects/host buff -cpmspt equ hstblk * hstspt ;CP/M sectors/track -secmsk equ hstblk-1 ;sector mask -secshf equ 2 ;log2(hstblk) sector mask -wrall equ 0 ;write to allocated -wrdir equ 1 ;write to directory -wrual equ 2 ;write to unallocated - -single macro lbl - lda denflag - ora a - jnz lbl - endm - -diskinit: ;enter here on system boot to initialize -.z80 - ld hl,ioimage ;move rd/wrt routines into RAM - ld de,move - ld bc,imaglen - ldir - ld hl,dph0 ; set dph's - ld de,dpha - ld bc,enddph-dph0 - ldir -.8080 - xra a ;0 to accumulator - sta hstact ;host buffer inactive - sta unacnt ;clear unalloc count - mvi a,ddbit ;set double density flag - sta denflag - mvi a,255 ;set track numbers to 255 - sta dsk ;clear disk number - sta tracka - sta trackb - ret - -seldsk: ;select disk - mov a,c ;selected disk number - sta sekdsk ;seek disk number - jmp dsksel ;physical disk select (If needed to check den) - -setsec: ;set sector given by register c - mov a,c - sta seksec ;sector to seek - single secset - ret - -.z80 -setdma: ld (dmaadr),bc ;set dma address given by BC - ret - -settrk: ld (sektrk),bc ;set track given by registers BC -.8080 - single trkset - ret - -home: single dohome ; if single goto dohome - lda hstwrt ; patch by DRI - ora a - jnz homed - sta hstact -homed: jmp dohome ; go do home disk drive - -read: ;read the selected CP/M sector - single rd128 ;128 byte sector? - xra a ; a patch by DRI - sta unacnt - mvi a,1 - sta readop ;read operation - sta rsflag ;must read data - mvi a,wrual - sta wrtype ;treat as unalloc - jmp rwoper ;to perform the read - -write: ;write the selected CP/M sector - single wrt128 ;128 byte sector? - xra a ;0 to accumulator - sta readop ;not a read operation - mov a,c ;write type in c - sta wrtype - cpi wrual ;write unallocated? - jnz chkuna ;check for unalloc - -; write to unallocated, set parameters - mvi a,blksiz/128 ;next unalloc recs - sta unacnt - lda sekdsk ;disk to seek - sta unadsk ;unadsk = sekdsk - lhld sektrk - shld unatrk ;unatrk = sectrk - lda seksec - sta unasec ;unasec = seksec - -chkuna: - ;check for write to unallocated sector - lda unacnt ;any unalloc remain? - ora a - jz alloc ;skip if not - -; more unallocated records remain - dcr a ;unacnt = unacnt-1 - sta unacnt - lda sekdsk ;same disk? - lxi h,unadsk - cmp m ;sekdsk = unadsk? - jnz alloc ;skip if not - -; disks are the same - lxi h,unatrk - call sektrkcmp ;sektrk = unatrk? - jnz alloc ;skip if not - -; tracks are the same - lda seksec ;same sector? - lxi h,unasec - cmp m ;seksec = unasec? - jnz alloc ;skip if not - -; match, move to next sector for future ref - inr m ;unasec = unasec+1 - mov a,m ;end of track? - cpi cpmspt ;count CP/M sectors - jc noovf ;skip if no overflow - -; overflow to next track - mvi m,0 ;unasec = 0 - lhld unatrk - inx h - shld unatrk ;unatrk = unatrk+1 - -noovf: - ;match found, mark as unnecessary read - xra a ;0 to accumulator - sta rsflag ;rsflag = 0 - jmp rwoper ;to perform the write - -alloc: - ;not an unallocated record, requires pre-read - xra a ;0 to accum - sta unacnt ;unacnt = 0 - inr a ;1 to accum - sta rsflag ;rsflag = 1 - -;* Common code for READ and WRITE follows *; - -rwoper: - ;enter here to perform the read/write - xra a ;zero to accum - sta erflag ;no errors (yet) - lda seksec ;compute host sector - ora a ;carry = 0 - rar ;shift right - ora a ;carry = 0 - rar ;shift right - sta sekhst ;host sector to seek - -; active host sector? - lxi h,hstact ;host active flag - mov a,m - mvi m,1 ;always becomes 1 - ora a ;was it already? - jz filhst ;fill host if not - -; host buffer active, same as seek buffer? - lda sekdsk - lxi h,hstdsk ;same disk? - cmp m ;sekdsk = hstdsk? - jnz nomatch - -; same disk, same track? - lxi h,hsttrk - call sektrkcmp ;sektrk = hsttrk? - jnz nomatch - -; same disk, same track, same buffer? - lda sekhst - lxi h,hstsec ;sekhst = hstsec? - cmp m - jz match ;skip if match - -nomatch: - ;proper disk, but not correct sector - lda hstwrt ;host written? - ora a - cnz writehst ;clear host buff - -filhst: - ;may have to fill the host buffer - lda sekdsk - sta hstdsk - lhld sektrk - shld hsttrk - lda sekhst - sta hstsec - lda rsflag ;need to read? - ora a - cnz readhst ;yes, if 1 - xra a ;0 to accum - sta hstwrt ;no pending write - -match: - ;copy data to or from buffer - lda seksec ;mask buffer number - ani secmsk ;least signif bits - mov l,a ;ready to shift - mvi h,0 ;double count - dad h ;shift left 7 - dad h - dad h - dad h - dad h - dad h - dad h -; hl has relative host buffer address -.z80 - ld de,hstbuf - add hl,de ;hl = host address - ld de,(dmaadr) ;de = dma address - ld bc,128 ;length - ld a,(readop) ;which way? - or a - jr nz,rwmove ;skip if read - -; write operation, mark and switch direction - ld a,1 - ld (hstwrt),a ;hstwrt = 1 - ex de,hl ;source/dest swap - -rwmove: call move ;move a logical sector to/from buffer - -.8080 -; data has been moved to/from host buffer - lda wrtype ;write type - cpi wrdir ;to directory? - lda erflag ;in case of errors - rnz ;no further processing - -; clear host buffer for directory write - ora a ;errors? - rnz ;skip if so - xra a ;0 to accum - sta hstwrt ;buffer written - call writehst - lda erflag - ret - -;* Utility subroutine for 16-bit compare *; - -sektrkcmp: ;HL = .unatrk or .hsttrk, compare with sektrk -; .z80 -; ld bc,(sektrk) -; or a ; clear carry -; sbc hl,bc ; hl=hl-bc -; ret ; return status - xchg - lxi h,sektrk - ldax d ;low byte compare - cmp m ;same? - rnz ;return if not -; low bytes equal, test high 1s - inx d - inx h - ldax d - cmp m ;sets flags - ret -subttl Physical disk routines -page -.z80 -; select disk drive, C=drive number 0=A:, 1=B: -; return HL=dph for selected drive, or HL=0 for non-existent drive -dsksel: ld hl,0 ; hl = 0 for non-existent drive - ld a,c - cp 2 - ret nc ; drive number >B: - or a ; zero flag set => A: drive else B: drive - ld hl,dpha ; select proper dph for drive - jr z,sel0 - ld hl,dphb -sel0: ld a,(dsk) ; selecting disk already selected? - cp c - ret z ; yes, no further action needed - ld a,c ; save new disk number - ld (dsk),a - or a ; set zero flag if A: drive - push hl ; hl=dph of disk to be selected - ld de,16 ; to density bit in dph - add hl,de - ld a,(hl) ; move into A then store into denflag - ld (denflag),a - ld hl,trackb ;now find proper track(x) - jr z,sel1 - dec hl -sel1: ld a,(hl) ; have we been on the disk we are "leaving" - cp 255 ; if not do not update trackx - jr z,selnot - in a,(track) - ld (hl),a ; save track of disk we are leaving -selnot: ld a,c ; set zero flag if A: drive - or a - ld hl,tracka - jr z,sel2 - inc hl -sel2: ld a,(hl) - out (track),a ; track of disk we are selecting - ex de,hl - pop hl ; address of dph for disk we are selecting -density:cp 255 ; first time for this drive? - ret nz ; need to check density? - call ready ; physical disk select - call home ; seek track 0 - in a,(bitport) ; test double density first - and denmask ; or in density flag - or ddbit ; set density flag - out (bitport),a - call dcheck ; see if we can read address - jr z,dend ; density is double? - in a,(bitport) ; set density flag to single - and denmask - or sdbit - out (bitport),a - call dcheck ; see if we can read address - ret nz ; can't read single or double so don't change - jr dens -dend: push hl ; (* double density *) hl^ to dph - push de - ld de,0 ; no xlate table (done by FORMAT program) - ld (hl),e ; store table^ into dph - inc hl - ld (hl),d - ld de,9 ; move foward in dph to dpb pointer - add hl,de - ld de,dpbd ; double density dpb - ld (hl),e - inc hl - ld (hl),d - ld de,5 ; to desity flag in dph - add hl,de - ld a,ddbit ; double density bit flag - ld (hl),a - ld (denflag),a - jr den1 ; exit -dens: push hl ; (* single density *) hl^ to dph - push de - ld de,tbl1 ; single density sector xlate table - ld (hl),e ; store table^ into dph - inc hl - ld (hl),d - ld de,9 ; move foward in dph to dpb pointer - add hl,de - ld de,dpbs ; single density dpb - ld (hl),e - inc hl - ld (hl),d - ld de,5 ; to desity flag in dph - add hl,de - ld a,sdbit ; single density bit flag - ld (hl),a - ld (denflag),a -den1: pop de ; restore pointer to dph - pop hl ; pointer to track(x) bios register - in a,(sector) ; update track register - out (track),a - ld (de),a - ret -dcheck: ld a,adrcmd ; get address command - out (cmnd),a ; issue command to controller - call busy ; wait for command done - bit 4,a ; record not found flag - ret ; return status - -; home disk head -dohome: call ready ; make sure drive is on and ready - ld a,rstcmd; restore command - out (cmnd),a; issue command - jr busy ; test and wait for not busy - -; seek track #, BC=Track # -trkset: call ready ; make sure drive is on and ready - ld a,c ; move track number to A - out (data),a ; track # to seek to - ld a,seekcmd ; seek command - out (cmnd),a ; issue command - jr busy ; test and wait for not busy - -; select sector #, BC=Sector # -secset: ld a,c ; move sector number to A - out (sector),a ; to controller register - ret - -; perform logical to physical sector translation. -; logical sector number in BC, table address in DE -; return physical sector number in HL -sectran:ld a,d ; table address 0? - or e - ld h,b ; if so no xlate - ld l,c - ret z - ex de,hl ; table address in hl - add hl,bc ; index by logical sector number - ld l,(hl) - ld h,0 - ret - -; ready disk drive, perform physical disk select, set density bit -ready: push hl ; save hl - push de ; and de - push bc - ld a,ficmd ; abort any controller action - out (cmnd),a - call diskon ; turn drive motor on - ld a,(dsk) ; A=drive # - ld e,a ; save drive # in E - in a,(bitport) ; A=bit port - and 0FCH ; strip current drive bits - or e ; or in requested drive - inc a ; bump, 01=A: 10=B: - and denmask ; set density bit - ld hl,denflag ; hl^ to density bit for this drive - or (hl) - out (bitport),a ; to bit port - pop bc - pop de - pop hl - ret - -; turn disk motor on, delay for drive speed -diskon: in a,(bitport) ; get current drive motor status - bit 6,a ; is motor on? - ret z ; motor on, do nothing - res 6,a ; motor on bit - out (bitport),a ; turn motor on - ld b,50 ; delay - call thnsd - ret - -; turn disk motor off -diskoff:in a,(bitport) - set 6,a ; motor off bit - out (bitport),a - ret -; delay for B th's @ 4Mhz -thnsd: ld de,1670 -tlp: dec de - ld a,d - or e - jp nz,tlp - djnz thnsd - ret - -; check status of controller, wait for command to finish executing -busy: halt ; wait for command done -bsy: in a,(status) ; now wait for not busy - bit 0,a - jr nz,bsy - ret -subttl Writehst and Readhst logical to Physical routines -page -;* WRITEHST performs the physical write to *; -;* the host disk, READHST reads the physical *; -;* disk. *; - -writehst:;hstdsk = host disk #, hsttrk = host track #, - ;hstsec = host sect #. write "hstsiz" bytes - ;from hstbuf and return error flag in erflag. - ;return erflag non-zero if error - ld de,tries1*256+tries2 ; retry error counts -wrthst: push de ; save error counts - call hstcom ; set track and sector - call wrt512 ; read sector - ld (erflag),a ; error return flag - pop de ; restore error flags - ret z ; good op - dec e ; retry count - jr nz,wrthst ; try again - dec d ; home and reseek count - ret z ; can't recover - call dohome ; re seek - ld e,tries2 ; reset retry count - jr wrthst - -readhst:;hstdsk = host disk #, hsttrk = host track #, - ;hstsec = host sect #. read "hstsiz" bytes - ;into hstbuf and return error flag in erflag. - ld de,tries1*256+tries2 ; retry error counts -rdhst: push de ; save error counts - call hstcom ; set track and sector - call rd512 ; read sector - ld (erflag),a ; error return flag - pop de ; restore error flags - ret z ; good op - dec e ; retry count - jr nz,rdhst ; try again - dec d ; home and reseek count - ret z ; can't recover - call dohome ; re seek - ld e,tries2 ; reset retry count - jr rdhst - -hstcom: ld a,(hstdsk) ; select disk - ld c,a - call dsksel - ld bc,(hsttrk) ; set track to hsttrk - call trkset ; physical seek - ld a,(hstsec) ; set physical sector - ld c,a ; c=sector - call secset - ret -subttl Physical disk I/O, RAM image -page -ioimage: -;move: ; block memory move, turn rom on/off - in a,(bitport) ; turn rom off - res 7,a - out (bitport),a - ldir ; move logical sector from hstbuf - in a,(bitport) ; turn rom back on - set 7,a - out (bitport),a - ret ; back to rom - -;rd128: - ld hl,(dmaadr) ; address of operation - ld b,1 ; read a 128 byte sector - jr rd -;rd512: - ld hl,hstbuf - ld b,4 ; read a 512 byte sector -; read a sector, return A=0 for no errors, A=1 for non-recoverable error -; if b=1 128, b=2 256, b=3 384, b=4 512 bytes/sector -rd: ld de,rdmask*256+rdcmd ; d=read status mask, e=read command - jr action - -;wrt128: - ld hl,(dmaadr) - ld b,1 ; write a 128 byte sector - jr wrt -;wrt512: - ld hl,hstbuf - ld b,4 ; write a 512 byte sector -; write a sector, return as per read -wrt: ld de,wrtmask*256+wrtcmd ; d=status mask, e=write command - ;fall through to action - -action: call ready ; make sure drive is on and ready - di ; no interrupts during disk I/O operations - in a,(bitport) ; turn rom off - res 7,a - out (bitport),a - push hl ; save address of disk buffer - ld hl,nmivec ; set up nmi vector - ld a,(hl) ; save current contents - ex af,af' - ld (hl),retcod ; this is a return after HALT in loop - pop hl ; hl = dma address - ld a,b ; sector multiple - ld bc,128*256+data ; b=sector length, c=data port - bit 0,a ; if 0 then 256 or 512 bytes/sector - jr nz,actn ; b set for 128 or 384 bytes/sector - ld b,0 ; b set for 256 or 512 bytes/sector -actn: cp 1 ; compute entry point 1st or 2nd loop - push psw ; save as Z flag - ld a,e ; i/o command - cp wrtcmd ; a write? - jr z,wstart ; start write command - - out (cmnd),a ; fall through to read loop - pop psw - jr z,rl2 -rl1: halt ; wait for controller - ini - jr nz,rl1 -rl2: halt - ini - jr nz,rl2 - jr done ; read loop done, exit - -wstart: out (cmnd),a ; write loop - pop psw - jr z,wl2 -wl1: halt - outi - jr nz,wl1 -wl2: halt - outi - jr nz,wl2 - -done: ex af,af' ; byte at nmi vector address - ld (nmivec),a ; restore it - in a,(bitport) ; turn rom back on - set 7,a - out (bitport),a - ei ; turn interrupts on - call busy ; get status when contoller not busy - and d ; status mask - ret z ; no bit set, return operation ok - ld a,1 ; cp/m error return - ret - -imaglen equ $-ioimage ; length of this image -page -subttl SIO, PIO, and CTC equates -.comment % -############################################################### -## ## -## System device I/O routines for KBD, TTY and LST ## -## ## -############################################################### -## LAST UPDATE: JULY 7,1982 [001] ## -## BY JIM NICKERSON ## -## CHANGED SIOA REGISTER 3 INIT TO AUTO ENABLE ## -## ADDED LIST STATUS FOR THE SERIAL PORT ## -## TTYOUT NOW THE SAME AS OUT WITH STATUS CHK ## -## CHANGE VECTOR PAD MAPING ## -############################################################### -% -.z80 -.xlist -; public kbdstat, kbdin, kbdout, ttystat, ttyin, ttyout, TTYOSTAT -; public liststat, list, devinit - .list - -;*************** -;* sio equates * -;*************** - -sio equ 04H ; base address of sio -sioa0 equ sio+2 ; channel a command/status -sioa1 equ sio+0 ; channel a data -siob0 equ sio+3 ; channel b command/status -siob1 equ sio+1 ; channel b data - -; write registers 0-7 and control bits -; init registers in the following order 0,2,4,3,5,1 - -WR0 equ 0 ; command register, crc reset, reg pointer -; bits 0-2 are register pointers to WRx and RRx -; bits 3-5 and commands as given bellow -null equ 0 ; null command -extrset equ 10H ; reset ext/status interrupts -reset equ 18H ; channel reset -ienrc equ 20H ; Enable Int on Next Rx Character -rtip equ 21H ; reset transmitter interrupt pending -errset equ 30H ; error reset -retint equ 31H ; return from interrupt - -WR1 equ 1H ; interrupt enable and Wait/Ready modes -esie equ 1H ; external/status interrupt enable -tie equ 2H ; transmitter interrupt enable -tid equ 0 ; transmitter interrupt disable -statav equ 4H ; Status affects vector (z80 mode 2) (see WR2) -; bits 3-4 affect receive interrupt mode -rid equ 0 ; receive interrupts disabled -rifc equ 8H ; receive interrupt on first char only -riep equ 10H ; recv interrupts enabled, parity err Special Recv Cond -rie equ 18H ; same as riep but parity error not Special Recv Cond - -WR2 equ 2 ; interrupt vector address/pointer (chan b only) -; interrupt address (z80 reg I+WR2=interrupt address) -; returned as is if not statav above in wr1 -; if statav then bits 1-3 are modified as bellow: -; 000 ch b transmit buffer empty -; 001 ch b external/status change -; 010 ch b receive char available -; 011 ch b special receive condition (parity error, Rx overrun, -; framing error, end of frame(sdlc) ) -; 1xx ch a (* same vectors as for channel b above *) - -WR3 equ 3 ; receiver logic control and parameters -re equ 1 ; receiver enable -autoe equ 20H ; auto enable (use dcd and cts to enable recv and xmt -; bits 6-7 are receiver bits/character -rbits5 equ 0 ; 5 bits/character -rbits7 equ 40H ; 7 bits/character -rbits6 equ 80H ; 6 bits/character -rbits8 equ 0C0H ; 8 bits/character - -WR4 equ 4 ; control bits that affect both xmt and recv -pon equ 1 ; enable parity (parity on) -pstate equ 2 ; parity even not pstate = parity odd -; bits 2-3 are number of stop bits -syncmd equ 0 ; sync mode is to be selected -sbits1 equ 4 ; 1 stop bit -sbits5 equ 8H ; 1.5 stop bits -sbits2 equ 0CH ; 2 stop bits -; bits 6-7 control clock rate -cr1 equ 0 ; data rate x1=clock rate -cr16 equ 40H ; x16 -cr32 equ 80H ; x32 -cr64 equ 0CH ; x64 - -WR5 equ 5 ; control bits that affect xmt -te equ 8H ; transmit enable -break equ 10H ; send break -; bits 5-6 are number of bits/character to transmit -tbits5 equ 0 ; 5 or less bits/character -tbits7 equ 20H ; 7 bits/character -tbits6 equ 40H ; 6 bits/character -tbits8 equ 60H ; 8 bits/character -rts equ 2 ; RTS output -dtr equ 80H ; DTR output - -WR6 equ 6 ; sdlc transmit sync character -WR7 equ 7 ; sdlc receive sync character - -; read registers 0-2 and status bits -rr0 equ 0 ; general recv and xmt status -rca equ 1 ; receive character available -intped equ 2 ; interrupt pending (ch a only) -tbe equ 4 ; transmit buffer empty -synhnt equ 10H ; sync/hunt -dcd equ 8H ; DCD input -cts equ 20H ; CTS input -xmtundr equ 40H ; transmit underrun/ EOM -brk equ 80H ; break/abort status - -rr1 equ 1 ; Special Receive conditions and Residue codes -; bits 4-7 are special receive conditions -rpe equ 10H ; parity error -rovr equ 20H ; Rx overrun error -framerr equ 40H ; framing error - -rr2 equ 2 ; interrupt vector address/pointer - -;*************** -;* pio equates * -;*************** - -pio equ 08H ; base address of pio -pioac equ pio+1 ; pio a control -pioad equ pio+0 ; pio a data -piobc equ pio+3 ; pio b control -piobd equ pio+2 ; pio b data - -spio equ 01CH ; base address of pio (system status bits port) -spioac equ spio+1 ; pio a control -spioad equ spio+0 ; pio a data -spiobc equ spio+3 ; pio b control -spiobd equ spio+2 ; pio b data - -bitport equ spioad ; system bit port for status and control -;0 drive sel A: -;1 drive sel B: -;2 n/c -;3 centronics i/o ready line -;4 centronics i/o data strobe -;5 single density (not 5 is double density) -;6 drive motor off (not 6 is motor on) -;7 rom enable (not 7 is rom off) - -; control register -setiv equ 0 ; set interrupt vector, bits 1-7 are vector address - -som equ 0FH ; set operating mode. bits 6-7 specify mode -mode0 equ 0 ; output -mode1 equ 40H ; input -mode2 equ 80H ; bidirectional -mode3 equ 0C0H ; control (bit by bit i/o, mode3 command is followed by - ; byte where bit pattern specifies i/o bits - ; 1=input, 0=output - -sicw equ 7H ; set interrupt control word, bits 4-7 are parameters -imask equ 10H ; bit mask follows ) -hghlow equ 20H ; high/low ) mode 3 only -andor equ 40H ; and/or of bits to gen interrupt ) -intena equ 80H ; enable interrupt (bit low disable interrupts) - -intcmd equ 03H ; set interrupt enable/disable without changing status as sicw - -;*************** -;* ctc equates * -;*************** - -ctc equ 18H ; ctc base address -ctc0 equ ctc+0 ; ctc channel 0 -ctc1 equ ctc+1 ; ctc channel 1 -ctc2 equ ctc+2 ; ctc channel 2 -ctc3 equ ctc+3 ; ctc channel 3 - -; channel control register bits -ctccmd equ 01H ; ctc command byte -ctcint equ 80H ; interrupt enable -ctcm1 equ 40H ; set ctc mode is counter -ctcm0 equ 00H ; set ctc mode is timer -range equ 20H ; timer prescaler factor is 256 (not range is 16) -slope equ 10H ; edge triger positive (not slope is negative edge) -trigger equ 8H ; ext trigger -ltc equ 4H ; load time constant (followed by time constant) -rsetctc equ 2H ; reset channel - -ctcivec equ 0 ; set ctc interrupt vector, bits 3-7 are vector addr -ctcvmsk equ 0F8H ; interrupt vector mask to strip bits 0-2 - -;*************** -;* baud rate * -;*************** - -bauda equ 00H ; baud rate generator for serial chan a -baudb equ 0CH ; baud rate generator for serial chan b - -; baud rate factors, output to baudx to select baud rate -baud10 equ 02H ; 110 baud rate -baud30 equ 05H ; 300 baud rate -baud12 equ 07H ; 1200 baud rate -baud24 equ 0AH ; 2400 baud rate -baud48 equ 0CH ; 4800 baud rate -baud96 equ 0EH ; 9600 baud rate -baud19k equ 0FH ; 19.2k baud rate -subttl I/O configuration tables -page -iotabint: ; i/o device initialization table - ; first byte is port # - ; second byte is byte to send to port - defb (iotblend-iotabint)/2 ; table length in arguments - -; init sio channel b -defb siob0, reset ; reset sio channel -defb baudb, baud30 ; 300 baud -defb siob0, wr4 -defb siob0, sbits1 or cr16 ; one stop bit, 16x clock -defb siob0, wr3 -defb siob0, re or rbits8 ; recv enable, 8 bits/char -defb siob0, wr5 -defb siob0, te or tbits8 or dtr ; xmt enable, 8bits/char, assert dtr -defb siob0, wr1 -defb siob0, tid or rid ; xmt & recv interrupts disabled - -; init sio channel a -defb sioa0, reset ; reset sio channel -defb bauda, baud30 ; 300 baud -defb sioa0, wr4 -defb sioa0, sbits1 or cr16 ; one stop bit, 16x clock -defb sioa0, wr3 -defb sioa0, re or rbits8 or autoe ; recv enable, 8 bits/char, auto enable -defb sioa0, wr5 -defb sioa0, te or tbits8 or dtr ; xmt enable, 8bits/char, assert dtr -defb sioa0, wr1 -defb sioa0, tid or rid ; xmt & recv interrupts disabled - -; init pio used form system control bits -defb spioac, intcmd ; disable interrupts -defb spioad, 10000001B ; set system status bits (before setting mode!) -defb spioac, som or mode3 ; set mode to #3 -defb spioac, 00001100B ; bit pattern for mode 3 - -; init pio used to drive printer -defb pioac, intcmd ; disable interrupts -defb pioac, som or mode0 ; set mode to #0 (output) -defb piobc, intcmd ; disable interrupts -defb piobc, som or mode1 ; set mode to #1 (input) -iotblend: ; end of table - -devinit:ld hl,iotabint ; initialize i/o devices - ld b,(hl) ; number of bytes to send to i/o devices -iolp: inc hl - ld c,(hl) ; port to send - inc hl - ld a,(hl) ; byte to send - out (c),a - djnz iolp - ret ; done -subttl Device I/O handlers -page -kbdstat:in a,(siob0) ; kbd char avail? - and rca - ret z ; 0=no char - ld a,0FFH ; FF=char avail - ret - -kbdin: call kbdstat ; loop till char avail - jr z,kbdin - in a,(siob1) ; get char - call kbdmap ; map out funny chars of vector pad and #'s - ret - -kbdout: in a,(siob0) ; xmit buffer empty? - and tbe - jr z,kbdout - ld a,c ; out character - out (siob1),a - ret - -kbdmap: ld hl,mapin ; input map table - ld bc,mapout-mapin ; table length - cpir ; search table - ret nz ; not found - ld de,mapin ; make hl=table index - or a ; hl-mapin=index - sbc hl,de - ld de,mapout-1 ; index - add hl,de - ld a,(hl) ; get char from mapout - ret - -mapin: defb 0F1H, 0F2H, 0F3H, 0F4H ; up, down, left, right arrows - defb 0B1H, 0C0H, 0C1H, 0C2H ; 0,1,2,3 - defb 0D0H, 0D1H, 0D2H, 0E1H ; 4,5,6,7 - defb 0E2H, 0E3H, 0E4H, 0D3H ; 8,9, '-', ',' - defb 0C3H, 0B2H ; return, '.' - defb 0FFH ; end of mapin table -mapout: defb 80H, 81H, 82H, 83H ; vector pad, xlate in bios - defb 84H, 85H, 86H, 87H - defb 88H, 89H, 8AH, 8BH - defb 8CH, 8DH, 8EH, 8FH - defb 90H, 91H - -ttystat:in a,(sioa0) ; serial port status input - and rca - JR COMOUT - -ttyin: call ttystat ; is a char ready? - jr z,ttyin - in a,(sioa1) - ret - -ttyout: in a,(sioa0) ; output a char to serial port - and tbe - jr z,ttyout ; xmit buffer full? - ld a,c - out (sioa1),a ; xmit character - ret - -; -TTYOSTAT: ;TEST STATUS OF SERIAL OUTPUT - IN A,(SIOA0) - AND TBE ;TX BUF FULL ? - JR COMOUT -; -; list port centronics equates -pready equ 3 ; bit in bit port -pstrob equ 4 ; bit in bit port - -liststat:in a,(bitport) ; centronics printer port status - bit pready,a -COMOUT: ret z ; 0=busy - ld a,0FFH ; FF=ready - ret - -list: call liststat ; is printer busy? - jr z,list - ld a,c - out (pioad),a ; output char to printer - in a,(bitport) ; strb. printer - set pstrob,a - out (bitport),a - res pstrob,a - out (bitport),a - ret - -page -subttl Memory maped video output driver -.comment % -################################################################## -## ## -## Memory maped video output driver ## -## ## -################################################################## -## Last Update : july 13 1982 ## -## by jim nickerson ## -################################################################## -% -; -.xlist -; extrn leadflg, row, cursor, chrmsk, kbdout -; public vidout, vidinit, print -.list - -.z80 -jmpif macro j,k ;SHORT JUMP - cp j - JR z,k - endm -; -LJMPIF macro j,k ;LONG JUMP - cp j - jp z,k - endm - - -colcp macro x - ld a,l - and not colum-1 - cp x - endm - -SPACE equ 20H ; space char -cr equ 0DH ; move cursor to beginning of line -bs equ 08H ; move cursor left (control h) -fs equ 0CH ; move cursor right (control l) -lf equ 0AH ; move cursor down (control j) -rlf equ 0BH ; move cursor up (control k) -eol equ 18H ; clear to end of line (control x) -eos equ 17H ; clear to end of screen (control w) -clr equ 1AH ; clear screen char (control z) -homec equ 1EH ; home cursor -esc equ 1BH ; escape, lead-in character -bell equ 07H ; ascii bell -curchr equ '_' or 80H ; character for cursor -ascii equ 7FH ; ascii mask -greek equ 1FH ; greek character set mask - -base equ 03000H ;start of video ram -linlen equ 80 ;logical line length -colum equ 128 ;physical line length -lines equ 24 ;lines per display -line1 equ base ;start of first line -line2 equ base+colum ;start of second line -last1 equ base+(lines-1)*colum ;start of last line -last equ (base+lines*colum)-1 ;last char of display -bitport equ 1CH ;system bit port - -vidinit:ld a,space ; clear row # - ld (row),a - call clear ; clear screen and home cursor - ld (cursor),hl - xor a - ld (leadflg),a ; no leadin sequence - ld a,17H ; re-set scroll register - out (14H),a - ld a,ascii ; set ascii mask - ld (chrmsk),a - ret - -vidout: - ld a,(leadflg) ; processing a lead-in sequence? - or a - jp nz,leadin - ld a,bell ; ring bell, no display? - cp c - JR nz,nobell - ld c,04H ; kbd bell code - jp kbdout ; ring bell - -nobell: call clrcur ; clear (remove) cursor - ld de,finsh ; set up return to finish - push de - ld a,c ; char to print - jmpif lf,lfcd ; line feed (down arrow) - LJMPIF cr,return ; return - jmpif bs,back ; back space (left arrow) - jmpif fs,fowrd ; right arrow - jmpif rlf,up ; up arrow - LJMPIF esc,doesc ; lead-in - LJMPIF eol,cleol ; clear to eol - jmpif eos,cleos ; clear to eos - jmpif clr,clear ; clear screen, home currsor - jmpif homec,hmcsr ; home cursor - cp 60H ; lower case? - jr c,vout - ld a,(chrmsk) ; if lower do we print greek chr set? - and c -vout: ld (hl),a ; display character - inc hl ; inc cursor position - ld a,l ; off end of line? - and not colum - cp linlen ; logical line length - ret c ; not past colum-1 - call return - jr lfcd - -vovr: ld de,last ; off display memory? - ld a,d - cp h - jr c,scroll - ret nz - ld a,e - cp l - ret nc -scroll: ld b,lines-1 ; number of lines to scroll - ld hl,line2 - ld de,line1 -scr1: push bc ; save line count - ld bc,linlen ; logical line length - ldir ; scroll one line - ld bc,colum-linlen ; to beginning of next line - add hl,bc - ex de,hl - add hl,bc - ex de,hl - pop bc ; line count - djnz scr1 ; do another line - ld hl,last1 ; to last line of display - JR cleol ; clear it - -; -; process a line feed (cursor down) -; -lfcd: ld de,colum ; to next line, same column - add hl,de - JR vovr -; -; back space the cursor -; -back: ld a,l ; is column # 0? - and not colum - ret z ; at beginning of line - dec hl ; back space - ret -; -; move cursor foward -; -fowrd: ld a,l ; right most column? - and 07FH ;INSTEAD OF not colum-1 - cp 79 - ret nc - inc hl ; bump cursor address - ret -; -; move cursor up one line -; -up: push hl ; save current position - ld de,-colum ; move up one line - add hl,de - push hl ; save new cursor position - or a ; clear carry - ld de,line1 ; first char of display - sbc hl,de ; if carry set we are off display - pop hl ; hl = new pos - pop de ; de = old pos - ret nc - ex de,hl - ret -; -; clear screen -; -clear: ld hl,line1 ; clear screen - ld de,line1+1 - ld bc,last-base - ld (hl),space - ldir - ld hl,line1 ; home cursor - ret -; -; home cursor -; -hmcsr: ld hl,line1 ; line one of display - ret -; -; clear to end of screen -; -cleos: -; patch by jim - push hl ;save current position - call cleol - ld de,colum - ld a,l - and 080H - ld l,a - add hl,de ;begining of next line - ld a,03CH ;after last line now ? - cp h ;h holds page (3B) is last line - jr z,cleos1 ;yes so no more to blank get out -; - ld e,l ; copy hl to de - ld d,h - or a ; clear carry - ld hl,last ; last pos of screen - sbc hl,de ; last-current position - ld c,l ; move count to bc - ld b,h - ld h,d ; move current position into hl - ld l,e - inc de - ld (hl),space - ldir -; -;patch by jim -cleos1: -; - pop hl ; restore cursor position - ret -; -; clear to end of line -; -cleol: -; -;patch by jim -; - ld a,l - and 07FH - cp linlen-1 - jr c,cleol1 - ld (hl),space - ret -cleol1: -; -; - push hl ; save current position - push hl - ld a,l ; find beginning of line - and not colum-1 - ld l,a -; -;patch by jim - ld de,linlen-1 -; - add hl,de ; hl points to end of line - pop de ; current position in de - push de - or a ; clear carry - sbc hl,de ; hl=# of bytes to clear - ld c,l ; move count into bc - ld b,h - pop hl ; current position - ld e,l ; copy to de - ld d,h - inc de - ld (hl),space - ldir - pop hl ; restore cursor address - ret - -clrcur: ld hl,(cursor) ; get cursor location - ld a,(hl) ; undo cursor - cp curchr ; is it a cursor on a blank field? - ld a,space - jr nz,clr1 - ld (hl),a -clr1: res 7,(hl) ; undo cursor - ret -; -; process a return -; -return: ld a,l - and not colum-1 - ld l,a - ret -; -; escape lead-in sequence start up -; -doesc: ld a,1 ; leadflg is a counter of chars processed - ld (leadflg),a - ret -; -; process second, third and fourth characters of lead-in sequence -; -leadin: ld hl,exit ; fake ret to exit - push hl - ld hl,leadflg - ld (hl),0 ; clear lead-in counter in case error - cp 1 ; second char? (leadflg=1 processed first char) - jr nz,l1 - ld a,c ; what type of esc sequence? - res 7,a - cp 'G' ; greek character set? - jr z,dogreek - cp 'A' ; ascii character set? - jr z,doascii - cp 'R' ; delete line? - jr z,dodel - cp 'E' ; insert line? - jr z,doinst - cp '=' ; esc = sequence (cursor positioning) - ret nz ; error, exit - ld (hl),2 ; have processed second character of sequence - ret -l1: cp 2 ; third character? - jr nz,l2 - ld a,c ; row number+space - ld (row),a ; save for later use - ld (hl),3 ; have processed third character - ret -l2: cp 3 ; fourth character? - ret nz ; error, leadflg trashed by someone - - call clrcur ; remove cursor then move it - pop hl ; ret to exit not needed - ld hl,line1 ; process col # - ld a,c - sub ' ' ; remove ascii space bias -;patch by jim -; -l3: sub linlen -; - jr nc,l3 - add a,linlen - ld l,a - ld a,(row) - sub ' ' ; remove ascii space bias -l4: sub lines ; range 0 - lines - jr nc,l4 - add a,lines - ld de,colum ; add column to cursor pos till -l5: jp z,finsh ; # lines = 0 - add hl,de - dec a - jr l5 -; -FINSH: LD A,(HL) ; MAKE A CURSOR - CP SPACE ; SPACE - JR NZ,FIN1 ; IF SO THEN SPECIAL CURSOR CHAR - LD A,CURCHR -FIN1: SET 7,a - ld (hl),a - ld (cursor),hl ; save location -exit: ret ; all done - -; -; switch from ascii to greek -; -dogreek:ld a,greek ; greek char mask - ld (chrmsk),a - ret -; -; switch from greek to ascii -; -doascii:ld a,ascii ; ascii mask - ld (chrmsk),a - ret -; -; delete line, scroll up to current line, blank 24'th line -; -dodel: pop hl ; ret to exit not needed - call setup ; setup cpu regs for ldir - push de ; current line - jr z,delscr ; if setup set Z flag no scroll - ldir -delscr: ld hl,last1 ; blank last line - call cleol - pop hl ; current line - JR finsh -; -; insert a blank line at current row address, 24'th line lost -; -doinst: pop hl ; ret to exit not needed - call setup - push de ; current line - jr z,inscr ; no scroll - ld de,last1+127 - ld hl,last1-1 - lddr -inscr: pop hl ; current line - push hl - call cleol ; clear it - pop hl ; current row, colum=0 - JR finsh - -setup: call clrcur ; get current cursor position - call return ; to beginning of line - push hl ; save it - ex de,hl ; compute amount to move - ld hl,last1 ; last line of display - or a - sbc hl,de - ld b,h ; bc=length - ld c,l - pop hl ; current pos - push hl - ld de,128 ; set a pointer to beginning of next line - add hl,de ; hl=current+128 (next line) - pop de ; de=current - ld a,b ; is bc zero - or c - ret - -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 vidout - jr print - defb 0FFH ; because L80 tends to drop the last byte - -page -subttl RAM storage -.comment % -############################################################### -## ## -## System scratch RAM used by ROM software ## -## ## -############################################################### -## Last Update:05/31/82 [001] ## -############################################################### -% -.z80 -.xlist -; public sekdsk, sektrk, seksec, hstdsk, hsttrk, hstsec -; public sekhst, hstact, hstwrt, unacnt, unadsk, unatrk -; public unasec, erflag, rsflag, readop, wrtype, dmaadr -; public hstbuf, dsk, denflag, tracka, trackb, dirbuf, move -; public csva, alva, csvb, alvb, dpha, dphb, rd128, rd512 -; public leadflg, row, cursor, chrmsk, wrt128, wrt512, stack -; public dpbs, dpbd, tbl1, tbl2 -.list - -ramscratch equ 0FC00H ; scratch ram - -sekdsk equ ramscratch ;seek disk number -sektrk equ sekdsk+1 ;seek track number -seksec equ sektrk+2 ;seek sector number -hstdsk equ seksec+1 ;host disk number -hsttrk equ hstdsk+1 ;host track number -hstsec equ hsttrk+2 ;host sector number -sekhst equ hstsec+1 ;seek shr secshf -hstact equ sekhst+1 ;host active flag -hstwrt equ hstact+1 ;host written flag -unacnt equ hstwrt+1 ;unalloc rec cnt -unadsk equ unacnt+1 ;last unalloc disk -unatrk equ unadsk+1 ;last unalloc track -unasec equ unatrk+2 ;last unalloc sector -erflag equ unasec+1 ;error reporting -rsflag equ erflag+1 ;read sector flag -readop equ rsflag+1 ;1 if read operation -wrtype equ readop+1 ;write operation type -dmaadr equ wrtype+1 ;last dma address -hstbuf equ dmaadr+2 ;host buffer -dsk equ hstbuf+512 ; current disk drive -denflag equ dsk+1 ; density flag for current drive -tracka equ denflag+1 ; track of disk A (255=density unknown) -trackb equ tracka+1 ; track of disk B -csva equ trackb+1 ; directory check -alva equ csva+16 ; allocation map -csvb equ alva+25 -alvb equ csvb+16 -leadflg equ alvb+25 ; video leadin sequence count -row equ leadflg+1 ; temp store of rom number -cursor equ row+1 ; cursor address -chrmsk equ cursor+2 ; ascii/greek character set switch -dpha equ chrmsk+1 ; DPH for A -dphb equ dpha+17 ; DPH for B -dpbs equ dphb+17 ; single density dpb -dpbd equ dpbs+15 ; double density dpb -tbl1 equ dpbd+15 ; single density skew table -tbl2 equ tbl1+18 ; 512 byte sector skew table -move equ tbl2+10 ; move logical sector from hstbuf -rd128 equ move+15 ; routine to read 128 byte sector -rd512 equ rd128+7 ; routine to read 512 byte sector -wrt128 equ rd512+10 ; routine to write 128 byte sector -wrt512 equ wrt128+7 ; routine to wrtie 512 byte sector -rdwrtend equ rd128+150 ; end of read and write routines -dirbuf equ rdwrtend+1 ; bdos directory buffer - -stack equ 0FFFFH ; boot up stack space - end - \ No newline at end of file diff --git a/2006/toledo2/WASH.COM b/2006/toledo2/WASH.COM deleted file mode 100644 index fa6ee3176..000000000 Binary files a/2006/toledo2/WASH.COM and /dev/null differ diff --git a/2006/toledo2/WS33-1/PIP.COM b/2006/toledo2/WS33-1/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/WS33-1/PIP.COM and /dev/null differ diff --git a/2006/toledo2/WS33-1/WINSTALL.COM b/2006/toledo2/WS33-1/WINSTALL.COM deleted file mode 100644 index 4734c1031..000000000 Binary files a/2006/toledo2/WS33-1/WINSTALL.COM and /dev/null differ diff --git a/2006/toledo2/WS33-1/WS.INS b/2006/toledo2/WS33-1/WS.INS deleted file mode 100644 index fba431c0e..000000000 Binary files a/2006/toledo2/WS33-1/WS.INS and /dev/null differ diff --git a/2006/toledo2/WS33-2/PIP.COM b/2006/toledo2/WS33-2/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/WS33-2/PIP.COM and /dev/null differ diff --git a/2006/toledo2/WS33-2/PRINT.TST b/2006/toledo2/WS33-2/PRINT.TST deleted file mode 100644 index 4968b9935..000000000 Binary files a/2006/toledo2/WS33-2/PRINT.TST and /dev/null differ diff --git a/2006/toledo2/WS33-2/TYPEME b/2006/toledo2/WS33-2/TYPEME deleted file mode 100644 index aa7d533b9..000000000 --- a/2006/toledo2/WS33-2/TYPEME +++ /dev/null @@ -1,13 +0,0 @@ - -WHEN USING MICROPRO PRODUCTS ON THE DEC VT-18X COMPUTER, - -BE SURE NOT TO USE ^S (PRESSING THE 'S' KEY WHILE HOLDING - -THE 'CTRL' KEY DOWN). THIS WILL CAUSE ALL SCREEN OUTPUT TO - -HALT UNTIL ^Q IS TYPED. INSTEAD OF ^S, USE THE LEFT ARROW - -KEY (IF IT GENERATES ^S OR ^H) OR THE BACKSPACE KEY TO MOVE - -THE CURSOR LEFT. - \ No newline at end of file diff --git a/2006/toledo2/WS33-2/WSMSGS.OVR b/2006/toledo2/WS33-2/WSMSGS.OVR deleted file mode 100644 index b4fb5b598..000000000 Binary files a/2006/toledo2/WS33-2/WSMSGS.OVR and /dev/null differ diff --git a/2006/toledo2/WS33-2/WSOVLY1.OVR b/2006/toledo2/WS33-2/WSOVLY1.OVR deleted file mode 100644 index f041dad8f..000000000 Binary files a/2006/toledo2/WS33-2/WSOVLY1.OVR and /dev/null differ diff --git a/2006/toledo2/WS33-2/WSU.COM b/2006/toledo2/WS33-2/WSU.COM deleted file mode 100644 index e3e24dbd2..000000000 Binary files a/2006/toledo2/WS33-2/WSU.COM and /dev/null differ diff --git a/2006/toledo2/WS33-KPR/PIP.COM b/2006/toledo2/WS33-KPR/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/WS33-KPR/PIP.COM and /dev/null differ diff --git a/2006/toledo2/WS33-KPR/PRINT.TST b/2006/toledo2/WS33-KPR/PRINT.TST deleted file mode 100644 index 202e46170..000000000 --- a/2006/toledo2/WS33-KPR/PRINT.TST +++ /dev/null @@ -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ó  - - - 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  - -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® - \ No newline at end of file diff --git a/2006/toledo2/WS33-KPR/WINSTALL.COM b/2006/toledo2/WS33-KPR/WINSTALL.COM deleted file mode 100644 index 4734c1031..000000000 Binary files a/2006/toledo2/WS33-KPR/WINSTALL.COM and /dev/null differ diff --git a/2006/toledo2/WS33-KPR/WS.INS b/2006/toledo2/WS33-KPR/WS.INS deleted file mode 100644 index aabf07501..000000000 Binary files a/2006/toledo2/WS33-KPR/WS.INS and /dev/null differ diff --git a/2006/toledo2/WS33-KPR/WSMSGS.OVR b/2006/toledo2/WS33-KPR/WSMSGS.OVR deleted file mode 100644 index b4fb5b598..000000000 Binary files a/2006/toledo2/WS33-KPR/WSMSGS.OVR and /dev/null differ diff --git a/2006/toledo2/WS33-KPR/WSOVLY1.OVR b/2006/toledo2/WS33-KPR/WSOVLY1.OVR deleted file mode 100644 index 962fb5390..000000000 Binary files a/2006/toledo2/WS33-KPR/WSOVLY1.OVR and /dev/null differ diff --git a/2006/toledo2/WS33-KPR/WSU.COM b/2006/toledo2/WS33-KPR/WSU.COM deleted file mode 100644 index 5f7ac25b1..000000000 Binary files a/2006/toledo2/WS33-KPR/WSU.COM and /dev/null differ diff --git a/2006/toledo2/WS33/MAILMRGE.OVR b/2006/toledo2/WS33/MAILMRGE.OVR deleted file mode 100644 index a5a72aa5b..000000000 Binary files a/2006/toledo2/WS33/MAILMRGE.OVR and /dev/null differ diff --git a/2006/toledo2/WS33/PIP.COM b/2006/toledo2/WS33/PIP.COM deleted file mode 100644 index 85e14cc1a..000000000 Binary files a/2006/toledo2/WS33/PIP.COM and /dev/null differ diff --git a/2006/toledo2/WS33/WINSTALL.COM b/2006/toledo2/WS33/WINSTALL.COM deleted file mode 100644 index 4734c1031..000000000 Binary files a/2006/toledo2/WS33/WINSTALL.COM and /dev/null differ diff --git a/2006/toledo2/WS33/WS.COM b/2006/toledo2/WS33/WS.COM deleted file mode 100644 index 2a2975d61..000000000 Binary files a/2006/toledo2/WS33/WS.COM and /dev/null differ diff --git a/2006/toledo2/WS33/WS.INS b/2006/toledo2/WS33/WS.INS deleted file mode 100644 index 7454d236b..000000000 Binary files a/2006/toledo2/WS33/WS.INS and /dev/null differ diff --git a/2006/toledo2/WS33/WSMSGS.OVR b/2006/toledo2/WS33/WSMSGS.OVR deleted file mode 100644 index b4fb5b598..000000000 Binary files a/2006/toledo2/WS33/WSMSGS.OVR and /dev/null differ diff --git a/2006/toledo2/WS33/WSOVLY1.OVR b/2006/toledo2/WS33/WSOVLY1.OVR deleted file mode 100644 index 962fb5390..000000000 Binary files a/2006/toledo2/WS33/WSOVLY1.OVR and /dev/null differ diff --git a/2006/toledo2/XDIR.COM b/2006/toledo2/XDIR.COM deleted file mode 100644 index 3fac999d0..000000000 Binary files a/2006/toledo2/XDIR.COM and /dev/null differ diff --git a/2006/toledo2/XSUB.COM b/2006/toledo2/XSUB.COM deleted file mode 100644 index 15e86abfc..000000000 Binary files a/2006/toledo2/XSUB.COM and /dev/null differ diff --git a/bugs.md b/bugs.md index 60b79bbf4..24a471416 100644 --- a/bugs.md +++ b/bugs.md @@ -2506,17 +2506,6 @@ return without outputting a solution. If you can wait that long. ## 2006 toledo2 -### STATUS: missing file - please provide it -### Source code: [2006/toledo2/toledo2.c](2006/toledo2/toledo2.c) -### Information: [2006/toledo2/README.md](2006/toledo2/README.md) - -A file is missing from the archive linked to by the author so we have not been -able to add it. Cody tried a few of the other zip files at the website linked to -but no luck. Do you have the proper file? The file is `IMPORT.COM`. If you do -please provide a link or make a pull request, adding it to the repo, after -testing it to make sure it works in the program. - - ### STATUS: INABIAF - please **DO NOT** fix ### Source code: [2006/toledo2/toledo2.c](2006/toledo2/toledo2.c) ### Information: [2006/toledo2/README.md](2006/toledo2/README.md)