display source code of "Kyatto Ninden Teyandee"

--------------------------start-----------------------------------

-- rom bank switch at 0xa000 --
00/8C92: A9 06 LDA #$06
00/8C94: 20 9E 8B JSR $8B9E

-- clear screen? --
00/8C97: AD 3C 04 LDA $043C
00/8C9A: C9 F5 CMP #$F5
00/8C9C: B0 62 BCS $8D00

-- delay check --
00/8C9E: AD 38 04 LDA $0438
00/8CA1: D0 0D BNE $8CB0
00/8CA3: AD 37 04 LDA $0437
00/8CA6: F0 0C BEQ $8CB4
00/8CA8: CE 37 04 DEC $0437
00/8CAB: A9 09 LDA #$09
00/8CAD: 8D 38 04 STA $0438
00/8CB0: CE 38 04 DEC $0438
00/8CB3: 60 RTS

-- restore delay counter --
00/8CB4: A8 TAY
00/8CB5: AD 39 04 LDA $0439
00/8CB8: 8D 38 04 STA $0438

-- get code --
00/8CBB: 20 50 8E JSR $8E50

-- control code? --
00/8CBE: C9 F5 CMP #$F5
00/8CC0: B0 3E BCS $8D00

-- set display header --
00/8CC2: A8 TAY
00/8CC3: A9 82 LDA #$82
00/8CC5: 20 3E 8E JSR $8E3E

-- japanese char --
00/8CC8: 98 TYA
00/8CC9: C9 B0 CMP #$B0
00/8CCB: 90 21 BCC $8CEE
00/8CCD: C9 C0 CMP #$C0
00/8CCF: B0 11 BCS $8CE2
00/8CD1: 38 SEC
00/8CD2: E9 B0 SBC #$B0
00/8CD4: A8 TAY
00/8CD5: A9 5D LDA #$5D
00/8CD7: 9D A3 03 STA $03A3,X
00/8CDA: B9 F8 8F LDA $8FF8,Y
00/8CDD: 9D A4 03 STA $03A4,X
00/8CE0: D0 14 BNE $8CF6
00/8CE2: 29 7F AND #$7F
00/8CE4: 9D A4 03 STA $03A4,X
00/8CE7: A9 5C LDA #$5C
00/8CE9: 9D A3 03 STA $03A3,X
00/8CEC: D0 08 BNE $8CF6
00/8CEE: 9D A4 03 STA $03A4,X
00/8CF1: A9 20 LDA #$20
00/8CF3: 9D A3 03 STA $03A3,X

-- inc pointer of display buffer --
00/8CF6: 8A TXA
00/8CF7: 18 CLC
00/8CF8: 69 05 ADC #$05
00/8CFA: 85 21 STA $21
00/8CFC: EE 3A 04 INC $043A
00/8CFF: 60 RTS

-- control code --
00/8D00: 38 SEC
00/8D01: E9 F5 SBC #$F5
00/8D03: A8 TAY
00/8D04: D0 1C BNE $8D22

-- F5: Set text pointer --
00/8D06: 20 50 8E JSR $8E50
00/8D09: 0A ASL
00/8D0A: AA TAX
00/8D0B: A5 0C LDA $0C
00/8D0D: 8D 3F 04 STA $043F
00/8D10: BD 00 A0 LDA $A000,X
00/8D13: 85 0C STA $0C
00/8D15: A5 0D LDA $0D
00/8D17: 8D 40 04 STA $0440
00/8D1A: BD 01 A0 LDA $A001,X
00/8D1D: 85 0D STA $0D
00/8D1F: 4C BB 8C JMP $8CBB

-- F6: restore text pointer --
00/8D22: 88 DEY
00/8D23: D0 0D BNE $8D32
00/8D25: AD 3F 04 LDA $043F
00/8D28: 85 0C STA $0C
00/8D2A: AD 40 04 LDA $0440
00/8D2D: 85 0D STA $0D
00/8D2F: 4C BB 8C JMP $8CBB

