Mercurial > hg > Members > kono > nitros9-code
diff 3rdparty/packages/os9l2bbs/cmds/BBS.mail.readD.asm @ 2400:75ba2a80a4e3
OS-9 L2 BBS Commands disassembled
author | boisy |
---|---|
date | Sun, 24 Jan 2010 17:20:05 +0000 (2010-01-24) |
parents | |
children | 04755ee002ba |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/packages/os9l2bbs/cmds/BBS.mail.readD.asm Sun Jan 24 17:20:05 2010 +0000 @@ -0,0 +1,735 @@ + nam BBS.mail.readD + ttl program module + +* Disassembled 2010/01/24 10:34:32 by Disasm v1.5 (C) 1988 by RML + + ifp1 + use /dd/defs/defsfile + endc +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 + mod eom,name,tylg,atrv,start,size +u0000 rmb 1 +u0001 rmb 2 +u0003 rmb 1 +u0004 rmb 1 +u0005 rmb 3 +u0008 rmb 1 +u0009 rmb 1 +u000A rmb 2 +u000C rmb 8 +u0014 rmb 3 +u0017 rmb 1 +u0018 rmb 13 +u0025 rmb 1 +u0026 rmb 1 +u0027 rmb 1 +u0028 rmb 1 +u0029 rmb 1 +u002A rmb 1 +u002B rmb 1 +u002C rmb 1 +u002D rmb 1 +u002E rmb 64 +u006E rmb 80 +u00BE rmb 2 +u00C0 rmb 2 +u00C2 rmb 20 +u00D6 rmb 30 +u00F4 rmb 1 +u00F5 rmb 1 +u00F6 rmb 6 +u00FC rmb 62 +u013A rmb 140 +size equ . +name equ * + fcs /BBS.mail.readD/ + 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 $28 ( + fcb $43 C + fcb $29 ) + fcb $20 + fcb $31 1 + fcb $39 9 + fcb $38 8 + fcb $38 8 + fcb $42 B + fcb $79 y + fcb $20 + fcb $4B K + fcb $65 e + fcb $69 i + fcb $74 t + fcb $68 h + fcb $20 + fcb $41 A + fcb $6C l + fcb $70 p + fcb $68 h + fcb $6F o + fcb $6E n + fcb $73 s + fcb $6F o + fcb $4C L + fcb $69 i + fcb $63 c + fcb $65 e + fcb $6E n + fcb $63 c + fcb $65 e + fcb $64 d + fcb $20 + fcb $74 t + fcb $6F o + fcb $20 + fcb $41 A + fcb $6C l + fcb $70 p + fcb $68 h + fcb $61 a + fcb $20 + fcb $53 S + fcb $6F o + fcb $66 f + fcb $74 t + fcb $77 w + fcb $61 a + fcb $72 r + fcb $65 e + fcb $20 + fcb $54 T + fcb $65 e + fcb $63 c + fcb $68 h + fcb $6E n + fcb $6F o + fcb $6C l + fcb $6F o + fcb $67 g + fcb $69 i + fcb $65 e + fcb $73 s + fcb $41 A + fcb $6C l + fcb $6C l + fcb $20 + fcb $72 r + fcb $69 i + fcb $67 g + fcb $68 h + fcb $74 t + fcb $73 s + fcb $20 + fcb $72 r + fcb $65 e + fcb $73 s + fcb $65 e + fcb $72 r + fcb $76 v + fcb $65 e + fcb $64 d + fcb $EC l + fcb $E6 f + fcb $EA j + fcb $F5 u + fcb $E9 i + fcb $A0 + fcb $E2 b + fcb $ED m + fcb $F1 q + fcb $E9 i + fcb $F0 p + fcb $EF o + fcb $F4 t + fcb $F0 p + fcb $48 H + fcb $69 i + fcb $67 g + fcb $68 h + fcb $20 + fcb $6D m + fcb $65 e + fcb $73 s + fcb $73 s + fcb $61 a + fcb $67 g + fcb $65 e + fcb $20 + fcb $69 i + fcb $73 s + fcb $20 + fcb $23 # + fcb $00 + fcb $11 + fcb $45 E + fcb $6E n + fcb $74 t + fcb $65 e + fcb $72 r + fcb $20 + fcb $6D m + fcb $65 e + fcb $73 s + fcb $73 s + fcb $61 a + fcb $67 g + fcb $65 e + fcb $20 + fcb $23 # + fcb $0D + fcb $3E > +L00AA fcb $42 B + fcb $42 B + fcb $53 S + fcb $2E . + fcb $6D m + fcb $61 a + fcb $69 i + fcb $6C l + fcb $2E . + fcb $69 i + fcb $6E n + fcb $78 x + fcb $0D +L00B7 fcb $42 B + fcb $42 B + fcb $53 S + fcb $2E . + fcb $6D m + fcb $61 a + fcb $69 i + fcb $6C l + fcb $0D + fcb $2A * + fcb $2A * + fcb $2A * + fcb $2A * + fcb $2A * + fcb $2A * + fcb $20 + fcb $20 + fcb $20 + fcb $44 D + fcb $45 E + fcb $4C L + fcb $45 E + fcb $54 T + fcb $45 E + fcb $44 D + fcb $20 + fcb $20 + fcb $20 + fcb $2A * + fcb $2A * + fcb $2A * + fcb $2A * + fcb $2A * + fcb $2A * + fcb $0D +L00DA fcb $0A + fcb $0A + fcb $46 F + fcb $72 r + fcb $6F o + fcb $6D m + fcb $20 + fcb $20 + fcb $20 + fcb $20 + fcb $3A : +L00E5 fcb $4C L + fcb $65 e + fcb $66 f + fcb $74 t + fcb $20 + fcb $6F o + fcb $6E n + fcb $20 + fcb $3A : +L00EE fcb $41 A + fcb $62 b + fcb $6F o + fcb $75 u + fcb $74 t + fcb $20 + fcb $20 + fcb $20 + fcb $3A : +L00F7 fcb $00 + fcb $09 +L00F9 fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $2D - + fcb $0D +L0139 fcb $0A + fcb $0D +L013B fcb $0A + fcb $54 T + fcb $68 h + fcb $61 a + fcb $74 t + fcb $27 ' + fcb $73 s + fcb $20 + fcb $61 a + fcb $6C l + fcb $6C l + fcb $20 + fcb $74 t + fcb $68 h + fcb $65 e + fcb $20 + fcb $6D m + fcb $61 a + fcb $69 i + fcb $6C l + fcb $20 + fcb $74 t + fcb $68 h + fcb $61 a + fcb $74 t + fcb $20 + fcb $77 w + fcb $61 a + fcb $73 s + fcb $20 + fcb $6C l + fcb $65 e + fcb $66 f + fcb $74 t + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $20 + fcb $79 y + fcb $6F o + fcb $75 u + fcb $0D +L0166 fcb $53 S + fcb $6F o + fcb $72 r + fcb $72 r + fcb $79 y + fcb $2C , + fcb $20 + fcb $79 y + fcb $6F o + fcb $75 u + fcb $20 + fcb $68 h + fcb $61 a + fcb $76 v + fcb $65 e + fcb $20 + fcb $6E n + fcb $6F o + fcb $20 + fcb $6D m + fcb $61 a + fcb $69 i + fcb $6C l + fcb $0D +L017E fcb $43 C + fcb $68 h + fcb $65 e + fcb $63 c + fcb $6B k + fcb $69 i + fcb $6E n + fcb $67 g + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $20 + fcb $6D m + fcb $61 a + fcb $69 i + fcb $6C l + fcb $2E . + fcb $2E . + fcb $2E . + fcb $0A + fcb $0D +L0194 fcb $52 R + fcb $65 e + fcb $2D - + fcb $52 R + fcb $65 e + fcb $61 a + fcb $64 d + fcb $3F ? + fcb $20 + fcb $28 ( + fcb $59 Y + fcb $2F / + fcb $4E N + fcb $29 ) + fcb $3A : + fcb $0D +L01A4 fcb $42 B + fcb $42 B + fcb $53 S + fcb $2E . + fcb $6D m + fcb $61 a + fcb $69 i + fcb $6C l + fcb $2E . + fcb $64 d + fcb $65 e + fcb $6C l + fcb $65 e + fcb $74 t + fcb $65 e + fcb $0D +start equ * + os9 F$ID + sty u000C,u + ldy #$0000 + os9 F$SUser + leax >L00AA,pcr + lda #$01 + os9 I$Open + lbcs L03A6 + sta ,u + leax >L00B7,pcr + lda #$01 + os9 I$Open + lbcs L03A6 + sta u0001,u + clr u0004,u + leax >L017E,pcr + ldy #$00C8 + lda #$01 + os9 I$WritLn + leax <u002E,u + ldy #$0040 + lda ,u + os9 I$Read + lbcs L03A6 +L01FE leax >u00BE,u + ldy #$0040 + lda ,u + os9 I$Read + bcs L0218 + ldd >u00FC,u + cmpd u000C,u + bne L01FE + bra L0262 +L0218 cmpb #$D3 + lbne L03A6 + tst u0004,u + beq L0252 + leax >L013B,pcr + ldy #$00C8 + lda #$01 + os9 I$WritLn + lda u0001,u + os9 I$Close + lda ,u + os9 I$Close + ldy u000C,u + os9 F$SUser + leax >L01A4,pcr + ldy #$0001 + leau >u013A,u + lda #$11 + ldb #$03 + os9 F$Chain +L0252 leax >L0166,pcr + ldy #$00C8 + lda #$01 + os9 I$WritLn + lbra L03A5 +L0262 inc u0004,u + ldd >u00BE,u + cmpd #$FFFF + lbeq L01FE + leax >L00DA,pcr + ldy >L00F7,pcr + leay $02,y + lda #$01 + os9 I$Write + leax >u00C2,u + ldy #$00C8 + lda #$01 + os9 I$WritLn + lbcs L03A6 + leax >L00E5,pcr + ldy >L00F7,pcr + lda #$01 + os9 I$Write + leax <u0014,u + ldb >u00F5,u + clra + lbsr L041A + lda <u0017,u + sta <u0025,u + lda <u0018,u + sta <u0026,u + lda #$2F + sta <u0027,u + ldb >u00F6,u + clra + leax <u0014,u + lbsr L041A + lda <u0017,u + sta <u0028,u + lda <u0018,u + sta <u0029,u + lda #$2F + sta <u002A,u + ldb >u00F4,u + clra + leax <u0014,u + lbsr L041A + lda <u0017,u + sta <u002B,u + lda <u0018,u + sta <u002C,u + lda #$0D + sta <u002D,u + leax <u0025,u +L02F6 lda ,x+ + cmpa #$20 + beq L02F6 + leax -$01,x + ldy #$00C8 + lda #$01 + os9 I$WritLn + lbcs L03A6 + leax >L00EE,pcr + ldy >L00F7,pcr + lda #$01 + os9 I$Write + leax >u00D6,u + ldy #$001E + os9 I$WritLn + lbcs L03A6 + bra L032A +L032A leax >L00F9,pcr + ldy #$0040 + lda #$01 + os9 I$WritLn + lda u0001,u + ldx >u00BE,u + pshs u + ldu >u00C0,u + os9 I$Seek + lbcs L03A6 + puls u +L034C lda u0001,u + leax <u006E,u + ldy #$0050 + os9 I$ReadLn + lda #$01 + os9 I$WritLn + cmpy #$0001 + bhi L034C + leax >L00F9,pcr + ldy #$0040 + lda #$01 + os9 I$WritLn + leax >L0194,pcr + ldy #$00C8 + lda #$01 + os9 I$WritLn + leax u0005,u + ldy #$0001 + clra + os9 I$Read + leax >L0139,pcr + ldy #$0001 + lda #$01 + os9 I$WritLn + lda u0005,u + cmpa #$79 + lbeq L032A + cmpa #$59 + lbeq L032A + lbra L01FE +L03A5 clrb +L03A6 pshs b + ldy u000C,u + os9 F$SUser + puls b + os9 F$Exit + pshs y +L03B5 lda ,x+ + cmpa #$0D + lbeq L0488 + cmpa #$30 + bcs L03B5 + cmpa #$39 + bhi L03B5 + leax -$01,x +L03C7 lda ,x+ + cmpa #$30 + bcs L03D3 + cmpa #$39 + bhi L03D3 + bra L03C7 +L03D3 pshs x + leax -$01,x + clr u0008,u + clr u0009,u + ldd #$0001 + std u000A,u +L03E0 lda ,-x + cmpa #$30 + bcs L0414 + cmpa #$39 + bhi L0414 + suba #$30 + sta u0003,u + ldd #$0000 +L03F1 tst u0003,u + beq L03FB + addd u000A,u + dec u0003,u + bra L03F1 +L03FB addd u0008,u + std u0008,u + lda #$0A + sta u0003,u + ldd #$0000 +L0406 tst u0003,u + beq L0410 + addd u000A,u + dec u0003,u + bra L0406 +L0410 std u000A,u + bra L03E0 +L0414 ldd u0008,u + puls x + puls pc,y +L041A pshs x + std u0008,u + lda #$30 + sta ,x + sta $01,x + sta $02,x + sta $03,x + sta $04,x + ldd #$2710 + std u000A,u + ldd u0008,u + lbsr L0479 + ldd #$03E8 + std u000A,u + ldd u0008,u + bsr L0479 + ldd #$0064 + std u000A,u + ldd u0008,u + bsr L0479 + ldd #$000A + std u000A,u + ldd u0008,u + bsr L0479 + ldd #$0001 + std u000A,u + ldd u0008,u + bsr L0479 + lda #$0D + sta ,x + puls x + ldb #$20 +L0460 lda ,x + cmpa #$30 + bne L046A + stb ,x+ + bra L0460 +L046A lda ,x+ + cmpa #$30 + bcs L0476 + cmpa #$39 + bhi L0476 + bra L046A +L0476 leax -$01,x + rts +L0479 subd u000A,u + bcs L0481 + inc ,x + bra L0479 +L0481 addd u000A,u + std u0008,u + leax $01,x + rts +L0488 ldd #$FFFF + puls pc,y + emod +eom equ * + end