# HG changeset patch
# User boisy
# Date 1062278234 0
# Node ID d13864ef3317447079a2c04461dd59314f940ce1
# Parent  adad42855d76f73e65b641b072af4315b4192eab
Changed to rev 0

diff -r adad42855d76 -r d13864ef3317 level1/modules/nil.asm
--- a/level1/modules/nil.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level1/modules/nil.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -14,9 +14,9 @@
          endc  
 
 Edtn     equ   1
-Vrsn     equ   1
+rev      equ   0
 
-         mod   ModSize,DvcNam,Devic+Objct,ReEnt+Vrsn,MgrNam,DrvNam
+         mod   ModSize,DvcNam,Devic+Objct,ReEnt+rev,MgrNam,DrvNam
 
          fcb   UPDAT.     access mode(s)
          fcb   $07        hardware page
diff -r adad42855d76 -r d13864ef3317 level1/modules/vrn.asm
--- a/level1/modules/vrn.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level1/modules/vrn.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -56,7 +56,7 @@
 RAMTbls  rmb   RTCount*RTSize space for RAM tables
 VMem     equ   .
 
-rev      set   $01
+rev      set   $00
 edition  set   1
 
          mod   VEnd,VName,Drivr+Objct,ReEnt+rev,VEntry,VMem
diff -r adad42855d76 -r d13864ef3317 level2/modules/cc3disk.asm
--- a/level2/modules/cc3disk.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/cc3disk.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -35,7 +35,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   11
 
          mod   eom,name,tylg,atrv,start,size
diff -r adad42855d76 -r d13864ef3317 level2/modules/cc3diskdesc.asm
--- a/level2/modules/cc3diskdesc.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/cc3diskdesc.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 DNum     set   0
 Type     set   TYP.CCF+TYP.5
diff -r adad42855d76 -r d13864ef3317 level2/modules/clock.asm
--- a/level2/modules/clock.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/clock.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -33,7 +33,7 @@
 
          ifp1            
          use   defsfile  
-         endc            
+         ENDC            
 
 Edtn     equ   9         
 Vrsn     equ   5         
@@ -103,14 +103,14 @@
          bra   virqent   
 
 virqloop equ   *         
-         ifgt  Level-2   
+         IFGT  Level-2   
          ldd   2,y        Get Level 3 extended map type
          orcc  #IntMasks 
          sta   >$0643    
          stb   >$0645    
          std   >$FFA1    
          andcc  #^IntMasks
-         endc            
+         ENDC            
 
          ldd   Vi.Cnt,x   Decrement tick count
          IFNE  H6309     
@@ -131,7 +131,7 @@
 virqent  ldx   ,y++      
          bne   virqloop  
 
-         ifgt  Level-2   
+         IFGT  Level-2   
          puls  d         
          orcc  #Carry    
          stb   >$0643    
@@ -140,28 +140,28 @@
          stb   >$0645    
          stb   >$FFA1    
          andcc  #^IntMasks
-         else            
+         ELSE            
          puls  a          Get VIRQ status flag: high bit set if VIRQ
-         endc            
+         ENDC            
 
          ora   <D.IRQS    Check to see if other hardware IRQ pending.
          bita  #%10110111 Any V/IRQ interrupts pending?
          beq   toggle    
-         ifgt  Level-2   
+         IFGT  Level-2   
          lbsr  DoPoll     Yes, go service them.
-         else            
+         ELSE            
          bsr   DoPoll     Yes, go service them.
-         endc            
+         ENDC            
          bra   KbdCheck  
 toggle   equ   *         
-         ifgt  Level-2   
+         IFGT  Level-2   
          lbsr  DoToggle   No, toggle GIME anyway
-         else            
+         ELSE            
          bsr   DoToggle   No, toggle GIME anyway
-         endc            
+         ENDC            
 
 KbdCheck equ   *         
-         ifgt  Level-2   
+         IFGT  Level-2   
          lda   >$0643     grab current map type
          ldb   >$0645    
          pshs  d          save it
@@ -172,18 +172,18 @@
          inca            
          sta   >$0645    
          sta   >$FFA2     map in SCF, CC3IO, WindInt, etc.
