$C823/51235:   Perform [S] - Scratch command

C823: 20 98 C3  JSR $C398
C826: 20 20 C3  JSR $C320
C829: 20 CA C3  JSR $C3CA
C82C: A9 00     LDA #$00
C82E: 85 86     STA $86
C830: 20 9D C4  JSR $C49D
C833: 30 3D     BMI $C872
C835: 20 B7 DD  JSR $DDB7
C838: 90 33     BCC $C86D
C83A: A0 00     LDY #$00
C83C: B1 94     LDA ($94),Y
C83E: 29 40     AND #$40
C840: D0 2B     BNE $C86D
C842: 20 B6 C8  JSR $C8B6
C845: A0 13     LDY #$13
C847: B1 94     LDA ($94),Y
C849: F0 0A     BEQ $C855
C84B: 85 80     STA $80
C84D: C8        INY
C84E: B1 94     LDA ($94),Y
C850: 85 81     STA $81
C852: 20 7D C8  JSR $C87D
C855: AE 53 02  LDX $0253
C858: A9 20     LDA #$20
C85A: 35 E7     AND $E7,X
C85C: D0 0D     BNE $C86B
C85E: BD 80 02  LDA $0280,X
C861: 85 80     STA $80
C863: BD 85 02  LDA $0285,X
C866: 85 81     STA $81
C868: 20 7D C8  JSR $C87D
C86B: E6 86     INC $86
C86D: 20 8B C4  JSR $C48B
C870: 10 C3     BPL $C835
C872: A5 86     LDA $86
C874: 85 80     STA $80
C876: A9 01     LDA #$01
C878: A0 00     LDY #$00
C87A: 4C A3 C1  JMP $C1A3

    Previous Page / Next Page