Mercurial > hg > Members > kono > nitros9-code

changeset 1741:94aaf037f7ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added for CO51
author boisy
date Fri, 07 Jan 2005 16:52:26 +0000
parents 7969f759a6a9
children ea3988b5403c
files level1/modules/term51.asm level1/modules/wordpakii.asm
diffstat 2 files changed, 104 insertions(+), 34 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/modules/term51.asm	Fri Jan 07 16:52:26 2005 +0000
@@ -0,0 +1,75 @@
+********************************************************************
+* TERM - 80 column device descriptor
+*
+* $Id$
+*
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
+* ------------------------------------------------------------------
+*          ????/??/??
+* From Tandy OS-9 Level One VR 02.00.00
+*
+* Modified from 80 col driver to suit 51 column software 
+* driver from Dragon Data OS-9, 2004-12-02 P.Harvey-Smith.
+*
+
+
+
+         nam   TERM
+         ttl   51 column device descriptor
+
+* Disassembled 98/08/23 17:19:25 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         use   scfdefs
+	 use   cciodefs	
+         endc
+
+tylg     set   Devic+Objct   
+atrv     set   ReEnt+rev
+rev      set   $00
+
+         mod   eom,name,tylg,atrv,mgrnam,drvnam
+
+         fcb   UPDAT.         mode byte
+         fcb   HW.Page        extended controller address
+         fdb   $C000          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   $01            backspace:0=bsp,1=bsp then sp & bsp
+         fcb   $00            delete:0=bsp over line,1=return
+         fcb   $01            echo:0=no echo
+         fcb   $01            auto line feed:0=off
+         fcb   $00            end of line null count
+         fcb   $01            pause:0=no end of page pause
+         fcb   24             lines per page
+         fcb   C$BSP          backspace character
+         fcb   C$DEL          delete line character
+         fcb   C$CR           end of record character
+         fcb   C$EOF          end of file character
+         fcb   C$RPRT         reprint line character
+         fcb   C$RPET         duplicate last line character
+         fcb   C$PAUS         pause character
+         fcb   C$INTR         interrupt character
+         fcb   C$QUIT         quit character
+         fcb   C$BSP          backspace echo character
+         fcb   C$BELL         line overflow character (bell)
+         fcb   ModCo51        init value for dev ctl reg
+         fcb   $00            baud rate
+         fdb   name           copy of descriptor name address
+         fcb   $00            acia xon char
+         fcb   $00            acia xoff char
+         fcb   51             (szx) number of columns for display
+         fcb   24             (szy) number of rows for display
+initsize equ   *
+
+name     fcs   /TERM/
+mgrnam   fcs   /SCF/
+drvnam   fcs   /CCIO/
+
+         emod
+eom      equ   *
+         end
+
--- a/level1/modules/wordpakii.asm	Fri Jan 07 16:51:22 2005 +0000
+++ b/level1/modules/wordpakii.asm	Fri Jan 07 16:52:26 2005 +0000
@@ -57,22 +57,22 @@
          fcb   $00 		R19
          fcb   $10 		R20
 
-start    bra   INIT
+start    bra   Init
          nop   
          IFEQ  CO80
-         lbra  READ
+         lbra  Read
          ENDC
-         lbra  WRITE
-         bra   GETSTAT
+         lbra  Write
+         bra   GetStat
          nop   
-         lbra  SETSTAT
+         lbra  SetStat
          IFEQ  CO80
-         lbra  TERM
+         lbra  Term
          ELSE
          rts
          ENDC
 
-INIT
+Init
          IFEQ  CO80
          pshs  dp,cc		save DP and CC
          orcc  #IntMasks	mask interrupts
@@ -130,7 +130,7 @@
          ENDC
 
 
-GETSTAT
+GetStat
          IFEQ  CO80
          cmpa  #SS.Ready
          bne   L00C9
@@ -143,7 +143,7 @@
          lbeq  L0181
          ldx   R$Y,y
          cmpa  #SS.Joy
-         lbeq  L03C4
+         lbeq  SSJOY
          cmpa  #SS.Cursr
          beq   CURSR
          cmpa  #SS.ScSiz
@@ -159,7 +159,7 @@
          cmpa  #$88
          beq   L00FC
          ENDC
