SECTION text,CODE __code: main: MOVE.L A7,D0 ;200f SUB.L #$200,D0 ;90bc 0000 0200 CMP.L __base(A4),D0 ;b0ac 0000 BCS.W _XCOVF ;6500 0000 SUB.W #$1f0,A7 ;9efc 01f0 MOVEM.L D5/D6/D7/A5,-(A7) ;48e7 0704 ___main__1: MOVE.L $208(A7),A5 ;2a6f 0208 MOVEQ.L #$0,D7 ;7e00 MOVEQ.L #$0,D6 ;7c00 MOVEQ.L #$0,D5 ;7a00 CLR.L $110(A7) ;42af 0110 PEA __MERGED+$84(A4) ;486c 0084 BSR.W FindPort ;6100 0000 ADDQ.W #$4,A7 ;584f TST.L D0 ;4a80 BNE.B ___main__3 ;661a ___main__2: CLR.L -(A7) ;42a7 CLR.L -(A7) ;42a7 PEA __MERGED+$70(A4) ;486c 0070 CLR.L -(A7) ;42a7 BSR.W EasyRequest ;6100 0000 PEA ($1).w ;4878 0001 BSR.W exit ;6100 0000 LEA $14(A7),A7 ;4fef 0014 ___main__3: MOVE.L $4(A5),A0 ;206d 0004 MOVE.B (A0),D0 ;1010 EXT.W D0 ;4880 EXT.L D0 ;48c0 MOVEQ.L #$30,D1 ;7230 SUB.L D1,D0 ;9081 MOVE.L D0,-(A7) ;2f00 BSR.W Register ;6100 0000 PEA ($fffffffe).w ;4878 fffe PEA __MERGED+$8e(A4) ;486c 008e BSR.W Lock ;6100 0000 LEA $c(A7),A7 ;4fef 000c MOVE.L D0,$114(A7) ;2f40 0114 BNE.B ___main__6 ;6626 ___main__4: PEA ($1).w ;4878 0001 PEA __MERGED+$98(A4) ;486c 0098 BSR.W sendmessage ;6100 0000 PEA ($1).w ;4878 0001 PEA __MERGED+$9a(A4) ;486c 009a BSR.W sendmessage ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__5: LEA $10(A7),A7 ;4fef 0010 BRA.B ___main__7 ;6008 ___main__6: MOVE.L D0,-(A7) ;2f00 BSR.W UnLock ;6100 0000 ADDQ.W #$4,A7 ;584f ___main__7: PEA ($83).w ;4878 0083 PEA $4c(A7) ;486f 004c BSR.W getuserstring ;6100 0000 PEA $50(A7) ;486f 0050 BSR.W __strupr ;6100 0000 LEA $c(A7),A7 ;4fef 000c MOVE.L D0,A0 ;2040 LEA __MERGED+$e2(A4),A1 ;43ec 00e2 ___main__8: MOVE.B (A0)+,D1 ;1218 CMP.B (A1)+,D1 ;b219 BNE.B ___main__10 ;6604 ___main__9: TST.B D1 ;4a01 BNE.B ___main__8 ;66f6 ___main__10: BNE.W ___main__25 ;6600 00b6 ___main__11: TST.W D7 ;4a47 BNE.B ___main__18 ;662c ___main__12: MOVEQ.L #$20,D0 ;7020 CMP.B $48(A7,D5.L),D0 ;b037 5848 BNE.B ___main__11 ;66f4 ___main__13: TST.W D6 ;4a46 BNE.B ___main__11 ;66f0 ___main__14: ADDQ.L #$1,D5 ;5285 MOVE.L $110(A7),D0 ;202f 0110 MOVE.B $48(A7,D5.L),$16(A7,D0.L);1fb7 5848 0816 ADDQ.L #$1,$110(A7) ;52af 0110 MOVE.L $110(A7),D0 ;202f 0110 TST.B $16(A7,D0.L) ;4a37 0816 BNE.B ___main__13 ;66e2 ___main__15: MOVEQ.L #$1,D7 ;7e01 MOVEQ.L #$1,D6 ;7c01 BRA.B ___main__11 ;60d0 ___main__16: ___main__17: ___main__18: PEA ($64).w ;4878 0064 PEA $11c(A7) ;486f 011c BSR.W getuserstring ;6100 0000 PEA ($1).w ;4878 0001 PEA $22(A7) ;486f 0022 BSR.W sendmessage ;6100 0000 PEA $148(A7) ;486f 0148 PEA __MERGED+$f8(A4) ;486c 00f8 PEA __MERGED+$e8(A4) ;486c 00e8 BSR.W GetIconTooltype ;6100 0000 PEA $134(A7) ;486f 0134 BSR.W __strupr ;6100 0000 PEA $158(A7) ;486f 0158 MOVE.L D0,$34(A7) ;2f40 0034 BSR.W __strupr ;6100 0000 LEA $24(A7),A7 ;4fef 0024 MOVE.L $10(A7),A0 ;206f 0010 MOVE.L D0,A1 ;2240 ___main__19: MOVE.B (A0)+,D1 ;1218 CMP.B (A1)+,D1 ;b219 BNE.B ___main__21 ;6604 ___main__20: TST.B D1 ;4a01 BNE.B ___main__19 ;66f6 ___main__21: BEQ.B ___main__24 ;6726 ___main__22: PEA ($1).w ;4878 0001 PEA __MERGED+$100(A4) ;486c 0100 BSR.W sendmessage ;6100 0000 PEA ($1).w ;4878 0001 PEA __MERGED+$102(A4) ;486c 0102 BSR.W sendmessage ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__23: LEA $10(A7),A7 ;4fef 0010 BRA.B ___main__25 ;600c ___main__24: BSR.W Menu ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__25: PEA $48(A7) ;486f 0048 BSR.W __strupr ;6100 0000 ADDQ.W #$4,A7 ;584f MOVE.L D0,A0 ;2040 LEA __MERGED+$142(A4),A1 ;43ec 0142 ___main__26: MOVE.B (A0)+,D1 ;1218 CMP.B (A1)+,D1 ;b219 BNE.B ___main__28 ;6604 ___main__27: TST.B D1 ;4a01 BNE.B ___main__26 ;66f6 ___main__28: BNE.B ___main__31 ;6628 ___main__29: BSR.W Enter_Message ;6100 0000 PEA ($1).w ;4878 0001 PEA __MERGED+$146(A4) ;486c 0146 BSR.W sendmessage ;6100 0000 PEA ($1).w ;4878 0001 PEA __MERGED+$152(A4) ;486c 0152 BSR.W sendmessage ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__30: LEA $10(A7),A7 ;4fef 0010 ___main__31: PEA $48(A7) ;486f 0048 BSR.W __strupr ;6100 0000 ADDQ.W #$4,A7 ;584f MOVE.L D0,A0 ;2040 LEA __MERGED+$178(A4),A1 ;43ec 0178 ___main__32: MOVE.B (A0)+,D1 ;1218 CMP.B (A1)+,D1 ;b219 BNE.B ___main__34 ;6604 ___main__33: TST.B D1 ;4a01 BNE.B ___main__32 ;66f6 ___main__34: BNE.B ___main__36 ;660c ___main__35: BSR.W Scanner ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__36: PEA $48(A7) ;486f 0048 BSR.W __strupr ;6100 0000 ADDQ.W #$4,A7 ;584f MOVE.L D0,A0 ;2040 LEA __MERGED+$182(A4),A1 ;43ec 0182 ___main__37: MOVE.B (A0)+,D1 ;1218 CMP.B (A1)+,D1 ;b219 BNE.B ___main__39 ;6604 ___main__38: TST.B D1 ;4a01 BNE.B ___main__37 ;66f6 ___main__39: BNE.B ___main__41 ;660c ___main__40: BSR.W Read_Mail ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__41: PEA ($1).w ;4878 0001 PEA __MERGED+$186(A4) ;486c 0186 BSR.W sendmessage ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___main__42: ADDQ.W #$8,A7 ;504f MOVEQ.L #$0,D0 ;7000 ___main__43: MOVEM.L (A7)+,D5/D6/D7/A5 ;4cdf 20e0 ADD.W #$1f0,A7 ;defc 01f0 RTS ;4e75 __const: __strings: Problem: MOVE.L A7,D0 ;200f SUBQ.L #$8,D0 ;5180 CMP.L __base(A4),D0 ;b0ac 0000 BCS.W _XCOVF ;6500 0000 MOVE.L A5,-(A7) ;2f0d ___Problem__1: MOVE.L $8(A7),A5 ;2a6f 0008 PEA ($1).w ;4878 0001 PEA __MERGED+$1aa(A4) ;486c 01aa BSR.W sendmessage ;6100 0000 PEA ($1).w ;4878 0001 MOVE.L A5,-(A7) ;2f0d BSR.W sendmessage ;6100 0000 BSR.W ShutDown ;6100 0000 BSR.W end ;6100 0000 ___Problem__2: LEA $10(A7),A7 ;4fef 0010 ___Problem__3: MOVE.L (A7)+,A5 ;2a5f RTS ;4e75 end: MOVE.L A7,D0 ;200f SUBQ.L #$4,D0 ;5980 CMP.L __base(A4),D0 ;b0ac 0000 BCS.W _XCOVF ;6500 0000 ___end__1: CLR.L -(A7) ;42a7 BSR.W exit ;6100 0000 ADDQ.W #$4,A7 ;584f ___end__2: RTS ;4e75 LastCommand: MOVE.L A7,D0 ;200f SUBQ.L #$8,D0 ;5180 CMP.L __base(A4),D0 ;b0ac 0000 BCS.W _XCOVF ;6500 0000 ___LastCommand__1: PEA ($1).w ;4878 0001 PEA __MERGED+$1ac(A4) ;486c 01ac BSR.W sendmessage ;6100 0000 ADDQ.W #$8,A7 ;504f ___LastCommand__2: RTS ;4e75 XREF __base XREF _XCOVF XREF FindPort XREF EasyRequest XREF exit XREF Register XREF Lock XREF sendmessage XREF ShutDown XREF UnLock XREF getuserstring XREF __strupr XREF GetIconTooltype XREF Menu XREF Enter_Message XREF Scanner XREF Read_Mail XDEF main XDEF Problem XDEF end XDEF LastCommand SECTION __MERGED,DATA __MERGED dead: DC.W $0000 __stdiowin: DC.B $4E DC.B $49 DC.B $4C DC.B $3A DC.B $00 verstring: DC.B $24 DC.B $56 DC.B $45 DC.B $52 DC.B $3A DC.B $20 DC.B $4D DC.B $61 DC.B $69 DC.B $6C DC.B $2D DC.B $4D DC.B $61 DC.B $6E DC.B $20 DC.B $42 DC.B $79 DC.B $20 DC.B $43 DC.B $72 DC.B $61 DC.B $79 DC.B $2D DC.B $31 DC.B $20 DC.B $20 DC.B $56 DC.B $31 DC.B $2E DC.B $33 DC.B $00 DC.B 'Mail Man V1.3 By Cray-1' DC.B $00 DC.B 'Warning!' DC.B $0a DC.B 'Ami_Express Needs To Be Running....' DC.B $00 DC.B $00 DC.B 'OK' DC.B $00 DC.B $00 Ami_Express: DC.L $00000014 DC.L $00000000 DC.L __MERGED+26 DC.L __MERGED+3e DC.L __MERGED+6c DC.B 'AE.Master' DC.B $00 DC.B 'Net_Mail:' DC.B $00 DC.B $00 DC.B $00 DC.B 'Sorry Net_Mail is Not Assigned..' DC.B $0a DC.B 'Please Check The Setup And Try Again.' DC.B $00 DC.B $00 DC.B 'NMENU' DC.B $00 DC.B 'Net_Mail:Server' DC.B $00 DC.B 'POSTMAN' DC.B $00 DC.B $00 DC.B $00 DC.B 'Sorry Only The Postman Is Able To DownLoad/Up' DC.B 'load Mail Packets.' DC.B $00 DC.B 'NE' DC.B $00 DC.B $00 DC.B 'Mail Sent.' DC.B $00 DC.B $00 DC.B 'Net-Mail V 1.3 By Cray-1 For A((eSS.' DC.B $00 DC.B 'NSCANNER' DC.B $00 DC.B $00 DC.B 'NR' DC.B $00 DC.B $00 DC.B 'Sorry I Dont Support Arguments Yet.' DC.B $00 DC.B $00 DC.B $00 DC.B $00 DC.B $00 DC.B $00 DC.B $00 XDEF dead XDEF __stdiowin XDEF Ami_Express END