CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / simtel / sigm / vols100 / vol179 / uioprts2.asm < prev next >

Wrap

Assembly Source File | 1994-07-13 | 16.5 KB | 702 lines

;---------------------------------------------------------- ; BSTAM Personality Module for Version 4.6 22-Jun-83 ; ; Prepared by: Adams and Hamilton, Inc. ; PO Box 932 ; Kalamazoo, Michigan 49009 ; (616) 342-0335 ; ; Routines are provided for the following devices; ; ; California Computer Systems 2710 * ; Godbout Interfacer 3 I/O Board * ; Heath/Zenith H-8 or H/Z-89/90 * ; Heath/Zenith 100 Computer <8085 CPU> * ; IMSAI SIO-2 (S-100) I/O Board fixed BR ; Morrow Design Decision or Multi/IO * ; North Star Horizon Computer fixed BR ; North Star HSIO-4 (S-100) IOB * ; Ohio Scientific C3 Computer fixed BR ; Sanyo MBC-1000 Computer fixed BR ; ; NOTE: "*" indicates software selectable I/O device ; ;---------------------------------------------------------- no equ 0 ;no = false yes equ not no ;yes = true ;========================================================== ; To install this I/O module all you need do is set your ; equate to 'yes' (ALL others should be set to 'no'). ;========================================================== ccs equ no ;CCS 2710 IO Board hz89 equ no ;Heath/Zenith 89 Computer hz100 equ no ;Heath Zenith 100 Computer horiz equ no ;North Star Horizon Computer hsio equ no ;North Star HSIO-4 I/O Board imsai equ no ;IMSAI SIO 2 I/O Board int3 equ no ;Godbout Interfacer 3 I/O Board dec1 equ yes ;Morrow Decision or Multi/IO Board osic3 equ no ;Ohio Scientific C3 Computer sanyo equ no ;Sanyo MBC-1000 Computer ; ;========================================================== ; Port Equates -- Alter ONLY if your hardware differs ;========================================================== if ccs data equ 78h ;Port D (Board base = 10h) endif ;ccs ; if hz89 data equ 0d8h ;Port 330Q endif ;hz89 ; if hz100 data equ 0edh ;Data Port stat equ 0ech ;Status Port endif ;hz100 ; if int3 data equ 10h ;all IO ports base address dev equ 5 ;Serial Port 5 endif ;int3 ; if dec1 data equ 48h ;all IO ports base address dev equ 2 ;Serial Port 2 endif ;dec1 ; if imsai or horiz data equ 04h ;data i/o port stat equ data+1 ;status port endif ;imsai or horiz ; if hsio base equ 10h ;address of HSIO-4 board port equ 0ch ;address of Port D addr equ base+port baud equ addr+0 ;baud port intr equ addr+1 ;interrupt port (not used here) data equ addr+2 ;data i/o port stat equ addr+3 ;status port endif ;hsio ; if osic3 data equ 0af03h ;data port stat equ data-1 ;status port endif ;osic3 ; if sanyo data equ 0a4h ;data i/o port stat equ data+1 ;status port endif ;sanyo ; ;========================================================== ;========================================================== ; Code starts here - There should be no reason to modify ; or change any routines below this line. ;========================================================== ;========================================================== ; Jump Table (Do NOT Alter) ; org 103h initil jmp initiu ;initialization routine insport jmp inspru ;status port routine errset jmp errstu ;error reset routine inport jmp inprtu ;read data port routine outport jmp outpru ;write data port routine usertne jmp useru ;user-defined routine ;---------------------------------------------------------- ; REMEMBER: All I/O devices should be made to 'look' like ; an INTEL 8251 chip. BSTAM assumes that device ; is being used in all installations. ;---------------------------------------------------------- ; This is the initialization routine. To be ; compatible with most BSTAM users, use the ; following initialization guide lines: ; ; 1. use 1 stop bit (optional - 2) ; 2. use 8 data bits (must) ; 3. use 1 start bit (must) ; 4. use 16x for clock rate (must) ; 5. use asynchronous mode only (must) ; initiu: call signon ;tell version number to user ; if dec1 ; call fprep ;prepare the io port endif ;dec1 ; if int3 call prep ;prepare the io port endif ;int3 ;------------------------ lxi h,6dh ; mov a,m ;and move from memory cpi '/' ;is an option specified? jnz ninit ;if not then bypass initialization ; if horiz or imsai or osic3 or sanyo call print ; db '(Initialization was performed on port)' db 13,10,0 ; jmp prtset ;make sure we don't go elsewhere endif ;horiz or imsai or osic3 or sanyo ; if ccs or hz89 or hsio or hz100 or int3 or dec1 call print ;otherwise announce initialization db '(Word Set to: 8d, 1S, NP Baud: ',0 inx h ;point to option byte mov a,m ;move from memory ani 7fh ;strip away parity bit cpi '1' ;is it a '110', '1200' or '19.2k'? jz hilo1 ;if yes, then go find out cpi '3' ;is it a '300' or '38.4k'? jz hilo3 ;if yes, then go find out cpi '4' ;is it a '450' or '4800'? jz hilo4 ;if yes, then go find out cpi '6' ;is it a '600'? jz check6 ;if yes, then double check cpi '2' ;is it a '2400'? jz check2 ;if yes, then double check cpi '9' ;is it a '9600'? jz check9 ;if yes, then double check jmp error ;bail out of BSTAM ;------------------------ hilo1: inx h ;get second character mov a,m ;move from memory to a ani 7fh ;strip away parity bit cpi '1' ;ahah, so it's (ughhh) '110' baud jz init11 ;set to 110 baud cpi '2' ;so he likes to talk 212 jz init12 ;set to 1200 baud cpi '9' ;guess the man crosstalks 'puter's jz init19 ;set to 19.2k baud jmp error ;bail out of BSTAM ; hilo3: inx h ;get second character mov a,m ;move from memory to a ani 7fh ;strip away parity bit cpi '0' ;he wants to talk 103 jz init30 ;set to 300 baud cpi '8' ;a real fast talker jz init38 ;set to 38.4k baud jmp error ;bail out of BSTAM ; hilo4: inx h ;get second character mov a,m ;move from memory to a ani 7fh ;strip away parity bit cpi '5' ;so he wants to speed up 103 modems jz init45 ;set to 450 baud cpi '8' ;we've got 'puters talking jz init48 ;set to 4800 baud jmp error ;bail out of BSTAM ;------------------------ check2: inx h ;get second character mov a,m ;move from memory to a ani 7fh ;strip away parity bit cpi '4' ;now we're sure he wants 2400 jz init24 ;set to 2.4k baud jmp error ;bail out of BSTAM ; check6: inx h ;get second character mov a,m ;move from memory to a ani 7fh ;strip away parity bit cpi '0' ;now we're sure he wants 600 jz init60 ;set to 600 baud jmp error ;bail out of BSTAM ; check9: inx h ;get second character mov a,m ;move from memory to a ani 7fh ;strip away parity bit cpi '6' ;now we're sure he wants 9600 jz init96 ;set to 9600 baud jmp error ;bail out of BSTAM ;------------------------ init11: call print ; db ' 110)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,1087 ;load 110 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,7 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init30: call print ; db ' 300)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,384 ;load 300 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,6 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init45: if ccs or hz89 or int3 or dec1 call print ; db ' 450)',13,10,0 push h ;save hl lxi h,256 ;load 450 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio jmp error ;no such BR on HSIO-4 endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init60: call print ; db ' 600)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,192 ;load 600 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,5 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init12: call print ; db ' 1.2k)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,96 ;load 1200 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,4 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init24: call print ; db ' 2.4k)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,48 ;load 2400 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,3 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init48: call print ; db ' 4.8k)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,24 ;load 4800 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,2 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init96: call print ; db ' 9.6k)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,12 ;load 9600 baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,1 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init19: call print ; db '19.2k)',13,10,0 ; if ccs or hz89 or int3 or dec1 push h ;save hl lxi h,6 ;load 19.2k baud endif ;ccs or hz89 or int3 or dec1 ; if hsio mvi a,0 ; out baud ;send it to I/O endif ;hsio ; jmp iostrt ;reset & rearm I/O ; init38: if ccs or hz89 or int3 or dec1 call print ; db '38.4k)',13,10,0 push h ;save hl lxi h,3 ;load 38.4k baud endif ;ccs or hz89 or int3 or dec1 ; if hsio jmp error ;no such BR on HSIO-4 endif ;hsio ;------------------------ if ccs or hz89 or int3 or dec1 iostrt: if dec1 call prep ;inform the pic endif ;dec1 ; mvi a,83h ; out data+3 ; mov a,l ; out data+0 ; mov a,h ; out data+1 ; mvi a,3 ;turn on dtr out data+3 ; out data+4 ; pop h ;restore hl ret ;return to BSTAM endif ;ccs or hz89 or int3 or dec1 ; if hsio push b ;save bc push h ;save hl lxi h,inits ;point to commands mvi b,5 ;number of commands to be issued ; initlp: mov a,m ;move command to Reg A inx h ;increment the point3 call statlp ;send it to the 8251 dcr b ;decrement the counter jnz initlp ;loop until B=0 in data ;gobble up garbage in data ;gobble up garbage pop h ;restore hl pop b ;restore bc ret ;return to BSTAM ; statlp: out stat ;send it to the 8251 nop ! nop ! nop ! nop ! nop ! nop ret ;return to routine ; inits: db 03h,03h,40h,4eh,37h endif ;hsio ; endif ;ccs or hz89 or hsio or hz100 or int3 or dec1 ;------------------------ if horiz or imsai or sanyo prtset: push b ;save bc push h ;save hl lxi h,inits ;point to commands endif ;horiz or imsai or sanyo ; if horiz or imsai mvi b,5 ;number of commands to be issued endif ;horiz or imsai ; if sanyo mvi b,3 ;number of commands to be issued endif ;sanyo ; if horiz or imsai or sanyo initlp: mov a,m ;move command to Reg A inx h ;increment the point3 call statlp ;send it to the 8251 dcr b ;decrement the counter jnz initlp ;loop until B=0 endif ;horiz or imsai or sanyo ; if horiz or imsai in data ;gobble up garbage in data ;gobble up garbage endif ;horiz or imsai ; if horiz or imsai or sanyo pop h ;restore hl pop b ;restore bc ret ;return to BSTAM ; statlp: out stat ;send it to the 8251 nop ! nop ! nop ! nop ! nop ! nop ret ;return to routine endif ;horiz or imsai or sanyo ; if horiz or imsai inits: db 03h,03h,40h,4eh,37h endif ;horiz or imsai ; if sanyo inits: db 40h,4eh,37h endif ;sanyo ; if osic3 prtset: mvi a,0 ;blank out register a nop ! nop ! nop ;screw around a while mvi a,03h ; sta stat ;send it to the 6850 mvi a,51h ; sta stat ;send it to the 6850 endif ;osic3 ; ret ;return to BSTAM ; ;---------------------------------------------------------- ; This is the status read port routine. ; When exiting this routine, BSTAM expects ; the following bits to be set in Register A, ; if needed: ; ; 1. 20 bit set if framing error ; 2. 10 bit set if overrun error ; 3. 08 bit set if parity error ; 4. 04 bit set if transmitter empty ; 5. 02 bit set if receiver ready ; 6. 01 bit set if transmitter ready ; 7. do not set the 80 bit or 40 bit ; ; inspru: if horiz or hsio or hz100 or imsai or sanyo in stat ;input status port endif ;horiz or hsio or hz100 or imsai or sanyo ; if int3 or dec1 call prep ;prepare the io endif ;int3 or dec1 ; if ccs or hz89 or int3 or dec1 in data+5 ; ani 21h ; push b ;save bc rlc ; mov b,a ;save it rlc ; rlc ; ora b ; pop b ;restore bc ani 3 ; ori 4 ; endif ;ccs or hz89 or int3 or dec1 ; if osic3 push b ;save bc lda stat ;get status mov b,a ;and tuck it away ani 2 ;isolate rxrdy rar ; mov c,a ;save rxrdy mov a,b ;untuck it ani 1 ;isolate txrdy ral ;rotate left ora c ;add it back pop b ;restore bc endif ;osic3 ; ret ;return to BSTAM ; ;---------------------------------------------------------- ; This is the error reset routine. OSI does NOT reset 6850. ; errstu: if horiz or hsio or hz100 or imsai or sanyo mvi a,37h ;reset fe, pe & oe out stat ;send it to 8251 endif ;horiz or hsio or hz100 or imsai or sanyo ; if int3 or dec1 call prep ;do this to insure no I/O lockup ;we won't reset here so return endif ;int3 or dec1 ; ret ;return to BSTAM ; ;---------------------------------------------------------- ; This is the read data port routine. ; Before this routine is entered, the 02 bit of ; the status read routine must have been set. ; Do not clear the 80 bit from the data input port. ; Return with Register A loaded with input data. ; inprtu: if not osic3 if int3 or dec1 call prep ;prepare the io endif ;int3 or dec1 ; in data ;get data from port endif ;not osic3 ; if osic3 lda data endif ;osic3 ; ret ;return to BSTAM ; ;---------------------------------------------------------- ; This is the write data port routine. ; Before this routine is entered, the 04 bit & 01 bit ; of status read must be set. ; ; Do not clear the 80 bit from the data output port. ; Register A contains the output data. ; outpru: if not osic3 if int3 or dec1 call prep ;prepare the io endif ;int3 or dec1 ; out data ;send data to remote cpu endif ;not osic3 ; if osic3 sta data endif ;osic3 ; ret ;return to BSTAM ; ;---------------------------------------------------------- ; This is the device driver signon routine ; signon: call print db 13,10,10,7 db 'Adams and Hamilton, Inc. Kalamazoo, MI' db 13,10 ; if ccs db 'CCS 2710 Port D ' endif ;ccs ; if hz89 db 'Heath/Zenith 8 or 89/90 ' endif ;hz89 ; if hz100 db 'Zenith 100 <8085 CPU> ' endif ;hz100 ; if horiz db 'North Star Horizon ' endif ;horiz ; if hsio db 'North Star HSIO-4 ' endif ;hsio ; if imsai db 'Imsai SIO-2 Port B ' endif ;imsai ; if int3 db 'Godbout Interfacer 3 ' endif ;int3 ; if dec1 db 'Morrow Design Multi/IO ' endif ;dec1 ; if osic3 db 'Ohio Scientific C3 ' endif ;osic3 ; if sanyo db 'Sanyo MBC-1000 ' endif ;sanyo ; if ccs or hz89 or int3 or dec1 db '(110-38.4 kb)' endif ;ccs or hz89 or int3 or dec1 ; if hsio or hz100 db '(110-19.2 kB)' endif ;hsio or hz100 ; if imsai or horiz or osic3 or sanyo db '(Fixed Baud Rate)' endif ;imsai or horiz or osic3 or sanyo ; db 13,10,0 ret ;return to routine ; print: xthl ; push b ! push d ; ; ploop: mov e,m ;move from ram inx h ;increment the count mvi a,0 ;let's see if we're cmp e ;at the end? jz pend ;bail out if so push h ;else save hl mvi c,6 ;and do.. call 0005 ;.. a print pop h ;restore hl jmp ploop ;loop until '0' is encountered ; pend: pop d ! pop b ;restore it all xthl ; ret ; ninit: call print ; db 13,13 ; db '(No initialization performed by BSTAM)' db 13,10,0 ret ;return to BSTAM ; error: call print ; db 'ERROR)',13,10,13,10,7 db '*** BAUD RATE ERROR - PROGRAM ABORTING ' db '***',13,10,7,0 jmp 0000 ;bail out of BSTAM ; ;---------------------------------------------------------- ; This is the io preparation area for Morrow & God- ; bout I/O Boards (S-100) ; if int3 prep: mvi a,dev ;load Serial Port 5 out data+7 ;inform I/O board ret ;return to routine endif ;int3 ; if dec1 fprep: push d ;save de push h ;save hl lhld 1 ;point to wboot addr lxi d,37h ;offset for PIC dad d ;add 'em together shld grpad ;store 'em pop h ;restore hl pop d ;restore de ; prep: push h ;save hl push psw ;save psw lhld grpad ;get the group address mov a,m ;move it to Register A ori dev ;Serial Port P2 out data+7 ;inform I/O board pop psw ;restore psw pop h ;restore hl ret ;return to routine ; grpad: ds 2 ;PIC address stored here endif ;dec1 ; ;---------------------------------------------------------- useru: ret ;return to BSTAM ;---------------------------------------------------------- end