Mercurial > hg > Members > kono > nitros9-code
diff 3rdparty/drivers/sdisk/sformat.asm @ 207:347828fbd427
Added additional programs that came with SDisk + Bootfix
| author | boisy |
|---|---|
| date | Mon, 15 Jul 2002 12:28:44 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/drivers/sdisk/sformat.asm Mon Jul 15 12:28:44 2002 +0000 @@ -0,0 +1,1820 @@ + 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 *