-         endc            
+         ENDC            
 
          jsr   [>D.AltIRQ] go update mouse, gfx cursor, keyboard, etc.
 
-         ifgt  Level-2   
+         IFGT  Level-2   
          puls  d          restore original map type ---x
          orcc  #IntMasks 
          sta   >$0643     into system DAT image ---x
          stb   >$0645    
          std   >$FFA1     and into RAM ---x
          andcc  #$AF      
-         endc            
+         ENDC            
 
          dec   <D.Tick    End of second?
          bne   VIRQend    No, skip time update and alarm check
@@ -238,23 +238,23 @@
 * Call [D.Poll] until all interrupts have been handled
 *
 Dopoll                   
-         ifgt  Level-2   
+         IFGT  Level-2   
          lda   >$0643     Level 3: get map type
          ldb   >$0645    
          pshs  d          save for later
-         endc            
+         ENDC            
 Dopoll.i                 
          jsr   [>D.Poll]  Call poll routine
          bcc   DoPoll.i   Until error (error -> no interrupt found)
 
-         ifgt  Level-2   
+         IFGT  Level-2   
          puls  d         
          orcc  #IntMasks 
          sta   >$0643    
          stb   >$0645    
          std   >$FFA1    
          andcc  #^IntMasks
-         endc            
+         ENDC            
 
 *
 * Reset GIME to avoid missed IRQs
@@ -283,11 +283,11 @@
          ldb   PollCnt,x  Number of polling table entries from INIT
          ldx   R$X,u      Zero means delete entry
          beq   RemVIRQ   
-         ifgt  Level-2   
+         IFGT  Level-2   
          bra   FindVIRQ   ---x
 
 v.loop   leay  4,y        ---x
-         endc            
+         ENDC            
 FindVIRQ ldx   ,y++       Is VIRQ entry null?
          beq   AddVIRQ    If yes, add entry here
          decb            
@@ -298,27 +298,27 @@
          rts             
 
 AddVIRQ                  
-         ifgt  Level-2   
+         IFGT  Level-2   
          ldx   R$Y,u     
          stx   ,y        
          lda   >$0643    
          ldb   >$0645    
          std   2,y       
-         else            
+         ELSE            
          leay  -2,y       point to first null VIRQ entry
          ldx   R$Y,u     
          stx   ,y        
-         endc            
+         ENDC            
          ldy   R$D,u     
          sty   ,x        
          bra   virqexit  
 
-         ifgt  Level-2   
+         IFGT  Level-2   
 v.chk    leay  4,y       
 RemVIRQ  ldx   ,y        
-         else            
+         ELSE            
 RemVIRQ  ldx   ,y++      
-         endc            
+         ENDC            
          beq   virqexit  
          cmpx  R$Y,u     
          bne   RemVIRQ   
@@ -329,21 +329,22 @@
 
 DelVIRQ  pshs  x,y       
 DelVLup                  
-         ifgt  Level-2   
+         IFGT  Level-2   
          ldq              ,y++		move entries up in table
          leay  2,y       
          stq              -8,y
          bne   DelVLup   
          puls  x,y,pc    
-         else            
+         ELSE            
          ldx   ,y++       move entries up in table
          stx   -4,y      
          bne   DelVLup   
          puls  x,y       
          leay  -2,y      
          rts             
-         endc            
+         ENDC            
 
+         IFGT  Level-1
 *------------------------------------------------------------
 *
 * Handle F$Alarm call
@@ -375,18 +376,31 @@
 AlarmErr comb            
          ldb   #E$IllArg 
          rts             
+         ENDC
 
 *------------------------------------------------------------
 *
 * Handle F$Time System call
 *
-F.Time   ldx   #D.Time    Address of system time packet
+F.Time   equ   *
+         IFGT  Level-1
+         ldx   #D.Time    Address of system time packet
 RetTime  ldy   <D.Proc    Get pointer to current proc descriptor
          ldb   P$Task,y   Process Task number
          lda   <D.SysTsk  From System Task
          ldu   R$X,u     
 STime.Mv ldy   #6         Move 6 bytes
 FMove    os9   F$Move    