-SETSTAT  ldb   #E$UnkSvc
+SetStat  ldb   #E$UnkSvc
 L00F5    orcc  #Carry
          rts   
 L00F8    lda   #$7F
@@ -225,8 +225,7 @@
          lbra  L056A
 
          IFEQ  CO80
-TERM
-         pshs  cc
+Term     pshs  cc
          orcc  #IRQMask
          ldd   >D.Clock			get original clock pointer
          std   >D.AltIRQ		save as alternate IRQ
@@ -458,7 +457,7 @@
          fcb   $1b
 
          IFEQ  CO80
-READ     leax  <$3B,u
+Read     leax  <$3B,u
          ldb   <$2E,u
          orcc  #IntMasks
          cmpb  <$2D,u
@@ -477,16 +476,16 @@
          clr   V.WAKE,u
          ldx   >D.Proc
          ldb   <$36,x
-         beq   READ
+         beq   Read
          cmpb  #$03
-L03C0    bhi   READ
+L03C0    bhi   Read
          coma  
          rts   
          ENDC
 
-L03C4    pshs  u,y,cc
+SSJOY    pshs  u,y,cc
          orcc  #IntMasks
-         ldu   <V.PIA,u
+         ldu   <V.PIA,u		get PIA address
          lda   #$FF
          sta   $02,u
          ldb   ,u
@@ -518,6 +517,7 @@
          std   $06,x
          clrb  
          puls  pc,u,y,cc
+
 L040B    sta   $01,u
          clrb  
          bsr   L041A
@@ -528,6 +528,7 @@
          lsrb  
          clra  
          rts   
+
 L041A    pshs  b
          lda   #$7F
          tfr   a,b
@@ -539,6 +540,7 @@
          tfr   a,b
          addb  ,s+
          rts   
+
 L042C    addb  #$02
          andb  #$FC
          pshs  b
@@ -618,7 +620,7 @@
          fdb   Do76-*	$037d
          fcb   $80
 
-WRITE
+Write
          IFEQ  CO80
          fcb   $6D,$C8,$2C
          lbne  L079C
@@ -648,8 +650,7 @@
 L04E2    ldd   ,y
          jmp   d,y
 
-Do57
-         lda   #$57
+Do57     lda   #$57
          bra   L04F4
 
 Do53     lda   #$53
@@ -762,7 +763,7 @@
 L05CC    rts   
 L05CD    ldd   <$34,u
          subd  <$32,u
-         cmpd  #$0780
+         cmpd  #SIZEX*SIZEY
          bmi   L05CC
          lbsr  L06AE
          ldx   <$32,u
@@ -819,14 +820,12 @@
 
 
 DoH01
-Do0F
-         ldx   <$32,u
+Do0F     ldx   <$32,u
          stx   <$34,u
          bra   L0693
 
 DoH09
-Do0B
-         ldx   <$34,u
+Do0B     ldx   <$34,u
          cmpx  <$32,u
          bls   L0696
          leax  <-$50,x
@@ -836,8 +835,7 @@
          bra   L0693
 
 DoH06
-Do09
-         ldd   <$34,u
+Do09     ldd   <$34,u
          addd  #SIZEX-1
          cmpd  <$36,u
          bhi   L068E
@@ -861,8 +859,7 @@
 
 Do41
 DoH04
-Do05
-         bsr   L06A1
+Do05     bsr   L06A1
          clrb  
          rts   
 L06A1    ldd   <$34,u
@@ -903,8 +900,7 @@
          bne   L06EB
          rts   
 
-Do48
-         ldx   <$34,u
+Do48     ldx   <$34,u
          tfr   x,y
          leax  <$4F,x
          pshs  x
@@ -919,8 +915,7 @@
          bsr   L06E9
          bra   L0696
 
-Do47
-         ldy   <$34,u
+Do47     ldy   <$34,u
          leay  <$4F,y
 L071A    leax  -$08,y
          bsr   L0733
@@ -1008,7 +1003,7 @@
          rts   
 L07D3    bsr   L07C6
 L07D5    lda   <$38,u
-         ldb   #$50
+         ldb   #SIZEX
          mul   
          ldx   <$32,u
          leax  d,x