Mercurial > hg > Members > kono > nitros9-code
changeset 1289:d13864ef3317
Changed to rev 0
line wrap: on
line diff
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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)