+         ELSE
+         ldx   R$X,u	get pointer to caller's space
+         ldd   <D.Year	get year and month
+         std   ,x
+         ldd   <D.Day	get day and hour
+         std   2,x
+         ldd   <D.Min	get minute and second
+         std   4,x
+         clrb
+         ENDC
          rts             
 
 *------------------------------------------------------------
@@ -396,12 +410,23 @@
 * First, copy time packet from user address space to system time
 * variables, then fall through to code to update RTC.
 *
-F.STime  ldx   <D.Proc    Caller's process descriptor
+F.STime  equ  *
+         IFGT  Level-1
+         ldx   <D.Proc    Caller's process descriptor
          lda   P$Task,x   Source is in user map
          ldx   R$X,u      Address of caller's time packet
          ldu   #D.Time    Destination address
          ldb   <D.SysTsk  Destination is in system map
          bsr   STime.Mv   Get time packet (ignore errors)
+         ELSE
+         ldx   R$X,u
+         ldd   ,x
+         std   <D.Year
+         ldd   2,x
+         std   <D.Day
+         ldd   4,x
+         std   <D.Min
+         ENDC
          lda   #TkPerSec  Reset to start of second
          sta   <D.Tick   
 
@@ -446,12 +471,15 @@
          pshs  cc         save IRQ enable status (and Carry clear)
          orcc  #IntMasks  stop interrupts
 
+         IFGT  Level-1
+* Note: this code can go away once we have a rel_50hz
          IFEQ  TkPerSec-50
          ldb   <D.VIDMD   get video mode register copy
          orb   #$08       set 50 Hz VSYNC bit
          stb   <D.VIDMD   save video mode register copy
          stb   >$FF98     set 50 Hz VSYNC
          ENDC            
+         ENDC
 
          sta   1,x        enable DDRA
          sta   ,x         set port A all inputs
@@ -476,10 +504,13 @@
          stx   <D.VIRQ   
          leay  NewSvc,pcr insert syscalls
          os9   F$SSvc    
+         IFGT  Level-1
+* H6309 optimization opportunity here using oim
          lda   <D.IRQER   get shadow GIME IRQ enable register
          ora   #$08       set VBORD bit
          sta   <D.IRQER   save shadow register
          sta   >IRQEnR    enable GIME VBORD IRQs
+         ENDC
 
 * Call Clock2 init routine
          ldy   <D.Clock2  get entry point to Clock2
diff -r adad42855d76 -r d13864ef3317 level2/modules/ddr0_128k.asm
--- a/level2/modules/ddr0_128k.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/ddr0_128k.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/ddr0_192k.asm
--- a/level2/modules/ddr0_192k.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/ddr0_192k.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/ddr0_8k.asm
--- a/level2/modules/ddr0_8k.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/ddr0_8k.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/ddr0_96k.asm
--- a/level2/modules/ddr0_96k.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/ddr0_96k.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/ftdd.asm
--- a/level2/modules/ftdd.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/ftdd.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -14,9 +14,9 @@
          endc  
 
 Edtn     equ   1
-Vrsn     equ   1
+rev      equ   0
 
-         mod   ModSize,DvcNam,Devic+Objct,ReEnt+Vrsn,MgrNam,DrvNam
+         mod   ModSize,DvcNam,Devic+Objct,ReEnt+rev,MgrNam,DrvNam
 
          fcb   UPDAT.     access mode(s)
          fcb   $07        hardware page
diff -r adad42855d76 -r d13864ef3317 level2/modules/h0_10.asm
--- a/level2/modules/h0_10.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/h0_10.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/h0_15.asm
--- a/level2/modules/h0_15.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/h0_15.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/h0_35.asm
--- a/level2/modules/h0_35.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/h0_35.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/h1_10.asm
--- a/level2/modules/h1_10.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/h1_10.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/h1_15.asm
--- a/level2/modules/h1_15.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/h1_15.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/h1_35.asm
--- a/level2/modules/h1_35.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/h1_35.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -20,7 +20,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/init.asm
--- a/level2/modules/init.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/init.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -24,7 +24,7 @@
 
 tylg     set   Systm+$00
 atrv     set   ReEnt+rev
