$CD73/52595: B-W block write
CD73: 20 F2 CD JSR $CDF2 ; open channel
CD76: 20 E8 D4 JSR $D4E8 ; set buffer pointer
CD79: A8 TAY
CD7A: 88 DEY
CD7B: C9 02 CMP #$02 ; buffer pointer lo less than 2?
CD7D: B0 02 BCS $CD81 ; no
CD7F: A0 01 LDY #$01
Jump from $CD7D:
CD81: A9 00 LDA #$00
CD83: 20 C8 D4 JSR $D4C8 ; buffer pointer to zero
CD86: 98 TYA
CD87: 20 F1 CF JSR $CFF1 ; write byte in buffer
CD8A: 8A TXA
CD8B: 48 PHA
CD8C: 20 64 D4 JSR $D464 ; write block to disk
CD8F: 68 PLA
CD90: AA TAX
CD91: 20 EE D3 JSR $D3EE ; get byte from buffer
CD94: 4C 94 C1 JMP $C194 ; done, error message
Previous Page / Next Page