Mercurial > hg > Members > kono > nitros9-code
changeset 351:486e94f18be0
Added Disto specific modules
| author | boisy |
|---|---|
| date | Thu, 25 Jul 2002 05:05:16 +0000 |
| parents | 2c13557a04d6 |
| children | a9169e6c5f3f |
| files | 3rdparty/drivers/disto/defsfile 3rdparty/drivers/disto/makefile 3rdparty/drivers/disto/parallel.asm 3rdparty/drivers/disto/pp.asm |
| diffstat | 4 files changed, 170 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/drivers/disto/defsfile Thu Jul 25 05:05:16 2002 +0000 @@ -0,0 +1,4 @@ +Level equ 2 + use os9defs + use scfdefs + use systype
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/drivers/disto/makefile Thu Jul 25 05:05:16 2002 +0000 @@ -0,0 +1,13 @@ +include ../../../Makefile.rules + +DEPENDS = ./Makefile +DRVRS = parallel.dr +DESCS = pp.dd + +ALLOBJS = $(DRVRS) $(DESCS) + +all: $(ALLOBJS) $(DEPENDS) + +clean: + $(RM) $(ALLOBJS) +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/drivers/disto/parallel.asm Thu Jul 25 05:05:16 2002 +0000 @@ -0,0 +1,97 @@ +******************************************************************** +* Parallel - Disto Parallel Printer driver +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 12 ??? + + nam Parallel + ttl Disto Parallel Printer driver + +* Disassembled 98/08/25 13:20:51 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Drivr+Objct +atrv set ReEnt+rev +rev set $01 +edition set 12 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 29 +u001D rmb 1 +u001E rmb 1 +u001F rmb 1 +size equ . + + fcb UPDAT. + +name fcs /Parallel/ + fcb edition + +start lbra Init + lbra Read + lbra Write + lbra GetStat + lbra SetStat + lbra Term + +Read comb + ldb #E$BMode + rts + +Write ldb >MPI.Slct + andb #$33 + pshs b + ldb #$33 + stb >MPI.Slct + tst >$FF52 + bmi Nap +L003E sta >$FF52 + sta >$FF52 + puls b + stb >MPI.Slct + clrb + rts + +Nap ldx #$0001 + os9 F$Sleep + tst >$FF52 + bpl L003E + bra Nap + +SetStat comb + ldb #E$UnkSvc + rts + +GetStat cmpa #SS.ScSiz + bne SetStat + ldx PD.RGS,y + clra + ldb <u001D,u + std R$X,x + ldb <u001E,u + std R$Y,x +Term clra + lbra Write + lbra Write + lbra Write + clrb + rts + +Init ldd <$2C,y + std <u001D,u + lda <,y + sta <u001F,u + clrb + rts + + emod +eom equ * + end +
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/drivers/disto/pp.asm Thu Jul 25 05:05:16 2002 +0000 @@ -0,0 +1,56 @@ + nam P + ttl Disto Parallel Port device descriptor + +* Disassembled 98/08/25 13:20:40 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Devic+Objct +atrv set ReEnt+rev +rev set $01 + + mod eom,name,tylg,atrv,mgrnam,drvnam + + fcb READ.+WRITE. mode byte + fcb $07 extended controller address + fdb $FF52 physical controller address + fcb initsize-*-1 initilization table size + fcb DT.SCF device type:0=scf,1=rbf,2=pipe,3=scf + fcb $00 case:0=up&lower,1=upper only + fcb $00 backspace:0=bsp,1=bsp then sp & bsp + fcb $01 delete:0=bsp over line,1=return + fcb $00 echo:0=no echo + fcb $01 auto line feed:0=off + fcb $00 end of line null count + fcb $00 pause:0=no end of page pause + fcb 66 lines per page + fcb C$BSP backspace character + fcb C$DEL delete line character + fcb C$CR end of record character + fcb $00 end of file character + fcb C$RPRT reprint line character + fcb C$RPET duplicate last line character + fcb C$PAUS pause character + fcb $00 interrupt character + fcb $00 quit character + fcb $5F backspace echo character + fcb C$BELL line overflow character (bell) + fcb $00 init value for dev ctl reg + fcb B9600 baud rate + fdb name copy of descriptor name address + fcb $00 acia xon char + fcb $00 acia xoff char + fcb 80 (szx) number of columns for display + fcb 66 (szy) number of rows for display +initsize equ * + +name fcs /p/ +mgrnam fcs /SCF/ +drvnam fcs /Parallel/ + + emod +eom equ * + end +