-rev      set   $02
+rev      set   $00
 edition  set   1
 
          mod   eom,name,tylg,atrv,$0FE0,$0015
diff -r adad42855d76 -r d13864ef3317 level2/modules/krnp3_perr.asm
--- a/level2/modules/krnp3_perr.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/krnp3_perr.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -58,10 +58,10 @@
          endc  
 
 type     set   Systm      ;System module, 6809 object code
-revs     set   ReEnt+1    ;Sharable, first revision
+revs     set   0          ;
 edition  set   1
 
-         mod   eom,name,type,revs,entry,256
+         mod   eom,name,type,ReEnt+revs,entry,256
 
 name     fcs   "OS9p3"
          fcb   edition
diff -r adad42855d76 -r d13864ef3317 level2/modules/krnp4_regdump.asm
--- a/level2/modules/krnp4_regdump.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/krnp4_regdump.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -30,7 +30,7 @@
 
 tylg     set   systm+objct
 atrv     set   reent+revision
-revision set   1
+revision set   0
 edition  set   1
 
          mod   eom,name,tylg,atrv,start,0
diff -r adad42855d76 -r d13864ef3317 level2/modules/m1.asm
--- a/level2/modules/m1.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/m1.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/m2.asm
--- a/level2/modules/m2.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/m2.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/md.asm
--- a/level2/modules/md.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/md.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -16,7 +16,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/modpak.asm
--- a/level2/modules/modpak.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/modpak.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   14
 
          mod   eom,name,tylg,atrv,start,size
diff -r adad42855d76 -r d13864ef3317 level2/modules/p.asm
--- a/level2/modules/p.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/p.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/printer.asm
--- a/level2/modules/printer.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/printer.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -23,7 +23,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+Rev
-rev      set   $01
+rev      set   $00
 edition  set   13
 
          mod   eom,name,tylg,atrv,Start,Size
diff -r adad42855d76 -r d13864ef3317 level2/modules/r0.asm
--- a/level2/modules/r0.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/r0.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -16,7 +16,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 RAMSize  set   128
 SAS      set   4
diff -r adad42855d76 -r d13864ef3317 level2/modules/rx.asm
--- a/level2/modules/rx.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/rx.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -15,7 +15,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev 
-rev      set   $01       
+rev      set   $00       
 
 Sectors  set   512       
 SAS      set   4         
diff -r adad42855d76 -r d13864ef3317 level2/modules/sio.asm
--- a/level2/modules/sio.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/sio.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   9
 
          mod   eom,name,tylg,atrv,start,size
diff -r adad42855d76 -r d13864ef3317 level2/modules/snddrv_cc3.asm
--- a/level2/modules/snddrv_cc3.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/snddrv_cc3.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -27,7 +27,7 @@
 
 * SYSTEM MAP GLOBALS:
 
-rev      set   1
+rev      set   0
 edition  set   3
 
          mod   sndlen,sndnam,systm+objct,reent+rev,entry,0
diff -r adad42855d76 -r d13864ef3317 level2/modules/ssp.asm
--- a/level2/modules/ssp.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/ssp.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -18,7 +18,7 @@
 
 PageAddr equ   $07        extended page address (set to $FF for level 1)
 PortAddr equ   $FF7D      Speech-Sound Pak base address
-SVrsn    equ   $01
+SVrsn    equ   $00
 
          mod   SEnd,SNam,Devic+Objct,ReEnt+SVrsn,MgrNam,DrivrNam
          fcb   SHARE.+PWRIT.+WRITE. device capabilities
diff -r adad42855d76 -r d13864ef3317 level2/modules/sspak.asm
--- a/level2/modules/sspak.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/sspak.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -42,7 +42,7 @@
 SSPReset equ   $00        SSPak reset register offset
 SSPStat  equ   $01        SSPak status register offset
 
-rev      equ   $01
+rev      equ   $00
 edition  set   1
 
          mod   SEnd,SNam,Drivr+Objct,ReEnt+rev,SEntry,SMem