-- F7: set speed --
00/8D32: 88 DEY
00/8D33: D0 07 BNE $8D3C
00/8D35: 20 50 8E JSR $8E50
00/8D38: 8D 39 04 STA $0439
00/8D3B: 60 RTS

-- F8: next line --
00/8D3C: 88 DEY
00/8D3D: D0 06 BNE $8D45
00/8D3F: EE 3D 04 INC $043D
00/8D42: 4C 59 8E JMP $8E59

-- F9: next screen --
00/8D45: 88 DEY
00/8D46: D0 14 BNE $8D5C
00/8D48: A9 FC LDA #$FC
00/8D4A: 8D 3C 04 STA $043C
00/8D4D: AE 3D 04 LDX $043D
00/8D50: BD 06 90 LDA $9006,X
00/8D53: 8D 38 04 STA $0438
00/8D56: 8C 3D 04 STY $043D
00/8D59: 4C 59 8E JMP $8E59

-- FA: delay --
00/8D5C: 88 DEY
00/8D5D: D0 07 BNE $8D66
00/8D5F: 20 50 8E JSR $8E50
00/8D62: 8D 37 04 STA $0437
00/8D65: 60 RTS

-- FB: show text box without delay --
00/8D66: 88 DEY
00/8D67: F0 03 BEQ $8D6C
00/8D69: 4C F7 8D JMP $8DF7
00/8D6C: 8C 38 04 STY $0438
00/8D6F: A6 21 LDX $21
00/8D71: 20 50 8E JSR $8E50
00/8D74: 9D A0 03 STA $03A0,X
00/8D77: 85 00 STA $00
00/8D79: E8 INX
00/8D7A: 20 50 8E JSR $8E50
00/8D7D: 9D A0 03 STA $03A0,X
00/8D80: 85 02 STA $02
00/8D82: E8 INX
00/8D83: 20 50 8E JSR $8E50
00/8D86: 9D A0 03 STA $03A0,X
00/8D89: 85 03 STA $03
00/8D8B: E8 INX
00/8D8C: B1 0C LDA ($0C),Y
00/8D8E: 10 10 BPL $8DA0
00/8D90: C9 B0 CMP #$B0
00/8D92: 90 0C BCC $8DA0
00/8D94: C9 C0 CMP #$C0
00/8D96: B0 04 BCS $8D9C
00/8D98: A9 5D LDA #$5D
00/8D9A: D0 06 BNE $8DA2
00/8D9C: A9 5C LDA #$5C
00/8D9E: D0 02 BNE $8DA2
00/8DA0: A9 20 LDA #$20
00/8DA2: 9D A0 03 STA $03A0,X
00/8DA5: E8 INX
00/8DA6: C8 INY
00/8DA7: C4 00 CPY $00
00/8DA9: D0 E1 BNE $8D8C
00/8DAB: A5 00 LDA $00
00/8DAD: 9D A0 03 STA $03A0,X
00/8DB0: E8 INX
00/8DB1: A5 03 LDA $03
00/8DB3: 18 CLC
00/8DB4: 69 20 ADC #$20
00/8DB6: 9D A1 03 STA $03A1,X
00/8DB9: 90 02 BCC $8DBD
00/8DBB: E6 02 INC $02
00/8DBD: A5 02 LDA $02
00/8DBF: 9D A0 03 STA $03A0,X
00/8DC2: E8 INX
00/8DC3: E8 INX
00/8DC4: A0 00 LDY #$00
00/8DC6: B1 0C LDA ($0C),Y
00/8DC8: C9 A0 CMP #$A0
00/8DCA: 90 14 BCC $8DE0
00/8DCC: C9 C0 CMP #$C0
00/8DCE: B0 0E BCS $8DDE
00/8DD0: 84 04 STY $04
00/8DD2: 38 SEC
00/8DD3: E9 B0 SBC #$B0
00/8DD5: A8 TAY
00/8DD6: B9 F8 8F LDA $8FF8,Y
00/8DD9: A4 04 LDY $04
00/8DDB: 4C E0 8D JMP $8DE0
00/8DDE: 29 7F AND #$7F
00/8DE0: 9D A0 03 STA $03A0,X
00/8DE3: E8 INX
00/8DE4: C8 INY
00/8DE5: C4 00 CPY $00
00/8DE7: D0 DD BNE $8DC6
00/8DE9: 86 21 STX $21
00/8DEB: A5 00 LDA $00
00/8DED: 18 CLC
00/8DEE: 65 0C ADC $0C
00/8DF0: 85 0C STA $0C
00/8DF2: 90 02 BCC $8DF6
00/8DF4: E6 0D INC $0D
00/8DF6: 60 RTS

