Mercurial > hg > Members > kono > nitros9-code
view level1/modules/rbf.asm @ 1931:806378a6049c
Added SS.FDInf GetStat, now used by dir -e
| author | boisy |
|---|---|
| date | Sat, 26 Nov 2005 19:46:58 +0000 |
| parents | 129fd29975a8 |
| children | 7010c08050b7 |
line wrap: on
line source
******************************************************************** * RBF - Disk file manager * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 24 1985/??/?? * From Tandy OS-9 Level One VR 02.00.00 * * 25 2003/10/07 Rodney V. Hamilton * Fix for LSN0 DD.TOT=0 lockout problem * * 26 2005/11/26 Boisy G. Pitre * Added SS.FDInf which is now used by dir -e nam RBF ttl Disk file manager * Disassembled 98/08/23 18:26:52 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set FlMgr+Objct atrv set ReEnt+rev rev set $00 edition set 26 mod eom,name,tylg,atrv,start,size u0000 rmb 0 size equ . name fcs /RBF/ fcb edition *L0011 fcb DRVMEM * All routines are entered with * (Y) = Path descriptor pointer * (U) = Caller's register stack pointer start lbra Create lbra Open lbra MakDir lbra ChgDir lbra Delete lbra Seek lbra Read lbra Write lbra ReadLn lbra WriteLn lbra GetStat lbra SetStat lbra Close Create pshs y leas -$05,s make room on the stack lda R$B,u get perms anda #^DIR. mask off dir bit sta R$B,u save perms back lbsr L061D bcs L004A ldb #$DA L004A cmpb #$D8 bne L0072 cmpa #PDELIM beq L0072 pshs x ldx PD.RGS,y stu R$X,x ldb <PD.SBP,y ldx <PD.SBP+1,y lda <PD.SSZ,y ldu <PD.SSZ+1,y pshs u,x,b,a clra ldb #$01 lbsr L0966 bcc L0077 leas $06,s L0070 leas $02,s L0072 leas $05,s lbra L027F L0077 std $0B,s ldb <PD.SBP,y ldx <PD.SBP+1,y stb $08,s stx $09,s puls u,x,b,a stb <PD.SBP,y stx <PD.SBP+1,y sta <PD.SSZ,y stu <PD.SSZ+1,y ldd <PD.DCP,y std $0B,y ldd <PD.DCP+2,y std $0D,y lbsr L079C bcs L00A9 L00A0 tst ,x beq L00BB lbsr L0787 bcc L00A0 L00A9 cmpb #$D3 bne L0070 ldd #$0020 lbsr L04C0 bcs L0070 lbsr L0243 lbsr L079C L00BB leau ,x lbsr L015C puls x os9 F$PrsNam bcs L0072 cmpb #$1D bls L00CD ldb #$1D L00CD clra tfr d,y lbsr L04F2 tfr y,d ldy $05,s decb lda b,u ora #$80 sta b,u ldb ,s ldx $01,s stb <$1D,u stx <$1E,u lbsr L0D40 bcs L0144 ldu $08,y bsr L0163 lda #$04 sta $0A,y ldx $06,y lda $02,x sta ,u ldx <$004B ldd $09,x std $01,u lbsr L0290 ldd $03,u std $0D,u ldb $05,u stb $0F,u ldb #$01 stb $08,u ldd $03,s subd #$0001 beq L012A leax <$10,u std $03,x ldd $01,s addd #$0001 std $01,x ldb ,s adcb #$00 stb ,x L012A ldb ,s ldx $01,s lbsr L0D42 bcs L0144 lbsr L0837 stb <$34,y stx <$35,y lbsr L082B leas $05,s lbra L01C4 L0144 puls u,x,a sta <$16,y stx <$17,y clr <$19,y stu <$1A,y pshs b lbsr L0B6E puls b L0159 lbra L027F L015C pshs u,x,b,a leau <$20,u bra L0169 L0163 pshs u,x,b,a leau >$0100,u L0169 clra clrb tfr d,x L016D pshu x,b,a cmpu $04,s bhi L016D puls pc,u,x,b,a Open pshs y lbsr L061D bcs L0159 ldu PD.RGS,y stx R$X,u ldd <PD.FD+1,y bne L01B3 lda <PD.FD,y bne L01B3 ldb PD.MOD,y andb #DIR. lbne L027D std <PD.SBP,y sta <PD.SBP+2,y std <PD.SBL,y sta <PD.SBL+2,y ldx <PD.DTB,y lda DD.TOT+2,x * resave nonzero DD.TOT here and recopy OpenFix equ * std <PD.SIZ+2,y sta <PD.SSZ+2,y ldd DD.TOT,x std PD.SIZ,y std <PD.SSZ,y * BUG FIX: handle special case of DD.TOT=0 in LSN0 which blocks * all subsequent accesses. NOTE: since we can only access LSN0 * for any non-zero value, set DD.TOT=1 to avoid NOT READY error. bne OpenRet MSW nonzero, OK lda DD.TOT+2,x MSW=0, check LSB bne OpenRet LSB nonzero, OK inca DD.TOT=0, make it 1 sta DD.TOT+2,x fix drive table bra OpenFix and resave (B=0) OpenRet puls pc,y restore & return L01B3 lda PD.MOD,y lbsr L07F1 bcs L0159 bita #$02 beq L01C4 lbsr L0290 lbsr L0D38 L01C4 puls y L01C6 clra clrb std $0B,y std $0D,y std <$13,y sta <$15,y sta <$19,y lda ,u sta <$33,y ldd <$10,u std <$16,y lda <$12,u sta <$18,y ldd <$13,u std <$1A,y ldd $09,u ldx $0B,u std $0F,y stx <$11,y clr $0A,y rts MakDir lbsr Create bcs L0241 ldd #$0040 std <$11,y bsr L0253 bcs L0241 lbsr L0854 bcs L0241 lbsr L0CD4 ldu $08,y lda ,u ora #$80 sta ,u bsr L0246 bcs L0241 lbsr L0163 ldd #$2EAE std ,u stb <$20,u lda <$37,y sta <$1D,u ldd <$38,y std <$1E,u lda <$34,y sta <$3D,u ldd <$35,y std <$3E,u lbsr L0D40 L0241 bra L0282 L0243 lbsr L0CD4 L0246 ldx $08,y ldd $0F,y std $09,x ldd <$11,y std $0B,x clr $0A,y L0253 lbra L0D38 Close clra tst $02,y bne L027C lbsr L0D72 bcs L0282 ldb $01,y bitb #$02 beq L0282 ldd <$34,y bne L0270 lda <$36,y beq L0282 L0270 bsr L0243 lbsr L0529 bcc L0282 lbsr L0AAF bra L0282 L027C rts L027D ldb #$D6 L027F coma L0280 puls y L0282 pshs b,cc ldu $08,y beq L028E ldd #$0100 os9 F$SRtMem L028E puls pc,b,cc L0290 lbsr L0CD4 ldu $08,y lda $08,u pshs a leax $03,u os9 F$Time puls a sta $08,u rts ChgDir pshs y lda $01,y ora #$80 sta $01,y lbsr Open bcs L0280 ldx <$004B ldu <$35,y ldb $01,y bitb #$03 beq L02C4 ldb <$34,y stb <$1D,x stu <$1E,x L02C4 ldb $01,y bitb #$04 beq L02D3 ldb <$34,y stb <$23,x stu <$24,x L02D3 clrb bra L0280 Delete pshs y lbsr L061D bcs L0280 ldd <$35,y bne L02E9 tst <$34,y beq L027D L02E9 lda #$42 lbsr L07F1 bcs L035F ldu $06,y stx $04,u lbsr L0CD4 bcs L035F ldx $08,y dec $08,x beq L0304 lbsr L0D38 bra L032A L0304 clra clrb std $0F,y std <$11,y lbsr L0AAF bcs L035F ldb <$34,y ldx <$35,y stb <$16,y stx <$17,y ldx $08,y ldd <$13,x addd #$0001 std <$1A,y lbsr L0B6E L032A bcs L035F lbsr L0D72 lbsr L0837 lda <$37,y sta <$34,y ldd <$38,y std <$35,y lbsr L0CD4 bcs L035F lbsr L082B ldu $08,y lbsr L01C6 ldd <$3A,y std $0B,y ldd <$3C,y std $0D,y lbsr L079C bcs L035F clr ,x lbsr L0D40 L035F lbra L0280 Seek ldb $0A,y bitb #$02 beq L037B lda $05,u ldb $08,u subd $0C,y bne L0376 lda $04,u sbca $0B,y beq L037F L0376 lbsr L0D72 bcs L0383 L037B ldd $04,u std $0B,y L037F ldd $08,u std $0D,y L0383 rts ReadLn bsr L03C4 beq L03AA bsr L03AB pshs u,y,x,b,a exg x,u ldy #$0000 lda #$0D L0394 leay $01,y cmpa ,x+ beq L039D decb bne L0394 L039D ldx $06,s bsr L03F4 sty $0A,s puls u,y,x,b,a ldd $02,s leax d,x L03AA rts L03AB bsr L0414 lda ,-x cmpa #$0D beq L03BA ldd $02,s bne L041A L03BA ldu $06,y ldd $06,u subd $02,s std $06,u bra L040E L03C4 ldd $06,u bsr L03CD bcs L03F1 std $06,u rts L03CD pshs b,a ldd <$11,y subd $0D,y tfr d,x ldd $0F,y sbcb $0C,y sbca $0B,y bcs L03EE bne L03EB tstb bne L03EB cmpx ,s bcc L03EB stx ,s beq L03EE L03EB clrb puls pc,b,a L03EE comb ldb #E$EOF L03F1 leas $02,s rts L03F4 lbra L04F2 Read bsr L03C4 beq L0409 bsr L040A L03FD pshs u,y,x,b,a exg x,u tfr d,y bsr L03F4 puls u,y,x,b,a leax d,x L0409 rts L040A bsr L0414 bne L041A L040E clrb L040F leas -$02,s L0411 leas $0A,s rts L0414 ldd $04,u ldx $06,u pshs x,b,a L041A lda $0A,y bita #$02 bne L043A tst $0E,y bne L0435 tst $02,s beq L0435 leax >L04A4,pcr cmpx $06,s bne L0435 lbsr L0C49 bra L0438 L0435 lbsr L0D91 L0438 bcs L040F L043A ldu $08,y clra ldb $0E,y leau d,u negb sbca #$FF ldx ,s cmpd $02,s bls L044D ldd $02,s L044D pshs b,a jsr [<$08,s] stx $02,s lda $0A,y anda #$BF sta $0A,y ldb $01,s addb $0E,y stb $0E,y bne L0471 lbsr L0D72 inc $0D,y bne L046F inc $0C,y bne L046F inc $0B,y L046F bcs L0411 L0471 ldd $04,s subd ,s++ std $02,s jmp [<$04,s] WriteLn pshs y clrb ldy $06,u beq L0498 ldx $04,u L0484 leay -$01,y beq L0498 lda ,x+ cmpa #$0D bne L0484 tfr y,d nega negb sbca #$00 addd $06,u std $06,u L0498 puls y Write ldd $06,u beq L04BE bsr L04C0 bcs L04BF bsr L04B5 L04A4 pshs y,b,a tfr d,y bsr L04F2 puls y,b,a leax d,x lda $0A,y ora #$03 sta $0A,y rts L04B5 lbsr L0414 lbne L041A leas $08,s L04BE clrb L04BF rts L04C0 addd $0D,y tfr d,x ldd $0B,y adcb #$00 adca #$00 L04CA cmpd $0F,y bcs L04BE bhi L04D6 cmpx <$11,y bls L04BE L04D6 pshs u ldu <$11,y stx <$11,y ldx $0F,y std $0F,y pshs u,x lbsr L0854 puls u,x bcc L04F0 stx $0F,y stu <$11,y L04F0 puls pc,u L04F2 pshs u,y,x ldd $02,s beq L051B leay d,u lsrb bcc L0501 lda ,x+ sta ,u+ L0501 lsrb bcc L0508 ldd ,x++ std ,u++ L0508 pshs y exg x,u bra L0515 L050E pulu y,b,a std ,x++ sty ,x++ L0515 cmpx ,s bcs L050E leas $02,s L051B puls pc,u,y,x GetStat ldb $02,u cmpb #SS.Opt beq L0543 cmpb #$06 bne L052F clr $02,u L0529 clra ldb #$01 lbra L03CD L052F cmpb #SS.Ready bne L0536 clr $02,u rts L0536 cmpb #SS.Size bne L0544 ldd $0F,y std $04,u ldd <$11,y std $08,u L0543 rts L0544 cmpb #SS.Pos bne L0551 ldd $0B,y std $04,u ldd $0D,y std $08,u Gst5FF rts L0551 cmpb #SS.FD bne SSFDInf lbsr L0CD4 bcs L0543 ldu $06,y ldd $06,u tsta beq L0564 ldd #$0100 L0564 ldx $04,u ldu $08,y lbra L03FD SSFDInf cmpb #SS.FDInf bne L056B lbsr L0D72 check for sector flush bcs Gst5FF ldb R$Y,u get MSB of sector # ldx R$U,u get LSW of sector # lbsr L0CEB read the sector bcs Gst5FF error, return ldu PD.RGS,y get register stack pointer ldd R$Y,u get length of data to move clra clear MSB bra L0564 move it to user L056B lda #$09 lbra L0CED SetStat ldb R$B,u cmpb #SS.Opt bne L0584 ldx R$X,u leax $02,x leau <PD.STP,y ldy #$000D lbra L04F2 L0584 cmpb #SS.Size bne L05C6 ldd <PD.FD+1,y bne L0594 tst <PD.FD,y lbeq L0619 L0594 lda PD.MOD,y bita #WRITE. beq L05C2 ldd R$X,u ldx R$U,u cmpd $0F,y bcs L05AD bne L05AA cmpx <PD.SIZ+2,y bcs L05AD L05AA lbra L04CA L05AD std PD.SIZ,y stx <PD.SIZ+2,y ldd PD.CP,y ldx PD.CP+2,y pshs x,b,a lbsr L0AAF puls u,x stx PD.CP,y stu PD.CP+2,y rts L05C2 comb ldb #E$BMode rts L05C6 cmpb #$0F bne L0604 lda $01,y bita #$02 beq L05C2 lbsr L0CD4 bcs L061C pshs y ldx $04,u ldu $08,y ldy <$004B ldd $09,y bne L05E7 ldd #$0102 bsr L05F6 L05E7 ldd #$0305 bsr L05F6 ldd #$0D03 bsr L05F6 * Change attrs ldd #$0001 bsr L05F6 puls y lbra L0D38 L05F6 pshs u,x leax a,x leau a,u clra tfr d,y lbsr L04F2 puls pc,u,x L0604 cmpb #$1E bne L0614 ldx <$1E,y lda $05,u sta <$1E,x clr <$1D,x rts L0614 lda #$0C lbra L0CED L0619 comb ldb #E$UnkSvc L061C rts L061D **** ADDED 06/19/2004 **** * Call to SS.VarSect in Driver: * * This code calls the driver's SS.VarSect GetStat, which will * update the PD.TYP byte in the path descriptor to the sector * size of the media to which this path references. * If the driver doesn't support the GetStat, it will return * an error, and won't touch the PD.TYP anyway, so we ignore it. ldx PD.RGS,y get caller's regs lda R$B,x get caller's B pshs x,a save PD.RGS ptr and caller's original B ldd #D$GSTA*256+SS.VarSect getstat function/SS.VarSect GetStat stb R$B,x put SS.VarSect into caller's B lbsr L0CED send it to driver puls a,x get caller's original B and saved PD.RGS sta R$B,x restore caller's original B bcc ok@ branch if no error on GetStat cmpb #E$UnkSvc Unknown Service call error? lbne L0B10 if not, return with error **** ok@ ldd #256 stb PD.BUF+2,y os9 F$SRqMem bcs L061C stu PD.BUF,y ldx PD.RGS,y ldx R$X,x pshs u,y,x leas -$04,s clra clrb sta <PD.FD,y std <PD.FD+1,y std <PD.DSK,y lda ,x sta ,s cmpa #PDELIM bne L0654 lbsr L07BC sta ,s lbcs L0752 leax ,y ldy $06,s bra L0677 L0654 anda #$7F strip hi bit cmpa #PENTIR raw? beq L0677 branch if so lda #PDELIM sta ,s leax -$01,x lda $01,y ldu <$004B leau <$1A,u bita #$24 beq L066D leau $06,u L066D ldb $03,u stb <PD.FD,y ldd $04,u std <PD.FD+1,y L0677 ldu $03,y stu <PD.DVT,y lda <PD.DRV,y ldb #DRVMEM mul addd $02,u addd #$000F std <PD.DTB,y lda ,s anda #$7F cmpa #PENTIR bne L0698 leax $01,x bra L06BA L0698 lbsr L0CC1 lbcs L075A ldu PD.BUF,y ldd $0E,u std <PD.DSK,y ldd <PD.FD+1,y bne L06BA lda <PD.FD,y bne L06BA lda $08,u sta <PD.FD,y ldd $09,u std <PD.FD+1,y L06BA stx $04,s stx $08,s L06BE lbsr L0D72 lbcs L075A lda ,s anda #$7F cmpa #PENTIR beq L06D4 lbsr L0CD4 lbcs L075A L06D4 lbsr L082B lda ,s cmpa #PDELIM bne L0734 clr $02,s clr $03,s lda $01,y ora #$80 lbsr L07F1 bcs L0752 lbsr L01C6 ldx $08,s leax $01,x lbsr L07BC std ,s stx $04,s sty $08,s ldy $06,s bcs L0752 lbsr L079C bra L070A L0705 bsr L075D L0707 bsr L0787 L070A bcs L0752 tst ,x beq L0705 clra ldb $01,s leay ,x ldx $04,s os9 F$CmpNam ldx $06,s exg x,y bcs L0707 bsr L076B lda <$1D,x sta <PD.FD,y ldd <$1E,x std <PD.FD+1,y lbsr L0837 bra L06BE L0734 ldx $08,s tsta bmi L0741 os9 F$PrsNam leax ,y ldy $06,s L0741 stx $04,s clra L0744 lda ,s leas $04,s pshs b,a,cc lda $0A,y anda #$BF sta $0A,y puls pc,u,y,x,b,a,cc L0752 cmpb #$D3 bne L075A bsr L075D ldb #$D8 L075A coma bra L0744 L075D pshs b,a lda $04,s cmpa #$2F beq L0785 ldd $06,s bne L0785 puls b,a L076B pshs b,a stx $06,s lda <PD.FD,y sta <PD.DFD,y ldd <PD.FD+1,y std <PD.DFD+1,y ldd $0B,y std <PD.DCP,y ldd $0D,y std <PD.DCP+2,y L0785 puls pc,b,a L0787 ldb $0E,y addb #$20 stb $0E,y bcc L079C lbsr L0D72 inc $0D,y bne L079C inc $0C,y bne L079C inc $0B,y L079C ldd #$0020 lbsr L03CD bcs L07BB lda $0A,y bita #$02 bne L07B4 lbsr L0C49 bcs L07BB lbsr L0D91 bcs L07BB L07B4 ldb $0E,y lda $08,y tfr d,x clrb L07BB rts L07BC os9 F$PrsNam pshs x bcc L07E9 clrb L07C4 pshs a anda #$7F cmpa #PDIR puls a bne L07DF incb leax $01,x tsta bmi L07DF lda ,x cmpb #$03 bcs L07C4 lda #PDELIM decb leax -$03,x L07DF tstb bne L07E7 L07E2 comb ldb #E$BPNam puls pc,x L07E7 leay ,x L07E9 cmpb #$20 bhi L07E2 andcc #^Carry puls pc,x * A = PD.MOD (mode byte) L07F1 tfr a,b anda #$07 andb #$C0 pshs x,b,a lbsr L0CD4 bcs L0820 ldu $08,y ldx <$004B ldd $09,x beq L0809 cmpd $01,u L0809 puls a beq L0810 lsla lsla lsla L0810 ora ,s anda #$BF pshs a ora #$80 anda ,u cmpa ,s beq L0829 ldb #$D6 L0820 leas $02,s coma puls pc,x ldb #$FD bra L0820 L0829 puls pc,x,b,a L082B clra clrb std $0B,y std $0D,y sta <$19,y std <$1A,y L0837 rts L0838 pshs y,x,b,a ldx <D.Proc lda <P$IOQN,x beq L0851 clr <P$IOQN,x ldb #S$Wake os9 F$Send ldx <D.PrcDBT os9 F$Find64 clr <P$IOQP,y L0851 clrb puls pc,y,x,b,a L0854 pshs u,x L0856 bsr L08B2 bne L0866 cmpx <$1A,y bcs L08AD bne L0866 lda <$12,y beq L08AD L0866 lbsr L0CD4 bcs L08AA ldx $0B,y ldu $0D,y pshs u,x ldd $0F,y std $0B,y ldd <$11,y std $0D,y lbsr L0C63 puls u,x stx $0B,y stu $0D,y bcc L08AD cmpb #$D5 bne L08AA bsr L08B2 bne L0896 tst <$12,y beq L0899 leax $01,x bne L0899 L0896 ldx #$FFFF L0899 tfr x,d tsta bne L08A6 cmpb <$2E,y bcc L08A6 ldb <$2E,y L08A6 bsr L08C0 bcc L0856 L08AA coma puls pc,u,x L08AD lbsr L0C49 puls pc,u,x L08B2 ldd <$10,y subd <$14,y tfr d,x ldb $0F,y sbcb <$13,y rts L08C0 pshs u,x lbsr L0966 bcs L08FF lbsr L0CD4 bcs L08FF ldu $08,y clra clrb std $09,u std $0B,u leax <$10,u ldd $03,x beq L0947 ldd $08,y inca pshs b,a bra L08EF L08E2 clrb ldd -$02,x beq L08FB addd $0A,u std $0A,u bcc L08EF inc $09,u L08EF leax $05,x cmpx ,s bcs L08E2 lbsr L0B6E comb ldb #E$SLF L08FB leas $02,s leax -$05,x L08FF bcs L0964 ldd -$04,x addd -$02,x pshs b,a ldb -$05,x adcb #$00 cmpb <$16,y puls b,a bne L0947 cmpd <$17,y bne L0947 ldu <$1E,y ldd $06,u ldu $08,y subd #$0001 coma comb pshs b,a ldd -$05,x eora <$16,y eorb <$17,y lsra rorb lsra rorb lsra rorb anda ,s+ andb ,s+ std -$02,s bne L0947 ldd -$02,x addd <$1A,y bcs L0947 std -$02,x bra L0956 L0947 ldd <$16,y std ,x lda <$18,y sta $02,x ldd <$1A,y std $03,x L0956 ldd $0A,u addd <$1A,y std $0A,u bcc L0961 inc $09,u L0961 lbsr L0D38 L0964 puls pc,u,x L0966 pshs u,y,x,b,a ldb #$0C L096A clr ,-s decb bne L096A ldx <$1E,y ldd $04,x std $04,s ldd $06,x std $02,s std $0A,s ldx $03,y ldx $04,x leax <$12,x subd #$0001 addb $0E,x adca #$00 bra L098E L098C lsra rorb L098E lsr $0A,s ror $0B,s bcc L098C std ,s ldd $02,s std $0A,s subd #$0001 addd $0C,s bcc L09A8 ldd #$FFFF bra L09A8 L09A6 lsra rorb L09A8 lsr $0A,s ror $0B,s bcc L09A6 cmpa #$08 bcs L09B5 ldd #$0800 L09B5 std $0C,s lbsr L0BD8 lbcs L0AA3 ldx <$1E,y ldd <$1A,x cmpd $0E,x bne L09D7 lda <$1C,x cmpa $04,x bne L09D7 ldb <$1D,x cmpb $04,x bcs L09E5 L09D7 ldd $0E,x std <$1A,x lda $04,x sta <$1C,x clrb stb <$1D,x L09E5 incb stb $06,s ldx <$1E,y cmpb <$1E,x beq L0A21 lbsr L0C33 lbcs L0AA3 ldb $06,s cmpb $04,s bls L0A02 clra ldb $05,s bra L0A05 L0A02 ldd #$0100 L0A05 ldx $08,y leau d,x ldy $0C,s clra clrb os9 F$SchBit bcc L0A4E cmpy $08,s bls L0A21 sty $08,s std $0A,s lda $06,s sta $07,s L0A21 ldy <$10,s ldb $06,s cmpb $04,s bcs L0A32 bhi L0A31 tst $05,s bne L0A32 L0A31 clrb L0A32 ldx <$1E,y cmpb <$1D,x bne L09E5 ldb $07,s beq L0AA1 cmpb $06,s beq L0A47 stb $06,s lbsr L0C33 L0A47 ldx $08,y ldd $0A,s ldy $08,s L0A4E std $0A,s sty $08,s os9 F$AllBit ldy <$10,s ldb $06,s lbsr L0C0B bcs L0AA3 ldx <$1E,y lda $06,s deca sta <$1D,x clrb lsla rolb lsla rolb lsla rolb stb <$16,y ora $0A,s ldb $0B,s ldx $08,s ldy <$10,s std <$17,y stx <$1A,y ldd $02,s bra L0A97 L0A88 lsl <$18,y rol <$17,y rol <$16,y lsl <$1B,y rol <$1A,y L0A97 lsra rorb bcc L0A88 clrb ldd <$1A,y bra L0AAB L0AA1 ldb #$F8 L0AA3 ldy <$10,s lbsr L0C12 coma L0AAB leas $0E,s puls pc,u,y,x L0AAF clra lda $01,y bita #$80 bne L0B11 ldd $0F,y std $0B,y ldd <$11,y std $0D,y lbsr L0C63 bcc L0AC8 cmpb #$D5 bra L0B09 L0AC8 ldd <$14,y subd $0C,y addd <$1A,y tst $0E,y beq L0AD7 subd #$0001 L0AD7 pshs b,a ldu <$1E,y ldd $06,u subd #$0001 coma comb anda ,s+ andb ,s+ ldu <$1A,y std <$1A,y beq L0B0B tfr u,d subd <$1A,y pshs x,b,a addd <$17,y std <$17,y bcc L0B01 inc <$16,y L0B01 bsr L0B6E bcc L0B12 leas $04,s cmpb #$DB L0B09 bne L0B10 L0B0B lbsr L0CD4 bcc L0B1B L0B10 coma L0B11 rts L0B12 lbsr L0CD4 bcs L0B6B puls x,b,a std $03,x L0B1B ldu $08,y ldd <$11,y std $0B,u ldd $0F,y std $09,u tfr x,d clrb inca leax $05,x pshs x,b,a bra L0B56 L0B30 ldd -$02,x beq L0B63 std <$1A,y ldd -$05,x std <$16,y lda -$03,x sta <$18,y bsr L0B6E bcs L0B6B stx $02,s lbsr L0CD4 bcs L0B6B ldx $02,s clra clrb std -$05,x sta -$03,x std -$02,x L0B56 lbsr L0D38 bcs L0B6B ldx $02,s leax $05,x cmpx ,s bcs L0B30 L0B63 clra clrb sta <$19,y std <$1A,y L0B6B leas $04,s rts L0B6E pshs u,y,x,a ldx <$1E,y ldd $06,x subd #$0001 addd <$17,y std <$17,y ldd $06,x bcc L0B96 inc <$16,y bra L0B96 L0B87 lsr <$16,y ror <$17,y ror <$18,y lsr <$1A,y ror <$1B,y L0B96 lsra rorb bcc L0B87 clrb ldd <$1A,y beq L0BD6 ldd <$16,y lsra rorb lsra rorb lsra rorb tfr b,a ldb #$DB cmpa $04,x bhi L0BD5 inca sta ,s L0BB4 bsr L0BD8 bcs L0BB4 ldb ,s bsr L0C33 bcs L0BD5 ldx $08,y ldd <$17,y anda #$07 ldy <$1A,y os9 F$DelBit ldy $03,s ldb ,s bsr L0C0B bcc L0BD6 L0BD5 coma L0BD6 puls pc,u,y,x,a L0BD8 lbsr L0D72 bra L0BE5 L0BDD lbsr L0838 os9 F$IOQu bsr L0BF5 L0BE5 bcs L0BF4 ldx <$1E,y lda <$17,x bne L0BDD lda $05,y sta <$17,x L0BF4 rts L0BF5 ldu <$004B ldb <$36,u cmpb #$01 bls L0C02 cmpb #$03 bls L0C09 L0C02 clra lda $0D,u bita #$02 beq L0C0A L0C09 coma L0C0A rts L0C0B clra tfr d,x clrb lbsr L0D42 L0C12 pshs cc ldx <$1E,y lda $05,y cmpa <$17,x bne L0C31 clr <$17,x ldx <$004B lda <$11,x beq L0C31 lbsr L0838 ldx #$0001 os9 F$Sleep L0C31 puls pc,cc L0C33 clra tfr d,x clrb lbra L0CEB pshs u,x lbsr L0D40 bcs L0C47 lda $0A,y anda #$FE sta $0A,y L0C47 puls pc,u,x L0C49 ldd $0C,y subd <$14,y tfr d,x ldb $0B,y sbcb <$13,y cmpb <$19,y bcs L0C61 bhi L0C63 cmpx <$1A,y bcc L0C63 L0C61 clrb L0C62 rts L0C63 pshs u bsr L0CD4 bcs L0CBF clra clrb std <$13,y stb <$15,y ldu $08,y leax <$10,u lda $08,y ldb #$FC pshs b,a L0C7C ldd $03,x beq L0CA1 addd <$14,y tfr d,u ldb <$13,y adcb #$00 cmpb $0B,y bhi L0CAE bne L0C95 cmpu $0C,y bhi L0CAE L0C95 stb <$13,y stu <$14,y leax $05,x cmpx ,s bcs L0C7C L0CA1 clra clrb sta <$19,y std <$1A,y comb ldb #E$NES bra L0CBD L0CAE ldd ,x std <$16,y lda $02,x sta <$18,y ldd $03,x std <$1A,y L0CBD leas $02,s L0CBF puls pc,u L0CC1 pshs x,b lbsr L0D72 bcs L0CD0 clrb ldx #$0000 bsr L0CEB bcc L0CD2 L0CD0 stb ,s L0CD2 puls pc,x,b L0CD4 ldb $0A,y bitb #$04 bne L0C61 lbsr L0D72 bcs L0C62 ldb $0A,y orb #$04 stb $0A,y ldb <$34,y ldx <$35,y L0CEB lda #$03 L0CED pshs u,y,x,b,a lda $0A,y ora #$20 sta $0A,y ldu $03,y ldu $02,u bra L0D01 L0CFB lbsr L0838 os9 F$IOQu L0D01 lda $04,u bne L0CFB lda $05,y sta $04,u ldd ,s ldx $02,s pshs u bsr L0D26 puls u ldy $04,s pshs cc bcc L0D1C stb $02,s L0D1C lda $0A,y anda #$DF sta $0A,y clr $04,u puls pc,u,y,x,b,a,cc L0D26 pshs pc,x,b,a ldx $03,y ldd ,x ldx ,x addd $09,x addb ,s adca #$00 std $04,s puls pc,x,b,a L0D38 ldb <$34,y ldx <$35,y bra L0D42 L0D40 bsr L0D5B L0D42 lda #$06 pshs x,b,a ldd <$1C,y beq L0D51 ldx <$1E,y cmpd $0E,x L0D51 puls x,b,a beq L0CED comb ldb #E$DIDC rts L0D5B ldd $0C,y subd <$14,y tfr d,x ldb $0B,y sbcb <$13,y exg d,x addd <$17,y exg d,x adcb <$16,y rts L0D72 clrb pshs u,x ldb $0A,y andb #$46 beq L0D8F tfr b,a eorb $0A,y stb $0A,y andb #$01 beq L0D8F eorb $0A,y stb $0A,y bita #$02 beq L0D8F bsr L0D40 L0D8F puls pc,u,x L0D91 pshs u,x lbsr L0C49 bcs L0DAA bsr L0D72 bcs L0DAA bsr L0D5B lbsr L0CEB bcs L0DAA lda $0A,y ora #$42 sta $0A,y L0DAA puls pc,u,x emod eom equ * end