diff -r adad42855d76 -r d13864ef3317 level2/modules/t1.asm
--- a/level2/modules/t1.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/t1.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/t2_dacia.asm
--- a/level2/modules/t2_dacia.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/t2_dacia.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/t2_s16550.asm
--- a/level2/modules/t2_s16550.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/t2_s16550.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/t2_sacia.asm
--- a/level2/modules/t2_sacia.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/t2_sacia.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/t3_dacia.asm
--- a/level2/modules/t3_dacia.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/t3_dacia.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/t3_sacia.asm
--- a/level2/modules/t3_sacia.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/t3_sacia.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/term_t1.asm
--- a/level2/modules/term_t1.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/term_t1.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
diff -r adad42855d76 -r d13864ef3317 level2/modules/term_vdg.asm
--- a/level2/modules/term_vdg.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/term_vdg.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/term_win40.asm
--- a/level2/modules/term_win40.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/term_win40.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   40         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/term_win80.asm
--- a/level2/modules/term_win80.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/term_win80.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   80         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v1.asm
--- a/level2/modules/v1.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v1.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v2.asm
--- a/level2/modules/v2.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v2.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v3.asm
--- a/level2/modules/v3.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v3.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v4.asm
--- a/level2/modules/v4.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v4.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v5.asm
--- a/level2/modules/v5.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v5.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v6.asm
--- a/level2/modules/v6.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v6.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/v7.asm
--- a/level2/modules/v7.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/v7.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   32         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/vdgint.asm
--- a/level2/modules/vdgint.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/vdgint.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -29,7 +29,7 @@
 
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   4
 
 skip2    equ   $8C		cmpx instruction
diff -r adad42855d76 -r d13864ef3317 level2/modules/vi.asm
--- a/level2/modules/vi.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/vi.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -14,9 +14,9 @@
          endc  
 
 Edtn     equ   1
-Vrsn     equ   1
+rev      equ   0
 
-         mod   ModSize,DvcNam,Devic+Objct,ReEnt+Vrsn,MgrNam,DrvNam
+         mod   ModSize,DvcNam,Devic+Objct,ReEnt+rev,MgrNam,DrvNam
 
          fcb   UPDAT.     access mode(s)
          fcb   HW.Page    hardware page
diff -r adad42855d76 -r d13864ef3317 level2/modules/w.asm
--- a/level2/modules/w.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   0          number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w1.asm
--- a/level2/modules/w1.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w1.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   27         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w2.asm
--- a/level2/modules/w2.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w2.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   12         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w3.asm
--- a/level2/modules/w3.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w3.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   40         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w4.asm
--- a/level2/modules/w4.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w4.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   60         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w5.asm
--- a/level2/modules/w5.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w5.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   19         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w6.asm
--- a/level2/modules/w6.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w6.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   80         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/w7.asm
--- a/level2/modules/w7.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/w7.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 * Window descriptor definitions
 szx      set   80         number of columns for display
diff -r adad42855d76 -r d13864ef3317 level2/modules/windint.asm
--- a/level2/modules/windint.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/windint.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -14,7 +14,7 @@
          use   defsfile
          endc  
 
-rev      set   $01
+rev      set   $00
 edition  set   29
 
          mod   eom,name,Systm+Objct,ReEnt+rev,WindInt,$60
diff -r adad42855d76 -r d13864ef3317 level2/modules/xacia.asm
--- a/level2/modules/xacia.asm	Sat Aug 30 21:16:49 2003 +0000
+++ b/level2/modules/xacia.asm	Sat Aug 30 21:17:14 2003 +0000
@@ -18,7 +18,7 @@
 DCDStBit equ   %00100000  DCD status bit for SS.CDSta call
 DSRStBit equ   %01000000  DSR status bit for SS.CDSta call
 Edtn     equ   10
-Vrsn     equ   1
+rev      equ   0
 
 * conditional assembly flags
 *A6551    set   true       6551 SACIA version
@@ -274,7 +274,7 @@
 RxBuff   rmb   RxBufDSz   default Rx buffer
 MemSize  equ   .
 
-         mod   ModSize,ModName,Drivr+Objct,ReEnt+Vrsn,ModEntry,MemSize
+         mod   ModSize,ModName,Drivr+Objct,ReEnt+rev,ModEntry,MemSize
 
          fcb   UPDAT.     access mode(s)