- 注册时间
- 2004-9-3
- 最后登录
- 1970-1-1
|
昨天闲着没事干瞎写了些东西,传上来给大家看看,大虾们就没必要看了。本来想把BIN程序上传上来的,可是用FTPLINK总是不成功,所以就把源码上传上来了.
4010: A2 00 LDX #$00 ;//初始寄存器X的值
4012: A9 00 LDA #$00 ;
4014: 9D 00 0B STA $0B00,X ;//将00h放入$(0B00+X)
4017: E8 INX ;//每循环一次X=X+1
4018: E0 32 CPX #$32 ;//X与32h比较
401A: D0 F6 BNE $4012 ;//如果X比32h小就跳转到$4012
401C: F0 00 BEQ $401E ;//如果X与32h相等就跳转到$401E
信息筐:
401E: A9 02 LDA #$02 ; //定义信息筐的类型为选择筐?
4020: A2 40 LDX #$40 ;//地址参数
4022: A0 40 LDY #$40 ;//地址参数
4024: 00 12 CA BRK $CA12 ;//信息筐中断
4027: EA NOP ;
4028: EA NOP ;
4029: EA NOP ;
402A: C9 79 CMP #$79 ;//将A中的值与79h比较
402C: F0 02 BEQ $4030 ;//如果A=79h就跳转到$4030
402E: D0 06 BNE $4036 ;//如果A<>79h就跳转到$4036
4030: 00 06 03 BRK $0306 ;//将$0B00-$0B32的密文覆盖当前密文,而$0B00-$0B32已皆为00,这样就起到清除密码的作用了。
4033: 4C 6D 40 JMP $4060 ;//无条件跳转到$406D
4036: EA NOP ;
4037: 60 RTS ;
4038: .DB $FF ;
403B: .DB $FF ;
403E: .DB $FF ;
4041: .DB $FF ;
$4044-$404E为选择信息筐的参数
4044: .DB $80 ;
4047: 40 RTI ;
4048: 10 15 BPL $405F ;
404A: 0E 02 49 ASL $4902 ;
404D: 40 RTI ;
404E: .DB $02 ;
4050: .DB $FF ;
4053: .DB $FF ;
$4056-$4064为选择信息筐的文字内容
4056: 20 20 20 JSR $2020 ;
4059: .DB $C7 ;
405D: FD C3 DC SBC $DCC3,X ;
4060: .DB $C2 ;
4064: .DB $BF ;
4067: .DB $FF ;
406A: .DB $FF ;
406D: A9 00 LDA #$00 ;//定义信息筐的类型为普通信息筐
406F: A2 70 LDX #$70 ;//参数地址
4071: A0 40 LDY #$40 ;//参数地址
4073: 00 12 CA BRK $CA12 ;//信息筐中断
4076: 20 33 E0 JSR $E033 ;延时160毫秒
4079: 20 33 E0 JSR $E033 ;
407C: 60 RTS ;
$407D-$4087为普通信息筐参数
407D: .DB $80 ;
4080: 40 RTI ;
4081: 10 15 BPL $4098 ;
4083: 0E 04 79 ASL $7904 ;
4086: 40 RTI ;
4087: .DB $02 ;
4089: .DB $FF ;
408C: .DB $FF ;
408F: .DB $FF ;
$4092-$40B0为普通信息筐的文字内容
4092: 20 C3 DC JSR $DCC3 ;
4095: .DB $C2 ;
4099: D1 C7 CMP ($C7),Y ;
409B: E5 B3 SBC $B3 ;
409D: FD 21 21 SBC $2121,X ;
40A0: 21 00 AND ($00,X) ;
40A2: .DB $63 ;
40A5: 6E 67 72 ROR $7267 ;
40A8: 61 74 ADC ($74,X) ;
40AA: 75 6C ADC $6C,X ;
40AC: 61 74 ADC ($74,X) ;
40AE: 69 6F ADC #$6F ;
40B0: 6E 00 FF ROR $FF00 ; |
|