-- FC: clear screen --
00/8DF7: 88 DEY
00/8DF8: D0 2E BNE $8E28
00/8DFA: AD 38 04 LDA $0438
00/8DFD: F0 04 BEQ $8E03
00/8DFF: CE 38 04 DEC $0438
00/8E02: 60 RTS
00/8E03: A9 88 LDA #$88
00/8E05: 20 3E 8E JSR $8E3E
00/8E08: E8 INX
00/8E09: E8 INX
00/8E0A: E8 INX
00/8E0B: A0 07 LDY #$07
00/8E0D: A9 20 LDA #$20
00/8E0F: 9D A0 03 STA $03A0,X
00/8E12: E8 INX
00/8E13: 88 DEY
00/8E14: 10 F9 BPL $8E0F
00/8E16: 86 21 STX $21
00/8E18: EE 3A 04 INC $043A
00/8E1B: AD 3A 04 LDA $043A
00/8E1E: 49 3D EOR #$3D
00/8E20: D0 D4 BNE $8DF6
00/8E22: 8D 3C 04 STA $043C
00/8E25: 4C 59 8E JMP $8E59

-- FD: month open --
00/8E28: 88 DEY
00/8E29: D0 04 BNE $8E2F
00/8E2B: EE 3E 04 INC $043E
00/8E2E: 60 RTS

-- FE: month close --
00/8E2F: 88 DEY
00/8E30: D0 06 BNE $8E38
00/8E32: A9 80 LDA #$80
00/8E34: 8D 3E 04 STA $043E
00/8E37: 60 RTS

-- FF: end of text --
00/8E38: A9 00 LDA #$00
00/8E3A: 8D 36 04 STA $0436
00/8E3D: 60 RTS

-- Set display header --
00/8E3E: A6 21 LDX $21
00/8E40: 9D A0 03 STA $03A0,X
00/8E43: AD 3B 04 LDA $043B
00/8E46: 9D A1 03 STA $03A1,X
00/8E49: AD 3A 04 LDA $043A
00/8E4C: 9D A2 03 STA $03A2,X
00/8E4F: 60 RTS

-- get code --
00/8E50: B1 0C LDA ($0C),Y
00/8E52: E6 0C INC $0C
00/8E54: D0 02 BNE $8E58
00/8E56: E6 0D INC $0D
00/8E58: 60 RTS

00/8E59: AE 3D 04 LDX $043D
00/8E5C: BD 02 90 LDA $9002,X
00/8E5F: 8D 3A 04 STA $043A
00/8E62: A9 22 LDA #$22
00/8E64: 8D 3B 04 STA $043B
00/8E67: 60 RTS


-- bank switch --
00/8B9E: A2 07 LDX #$07
00/8BA0: 86 36 STX $36
00/8BA2: 8E 00 80 STX $8000
00/8BA5: 8D 01 80 STA $8001
00/8BA8: 85 2A STA $2A
00/8BAA: 60 RTS

----------------------end---------------------------------


no