Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/drivers/sdisk/sformat.asm @ 1652:558cab468052
RG fixed a bug in the Vavasour emulator clock2 module.
clock2 is now of type Sbrtn instead of Systm. clock.asm has been modified
to link to this type.
| author | boisy |
|---|---|
| date | Sat, 17 Jul 2004 12:20:31 +0000 |
| parents | 347828fbd427 |
| children |
line wrap: on
line source
nam sformat ttl program module * Disassembled 02/07/15 07:16:29 by Disasm v1.6 (C) 1988 by RML ifp1 use /dd/defs/os9defs endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $00 mod eom,name,tylg,atrv,start,size u0000 rmb 1 u0001 rmb 2 u0003 rmb 1 u0004 rmb 1 u0005 rmb 2 u0007 rmb 2 u0009 rmb 1 u000A rmb 1 u000B rmb 1 u000C rmb 1 u000D rmb 1 u000E rmb 1 u000F rmb 1 u0010 rmb 1 u0011 rmb 1 u0012 rmb 1 u0013 rmb 1 u0014 rmb 2 u0016 rmb 1 u0017 rmb 1 u0018 rmb 2 u001A rmb 1 u001B rmb 2 u001D rmb 6 u0023 rmb 1 u0024 rmb 2 u0026 rmb 5 u002B rmb 2 u002D rmb 3 u0030 rmb 3 u0033 rmb 1 u0034 rmb 1 u0035 rmb 2 u0037 rmb 1 u0038 rmb 1 u0039 rmb 20 u004D rmb 2 u004F rmb 21 u0064 rmb 9 u006D rmb 1 u006E rmb 3 u0071 rmb 1 u0072 rmb 1 u0073 rmb 1 u0074 rmb 1 u0075 rmb 2 u0077 rmb 2 u0079 rmb 2 u007B rmb 1 u007C rmb 10 u0086 rmb 7 u008D rmb 1 u008E rmb 1 u008F rmb 2 u0091 rmb 1 u0092 rmb 3 u0095 rmb 3 u0098 rmb 3 u009B rmb 1 u009C rmb 2 u009E rmb 2 u00A0 rmb 8 u00A8 rmb 1 u00A9 rmb 1 u00AA rmb 1 u00AB rmb 1 u00AC rmb 1 u00AD rmb 32 u00CD rmb 9 u00D6 rmb 18 u00E8 rmb 21 u00FD rmb 6514 u1A6F rmb 506 size equ . name equ * fcs /sformat/ fcb $1B fcb $28 ( fcb $63 c fcb $29 ) fcb $20 fcb $43 C fcb $6F o fcb $70 p fcb $79 y fcb $72 r fcb $69 i fcb $67 g fcb $68 h fcb $74 t fcb $20 fcb $31 1 fcb $39 9 fcb $38 8 fcb $33 3 fcb $20 fcb $44 D fcb $2E . fcb $50 P fcb $2E . fcb $4A J fcb $6F o fcb $68 h fcb $6E n fcb $73 s fcb $6F o fcb $6E n L0033 fcb $0A fcb $20 fcb $20 fcb $20 fcb $20 fcb $44 D fcb $6F o fcb $75 u fcb $62 b fcb $6C l fcb $65 e fcb $0A fcb $20 fcb $20 fcb $20 fcb $20 fcb $53 S fcb $69 i fcb $6E n fcb $67 g fcb $6C l fcb $65 e fcb $09 fcb $20 fcb $44 D fcb $65 e fcb $6E n fcb $73 s fcb $69 i fcb $74 t fcb $79 y fcb $0D fcb $0B fcb $20 fcb $43 C fcb $79 y fcb $6C l fcb $69 i fcb $6E n fcb $64 d fcb $65 e fcb $72 r fcb $73 s fcb $0D fcb $07 fcb $20 fcb $73 s fcb $69 i fcb $64 d fcb $65 e fcb $73 s fcb $0D fcb $12 fcb $20 fcb $20 fcb $20 fcb $20 fcb $43 C fcb $6F o fcb $6C l fcb $6F o fcb $72 r fcb $20 fcb $43 C fcb $6F o fcb $6D m fcb $70 p fcb $75 u fcb $74 t fcb $65 e fcb $72 r fcb $11 L007B fcb $20 fcb $20 fcb $20 fcb $20 fcb $4F O fcb $53 S fcb $2D - fcb $39 9 fcb $20 fcb $53 S fcb $74 t fcb $61 a fcb $6E n fcb $64 d fcb $61 a fcb $72 r fcb $64 d fcb $08 fcb $20 fcb $66 f fcb $6F o fcb $72 r fcb $6D m fcb $61 a fcb $74 t fcb $0D fcb $0F fcb $20 fcb $54 T fcb $72 r fcb $6B k fcb $20 fcb $30 0 fcb $20 fcb $53 S fcb $65 e fcb $63 c fcb $74 t fcb $6F o fcb $72 r fcb $73 s fcb $0D fcb $0F fcb $20 fcb $53 S fcb $65 e fcb $63 c fcb $74 t fcb $6F o fcb $72 r fcb $73 s fcb $2F / fcb $54 T fcb $72 r fcb $61 a fcb $63 c fcb $6B k L00B4 fcb $0D fcb $16 fcb $43 C fcb $6F o fcb $6C l fcb $6F o fcb $72 r fcb $20 fcb $43 C fcb $6F o fcb $6D m fcb $70 p fcb $75 u fcb $74 t fcb $65 e fcb $72 r fcb $20 fcb $46 F fcb $6F o fcb $72 r fcb $6D m fcb $61 a fcb $74 t fcb $3F ? fcb $0F fcb $44 D fcb $6F o fcb $75 u fcb $62 b fcb $6C l fcb $65 e fcb $20 fcb $44 D fcb $65 e fcb $6E n fcb $73 s fcb $69 i fcb $74 t fcb $79 y fcb $3F ? fcb $0D fcb $44 D fcb $6F o fcb $75 u fcb $62 b fcb $6C l fcb $65 e fcb $20 fcb $53 S fcb $69 i fcb $64 d fcb $65 e fcb $64 d fcb $3F ? fcb $11 fcb $4E N fcb $6F o fcb $2E . fcb $20 fcb $6F o fcb $66 f fcb $20 fcb $43 C fcb $79 y fcb $6C l fcb $69 i fcb $6E n fcb $64 d fcb $65 e fcb $72 r fcb $73 s fcb $3D = fcb $01 fcb $0D fcb $13 fcb $46 F fcb $4F O fcb $52 R fcb $4D M fcb $41 A fcb $54 T fcb $20 fcb $50 P fcb $41 A fcb $52 R fcb $41 A fcb $4D M fcb $45 E fcb $54 T fcb $45 E fcb $52 R fcb $53 S fcb $3A : fcb $0D fcb $11 fcb $46 F fcb $6F o fcb $72 r fcb $6D m fcb $61 a fcb $74 t fcb $74 t fcb $69 i fcb $6E n fcb $67 g fcb $20 fcb $64 d fcb $72 r fcb $69 i fcb $76 v fcb $65 e fcb $20 fcb $1D fcb $79 y fcb $20 fcb $28 ( fcb $79 y fcb $65 e fcb $73 s fcb $29 ) fcb $2C , fcb $20 fcb $6E n fcb $20 fcb $28 ( fcb $6E n fcb $6F o fcb $29 ) fcb $2C , fcb $20 fcb $6F o fcb $72 r fcb $20 fcb $71 q fcb $20 fcb $28 ( fcb $71 q fcb $75 u fcb $69 i fcb $74 t fcb $29 ) fcb $0D fcb $06 fcb $52 R fcb $65 e fcb $61 a fcb $64 d fcb $79 y fcb $3F ? fcb $0D fcb $56 V fcb $6F o fcb $6C l fcb $75 u fcb $6D m fcb $65 e fcb $20 fcb $4E N fcb $61 a fcb $6D m fcb $65 e fcb $3D = fcb $0D fcb $12 fcb $56 V fcb $65 e fcb $72 r fcb $69 i fcb $66 f fcb $79 y fcb $69 i fcb $6E n fcb $67 g fcb $20 fcb $54 T fcb $72 r fcb $61 a fcb $63 c fcb $6B k fcb $73 s fcb $3A : fcb $0D fcb $0E fcb $20 fcb $47 G fcb $6F o fcb $6F o fcb $64 d fcb $20 fcb $53 S fcb $65 e fcb $63 c fcb $74 t fcb $6F o fcb $72 r fcb $73 s fcb $0D fcb $1D fcb $2A * fcb $2A * fcb $2A * fcb $20 fcb $53 S fcb $54 T fcb $41 A fcb $4E N fcb $44 D fcb $41 A fcb $52 R fcb $44 D fcb $20 fcb $44 D fcb $49 I fcb $53 S fcb $4B K fcb $20 fcb $46 F fcb $4F O fcb $52 R fcb $4D M fcb $41 A fcb $54 T fcb $20 fcb $2A * fcb $2A * fcb $2A * fcb $0D fcb $20 fcb $28 ( fcb $43 C fcb $29 ) fcb $20 fcb $43 C fcb $6F o fcb $70 p fcb $79 y fcb $72 r fcb $69 i fcb $67 g fcb $68 h fcb $74 t fcb $20 fcb $31 1 fcb $39 9 fcb $38 8 fcb $33 3 fcb $20 fcb $44 D fcb $2E . fcb $50 P fcb $2E . fcb $20 fcb $4A J fcb $6F o fcb $68 h fcb $6E n fcb $73 s fcb $6F o fcb $6E n fcb $0D fcb $14 fcb $41 A fcb $4C L fcb $4C L fcb $20 fcb $52 R fcb $49 I fcb $47 G fcb $48 H fcb $54 T fcb $53 S fcb $20 fcb $52 R fcb $45 E fcb $53 S fcb $45 E fcb $52 R fcb $56 V fcb $45 E fcb $44 D fcb $0D fcb $0D fcb $53 S fcb $59 Y fcb $4E N fcb $54 T fcb $41 A fcb $58 X fcb $20 fcb $45 E fcb $52 R fcb $52 R fcb $4F O fcb $52 R fcb $0D fcb $1D fcb $75 u fcb $73 s fcb $65 e fcb $3A : fcb $20 fcb $53 S fcb $46 F fcb $4F O fcb $52 R fcb $4D M fcb $41 A fcb $54 T fcb $20 fcb $2F / fcb $64 d fcb $65 e fcb $76 v fcb $6E n fcb $61 a fcb $6D m fcb $65 e fcb $20 fcb $5B [ fcb $6F o fcb $70 p fcb $74 t fcb $73 s fcb $5D ] fcb $0D fcb $1A fcb $20 fcb $6F o fcb $70 p fcb $74 t fcb $73 s fcb $3A : fcb $20 fcb $53 S fcb $20 fcb $3D = fcb $20 fcb $53 S fcb $69 i fcb $6E n fcb $67 g fcb $6C l fcb $65 e fcb $20 fcb $64 d fcb $65 e fcb $6E n fcb $73 s fcb $69 i fcb $74 t fcb $79 y fcb $0D fcb $1A fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $44 D fcb $20 fcb $3D = fcb $20 fcb $44 D fcb $6F o fcb $75 u fcb $62 b fcb $6C l fcb $65 e fcb $20 fcb $64 d fcb $65 e fcb $6E n fcb $73 s fcb $69 i fcb $74 t fcb $79 y fcb $0D fcb $11 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $52 R fcb $20 fcb $3D = fcb $20 fcb $52 R fcb $65 e fcb $61 a fcb $64 d fcb $79 y fcb $0D fcb $12 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $31 1 fcb $20 fcb $3D = fcb $20 fcb $31 1 fcb $20 fcb $73 s fcb $69 i fcb $64 d fcb $65 e fcb $0D fcb $13 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $32 2 fcb $20 fcb $3D = fcb $20 fcb $32 2 fcb $20 fcb $73 s fcb $69 i fcb $64 d fcb $65 e fcb $73 s fcb $0D fcb $12 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $34 4 fcb $20 fcb $3D = fcb $20 fcb $34 4 fcb $38 8 fcb $20 fcb $54 T fcb $50 P fcb $49 I fcb $0D fcb $1C fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $4F O fcb $20 fcb $3D = fcb $20 fcb $4F O fcb $53 S fcb $2D - fcb $39 9 fcb $20 fcb $53 S fcb $74 t fcb $64 d fcb $2E . fcb $20 fcb $66 f fcb $6F o fcb $72 r fcb $6D m fcb $61 a fcb $74 t fcb $0D fcb $13 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $22 " fcb $64 d fcb $69 i fcb $73 s fcb $6B k fcb $20 fcb $6E n fcb $61 a fcb $6D m fcb $65 e fcb $22 " fcb $0D fcb $1A fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $27 ' fcb $6E n fcb $6F o fcb $2E . fcb $20 fcb $6F o fcb $66 f fcb $20 fcb $63 c fcb $79 y fcb $6C l fcb $69 i fcb $6E n fcb $64 d fcb $65 e fcb $72 r fcb $73 s fcb $27 ' fcb $0D fcb $14 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $3A : fcb $49 I fcb $6E n fcb $74 t fcb $65 e fcb $72 r fcb $6C l fcb $65 e fcb $61 a fcb $76 v fcb $65 e fcb $3A : fcb $0D fcb $11 fcb $43 C fcb $68 h fcb $61 a fcb $6E n fcb $67 g fcb $65 e fcb $20 fcb $74 t fcb $6F o fcb $20 fcb $34 4 fcb $38 8 fcb $20 fcb $74 t fcb $70 p fcb $69 i fcb $3F ? fcb $13 fcb $53 S fcb $79 y fcb $73 s fcb $74 t fcb $65 e fcb $6D m fcb $20 fcb $53 S fcb $65 e fcb $63 c fcb $74 t fcb $6F o fcb $72 r fcb $20 fcb $42 B fcb $41 A fcb $44 D fcb $07 fcb $0D fcb $01 fcb $28 ( L0304 fcb $27 ' fcb $FF fcb $01 fcb $FF fcb $06 fcb $00 fcb $01 fcb $FC fcb $0C fcb $FF fcb $05 fcb $00 fcb $01 fcb $00 fcb $01 fcb $FE fcb $04 fcb $01 fcb $01 fcb $F7 w fcb $0A fcb $FF fcb $06 fcb $00 fcb $01 fcb $FB fcb $00 fcb $E5 e fcb $01 fcb $F7 w fcb $08 fcb $FF fcb $02 fcb $FF fcb $01 fcb $52 R L0328 fcb $50 P fcb $4E N fcb $0C fcb $00 fcb $03 fcb $F6 v fcb $01 fcb $FC fcb $20 fcb $4E N fcb $0C fcb $00 fcb $03 fcb $F5 u fcb $01 fcb $FE fcb $04 fcb $01 fcb $01 fcb $F7 w fcb $16 fcb $4E N fcb $0C fcb $00 fcb $03 fcb $F5 u fcb $01 fcb $FB fcb $00 fcb $E5 e fcb $01 fcb $F7 w fcb $16 fcb $4E N fcb $01 fcb $50 P L034C fcb $20 fcb $4E N fcb $0C fcb $00 fcb $03 fcb $F6 v fcb $01 fcb $FC fcb $20 fcb $4E N fcb $08 fcb $00 fcb $03 fcb $F5 u fcb $01 fcb $FE fcb $04 fcb $01 fcb $01 fcb $F7 w fcb $16 fcb $4E N fcb $0C fcb $00 fcb $03 fcb $F5 u fcb $01 fcb $FB fcb $00 fcb $E5 e fcb $01 fcb $F7 w fcb $18 fcb $4E N start equ * pshs u clrb L0371 clr ,u+ decb bne L0371 puls u stu <u0005 L037A lda ,x+ cmpa #$20 beq L037A cmpa #$2F bne L03EA sta <u0023 os9 F$PrsNam bcs L03EA stb <u001A inc <u001A leay <u0024,u L0392 lda ,x+ sta -$07,y sta ,y+ decb bne L0392 lda #$40 ldb #$0D std ,y stb -$07,y stx <u0001 lbsr L05FB lbra L1AAD clra lbsr L1AB1 fcb $4B K fcb $18 lbsr L05FB jmp <u004F leax <u001D,u os9 I$Attach lbcs L09B9 stu <u001B ldu <u0005 lda #$01 clrb leax <u004D,u os9 I$GetStt lbcs L09B9 ldb $07,x stb <u006D clr $07,x clrb os9 I$SetStt bcs L03E7 leax <u0023,u lda #$02 os9 I$Open bcc L03F1 L03E7 lbra L09A6 L03EA lbsr L0AB8 clrb os9 F$Exit L03F1 sta <u0000 ldb #$00 leax <u006E,u os9 I$GetStt bcs L03E7 lda <u0072,u tfr a,b anda #$01 sta <u000D andb #$02 stb <u000C lda <u0071,u tfr a,b anda #$81 lbne L0AAB andb #$20 stb <u0011 ldd <u0074,u std <u000E ldd <u0077,u stb <u0013 ldd <u0079,u stb <u0012 ldb <u007B,u stb <u0010 bra L0436 L042F cmpa #$60 bls L0435 suba #$20 L0435 rts L0436 ldx <u0001 L0438 lda ,x+ bsr L042F cmpa #$0D lbeq L0502 ldb #$01 tst <u0011 bne L0456 cmpa #$53 bne L0456 clr <u000D lda #$0A sta <u0012 sta <u0013 bra L0438 L0456 cmpa #$44 bne L045E stb <u000D bra L0438 L045E cmpa #$52 bne L0480 stb <u0003 bra L0438 cmpa #$43 bne L0478 lda #$20 sta <u0011 stb <u000D lda #$12 sta <u0012 sta <u0013 bra L0438 L0478 cmpa #$4F bne L0480 clr <u0011 bra L0438 L0480 cmpa #$31 bne L0488 stb <u000F bra L0438 L0488 cmpa #$32 bne L0497 cmpb <u0075 lbeq L0AAB incb stb <u000F bra L0438 L0497 cmpa #$34 bne L049F clr <u000C bra L04D5 L049F cmpa #$27 bne L04BD lbsr L069E lbcs L0AB0 cmpd <u0073 lbhi L0AAB stb <u000E lda ,x+ cmpa #$27 lbne L0AB0 bra L04D5 L04BD cmpa #$22 bne L04EF inc <u0004 leay >u00AD,u ldb #$20 L04C9 lda ,x+ cmpa #$22 bne L04D8 L04CF lda ,-y ora #$80 sta ,y L04D5 lbra L0438 L04D8 cmpa #$0D lbeq L0AB0 sta ,y+ decb bne L04C9 L04E3 lda ,x+ cmpa #$22 beq L04CF cmpa #$0D beq L04CF bra L04E3 L04EF cmpa #$3A bne L04D5 lbsr L069E stb <u0010 lda ,x+ cmpa #$3A lbne L0AB0 bra L04D5 L0502 bsr L057F clr <u008D lsl >$0E0D tst <u0026 eim #$8D,<u0071 oim #$20,<u0003 bsr L057F neg <u008D rol $02,x ldb <u000E lbsr L0638 bsr L057F com <u00D6 clr <u0017 oim #$14,<u008D rolb lsr <u000D fcb $11 beq L0530 bsr L057F eim #$20,<u0003 L0530 bsr L057F ror <u008D deca asr <u00D6 nop lbsr L0638 bsr L057F lsl <u00D6 sync lbsr L0638 bsr L057F rol <u008D pulu dp,b,a bsr L057F L054B fcb $10 ldb <u001A clra tfr d,y leax <u0023,u lda #$01 os9 I$WritLn lbcs L03E7 bsr L057F jmp <u000D com <u0010 bne L0566 bita #$8D lbsr L16F7 sexw nop lbsr L061D lbeq L06EB cmpa #$51 lbeq L09A0 cmpa #$4E bne L0546 bra L0581 L057F bra L05FB L0581 bra L059D bsr L05FB dec <u000F fcb $11 lbsr L061D bne L059D lda #$20 sta <u0011 lda #$12 sta <u0012 sta <u0013 lda #$01 sta <u000D bra L05B6 L059D tst <u0011 bne L05B6 lda #$0A sta <u0012 sta <u0013 bsr L05FB tim #$0F,<u000D bsr L061D bne L05B6 inc <u000D lda #$10 sta <u0013 L05B6 tst <u000C beq L05C3 bsr L05FB bcs L054B fcb $5E ^ bne L05C3 clr <u000C L05C3 lda <u0075 cmpa #$01 beq L05D6 bsr L05FB inc <u0086 oim #$97,<u000F bsr L061D bne L05D6 inc <u000F L05D6 bsr L05FB tst <u0010 ldx #$0050 leax >u00CD,u clra os9 I$ReadLn lbcs L03E7 lbsr L069E bcs L05D6 cmpd <u0073 bhi L05D6 stb <u000E bsr L05FB jmp <u0016 stu >$0735 ldw ,x+ pshs x leax >L0033,pcr L0605 tsta beq L060E ldb ,x+ abx deca bra L0605 L060E ldb ,x+ clra tfr d,y lda #$01 os9 I$WritLn lbcs L03E7 rts L061D clr ,-s tfr s,x ldy #$0001 clra os9 I$Read lbcs L03E7 bsr L05FB jmp <u0035 aim #$17,<u00FD orb >$8159 rts L0638 clra leax <u002B,u ldy #$0004 bsr L065D leax <u002D,u ldy #$0003 lda #$01 os9 I$WritLn lbcs L03E7 rts L0653 beq L0665 com <u00E8 neg <u0064 neg <u000A neg <u0001 L065D pshs y pshs x,b,a lda #$30 ldb #$05 L0665 stb $04,s L0667 sta ,x+ decb bne L0667 puls x,b,a pshs x,b,a leay <L0653,pcr L0673 subd ,y bcs L067B inc ,x bra L0673 L067B addd ,y++ leax $01,x dec $04,s bne L0673 puls x,b,a puls y pshs y tst $01,s beq L069B lda #$30 ldb #$20 L0691 cmpa ,x bne L069B stb ,x+ dec $01,s bne L0691 L069B leas $02,s rts L069E pshs y leay u0007,u bsr L06A6 puls pc,y L06A6 clrb clra std ,y L06AA lda ,x+ cmpa #$20 beq L06AA cmpa #$30 bcs L06E2 cmpa #$39 bhi L06E2 suba #$30 sta $01,y L06BC ldb ,x+ cmpb #$30 bcs L06E5 cmpb #$39 bhi L06E5 subb #$30 clra pshs b,a lda $01,y ldb #$0A mul pshs b,a lda ,y ldb #$0A mul tfr b,a clrb addd ,s++ addd ,s++ std ,y bra L06BC L06E2 comb bra L06E6 L06E5 clrb L06E6 leax -$01,x ldd ,y rts L06EB lda <u0000 ldb #$03 os9 I$SetStt lda <u000D pshs a tst <u0011 beq L070E leax >L034C,pcr L06FE lda <u0012 lbsr L0A01 clra clrb lbsr L09BC puls a sta <u000D bra L0716 L070E leax >L0304,pcr clr <u000D bra L06FE L0716 leax >L034C,pcr tst <u0011 bne L0734 leax >L0304,pcr tst <u000D beq L0734 leax >L0328,pcr lda <u0013 cmpa #$10 bls L0734 leax >L034C,pcr L0734 lda <u0013 lbsr L0A01 bra L0746 L073B lda <u0009 inca cmpa <u000E beq L0755 clrb lbsr L09BC L0746 lda <u000F cmpa #$02 bne L073B lda <u0009 ldb #$01 lbsr L09BC bra L073B L0755 lda <u0013 sta <u0091 sta <u00A0 ldd <u008F addd #$0007 lsra rorb lsra rorb lsra rorb std <u0092 subd #$0001 pshs a ldb #$02 addb ,s+ stb <u0098 ldb #$01 stb <u0095 lda <u000C ora <u000D lsla ldb <u000F cmpb #$02 bne L0783 inca L0783 sta <u009E lda <u00AD leax >u00A8,u os9 F$Time sta <u00AD tst <u0004 bne L07B8 lbsr L05FB sync leax >u00AD,u ldy #$0020 clra os9 I$ReadLn lbcs L03E7 tfr y,d L07AA decb lda b,x tstb beq L07B4 cmpa #$0D beq L07AA L07B4 ora #$80 sta b,x L07B8 lda #$FF sta <u009B ldd <u00A9 addd <u00AB pshs b,a ldb <u00AC leax >u00AD,u L07C8 lda ,s eora b,x sta ,s rola rol $01,s rol ,s decb bne L07C8 puls b,a addd <u000D subd <u0011 addd <u0005 subd <u0001 std <u009C leax >u00CD,u ldy #$1000 L07EA clr ,x+ leay -$01,y bne L07EA lda <u0000 ldb #$03 os9 I$SetStt ldy #$0100 leax >u008E,u os9 I$Write lbcs L03E7 ldd <u0092 inca clrb tfr d,y leax >u00CD,u lda #$FF L0812 sta ,x+ leay -$01,y bne L0812 ldy <u008F leax >u00CD,u clra clrb os9 F$DelBit ldb <u0092 addb #$02 addb <u007C std <u0037 tfr d,y clra clrb os9 F$AllBit lda <u0000 os9 I$Close bcc L083D L083A lbra L09A6 L083D leax <u0023,u lda #$01 os9 I$Open bcs L083A sta <u0000 leax >u1A6F,u ldy #$0100 os9 I$Read bcs L083A os9 I$Read bcs L083A lda <u0000 os9 I$Close bcs L083A leax <u0023,u lda #$03 os9 I$Open bcs L083A sta <u0000 ldd <u008F std <u0035 lda <u0000 ldx #$0000 tfr x,u os9 I$Seek ldu <u0005 lbcs L091A lbsr L05FB sexw L0886 ldd <u0030 cmpd <u008F lbeq L091D tst <u0034 bne L08B6 ldy #$0001 leax >L00B4,pcr lda #$01 os9 I$Write bcs L091A ldb <u0033 lbsr L0638 leax >L007B,pcr ldy #$0001 lda #$01 os9 I$WritLn bcs L091A L08B6 leax >u1A6F,u ldy #$0100 lda <u0000 os9 I$Read bcc L08F6 ldd <u0030 cmpd <u0037 bcs L0914 ldy #$0001 leax >u00CD,u os9 F$AllBit ldd <u0035 subd #$0001 std <u0035 clrb L08DF pshs b ldd <u0030 addd #$0001 pshs b,a clrb pshs b puls u,x lda <u0000 os9 I$Seek ldu <u0005 bcs L091A L08F6 ldd <u0030 addd #$0001 std <u0030 inc <u0034 ldb <u0012 clra cmpd <u0030 bcc L0909 ldb <u0013 L0909 cmpb <u0034 bne L0911 clr <u0034 inc <u0033 L0911 lbra L0886 L0914 lbsr L05FB bne L08DF oim #$16,<u0000 adca #$17 ldd >$DB0E ldd <u0035 leax <u002B,u ldy #$0004 lbsr L065D leax <u002B,u ldy #$0005 lda #$01 os9 I$WritLn bcs L091A lbsr L05FB fcb $15 ldx #$0000 ldu #$0100 lda <u0000 os9 I$Seek ldu <u0005 bcs L091A leax >u00CD,u lda <u0098 deca clrb leax d,x lda #$BF sta ,x ldd <u00A8 std $03,x std $0D,x ldd <u00AA std $05,x sta $0F,x lda <u00AC sta $07,x lda #$40 sta $0C,x ldb <u0098 stb >$011F,x stb >$013F,x incb stb <$12,x ldb <u007C decb stb <$14,x ldd #$2EAE std >$0100,x stb >$0120,x lda <u0038 deca clrb tfr d,y leax >u00CD,u lda <u0000 os9 I$Write bcs L09A6 L09A0 ldu <u001B os9 I$Detach L09A5 clrb L09A6 pshs b,cc ldb <u006D ldu <u0005 leax <u004D,u stb $07,x lda #$01 clrb os9 I$SetStt puls b,cc L09B9 os9 F$Exit L09BC bsr L09E9 pshs u clra ldb <u000D orb <u000C lslb orb <u000A tfr d,y ldb <u0009 pshs b,a leax >u00CD,u puls u lda <u0000 ldb #$04 os9 I$SetStt bcc L09DF bra L09A6 L09DF ldd <u008F addb <u000B adca #$00 std <u008F puls pc,u L09E9 std <u0009 ldb <u000B pshs b ldx <u0014 L09F1 ldd <u0009 std ,x tfr x,d addd <u0018 tfr d,x dec ,s bne L09F1 puls pc,b L0A01 sta <u000B ldb <u0010 lbsr L0A7E leay >u00CD,u clrb pshs x,b,a ldd -$02,x std <u0018 ldb #$05 bsr L0A6F stx <u0016 ldb #$03 bsr L0A6F sty <u0014 ldb #$09 bsr L0A6F ldb ,s decb pshs b L0A29 ldx <u0016 ldb #$0C bsr L0A6F dec ,s bne L0A29 leas $01,s leax >u1A6F,u tfr x,d pshs y subd ,s std ,s ldx $04,s lda $01,x puls x L0A47 sta ,y+ leax -$01,x bne L0A47 ldy <u0014 leax <u0039,u ldb $01,s L0A55 lda b,x tst <u0011 beq L0A5C inca L0A5C sta $02,y L0A5E incb stb $01,s tfr y,d addd <u0018 tfr d,y ldb $01,s cmpb ,s bne L0A55 puls pc,x,b,a L0A6F pshs b L0A71 ldd ,x++ L0A73 stb ,y+ deca bne L0A73 dec ,s bne L0A71 puls pc,b L0A7E pshs x,b,a leax <u0039,u lda #$FF ldb #$14 L0A87 sta ,x+ decb bne L0A87 leax <u0039,u clra clrb bra L0A94 L0A93 incb L0A94 cmpb ,s bcs L0A9A subb ,s L0A9A tst b,x bpl L0A93 sta b,x inca cmpa ,s beq L0AA9 addb $01,s bra L0A94 L0AA9 puls pc,x,b,a L0AAB ldb #$F9 os9 F$Exit L0AB0 bsr L0AB8 lbra L09A5 L0AB5 lbra L05FB L0AB8 bsr L0AB5 daa bsr L0AB5 orcc #$8D bitb >$1B8D sbcb >$1C8D stu -$03,x bsr L0AB5 exg a,0 adcb -$01,x bsr L0AB5 bra L0A5E addd $02,y bsr L0AB5 bls L0A64 std <u0024 rts fcb $01 fcb $E9 i emod eom equ *